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;