当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 6 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 带验证的proxy脚本
帖子发表于 : 2009-06-03 13:58 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
代码:
2009-06-03 13:59:55 三 ~/应用/脚本 
☎ proxy-CN-pac.pl
WARNING: timestamping does nothing in combination with -O. See the manual
for details.

--2009-06-03 13:59:59--  http://www.proxycn.com/html_proxy/http-1.html
Resolving www.proxycn.com... 221.130.201.146
Connecting to www.proxycn.com|221.130.201.146|:80... connected.
HTTP request sent, awaiting response... 200 OK
Length: 90835 (89K) [text/html]
Saving to: `STDOUT'

100%[================================================>] 90,835      --.-K/s   in 0.1s   

2009-06-03 14:00:01 (748 KB/s) - `-' saved [90835/90835]

只取国内的ProxyCN的代理地址,且不丢包的。
--189.112.246.145:8080--20%
--187.4.83.62:8080--0%
proxyCN         ="PROXY 187.4.83.62:8080";
2009-06-03 14:00:11 三 ~/应用/脚本 
☎ cat ~/.opera/exp-opera.pac
function FindProxyForURL(url, host){

proxyTor        ="PROXY localhost:8118";
proxyOpenDNS    ="PROXY 208.67.222.222";
proxyOpenDNS1   ="PROXY 208.67.220.220";
proxyCN         ="PROXY 187.4.83.62:8080";

///home/exp/.opera/exp-opera.pac
//or http://pac.ipcn.org/thu.pac
//需认证 proxyuser:proxy Password:ipcnsoft
//http://proxy.ipcn.org/

host=host.toLowerCase();

if(
        dnsDomainIs(host,"wikipedia.org")
        ||dnsDomainIs(host,"mediawiki.org")
        ||dnsDomainIs(host,"wikiquote.org")
        ||dnsDomainIs(host, ".blogspot.com")
        ||dnsDomainIs(host, ".googlepages.com")
        ||dnsDomainIs(host, ".wordpress.com")
        ||dnsDomainIs(host, ".livejournal.com")
        ||dnsDomainIs(host, "my.opera.com")
        ||dnsDomainIs(host, "my.allhabit.com")
)
//        return "PROXY 127.0.0.1:8118";
return proxyCN;
else return "DIRECT";
}

2009-06-03 14:00:17 三 ~/应用/脚本 
☎ cat proxy-CN-pac.pl
#!/usr/bin/perl

my $C=`wget -N -O - http://www.proxycn.com/html_proxy/http-1.html`;
my @i=$C=~/<TR.*?<\/TR>/gs;
print "只取国内的ProxyCN的代理地址,且不丢包的。\n";
foreach (@i){
if (/>ProxyCN</) {
/clip\(\'(.*?)\'\)/;
$C=$1;
print "--".$1;
(my $re)=split(":",$1); $re=`ping $re -c 5`; $re=~/\b(\d*)% packet loss/;
print "--".$1."%\n";
next if ($1>0);
$C="proxyCN\t\t=\"PROXY\ $C\"\;";
print $C."\n";
last;
}
}
die "没找到适合的代理。\n" if ! $C=~/^proxyCN/;

#`sed "s/^proxyCN.*/proxyCN\t\t=\"PROXY\ ${r[0]}\"\;/" -i "/home/exp/.opera/exp-opera.pac"`;
my $f="/home/exp/.opera/exp-opera.pac";
open (PAC,$f) or die("没有pac文件。\n");
open (PACNEW,">$f-new");
while(<PAC>){
if (! /^proxyCN/){
print PACNEW;
}
else{
print PACNEW $C."\n";
}
}
close(PAC);
close(PACNEW);
rename "$f-new","$f";


_________________
● 鸣学


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 带验证的proxy脚本
帖子发表于 : 2009-06-03 14:23 
头像

注册: 2007-05-08 16:26
帖子: 2058
地址: 火星内核某分子内某原子核内
系统: arch
送出感谢: 20
接收感谢: 6
太强了,原来BASH这么牛。


_________________
笔记本 :
F208S : gentoo
A460P i3G D6 : UBUNTU + WIN7
UN43D1 : UBUNTU + WIN7
1000人超级QQ群 LINUX + WIN : 31465544 或 18210387


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 带验证的proxy脚本
帖子发表于 : 2009-06-03 16:19 
头像

注册: 2007-09-29 3:09
帖子: 5773
送出感谢: 0 次
接收感谢: 3
好少用代理...


_________________
HUNT Unfortunately No Talent...


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 带验证的proxy脚本
帖子发表于 : 2009-06-03 17:02 
头像

注册: 2006-09-10 22:36
帖子: 10663
地址: 北京
送出感谢: 1
接收感谢: 16
代理太麻烦了


_________________
看破、放下、自在、随缘、念佛
真诚、清净、平等、正觉、慈悲


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 带验证的proxy脚本
帖子发表于 : 2009-06-03 17:04 
头像

注册: 2006-04-12 20:05
帖子: 8495
地址: 杭州
送出感谢: 0 次
接收感谢: 8
sevk 写道:
太强了,原来BASH这么牛。

人家明明是perl...


_________________
关注我的blog: ε==3


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 带验证的proxy脚本
帖子发表于 : 2009-06-06 10:09 
头像

注册: 2007-05-08 16:26
帖子: 2058
地址: 火星内核某分子内某原子核内
系统: arch
送出感谢: 20
接收感谢: 6
bones7456 写道:
sevk 写道:
太强了,原来BASH这么牛。

人家明明是perl...


哦,看错了,原来是 perl. :em06


_________________
笔记本 :
F208S : gentoo
A460P i3G D6 : UBUNTU + WIN7
UN43D1 : UBUNTU + WIN7
1000人超级QQ群 LINUX + WIN : 31465544 或 18210387


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 6 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译