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

Quote:

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

我晓得了哈。贱人