###################################
#Md5 Crack Monster v1.1 Coded By KuNdUz
###################################

#!usr/bin/perl 

##
#     Coded By KuNdUz
#   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 ~# 28c15e68173b7bf815ccbfd0513d2663
#   ***************
#   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=;
chop($pick);

if($pick == "1"){
MD5FAIL:
print "\nEnter Md5 Hash ~# ";
$hash=;
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=;
chop($file);

open(RES,"<","$file"); 
@lol = ; 
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>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>(.*)<\/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 =~ /: 

 - (.*)


/)
{ 
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>md5 Database<\/td>$hash<\/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 =~ /
Results<\/h2>Md5 Hash:<\/b> $hashNormal Text: <\/b>(.*)/)
{ 
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 =~ /
  • Your md5 hash is :
  • $hash is (.*)<\/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>
    /)
{ 
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>$hash<\/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 =~ /
    Results<\/h2>Md5 Hash:<\/b> $hashNormal 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>

    /)
{ 
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 =~ /
  • Your md5 hash is :
  • $hash is (.*)<\/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 =~ /result:<\/strong>(.+)<\/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 $hash<\/strong> has been deciphered to: (.+)<\/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>
    $hash:(.+)/)
{ 
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 =~ /(.+)
    /){
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>/){ 
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>Plain-Text:<\/b><\/td><\/tr>(.+)/)
{ 
print "Result : $1\n"; 
} else { 
print "Result : Hash not found!\n"; 
}
}

##
# Coded By KuNdUz
##


    • # PlanetCreator.Net [ 07-09-2010 ]