问题挑战:写脚本输出http://proxy.ipcn.org/中的密码

pointer · 发表于 2007-8-30 12:49:52

用perl或php也可以, SHELL更好.
这是一些内容记录, 需要注意的这里给出的已经剥离了HTML标记, 原来还有些HTML标记如<u>和注释.

使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
proxy need authorization proxy user:proxy Pass:ipcnproxylist不能用时重起浏览器密码2小时更换
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
auth required 用户名(U) proxy当前密码串 proxyipcn不能用时重起浏览器不要乱用、滥用密码2小时更换
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
proxy need authorization Username:proxy Password:ipcnsoft不能用时重起浏览器密码2小时更换
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
Authorization Required 代理用户名proxy代理密码串ipcnproxy不能用时restart浏览器密码2小时更换如10:02 12:02
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
need authorization proxyuser: proxy Password: soft.ipcn不能用时重起浏览器密码2小时更换如10:02 12:02
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
Authorization Required 代理用户: proxy代理密码: domain不能用时restart浏览器密码2小时更换如10:02 12:02
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
Authorization Required 代理用户:proxy代理密码:ipcn不能用时restart浏览器密码2小时更换如10:02 12:02
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
proxy need auth proxy username:proxy proxy pass:searchipcn不好用时restart浏览器 2小时更换password
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
auth required 当前用户名 proxy密码 smth.org不可用时重起浏览器不要乱用、滥用密码2小时更换
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
需认证代理用户 proxy代理密码 ipcn不能用时restart浏览器认证密码2小时更换
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
Authorization Required User: proxy Pass: domain.ipcn不能用时restart浏览器密码2小时更换如10:02 12:02
使用自动配置脚本 http://pac.ipcn.org/thu.pac (供清华/教育网用户出国用教育网出国代理)
need authorization 当前用户名(U):proxy密码(P):ipcn.domain不能用时重起浏览器密码2小时更换如10:02 12:02

复制代码

springwind426 · 发表于 2007-8-30 14:19:07

因为输出太不规范，因此不能用脚本简单的处理，因此需要对每一个记录分别进行处理，比较烦

phus · 发表于 2007-8-30 14:26:12

我看楼主是来骗代码的，要大家来接受这个所谓的挑战可以，楼主你先抛砖引玉吧。

pointer · 发表于 2007-8-30 17:30:50

确实想看看别人的代码, 也不用说骗吧.
我用PHP写了个, 需存为UTF-8编码文件:

#!/usr/bin/php
<?php
function ipcn_get_token(&$str)
{
$ret[0]=-127;
$ret[1]="";
if (strlen($str) == 0)
return $ret;
$chr = substr($str, 0, 1);
$str = substr($str, 1);
$ichr = ord($chr);
$gchr = ipcn_get_group($ichr);
$ret[0]= $gchr;
$ret[1]= $chr;
while (strlen($str) && $gchr==ipcn_get_group(ord($str{0}))) {
$ret[1].= $str{0};
$str = substr($str, 1);
}
return $ret;
}
function ipcn_split_tokens($str)
{
$ret[0]=array();
$ret[1]=array();
while (strlen($str)) {
$tk = ipcn_get_token($str);
//echo "{".$tk[0].":".$tk[1]."}";
array_push($ret[0], $tk[0]);
array_push($ret[1], $tk[1]);
}
return $ret;
}
function ipcn_get_group($ichr)
{
if ($ichr >= ord('a') && $ichr <= ord('z')) return 10;
if ($ichr >= ord('A') && $ichr <= ord('Z')) return 10;
if ($ichr == ord('.')) return 10;
if ($ichr > 127) return 20;
if ($ichr == ord(' ')) return 40;
if ($ichr == ord('(')) return 100;
if ($ichr == ord(')')) return 200;
return 10000;
}
function ipcn_getpw($ipcn)
{
$tka=ipcn_split_tokens($ipcn);
$tkg=$tka[0];
$tks=$tka[1];
$len = count($tkg);
$state = 0;
$passwds = array();
for ($i=0;$i<$len;++$i) {
$g = $tkg[$i]; $s=$tks[$i];
//echo "prestate:$state, now str[$g]:{$s}\n";
if ($state<100 && strpos($s, "出国代理")!==false) {
$state=100;
continue;
}
if ($state >= 100 && $state < 1000) {
if (strcasecmp($s, 'user') == 0 ||
strcasecmp($s, 'username') == 0||
strcasecmp($s, 'proxyuser') == 0 )
$state = 1000; // after username;
elseif (strpos($s, "用户")!==false)
$state = 1000;
continue;
}
if ($state == 1000) {
if ($g == 10 && strcasecmp($s, "proxy") ==0 ) {
$state = 2000;// after proxy, now seek for password
}
continue;
}
if ($state == 2000) {
if (strcasecmp($s, 'pass') == 0 ||
strcasecmp($s, 'password')==0)
$state = 3000;
elseif(strpos($s, "密码") !== false)
$state =3000;
continue;
}
if ($state >= 3000 && $state < 4000) {
if ($g == 100) {
$state = 3100;
} else if ($g == 10) {
if ($state == 3100) {
if (strlen($s) > 2) {
array_push($passwds, $s);
$state = 0;
}
} else {
array_push($passwds, $s);
//echo "get passwd: $s\n";
$state = 0;
}
} else if ($g == 200) {
$state = 3200;
}
continue;
}
}
return $passwds;
}
function ipcn_textfrmhtml($html)
{
$start="使用自动配置脚本";
$stop="IE 菜单工具(T)";
$html = strstr($html, $start);
$html = substr($html, 0, strpos($html, $stop));
$html = preg_replace(array("//",
"/<\\/?(br|p|div)>/",
"/<script type=.*?<\\/script>/",
"/<[^>]*>/",
),
array("","\n", "", "", " "), $html);
$fs = "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ"
."ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ";
$hs ="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
$fa = str_split($fs, 3);
$ha = str_split($hs);
$html = str_replace($fa, $ha, $html);
$html = html_entity_decode($html, ENT_NOQUOTES, "UTF-8");
$html = str_replace(" ", " ", $html);
return $html;
}
// first get the html
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, "http://proxy.ipcn.org/");
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
curl_setopt($ch, CURLOPT_BINARYTRANSFER, true);
$ipcnhtml = curl_exec($ch);
if ($ipcnhtml === false) {
echo curl_error($ch);
die("\nget html failed!, sorry.\n");
}
curl_close($ch);
$ipcnhtml = iconv("GBK", "UTF-8", $ipcnhtml);
$ipcntext = ipcn_textfrmhtml($ipcnhtml);
$passwds = ipcn_getpw($ipcntext);
if (count($passwds)!=1) {
print_r($passwds);
die("sorry, get none or more passwords?\n");
}
$passwd = $passwds[0];
echo "$passwd\n";
?>

复制代码

zeroliu · 发表于 2007-9-13 15:30:28

这是我的 perl 代码，只提取其中的密码。

对于最后一行，没有想到好办法，只好单独设置正则表达式。
哪位有更好的方法，请不吝赐教。

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
my $usage = "$0 <file>";
my $file = shift or die $usage, "\n";
my $line_id = 0;
open (FH, "<:utf8", $file) or die "%!\n";
while (my $line = <FH>) {
$line_id++;
chomp($line);
if ($line =~ /密码[\w:\s]*?([a-zA-Z.]+)/) {
print $line_id, "\t==>\t",$1, "\n";
}
elsif ($line =~ /[pP]ass\w*:\s*([a-zA-Z.]+)/) {
print $line_id, "\t==>\t",$1, "\n";
}
elsif ($line =~ /$P$:([a-zA-Z.]+)/) {
print $line_id, "\t==>\t",$1, "\n";
}
else {
next;
}
}
close(FH);

复制代码

输出结果

2 ==> ipcnproxylist
5 ==> proxyipcn
8 ==> ipcnsoft
11 ==> ipcnproxy
14 ==> soft.ipcn
18 ==> domain
21 ==> ipcn
24 ==> searchipcn
27 ==> smth.org
30 ==> ipcn
33 ==> domain.ipcn
36 ==> ipcn.domain

复制代码

		自动登录	找回密码
密码			注册

问题挑战:写脚本输出http://proxy.ipcn.org/中的密码

浏览过的版块