SHOW:
|
|
- or go back to the newest paste.
| 1 | program md5Cracker; | |
| 2 | // wroten by MatriX Coder (Mohamed Aziz from Tunisia) | |
| 3 | uses md5; | |
| 4 | ||
| 5 | var | |
| 6 | wline, hline, wl, hf: string; | |
| 7 | wordlist, hashFile : textfile; | |
| 8 | begin | |
| 9 | write('Enter Hash File > ');readln(hf);
| |
| 10 | write('Enter Wordlist > ');readln(wl);
| |
| 11 | assign(hashFile, hf); | |
| 12 | reset(hashFile); | |
| 13 | repeat | |
| 14 | readln(hashFile, hline); | |
| 15 | assign(wordlist, wl); | |
| 16 | reset(wordlist); | |
| 17 | repeat | |
| 18 | readln(wordlist, wline); | |
| 19 | if (MD5Print(MD5String(wline)) = hline) then | |
| 20 | writeln('[+] Cracked :', hline, ' -> ', wline);
| |
| 21 | until EOF(wordlist); | |
| 22 | until EOF(hashFile); | |
| 23 | end. |
