petit script bien pratique pour tester ses Md5

Moderator: Mod

petit script bien pratique pour tester ses Md5

Postby CASH » Thu Mar 26, 2009 10:59 pm

voila un petit script bien pratique pour tester ces Md5
c est pas le script du siecle mais il permet de verifier son hash sur 19 site(genre milw0rm, gdataonline ect ect)

:wink:
[code:1:8f5740aee8]#!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=<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>&nbsp;/){

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";

}

}[/code:1:8f5740aee8]
il n est pas de moi mais sa peut toujours servir alors voila je vous le fait partager
CASH
Projets
 
Posts: 42
Joined: Wed Jan 28, 2009 2:58 pm

Postby TorTukiTu » Thu Mar 26, 2009 11:02 pm

Merci de ta trouvaille, effectivement, ça pourra être assez utile :)
User avatar
TorTukiTu
Site Admin
 
Posts: 1960
Joined: Thu Feb 07, 2008 10:24 pm
Location: Devant son pc durant la redaction de ce message

Postby warmup » Thu Mar 26, 2009 11:03 pm

C'est super comme script :D
warmup
Projets
 
Posts: 81
Joined: Sun Dec 30, 2007 11:29 am

Postby Manu404 » Thu Mar 26, 2009 11:10 pm

Vais tester :wink:
User avatar
Manu404
 
Posts: 2219
Joined: Tue Feb 26, 2008 3:44 pm
Location: ::1:

Postby CASH » Thu Mar 26, 2009 11:16 pm

de rien , oui essayer c est pas mal et assez rapide :D
en + le code est pratique a modifier alors si vous connaisez d autre site a entrer dans le code bahh ya plus qu'a 8) :D
CASH
Projets
 
Posts: 42
Joined: Wed Jan 28, 2009 2:58 pm

Postby warmup » Thu Mar 26, 2009 11:19 pm

oui effectivement c'est un peut con comme code mais super pratique :)
warmup
Projets
 
Posts: 81
Joined: Sun Dec 30, 2007 11:29 am

Postby kmkz » Thu Apr 02, 2009 3:34 pm

Yep all,

Je pense que ce code peu aussi etre une petite idées de départ pour un autre projet ( pourquoi se limiter au md5 entre autre .. ;) .

++
User avatar
kmkz
Projets
 
Posts: 120
Joined: Wed Feb 06, 2008 1:25 pm
Location: Carcassonne, Toulouse


Return to Perl

Who is online

Users browsing this forum: No registered users and 2 guests

cron