php读取qqwry.dat ip地址数据库文件程序

//--------------------------------------------------
$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);