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;