#!/usr/bin/perl

#Un-Gogler baseado no "Googler by N3ur0t1c

use IO::Socket::INET;

print " [*]-----------------------------[*]";
print "\n [*]    Got2Think Hacking Team   [*]";
print "\n [*]   Un-Googler Filter         [*] \n";
print " [*]     Coded by Shaman286      [*]\n";
print " [*]-----------------------------[*]\n\n";
if(!$ARGV[0])
{
  print "Use:perl $0 <lista_de_palavras>";
  exit;
}
chomp ($ARGV[0]);
open (sites, $ARGV[0]) or die "erro ao abrir lista";
@sites = <sites>;
close(sites) ;
print "\n Digite uma palavra fixa para a busca\n\n";
$fixa = <STDIN>;
chomp($fixa);
foreach $procura(@sites)
{
chomp($procura);
$a=0;
print "\n\nprocurando por $procura + $fixa\n\n";
$resul2="";
while($resul2 !~ /resultados omitidos/)

{
   if($a<10)
   {
   PEGA1:
    sleep 1;
    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next;
    print $sock "GET /search?q=$procura+$fixa&hl=pt-BR&lr=&start=$a&sa=N HTTP/1.0\r\n";
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br\r\n\r\n";
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
    sleep 1;
   }

   else
   {

    PEGA2:
    sleep 1;
    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next;
    print $sock "GET /search?q=$procura+$fixa&hl=pt-BR&lr=&start=$a&sa=N HTTP/1.0\r\n";
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br\r\n\r\n";
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
    sleep 1;
   }

   FILTER:
   while($resul2=~ m/<a class=l href=".*?">.*?<\/a>/)
  {
   $resul2=~ s/<a class=l href="(.*?)">.*?<\/a>/$1/;
   $ref = $1;
   $prox = $ref;
   substr($prox, 0, 7) ="";
   #$ref = index $prox, '/';
   #$prox = substr($prox,0,$ref);
   print "$prox\n";
   open(arq,">>encontrados_google.txt");
   print arq "$prox\n";
   close(arq);

  }
$a +=10;
}
}
print "[+] Olhe a lista encontrados_google.txt\n"