comment
IRC Chat
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.

[Perl] Emails Extractor 0.2

  • 3 Respuestas
  • 3141 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Diciembre 27, 2013, 11:35:38 am »
Un simple script en Perl para buscar direcciones de correo en :

  • Un archivo de texto cualquiera
  • Una pagina
  • Usando un dork en google para scanear todas las paginas encontradas con el dork
  • Lo mismo que el anterior pero en bing


El codigo.

Código: Perl
  1.  #!usr/bin/perl
  2. #Email Extractor 0.2
  3. #(C) Doddy Hackman 2013
  4. #Credits : Regex based on
  5. #http://stackoverflow.com/questions/15710275/print-email-addresses-to-a-file-in-perl
  6. #Thanks to motherconfessor & amon
  7.  
  8. use LWP::UserAgent;
  9. use URI::Escape;
  10.  
  11. my $nave = LWP::UserAgent->new;
  12. $nave->agent(
  13. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  14. );
  15. $nave->timeout(10);
  16.  
  17. my $buscador = qr/[A-Z0-9._%+-]+\@[A-Z0-9.-]+\.[A-Z]{2,4}/i
  18.   ;    # Thanks to motherconfessor & amon
  19. my @emails;
  20.  
  21. head();
  22.  
  23. if ( $ARGV[0] eq "-file" ) {
  24.  
  25.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Opening file ...\n";
  26.  
  27.     if ( -f $ARGV[1] ) {
  28.  
  29.         my $code = openfile( $ARGV[1] );
  30.  
  31.         while ( $code =~ /($buscador)/g ) {
  32.             my $email = $1;
  33.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @emails, $email );
  34.         }
  35.  
  36.         my @emails = repes(@emails);
  37.  
  38.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Mails Found : " . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@emails) . "\n";
  39.  
  40.         for (@emails) {
  41.             savefile( $ARGV[2], $_ );
  42.         }
  43.  
  44.     }
  45.     else {
  46.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[-] File not found\n";
  47.     }
  48.  
  49. }
  50. elsif ( $ARGV[0] eq "-google" ) {
  51.  
  52.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Searching in Google ...\n";
  53.  
  54.     my @links = google( $ARGV[1], $ARGV[2] );
  55.  
  56.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Scanning [" . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@links) . "] pages ...\n";
  57.  
  58.     for my $ink (@links) {
  59.         my $code = toma($ink);
  60.  
  61.         while ( $code =~ /($buscador)/g ) {
  62.             my $email = $1;
  63.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @emails, $email );
  64.         }
  65.  
  66.     }
  67.  
  68.     my @emails = repes(@emails);
  69.  
  70.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Mails Found : " . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@emails) . "\n";
  71.  
  72.     for (@emails) {
  73.         savefile( $ARGV[2], $_ );
  74.     }
  75.  
  76. }
  77. elsif ( $ARGV[0] eq "-bing" ) {
  78.  
  79.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Searching in Bing ...\n";
  80.  
  81.     my @links = bing( $ARGV[1], $ARGV[2] );
  82.  
  83.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Scanning [" . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@links) . "] pages ...\n";
  84.  
  85.     for my $ink (@links) {
  86.         my $code = toma($ink);
  87.  
  88.         while ( $code =~ /($buscador)/g ) {
  89.             my $email = $1;
  90.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @emails, $email );
  91.         }
  92.  
  93.     }
  94.  
  95.     my @emails = repes(@emails);
  96.  
  97.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Mails Found : " . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@emails) . "\n";
  98.  
  99.     for (@emails) {
  100.         savefile( $ARGV[3], $_ );
  101.     }
  102.  
  103. }
  104. elsif ( $ARGV[0] eq "-page" ) {
  105.  
  106.     my $code = toma( $ARGV[1] );
  107.  
  108.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Loading page ...\n";
  109.  
  110.     while ( $code =~ /($buscador)/g ) {
  111.         my $email = $1;
  112.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @emails, $email );
  113.     }
  114.  
  115.     my @emails = repes(@emails);
  116.  
  117.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Mails Found : " . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@emails) . "\n";
  118.  
  119.     for (@emails) {
  120.         savefile( $ARGV[2], $_ );
  121.     }
  122.  
  123. }
  124. else {
  125.     sintax();
  126. }
  127.  
  128. copyright();
  129.  
  130. # Functions
  131.  
  132. sub bing {
  133.  
  134.     my ( $a, $b ) = @_;
  135.     for ( $pages = 10 ; $pages <= $b ; $pages = $pages + 10 ) {
  136.         my $code =
  137.           toma( "http://www.bing.com/search?q=" . $a . "&first=" . $pages );
  138.  
  139.         while ( $code =~ /<h3><a href="(.*?)"/mig ) {
  140.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @founds, $1 );
  141.         }
  142.     }
  143.     my @founds = repes( cortar(@founds) );
  144.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @founds;
  145. }
  146.  
  147. sub google {
  148.     my ( $a, $b ) = @_;
  149.     my @founds;
  150.     for ( $pages = 10 ; $pages <= $b ; $pages = $pages + 10 ) {
  151.         $code = toma(
  152.             "http://www.google.com.ar/search?hl=&q=" . $a . "&start=$pages" );
  153.         while ( $code =~ /(?<="r"><. href=")(.+?)"/mig ) {
  154.             my $url = $1;
  155.             if ( $url =~ /\/url\?q\=(.*?)\&amp\;/ ) {
  156.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta( @founds, uri_unescape($1) );
  157.             }
  158.         }
  159.     }
  160.     my @founds = repes( cortar(@founds) );
  161.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @founds;
  162. }
  163.  
  164. sub cortar {
  165.     my @nuevo;
  166.     for (@_) {
  167.         if ( $_ =~ /=/ ) {
  168.             @tengo = No tienes permisos para ver links. Registrate o Entra con tu cuenta( "=", $_ );
  169.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @nuevo, @tengo[0] . "=" );
  170.         }
  171.         else {
  172.             No tienes permisos para ver links. Registrate o Entra con tu cuenta( @nuevo, $_ );
  173.         }
  174.     }
  175.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @nuevo;
  176. }
  177.  
  178. sub toma {
  179.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] )->content;
  180. }
  181.  
  182. sub savefile {
  183.  
  184.     if ( $_[0] eq "" ) {
  185.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( SAVE, ">>logs.txt" );
  186.     }
  187.     else {
  188.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( SAVE, ">>" . $_[0] );
  189.     }
  190.  
  191.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE $_[1] . "\n";
  192.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE;
  193. }
  194.  
  195. sub openfile {
  196.     No tienes permisos para ver links. Registrate o Entra con tu cuenta my $FILE, No tienes permisos para ver links. Registrate o Entra con tu cuenta[<], $_[0];
  197.     my $word = No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta[], <$FILE>;
  198.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $FILE;
  199.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $word;
  200. }
  201.  
  202. sub repes {
  203.     my @limpio;
  204.     foreach $test (@_) {
  205.         No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio, $test unless $repe{$test}++;
  206.     }
  207.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio;
  208. }
  209.  
  210. sub sintax {
  211.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Sintax : $0 <options> <logs>\n";
  212.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Examples : \n\n";
  213.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] $0 -file test.txt logs.txt\n";
  214.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] $0 -google 50 mailist logs.txt\n";
  215.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] $0 -bing 50 mailist logs.txt\n";
  216.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] $0 -page http://localhost/index.php logs.txt\n";
  217. }
  218.  
  219. sub head {
  220.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == Email Extractor 0.2 == --\n";
  221. }
  222.  
  223. sub copyright {
  224.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == (C) Doddy Hackman 2013 == --\n\n";
  225.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  226. }
  227.  
  228. #The End ?
  229.  

Mostraria un ejemplo de uso pero puedo tener problemas cuando el script devuelve como 500 mails ajenos claramente para spam xD.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5401
  • Actividad:
    33.33%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Diciembre 27, 2013, 11:40:09 am »
jojojo! Que buena tool Doddy!
Felicitaciones! Vere si la pruebo en estos dias


Desconectado mayer

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #2 en: Marzo 17, 2015, 12:22:54 pm »
nice too see this sadsadadwdadw

Desconectado AstroLels

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #3 en: Abril 07, 2015, 10:17:33 pm »
Grand magnum


No tienes permisos para ver links. Registrate o Entra con tu cuenta Advice

No tienes permisos para ver links. Registrate o Entra con tu cuenta Funny

No tienes permisos para ver links. Registrate o Entra con tu cuenta Tech News

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3238
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1316
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1308
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1140
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear