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] Finder Paths 0.6

  • 0 Respuestas
  • 968 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Abril 07, 2012, 09:02:39 pm »
Un simple script para buscar los famosos listados de directorios en una pagina.

Código: Perl
  1. #!usr/bin/perl
  2. #Finder Paths 0.6
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use URI::Split You are not allowed to view links. Register or Login(uri_split);
  7. use HTML::LinkExtor;
  8.  
  9. my $nave = LWP::UserAgent->new();
  10. $nave->timeout(5);
  11. $nave->agent(
  12. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  13. );
  14.  
  15. head();
  16.  
  17. You are not allowed to view links. Register or Login "[+] Web : ";
  18. You are not allowed to view links. Register or Login( my $web = <stdin> );
  19.  
  20. You are not allowed to view links. Register or Login "\n\n[+] Scan Type\n\n";
  21. You are not allowed to view links. Register or Login "[+] 1 : Fast\n";
  22. You are not allowed to view links. Register or Login "[+] 2 : Full\n";
  23.  
  24. You are not allowed to view links. Register or Login "\n\n[+] Option : ";
  25. You are not allowed to view links. Register or Login( my $op = <stdin> );
  26.  
  27. You are not allowed to view links. Register or Login "\n\n[+] Scanning ....\n\n\n";
  28.  
  29. if ( $op eq "1" ) {
  30.     simple($web);
  31. }
  32. elsif ( $op eq "2" ) {
  33.     escalar($web);
  34. }
  35. else {
  36.     simple($web);
  37. }
  38. copyright();
  39.  
  40. sub escalar {
  41.  
  42.     my $co    = $_[0];
  43.     my $code  = toma( $_[0] );
  44.     my @links = get_links($code);
  45.  
  46.     if ( $code =~ /Index of (.*)/ig ) {
  47.         You are not allowed to view links. Register or Login "[+] Link : $co\n";
  48.         savefile( "paths-logs.txt", $co );
  49.         my $dir_found = $1;
  50.         You are not allowed to view links. Register or Login $dir_found;
  51.         while ( $code =~ /<a href=\"(.*)\">(.*)<\/a>/ig ) {
  52.             my $ruta   = $1;
  53.             my $nombre = $2;
  54.             unless ( $nombre =~ /Parent Directory/ig
  55.                 or $nombre =~ /Description/ig )
  56.             {
  57.                 You are not allowed to view links. Register or Login( @encontrados, $_[0] . "/" . $nombre );
  58.             }
  59.         }
  60.     }
  61.  
  62.     for my $com (@links) {
  63.         my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  64.         if ( $path =~ /\/(.*)$/ ) {
  65.             my $path1 = $1;
  66.             $_[0] =~ s/$path1//ig;
  67.             my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
  68.             if ( $path =~ /(.*)\// ) {
  69.                 my $parche = $1;
  70.                 unless ( $repetidos =~ /$parche/ ) {
  71.                     $repetidos .= " " . $parche;
  72.                     my $yeah = "http://" . $auth . $parche;
  73.                     escalar($yeah);
  74.                 }
  75.             }
  76.             for (@encontrados) {
  77.                 escalar($_);
  78.             }
  79.         }
  80.     }
  81. }
  82.  
  83. sub simple {
  84.  
  85.     my $code  = toma( $_[0] );
  86.     my @links = get_links($code);
  87.  
  88.     for my $com (@links) {
  89.         my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  90.         if ( $path =~ /\/(.*)$/ ) {
  91.             my $path1 = $1;
  92.             $_[0] =~ s/$path1//ig;
  93.             my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
  94.             if ( $path =~ /(.*)\// ) {
  95.                 my $parche = $1;
  96.                 unless ( $repetidos =~ /$parche/ ) {
  97.                     $repetidos .= " " . $parche;
  98.                     my $code = toma( "http://" . $auth . $parche );
  99.  
  100.                     if ( $code =~ /Index of (.*)</ig ) {
  101.                         my $dir_found = $1;
  102.                         You are not allowed to view links. Register or Login $dir_found;
  103.                         my $yeah = "http://" . $auth . $parche;
  104.                         You are not allowed to view links. Register or Login "[+] Link : $yeah\n";
  105.                         savefile( "paths-logs.txt", $yeah );
  106.                     }
  107.                 }
  108.             }
  109.         }
  110.     }
  111. }
  112.  
  113. sub toma {
  114.     You are not allowed to view links. Register or Login $nave->get( $_[0] )->content;
  115. }
  116.  
  117. sub get_links {
  118.  
  119.     $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
  120.     You are not allowed to view links. Register or Login @links;
  121.  
  122.     sub agarrar {
  123.         my ( $a, %b ) = @_;
  124.         You are not allowed to view links. Register or Login( @links, You are not allowed to view links. Register or Login %b );
  125.     }
  126. }
  127.  
  128. sub savefile {
  129.     You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  130.     You are not allowed to view links. Register or Login SAVE $_[1] . "\n";
  131.     You are not allowed to view links. Register or Login SAVE;
  132. }
  133.  
  134. sub head {
  135.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  136.  
  137.  
  138.  @@@@@ @           @             @@@@@           @        
  139.  @                 @             @    @       @  @        
  140.  @                 @             @    @       @  @        
  141.  @     @ @ @@   @@@@  @@@  @@    @    @  @@@  @@ @ @@   @@
  142.  @@@@  @ @@  @ @   @ @   @ @     @@@@@      @ @  @@  @ @  @
  143.  @     @ @   @ @   @ @@@@@ @     @       @@@@ @  @   @  @  
  144.  @     @ @   @ @   @ @     @     @      @   @ @  @   @   @
  145.  @     @ @   @ @   @ @   @ @     @      @   @ @  @   @ @  @
  146.  @     @ @   @  @@@@  @@@  @     @       @@@@  @ @   @  @@
  147.  
  148.  
  149.  
  150.  
  151.  
  152. );
  153. }
  154.  
  155. sub copyright {
  156.     You are not allowed to view links. Register or Login "\n\n(C) Doddy Hackman 2012\n\n";
  157.     <stdin>;
  158.     You are not allowed to view links. Register or Login(1);
  159. }
  160.  
  161. # The End ?
  162.  
« Última modificación: Marzo 14, 2015, 10:18:43 am por Expermicid »

 

¿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: 1327
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1474
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 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