完全盗版u0u0同志的，只不过通过php实现形式体现出来而已。
主要是因为u0u0的perl脚本要安装lwp，但我的debian没带。
php可以象perl一样在控制台下运行，也可以作为网页运行，
现将不成型代码发布出来，今天晚上用它成功访问外网……

Copy code

<?php

function posttohost($url, $data) {
    $url = parse_url($url);

    if (!$url) return "couldn't parse url";

    if (!isset($url['port'])) { $url['port'] = ""; }

    if (!isset($url['query'])) { $url['query'] = ""; }

    $encoded = "";

    while (list($k,$v) = each($data)) {
        $encoded .= ($encoded ? "&" : "");
        $encoded .= rawurlencode($k)."=".rawurlencode($v);
    }

    $fp = fsockopen($url['host'], $url['port'] ? $url['port'] : 80);

    if (!$fp) return "Failed to open socket to $url[host]";
    fputs($fp, sprintf("POST %s%s%s HTTP/1.0\n", $url['path'], $url['query'] ? "?" : "", $url['query']));
#     fputs($fp, "Host: $url[host]\n");
    fputs($fp, "User-Agent: Mozilla/4.0 (compatible; MSIE5.0; Windows NT 5.0)\n");
    fputs($fp, "Content-type: application/x-www-form-urlencoded\n");
    fputs($fp, "Accept: text/html\n");
    fputs($fp, "Content-length: " . strlen($encoded) . "\n");
    fputs($fp, "Connection: close\n\n");
    fputs($fp, "$encoded\n");

    $line = fgets($fp,1024);
    if (!eregi("^HTTP/1\.. 200", $line)) return;

    $results = ""; $inheader = 1;
    while(!feof($fp)) {
        $line = fgets($fp,1024);
        if ($inheader && ($line == "\n" || $line == "\r\n")) {
              $inheader = 0;
        }
        elseif (!$inheader) {
              $results .= $line;
        }
    }
    fclose($fp);

    return $results;
}


function gettohost($url) {
    $url = parse_url($url);

    if (!$url) return "couldn't parse url";

    if (!isset($url['port'])) { $url['port'] = ""; }

    if (!isset($url['query'])) { $url['query'] = ""; }

    $fp = fsockopen($url['host'], $url['port'] ? $url['port'] : 80);

    if (!$fp) return "Failed to open socket to $url[host]";
    fputs($fp, sprintf("GET %s%s%s HTTP/1.0\n", $url['path'], $url['query'] ? "?" : "", $url['query']));
#     fputs($fp, "Host: $url[host]\n");
    fputs($fp, "User-Agent: Mozilla/4.0 (compatible; MSIE5.0; Windows NT 5.0)\n");
    fputs($fp, "Content-type: application/x-www-form-urlencoded\n");
    fputs($fp, "Accept: text/html\n");
#     fputs($fp, "Content-length: " . strlen($encoded) . "\n");
    fputs($fp, "Connection: close\n\n");

    $line = fgets($fp,1024);
    if (!eregi("^HTTP/1\.. 200", $line)) return;

    $results = ""; $inheader = 1;
    while(!feof($fp)) {
        $line = fgets($fp,1024);
        if ($inheader && ($line == "\n" || $line == "\r\n")) {
              $inheader = 0;
        }
        elseif (!$inheader) {
              $results .= $line;
        }
    }
    fclose($fp);

    return $results;
}







$id               = "999999999";
$password     = "1234";
$ip               = "172.24.5.28";
$url         = "[url]http://172.31.130.251/servlet/scpservlet.UserDataReqLoginServlet[/url]";
#$url         = "[url]http://localhost/test2.php?id=1[/url]";

$data =     array(
    'id'               =>     $id,    
    'inputpassword' =>     '',
    'servicetype'     =>     '201+',
    'ip'               =>     $ip,
    'password'         =>     $password,
    'languagetype'     =>     '0',
    'operatingSystem'     =>     '1',
    'httpIp'         =>     '211.95.166.57',
    'RadiusVision'     =>     '1',
    'Domain'         =>     'uestc'
    );

$results = posttohost($url, $data);
echo $results;
$url="[url]http://172.31.130.251/ClientProcess.jspMsgType=100&ISNNO=1000&LocalIP=$ip&UserName=$id&olduserip=$ip&httpIp=211.95.166.57&isPNP=False[/url]";
$results = gettohost($url);
echo $results;


?>

[ 此贴被u0u0在2005-06-17 14:54重新编辑 ]

现在差的就是异常处理了，不过在不知道服务器断源码或客户断源码的情况下，靠猜测很难实现。

不过个人感觉还是PERL的方式好
毕竟让系统做到支持PHP比让他支持PERL要复杂一些
越复杂，就越容易出错。。。。

php在控制台下运行我没弄过，主要是php太多用于[屏蔽]页。

主要是lt上了外网以后就不能访问内网，不然可以考虑把php登陆客户端放在服务器上，不过这样的话会保持一个窗口不关，不断刷新，和那个html的上网客户端又差不多了。
我只是玩玩而已，unix下肯定用perl的比用php的多啊，几乎perl是必备，连装vi都要perl.
只是恰巧遇到没装perl的lwp而装了php而已……

我还真没用php在控制台下运行
FT
可不可以用php来写shell啊

php本来就可以写shell脚本，perl能做的，php几乎都能做，php也是一种很好的脚本语言。
注意安装php为cgi方式就可以了。
测试方法：
编写test.php：
#!/usr/bin/php -q（q参数可以避免输出html标记）
<?="hello,world!"?>
然后在控制台执行：
$./test.php
呵呵，很多人还不知道php可以当shell脚本……

o?
在win下有没有这样的应用啊?

Quote:

下面是引用零点坐标于2005-06-14 15:45发表的:
php本来就可以写shell脚本，perl能做的，php几乎都能做，php也是一种很好的脚本语言。
注意安装php为cgi方式就可以了。
测试方法：
编写test.php：
#!/usr/bin/php -q（q参数可以避免输出html标记）
.......

我晓得了哈。贱人

Quote:

下面是引用rob于2005-06-14 19:03发表的:
o?
在win下有没有这样的应用啊?

win下面一样可以，不过最好把php.exe所在目录添加到path里面，这样在哪里都可以运行php了。

关键是
fputs($fp, "User-Agent: Mozilla/4.0 (compatible; MSIE5.0; Windows NT 5.0)\n");
吧

php can do many things

Quote:

下面是引用owen于2005-06-16 17:42发表的:
关键是
fputs($fp, "User-Agent: Mozilla/4.0 (compatible; MSIE5.0; Windows NT 5.0)n");
吧

实验证明这不是关键的东西。lt不是靠这个判断浏览器的。

对了你这个程序在win下能用不？
我试试不行啊

似乎现在很流行这种用http验证上网的方式，外网也有不少研究这方面的文章。

Quote:

下面是引用rob于2005-06-17 11:34发表的:
对了你这个程序在win下能用不？
我试试不行啊

完全可以啊！我试过的！