Simple script to crack MD5 signatures. Needs a dictionary file, of course.
694c975d932707afab3b31c98cb2d114441cee8ca9f3a16271d82f31b00977dc
#!/usr/bin/perl
##############################################################
#
# MD5 dictionary cracker by stefo | stefo@cia.com
#
# Greetz to: d14l,baltazar | ljuska.org
#
# Date of release: 07.03.2009
#
##############################################################
use Digest::MD5 qw(md5_hex);
my $rijecnik = @ARGV[0];
my $md5 = @ARGV[1];
if($rijecnik eq "") {
print "\nUsage: perl md5.pl dictionary_file md5hash
\nExample: perl md5.pl wordlist.txt a6fb707deb128e5f8339b247b4be3f98\n";
}
elsif($md5 eq "") {
print "\nUsage: perl md5.pl dictionary_file md5hash
\nExample: perl md5.pl wordlist.txt a6fb707deb128e5f8339b247b4be3f98\n";
}
open(RIJECNIK, $rijecnik) or die("Can't open the dictionary file...");
@wordlista = <RIJECNIK>;
close(RIJECNIK);
foreach $rijec(@wordlista) {
$rijec =~ s/\n//;
$hashed = md5_hex($rijec);
if($hashed eq $md5) {
print "\nw00t! w00t! Found :D\n";
print "MD5 hash: " . $md5 . "\n";
print "Cracked: " . $rijec . "\n";
}
}