纯真IP地址数据库（官方下载）
http://www.cz88.net/fox/ipdat.shtml
<?php
/*--------------------------------------------------
ip2address [qqwry.dat]
--------------------------------------------------*/
class ip {
var $fh; //IP数据库文件句柄
var $first; //第一条索引
var $last; //最后一条索引
var $total; //索引总数
//构造函数
function __construct() {
$this->fh = fopen('qqwry.dat', 'rb'); //qqwry.dat文件
$this->first = $this->getLong4();
$this->last = $this->getLong4();
$this->total = ($this->last - $this->first) / 7; //每条索引7字节
}
//检查IP合法性
function checkIp($ip) {
$arr = explode('.',$ip);
if(count($arr) !=4 ) {
return false;
} else {
for ($i=0; $i < 4; $i++) {
if ($arr[$i] <'0' || $arr[$i] > '255') {
return false;
}
}
}
return true;
}
function getLong4() {
//读取little-endian编码的4个字节转化为长整型数
$result = unpack('Vlong', fread($this->fh, 4));
return $result['long'];
}
function getLong3() {
//读取little-endian编码的3个字节转化为长整型数
$result = unpack('Vlong', fread($this->fh, 3).chr(0));
return $result['long'];
}
//查询信息
function getInfo($data = "") {
$char = fread($this->fh, 1);
while (ord($char) != 0) { //国家地区信息以0结束
$data .= $char;
$char = fread($this->fh, 1);
}
return $data;
}
//查询地区信息
function getArea() {
$byte = fread($this->fh, 1); //标志字节
switch (ord($byte)) {
case 0: $area = ''; break; //没有地区信息
case 1: //地区被重定向
fseek($this->fh, $this->getLong3());
$area = $this->getInfo(); break;
case 2: //地区被重定向
fseek($this->fh, $this->getLong3());
$area = $this->getInfo(); break;
default: $area = $this->getInfo($byte); break; //地区没有被重定向
}
return $area;
}
function ip2addr($ip) {
if(!$this -> checkIp($ip)){
return false;
}
$ip = pack('N', intval(ip2long($ip)));
//二分查找
$l = 0;
$r = $this->total;
while($l <= $r) {
$m = floor(($l + $r) / 2); //计算中间索引
fseek($this->fh, $this->first + $m * 7);
$beginip = strrev(fread($this->fh, 4)); //中间索引的开始IP地址
fseek($this->fh, $this->getLong3());
$endip = strrev(fread($this->fh, 4)); //中间索引的结束IP地址
if ($ip < $beginip) { //用户的IP小于中间索引的开始IP地址时
$r = $m - 1;
} else {
if ($ip > $endip) { //用户的IP大于中间索引的结束IP地址时
$l = $m + 1;
} else { //用户IP在中间索引的IP范围内时
$findip = $this->first + $m * 7;
break;
}
}
}
//查询国家地区信息
fseek($this->fh, $findip);
$location['beginip'] = long2ip($this->getLong4()); //用户IP所在范围的开始地址
$offset = $this->getlong3();
fseek($this->fh, $offset);
$location['endip'] = long2ip($this->getLong4()); //用户IP所在范围的结束地址
$byte = fread($this->fh, 1); //标志字节
switch (ord($byte)) {
case 1: //国家和区域信息都被重定向
$countryOffset = $this->getLong3(); //重定向地址
fseek($this->fh, $countryOffset);
$byte = fread($this->fh, 1); //标志字节
switch (ord($byte)) {
case 2: //国家信息被二次重定向
fseek($this->fh, $this->getLong3());
$location['country'] = $this->getInfo();
fseek($this->fh, $countryOffset + 4);
$location['area'] = $this->getArea();
break;
default: //国家信息没有被二次重定向
$location['country'] = $this->getInfo($byte);
$location['area'] = $this->getArea();
break;
}
break;
case 2: //国家信息被重定向
fseek($this->fh, $this->getLong3());
$location['country'] = $this->getInfo();
fseek($this->fh, $offset + 8);
$location['area'] = $this->getArea();
break;
default: //国家信息没有被重定向
$location['country'] = $this->getInfo($byte);
$location['area'] = $this->getArea();
break;
}
//gb2312 to utf-8（去除无信息时显示的CZ88.NET）
foreach ($location as $k => $v) {
$location[$k] = str_replace('CZ88.NET','',iconv('gb2312', 'utf-8', $v));
}
return $location;
}
//析构函数
function __destruct() {
fclose($this->fh);
}
}
$ip = new ip();
$addr = $ip -> ip2addr('IP地址');
print_r($addr);
?>