md5Cracker

program md5Cracker;
// wroten by MatriX Coder (Mohamed Aziz from Tunisia)
uses md5;

var
  wline, hline, wl, hf: string;
  wordlist, hashFile : textfile;
begin
  write('Enter Hash File > ');readln(hf);
  write('Enter Wordlist > ');readln(wl);
  assign(hashFile, hf);
  reset(hashFile);
  repeat
    readln(hashFile, hline);
    assign(wordlist, wl);
    reset(wordlist);
    repeat
      readln(wordlist, wline);
      if (MD5Print(MD5String(wline)) = hline) then
        writeln('[+] Cracked :', hline, ' -> ', wline);
    until EOF(wordlist);
  until EOF(hashFile);
end.