send
Grupo de Telegram
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
  • 2689 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • 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.     You are not allowed to view links. Register or Login "\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.             You are not allowed to view links. Register or Login( @emails, $email );
  34.         }
  35.  
  36.         my @emails = repes(@emails);
  37.  
  38.         You are not allowed to view links. Register or Login "\n[+] Mails Found : " . You are not allowed to view links. Register or Login(@emails) . "\n";
  39.  
  40.         for (@emails) {
  41.             savefile( $ARGV[2], $_ );
  42.         }
  43.  
  44.     }
  45.     else {
  46.         You are not allowed to view links. Register or Login "\n[-] File not found\n";
  47.     }
  48.  
  49. }
  50. elsif ( $ARGV[0] eq "-google" ) {
  51.  
  52.     You are not allowed to view links. Register or Login "\n[+] Searching in Google ...\n";
  53.  
  54.     my @links = google( $ARGV[1], $ARGV[2] );
  55.  
  56.     You are not allowed to view links. Register or Login "[+] Scanning [" . You are not allowed to view links. Register or Login(@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.             You are not allowed to view links. Register or Login( @emails, $email );
  64.         }
  65.  
  66.     }
  67.  
  68.     my @emails = repes(@emails);
  69.  
  70.     You are not allowed to view links. Register or Login "\n[+] Mails Found : " . You are not allowed to view links. Register or Login(@emails) . "\n";
  71.  
  72.     for (@emails) {
  73.         savefile( $ARGV[2], $_ );
  74.     }
  75.  
  76. }
  77. elsif ( $ARGV[0] eq "-bing" ) {
  78.  
  79.     You are not allowed to view links. Register or Login "\n[+] Searching in Bing ...\n";
  80.  
  81.     my @links = bing( $ARGV[1], $ARGV[2] );
  82.  
  83.     You are not allowed to view links. Register or Login "[+] Scanning [" . You are not allowed to view links. Register or Login(@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.             You are not allowed to view links. Register or Login( @emails, $email );
  91.         }
  92.  
  93.     }
  94.  
  95.     my @emails = repes(@emails);
  96.  
  97.     You are not allowed to view links. Register or Login "\n[+] Mails Found : " . You are not allowed to view links. Register or Login(@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.     You are not allowed to view links. Register or Login "\n[+] Loading page ...\n";
  109.  
  110.     while ( $code =~ /($buscador)/g ) {
  111.         my $email = $1;
  112.         You are not allowed to view links. Register or Login( @emails, $email );
  113.     }
  114.  
  115.     my @emails = repes(@emails);
  116.  
  117.     You are not allowed to view links. Register or Login "\n[+] Mails Found : " . You are not allowed to view links. Register or Login(@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.             You are not allowed to view links. Register or Login( @founds, $1 );
  141.         }
  142.     }
  143.     my @founds = repes( cortar(@founds) );
  144.     You are not allowed to view links. Register or Login @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.                 You are not allowed to view links. Register or Login( @founds, uri_unescape($1) );
  157.             }
  158.         }
  159.     }
  160.     my @founds = repes( cortar(@founds) );
  161.     You are not allowed to view links. Register or Login @founds;
  162. }
  163.  
  164. sub cortar {
  165.     my @nuevo;
  166.     for (@_) {
  167.         if ( $_ =~ /=/ ) {
  168.             @tengo = You are not allowed to view links. Register or Login( "=", $_ );
  169.             You are not allowed to view links. Register or Login( @nuevo, @tengo[0] . "=" );
  170.         }
  171.         else {
  172.             You are not allowed to view links. Register or Login( @nuevo, $_ );
  173.         }
  174.     }
  175.     You are not allowed to view links. Register or Login @nuevo;
  176. }
  177.  
  178. sub toma {
  179.     You are not allowed to view links. Register or Login $nave->get( $_[0] )->content;
  180. }
  181.  
  182. sub savefile {
  183.  
  184.     if ( $_[0] eq "" ) {
  185.         You are not allowed to view links. Register or Login( SAVE, ">>logs.txt" );
  186.     }
  187.     else {
  188.         You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  189.     }
  190.  
  191.     You are not allowed to view links. Register or Login SAVE $_[1] . "\n";
  192.     You are not allowed to view links. Register or Login SAVE;
  193. }
  194.  
  195. sub openfile {
  196.     You are not allowed to view links. Register or Login my $FILE, You are not allowed to view links. Register or Login[<], $_[0];
  197.     my $word = You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login[], <$FILE>;
  198.     You are not allowed to view links. Register or Login $FILE;
  199.     You are not allowed to view links. Register or Login $word;
  200. }
  201.  
  202. sub repes {
  203.     my @limpio;
  204.     foreach $test (@_) {
  205.         You are not allowed to view links. Register or Login @limpio, $test unless $repe{$test}++;
  206.     }
  207.     You are not allowed to view links. Register or Login @limpio;
  208. }
  209.  
  210. sub sintax {
  211.     You are not allowed to view links. Register or Login "\n[+] Sintax : $0 <options> <logs>\n";
  212.     You are not allowed to view links. Register or Login "\n[+] Examples : \n\n";
  213.     You are not allowed to view links. Register or Login "[+] $0 -file test.txt logs.txt\n";
  214.     You are not allowed to view links. Register or Login "[+] $0 -google 50 mailist logs.txt\n";
  215.     You are not allowed to view links. Register or Login "[+] $0 -bing 50 mailist logs.txt\n";
  216.     You are not allowed to view links. Register or Login "[+] $0 -page http://localhost/index.php logs.txt\n";
  217. }
  218.  
  219. sub head {
  220.     You are not allowed to view links. Register or Login "\n-- == Email Extractor 0.2 == --\n";
  221. }
  222.  
  223. sub copyright {
  224.     You are not allowed to view links. Register or Login "\n-- == (C) Doddy Hackman 2013 == --\n\n";
  225.     You are not allowed to view links. Register or Login(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: 5267
  • Actividad:
    48.33%
  • Reputación 26
  • 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


You are not allowed to view links. Register or Login Advice

You are not allowed to view links. Register or Login Funny

You are not allowed to view links. Register or Login Tech News

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2854
Ú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: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1013
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1080
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear