<?php 
/** 
*@ date         2010.12.21 
注:文件頭 [第一條索引的偏移量 (4byte)] + [最后一條索引的偏移地址 (4byte)]     8字節(jié) 
記錄區(qū) [結(jié)束ip (4byte)] + [地區(qū)1] + [地區(qū)2]                                4字節(jié)+不定長 
索引區(qū) [開始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不存在，請去網(wǎng)上 <a href='http://m.survivalescaperooms.com/softs/10529.html'>下載純真ip數(shù)據(jù) 庫</a>, 'qqwry.dat' 放到當(dāng)前目錄下");   //二制方式打開 
$this->firstip = $this->get4b(); //第一條ip索引的絕對偏移地址 
$this->lastip = $this->get4b();  //最后一條ip索引的絕對偏移地址 
$this->totalip =($this->lastip - $this->firstip)/7 ; //ip總數(shù) 索引區(qū)是定長的7個(gè)字節(jié),在此要除以7, 
register_shutdown_function(array($this,"closefp"));  //為了兼容php5以下版本,本類沒有用析構(gòu)函數(shù),自動關(guān)閉ip庫. 
} 
/* 
|---------------------------------------------------------------------------- 
| 關(guān)閉ip庫 
|---------------------------------------------------------------------------- 
| 
*/ 
function closefp(){ 
fclose($this->fp); 
} 
/* 
|---------------------------------------------------------------------------- 
| 讀取4個(gè)字節(jié)并將解壓成long的長模式 
|---------------------------------------------------------------------------- 
| 
*/ 
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通過ip2long轉(zhuǎn)成ipv4的互聯(lián)網(wǎng)地址,再將他壓縮成big-endian字節(jié)序 ,用來和索引區(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   用來確定地址是否重定向了 
|---------------------------------------------------------------------------- 
| 
*/ 
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)換成長整型 
$firstip=0;                 //搜索的上邊界 
$lastip=$this->totalip;     //搜索的下邊界 
$ipoffset=$this->lastip;    //初始化為最后一條ip地址的偏移地址 
while ($firstip <= $lastip){ 
$i=floor(($firstip + $lastip) / 2);          //計(jì)算近似中間記錄 floor函數(shù)記算給定浮點(diǎn)數(shù)小的最大整數(shù),說白了就是四舍五也舍 
fseek($this->fp,$this->firstip + $i * 7);    //定位指針到中間記錄 
$startip=strrev(fread($this->fp,4));         //讀取當(dāng)前索引區(qū)內(nè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)的絕對編移地址 
$ipoffset=$ip_offset["offset"]; 
$address["ip"]=$ip_offset["ip"]; 
fseek($this->fp,$ipoffset);      //定位到索引區(qū) 
$address["startip"]=long2ip($this->get4b()); //索引區(qū)內(nè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有可能重定向,有可能沒有 
break; 
default: //地區(qū)1,地區(qū)2都沒有重定向 
fseek($this->fp,$address_offset);        //定位指針到重定向的地址 
$address["area1"]=$this->getstr(); 
$address["area2"]=$this->readaddress(); 
break; 
} 
break; 
case 2: //地區(qū)1重定向 地區(qū)2沒有重定向 
$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都沒有重定向 
fseek($this->fp,$address_offset+4); 
$address["area1"]=$this->getstr(); 
$address["area2"]=$this->readaddress(); 
break; 
} 
//*過濾一些無用數(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(m.survivalescaperooms.com); 
echo '<pre>'; 
print_r($address); 
?>