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

}

}