S'enregistrer | Rechercher | FAQ | Liste des Membres | Groupes d'utilisateurs | Connexion

  Nom d'utilisateur:    Mot de passe:       

  

Poster un nouveau sujet   Répondre au sujet Page 1 sur 1
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
MessagePosté le: Jeu Mar 26, 2009 10:59 pm    Sujet du message: petit script bien pratique pour tester ses Md5 Répondre en citant

CASH
Projets


 
Inscrit le: 28 Jan 2009
Messages: 42



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

}

}

il n est pas de moi mais sa peut toujours servir alors voila je vous le fait partager
Voir le profil de l'utilisateur Envoyer un message privés
MessagePosté le: Jeu Mar 26, 2009 11:02 pm    Sujet du message: Répondre en citant

TorTukiTu
Site Admin


 
Inscrit le: 07 Fév 2008
Messages: 1960
Localisation: Devant son pc durant la redaction de ce message



Merci de ta trouvaille, effectivement, ça pourra être assez utile Smile
Voir le profil de l'utilisateur Envoyer un message privés Visiter le site web de l'utilisateur Compte AIM MSN Messenger Numéro ICQ
MessagePosté le: Jeu Mar 26, 2009 11:03 pm    Sujet du message: Répondre en citant

warmup
Projets


 
Inscrit le: 30 Déc 2007
Messages: 81



C'est super comme script Very Happy
Voir le profil de l'utilisateur Envoyer un message privés
MessagePosté le: Jeu Mar 26, 2009 11:10 pm    Sujet du message: Répondre en citant

Manu404
Modérateur


 
Inscrit le: 26 Fév 2008
Messages: 2219
Localisation: ::1:



Vais tester Wink
Voir le profil de l'utilisateur Envoyer un message privés Envoyer un e-mail Visiter le site web de l'utilisateur Messagerie InstantanĂ©e MSN Messenger
MessagePosté le: Jeu Mar 26, 2009 11:16 pm    Sujet du message: Répondre en citant

CASH
Projets


 
Inscrit le: 28 Jan 2009
Messages: 42



de rien , oui essayer c est pas mal et assez rapide Very Happy
en + le code est pratique a modifier alors si vous connaisez d autre site a entrer dans le code bahh ya plus qu'a Cool Very Happy
Voir le profil de l'utilisateur Envoyer un message privés
MessagePosté le: Jeu Mar 26, 2009 11:19 pm    Sujet du message: Répondre en citant

warmup
Projets


 
Inscrit le: 30 Déc 2007
Messages: 81



oui effectivement c'est un peut con comme code mais super pratique Smile
Voir le profil de l'utilisateur Envoyer un message privés
MessagePosté le: Jeu Avr 02, 2009 3:34 pm    Sujet du message: Répondre en citant

kmkz
Projets


 
Inscrit le: 06 Fév 2008
Messages: 120
Localisation: Carcassonne, Toulouse



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 .. Wink .

++
Voir le profil de l'utilisateur Envoyer un message privés Visiter le site web de l'utilisateur
Poster un nouveau sujet   Répondre au sujet Page 1 sur 1

  


 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum



113976 Attacks blocked