#!/usr/bin/perl
# google.pl is provided by 0x4D722E20446F6E

require LWP::UserAgent;
use HTTP::Message;
use strict;
use warnings;
#$proxy='http://127.0.0.1:3128';

print "Google Console\n";
if(!$ARGV[0]){
  print "usage : perl $0 <dork>\n";
  exit;
}

my $dork=$ARGV[0];
my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->agent("MSIE/6.0 Windows");
#$ua->proxy(http => $proxy) if defined($proxy);
my $counter=0;
my $dataget="";
my $result="";
my $host="";
my $domain="";
print "Googling using keyword : $dork\n";
while($result !~ /hasil penyajian/)
{
  my $googleurl="http://www.google.com/search?q=" . $dork . "&hl=id&lr=&start=" . $counter . "&sa=N";
  my $grabresponse = $ua->get($googleurl);
  $counter=$counter+10;
  if (!($grabresponse->is_success)) {
    print ($grabresponse->status_line. "  [FAILURE]\n");
  } else {
    my @hasil = $grabresponse->as_string;
    $result="@hasil";
    sleep 1;
    if($result =~ /tak cocok/)
    {
      print "no result's found!\n";
      exit;
    }
  
    while($result =~ m/<h3 class=r><a href=".*?" .*?/)
    {
      $result =~ s/<h3 class=r><a href="(.*?)" .*?/$1/;
      $host = $1;
      if ($host =~ m/^http:/){
       $host =~ s/http:\/\/(.*?)\//$1/;
       $domain = $1;
      }
      if ($host =~ m/^https:/){
       $host =~ s/https:\/\/(.*?)\//$1/;
       $domain = $1;
      }

      print $domain . "\n";
      open(OFILE,">>google_log-co.txt");
      print OFILE $domain . "\n";
      close(OFILE);
    }
  }
}
print "\nDONE!\n";