function bin2ip($bin){
$ip = '';
$bd = str_split($bin, 1);
for($i = 4; $i > 0; $i--){
$ip .= "." . sprintf("%03d", implode('', unpack('s', $bd[$i-1] . chr(0))));
}
return substr($ip, 1);
}
//--------------------------------------------------
$f = fopen('QQWry.Dat', 'r');
$c = fread($f, 4);
$d = fread($f, 4);
$index_begin = implode('', unpack('L', $c));
$index_end = implode('', unpack('L', $d));
if($index_begin < 0) $index_begin += pow(2, 32);
if($index_end < 0) $index_end += pow(2, 32);
$ip_num = ($index_end - $index_begin) / 7 + 1;
echo "index begin at: $index_beginn";
echo "index end at: $index_endn";
echo "ip data count : $ip_numn";
$output = '';
for($i = 0; $i < $ip_num; $i++){
//文件指针指到每个IP数据文件的索引取得索引数据(7字节)上
fseek($f, $i * 7 + $index_begin);
$ip4 = fread($f, 4); //IP起始地址
if(strlen($ip4) < 4) exit('data file error');
$ip3 = fread($f, 3); //IP记录偏移地址
if(strlen($ip3) < 3) exit('data file error');
$dataseek = implode('', unpack('L', $ip3 . chr(0)));
if($dataseek < 0) $index_ip_record += pow(2, 32);
//指向记录区 $dataseek 位置查找记录
fseek($f, $dataseek);
$ipdata = fread($f, 4); //IP结束地址
if(strlen($ipdata) < 4) exit('data file error');
$area = '';
$country = '';
//读一个标记位
$flag = fread($f, 1);
if($flag == chr(1)){ //国家名偏移标记位 模式一 0x01
$area1seek = fread($f, 3);
if(strlen($area1seek) < 3) exit('data file error');
$area1seek = implode('', unpack('L', $area1seek . chr(0)));
fseek($f, $area1seek);
$flag = fread($f, 1); //可能又是标记位
}
if($flag == chr(2)){ //国家地区 重定向
$area1seek = fread($f, 3);
if(strlen($area1seek) < 3) exit('data file error');
$area1seek = implode('', unpack('L', $area1seek . chr(0)));
$flag = fread($f, 1);
if($flag == chr(2)){
$area2seek = fread($f, 3);
$area2seek = implode('', unpack('L', $area2seek . chr(0)));
fseek($f, $area2seek);
}else{
fseek($f, -1, SEEK_CUR);
}
while(($c = fread($f, 1)) != chr(0)) $area .= $c;
fseek($f, $area1seek);
while(($c = fread($f, 1)) != chr(0)) $country .= $c;
}else{
fseek($f, -1, SEEK_CUR);
while(($c = fread($f, 1)) != chr(0)) $country .= $c;
$flag = fread($f, 1); //如果地区是重定向的
if($flag == chr(2)){
$area2seek = fread($f, 3);
$area2seek = implode('', unpack('L', $area2seek . chr(0)));
fseek($f, $area2seek);
}else{
fseek($f, -1, SEEK_CUR);
}
while(($c = fread($f, 1)) != chr(0)) $area .= $c;
}
$adata = trim($country) . trim($area); //$country是国家字符串 , $area 是地区字符串
}
fclose($f);