Discuz 5.0 中读取纯真IP数据库函数分析[1]

2012年4月2日 发表评论 阅读评论

原文:http://hi.baidu.com/isnono/blog/item/48c6adeca8a3e53d269791c0.html
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;
         }
     }


转载请注明来自:[MSN Spaces]http://msn.shandian.biz/398.html

  1. 本文目前尚无任何评论.