完全盗版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重新编辑 ]

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

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

Quote:

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

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

Quote:

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

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

Quote:

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

完全可以啊！我试过的！

Quote:

下面是引用liux0229于2005-06-22 01:32发表的:

呵呵，我自己用的版本早就用的是刷新而不是重新登录了。很长时间不在rx上网了，哪天有空的时候把新版本放上来。
曾经考虑过用xui做成firefox/mozilla插件，可惜实在没有时间学xui。而且我个人认为，只要能够在Linux下面上网就可以了，功能太复杂不是太有意义。。。
xui是个好东西阿，不知道谁有所研究？

做成firefox插件不好吧？既然是linux平台就应该给出更大的活动空间，比如我用opera就比firefox多一些。
其实用c写个守护进程也是不错的……
到时候写个脚本，/etc/init.d/rxnet start就可以上网了，/etc/init.d/rxnet stop就可以断掉……嗯，有空就这么办，哈哈。