用PHP實現標準的IPWhois查詢

由於Internet的曆史原因，apin負責整個網路IP的整體規劃以及北美區 還有部分非洲地區的IP分配治理，與此相應的是，whois.apin.net是IP whois的root server，標準的IP whois查詢方法是，首先向whois.apin.net查詢某個IP屬於哪個大區，然後再向該區的whois 伺服器查詢此IP的whois具體資訊。

目前負責 IPV4的大區
whois.arin.net 美洲區 北美
whois.apnic.net 亞太地區區 包括亞洲和澳大利亞
whois.ripe.net 歐洲區 歐洲/中東(西亞)/北非
whois.lacnic.net 拉美區 拉丁美洲和加勒比海地區
非洲網路的IP查詢也在whois.arin.net
向某個whois伺服器提交whois查詢的過程

開啟一個到whois伺服器的43連接埠的串連，然後發送要查詢的網域名稱 和一個斷行符號換行。假如要查詢多個網域名稱，請用空格分開然後從sokect中讀取結果。最後伺服器將自動中斷連線。

用PHP實現
1.驗證IP(用 ip2long代替 ereg)
2.向 whois.arin.net查詢，假如資料庫中沒有相關資訊，會給出一個Referral Server的URL，格式如下
ReferralServer:
然後根據此資訊，繼續查詢

代碼如下

whoisip.php

<?php
include_once "lang.inc.php";

$IP = isset($_GET['ip'])?$_GET['ip']:'blank';
if (-1 === ip2long($ip))
die(str_replace('%IP%', $IP, $Text['ip_invalid']));

echo GetWhois($IP);

function GetWhois($IP)
{
global $Text;
$rootwhois = 'whois.arin.net';
$buffer = str_replace('%SERVER%', $rootwhois, $Text['sock_connect']);
$buffer1 = ReadSocket($rootwhois,$IP);
if ($buffer1 !== '')
{
$whois = SubStrByTag("ReferralServer: whois://"," ",$buffer1);
//remove port number ":43";
if ( ($pos=strpos($whois,":")) !== FALSE)
{
$whois = substr($whois, 0,$pos);
}
if ($whois !== '')
{
$buffer .= str_replace('%SERVER%', $whois, $Text['sock_connect']);
$buffer .= ReadSocket($whois,$IP);
}
else
{
$buffer .= $buffer1;
}
}
return nl2br($buffer);
}

function SubStrByTag($firstTag,$secondTag,&$longStr)
{
$firstPos = strpos ($longStr,$firstTag);
$ret = '';
if ($firstPos !== FALSE)
{
$secondPos = strpos ($longStr,$secondTag,$firstPos);
if ($secondPos !== FALSE)
{
$firstPos = strlen($firstTag);
$ret = substr($longStr,$firstPos,$secondPos-$firstPos);
}
}
return $ret;
}

function ReadSocket($whois,$ip)
{
global $Text;
$buffer = '';
if (!$sock = fsockopen( $whois, 43, $errNum, $errStr, 20))
{
$buffer = str_replace('%SERVER%', $whois, $Text['sock_fail']);
}
else
{
fputs($sock,"$ip ");
//$buffer = fread($sock, 8192);
while(!feof($sock)) $buffer.=fgets($sock, 8192);
fclose($sock);
}
return $buffer;
}

?>

語言檔案:
lang.inc.php

<?php
$Text = Array(
'ip_invalid'=>'I want to get a valid IP, but it is [%IP%].',
'sock_connect'=>'Ask %SERVER% ...
',
'sock_fail'=>'Cannot connect to the host:%SERVER%'
);

?>

其他有名的whois伺服器

1.Tucows (whois.opensrs.net) 一次只能一個串連
dnsstuff就是查詢的它

2.BulkRegister (whois.bulkregiter.net) 小心它臨時封IP，假如大量串連的話

3.Network Solutions (whois.networksolutions.com) 一天只能查1000次

4.Go Daddy (whois.godaddy.com)

5.whois.abuse.net