SRL Archive - Other Scripts

program New;
var A,L:string;

const File1 = 'C:\AAAA.mp3';
const File2 = 'C:\BBBB.mp3';

procedure GetTheMD5;
begin
  WriteLN('MD5 checker by Laurens.');
  wait(100);
  A := MD5FromFile(File1);
  L := MD5FromFile(File2);
  writeln('MD5 from file 1 = '+A);
  writeln('MD5 from file 2 = '+L);
end;

procedure CheckTheMD5;
begin
  if (A <> L) then
    begin
      writeln('MD5 is not the same!');
    end else
      writeln('MD5 is the same!');
end;

//MainLoopy
begin
  GetTheMD5;
  CheckTheMD5;
end.

Have phun with it.

SCAR isn't getting any return values for my files… weird. :s
Couldn't it just be condensed into this?

program New;

const
  File1 = 'C:\curl-7.18.0\curl.exe';
  File2 = 'C:\curl-7.18.0\curl.exe';

function CheckTheMD5 : boolean;
begin
  Writeln('MD5 checker by Laurens');
  Wait(100);
  writeln('MD5 from file 1 = '+MD5FromFile(File1));
  writeln('MD5 from file 2 = '+MD5FromFile(File2));
  Result := (MD5FromFile(File1) = MD5FromFile(File2));
end;

//MainLoopy
begin
  Writeln(BoolToStr(CheckTheMD5));
end.