help_outline
Ayudanos!
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

MultiCracker 0.1 MD5

  • 0 Respuestas
  • 1260 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 04:34:58 pm »
Código: Perl
  1. use LWP::UserAgent;
  2. use HTTP::Request::Common;
  3. use HTTP::Cookies;
  4.  
  5. # By OzX NULLBYTES.net
  6. ### BASE DE LAS PETICIONES ##############################################################################################
  7. $browser = LWP::UserAgent->new();
  8. $browser->timeout(10);
  9. $browser->default_header(
  10.  
  11. "User-Agent" => "Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1",
  12. "Accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
  13. "Accept-Language" => "es-es,es;q=0.8,en-us;q=0.5,en;q=0.3",
  14. "Referer" => "http://www.google.com"
  15. );
  16.  
  17. #################################################################FUNCION GET Y POST
  18. sub GETS{ @code = split("\n",$content = $browser->request(GET $_[0])->content);return  @code;}
  19. sub POSTS{ @code = split("\n",$content = $browser->request(POST $_[0], [%{$_[1]}])->content);return  @code};
  20. ###############################################################################
  21. $hash = $ARGV[0];
  22. unless ($ARGV[0]) {
  23.    print "MULTICRACKER 0.1 BY OZX www.nullbytes.net \nCrackNB.pl <hash>\n";
  24.    print "CrackNB.pl 202cb962ac59075b964b07152d234b70\n\n";
  25.    exit 0;
  26. }
  27. ########################################################
  28. %webs = ('0' => "http://md5decrypter.com",
  29.        '1' => "http://gdataonline.com",
  30.        '2' => "http://md5.hashcracking.com",
  31.        '3' => "http://milw0rm.com",
  32.        '4' => "http://md5search.org",);
  33.      
  34. ###PETICIONES ####################################
  35. if ($hash =~/\w{32}/){
  36. hashfind($hash);
  37. for($i=0;$i<5;$i++){
  38. $pid = fork();
  39.  
  40. if( $pid == 0 ){
  41.       print $webs{$i}.":> ".md5($i)."\n";
  42.    exit 0;
  43.                 }
  44.                             }
  45. }else{
  46. print "[+] HASH INVALIDO\n";
  47. }
  48. #################################################
  49. #LA WEB http://www.hashfind.info TIENE UN SISTEMA BASADO EN COOKIES PARA MOSTRAR EL HASH ,
  50. #ES POR ELLO QUE NO PUDE IMPLEMENTARLO DENTRO DE  LAS OTRAS FUNCIONES
  51. # TAMBIEN TAMPOCO PUDE IMPLEMENTARLO DENTRO DEL FORK.
  52. sub hashfind{
  53. $hash = $_[0];
  54. ###  COOKIE PARA http://www.hashfind.info <=  ??
  55. $browser->cookie_jar(HTTP::Cookies->new(file => "cookie_hash.txt", autosave => 1));
  56.  @code = POSTS("http://www.hashfind.info/",{hash => $hash, button => Search});
  57.  @codex = GETS("http://www.hashfind.info/get.php?type=0 ");
  58. print "http://www.hashfind.info :>  @codex\n";
  59. }
  60.  
  61. sub md5{
  62. $id=$_[0];
  63. $cracker[0]=   crack_post($webs{$id},{hash => $hash, submit => Decrypt%21 },$hash,'.*Normal.*<\/b>','.*this hash wasn.*') ;
  64. $cracker[1]=   crack_get($webs{$id}."/qkhash.php?mode=txt&hash=",$hash,'.*><b>','<\/b><.*','.*\?',"<\/td><\/tr>");
  65. $cracker[2]=   crack_get($webs{$id}."/search.php?md5=",$hash,".*is ");
  66. $cracker[3]=   crack_post($webs{$id}."/cracker/search.php",{hash => $hash, Submit => Submit },$hash,"<\/TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>cracked.*",".*<TR class=\"submit\">.*nowrap=\"nowrap\" width=90>");
  67. $cracker[4]=   crack_post($webs{$id}."/index.php",{hash => $hash , server => all ,token => md5s , tryb => search, submit =>MD5Search%28%29},"<font.*size=\"-1\">.*nbsp",".*class=\"wyniksz\">","<\/font><\/td><\/tr><\/table><\/td><\/tr><\/table>.*p>","<\/font><\/td><\/tr>");
  68.  
  69. return $cracker[$id];
  70. }
  71.  
  72. sub crack_post{
  73. ($url,$data,$match, @reg1) =  @_;
  74.  @code = POSTS($url,$data);
  75.    for $linea ( @code){
  76.       if ($linea=~/$match/i){
  77.          for $reg ( @reg1){
  78.             $linea=~s/$reg//;
  79.                      }
  80.                  
  81. return $linea;
  82.                      }
  83.                
  84.                }
  85.          }
  86.      
  87. sub crack_get{
  88. ($url,$hash, @reg1) =  @_;
  89.  @code = GETS($url.$hash);
  90. for $linea ( @code){
  91.    if ($linea=~/$hash/i){
  92.       for $reg ( @reg1){
  93.          $linea=~s/$reg//;
  94.          
  95.                   }
  96.          return $linea;
  97.                   }
  98.                   }
  99.                }
« Última modificación: Marzo 14, 2015, 09:47:20 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!