Um scan de dork que usa o google , porem depois de algumas pesquisas o google bloqueia o bot :/
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
- Código:
#!/usr/bin/perl
# By MMxM
use LWP::UserAgent;
use URI::Escape;
use strict;
use warnings;
print "\nDigite a dork:\n";
print "> ";
chomp(my $dork = <stdin>);
$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("\n[-] Erro\n");
}
my $body = $response->content;
my $header = $response->headers_as_string;
if($body =~ /<p style="padding-top:.33em">/s){
print "\n[-] No results found\n";
}
my $a = 0;
while($body =~ m/<h3 class="r"><a href="(.*?)"/g){
print $1."\n";
$a = $a + 1;
}
if($a < 10){
print "\n[+] 100% completo\n";
exit;
}
}
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]