1. <?php 
2. /** 
3. *@ date         2010.12.21 
4. *@ author       王剛 
5. *@ email        373882774@qq.com 
6. *@ qq           373882774 
7. 注:文件頭 [第一條索引的偏移量 (4byte)] + [最后一條索引的偏移地址 (4byte)]     8字節 
8. 記錄區 [結束ip (4byte)] + [地區1] + [地區2]                                4字節+不定長 
9. 索引區 [開始ip (4byte)] + [指向記錄區的偏移地址 (3byte)]                   7字節 
10. */ 
11. class iplocation{ 
12. var $fp; 
13. var $firstip;  //第一條ip索引的偏移地址 
14. var $lastip;   //最后一條ip索引的偏移地址 
15. var $totalip;  //總ip數 
16. /* 
17. |---------------------------------------------------------------------------- 
18. | 構造函數,初始化一些變量 
19. |---------------------------------------------------------------------------- 
20. | 
21. */ 
22. function iplocation($datfile = "qqwry.dat"){ 
23. $this->fp=fopen($datfile,'rb')or die("qqwry.dat不存在，請去網上 <a href='http://www.heqee.com/apps教程/download/iplocationapi.rar'>下載純真ip數據 庫</a>, 'qqwry.dat' 放到當前目錄下");   //二制方式打開 
24. $this->firstip = $this->get4b(); //第一條ip索引的絕對偏移地址 
25. $this->lastip = $this->get4b();  //最后一條ip索引的絕對偏移地址 
26. $this->totalip =($this->lastip - $this->firstip)/7 ; //ip總數 索引區是定長的7個字節,在此要除以7, 
27. register_shutdown_function(array($this,"closefp"));  //為了兼容php5以下版本,本類沒有用析構函數,自動關閉ip庫. 
28. } 
29. /* 
30. |---------------------------------------------------------------------------- 
31. | 關閉ip庫 
32. |---------------------------------------------------------------------------- 
33. | 
34. */ 
35. function closefp(){ 
36. fclose($this->fp); 
37. } 
38. /* 
39. |---------------------------------------------------------------------------- 
40. | 讀取4個字節并將解壓成long的長模式 
41. |---------------------------------------------------------------------------- 
42. | 
43. */ 
44. function get4b(){ 
45. $str=unpack("v",fread($this->fp,4)); 
46. return $str[1]; 
47. } 
48. /* 
49. |---------------------------------------------------------------------------- 
50. | 讀取重定向了的偏移地址 
51. |---------------------------------------------------------------------------- 
52. | 
53. */ 
54. function getoffset(){ 
55. $str=unpack("v",fread($this->fp,3).chr(0)); 
56. return $str[1]; 
57. } 
58. /* 
59. |---------------------------------------------------------------------------- 
60. | 讀取ip的詳細地址信息 
61. |---------------------------------------------------------------------------- 
62. | 
63. */ 
64. function getstr(){ 
65. $split=fread($this->fp,1); 
66. while (ord($split)!=0) { 
67. $str .=$split; 
68. $split=fread($this->fp,1); 
69. } 
70. return $str; 
71. } 
72. /* 
73. |---------------------------------------------------------------------------- 
74. | 將ip通過ip2long轉成ipv4的互聯網地址,再將他壓縮成big-endian字節序 ,用來和索引區內的ip地址做比較 
75. |---------------------------------------------------------------------------- 
76. | 
77. */ 
78. function iptoint($ip){ 
79. return pack("n",intval(ip2long($ip))); 
80. } 
81. /* 
82. |---------------------------------------------------------------------------- 
83. | 獲取地址信息 
84. |---------------------------------------------------------------------------- 
85. | 
86. */ 
87. function readaddress(){ 
88. $now_offset=ftell($this->fp); //得到當前的指針位址 
89. $flag=$this->getflag(); 
90. switch (ord($flag)){ 
91. case 0: 
92. $address=""; 
93. break; 
94. case 1: 
95. case 2: 
96. fseek($this->fp,$this->getoffset()); 
97. $address=$this->getstr(); 
98. break; 
99. default: 
100. fseek($this->fp,$now_offset); 
101. $address=$this->getstr(); 
102. break; 
103. } 
104. return $address; 
105. } 
106. /* 
107. |---------------------------------------------------------------------------- 
108. | 獲取標志1或2   用來確定地址是否重定向了 
109. |---------------------------------------------------------------------------- 
110. | 
111. */ 
112. function getflag(){ 
113. return fread($this->fp,1); 
114. } 
115. /* 
116. |---------------------------------------------------------------------------- 
117. | 用二分查找法在索引區內搜索ip 
118. |---------------------------------------------------------------------------- 
119. | 
120. */ 
121. function searchip($ip){ 
122. $ip=gethostbyname($ip);     //將域名轉成ip 
123. $ip_offset["ip"]=$ip; 
124. $ip=$this->iptoint($ip);    //將ip轉換成長整型 
125. $firstip=0;                 //搜索的上邊界 
126. $lastip=$this->totalip;     //搜索的下邊界 
127. $ipoffset=$this->lastip;    //初始化為最后一條ip地址的偏移地址 
128. while ($firstip <= $lastip){ 
129. $i=floor(($firstip + $lastip) / 2);          //計算近似中間記錄 floor函數記算給定浮點數小的最大整數,說白了就是四舍五也舍 
130. fseek($this->fp,$this->firstip + $i * 7);    //定位指針到中間記錄 
131. $startip=strrev(fread($this->fp,4));         //讀取當前索引區內的開始ip地址,并將其little-endian的字節序轉換成big-endian的字節序 
132. if ($ip < $startip) { 
133. $lastip=$i - 1; 
134. } 
135. else { 
136. fseek($this->fp,$this->getoffset()); 
137. $endip=strrev(fread($this->fp,4)); 
138. if ($ip > $endip){ 
139. $firstip=$i + 1; 
140. } 
141. else { 
142. $ip_offset["offset"]=$this->firstip + $i * 7; 
143. break; 
144. } 
145. } 
146. } 
147. return $ip_offset; 
148. } 
149. /* 
150. |---------------------------------------------------------------------------- 
151. | 獲取ip地址詳細信息 
152. |---------------------------------------------------------------------------- 
153. | 
154. */ 
155. function getaddress($ip){ 
156. $ip_offset=$this->searchip($ip);  //獲取ip 在索引區內的絕對編移地址 
157. $ipoffset=$ip_offset["offset"]; 
158. $address["ip"]=$ip_offset["ip"]; 
159. fseek($this->fp,$ipoffset);      //定位到索引區 
160. $address["startip"]=long2ip($this->get4b()); //索引區內的開始ip 地址 
161. $address_offset=$this->getoffset();            //獲取索引區內ip在ip記錄區內的偏移地址 
162. fseek($this->fp,$address_offset);            //定位到記錄區內 
163. $address["endip"]=long2ip($this->get4b());   //記錄區內的結束ip 地址 
164. $flag=$this->getflag();                      //讀取標志字節 
165. switch (ord($flag)) { 
166. case 1:  //地區1地區2都重定向 
167. $address_offset=$this->getoffset();   //讀取重定向地址 
168. fseek($this->fp,$address_offset);     //定位指針到重定向的地址 
169. $flag=$this->getflag();               //讀取標志字節 
170. switch (ord($flag)) { 
171. case 2:  //地區1又一次重定向, 
172. fseek($this->fp,$this->getoffset()); 
173. $address["area1"]=$this->getstr(); 
174. fseek($this->fp,$address_offset+4);      //跳4個字節 
175. $address["area2"]=$this->readaddress();  //地區2有可能重定向,有可能沒有 
176. break; 
177. default: //地區1,地區2都沒有重定向 
178. fseek($this->fp,$address_offset);        //定位指針到重定向的地址 
179. $address["area1"]=$this->getstr(); 
180. $address["area2"]=$this->readaddress(); 
181. break; 
182. } 
183. break; 
184. case 2: //地區1重定向 地區2沒有重定向 
185. $address1_offset=$this->getoffset();   //讀取重定向地址 
186. fseek($this->fp,$address1_offset);   
187. $address["area1"]=$this->getstr(); 
188. fseek($this->fp,$address_offset+8); 
189. $address["area2"]=$this->readaddress(); 
190. break; 
191. default: //地區1地區2都沒有重定向 
192. fseek($this->fp,$address_offset+4); 
193. $address["area1"]=$this->getstr(); 
194. $address["area2"]=$this->readaddress(); 
195. break; 
196. } 
197. //*過濾一些無用數據 
198. if (strpos($address["area1"],"cz88.net")!=false){ 
199. $address["area1"]="未知"; 
200. } 
201. if (strpos($address["area2"],"cz88.net")!=false){ 
202. $address["area2"]=" "; 
203. } 
204. return $address; 
205. } 
206. } 
207.  
208. /*用法如下:*/ 
209. $ip=new iplocation("qqwry.dat"); 
210. $address=$ip->getaddress("221.231.102.100"); 
211. //$address=$ip->getaddress(www.111cn.net); 
212. echo '<pre>'; 
213. print_r($address); 
214. ?>