Home > Developer > PHP

Provide an IP address geographic location query class again

Source: Internet
Author: User
Tags comparable
Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞
Provide an IP address geographic location query class again
IP location query

  2. /**
  3. File name: IpLocation. class. php
  4. * IP location query class (I uploaded the main file and a test file, I uploaded it, and a QQWry. dat, which can be downloaded from the pure IP library, is too large to be uploaded here)
  5. *
  6. * @ Author Ma Bingyao
  7. * @ Version 1.5
  8. * @ Copyright 2005 CoolCode. CN
  9. */
  10. Class IpLocation {
  11. /**
  12. * QQWry. Dat file pointer
  13. * @ Var resource
  14. */
  15. Var $ fp;
  17. /**
  18. * Offset address of the first IP record
  19. * @ Var int
  20. */
  21. Var $ firstip;
  23. /**
  24. * Offset address of the last IP record
  25. * @ Var int
  26. */
  27. Var $ lastip;
  29. /**
  30. * Total number of IP records (excluding version Records)
  31. * @ Var int
  32. */
  33. Var $ totalip;
  35. /**
  36. * Constructor: Open the QQWry. Dat file and initialize information in the class.
  37. * @ Param string $ filename
  38. * @ Return IpLocation
  39. */
  40. Function _ construct ($ filename = "QQWry. Dat "){
  41. $ This-> fp = 0;
  42. If ($ this-> fp = @ fopen ($ filename, 'RB '))! = False ){
  43. $ This-> firstip = $ this-> getlong ();
  44. $ This-> lastip = $ this-> getlong ();
  45. $ This-> totalip = ($ this-> lastip-$ this-> firstip)/7;
  46. // Register the destructor so that it can be executed at the end of program execution
  47. Register_shutdown_function (array (& $ this, '_ construct '));
  48. }
  49. }
  51. /**
  52. * Returns the number of long integers read.
  53. * @ Access private
  54. * @ Return int
  55. */
  56. Function getlong (){
  57. // Convert the 4 bytes of the read little-endian encoding to the long integer
  58. $ Result = unpack ('vlong', fread ($ this-> fp, 4 ));
  59. Return $ result ['long'];
  60. }
  62. /**
  63. * Returns the number of long integers read in three bytes.
  64. *
  65. * @ Access private
  66. * @ Return int
  67. */
  68. Function getlong3 (){
  69. // Convert the three bytes of the read little-endian encoding into a long integer.
  70. $ Result = unpack ('vlong', fread ($ this-> fp, 3). chr (0 ));
  71. Return $ result ['long'];
  72. }
  74. /**
  75. * Return the IP addresses that can be compared after compression.
  76. *
  77. * @ Access private
  78. * @ Param string $ ip
  79. * @ Return string
  80. */
  81. Function packip ($ ip ){
  82. // Convert the IP address to a long integer. if the IP address is incorrect in PHP5, False is returned,
  83. // At this time, intval converts Flase to an integer-1, and then compresses it into a string encoded by big-endian.
  84. Return pack ('N', intval (ip2long ($ ip )));
  85. }
  87. /**
  88. * Returns the read string.
  89. *
  90. * @ Access private
  91. * @ Param string $ data
  92. * @ Return string
  93. */
  94. Function getstring ($ data = ""){
  95. $ Char = fread ($ this-> fp, 1 );
  96. While (ord ($ char)> 0) {// string is saved in C format and ended with \ 0
  97. $ Data. = $ char; // after connecting the read characters to the given string
  98. $ Char = fread ($ this-> fp, 1 );
  99. }
  100. Return $ data;
  101. }
  103. /**
  104. * Returned region information
  105. *
  106. * @ Access private
  107. * @ Return string
  108. */
  109. Function getarea (){
  110. $ Byte = fread ($ this-> fp, 1); // flag byte
  111. Switch (ord ($ byte )){
  112. Case 0: // no region information
  113. $ Area = "";
  114. Break;
  115. Case 1:
  116. Case 2: // indicates that the region information is redirected when the byte is 1 or 2.
  117. Fseek ($ this-> fp, $ this-> getlong3 ());
  118. $ Area = $ this-> getstring ();
  119. Break;
  120. Default: // otherwise, the region information is not redirected.
  121. $ Area = $ this-> getstring ($ byte );
  122. Break;
  123. }
  124. Return $ area;
  125. }
  127. /**
  128. * Return region information based on the given IP address or domain name
  129. * @ Access public
  130. * @ Param string $ ip
  131. * @ Return array
  132. */
  133. Function getlocation ($ ip ){
  134. If (! $ This-> fp) return null; // if the data file is not properly opened, null is returned directly.
  135. $ Location ['IP'] = gethostbyname ($ ip); // Convert the entered domain name to an ip address
  136. $ Ip = $ this-> packip ($ location ['IP']); // convert the input ip address to a comparable ip address.
  137. // Invalid IP address will be converted to 255.255.255.255
  138. // Split Search
  139. $ L = 0; // bottom boundary of the search
  140. $ U = $ this-> totalip; // The upper boundary of the search
  141. $ Findip = $ this-> lastip; // if not found, the last IP record is returned (QQWry. Dat version information)
  142. While ($ l <= $ u) {// when the boundary is smaller than the bottom boundary, the search fails.
  143. $ I = floor ($ l + $ u)/2); // calculate the approximate intermediate record
  144. Fseek ($ this-> fp, $ this-> firstip + $ I * 7 );
  145. $ Beginip = strrev (fread ($ this-> fp, 4); // Obtain the starting IP address of the intermediate record
  146. // The strrev function is used to convert the compressed IP address of little-endian to the big-endian format.
  147. // Used for comparison.
  148. If ($ ip <$ beginip) {// when the user's IP address is smaller than the starting ip address of the intermediate record
  149. $ U = $ I-1; // change the upper boundary of the search to minus one for the intermediate record
  150. } Else {
  151. Fseek ($ this-> fp, $ this-> getlong3 ());
  152. $ Endip = strrev (fread ($ this-> fp, 4); // Obtain the end IP address of the intermediate record
  153. If ($ ip> $ endip) {// when the user's IP address is greater than the end ip address of the intermediate record
  154. $ L = $ I + 1; // change the bottom boundary of the search to an intermediate record plus one
  155. } Else {// when the user's IP address is within the IP address range recorded in the middle
  156. $ Findip = $ this-> firstip + $ I * 7;
  157. Break; // indicates that the result is found and the loop is exited.
  158. }
  159. }
  160. }
  162. // Obtain the IP address location information.
  163. Fseek ($ this-> fp, $ findip );
  164. $ Location ['ininip'] = long2ip ($ this-> getlong (); // start address of the user's IP address range
  165. $ Offset = $ this-> getlong3 ();
  166. Fseek ($ this-> fp, $ offset );
  167. $ Location ['enabled'] = long2ip ($ this-> getlong (); // end address of the user's IP address range
  168. $ Byte = fread ($ this-> fp, 1); // flag byte
  169. Switch (ord ($ byte )){
  170. Case 1: // The flag byte is 1, indicating that both the country and region information are redirected at the same time.
  171. $ CountryOffset = $ this-> getlong3 (); // redirect address
  172. Fseek ($ this-> fp, $ countryOffset );
  173. $ Byte = fread ($ this-> fp, 1); // flag byte
  174. Switch (ord ($ byte )){
  175. Case 2: // The flag byte is 2, indicating that the country information is redirected.
  176. Fseek ($ this-> fp, $ this-> getlong3 ());
  177. $ Location ['country'] = $ this-> getstring ();
  178. Fseek ($ this-> fp, $ countryOffset + 4 );
  179. $ Location ['region'] = $ this-> getarea ();
  180. Break;
  181. Default: // otherwise, the country information is not redirected.
  182. $ Location ['country'] = $ this-> getstring ($ byte );
  183. $ Location ['region'] = $ this-> getarea ();
  184. Break;
  185. }
  186. Break;
  187. Case 2: // The flag byte is 2, indicating that the country information is redirected.
  188. Fseek ($ this-> fp, $ this-> getlong3 ());
  189. $ Location ['country'] = $ this-> getstring ();
  190. Fseek ($ this-> fp, $ offset + 8 );
  191. $ Location ['region'] = $ this-> getarea ();
  192. Break;
  193. Default: // otherwise, the country information is not redirected.
  194. $ Location ['country'] = $ this-> getstring ($ byte );
  195. $ Location ['region'] = $ this-> getarea ();
  196. Break;
  197. }
  198. If ($ location ['country'] = "CZ88.NET") {// CZ88.NET indicates no valid information
  199. $ Location ['country'] = "unknown ";
  200. }
  201. If ($ location ['region'] = "CZ88.NET "){
  202. $ Location ['region'] = "";
  203. }
  204. Return $ location;
  205. }
  207. /**
  208. * Destructor used to automatically close opened files after Page execution.
  209. *
  210. */
  211. Function _ desctruct (){
  212. If ($ this-> fp ){
  213. Fclose ($ this-> fp );
  214. }
  215. $ This-> fp = 0;
  216. }
  217. }
  218. ?>

  1. Require_once ('iplocation. class. php ');
  2. $ Ip = '1970. 0.0.1 ';
  3. $ IdADDR = new IpLocation ();
  4. Print_r ($ idADDR-> getlocation ($ ip ));
  5. ?>

  2. /**
  3. * IP location query
  4. *
  5. * @ Author Ma Bingyao
  6. * @ Version 1.5
  7. * @ Copyright 2005 CoolCode. CN
  8. */
  9. Class IpLocation {
  10. /**
  11. * QQWry. Dat file pointer
  12. * @ Var resource
  13. */
  14. Var $ fp;
  16. /**
  17. * Offset address of the first IP record
  18. * @ Var int
  19. */
  20. Var $ firstip;
  22. /**
  23. * Offset address of the last IP record
  24. * @ Var int
  25. */
  26. Var $ lastip;
  28. /**
  29. * Total number of IP records (excluding version Records)
  30. * @ Var int
  31. */
  32. Var $ totalip;
  34. /**
  35. * Constructor: Open the QQWry. Dat file and initialize information in the class.
  36. * @ Param string $ filename
  37. * @ Return IpLocation
  38. */
  39. Function _ construct ($ filename = "QQWry. Dat "){
  40. $ This-> fp = 0;
  41. If ($ this-> fp = @ fopen ($ filename, 'RB '))! = False ){
  42. $ This-> firstip = $ this-> getlong ();
  43. $ This-> lastip = $ this-> getlong ();
  44. $ This-> totalip = ($ this-> lastip-$ this-> firstip)/7;
  45. // Register the destructor so that it can be executed at the end of program execution
  46. Register_shutdown_function (array (& $ this, '_ construct '));
  47. }
  48. }
  50. /**
  51. * Returns the number of long integers read.
  52. * @ Access private
  53. * @ Return int
  54. */
  55. Function getlong (){
  56. // Convert the 4 bytes of the read little-endian encoding to the long integer
  57. $ Result = unpack ('vlong', fread ($ this-> fp, 4 ));
  58. Return $ result ['long'];
  59. }
  61. /**
  62. * Returns the number of long integers read in three bytes.
  63. *
  64. * @ Access private
  65. * @ Return int
  66. */
  67. Function getlong3 (){
  68. // Convert the three bytes of the read little-endian encoding into a long integer.
  69. $ Result = unpack ('vlong', fread ($ this-> fp, 3). chr (0 ));
  70. Return $ result ['long'];
  71. }
  73. /**
  74. * Return the IP addresses that can be compared after compression.
  75. *
  76. * @ Access private
  77. * @ Param string $ ip
  78. * @ Return string
  79. */
  80. Function packip ($ ip ){
  81. // Convert the IP address to a long integer. if the IP address is incorrect in PHP5, False is returned,
  82. // At this time, intval converts Flase to an integer-1, and then compresses it into a string encoded by big-endian.
  83. Return pack ('N', intval (ip2long ($ ip )));
  84. }
  86. /**
  87. * Returns the read string.
  88. *
  89. * @ Access private
  90. * @ Param string $ data
  91. * @ Return string
  92. */
  93. Function getstring ($ data = ""){
  94. $ Char = fread ($ this-> fp, 1 );
  95. While (ord ($ char)> 0) {// string is saved in C format and ended with \ 0
  96. $ Data. = $ char; // after connecting the read characters to the given string
  97. $ Char = fread ($ this-> fp, 1 );
  98. }
  99. Return $ data;
  100. }
  102. /**
  103. * Returned region information
  104. *
  105. * @ Access private
  106. * @ Return string
  107. */
  108. Function getarea (){
  109. $ Byte = fread ($ this-> fp, 1); // flag byte
  110. Switch (ord ($ byte )){
  111. Case 0: // no region information
  112. $ Area = "";
  113. Break;
  114. Case 1:
  115. Case 2: // indicates that the region information is redirected when the byte is 1 or 2.
  116. Fseek ($ this-> fp, $ this-> getlong3 ());
  117. $ Area = $ this-> getstring ();
  118. Break;
  119. Default: // otherwise, the region information is not redirected.
  120. $ Area = $ this-> getstring ($ byte );
  121. Break;
  122. }
  123. Return $ area;
  124. }
  126. /**
  127. * Return region information based on the given IP address or domain name
  128. * @ Access public
  129. * @ Param string $ ip
  130. * @ Return array
  131. */
  132. Function getlocation ($ ip ){
  133. If (! $ This-> fp) return null; // if the data file is not properly opened, null is returned directly.
  134. $ Location ['IP'] = gethostbyname ($ ip); // Convert the entered domain name to an ip address
  135. $ Ip = $ this-> packip ($ location ['IP']); // convert the input ip address to a comparable ip address.
  136. // Invalid IP address will be converted to 255.255.255.255
  137. // Split Search
  138. $ L = 0; // bottom boundary of the search
  139. $ U = $ this-> totalip; // The upper boundary of the search
  140. $ Findip = $ this-> lastip; // if not found, the last IP record is returned (QQWry. Dat version information)
  141. While ($ l <= $ u) {// when the boundary is smaller than the bottom boundary, the search fails.
  142. $ I = floor ($ l + $ u)/2); // calculate the approximate intermediate record
  143. Fseek ($ this-> fp, $ this-> firstip + $ I * 7 );
  144. $ Beginip = strrev (fread ($ this-> fp, 4); // Obtain the starting IP address of the intermediate record
  145. // The strrev function is used to convert the compressed IP address of little-endian to the big-endian format.
  146. // Used for comparison.
  147. If ($ ip <$ beginip) {// when the user's IP address is smaller than the starting ip address of the intermediate record
  148. $ U = $ I-1; // change the upper boundary of the search to minus one for the intermediate record
  149. } Else {
  150. Fseek ($ this-> fp, $ this-> getlong3 ());
  151. $ Endip = strrev (fread ($ this-> fp, 4); // Obtain the end IP address of the intermediate record
  152. If ($ ip> $ endip) {// when the user's IP address is greater than the end ip address of the intermediate record
  153. $ L = $ I + 1; // change the bottom boundary of the search to an intermediate record plus one
  154. } Else {// when the user's IP address is within the IP address range recorded in the middle
  155. $ Findip = $ this-> firstip + $ I * 7;
  156. Break; // indicates that the result is found and the loop is exited.
  157. }
  158. }
  159. }
  161. // Obtain the IP address location information.
  162. Fseek ($ this-> fp, $ findip );
  163. $ Location ['ininip'] = long2ip ($ this-> getlong (); // start address of the user's IP address range
  164. $ Offset = $ this-> getlong3 ();
  165. Fseek ($ this-> fp, $ offset );
  166. $ Location ['enabled'] = long2ip ($ this-> getlong (); // end address of the user's IP address range
  167. $ Byte = fread ($ this-> fp, 1); // flag byte
  168. Switch (ord ($ byte )){
  169. Case 1: // The flag byte is 1, indicating that both the country and region information are redirected at the same time.
  170. $ CountryOffset = $ this-> getlong3 (); // redirect address
  171. Fseek ($ this-> fp, $ countryOffset );
  172. $ Byte = fread ($ this-> fp, 1); // flag byte
  173. Switch (ord ($ byte )){
  174. Case 2: // The flag byte is 2, indicating that the country information is redirected.
  175. Fseek ($ this-> fp, $ this-> getlong3 ());
  176. $ Location ['country'] = $ this-> getstring ();
  177. Fseek ($ this-> fp, $ countryOffset + 4 );
  178. $ Location ['region'] = $ this-> getarea ();
  179. Break;
  180. Default: // otherwise, the country information is not redirected.
  181. $ Location ['country'] = $ this-> getstring ($ byte );
  182. $ Location ['region'] = $ this-> getarea ();
  183. Break;
  184. }
  185. Break;
  186. Case 2: // The flag byte is 2, indicating that the country information is redirected.
  187. Fseek ($ this-> fp, $ this-> getlong3 ());
  188. $ Location ['country'] = $ this-> getstring ();
  189. Fseek ($ this-> fp, $ offset + 8 );
  190. $ Location ['region'] = $ this-> getarea ();
  191. Break;
  192. Default: // otherwise, the country information is not redirected.
  193. $ Location ['country'] = $ this-> getstring ($ byte );
  194. $ Location ['region'] = $ this-> getarea ();
  195. Break;
  196. }
  197. If ($ location ['country'] = "CZ88.NET") {// CZ88.NET indicates no valid information
  198. $ Location ['country'] = "unknown ";
  199. }
  200. If ($ location ['region'] = "CZ88.NET "){
  201. $ Location ['region'] = "";
  202. }
  203. Return $ location;
  204. }
  206. /**
  207. * Destructor used to automatically close opened files after Page execution.
  208. *
  209. */
  210. Function _ desctruct (){
  211. If ($ this-> fp ){
  212. Fclose ($ this-> fp );
  213. }
  214. $ This-> fp = 0;
  215. }
  216. }
  217. ?>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

Related Keywords:
verify ip address location address ip location php ip address location find location ip address geographic ip find location of ip address exact location get location from ip address

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

What's Trending
Top 10 Tags
datastax versions naming convention zookeeper client class definition md5 microsoft sql server 2005 data structures exception handling error handling
Top 10 Keywords
microsoft download center down wordpress address url site address url wordpress address url windows installer 4 0 download 302 not found web address url definition site address url wordpress db2 integer mac os installation step by step pdf abbreviation for return

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More