MD5 Wordlist Cracker

Hash + Wordlist

Ihr könnt auch mehrere Hashes eingeben.

Beispiel: Hash1:Hash2:Hash3

Code:

---

#!/perl/

use Digest::MD5 qw(md5_hex);

print("MD5 Hash (use : to seperate): ");
chop($hash=<STDIN>);
print("Wordlist: ");
chop($words=<STDIN>);
print("\n");

open(WLIST,$words)||die($_);
  while(<WLIST>)
        {
            chomp($hash);
            @hashes=split(/:/,$hash);
  foreach $chash(@hashes)
      {
        chomp;
        $enchash = md5_hex($_);
      if($enchash =~ $chash)
        {
            print("Match found " . $chash . " :: " . $_ . "\n"  );
        }
      }
  }
  close(WLIST);
  close(MD5);
print("\nMD5 Cracker coded by pal\n");
  exit;

---