some transfer fixes
[PHP-P10.git] / Uplink / IPAddr.class.php
1 <?php
2 /********************************* PHP-P10 ******************************
3  *    P10 uplink class by pk910   (c)2011 pk910                         *
4  ************************************************************************
5  *                          Version 2 (OOP)                             *
6  *                                                                      *
7  * PHP-P10 is free software; you can redistribute it and/or modify      *
8  * it under the terms of the GNU General Public License as published by *
9  * the Free Software Foundation; either version 2 of the License, or    *
10  * (at your option) any later version.                                  *
11  *                                                                      *
12  * This program is distributed in the hope that it will be useful,      *
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
15  * GNU General Public License for more details.                         *
16  *                                                                      *
17  * You should have received a copy of the GNU General Public License    *
18  * along with PHP-P10; if not, write to the Free Software Foundation,   *
19  * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.       *
20  *                                                                      *
21  ************************************************************************
22  * 
23  *  Uplink/IpAddr.class.php
24  *
25  * This class represents an IPv4 or IPv6 address.
26  *
27  */
28
29 class IPAddr {
30         private static $pattern_IPv6 = '/^((([0-9A-Fa-f]{1,4}:){7}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){6}:[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){5}:([0-9A-Fa-f]{1,4}:)?[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){4}:([0-9A-Fa-f]{1,4}:){0,2}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){3}:([0-9A-Fa-f]{1,4}:){0,3}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){2}:([0-9A-Fa-f]{1,4}:){0,4}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){6}((\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b)\.){3}(\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b))|(([0-9A-Fa-f]{1,4}:){0,5}:((\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b)\.){3}(\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b))|(::([0-9A-Fa-f]{1,4}:){0,5}((\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b)\.){3}(\b((25[0-5])|(1\d{2})|(2[0-4]\d)|(\d{1,2}))\b))|([0-9A-Fa-f]{1,4}::([0-9A-Fa-f]{1,4}:){0,5}[0-9A-Fa-f]{1,4})|(::([0-9A-Fa-f]{1,4}:){0,6}[0-9A-Fa-f]{1,4})|(([0-9A-Fa-f]{1,4}:){1,7}:))(|\/[0-9]{1,3})$/';
31         private static $pattern_IPv4 = '/^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}(|\/[0-9]{1,2})$/';
32         private $ip6 = array();
33         private $addr_is_ipv6 = false;
34         
35         public function __construct($initial_value) {
36                 for($i = 0; $i < 8; $i++) {
37                         $ip6[$i] = 0;
38                 }
39                 if($initial_value == null) {
40                         //nothing
41                 } elseif(preg_match(self::$pattern_IPv6, $initial_value)) {
42                         $this->parseIPv6($initial_value);
43                 } elseif(preg_match(self::$pattern_IPv4, $initial_value)) {
44                         $this->parseIPv4($initial_value);
45                 } else {
46                         $this->parseNumeric($initial_value);
47                 }
48         }
49         
50         public function parseNumeric($numeric) {
51                 if(strlen($numeric) == 6) { //IPv4
52                         $value = Numerics::numToInt($numeric);
53                         $this->ip6[6] = ($value & 0xffff0000) >> 16;
54                         $this->ip6[7] = ($value & 0x0000ffff);
55                         $this->addr_is_ipv6 = false;
56                 } else { //IPv6
57                         $j = 0;
58                         for($i = 0; $i < strlen($numeric);) {
59                                 if($numeric[$i] == "_") {
60                                         $rightBlocks = (strlen($numeric) - $i - 1) / 3;
61                                         $skipBlocks = 8 - $j - $rightBlocks;
62                                         $j += $skipBlocks;
63                                 } else {
64                                         $value = Numerics::numToInt($numeric[$i].$numeric[$i+1].$numeric[$i+2]);
65                                         $this->ip6[$j++] = dechex($value);
66                                         $i += 3;
67                                 }
68                         }
69                 }
70         }
71         
72         public function parseIPv6($ipv6) {
73                 if(substr($ipv6,0,2) == "::") $ipv6 = substr($ipv6, 1);
74                 if(substr($ipv6,-2) == "::") $ipv6 = substr($ipv6, 0, -1);
75                 $ipv6blocks = explode(":", $ipv6);
76                 $j = 0;
77                 foreach($ipv6blocks as $i => $block) {
78                         if($block == "") {
79                                 $skipBlocks = 8 - count($ipv6blocks);
80                                 $j += $skipBlocks + 1;
81                         } else {
82                                 $this->ip6[$j++] = hexdec($block);
83                         }
84                 }
85         }
86         
87         public function parseIPv4($ipv4) {
88                 $ipv4blocks = explode(".",$ipv4);
89                 $this->ip6[6] = intval($ipv4blocks[0]) << 8;
90                 $this->ip6[6] |= intval($ipv4blocks[1]);
91                 $this->ip6[7] = intval($ipv4blocks[2]) << 8;
92                 $this->ip6[7] |= intval($ipv4blocks[3]);
93         }
94         
95         public function isIPv6() {
96                 return $this->addr_is_ipv6;
97         }
98         
99         public function getAddress() {
100                 if($this->isIPv6()) {   
101                         $max_start = 0;
102                         $max_zeros = 0;
103                         $curr_zeros = 0;
104                         for ($i = 0; $i < 8; $i++) {
105                                 if ($this->ip6[$i] == 0)
106                                         $curr_zeros++;
107                                 else if ($curr_zeros > $max_zeros) {
108                                         $max_start = $i - $curr_zeros;
109                                         $max_zeros = $curr_zeros;
110                                         $curr_zeros = 0;
111                                 }
112                         }
113                         if ($curr_zeros > $max_zeros) {
114                                 $max_start = $i - $curr_zeros;
115                                 $max_zeros = $curr_zeros;
116                         }
117                         $ipv6 = "";
118                         for($i = 0; $i < 8; $i++) {
119                                 if($max_zeros > 1 && $i == $max_start) {
120                                         $ipv6 .= "::";
121                                         $i += $max_zeros - 1;
122                                 } else {
123                                         if($ipv6 != "") $ipv6 .= ":";
124                                         $ipv6 .= dechex($this->ip6[$i]);
125                                 }
126                         }
127                         return $ipv6;
128                 } else {
129                         $ipv4 = array();
130                         $ipv4[0] = ($this->ip6[6] >> 8) & 0xff;
131                         $ipv4[1] = ($this->ip6[6]) & 0xff;
132                         $ipv4[2] = ($this->ip6[7] >> 8) & 0xff;
133                         $ipv4[3] = ($this->ip6[7]) & 0xff;
134                         return implode(".", $ipv4);
135                 }
136         }
137         
138         public function getNumeric() {
139                 if($this->isIPv6()) {   
140                         $max_start = 0;
141                         $max_zeros = 0;
142                         $curr_zeros = 0;
143                         for ($i = 0; $i < 8; $i++) {
144                                 if ($this->ip6[$i] == 0)
145                                         $curr_zeros++;
146                                 else if ($curr_zeros > $max_zeros) {
147                                         $max_start = $i - $curr_zeros;
148                                         $max_zeros = $curr_zeros;
149                                         $curr_zeros = 0;
150                                 }
151                         }
152                         if ($curr_zeros > $max_zeros) {
153                                 $max_start = $i - $curr_zeros;
154                                 $max_zeros = $curr_zeros;
155                         }
156                         $ipv6 = "";
157                         for($i = 0; $i < 8; $i++) {
158                                 if($max_zeros > 0 && $i == $max_start) {
159                                         $ipv6 .= "_";
160                                         $i += $max_zeros - 1;
161                                 } else {
162                                         $ipv6 .= Numerics::intToNum($this->ip6[$i],3);
163                                 }
164                         }
165                         return $ipv6;
166                 } else {
167                         $ipv4 = array();
168                         $ipv4[0] = Numerics::intToNum($this->ip6[6], 3);
169                         $ipv4[1] = Numerics::intToNum($this->ip6[7], 3);
170                         return $ipv4[0].$ipv4[1];
171                 }
172         }
173         
174 }
175
176 ?>