10.05.2009, 13:32
|
|
Banned
Регистрация: 10.05.2009
Сообщений: 36
Провел на форуме:
52988
Репутация:
9
|
|
MD5-Crack-Monster(перл)
Код:
#!usr/bin/perl ## # Coded By hors_de_prix # Md5 Crack Monster v1.1 ####################### # www.tydal.nu # milw0rm.com # gdataonline.com # ice.breaker.free.fr # passcracking.com # md5.hashcracking.com # md5decryption.com # www.hashchecker.com # victorov.su # md5crack.it-helpnet.de # www.md5decrypter.com # blacklight.gotdns.org # www.hashchecker.com # md5.ip-domain.com.cn # www.bigtrapeze.com # opencrack.hashkiller.com # md5live.com # www.md5hood.com # www.astalavista.net ####################### # Ex. Option 1 # # Pick one of ~# 1 # Enter Md5 Hash ~# 9f06cd848dfef4e02ff9a14a21ae5dd8 # *************** # Ex. Option 2 # # Pick one of ~# 2 # Enter Md5 File ~# md5_hash.txt # *************** # # Ex. For md5_hash.txt # # 28c15e68173b7bf815ccbfd0513d2663 # 21232f297a57a5a743894a0e4a801fc3 # 8ff32489f92f33416694be8fdc2d4c22 # ... # ... ## use LWP::UserAgent; use HTTP::Request::Common; system('cls'); system('title Md5 Crack Monster v1.1 - Coded By KuNdUz'); print "\n\t***********************************\n"; print "\t* Md5 Crack Monster v1.1 *\n"; print "\t* Coded By KuNdUz *\n"; print "\t- Options: -\n"; print "\t* 1 - md5 hash *\n"; print "\t* 2 - md5.txt *\n"; print "\t***********************************\n"; print "\nPick One Of ~# "; $pick=<STDIN>; chop($pick); if($pick == "1"){ MD5FAIL: print "\nEnter Md5 Hash ~# "; $hash=<STDIN>; chop($hash); ###############md5 hash crack############### if (length($hash)==32) { print "\n\t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* -*-*-*-*-*-*-*-*-*\n"; print "\t* Md5 Crack Monster v1.1 *\n"; print "\t* Coded By KuNdUz *\n"; print "\t*__ $hash Searching 19 sites __*\n"; print "\t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- *-*-*-*-*-*-*-*-*\n\n"; &next; } else { print "\nThis is not a md5 hash!\n\n$hash \n\nTry Again! \n\n"; goto MD5FAIL; } } ###############md5 hash file crack############### if($pick == "2"){ print "\nEnter Md5 File ~# "; $file=<STDIN>; chop($file); open(RES,"<","$file"); @lol = <RES>; close(RES); foreach $hash(@lol){ print " \nSearching Md5 Hash $hash\n\n"; &next; } } sub next { $url = "http://www.tydal.nu/php/sakerhet/md5.php? q=$hash"; $lwp = LWP::UserAgent->new(); $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp -> get($url); print "1 www.tydal.nu ---- "; if ($connect -> content =~ /(.*)<\/b><\/h5>/) { if ($connect -> content =~ /Ingen/) { print "Result : Hash not found!\n"; } else { print "Result : $1\n"; } } else { print "Result : Hash not found!\n"; } $url = "http://milw0rm.com/cracker/search.php"; $lwp = LWP::UserAgent->new(); $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["hash" => $hash, "Submit" => "Submit"]); print "2 www.milw0rm.com ---- "; if ($request->content =~ /<\/TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>(.*)<\/TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>cracked<\/TD><\/TR>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://gdataonline.com/qkhash.php? mode=txt&hash=$hash"; $lwp = LWP::UserAgent->new(); $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp -> get($url); print "3 gdataonline.com ---- "; if ($connect -> content =~ /<\/td><td width=\"35%\"><b> (.*)<\/b><\/td><\/tr>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://ice.breaker.free.fr/md5.php?hash=$hash"; $lwp = LWP::UserAgent->new(); $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp->get($url); print "4 ice.breaker.free.fr ---- "; if ($connect -> content =~ /: <b><br><br> - (.*) <br><br><br><a href=http:\/\/ice.breaker.free.fr\/#hash>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://passcracking.com/"; $lwp = LWP::UserAgent->new(); $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp ->post($url, ["datafromuser" => $hash, "submit" => "DoIT"]); print "5 passcracking.com ---- "; if ($request->content =~ /<\/td><td>md5 Database<\/td><td>$hash<\/td><td bgcolor=#FF0000>(.*) <\/td><td>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://md5.hashcracking.com/search.php? md5=$hash"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp -> get($url); print "6 md5.hashcracking.com ---- "; if ($connect->content =~ /Cleartext of $hash is (.*)/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://md5decryption.com"; $lwp = LWP::UserAgent->new(); $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["hash" => $hash, "submit" => "Decrypt It!"]); print "7 www.md5decryption.com ---- "; if ($request->content =~ /<h2>Results<\/h2><b>Md5 Hash:<\/b> $hash<br\/><b class='red'>Normal Text: <\/b> (.*)<br\/>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://www.hashchecker.com/index.php? _sls=search_hash"; $lwp = LWP::UserAgent->new(); $lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp -> post($url, ["search_field" => $hash, "Submit" => "search"]); print "8 www.hashchecker.com ---- "; if ($request -> content =~ /<td><li>Your md5 hash is :<br><li>$hash is <b>(.*)<\/b> used charl/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://victorov.su/md5/?md5e=&md5d=$hash"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp -> get($url); print "9 victorov.su ---- "; if ($connect -> content =~ /MD5 расшифрован: <b>(.*) <\/b><br><form action=\"\">/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://md5crack.it-helpnet.de/index.php?op=search"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["md5" => $hash, "submit" => "Search now"]); print "10 md5crack.it-helpnet.de ---- "; if ($request->content =~ /<\/td><td>$hash<\/td><td>(.*) <\/td>/) { if (length($1)==23) { print "Result : Hash not found!\n"; } else { print "Result : $1\n"; } } else { print "Result : Hash not found!\n"; } $url = "http://www.md5decrypter.com/"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["hash" => $hash, "submit" => "Decrypt!"]); print "11 www.md5decrypter.com ---- "; if ($request->content =~ /<h2>Results<\/h2><b>Md5 Hash:<\/b> $hash<br\/><b class='red'>Normal Text: <\/b> (.*)/) { if (length($1)==23) { print "Result : Hash not found!\n"; } else { print "Result : $1\n"; } } else { print "Result : Hash not found!\n"; } $url = "http://blacklight.gotdns.org/cracker/crack.php"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["hash" => $hash, "algos" => "MD5", "crack" => "Crack"]); print "12 blacklight.gotdns.org ---- "; if ($request->content =~ /$hash -> <b>(.*) <\/b><br><br>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://www.hashchecker.com/index.php? _sls=search_hash"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["search_field" => $hash, "Submit" => "search"]); print "13 www.hashchecker.com ---- "; if ($request->content =~ /<td><li>Your md5 hash is :<br><li>$hash is <b>(.*)<\/b> used charlist/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://md5.ip-domain.com.cn/"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["text" => $hash, "submit" => "submit"]); print "14 md5.ip-domain.com.cn ---- "; if ($request->content =~ /<strong>result:<\/strong><font color=red>(.+)<\/font> /){ print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://www.bigtrapeze.com/md5/"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["query" => $hash, "submit" => " Crack "]); print "15 www.bigtrapeze.com ---- "; if ($request->content =~ /The hash <strong>$hash<\/strong> has been deciphered to: <strong>(.+)<\/strong>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://opencrack.hashkiller.com/"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["oc_check_md5" => $hash, "submit" => "Search MD5"]); print "16 opencrack.hashkiller.com ---- "; if ($request->content =~ /<\/div><div class="result">$hash:(.+)<br\/>/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "http://md5live.com/index.php? format=md5&search=$hash"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $connect = $lwp -> get($url); print "17 md5live.com ---- "; if ($connect -> content =~ /(.+)<br \/>/){ print "Result : $1\n"; } $url = "http://www.md5hood.com/"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["md5" => $hash, "submit" => "Search"]); print "18 www.md5hood.com ---- "; if ($request->content =~ / <div class="result_found">(.+)<\/div>/){ print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } $url = "https://www.astalavista.net/?cmd=rainbowtables"; $lwp = LWP::UserAgent->new(); $lwp->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $request = $lwp->post($url, ["query_hash" => $hash, "submit" => "Search", "hash_algorithm_query" => "MD5"]); print "19 www.astalavista.net ---- "; if ($request->content =~ /<\/td><\/tr><tr><td><b>Plain- Text:<\/b><\/td><\/tr><tr><td>(.+)/) { print "Result : $1\n"; } else { print "Result : Hash not found!\n"; } } ## # Coded By hors_de_prix ##
Последний раз редактировалось hors_de_prix; 10.05.2009 в 14:02..
Причина: настраивал
|
|
|