转载纯真ip库

时间：2015-07-16 18:58:55 阅读：118 评论：0 收藏：0 [点我收藏+]

标签：

http://blog.csdn.net/clin003/archive/2007/08/14/1743157.aspx

利用 QQWry.Dat 实现 IP 地址高效检索（PHP）
根据 LumaQQ 开发者文档中的纯真 IP 数据库格式详解，我编写了一个 PHP 的查询 IP 所在地区信息的类。在编写过程中发现纯真 IP 数据库格式详解中关于记录区的描述不是很全面，不过出入也不是很大，所以我没必要再写一份纯真 IP 数据库的格式说明了，大家感兴趣的话，读一读下面的代码应该就能看出来了。代码中加了很详细的注释，应该很容易读懂的。

在创建这个类的一个实例后，实例中就保存了打开的文件指针和一些查询需要的信息，每次查询时不需要重新打开文件，直到页面执行结束后，打开的文件才会自动关闭。这样。在一个页面内进行多次查询时，效率是很高的。并且此类不仅可以直接查询 IP，还可以自动将域名解析为 IP 进行查询。

下面是程序代码：

Java代码

<?php
/**
* IP 地理位置查询类
*
* @author 马秉尧
* @version 1.5
* @copyright 2005 CoolCode.CN
*/
class IpLocation {
/**
* QQWry.Dat文件指针
*
* @var resource
*/
var $fp;
/**
* 第一条IP记录的偏移地址
*
* @var int
*/
var $firstip;
/**
* 最后一条IP记录的偏移地址
*
* @var int
*/
var $lastip;
/**
* IP记录的总条数（不包含版本信息记录）
*
* @var int
*/
var $totalip;
/**
* 返回读取的长整型数
*
* @access private
* @return int
*/
function getlong() {
//将读取的little-endian编码的4个字节转化为长整型数
$result = unpack(‘Vlong‘, fread($this->fp, 4));
return $result[‘long‘];
}
/**
* 返回读取的3个字节的长整型数
*
* @access private
* @return int
*/
function getlong3() {
//将读取的little-endian编码的3个字节转化为长整型数
$result = unpack(‘Vlong‘, fread($this->fp, 3).chr(0));
return $result[‘long‘];
}
/**
* 返回压缩后可进行比较的IP地址
*
* @access private
* @param string $ip
* @return string
*/
function packip($ip) {
// 将IP地址转化为长整型数，如果在PHP5中，IP地址错误，则返回False，
// 这时intval将Flase转化为整数-1，之后压缩成big-endian编码的字符串
return pack(‘N‘, intval(ip2long($ip)));
}
/**
* 返回读取的字符串
*
* @access private
* @param string $data
* @return string
*/
function getstring($data = "") {
$char = fread($this->fp, 1);
while (ord($char) > 0) { // 字符串按照C格式保存，以?结束
$data .= $char; // 将读取的字符连接到给定字符串之后
$char = fread($this->fp, 1);
}
return $data;
}
/**
* 返回地区信息
*
* @access private
* @return string
*/
function getarea() {
$byte = fread($this->fp, 1); // 标志字节
switch (ord($byte)) {
case 0: // 没有区域信息
$area = "";
break;
case 1:
case 2: // 标志字节为1或2，表示区域信息被重定向
fseek($this->fp, $this->getlong3());
$area = $this->getstring();
break;
default: // 否则，表示区域信息没有被重定向
$area = $this->getstring($byte);
break;
}
return $area;
}
/**
* 根据所给 IP 地址或域名返回所在地区信息
*
* @access public
* @param string $ip
* @return array
*/
function getlocation($ip) {
if (!$this->fp) return null; // 如果数据文件没有被正确打开，则直接返回空
$location[‘ip‘] = gethostbyname($ip); // 将输入的域名转化为IP地址
$ip = $this->packip($location[‘ip‘]); // 将输入的IP地址转化为可比较的IP地址
// 不合法的IP地址会被转化为255.255.255.255
// 对分搜索
$l = 0; // 搜索的下边界
$u = $this->totalip; // 搜索的上边界
$findip = $this->lastip; // 如果没有找到就返回最后一条IP记录（QQWry.Dat的版本信息）
while ($l <= $u) { // 当上边界小于下边界时，查找失败
$i = floor(($l + $u) / 2); // 计算近似中间记录
fseek($this->fp, $this->firstip + $i * 7);
$beginip = strrev(fread($this->fp, 4)); // 获取中间记录的开始IP地址
// strrev函数在这里的作用是将little-endian的压缩IP地址转化为big-endian的格式
// 以便用于比较，后面相同。
if ($ip < $beginip) { // 用户的IP小于中间记录的开始IP地址时
$u = $i - 1; // 将搜索的上边界修改为中间记录减一
}
else {
fseek($this->fp, $this->getlong3());
$endip = strrev(fread($this->fp, 4)); // 获取中间记录的结束IP地址
if ($ip > $endip) { // 用户的IP大于中间记录的结束IP地址时
$l = $i + 1; // 将搜索的下边界修改为中间记录加一
}
else { // 用户的IP在中间记录的IP范围内时
$findip = $this->firstip + $i * 7;
break; // 则表示找到结果，退出循环
}
}
}
//获取查找到的IP地理位置信息
fseek($this->fp, $findip);
$location[‘beginip‘] = long2ip($this->getlong()); // 用户IP所在范围的开始地址
$offset = $this->getlong3();
fseek($this->fp, $offset);
$location[‘endip‘] = long2ip($this->getlong()); // 用户IP所在范围的结束地址
$byte = fread($this->fp, 1); // 标志字节
switch (ord($byte)) {
case 1: // 标志字节为1，表示国家和区域信息都被同时重定向
$countryOffset = $this->getlong3(); // 重定向地址
fseek($this->fp, $countryOffset);
$byte = fread($this->fp, 1); // 标志字节
switch (ord($byte)) {
case 2: // 标志字节为2，表示国家信息又被重定向
fseek($this->fp, $this->getlong3());
$location[‘country‘] = $this->getstring();
fseek($this->fp, $countryOffset + 4);
$location[‘area‘] = $this->getarea();
break;
default: // 否则，表示国家信息没有被重定向
$location[‘country‘] = $this->getstring($byte);
$location[‘area‘] = $this->getarea();
break;
}
break;
case 2: // 标志字节为2，表示国家信息被重定向
fseek($this->fp, $this->getlong3());
$location[‘country‘] = $this->getstring();
fseek($this->fp, $offset + 8);
$location[‘area‘] = $this->getarea();
break;
default: // 否则，表示国家信息没有被重定向
$location[‘country‘] = $this->getstring($byte);
$location[‘area‘] = $this->getarea();
break;
}
if ($location[‘country‘] == " CZ88.NET") { // CZ88.NET表示没有有效信息
$location[‘country‘] = "未知";
}
if ($location[‘area‘] == " CZ88.NET") {
$location[‘area‘] = "";
}
return $location;
}
/**
* 构造函数，打开 QQWry.Dat 文件并初始化类中的信息
*
* @param string $filename
* @return IpLocation
*/
function IpLocation($filename = "QQWry.Dat") {
$this->fp = 0;
if (($this->fp = @fopen($filename, ‘rb‘)) !== false) {
$this->firstip = $this->getlong();
$this->lastip = $this->getlong();
$this->totalip = ($this->lastip - $this->firstip) / 7;
//注册析构函数，使其在程序执行结束时执行
register_shutdown_function(array(&$this, ‘_IpLocation‘));
}
}
/**
* 析构函数，用于在页面执行结束后自动关闭打开的文件。
*
*/
function _IpLocation() {
if ($this->fp) {
fclose($this->fp);
}
$this->fp = 0;
}
}
?>

Java代码

Discuz 5.0 不在使用自己的IP数据，而是使用纯真IP的数据格式，存取纯真IP数据库稍微有点麻烦，它的存储格式比较特殊也很有趣，具体的格式分析参考下面两个链接，其他语言实现参考文章末的链接。
《纯真IP数据库格式详解》
链接一：http://blog.csdn.Net/heiyeshuwu/archive/2006/05/12/725675.aspx
链接二：http://lumaqq.Linuxsir.org/article/qqwry_format_detail.html
纯真IP数据库官网：http://www.cz88.Net/ip/
纯真IP数据库下载：http://update.cz88.Net/soft/qqwry.rar
以下函数conrvertip()位于 Discuz!5_GBK/upload/include/misc.func.Php 路径中，有兴趣可以具体去阅读分析。（下面代码我做了简单的修改，更便于阅读，核心没有修改）
<?
//===================================
//
// 功能：IP地址获取真实地址函数
// 参数：$ip - IP地址
// 作者：[Discuz!] (C) Comsenz Inc.
//
//===================================
function convertip($ip) {
//IP数据文件路径
$dat_path = ‘QQWry.Dat‘;
//检查IP地址
if(!preg_match("/^d{1,3}.d{1,3}.d{1,3}.d{1,3}$/", $ip)) {
return ‘IP Address Error‘;
}
//打开IP数据文件
if(!$fd = @fopen($dat_path, ‘rb‘)){
return ‘IP date file not exists or access denied‘;
}
//分解IP进行运算，得出整形数
$ip = explode(‘.‘, $ip);
$ipNum = $ip[0] * 16777216 + $ip[1] * 65536 + $ip[2] * 256 + $ip[3];
//获取IP数据索引开始和结束位置
$DataBegin = fread($fd, 4);
$DataEnd = fread($fd, 4);
$ipbegin = implode(‘‘, unpack(‘L‘, $DataBegin));
if($ipbegin < 0) $ipbegin += pow(2, 32);
$ipend = implode(‘‘, unpack(‘L‘, $DataEnd));
if($ipend < 0) $ipend += pow(2, 32);
$ipAllNum = ($ipend - $ipbegin) / 7 + 1;
$BeginNum = 0;
$EndNum = $ipAllNum;
//使用二分查找法从索引记录中搜索匹配的IP记录
while($ip1num>$ipNum || $ip2num<$ipNum) {
$Middle= intval(($EndNum + $BeginNum) / 2);
//偏移指针到索引位置读取4个字节
fseek($fd, $ipbegin + 7 * $Middle);
$ipData1 = fread($fd, 4);
if(strlen($ipData1) < 4) {
fclose($fd);
return ‘System Error‘;
}
//提取出来的数据转换成长整形，如果数据是负数则加上2的32次幂
$ip1num = implode(‘‘, unpack(‘L‘, $ipData1));
if($ip1num < 0) $ip1num += pow(2, 32);
//提取的长整型数大于我们IP地址则修改结束位置进行下一次循环
if($ip1num > $ipNum) {
$EndNum = $Middle;
continue;
}
//取完上一个索引后取下一个索引
$DataSeek = fread($fd, 3);
if(strlen($DataSeek) < 3) {
fclose($fd);
return ‘System Error‘;
}
$DataSeek = implode(‘‘, unpack(‘L‘, $DataSeek.chr(0)));
fseek($fd, $DataSeek);
$ipData2 = fread($fd, 4);
if(strlen($ipData2) < 4) {
fclose($fd);
return ‘System Error‘;
}
$ip2num = implode(‘‘, unpack(‘L‘, $ipData2));
if($ip2num < 0) $ip2num += pow(2, 32);
//没找到提示未知
if($ip2num < $ipNum) {
if($Middle == $BeginNum) {
fclose($fd);
return ‘Unknown‘;
}
$BeginNum = $Middle;
}
}
//下面的代码读晕了，没读明白，有兴趣的慢慢读
$ipFlag = fread($fd, 1);
if($ipFlag == chr(1)) {
$ipSeek = fread($fd, 3);
if(strlen($ipSeek) < 3) {
fclose($fd);
return ‘System Error‘;
}
$ipSeek = implode(‘‘, unpack(‘L‘, $ipSeek.chr(0)));
fseek($fd, $ipSeek);
$ipFlag = fread($fd, 1);
}
if($ipFlag == chr(2)) {
$AddrSeek = fread($fd, 3);
if(strlen($AddrSeek) < 3) {
fclose($fd);
return ‘System Error‘;
}
$ipFlag = fread($fd, 1);
if($ipFlag == chr(2)) {
$AddrSeek2 = fread($fd, 3);
if(strlen($AddrSeek2) < 3) {
fclose($fd);
return ‘System Error‘;
}
$AddrSeek2 = implode(‘‘, unpack(‘L‘, $AddrSeek2.chr(0)));
fseek($fd, $AddrSeek2);
} else {
fseek($fd, -1, SEEK_CUR);
}
while(($char = fread($fd, 1)) != chr(0))
$ipAddr2 .= $char;
$AddrSeek = implode(‘‘, unpack(‘L‘, $AddrSeek.chr(0)));
fseek($fd, $AddrSeek);
while(($char = fread($fd, 1)) != chr(0))
$ipAddr1 .= $char;
} else {
fseek($fd, -1, SEEK_CUR);
while(($char = fread($fd, 1)) != chr(0))
$ipAddr1 .= $char;
$ipFlag = fread($fd, 1);
if($ipFlag == chr(2)) {
$AddrSeek2 = fread($fd, 3);
if(strlen($AddrSeek2) < 3) {
fclose($fd);
return ‘System Error‘;
}
$AddrSeek2 = implode(‘‘, unpack(‘L‘, $AddrSeek2.chr(0)));
fseek($fd, $AddrSeek2);
} else {
fseek($fd, -1, SEEK_CUR);
}
while(($char = fread($fd, 1)) != chr(0)){
$ipAddr2 .= $char;
}
}
fclose($fd);
//最后做相应的替换操作后返回结果
if(preg_match(‘/http/i‘, $ipAddr2)) {
$ipAddr2 = ‘‘;
}
$ipaddr = "$ipAddr1 $ipAddr2";
$ipaddr = preg_replace(‘/CZ88.Net/is‘, ‘‘, $ipaddr);
$ipaddr = preg_replace(‘/^s*/is‘, ‘‘, $ipaddr);
$ipaddr = preg_replace(‘/s*$/is‘, ‘‘, $ipaddr);
if(preg_match(‘/http/i‘, $ipaddr) || $ipaddr == ‘‘) {
$ipaddr = ‘Unknown‘;
}
return $ipaddr;
}
//========================
//
// 调用举例（速度很快）
//
//========================
echo convertip(‘219.238.235.10‘);
//输出: 北京市电信通
echo convertip(‘23.56.82.12‘);
//输出：IANA
echo convertip(‘250.69.52.0‘);
//输出：IANA保留地址
echo convertip(‘238.69.52.0‘);
//输出：IANA保留地址用于多点传送
echo convertip(‘192.168.0.1‘);
//输出：局域网对方和您在同一内部网
echo convertip(‘255.255.255.255‘);
//输出：纯真网络 2006年11月20日IP数据
?>

附：（相应其他实现程序）

Php） " href= " http : // www.coolcode.cn/?p=16" rel=bookmark>利用 QQWry.Dat 实现 IP 地址高效检索（Php）(作者： andot)

数据库(QQWry . Dat)查询 C源码 " href= " http : // www.douzi.org/wp/index.Php/articles/71" rel=bookmark>纯真IP数据库(QQWry.Dat)查询 C源码 (作者：Windix)

转载纯真ip库

标签：

原文地址：http://www.cnblogs.com/Yi-yang/p/4651974.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行