PHP用於網路的工具函數函式庫

PHP用於網路的工具函數函式庫

/*
PHP 網路工具包 v0.1 08.05.2000,
透過 waddler(@netlife.fi)
phpnettoolpack.sourceforge.net
將在 GNU GPL 下分發
*/

// whois(主機名稱 [,使用者名稱,[連接埠]])
函式 whois ($a_server, $a_query="", $a_port=43) {
$sock = fsockopen($a_server, $a_port, &$errno, &$errstr, 10);
如果 (!$sock)
{
echo "$errstr ($errno)
n";
} 其他 {
fputs($sock, "$a_queryrn");
while(!feof($sock))
{
$buf = fgets($sock,128);
if (ereg("Whois 伺服器：", $buf))
{
$a_server = str_replace("Whois 伺服器：", "", $buf);
$a_server = 修剪($a_server);
}
}
fclose($sock);

如果（$a_server）
{
PRint "$a_query 已在 $a_server:
註冊";
$sock = fsockopen($a_server, 43, &$errno, &$errstr, 10);
如果（！$襪子）
{
echo "無法在連接埠 $a_port.n 上開啟與 $a_server 的連線";
echo "$errstr ($errno)
n";
} 其他 {
fputs($sock, "$a_queryrn");
while(!feof($sock))
{
迴聲 fgets($sock,128);
}
fclose($sock);
}
} 其他 {
echo "未找到 $a_query。
";
}
}
}


// 手指(主機名稱[,使用者名稱,[連接埠]])
函數手指 ($a_server, $a_query="", $a_port=79) {
$sock=fsockopen($a_server,$a_port, &$errno, &$errstr, 10);
如果 (!$sock)
{
$ret_str = "$errstr ($errno)
n";
} 其他 {
fputs($sock,"$a_queryn");
while (!feof($sock)) { $ret_str .= fgets($sock,128); }
fclose($sock);
}
回顯 $ret_str;
回 $ret_str;
}


// 追蹤路由（主機名稱）
函數traceroute ($a_query) {
exec("traceroute $a_query",$ret_strs);
$str_count = 計數($ret_strs);
for ($count=0; $count 列印“$count/$str_count”。 $ret_strs[$count]。 “n”；
}


// ------------------------------------------------ -----------


$app_name = "PHP 網路工具包";
$app_version = "0.1";

$工具=陣列(
“手指”=> “手指”，
“追蹤路線”=> “追蹤路線”，
“誰是”=> “誰是？”
）；

// 包含在 時在 html 檔案上..
if ($tool=="listtools")
{
while (list($key, $val) = every($TOOLS)) {
print " ".$val."n";
}
出口;
}

// 列印適當的 html 標題
列印“”；
如果（$工具）
{
印出“n”；
印出“n

”.$tool.” for “.$query.”..

n”；
} 其他 {
print "n";
print "n

".$app_name."

n";
}

// 檢查他們想要使用什麼工具並執行必要的操作
開關（$工具）{
案例“手指”：
如果（$查詢）
{
印出“

n”； <br>
手指（$伺服器，$查詢）； <br>
列印“

”；
} 其他 {
？ >

"方法=“帖子”>
伺服器：

查詢：


表格>

}
休息;

案例「追蹤路線」：
如果（$查詢）
{
印出“

n”； <br>
追蹤路由（$查詢）； <br>
列印“

”；
} 其他 {
？ >

"方法=“帖子”>
查詢：


表格>

}
休息;


案例“whois”：
如果（$查詢）
{
印出“

n”； <br>
whois($伺服器,$查詢); <br>
列印“

”；
} 其他 {
？ >  

"方法=“帖子”>
這將找到 .com、.org 和 .net 網域

伺服器：

查詢：


表格>

}
休息;

預設：
print "

目前支援的工具有：n";
while (list($key, $val) = every($TOOLS)) {
echo "
• ".$val."
n";
}
列印“

n”；
休息;
}

print "n

---

".$app_name." v".$app_version."n";
列印“n”；

？ > 

以上就介紹了PHP用於網路的工具函數庫，包括了方面的內容，希望對PHP教程有興趣的朋友有所幫助。