´╗┐ Universal Hash Extractor for PasswordsPro [PERL] - Hacketico En Accion

AutorTema: Universal Hash Extractor for PasswordsPro [PERL]  (Le├şdo 565 veces)

karol.ADN

  • Moderador Global
  • User Heroe

  • Desconectado
  • ****

  • 1744
  • Karma:
    +81/-0
  • Sexo
    Femenino

    Femenino
Universal Hash Extractor for PasswordsPro [PERL]
« : 25 de febrero de 2009, 11:39:28 am »
# Universal Hash extractor for passwords pro #
#     By napster // napster911 // Erazed   #


C├│digo: Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa
#!/usr/bin/perl

##############################################
#                                            #
# Universal Hash extractor for passwords pro #
#     By napster // napster911 // Erazed     #
#    Edit the number of , and away you go    #
#         http://erazed.wordpress.com        #
#          its.erazed@googlemail.com         #
#                                            #
##############################################

print "Path to DB: ";
$db_path = <STDIN>;
open (DB, $db_path) || die "\nError Opening file\n";
@lines = <DB>;
close(DB);
open(RES, ">results.txt") || die "\nError Creating file\n";

foreach (@lines)
   {
      chop; chop; chop; chop;
      ($email, $md5, $salt) = (split(/,/))[7, 5,46]; # count number of , before the items to be extracted and enter them here
      $email =~ tr/ '//d;
      $md5 =~ tr/ '//d;
      $salt =~ tr/ '//d;
      if ($email)
         {
            print RES $email.":".$md5.":".$salt."::\n";
         }
   }

close(RES);
exit();


Hey!!! Sorry pero TU NO Estás Autorizado para ver los Links. Regístrate o Ingresa

Tags:
 
Compartir este Tema...
En un Foro
(BBCode)
En un Sitio Web/Blog/Twitter/Facebook
(HTML)





Powered By Satel Group® Web Hosting Diseño Publicidad y Servicio Tecnico