利用 QQWry.Dat 实现 IP 地址高效检索（PHP）

Submitted by andot on 2005, June 20, 6:56 PM. PHP
http://www.coolcode.cn/shhtmlow-16-1.


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

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

下面是程序代码：
iplocation.inc.php

   1. <?php
   2. /**
   3. * IP 地理位置查询类
   4. *
   5. * @author 马秉尧
   6. * @version 1.5
   7. * @copyright 2005 CoolCode.CN
   8. */
   9. class IpLocation {
  10.     /**
  11.      * QQWry.Dat文件指针
  12.      *
  13.      * @var resource
  14.      */
  15.     var $fp;
  16.  
  17.     /**
  18.      * 第一条IP记录的偏移地址
  19.      *
  20.      * @var int
  21.      */
  22.     var $firstip;
  23.  
  24.     /**
  25.      * 最后一条IP记录的偏移地址
  26.      *
  27.      * @var int
  28.      */
  29.     var $lastip;
  30.  
  31.     /**
  32.      * IP记录的总条数（不包含版本信息记录）
  33.      *
  34.      * @var int
  35.      */
  36.     var $totalip;
  37.  
  38.     /**
  39.      * 返回读取的长整型数
  40.      *
  41.      * @access private
  42.      * @return int
  43.      */
  44.     function getlong() {
  45.         //将读取的little-endian编码的4个字节转化为长整型数
  46.         $result = unpack('Vlong', fread($this->fp, 4));
  47.         return $result['long'];
  48.     }
  49.  
  50.     /**
  51.      * 返回读取的3个字节的长整型数
  52.      *
  53.      * @access private
  54.      * @return int
  55.      */
  56.     function getlong3() {
  57.         //将读取的little-endian编码的3个字节转化为长整型数
  58.         $result = unpack('Vlong', fread($this->fp, 3).chr(0));
  59.         return $result['long'];
  60.     }
  61.  
  62.     /**
  63.      * 返回压缩后可进行比较的IP地址
  64.      *
  65.      * @access private
  66.      * @param string $ip
  67.      * @return string
  68.      */
  69.     function packip($ip) {
  70.         // 将IP地址转化为长整型数，如果在PHP5中，IP地址错误，则返回False，
  71.         // 这时intval将Flase转化为整数-1，之后压缩成big-endian编码的字符串
  72.         return pack('N', intval(ip2long($ip)));
  73.     }
  74.  
  75.     /**
  76.      * 返回读取的字符串
  77.      *
  78.      * @access private
  79.      * @param string $data
  80.      * @return string
  81.      */
  82.     function getstring($data = "") {
  83.         $char = fread($this->fp, 1);
  84.         while (ord($char) > 0) {        // 字符串按照C格式保存，以\0结束
  85.             $data .= $char;             // 将读取的字符连接到给定字符串之后
  86.             $char = fread($this->fp, 1);
  87.         }
  88.         return $data;
  89.     }
  90.  
  91.     /**
  92.      * 返回地区信息
  93.      *
  94.      * @access private
  95.      * @return string
  96.      */
  97.     function getarea() {
  98.         $byte = fread($this->fp, 1);    // 标志字节
  99.         switch (ord($byte)) {
 100.             case 0:                     // 没有区域信息
 101.                 $area = "";
 102.                 break;
 103.             case 1:
 104.             case 2:                     // 标志字节为1或2，表示区域信息被重定向
 105.                 fseek($this->fp, $this->getlong3());
 106.                 $area = $this->getstring();
 107.                 break;
 108.             default:                    // 否则，表示区域信息没有被重定向
 109.                 $area = $this->getstring($byte);
 110.                 break;
 111.         }
 112.         return $area;
 113.     }
 114.  
 115.     /**
 116.      * 根据所给 IP 地址或域名返回所在地区信息
 117.      *
 118.      * @access public
 119.      * @param string $ip
 120.      * @return array
 121.      */
 122.     function getlocation($ip) {
 123.         if (!$this->fp) return null;            // 如果数据文件没有被正确打开，则直接返回空
 124.         $location['ip'] = gethostbyname($ip);   // 将输入的域名转化为IP地址
 125.         $ip = $this->packip($location['ip']);   // 将输入的IP地址转化为可比较的IP地址
 126.                                                 // 不合法的IP地址会被转化为255.255.255.255
 127.         // 对分搜索
 128.         $l = 0;                         // 搜索的下边界
 129.         $u = $this->totalip;            // 搜索的上边界
 130.         $findip = $this->lastip;        // 如果没有找到就返回最后一条IP记录（QQWry.Dat的版本信息）
 131.         while ($l <= $u) {              // 当上边界小于下边界时，查找失败
 132.             $i = floor(($l + $u) / 2);  // 计算近似中间记录
 133.             fseek($this->fp, $this->firstip + $i * 7);
 134.             $beginip = strrev(fread($this->fp, 4));     // 获取中间记录的开始IP地址
 135.             // strrev函数在这里的作用是将little-endian的压缩IP地址转化为big-endian的格式
 136.             // 以便用于比较，后面相同。
 137.             if ($ip < $beginip) {       // 用户的IP小于中间记录的开始IP地址时
 138.                 $u = $i - 1;            // 将搜索的上边界修改为中间记录减一
 139.             }
 140.             else {
 141.                 fseek($this->fp, $this->getlong3());
 142.                 $endip = strrev(fread($this->fp, 4));   // 获取中间记录的结束IP地址
 143.                 if ($ip > $endip) {     // 用户的IP大于中间记录的结束IP地址时
 144.                     $l = $i + 1;        // 将搜索的下边界修改为中间记录加一
 145.                 }
 146.                 else {                  // 用户的IP在中间记录的IP范围内时
 147.                     $findip = $this->firstip + $i * 7;
 148.                     break;              // 则表示找到结果，退出循环
 149.                 }
 150.             }
 151.         }
 152.  
 153.         //获取查找到的IP地理位置信息
 154.         fseek($this->fp, $findip);
 155.         $location['beginip'] = long2ip($this->getlong());   // 用户IP所在范围的开始地址
 156.         $offset = $this->getlong3();
 157.         fseek($this->fp, $offset);
 158.         $location['endip'] = long2ip($this->getlong());     // 用户IP所在范围的结束地址
 159.         $byte = fread($this->fp, 1);    // 标志字节
 160.         switch (ord($byte)) {
 161.             case 1:                     // 标志字节为1，表示国家和区域信息都被同时重定向
 162.                 $countryOffset = $this->getlong3();         // 重定向地址
 163.                 fseek($this->fp, $countryOffset);
 164.                 $byte = fread($this->fp, 1);    // 标志字节
 165.                 switch (ord($byte)) {
 166.                     case 2:             // 标志字节为2，表示国家信息又被重定向
 167.                         fseek($this->fp, $this->getlong3());
 168.                         $location['country'] = $this->getstring();
 169.                         fseek($this->fp, $countryOffset + 4);
 170.                         $location['area'] = $this->getarea();
 171.                         break;
 172.                     default:            // 否则，表示国家信息没有被重定向
 173.                         $location['country'] = $this->getstring($byte);
 174.                         $location['area'] = $this->getarea();
 175.                         break;
 176.                 }
 177.                 break;
 178.             case 2:                     // 标志字节为2，表示国家信息被重定向
 179.                 fseek($this->fp, $this->getlong3());
 180.                 $location['country'] = $this->getstring();
 181.                 fseek($this->fp, $offset + 8);
 182.                 $location['area'] = $this->getarea();
 183.                 break;
 184.             default:                    // 否则，表示国家信息没有被重定向
 185.                 $location['country'] = $this->getstring($byte);
 186.                 $location['area'] = $this->getarea();
 187.                 break;
 188.         }
 189.         if ($location['country'] == " CZ88.NET") {  // CZ88.NET表示没有有效信息
 190.             $location['country'] = "未知";
 191.         }
 192.         if ($location['area'] == " CZ88.NET") {
 193.             $location['area'] = "";
 194.         }
 195.         return $location;
 196.     }
 197.  
 198.     /**
 199.      * 构造函数，打开 QQWry.Dat 文件并初始化类中的信息
 200.      *
 201.      * @param string $filename
 202.      * @return IpLocation
 203.      */
 204.     function IpLocation($filename = "QQWry.Dat") {
 205.         $this->fp = 0;
 206.         if (($this->fp = @fopen($filename, 'rb')) !== false) {
 207.             $this->firstip = $this->getlong();
 208.             $this->lastip = $this->getlong();
 209.             $this->totalip = ($this->lastip - $this->firstip) / 7;
 210.             //注册析构函数，使其在程序执行结束时执行
 211.             register_shutdown_function(array(&$this, '_IpLocation'));
 212.         }
 213.     }
 214.  
 215.     /**
 216.      * 析构函数，用于在页面执行结束后自动关闭打开的文件。
 217.      *
 218.      */
 219.     function _IpLocation() {
 220.         if ($this->fp) {
 221.             fclose($this->fp);
 222.         }
 223.         $this->fp = 0;
 224.     }
 225. }
 226. ?>