用PHP完成規(guī)范的IP Whois查詢

      由于Internet的歷史原因，apin負(fù)責(zé)整個(gè)網(wǎng)絡(luò)IP的整體規(guī)劃以及北美區(qū) 還有部分非洲地區(qū)的IP分配管理，與此相應(yīng)的是，whois.apin.net是IP whois的root server，標(biāo)準(zhǔn)的IP whois查詢方法是，首先向whois.apin.net查詢某個(gè)IP屬于哪個(gè)大區(qū)，然后再向該區(qū)的whois 服務(wù)器查詢此IP的whois詳細(xì)信息。

      目前負(fù)責(zé) IPV4的大區(qū)
      whois.arin.net 美洲區(qū) 北美
      whois.apnic.net 亞太區(qū) 包括亞洲和澳大利亞
      whois.ripe.net 歐洲區(qū) 歐洲/中東(西亞)/北非
      whois.lacnic.net 拉美區(qū) 拉丁美洲和加勒比海區(qū)域
      非洲網(wǎng)絡(luò)的IP查詢也在whois.arin.net
      向某個(gè)whois服務(wù)器提交whois查詢的過程

   打開一個(gè)到whois服務(wù)器的43端口的連接，然后發(fā)送要查詢的域名 和一個(gè)回車換行。如果要查詢多個(gè)域名，請用空格分開然后從sokect中讀取結(jié)果。最后服務(wù)器將自動斷開連接。

用PHP實(shí)現(xiàn)
1.驗(yàn)證IP(用 ip2long代替 ereg)
2.向 whois.arin.net查詢，如果數(shù)據(jù)庫中沒有相關(guān)信息，會給出一個(gè)Referral Server的URL，格式如下
    ReferralServer:
然后根據(jù)此信息，繼續(xù)查詢

代碼如下

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://","\n",$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\n");   
    //$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服務(wù)器

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

2.BulkRegister (whois.bulkregiter.net) 小心它臨時(shí)封IP，如果大量連接的話

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

4.Go Daddy (whois.godaddy.com)

5.whois.abuse.net