MD5 Wordlist Cracker

[Suicide]

Hash + Wordlist

Ihr könnt auch mehrere Hashes eingeben.

Beispiel: Hash1:Hash2:Hash3

#!/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;