具體實(shí)現(xiàn)方法如下：

代碼如下:

<?php

/**

*@ date 2010.12.21

注:文件頭 [第一條索引的偏移量 (4byte)] + [最后一條索引的偏移地址 (4byte)] 8字節(jié)

記錄區(qū) [結(jié)束ip (4byte)] + [地區(qū)1] + [地區(qū)2] 4字節(jié)+不定長(zhǎng)

索引區(qū) [開(kāi)始ip (4byte)] + [指向記錄區(qū)的偏移地址 (3byte)] 7字節(jié)

*/

class iplocation{

var $fp;

var $firstip; //第一條ip索引的偏移地址

var $lastip; //最后一條ip索引的偏移地址

var $totalip; //總ip數(shù)

/*

|----------------------------------------------------------------------------

| 構(gòu)造函數(shù),初始化一些變量

|----------------------------------------------------------------------------

|

*/

function iplocation($datfile = qqwry.dat){

$this->fp=fopen($datfile,'rb')or die(qqwry.dat不存在，請(qǐng)去網(wǎng)上 <a >下載純真ip數(shù)據(jù) 庫(kù)</a>, 'qqwry.dat' 放到當(dāng)前目錄下); //二制方式打開(kāi)

$this->firstip = $this->get4b(); //第一條ip索引的絕對(duì)偏移地址

$this->lastip = $this->get4b(); //最后一條ip索引的絕對(duì)偏移地址

$this->totalip =($this->lastip - $this->firstip)/7 ; //ip總數(shù) 索引區(qū)是定長(zhǎng)的7個(gè)字節(jié),在此要除以7,

register_shutdown_function(array($this,closefp)); //為了兼容php5以下版本,本類沒(méi)有用析構(gòu)函數(shù),自動(dòng)關(guān)閉ip庫(kù).

}

/*

|----------------------------------------------------------------------------

| 關(guān)閉ip庫(kù)

|----------------------------------------------------------------------------

|

*/

function closefp(){

fclose($this->fp);

}

/*

|----------------------------------------------------------------------------

| 讀取4個(gè)字節(jié)并將解壓成long的長(zhǎng)模式

|----------------------------------------------------------------------------

|

*/

function get4b(){

$str=unpack(v,fread($this->fp,4));

return $str[1];

}

/*

|----------------------------------------------------------------------------

| 讀取重定向了的偏移地址

|----------------------------------------------------------------------------

|

*/

function getoffset(){

$str=unpack(v,fread($this->fp,3).chr(0));

return $str[1];

}

/*

|----------------------------------------------------------------------------

| 讀取ip的詳細(xì)地址信息

|----------------------------------------------------------------------------

|

*/

function getstr(){

$split=fread($this->fp,1);

while (ord($split)!=0) {

$str .=$split;

$split=fread($this->fp,1);

}

return $str;

}

/*

|----------------------------------------------------------------------------

| 將ip通過(guò)ip2long轉(zhuǎn)成ipv4的互聯(lián)網(wǎng)地址,再將他壓縮成big-endian字節(jié)序 ,用來(lái)和索引區(qū)內(nèi)的ip地址做比較

|----------------------------------------------------------------------------

|

*/

function iptoint($ip){

return pack(n,intval(ip2long($ip)));

}

/*

|----------------------------------------------------------------------------

| 獲取地址信息

|----------------------------------------------------------------------------

|

*/

function readaddress(){

$now_offset=ftell($this->fp); //得到當(dāng)前的指針位址

$flag=$this->getflag();

switch (ord($flag)){

case 0:

$address=;

break;

case 1:

case 2:

fseek($this->fp,$this->getoffset());

$address=$this->getstr();

break;

default:

fseek($this->fp,$now_offset);

$address=$this->getstr();

break;

}

return $address;

}

/*

|----------------------------------------------------------------------------

| 獲取標(biāo)志1或2 用來(lái)確定地址是否重定向了

|----------------------------------------------------------------------------

|

*/

function getflag(){

return fread($this->fp,1);

}

/*

|----------------------------------------------------------------------------

| 用二分查找法在索引區(qū)內(nèi)搜索ip

|----------------------------------------------------------------------------

|

*/

function searchip($ip){

$ip=gethostbyname($ip); //將域名轉(zhuǎn)成ip

$ip_offset[ip]=$ip;

$ip=$this->iptoint($ip); //將ip轉(zhuǎn)換成長(zhǎng)整型

$firstip=0; //搜索的上邊界

$lastip=$this->totalip; //搜索的下邊界

$ipoffset=$this->lastip; //初始化為最后一條ip地址的偏移地址

while ($firstip <= $lastip){

$i=floor(($firstip + $lastip) / 2); //計(jì)算近似中間記錄 floor函數(shù)記算給定浮點(diǎn)數(shù)小的最大整數(shù),說(shuō)白了就是四舍五也舍

fseek($this->fp,$this->firstip + $i * 7); //定位指針到中間記錄

$startip=strrev(fread($this->fp,4)); //讀取當(dāng)前索引區(qū)內(nèi)的開(kāi)始ip地址,并將其little-endian的字節(jié)序轉(zhuǎn)換成big-endian的字節(jié)序

if ($ip < $startip) {

$lastip=$i - 1;

}

else {

fseek($this->fp,$this->getoffset());

$endip=strrev(fread($this->fp,4));

if ($ip > $endip){

$firstip=$i + 1;

}

else {

$ip_offset[offset]=$this->firstip + $i * 7;

break;

}

}

}

return $ip_offset;

}

/*

|----------------------------------------------------------------------------

| 獲取ip地址詳細(xì)信息

|----------------------------------------------------------------------------

|

*/

function getaddress($ip){

$ip_offset=$this->searchip($ip); //獲取ip 在索引區(qū)內(nèi)的絕對(duì)編移地址

$ipoffset=$ip_offset[offset];

$address[ip]=$ip_offset[ip];

fseek($this->fp,$ipoffset); //定位到索引區(qū)

$address[startip]=long2ip($this->get4b()); //索引區(qū)內(nèi)的開(kāi)始ip 地址

$address_offset=$this->getoffset(); //獲取索引區(qū)內(nèi)ip在ip記錄區(qū)內(nèi)的偏移地址

fseek($this->fp,$address_offset); //定位到記錄區(qū)內(nèi)

$address[endip]=long2ip($this->get4b()); //記錄區(qū)內(nèi)的結(jié)束ip 地址

$flag=$this->getflag(); //讀取標(biāo)志字節(jié)

switch (ord($flag)) {

case 1: //地區(qū)1地區(qū)2都重定向

$address_offset=$this->getoffset(); //讀取重定向地址

fseek($this->fp,$address_offset); //定位指針到重定向的地址

$flag=$this->getflag(); //讀取標(biāo)志字節(jié)

switch (ord($flag)) {

case 2: //地區(qū)1又一次重定向,

fseek($this->fp,$this->getoffset());

$address[area1]=$this->getstr();

fseek($this->fp,$address_offset+4); //跳4個(gè)字節(jié)

$address[area2]=$this->readaddress(); //地區(qū)2有可能重定向,有可能沒(méi)有

break;

default: //地區(qū)1,地區(qū)2都沒(méi)有重定向

fseek($this->fp,$address_offset); //定位指針到重定向的地址

$address[area1]=$this->getstr();

$address[area2]=$this->readaddress();

break;

}

break;

case 2: //地區(qū)1重定向 地區(qū)2沒(méi)有重定向

$address1_offset=$this->getoffset(); //讀取重定向地址

fseek($this->fp,$address1_offset);

$address[area1]=$this->getstr();

fseek($this->fp,$address_offset+8);

$address[area2]=$this->readaddress();

break;

default: //地區(qū)1地區(qū)2都沒(méi)有重定向

fseek($this->fp,$address_offset+4);

$address[area1]=$this->getstr();

$address[area2]=$this->readaddress();

break;

}

//*過(guò)濾一些無(wú)用數(shù)據(jù)

if (strpos($address[area1],cz88.net)!=false){

$address[area1]=未知;

}

if (strpos($address[area2],cz88.net)!=false){

$address[area2]= ;

}

return $address;

}

}

/*用法如下:*/

$ip=new iplocation(qqwry.dat);

$address=$ip->getaddress(61.129.51.27);

//$address=$ip->getaddress(www.jb51.net);

echo '<pre>';

print_r($address);

?>

更多信息請(qǐng)查看IT技術(shù)專欄