#!/usr/bin/perl
#

require LWP::UserAgent;
use HTTP::Message;


$baner=<new;
$ua->timeout(35);
$ua->agent("MSIE/6.0 Windows");
$ua->proxy(http => $proxy) if defined($proxy);
#$grabresponse = $ua->get($gourl);
$counter=0;

#Read last session
open(hf,$fsav);
$lastsav=;
close(hf);
$check=1;#Check if any save session

$nomer=1;
while(1)
{
$gourl = "http://www.google.com/search?q=allinurl:$komponen&num=10&hl=en&lr=&ie=UTF-8&oe=utf-8&start=$counter&sa=N";
$grabresponse = $ua->get($gourl);
$counter=$counter+10;
if (!($grabresponse->is_success)) {
printlog ($grabresponse->status_line. "  Failure\n");
} else {
#printlog ("$ARGV[0] \t");
#printlog ($grabresponse->status_line. "\n");

#printlog ($grabresponse->as_string. "\n");
#print "\nFingerprinting suceeded!\n";

$data1 = $grabresponse->as_string;
open(lol,">$tempfile");
print lol $data1;
close(lol);

open(lol,$tempfile) || die("Cannot open the file");
@loli=;
close(lol);
$data=join("",@loli);

exit if ($data=~/Google does not serve more than 1000/); #End Google search or Stop
@tmp=split(/\
\/,$tmp[$a]);
  @t=split(/\/mod/,$u[0]);
  $url=$t[0];

  if (($lastsav ne "") && (!($lastsav =~ /$url/)) && $check)
  {
     next;
  } else
  {
     $check=0;
  }
  #Save Session
  open(hf,">$fsav");
  print hf $url;
  close(hf);
  
  printlog("$nomer. http://$url\t");
  $nomer++;
#  @y=split(/\//,$url);
#  $url=$y[0];
  $urltarget="http://$url";
  $urltarget=~s/ /%20/g;
  $grabresponse = $ua->get($urltarget);
  if (!($grabresponse->is_success)) {
       print ("$urltarget  Failure\n");
       printlog ($grabresponse->status_line. "  Failure\n");
     } else {
       print ("$urltarget  Success\n");
       printlog ($grabresponse->status_line. "  Success\n");
  }
#  $httppost="GET http://$urltarget HTTP/1.0\r\n\r\n";
#  @results=sendraw($httppost);
#  $strhasil = join("",@results);

  #Verify output
  #print $strhasil;
#  if (!($strhasil=~/Security Corp/))
#  {
#  printlog("Not Vulnerable\n");
#  next;
#  }
  #Verify if any shell banner
#  @atmp=split(/\\\r\n/,$strhasil);
#  @atmp=split(/\<\/font\>\<\/pre\>/,$atmp[1]);
#  $banner=$atmp[0];
#  $banner=~s/\n/\r\n/g;
#  $p=length($banner);
#  if ($p>0)
#  {
#  printlog("Vulnerable\n");
#  printlog("$banner\n");
#  }
#  else
#  {
#  printlog("Possible-Vulnerable\n");
#  }
printlog("\n");
} #end of for

} #end of if

#else {
#print $grabresponse->status_line, "\n";
#print "\nFingerprinting failure!\n";
#} #end of else
} #end of while


sub printlog {
print @_[0];
open(lo,">>$log");
print lo @_[0];
close(lo);
return;
}

    Source: geocities.com/iko94/tools