ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
09:18:03 16/09/2019
¿No estas registrado?
Login: Clave:
6 Usuarios en línea: 0 registrados, 6 invitados.
Conéctate y verás los usuarios en línea
Tema: MailXtractor.
    Responder
Todos Los Foros -> Perl / Phyton -> MailXtractor.
Autor Mensaje (Ver Versión para Imprimir)
s3cure
Usuario Enfermo
Arreglando las imágenes

Mensajes: 69
Registrad@:
07/01/2010
Estado: Desconectad@
MailXtractor.

      MailXtractor by s3cure.

CÓDIGO
      #!/usr/bin/perl
      # MailXtractor
      # by s3cure
      # HSLTeam.com!

      print “MailXtractor by s3cure|m0x.lk\\\\n”;
      print “HSLTeam.com!\\\\n\\\\n”;
      print “Mails.txt: “;
      $mailtxt=<STDIN>;
      print “Output.txt: “;
      $outmail=<STDIN>;
      print “Start…\\\\n”;

      open(SEARCH,”<$mailtxt”);
      @SEARCH = <SEARCH>;
      close(SEARCH);

      open(FILE,”<$mailtxt”) || die “Not found $mailtxt\\\\n”;
      foreach $line (@SEARCH) {
      if ($line =~ m{(\\\\w+\\\\@[\\\\w.>+)}) {
      open(FIN,”>$outmail”);
      print FIN “$line\\\\n”;
      }
      }
      close(FIN);
      close(FILE);
      print “\\\\nMailtxt: $mailtxt\\\\n”;
      print “Output result: $outmail\\\\n”;
      print “Ready n result saved.”;
      print “\\\\nHSLTeam.com!\\\\n”;




salu2.


Creer que todo es genial para luego ver realidad.
13/01/2010 11:47:48 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com