2 /********************************* PHP-P10 ******************************
3 * P10 uplink class by pk910 (c)2011 pk910 *
4 ************************************************************************
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. *
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. *
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. *
21 ************************************************************************
23 * Uplink/Numerics.class.php
25 * P10 numeric functions
27 ************************************************************************
28 * accessable functions
30 * static String intToNum(int $int, int $length)
31 * returns the numeric representing $int
33 * static int numToInt(String $numeric)
34 * returns the integer value, the numeric represents
36 * static String parseIP(String $numeric)
37 * parses an IP Address in numeric format
39 * static String numericFromIP(String $ip)
40 * builds a numeric representing the IP
44 private static $base64chars = array(
45 'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',
46 'Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f',
47 'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v',
48 'w','x','y','z','0','1','2','3','4','5','6','7','8','9','[',']'
50 private static $base64charsLength = 64;
52 public static function intToNum($int, $length) {
53 //fix a small "bug": normaly 0 = AAAAA but we need 1 = AAAAA
57 for($pos = $length-1; $pos >= 0; $pos--) {
58 //current position represents floor($int / ($base64charsLength ^ $pos))
60 for($i = 0; $i < $pos; $i++) {
61 $base = $base * self::$base64charsLength;
63 $posValue = floor($int / $base);
64 //get the char representing $posValue
65 $posChar = self::$base64chars[$posValue];
72 public static function numToInt($numeric) {
75 for($pos = strlen($numeric)-1; $pos >= 0; $pos--) {
76 $posValue = array_search($numeric[$pos], self::$base64chars);
77 $int = ($posValue * $base);
78 $base = $base * self::$base64charsLength;
81 //fix a small "bug": normaly 0 = AAAAA but we need 1 = AAAAA
87 public static function parseIP($numeric, $shortForm = true) {
88 if(strlen($numeric) == 6) { //IPv4
89 $value = self::numToInt($numeric);
91 $ip[0] = ($value & 0xff000000) >> 24;
92 $ip[1] = ($value & 0x00ff0000) >> 16;
93 $ip[2] = ($value & 0x0000ff00) >> 8;
94 $ip[3] = ($value & 0x000000ff);
95 return implode(".", $ip);
98 for($i = 0; $i < strlen($numeric);) {
99 if($numeric[$i] == "_") {
103 $rightBlocks = (strlen($numeric) - ($i + 1)) / 3;
104 $skipCount = 8 - count($ip) - $rightBlocks;
105 for($j = 0; $j < $skipBlocks; $j++) {
111 $value = self::numToInt($numeric[$i].$numeric[$i+1].$numeric[$i+2]);
112 $ip[] = dechex($value);
116 return implode(":", $ip);
120 public static function numericFromIP($ip) {
122 $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})$/';
123 $pattern['ipv4'] = '/^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}(|\/[0-9]{1,2})$/';
124 if(preg_match($pattern['ipv4'], $ip)) {
125 //thats quite simple here
126 $ip = explode(".", $ip);
127 $ipValue = intval($ip[3]);
129 $ipValue |= intval($ip[2]);
131 $ipValue |= intval($ip[1]);
133 $ipValue |= intval($ip[0]);
134 $ip = self::intToNum($ipValue,6);
135 } else if(preg_match($pattern['ipv6'], $ip)) {
136 //thats a little bit complicated :D (we may only have one _)
138 $ip = explode(":",$ip);
139 $last_zero = false; $zero_sequence = 0; $biggest_zero_sequence = 0; $max_start = -1;
140 foreach($ip as $i => $v) {
142 $skipBlocks = (8 - count($ip));
143 for($j = 0; $j < $skipBlocks; $j++) {
147 $biggest_zero_sequence = $skipBlocks;
158 if($zero_sequence > $biggest_zero_sequence) {
159 $biggest_zero_sequence = $zero_sequence;
160 $max_start = $i-($zero_sequence-1);
163 $ipv6[$i] = self::intToNum($value,3);
169 for($i = 0; $i < 8; $i++) {
170 if($i == $max_start) { //merge the biggest sequence of _'s
172 $i += ($biggest_zero_sequence-1);
173 } elseif($ipv6[$i] == "_") {