Php做的連接埠嗅探器--可以指定網站和連接埠

<?
  //Php做的連接埠嗅探器--可以指定網站和連接埠
//並返回嗅探結果
    function http_request($server, $port) {
    $data = "";
    $query = "HEAD / HTTP/1.0";
    $fp = fsockopen($server, $port);
    if($fp) {
    fputs($fp, $query."rnn");
    while(!feof($fp)) {
    $data .= fread($fp, 1000);
    }
    fclose($fp);
    }
    return $data;
    }
    ?>
    <FORM>
    <INPUT TYPE=HIDDEN NAME=action VALUE=query>
    Site: <INPUT TYPE=TEXT NAME=server VALUE="<?echo $server?>"> <SMALL>(ie: www.wackowoh.com)</SMALL><BR>
    Port: <INPUT TYPE=TEXT NAME=port VALUE="80" SIZE="5" MAXLENGTH="5"><BR>
    <INPUT TYPE=SUBMIT VALUE=" OK ">
    </FORM>
    <?
    if($action == "query") {
    $data = http_request($server, $port);
    echo "Connected To $server on port $port.<p>";
    echo "Output: <p><pre>$data</pre><p>";
    }
    ?>