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})
È 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 ><
Comment