سلام شاید شما هم دوست داشته باشین یک MD5 کرکر برای خودتون راه بندازین که پسوردهای خودتونو باهاش مقایسه کنید تا در صورت برابری هش را کرک کند . امروز یه تولز ساده براتون قرار میدم که برنامه نویس با یک کد نویسی ساده یک ابزار سریع و کاربردی را آماده کرده . برای اجرای این ابزار نیاز به perl دارین .
usage:
perl md5.pl wordlist.txt a6fb707deb128e5f8339b247b4be3f98
usage:
perl md5.pl wordlist.txt a6fb707deb128e5f8339b247b4be3f98
کد:
#!/usr/bin/perl ############################################################## # # MD5 dictionary cracker by stefo | [email protected] # # 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"; } }