* @copyright 2003-2005 The PHP Group * @license http://www.opensource.org/licenses/bsd-license.php * @version CVS: $Id: IPv6.inc,v 1.2 2008/11/26 03:54:43 sumacob Exp $ * @link http://pear.php.net/package/Net_IPv6 */ // {{{ constants /** * Error message if netmask bits was not found * @see isInNetmask */ define("NET_IPV6_NO_NETMASK_MSG", "Netmask length not found"); /** * Error code if netmask bits was not found * @see isInNetmask */ define("NET_IPV6_NO_NETMASK", 10); /** * Address Type: Unassigned (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_UNASSIGNED", 1); /** * Address Type: Reserved (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_RESERVED", 11); /** * Address Type: Reserved for NSAP Allocation (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_RESERVED_NSAP", 12); /** * Address Type: Reserved for IPX Allocation (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_RESERVED_IPX", 13); /** * Address Type: Reserved for Geographic-Based Unicast Addresses * (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_RESERVED_UNICAST_GEOGRAPHIC", 14); /** * Address Type: Provider-Based Unicast Address (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_UNICAST_PROVIDER", 22); /** * Address Type: Multicast Addresses (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_MULTICAST", 31); /** * Address Type: Link Local Use Addresses (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_LOCAL_LINK", 42); /** * Address Type: Link Local Use Addresses (RFC 1884, Section 2.3) * @see getAddressType() */ define("NET_IPV6_LOCAL_SITE", 43); /** * Address Type: address can not assigned to a specific type * @see getAddressType() */ define("NET_IPV6_UNKNOWN_TYPE", 1001); // }}} // {{{ Net_IPv6 /** * Class to validate and to work with IPv6 addresses. * * @category Net * @package Net_IPv6 * @copyright 2003-2005 The PHP Group * @license http://www.opensource.org/licenses/bsd-license.php * @version $Release$ * @link http://pear.php.net/package/Net_IPv6 * @author Alexander Merz * @author * @author Josh Peck */ class Net_IPv6 { // {{{ removeNetmaskBits() /** * Removes a possible existing netmask specification at an IP address. * * @param String $ip the (compressed) IP as Hex representation * * @return String the IP without netmask length * @since 1.1.0 * @access public * @static */ function removeNetmaskSpec($ip) { $addr = $ip; if (false !== strpos($ip, '/')) { $elements = explode('/', $ip); if (2 == count($elements)) { $addr = $elements[0]; } } return $addr; } /** * Returns a possible existing netmask specification at an IP address. * * @param String $ip the (compressed) IP as Hex representation * * @return String the netmask spec * @since 1.1.0 * @access public * @static */ function getNetmaskSpec($ip) { $spec = ''; if (false !== strpos($ip, '/')) { $elements = explode('/', $ip); if (2 == count($elements)) { $spec = $elements[1]; } } return $spec; } // }}} // {{{ getNetmask() /** * Calculates the network prefix based on the netmask bits. * * @param String $ip the (compressed) IP in Hex format * @param int $bits if the number of netmask bits is not part of the IP * you must provide the number of bits * * @return String the network prefix * @since 1.1.0 * @access public * @static */ function getNetmask($ip, $bits = null) { if (null==$bits) { $elements = explode('/', $ip); if (2 == count($elements)) { $addr = $elements[0]; $bits = $elements[1]; } else { include_once 'PEAR.inc'; return PEAR::raiseError(NET_IPV6_NO_NETMASK_MSG, NET_IPV6_NO_NETMASK); } } else { $addr = $ip; } $addr = Net_IPv6::uncompress($addr); $binNetmask = str_repeat('1', $bits).str_repeat('0', 128 - $bits); return Net_IPv6::_bin2Ip(Net_IPv6::_ip2Bin($addr) & $binNetmask); } // }}} // {{{ isInNetmask() /** * Checks if an (compressed) IP is in a specific address space. * * IF the IP does not contain the number of netmask bits (F8000::FFFF/16) * then you have to use the $bits parameter. * * @param String $ip the IP to check (eg. F800::FFFF) * @param String $netmask the netmask (eg F800::) * @param int $bits the number of netmask bits to compare, * if not given in $ip * * @return boolean true if $ip is in the netmask * @since 1.1.0 * @access public * @static */ function isInNetmask($ip, $netmask, $bits=null) { // try to get the bit count if (null == $bits) { $elements = explode('/', $ip); if (2 == count($elements)) { $ip = $elements[0]; $bits = $elements[1]; } else if (null == $bits) { $elements = explode('/', $netmask); if (2 == count($elements)) { $netmask = $elements[0]; $bits = $elements[1]; } if (null == $bits) { include_once 'PEAR.inc'; return PEAR::raiseError(NET_IPV6_NO_NETMASK_MSG, NET_IPV6_NO_NETMASK); } } } $binIp = Net_IPv6::_ip2Bin(Net_IPv6::removeNetmaskSpec($ip)); $binNetmask = Net_IPv6::_ip2Bin(Net_IPv6::removeNetmaskSpec($netmask)); if (null != $bits && "" != $bits && 0 == strncmp( $binNetmask, $binIp, $bits)) { return true; } return false; } // }}} // {{{ getAddressType() /** * Returns the type of an IPv6 address. * * RFC 1883, Section 2.3 describes several types of addresses in * the IPv6 address space. * Several address types are markers for reserved spaces and as * a consequence are subject to change. * * @param String $ip the IP address in Hex format, * compressed IPs are allowed * * @return int one of the address type constants * @access public * @since 1.1.0 * @static * * @see NET_IPV6_UNASSIGNED * @see NET_IPV6_RESERVED * @see NET_IPV6_RESERVED_NSAP * @see NET_IPV6_RESERVED_IPX * @see NET_IPV6_RESERVED_UNICAST_GEOGRAPHIC * @see NET_IPV6_UNICAST_PROVIDER * @see NET_IPV6_MULTICAST * @see NET_IPV6_LOCAL_LINK * @see NET_IPV6_LOCAL_SITE * @see NET_IPV6_UNKNOWN_TYPE */ function getAddressType($ip) { $ip = Net_IPv6::removeNetmaskSpec($ip); $binip = Net_IPv6::_ip2Bin($ip); if (0 == strncmp('1111111010', $binip, 10)) { return NET_IPV6_LOCAL_LINK; } else if (0 == strncmp('1111111011', $binip, 10)) { return NET_IPV6_LOCAL_SITE; } else if (0 == strncmp('111111100', $binip, 9)) { return NET_IPV6_UNASSIGNED; } else if (0 == strncmp('11111111', $binip, 8)) { return NET_IPV6_MULTICAST; } else if (0 == strncmp('00000000', $binip, 8)) { return NET_IPV6_RESERVED; } else if (0 == strncmp('00000001', $binip, 8) || 0 == strncmp('1111110', $binip, 7)) { return NET_IPV6_UNASSIGNED; } else if (0 == strncmp('0000001', $binip, 7)) { return NET_IPV6_RESERVED_NSAP; } else if (0 == strncmp('0000010', $binip, 7)) { return NET_IPV6_RESERVED_IPX;; } else if (0 == strncmp('0000011', $binip, 7) || 0 == strncmp('111110', $binip, 6) || 0 == strncmp('11110', $binip, 5) || 0 == strncmp('00001', $binip, 5) || 0 == strncmp('1110', $binip, 4) || 0 == strncmp('0001', $binip, 4) || 0 == strncmp('001', $binip, 3) || 0 == strncmp('011', $binip, 3) || 0 == strncmp('101', $binip, 3) || 0 == strncmp('110', $binip, 3)) { return NET_IPV6_UNASSIGNED; } else if (0 == strncmp('010', $binip, 3)) { return NET_IPV6_UNICAST_PROVIDER; } else if (0 == strncmp('100', $binip, 3)) { return NET_IPV6_RESERVED_UNICAST_GEOGRAPHIC; } return NET_IPV6_UNKNOWN_TYPE; } // }}} // {{{ Uncompress() /** * Uncompresses an IPv6 address * * RFC 2373 allows you to compress zeros in an address to '::'. This * function expects a valid IPv6 address and expands the '::' to * the required zeros. * * Example: FF01::101 -> FF01:0:0:0:0:0:0:101 * ::1 -> 0:0:0:0:0:0:0:1 * * @access public * @see Compress() * @static * @param string $ip a valid IPv6-address (hex format) * @return string the uncompressed IPv6-address (hex format) */ function uncompress($ip) { $prefix = Net_IPv6::getPrefixLength($ip); if (false === $prefix) { $prefix = ''; } else { $ip = Net_IPv6::removePrefixLength($ip); $prefix = '/'.$prefix; } $netmask = Net_IPv6::getNetmaskSpec($ip); $uip = Net_IPv6::removeNetmaskSpec($ip); $c1 = -1; $c2 = -1; if (false !== strpos($uip, '::') ) { list($ip1, $ip2) = explode('::', $uip); if("" == $ip1) { $c1 = -1; } else { $pos = 0; if (0 < ($pos = substr_count($ip1, ':'))) { $c1 = $pos; } else { $c1 = 0; } } if ("" == $ip2) { $c2 = -1; } else { $pos = 0; if (0 < ($pos = substr_count($ip2, ':'))) { $c2 = $pos; } else { $c2 = 0; } } if (strstr($ip2, '.')) { $c2++; } if (-1 == $c1 && -1 == $c2) { // :: $uip = "0:0:0:0:0:0:0:0"; } else if (-1 == $c1) { // ::xxx $fill = str_repeat('0:', 7-$c2); $uip = str_replace('::', $fill, $uip); } else if (-1 == $c2) { // xxx:: $fill = str_repeat(':0', 7-$c1); $uip = str_replace('::', $fill, $uip); } else { // xxx::xxx $fill = str_repeat(':0:', max(1, 6-$c2-$c1)); $uip = str_replace('::', $fill, $uip); $uip = str_replace('::', ':', $uip); } } if ('' != $netmask) { $uip = $uip.'/'.$netmask; } return $uip.$prefix; } // }}} // {{{ Compress() /** * Compresses an IPv6 address * * RFC 2373 allows you to compress zeros in an address to '::'. This * function expects a valid IPv6 address and compresses successive zeros * to '::' * * Example: FF01:0:0:0:0:0:0:101 -> FF01::101 * 0:0:0:0:0:0:0:1 -> ::1 * * @access public * @see Uncompress() * @static * @param string $ip a valid IPv6-address (hex format) * @return string the compressed IPv6-address (hex format) * @author elfrink at introweb dot nl */ function compress($ip) { $prefix = Net_IPv6::getPrefixLength($ip); if (false === $prefix) { $prefix = ''; } else { $ip = Net_IPv6::removePrefixLength($ip); $prefix = '/'.$prefix; } $netmask = Net_IPv6::getNetmaskSpec($ip); $ip = Net_IPv6::removeNetmaskSpec($ip); if (!strstr($ip, '::')) { $ipp = explode(':',$ip); for ($i = 0; $i < count($ipp); $i++) { $ipp[$i] = dechex(hexdec($ipp[$i])); } $cip = ':' . join(':',$ipp) . ':'; preg_match_all("/(:0)+/", $cip, $zeros); if (count($zeros[0]) > 0) { $match = ''; foreach($zeros[0] as $zero) { if (strlen($zero) > strlen($match)) { $match = $zero; } } $cip = preg_replace('/' . $match . '/', ':', $cip, 1); } $cip = preg_replace('/((^:)|(:$))/', '' ,$cip); $cip = preg_replace('/((^:)|(:$))/', '::' ,$cip); } else { // The input IP appears to be compressed already, give it back as-is to the caller. $cip = $ip; } if ('' != $netmask) { $cip = $cip.'/'.$netmask; } return $cip.$prefix; } // }}} // {{{ SplitV64() /** * Splits an IPv6 address into the IPv6 and a possible IPv4 part * * RFC 2373 allows you to note the last two parts of an IPv6 address as * an IPv4 compatible address * * Example: 0:0:0:0:0:0:13.1.68.3 * 0:0:0:0:0:FFFF:129.144.52.38 * * @param string $ip a valid IPv6-address (hex format) * * @return array [0] contains the IPv6 part, * [1] the IPv4 part (hex format) * @access public * @static */ function SplitV64($ip, $uncompress = true) { $ip = Net_IPv6::removeNetmaskSpec($ip); if ($uncompress) { $ip = Net_IPv6::Uncompress($ip); } if (strstr($ip, '.')) { $pos = strrpos($ip, ':'); $ip{$pos} = '_'; $ipPart = explode('_', $ip); return $ipPart; } else { return array($ip, ""); } } // }}} // {{{ checkIPv6() /** * Checks an IPv6 address * * Checks if the given IP is IPv6-compatible * * @access public * @static * @param string $ip a valid IPv6-address * @return boolean true if $ip is an IPv6 address */ function checkIPv6($ip) { $ip = Net_IPv6::removePrefixLength($ip); $ip = Net_IPv6::removeNetmaskSpec($ip); $ipPart = Net_IPv6::SplitV64($ip); $count = 0; if (!empty($ipPart[0])) { $ipv6 =explode(':', $ipPart[0]); for ($i = 0; $i < count($ipv6); $i++) { $dec = hexdec($ipv6[$i]); $hex = strtoupper(preg_replace("/^[0]{1,3}(.*[0-9a-fA-F])$/", "\\1", $ipv6[$i])); if ($ipv6[$i] >= 0 && $dec <= 65535 && $hex == strtoupper(dechex($dec))) { $count++; } } if (8 == $count) { return true; } else if (6 == $count and !empty($ipPart[1])) { $ipv4 = explode('.',$ipPart[1]); $count = 0; for ($i = 0; $i < count($ipv4); $i++) { if ($ipv4[$i] >= 0 && (integer)$ipv4[$i] <= 255 && preg_match("/^\d{1,3}$/", $ipv4[$i])) { $count++; } } if (4 == $count) { return true; } } else { return false; } } else { return false; } } // }}} // {{{ getPrefixLength() /** * Tests for a prefix length specification in the address * and returns the prefix length, if exists * * @param String $ip a valid ipv6 address * * @return Mixed the prefix as String or false, if no prefix was found * @access public * @static */ function getPrefixLength($ip) { if (preg_match("/^([0-9a-fA-F:]{2,39})\/(\d{1,3})*$/", $ip, $matches)) { return $matches[2]; } else { return false; } } // }}} // {{{ removePrefixLength() /** * Tests for a prefix length specification in the address * and removes the prefix length, if exists * * @param String $ip a valid ipv6 address * * @return String the address without a prefix length * @access public * @static */ function removePrefixLength($ip) { $pos = strrpos($ip, '/'); if (false !== $pos) { return substr($ip, 0, $pos); } return $ip; } // }}} // {{{ _parseAddress() /** * Returns the lowest and highest IPv6 address * for a given IP and netmask specification * * The netmask may be a part of the $ip or * the number of netmask bits is provided via $bits * * The result is an indexed array. The key 'start' * contains the lowest possible IP address. The key * 'end' the highest address. * * @param String $ip the IPv6 address * @param String $bits the optional count of netmask bits * * @return Array ['start', 'end'] the lowest and highest IPv6 address * @access public * @static * @author Nicholas Williams */ function parseAddress($ipToParse, $bits = null) { $ip = null; $bitmask = null; if( null == $bits ) { $elements = explode('/', $ipToParse); if( 2 == count($elements) ) { $ip = Net_IPv6::uncompress($elements[0]); $bitmask = $elements[1]; } else { include_once 'PEAR.inc'; return PEAR::raiseError(NET_IPV6_NO_NETMASK_MSG, NET_IPV6_NO_NETMASK); } } else { $ip = Net_IPv6::uncompress($ipToParse); $bitmask = $bits; } $binNetmask = str_repeat('1', $bitmask). str_repeat('0', 128 - $bitmask); $maxNetmask = str_repeat('1', 128); $netmask = Net_IPv6::_bin2Ip($binNetmask); $startAddress = Net_IPv6::_bin2Ip(Net_IPv6::_ip2Bin($ip) & $binNetmask); $endAddress = Net_IPv6::_bin2Ip(Net_IPv6::_ip2Bin($ip) | ($binNetmask ^ $maxNetmask)); return array('start' => $startAddress, 'end' => $endAddress); } // }}} // {{{ _ip2Bin() /** * Converts an IPv6 address from Hex into Binary representation. * * @param String $ip the IP to convert (a:b:c:d:e:f:g:h), * compressed IPs are allowed * * @return String the binary representation * @access private @ @since 1.1.0 */ function _ip2Bin($ip) { $binstr = ''; $ip = Net_IPv6::removeNetmaskSpec($ip); $ip = Net_IPv6::Uncompress($ip); $parts = explode(':', $ip); foreach($parts as $v) { $str = base_convert($v, 16, 2); $binstr .= str_pad($str, 16, '0', STR_PAD_LEFT); } return $binstr; } // }}} // {{{ _bin2Ip() /** * Converts an IPv6 address from Binary into Hex representation. * * @param String $ip the IP as binary * * @return String the uncompressed Hex representation * @access private @ @since 1.1.0 */ function _bin2Ip($bin) { $ip = ""; if (strlen($bin) < 128) { $bin = str_pad($str, 128, '0', STR_PAD_LEFT); } $parts = str_split($bin, "16"); foreach($parts as $v) { $str = base_convert($v, 2, 16); $ip .= $str.":"; } $ip = substr($ip, 0,-1); return $ip; } // }}} } // }}} /* * Local variables: * tab-width: 4 * c-basic-offset: 4 * c-hanging-comment-ender-p: nil * End: */ ?>