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 Tk] Finder Paths 0.7

  • 0 Respuestas
  • 950 Vistas

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

Desconectado BigBear

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

Una imagen


El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Finder Paths 0.7
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7. use Tk::ListBox;
  8. use LWP::UserAgent;
  9. use URI::Split You are not allowed to view links. Register or Login(uri_split);
  10. use HTML::LinkExtor;
  11.  
  12. if ( $^O eq 'MSWin32' ) {
  13.     use Win32::Console;
  14.     Win32::Console::Free();
  15. }
  16.  
  17. my $background_fondo = "black";
  18. my $texto_color      = "cyan";
  19.  
  20. my $nave = LWP::UserAgent->new();
  21. $nave->timeout(5);
  22. $nave->agent(
  23. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  24. );
  25.  
  26. $ha = MainWindow->new(
  27.     -background => $background_fondo,
  28.     -foreground => $texto_color
  29. );
  30. $ha->title("Finder Paths 0.7 || (C) Doddy Hackman 2012");
  31. $ha->geometry("510x430+20+20");
  32. $ha->resizable( 0, 0 );
  33.  
  34. $ha->Label(
  35.     -text       => "Web : ",
  36.     -font       => "Impact1",
  37.     -background => $background_fondo,
  38.     -foreground => $texto_color
  39. )->place( -x => 30, -You are not allowed to view links. Register or Login => 20 );
  40. my $pagine = $ha->Entry(
  41.     -text       => "http://localhost:8080/paths",
  42.     -width      => 40,
  43.     -background => $background_fondo,
  44.     -foreground => $texto_color
  45. )->place( -x => 80, -You are not allowed to view links. Register or Login => 23 );
  46. $ha->Button(
  47.     -text             => "Search",
  48.     -width            => 10,
  49.     -command          => \&search,
  50.     -background       => $background_fondo,
  51.     -foreground       => $texto_color,
  52.     -activebackground => $texto_color
  53. )->place( -x => 330, -You are not allowed to view links. Register or Login => 23 );
  54. $ha->Button(
  55.     -text             => "Logs",
  56.     -width            => 10,
  57.     -command          => \&ver_logs,
  58.     -background       => $background_fondo,
  59.     -foreground       => $texto_color,
  60.     -activebackground => $texto_color
  61. )->place( -x => 405, -You are not allowed to view links. Register or Login => 23 );
  62.  
  63. $ha->Label(
  64.     -text       => "Type : ",
  65.     -font       => "Impact1",
  66.     -background => $background_fondo,
  67.     -foreground => $texto_color
  68. )->place( -x => 30, -You are not allowed to view links. Register or Login => 55 );
  69.  
  70. $ha->Radiobutton(
  71.     -text             => "Fast",
  72.     -value            => "fast",
  73.     -variable         => \$type,
  74.     -background       => $background_fondo,
  75.     -foreground       => $texto_color,
  76.     -activebackground => $texto_color
  77. )->place( -x => 80, -You are not allowed to view links. Register or Login => 57 );
  78. $ha->Radiobutton(
  79.     -text             => "Full",
  80.     -value            => "full",
  81.     -variable         => \$type,
  82.     -background       => $background_fondo,
  83.     -foreground       => $texto_color,
  84.     -activebackground => $texto_color
  85. )->place( -x => 125, -You are not allowed to view links. Register or Login => 57 );
  86.  
  87. $ha->Label(
  88.     -text       => "Paths Found",
  89.     -font       => "Impact",
  90.     -background => $background_fondo,
  91.     -foreground => $texto_color
  92. )->place( -x => 200, -You are not allowed to view links. Register or Login => 110 );
  93. my $paths_list = $ha->Listbox(
  94.     -width      => 70,
  95.     -height     => 13,
  96.     -background => $background_fondo,
  97.     -foreground => $texto_color
  98. )->place( -x => 42, -You are not allowed to view links. Register or Login => 160 );
  99. my $status_now = $ha->Label(
  100.     -text       => "Status : <None>",
  101.     -font       => "Impact",
  102.     -background => $background_fondo,
  103.     -foreground => $texto_color
  104. )->place( -x => 190, -You are not allowed to view links. Register or Login => 380 );
  105.  
  106. MainLoop;
  107.  
  108. sub search {
  109.  
  110.     $paths_list->You are not allowed to view links. Register or Login( "0.0", "end" );
  111.     $status_now->configure( -text => "Status : Scanning" );
  112.     if ( $type eq "fast" ) {
  113.         simple( $pagine->get );
  114.     }
  115.     if ( $type eq "full" ) {
  116.         escalar( $pagine->get );
  117.     }
  118.     $status_now->configure( -text => "Status : <None>" );
  119. }
  120.  
  121. sub ver_logs {
  122.     if ( -f "paths-logs.txt" ) {
  123.         You are not allowed to view links. Register or Login("paths-logs.txt");
  124.     }
  125.     else {
  126.         $ha->Dialog(
  127.             -title            => "Error",
  128.             -buttons          => ["OK"],
  129.             -text             => "File Not Found",
  130.             -background       => $background_fondo,
  131.             -foreground       => $texto_color,
  132.             -activebackground => $texto_color
  133.         )->Show();
  134.     }
  135. }
  136.  
  137. sub escalar {
  138.  
  139.     my $co    = $_[0];
  140.     my $code  = toma( $_[0] );
  141.     my @links = get_links($code);
  142.  
  143.     if ( $code =~ /Index of (.*)/ig ) {
  144.         $paths_list->insert( "end", $co );
  145.         savefile( "paths-logs.txt", $co );
  146.         my $dir_found = $1;
  147.         You are not allowed to view links. Register or Login $dir_found;
  148.         while ( $code =~ /<a href=\"(.*)\">(.*)<\/a>/ig ) {
  149.             my $ruta   = $1;
  150.             my $nombre = $2;
  151.             unless ( $nombre =~ /Parent Directory/ig
  152.                 or $nombre =~ /Description/ig )
  153.             {
  154.                 You are not allowed to view links. Register or Login( @encontrados, $_[0] . "/" . $nombre );
  155.             }
  156.         }
  157.     }
  158.  
  159.     for my $com (@links) {
  160.         $ha->update;
  161.         my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  162.         if ( $path =~ /\/(.*)$/ ) {
  163.             my $path1 = $1;
  164.             $_[0] =~ s/$path1//ig;
  165.             my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
  166.             if ( $path =~ /(.*)\// ) {
  167.                 my $parche = $1;
  168.                 unless ( $repetidos =~ /$parche/ ) {
  169.                     $repetidos .= " " . $parche;
  170.                     my $yeah = "http://" . $auth . $parche;
  171.                     escalar($yeah);
  172.                 }
  173.             }
  174.             for (@encontrados) {
  175.                 $ha->update;
  176.                 escalar($_);
  177.             }
  178.         }
  179.     }
  180. }
  181.  
  182. sub simple {
  183.  
  184.     my $code  = toma( $_[0] );
  185.     my @links = get_links($code);
  186.  
  187.     for my $com (@links) {
  188.         $ha->update;
  189.         my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  190.         if ( $path =~ /\/(.*)$/ ) {
  191.             my $path1 = $1;
  192.             $_[0] =~ s/$path1//ig;
  193.             my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
  194.             if ( $path =~ /(.*)\// ) {
  195.                 my $parche = $1;
  196.                 unless ( $repetidos =~ /$parche/ ) {
  197.                     $repetidos .= " " . $parche;
  198.                     my $code = toma( "http://" . $auth . $parche );
  199.  
  200.                     if ( $code =~ /Index of (.*)</ig ) {
  201.                         my $dir_found = $1;
  202.                         You are not allowed to view links. Register or Login $dir_found;
  203.                         my $yeah = "http://" . $auth . $parche;
  204.                         $paths_list->insert( "end", $yeah );
  205.                         savefile( "paths-logs.txt", $yeah );
  206.                     }
  207.                 }
  208.             }
  209.         }
  210.     }
  211. }
  212.  
  213. sub toma {
  214.     You are not allowed to view links. Register or Login $nave->get( $_[0] )->content;
  215. }
  216.  
  217. sub get_links {
  218.  
  219.     $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
  220.     You are not allowed to view links. Register or Login @links;
  221.  
  222.     sub agarrar {
  223.         my ( $a, %b ) = @_;
  224.         You are not allowed to view links. Register or Login( @links, You are not allowed to view links. Register or Login %b );
  225.     }
  226. }
  227.  
  228. sub savefile {
  229.     You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  230.     You are not allowed to view links. Register or Login SAVE $_[1] . "\n";
  231.     You are not allowed to view links. Register or Login SAVE;
  232. }
  233.  
  234. #The End ?
  235.  
« Última modificación: Marzo 14, 2015, 10:19:21 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1014
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[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] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1182
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear