php查詢ip所在地的方法_

1、php查詢ip所在地的方法_ 具體實現(xiàn)方法如下： 代碼如下: ?php /* * date 2021.12.21 注:文件頭 第一條索引的偏移量 (4byte) + 最終一條索引的偏移地址 (4byte) 8字節(jié) 記錄區(qū) 結束ip (4byte) + 地區(qū)1 + 地區(qū)2 4字節(jié)+不定長 索引區(qū) 開頭ip (4byte) + 指向記錄區(qū)的偏移地址 (3byte) 7字節(jié) */ class iplocation var $fp; var $firstip; /第一條ip索引的偏移地址 var $lastip; /最終一條ip索引的偏移地址 var $totalip; /總ip數(shù) /* |- | 構

2、造函數(shù),初始化一些變量 |- | */ function iplocation($datfile = wry.dat) $this-fp=fopen($datfile,rb)or die(wry.dat不存在，請去網(wǎng)上 a href=l下載純真ip數(shù)據(jù) 庫/a, wry.dat 放到當前名目下); /二制方式打開 $this-firstip = $this-get4b(); /第一條ip索引的肯定偏移地址 $this-lastip = $this-get4b(); /最終一條ip索引的肯定偏移地址 $this-totalip =($this-lastip - $this-firstip)/7

3、; /ip總數(shù) 索引區(qū)是定長的7個字節(jié),在此要除以7, register_shutdown_function(array($this,closefp); /為了兼容php5以下版本,本類沒有用析構函數(shù),自動關閉ip庫. /* |- | 關閉ip庫 |- | */ function closefp() fclose($this-fp); /* |- | 讀取4個字節(jié)并將解壓成long的長模式 |- | */ function get4b() $str=unpack(v,fread($this-fp,4); return $str1; /* |- | 讀取重定向了的偏移地址 |- | */ fun

4、ction getoffset() $str=unpack(v,fread($this-fp,3).chr(0); return $str1; /* |- | 讀取ip的具體地址信息 |- | */ function getstr() $split=fread($this-fp,1); while (ord($split)!=0) $str .=$split; $split=fread($this-fp,1); return $str; /* |- | 將ip通過ip2long轉成ipv4的互聯(lián)網(wǎng)地址,再將他壓縮成big-endian字節(jié)序 ,用來和索引區(qū)內的ip地址做比較 |- | */ f

5、unction iptoint($ip) return pack(n,intval(ip2long($ip); /* |- | 獵取地址信息 |- | */ function readaddress() $now_offset=ftell($this-fp); /得到當前的指針位址 $flag=$this-getflag(); switch (ord($flag) case 0: $address=; break; case 1: case 2: fseek($this-fp,$this-getoffset(); $address=$this-getstr(); break; default:

6、 fseek($this-fp,$now_offset); $address=$this-getstr(); break; return $address; /* |- | 獵取標記1或2 用來確定地址是否重定向了 |- | */ function getflag() return fread($this-fp,1); /* |- | 用二分查找法在索引區(qū)內搜索ip |- | */ function searchip($ip) $ip=gethostbyname($ip); /將域名轉成ip $ip_offsetip=$ip; $ip=$this-iptoint($ip); /將ip轉換成長整

7、型 $firstip=0; /搜索的上邊界 $lastip=$this-totalip; /搜索的下邊界 $ipoffset=$this-lastip; /初始化為最終一條ip地址的偏移地址 while ($firstip = $lastip) $i=floor($firstip + $lastip) / 2); /計算近似中間記錄 floor函數(shù)記算給定浮點數(shù)小的最大整數(shù),說白了就是四舍五也舍 fseek($this-fp,$this-firstip + $i * 7); /定位指針到中間記錄 $startip=strrev(fread($this-fp,4); /讀取當前索引區(qū)內的開頭ip

8、地址,并將其little-endian的字節(jié)序轉換成big-endian的字節(jié)序 if ($ip $startip) $lastip=$i - 1; else fseek($this-fp,$this-getoffset(); $endip=strrev(fread($this-fp,4); if ($ip $endip) $firstip=$i + 1; else $ip_offsetoffset=$this-firstip + $i * 7; break; return $ip_offset; /* |- | 獵取ip地址具體信息 |- | */ function getaddress($

9、ip) $ip_offset=$this-searchip($ip); /獵取ip 在索引區(qū)內的肯定編移地址 $ipoffset=$ip_offsetoffset; $addressip=$ip_offsetip; fseek($this-fp,$ipoffset); /定位到索引區(qū) $addressstartip=long2ip($this-get4b(); /索引區(qū)內的開頭ip 地址 $address_offset=$this-getoffset(); /獵取索引區(qū)內ip在ip記錄區(qū)內的偏移地址 fseek($this-fp,$address_offset); /定位到記錄區(qū)內 $addr

10、essendip=long2ip($this-get4b(); /記錄區(qū)內的結束ip 地址 $flag=$this-getflag(); /讀取標記字節(jié) switch (ord($flag) case 1: /地區(qū)1地區(qū)2都重定向 $address_offset=$this-getoffset(); /讀取重定向地址 fseek($this-fp,$address_offset); /定位指針到重定向的地址 $flag=$this-getflag(); /讀取標記字節(jié) switch (ord($flag) case 2: /地區(qū)1又一次重定向, fseek($this-fp,$this-get

11、offset(); $addressarea1=$this-getstr(); fseek($this-fp,$address_offset+4); /跳4個字節(jié) $addressarea2=$this-readaddress(); /地區(qū)2有可能重定向,有可能沒有 break; default: /地區(qū)1,地區(qū)2都沒有重定向 fseek($this-fp,$address_offset); /定位指針到重定向的地址 $addressarea1=$this-getstr(); $addressarea2=$this-readaddress(); break; break; case 2: /地

12、區(qū)1重定向 地區(qū)2沒有重定向 $address1_offset=$this-getoffset(); /讀取重定向地址 fseek($this-fp,$address1_offset); $addressarea1=$this-getstr(); fseek($this-fp,$address_offset+8); $addressarea2=$this-readaddress(); break; default: /地區(qū)1地區(qū)2都沒有重定向 fseek($this-fp,$address_offset+4); $addressarea1=$this-getstr(); $addressarea2=$this-readaddress(); break; /*過濾一些無用數(shù)據(jù) if (strpos($addressarea1,)!=false) $addressarea1=未知; if (strpos($addressarea2,)