diff options
Diffstat (limited to 'core/IP.php')
| -rw-r--r-- | core/IP.php | 1120 |
1 files changed, 537 insertions, 583 deletions
diff --git a/core/IP.php b/core/IP.php index f830301814..33cce5cdbb 100644 --- a/core/IP.php +++ b/core/IP.php @@ -9,23 +9,27 @@ * @package Piwik */ -if(Piwik_Common::isWindows() || !function_exists('inet_ntop')) { - function _inet_ntop($in_addr) { - return php_compat_inet_ntop($in_addr); - } +if (Piwik_Common::isWindows() || !function_exists('inet_ntop')) { + function _inet_ntop($in_addr) + { + return php_compat_inet_ntop($in_addr); + } } else { - function _inet_ntop($in_addr) { - return inet_ntop($in_addr); - } + function _inet_ntop($in_addr) + { + return inet_ntop($in_addr); + } } -if(Piwik_Common::isWindows() || !function_exists('inet_pton')) { - function _inet_pton($address) { - return php_compat_inet_pton($address); - } +if (Piwik_Common::isWindows() || !function_exists('inet_pton')) { + function _inet_pton($address) + { + return php_compat_inet_pton($address); + } } else { - function _inet_pton($address) { - return inet_pton($address); - } + function _inet_pton($address) + { + return inet_pton($address); + } } /** @@ -47,434 +51,397 @@ if(Piwik_Common::isWindows() || !function_exists('inet_pton')) { */ class Piwik_IP { - const MAPPED_IPv4_START = '::ffff:'; - - /** - * Sanitize human-readable IP address. - * - * @param string $ipString IP address - * @return string|false - */ - static public function sanitizeIp($ipString) - { - $ipString = trim($ipString); - - // CIDR notation, A.B.C.D/E - $posSlash = strrpos($ipString, '/'); - if($posSlash !== false) - { - $ipString = substr($ipString, 0, $posSlash); - } - - $posColon = strrpos($ipString, ':'); - $posDot = strrpos($ipString, '.'); - if($posColon !== false) - { - // IPv6 address with port, [A:B:C:D:E:F:G:H]:EEEE - $posRBrac = strrpos($ipString, ']'); - if($posRBrac !== false && $ipString[0] == '[') - { - $ipString = substr($ipString, 1, $posRBrac - 1); - } - - if($posDot !== false) - { - // IPv4 address with port, A.B.C.D:EEEE - if($posColon > $posDot) - { - $ipString = substr($ipString, 0, $posColon); - } - // else: Dotted quad IPv6 address, A:B:C:D:E:F:G.H.I.J - } - else if(strpos($ipString, ':') === $posColon) - { - $ipString = substr($ipString, 0, $posColon); - } - // else: IPv6 address, A:B:C:D:E:F:G:H - } - // else: IPv4 address, A.B.C.D - - return $ipString; - } - - /** - * Sanitize human-readable (user-supplied) IP address range. - * - * Accepts the following formats for $ipRange: - * - single IPv4 address, e.g., 127.0.0.1 - * - single IPv6 address, e.g., ::1/128 - * - IPv4 block using CIDR notation, e.g., 192.168.0.0/22 represents the IPv4 addresses from 192.168.0.0 to 192.168.3.255 - * - IPv6 block using CIDR notation, e.g., 2001:DB8::/48 represents the IPv6 addresses from 2001:DB8:0:0:0:0:0:0 to 2001:DB8:0:FFFF:FFFF:FFFF:FFFF:FFFF - * - wildcards, e.g., 192.168.0.* - * - * @param string $ipRangeString IP address range - * @return string|false IP address range in CIDR notation - */ - static public function sanitizeIpRange($ipRangeString) - { - $ipRangeString = trim($ipRangeString); - if(empty($ipRangeString)) - { - return false; - } - - // IPv4 address with wildcards '*' - if(strpos($ipRangeString, '*') !== false) - { - if(preg_match('~(^|\.)\*\.\d+(\.|$)~D', $ipRangeString)) - { - return false; - } - - $bits = 32 - 8 * substr_count($ipRangeString, '*'); - $ipRangeString = str_replace('*', '0', $ipRangeString); - } - - // CIDR - if(($pos = strpos($ipRangeString, '/')) !== false) - { - $bits = substr($ipRangeString, $pos + 1); - $ipRangeString = substr($ipRangeString, 0, $pos); - } - - // single IP - if(($ip = @_inet_pton($ipRangeString)) === false) - return false; - - $maxbits = Piwik_Common::strlen($ip) * 8; - if(!isset($bits)) - $bits = $maxbits; - - if($bits < 0 || $bits > $maxbits) - { - return false; - } - - return "$ipRangeString/$bits"; - } - - /** - * Convert presentation format IP address to network address format - * - * @param string $ipString IP address, either IPv4 or IPv6, e.g., "127.0.0.1" - * @return string Binary-safe string, e.g., "\x7F\x00\x00\x01" - */ - static public function P2N($ipString) - { - // use @inet_pton() because it throws an exception and E_WARNING on invalid input - $ip = @_inet_pton($ipString); - return $ip === false ? "\x00\x00\x00\x00" : $ip; - } - - /** - * Convert network address format to presentation format - * - * @see prettyPrint() - * - * @param string $ip IP address in network address format - * @return string IP address in presentation format - */ - static public function N2P($ip) - { - // use @inet_ntop() because it throws an exception and E_WARNING on invalid input - $ipStr = @_inet_ntop($ip); - return $ipStr === false ? '0.0.0.0' : $ipStr; - } - - /** - * Alias for N2P() - * - * @param string $ip IP address in network address format - * @return string IP address in presentation format - */ - static public function prettyPrint($ip) - { - return self::N2P($ip); - } - - /** - * Is this an IPv4, IPv4-compat, or IPv4-mapped address? - * - * @param string $ip IP address in network address format - * @return bool True if IPv4, else false - */ - static public function isIPv4($ip) - { - // in case mbstring overloads strlen and substr functions - $strlen = function_exists('mb_orig_strlen') ? 'mb_orig_strlen' : 'strlen'; - $substr = function_exists('mb_orig_substr') ? 'mb_orig_substr' : 'substr'; - - // IPv4 - if($strlen($ip) == 4) - { - return true; - } - - // IPv6 - transitional address? - if($strlen($ip) == 16) - { - if(substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff", 0, 12) === 0 - || substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 0, 12) === 0) - { - return true; - } - } - - return false; - } - - /** - * Convert IP address (in network address format) to presentation format. - * This is a backward compatibility function for code that only expects - * IPv4 addresses (i.e., doesn't support IPv6). - * - * This function does not support the long (or its string representation) - * returned by the built-in ip2long() function, from Piwik 1.3 and earlier. - * - * @param string $ip IPv4 address in network address format - * @return string IP address in presentation format - */ - static public function long2ip($ip) - { - // IPv4 - if(Piwik_Common::strlen($ip) == 4) - { - return self::N2P($ip); - } - - // IPv6 - transitional address? - if(Piwik_Common::strlen($ip) == 16) - { - if(substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff", 0, 12) === 0 - || substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 0, 12) === 0) - { - // remap 128-bit IPv4-mapped and IPv4-compat addresses - return self::N2P(Piwik_Common::substr($ip, 12)); - } - } - - return '0.0.0.0'; - } - - /** - * Returns true if $ip is an IPv6 address, false if otherwise. This function does - * a naive check. It assumes that whatever format $ip is in, it is well-formed. - * - * @param string $ip - * @return bool - */ - static public function isIPv6( $ip ) - { - return strpos($ip, ':') !== false; - } - - /** - * Returns true if $ip is a IPv4 mapped address, false if otherwise. - * - * @param string $ip - * @return bool - */ - static public function isMappedIPv4($ip) - { - return substr($ip, 0, strlen(self::MAPPED_IPv4_START)) === self::MAPPED_IPv4_START; - } - - /** - * Returns - */ - static public function getIPv4FromMappedIPv6($ip) - { - return substr($ip, strlen(self::MAPPED_IPv4_START)); - } - - /** - * Get low and high IP addresses for a specified range. - * - * @param array $ipRange An IP address range in presentation format - * @return array|false Array ($lowIp, $highIp) in network address format, or false if failure - */ - static public function getIpsForRange($ipRange) - { - if(strpos($ipRange, '/') === false) - { - $ipRange = self::sanitizeIpRange($ipRange); - } - $pos = strpos($ipRange, '/'); - - $bits = substr($ipRange, $pos + 1); - $range = substr($ipRange, 0, $pos); - $high = $low = @_inet_pton($range); - if($low === false) - { - return false; - } - - $lowLen = Piwik_Common::strlen($low); - $i = $lowLen - 1; - $bits = $lowLen * 8 - $bits; - - for($n = (int)($bits / 8); $n > 0; $n--, $i--) - { - $low[$i] = chr(0); - $high[$i] = chr(255); - } - - $n = $bits % 8; - if($n) - { - $low[$i] = chr(ord($low[$i]) & ~((1 << $n) - 1)); - $high[$i] = chr(ord($high[$i]) | ((1 << $n) - 1)); - } - - return array($low, $high); - } - - /** - * Determines if an IP address is in a specified IP address range. - * - * An IPv4-mapped address should be range checked with an IPv4-mapped address range. - * - * @param string $ip IP address in network address format - * @param array $ipRanges List of IP address ranges - * @return bool True if in any of the specified IP address ranges; else false. - */ - static public function isIpInRange($ip, $ipRanges) - { - $ipLen = Piwik_Common::strlen($ip); - if(empty($ip) || empty($ipRanges) || ($ipLen != 4 && $ipLen != 16)) - { - return false; - } - - foreach($ipRanges as $range) - { - if(is_array($range)) - { - // already split into low/high IP addresses - $range[0] = self::P2N($range[0]); - $range[1] = self::P2N($range[1]); - } - else - { - // expect CIDR format but handle some variations - $range = self::getIpsForRange($range); - } - if($range === false) - { - continue; - } - - $low = $range[0]; - $high = $range[1]; - if(Piwik_Common::strlen($low) != $ipLen) - { - continue; - } - - // binary-safe string comparison - if($ip >= $low && $ip <= $high) - { - return true; - } - } - - return false; - } - - /** - * Returns the best possible IP of the current user, in the format A.B.C.D - * For example, this could be the proxy client's IP address. - * - * @return string IP address in presentation format - */ - static public function getIpFromHeader() - { - $clientHeaders = @Piwik_Config::getInstance()->General['proxy_client_headers']; - if(!is_array($clientHeaders)) - { - $clientHeaders = array(); - } - - $default = '0.0.0.0'; - if(isset($_SERVER['REMOTE_ADDR'])) - { - $default = $_SERVER['REMOTE_ADDR']; - } - - $ipString = self::getNonProxyIpFromHeader($default, $clientHeaders); - return self::sanitizeIp($ipString); - } - - /** - * Returns a non-proxy IP address from header - * - * @param string $default Default value to return if no matching proxy header - * @param array $proxyHeaders List of proxy headers - * @return string - */ - static public function getNonProxyIpFromHeader($default, $proxyHeaders) - { - $proxyIps = @Piwik_Config::getInstance()->General['proxy_ips']; - if(!is_array($proxyIps)) - { - $proxyIps = array(); - } - $proxyIps[] = $default; - - // examine proxy headers - foreach($proxyHeaders as $proxyHeader) - { - if(!empty($_SERVER[$proxyHeader])) - { - $proxyIp = self::getLastIpFromList($_SERVER[$proxyHeader], $proxyIps); - if(strlen($proxyIp) && stripos($proxyIp, 'unknown') === false) - { - return $proxyIp; - } - } - } - - return $default; - } - - /** - * Returns the last IP address in a comma separated list, subject to an optional exclusion list. - * - * @param string $csv Comma separated list of elements - * @param array $excludedIps Optional list of excluded IP addresses (or IP address ranges) - * @return string Last (non-excluded) IP address in the list - */ - static public function getLastIpFromList($csv, $excludedIps = null) - { - $p = strrpos($csv, ','); - if($p !== false) - { - $elements = explode(',', $csv); - for($i = count($elements); $i--; ) - { - $element = trim(Piwik_Common::sanitizeInputValue($elements[$i])); - if(empty($excludedIps) || (!in_array($element, $excludedIps) && !self::isIpInRange(self::P2N(self::sanitizeIp($element)), $excludedIps))) - { - return $element; - } - } - } - return trim(Piwik_Common::sanitizeInputValue($csv)); - } - - /** - * Get hostname for a given IP address - * - * @param string $ipStr Human-readable IP address - * @return string Hostname or unmodified $ipStr if failure - */ - static public function getHostByAddr($ipStr) - { - // PHP's reverse lookup supports ipv4 and ipv6 - // except on Windows before PHP 5.3 - $host = strtolower(@gethostbyaddr($ipStr)); - return $host === '' ? $ipStr : $host; - } + const MAPPED_IPv4_START = '::ffff:'; + + /** + * Sanitize human-readable IP address. + * + * @param string $ipString IP address + * @return string|false + */ + static public function sanitizeIp($ipString) + { + $ipString = trim($ipString); + + // CIDR notation, A.B.C.D/E + $posSlash = strrpos($ipString, '/'); + if ($posSlash !== false) { + $ipString = substr($ipString, 0, $posSlash); + } + + $posColon = strrpos($ipString, ':'); + $posDot = strrpos($ipString, '.'); + if ($posColon !== false) { + // IPv6 address with port, [A:B:C:D:E:F:G:H]:EEEE + $posRBrac = strrpos($ipString, ']'); + if ($posRBrac !== false && $ipString[0] == '[') { + $ipString = substr($ipString, 1, $posRBrac - 1); + } + + if ($posDot !== false) { + // IPv4 address with port, A.B.C.D:EEEE + if ($posColon > $posDot) { + $ipString = substr($ipString, 0, $posColon); + } + // else: Dotted quad IPv6 address, A:B:C:D:E:F:G.H.I.J + } else if (strpos($ipString, ':') === $posColon) { + $ipString = substr($ipString, 0, $posColon); + } + // else: IPv6 address, A:B:C:D:E:F:G:H + } + // else: IPv4 address, A.B.C.D + + return $ipString; + } + + /** + * Sanitize human-readable (user-supplied) IP address range. + * + * Accepts the following formats for $ipRange: + * - single IPv4 address, e.g., 127.0.0.1 + * - single IPv6 address, e.g., ::1/128 + * - IPv4 block using CIDR notation, e.g., 192.168.0.0/22 represents the IPv4 addresses from 192.168.0.0 to 192.168.3.255 + * - IPv6 block using CIDR notation, e.g., 2001:DB8::/48 represents the IPv6 addresses from 2001:DB8:0:0:0:0:0:0 to 2001:DB8:0:FFFF:FFFF:FFFF:FFFF:FFFF + * - wildcards, e.g., 192.168.0.* + * + * @param string $ipRangeString IP address range + * @return string|false IP address range in CIDR notation + */ + static public function sanitizeIpRange($ipRangeString) + { + $ipRangeString = trim($ipRangeString); + if (empty($ipRangeString)) { + return false; + } + + // IPv4 address with wildcards '*' + if (strpos($ipRangeString, '*') !== false) { + if (preg_match('~(^|\.)\*\.\d+(\.|$)~D', $ipRangeString)) { + return false; + } + + $bits = 32 - 8 * substr_count($ipRangeString, '*'); + $ipRangeString = str_replace('*', '0', $ipRangeString); + } + + // CIDR + if (($pos = strpos($ipRangeString, '/')) !== false) { + $bits = substr($ipRangeString, $pos + 1); + $ipRangeString = substr($ipRangeString, 0, $pos); + } + + // single IP + if (($ip = @_inet_pton($ipRangeString)) === false) + return false; + + $maxbits = Piwik_Common::strlen($ip) * 8; + if (!isset($bits)) + $bits = $maxbits; + + if ($bits < 0 || $bits > $maxbits) { + return false; + } + + return "$ipRangeString/$bits"; + } + + /** + * Convert presentation format IP address to network address format + * + * @param string $ipString IP address, either IPv4 or IPv6, e.g., "127.0.0.1" + * @return string Binary-safe string, e.g., "\x7F\x00\x00\x01" + */ + static public function P2N($ipString) + { + // use @inet_pton() because it throws an exception and E_WARNING on invalid input + $ip = @_inet_pton($ipString); + return $ip === false ? "\x00\x00\x00\x00" : $ip; + } + + /** + * Convert network address format to presentation format + * + * @see prettyPrint() + * + * @param string $ip IP address in network address format + * @return string IP address in presentation format + */ + static public function N2P($ip) + { + // use @inet_ntop() because it throws an exception and E_WARNING on invalid input + $ipStr = @_inet_ntop($ip); + return $ipStr === false ? '0.0.0.0' : $ipStr; + } + + /** + * Alias for N2P() + * + * @param string $ip IP address in network address format + * @return string IP address in presentation format + */ + static public function prettyPrint($ip) + { + return self::N2P($ip); + } + + /** + * Is this an IPv4, IPv4-compat, or IPv4-mapped address? + * + * @param string $ip IP address in network address format + * @return bool True if IPv4, else false + */ + static public function isIPv4($ip) + { + // in case mbstring overloads strlen and substr functions + $strlen = function_exists('mb_orig_strlen') ? 'mb_orig_strlen' : 'strlen'; + $substr = function_exists('mb_orig_substr') ? 'mb_orig_substr' : 'substr'; + + // IPv4 + if ($strlen($ip) == 4) { + return true; + } + + // IPv6 - transitional address? + if ($strlen($ip) == 16) { + if (substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff", 0, 12) === 0 + || substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 0, 12) === 0 + ) { + return true; + } + } + + return false; + } + + /** + * Convert IP address (in network address format) to presentation format. + * This is a backward compatibility function for code that only expects + * IPv4 addresses (i.e., doesn't support IPv6). + * + * This function does not support the long (or its string representation) + * returned by the built-in ip2long() function, from Piwik 1.3 and earlier. + * + * @param string $ip IPv4 address in network address format + * @return string IP address in presentation format + */ + static public function long2ip($ip) + { + // IPv4 + if (Piwik_Common::strlen($ip) == 4) { + return self::N2P($ip); + } + + // IPv6 - transitional address? + if (Piwik_Common::strlen($ip) == 16) { + if (substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff", 0, 12) === 0 + || substr_compare($ip, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 0, 12) === 0 + ) { + // remap 128-bit IPv4-mapped and IPv4-compat addresses + return self::N2P(Piwik_Common::substr($ip, 12)); + } + } + + return '0.0.0.0'; + } + + /** + * Returns true if $ip is an IPv6 address, false if otherwise. This function does + * a naive check. It assumes that whatever format $ip is in, it is well-formed. + * + * @param string $ip + * @return bool + */ + static public function isIPv6($ip) + { + return strpos($ip, ':') !== false; + } + + /** + * Returns true if $ip is a IPv4 mapped address, false if otherwise. + * + * @param string $ip + * @return bool + */ + static public function isMappedIPv4($ip) + { + return substr($ip, 0, strlen(self::MAPPED_IPv4_START)) === self::MAPPED_IPv4_START; + } + + /** + * Returns + */ + static public function getIPv4FromMappedIPv6($ip) + { + return substr($ip, strlen(self::MAPPED_IPv4_START)); + } + + /** + * Get low and high IP addresses for a specified range. + * + * @param array $ipRange An IP address range in presentation format + * @return array|false Array ($lowIp, $highIp) in network address format, or false if failure + */ + static public function getIpsForRange($ipRange) + { + if (strpos($ipRange, '/') === false) { + $ipRange = self::sanitizeIpRange($ipRange); + } + $pos = strpos($ipRange, '/'); + + $bits = substr($ipRange, $pos + 1); + $range = substr($ipRange, 0, $pos); + $high = $low = @_inet_pton($range); + if ($low === false) { + return false; + } + + $lowLen = Piwik_Common::strlen($low); + $i = $lowLen - 1; + $bits = $lowLen * 8 - $bits; + + for ($n = (int)($bits / 8); $n > 0; $n--, $i--) { + $low[$i] = chr(0); + $high[$i] = chr(255); + } + + $n = $bits % 8; + if ($n) { + $low[$i] = chr(ord($low[$i]) & ~((1 << $n) - 1)); + $high[$i] = chr(ord($high[$i]) | ((1 << $n) - 1)); + } + + return array($low, $high); + } + + /** + * Determines if an IP address is in a specified IP address range. + * + * An IPv4-mapped address should be range checked with an IPv4-mapped address range. + * + * @param string $ip IP address in network address format + * @param array $ipRanges List of IP address ranges + * @return bool True if in any of the specified IP address ranges; else false. + */ + static public function isIpInRange($ip, $ipRanges) + { + $ipLen = Piwik_Common::strlen($ip); + if (empty($ip) || empty($ipRanges) || ($ipLen != 4 && $ipLen != 16)) { + return false; + } + + foreach ($ipRanges as $range) { + if (is_array($range)) { + // already split into low/high IP addresses + $range[0] = self::P2N($range[0]); + $range[1] = self::P2N($range[1]); + } else { + // expect CIDR format but handle some variations + $range = self::getIpsForRange($range); + } + if ($range === false) { + continue; + } + + $low = $range[0]; + $high = $range[1]; + if (Piwik_Common::strlen($low) != $ipLen) { + continue; + } + + // binary-safe string comparison + if ($ip >= $low && $ip <= $high) { + return true; + } + } + + return false; + } + + /** + * Returns the best possible IP of the current user, in the format A.B.C.D + * For example, this could be the proxy client's IP address. + * + * @return string IP address in presentation format + */ + static public function getIpFromHeader() + { + $clientHeaders = @Piwik_Config::getInstance()->General['proxy_client_headers']; + if (!is_array($clientHeaders)) { + $clientHeaders = array(); + } + + $default = '0.0.0.0'; + if (isset($_SERVER['REMOTE_ADDR'])) { + $default = $_SERVER['REMOTE_ADDR']; + } + + $ipString = self::getNonProxyIpFromHeader($default, $clientHeaders); + return self::sanitizeIp($ipString); + } + + /** + * Returns a non-proxy IP address from header + * + * @param string $default Default value to return if no matching proxy header + * @param array $proxyHeaders List of proxy headers + * @return string + */ + static public function getNonProxyIpFromHeader($default, $proxyHeaders) + { + $proxyIps = @Piwik_Config::getInstance()->General['proxy_ips']; + if (!is_array($proxyIps)) { + $proxyIps = array(); + } + $proxyIps[] = $default; + + // examine proxy headers + foreach ($proxyHeaders as $proxyHeader) { + if (!empty($_SERVER[$proxyHeader])) { + $proxyIp = self::getLastIpFromList($_SERVER[$proxyHeader], $proxyIps); + if (strlen($proxyIp) && stripos($proxyIp, 'unknown') === false) { + return $proxyIp; + } + } + } + + return $default; + } + + /** + * Returns the last IP address in a comma separated list, subject to an optional exclusion list. + * + * @param string $csv Comma separated list of elements + * @param array $excludedIps Optional list of excluded IP addresses (or IP address ranges) + * @return string Last (non-excluded) IP address in the list + */ + static public function getLastIpFromList($csv, $excludedIps = null) + { + $p = strrpos($csv, ','); + if ($p !== false) { + $elements = explode(',', $csv); + for ($i = count($elements); $i--;) { + $element = trim(Piwik_Common::sanitizeInputValue($elements[$i])); + if (empty($excludedIps) || (!in_array($element, $excludedIps) && !self::isIpInRange(self::P2N(self::sanitizeIp($element)), $excludedIps))) { + return $element; + } + } + } + return trim(Piwik_Common::sanitizeInputValue($csv)); + } + + /** + * Get hostname for a given IP address + * + * @param string $ipStr Human-readable IP address + * @return string Hostname or unmodified $ipStr if failure + */ + static public function getHostByAddr($ipStr) + { + // PHP's reverse lookup supports ipv4 and ipv6 + // except on Windows before PHP 5.3 + $host = strtolower(@gethostbyaddr($ipStr)); + return $host === '' ? $ipStr : $host; + } } /** @@ -482,72 +449,67 @@ class Piwik_IP * * @link http://php.net/inet_ntop * - * @param string $in_addr 32-bit IPv4 or 128-bit IPv6 address + * @param string $in_addr 32-bit IPv4 or 128-bit IPv6 address * @return string|false string representation of address or false on failure */ function php_compat_inet_ntop($in_addr) { - $r = bin2hex($in_addr); - - switch (Piwik_Common::strlen($in_addr)) - { - case 4: - // IPv4 address - $prefix = ''; - break; - - case 16: - // IPv4-mapped address - if(substr_compare($r, '00000000000000000000ffff', 0, 24) === 0) - { - $prefix = '::ffff:'; - $r = substr($r, 24); - break; - } - - // IPv4-compat address - if(substr_compare($r, '000000000000000000000000', 0, 24) === 0 && - substr_compare($r, '0000', 24, 4) !== 0) - { - $prefix = '::'; - $r = substr($r, 24); - break; - } - - $r = str_split($r, 4); - $r = implode(':', $r); - - // compress leading zeros - $r = preg_replace( - '/(^|:)0{1,3}/', - '$1', - $r - ); - - // compress longest (and leftmost) consecutive groups of zeros - if(preg_match_all('/(?:^|:)(0(:|$))+/D', $r, $matches)) - { - $longestMatch = 0; - foreach($matches[0] as $aMatch) - { - if(strlen($aMatch) > strlen($longestMatch)) - { - $longestMatch = $aMatch; - } - } - $r = substr_replace($r, '::', strpos($r, $longestMatch), strlen($longestMatch)); - } - - return $r; - - default: - return false; - } - - $r = str_split($r, 2); - $r = array_map('hexdec', $r); - $r = implode('.', $r); - return $prefix . $r; + $r = bin2hex($in_addr); + + switch (Piwik_Common::strlen($in_addr)) { + case 4: + // IPv4 address + $prefix = ''; + break; + + case 16: + // IPv4-mapped address + if (substr_compare($r, '00000000000000000000ffff', 0, 24) === 0) { + $prefix = '::ffff:'; + $r = substr($r, 24); + break; + } + + // IPv4-compat address + if (substr_compare($r, '000000000000000000000000', 0, 24) === 0 && + substr_compare($r, '0000', 24, 4) !== 0 + ) { + $prefix = '::'; + $r = substr($r, 24); + break; + } + + $r = str_split($r, 4); + $r = implode(':', $r); + + // compress leading zeros + $r = preg_replace( + '/(^|:)0{1,3}/', + '$1', + $r + ); + + // compress longest (and leftmost) consecutive groups of zeros + if (preg_match_all('/(?:^|:)(0(:|$))+/D', $r, $matches)) { + $longestMatch = 0; + foreach ($matches[0] as $aMatch) { + if (strlen($aMatch) > strlen($longestMatch)) { + $longestMatch = $aMatch; + } + } + $r = substr_replace($r, '::', strpos($r, $longestMatch), strlen($longestMatch)); + } + + return $r; + + default: + return false; + } + + $r = str_split($r, 2); + $r = array_map('hexdec', $r); + $r = implode('.', $r); + return $prefix . $r; } /** @@ -555,87 +517,79 @@ function php_compat_inet_ntop($in_addr) * * @link http://php.net/inet_pton * - * @param string $address a human readable IPv4 or IPv6 address + * @param string $address a human readable IPv4 or IPv6 address * @return string in_addr representation or false on failure */ function php_compat_inet_pton($address) { - // IPv4 (or IPv4-compat, or IPv4-mapped) - if(preg_match('/(^|:)([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)$/iD', $address, $matches)) - { - for($i = count($matches); $i-- > 2; ) - { - if($matches[$i] > 255 || - ($matches[$i][0] == '0' && strlen($matches[$i]) > 1)) - { - return false; - } - } - - if(empty($matches[1])) - { - $r = ip2long($address); - if($r === false) - { - return false; - } - - return pack('N', $r); - } - - $suffix = sprintf("%02x%02x:%02x%02x", $matches[2], $matches[3], $matches[4], $matches[5]); - $address = substr_replace($address, $matches[1] . $suffix, strrpos($address, $matches[0])); - } - - // IPv6 - if(strpos($address, ':') === false || - strspn($address, '01234567890abcdefABCDEF:') !== strlen($address)) - { - return false; - } - - if(substr($address, 0, 2) == '::') - { - $address = '0'.$address; - } - - if(substr($address, -2) == '::') - { - $address .= '0'; - } - - $r = explode(':', $address); - $count = count($r); - - // grouped zeros - if(strpos($address, '::') !== false - && $count < 8) - { - $zeroGroup = array_search('', $r, 1); - - // we're replacing this cell, so we splice (8 - $count + 1) cells containing '0' - array_splice($r, $zeroGroup, 1, array_fill(0, 9 - $count, '0')); - } - - // guard against excessive ':' or '::' - if($count > 8 || - array_search('', $r, 1) !== false) - { - return false; - } - - // leading zeros - foreach($r as $v) - { - if(strlen(ltrim($v, '0')) > 4) - { - return false; - } - } - - $r = array_map('hexdec', $r); - array_unshift($r, 'n*'); - $r = call_user_func_array('pack', $r); - - return $r; + // IPv4 (or IPv4-compat, or IPv4-mapped) + if (preg_match('/(^|:)([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)$/iD', $address, $matches)) { + for ($i = count($matches); $i-- > 2;) { + if ($matches[$i] > 255 || + ($matches[$i][0] == '0' && strlen($matches[$i]) > 1) + ) { + return false; + } + } + + if (empty($matches[1])) { + $r = ip2long($address); + if ($r === false) { + return false; + } + + return pack('N', $r); + } + + $suffix = sprintf("%02x%02x:%02x%02x", $matches[2], $matches[3], $matches[4], $matches[5]); + $address = substr_replace($address, $matches[1] . $suffix, strrpos($address, $matches[0])); + } + + // IPv6 + if (strpos($address, ':') === false || + strspn($address, '01234567890abcdefABCDEF:') !== strlen($address) + ) { + return false; + } + + if (substr($address, 0, 2) == '::') { + $address = '0' . $address; + } + + if (substr($address, -2) == '::') { + $address .= '0'; + } + + $r = explode(':', $address); + $count = count($r); + + // grouped zeros + if (strpos($address, '::') !== false + && $count < 8 + ) { + $zeroGroup = array_search('', $r, 1); + + // we're replacing this cell, so we splice (8 - $count + 1) cells containing '0' + array_splice($r, $zeroGroup, 1, array_fill(0, 9 - $count, '0')); + } + + // guard against excessive ':' or '::' + if ($count > 8 || + array_search('', $r, 1) !== false + ) { + return false; + } + + // leading zeros + foreach ($r as $v) { + if (strlen(ltrim($v, '0')) > 4) { + return false; + } + } + + $r = array_map('hexdec', $r); + array_unshift($r, 'n*'); + $r = call_user_func_array('pack', $r); + + return $r; } |