diff options
author | Erik Fonnesbeck <efonnes@gmail.com> | 2010-09-01 14:53:30 -0600 |
---|---|---|
committer | Erik Fonnesbeck <efonnes@gmail.com> | 2010-09-01 14:53:30 -0600 |
commit | 56c100ab3499d7609ec0f807a551a34f98e198fc (patch) | |
tree | 690745a964315e749b980aef0544036a1f0c73dd /etc | |
parent | b4e6524c16f396264e026dc006b4f467be0f1921 (diff) | |
download | pfsense-56c100ab3499d7609ec0f807a551a34f98e198fc.zip pfsense-56c100ab3499d7609ec0f807a551a34f98e198fc.tar.gz |
Fix line endings on remaining files that did not have the same line endings as everything else.
Diffstat (limited to 'etc')
-rw-r--r-- | etc/inc/IPv6.inc | 1844 |
1 files changed, 922 insertions, 922 deletions
diff --git a/etc/inc/IPv6.inc b/etc/inc/IPv6.inc index 0ead7a7..8896ef6 100644 --- a/etc/inc/IPv6.inc +++ b/etc/inc/IPv6.inc @@ -1,922 +1,922 @@ -<?php
-
-/*
- pfSense_MODULE: utils
-*/
-
-/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
-
-/**
- * This file contains the implementation of the Net_IPv6 class
- *
- * PHP versions 4 and 5
- *
- * LICENSE: This source file is subject to the New BSD license, that is
- * available through the world-wide-web at
- * http://www.opensource.org/licenses/bsd-license.php
- * If you did not receive a copy of the new BSDlicense and are unable
- * to obtain it through the world-wide-web, please send a note to
- * license@php.net so we can mail you a copy immediately
- *
- * @category Net
- * @package Net_IPv6
- * @author Alexander Merz <alexander.merz@web.de>
- * @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 <alexander.merz@web.de>
- * @author <elfrink at introweb dot nl>
- * @author Josh Peck <jmp at joshpeck dot org>
- */
-class Net_IPv6 {
-
- // {{{ removeNetmaskBits()
-
- /**
- * Removes a possible existing netmask specification at an IP addresse.
- *
- * @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 addresse.
- *
- * @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 contains 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 addresse space.
- * Several addresse types are markers for reserved spaces and as
- * consequence a subject to change.
- *
- * @param String $ip the IP address in Hex format,
- * compressed IPs are allowed
- *
- * @return int one of the addresse 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 adress
- *
- * RFC 2373 allows you to compress zeros in an adress to '::'. This
- * function expects an valid IPv6 adress 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-adress (hex format)
- * @return string the uncompressed IPv6-adress (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:', 6-$c2-$c1);
- $uip = str_replace('::', $fill, $uip);
- $uip = str_replace('::', ':', $uip);
-
- }
- }
- if ('' != $netmask) {
-
- $uip = $uip.'/'.$netmask;
-
- }
-
- return $uip.$prefix;
- }
-
- // }}}
- // {{{ Compress()
-
- /**
- * Compresses an IPv6 adress
- *
- * RFC 2373 allows you to compress zeros in an adress to '::'. This
- * function expects an valid IPv6 adress 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-adress (hex format)
- * @return string the compressed IPv6-adress (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);
-
- }
- if ('' != $netmask) {
-
- $cip = $cip.'/'.$netmask;
-
- }
-
- return $cip.$prefix;
- }
-
- // }}}
- // {{{ SplitV64()
-
- /**
- * Splits an IPv6 adress into the IPv6 and a possible IPv4 part
- *
- * RFC 2373 allows you to note the last two parts of an IPv6 adress as
- * an IPv4 compatible adress
- *
- * 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-adress (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 adress
- *
- * Checks if the given IP is IPv6-compatible
- *
- * @access public
- * @static
- * @param string $ip a valid IPv6-adress
- * @return boolean true if $ip is an IPv6 adress
- */
- 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 netwask bits is provided via $bits
- *
- * The result is an indexed array. The key 'start'
- * contains the lowest possible IP adress. 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:
- */
-
-?>
+<?php + +/* + pfSense_MODULE: utils +*/ + +/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */ + +/** + * This file contains the implementation of the Net_IPv6 class + * + * PHP versions 4 and 5 + * + * LICENSE: This source file is subject to the New BSD license, that is + * available through the world-wide-web at + * http://www.opensource.org/licenses/bsd-license.php + * If you did not receive a copy of the new BSDlicense and are unable + * to obtain it through the world-wide-web, please send a note to + * license@php.net so we can mail you a copy immediately + * + * @category Net + * @package Net_IPv6 + * @author Alexander Merz <alexander.merz@web.de> + * @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 <alexander.merz@web.de> + * @author <elfrink at introweb dot nl> + * @author Josh Peck <jmp at joshpeck dot org> + */ +class Net_IPv6 { + + // {{{ removeNetmaskBits() + + /** + * Removes a possible existing netmask specification at an IP addresse. + * + * @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 addresse. + * + * @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 contains 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 addresse space. + * Several addresse types are markers for reserved spaces and as + * consequence a subject to change. + * + * @param String $ip the IP address in Hex format, + * compressed IPs are allowed + * + * @return int one of the addresse 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 adress + * + * RFC 2373 allows you to compress zeros in an adress to '::'. This + * function expects an valid IPv6 adress 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-adress (hex format) + * @return string the uncompressed IPv6-adress (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:', 6-$c2-$c1); + $uip = str_replace('::', $fill, $uip); + $uip = str_replace('::', ':', $uip); + + } + } + if ('' != $netmask) { + + $uip = $uip.'/'.$netmask; + + } + + return $uip.$prefix; + } + + // }}} + // {{{ Compress() + + /** + * Compresses an IPv6 adress + * + * RFC 2373 allows you to compress zeros in an adress to '::'. This + * function expects an valid IPv6 adress 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-adress (hex format) + * @return string the compressed IPv6-adress (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); + + } + if ('' != $netmask) { + + $cip = $cip.'/'.$netmask; + + } + + return $cip.$prefix; + } + + // }}} + // {{{ SplitV64() + + /** + * Splits an IPv6 adress into the IPv6 and a possible IPv4 part + * + * RFC 2373 allows you to note the last two parts of an IPv6 adress as + * an IPv4 compatible adress + * + * 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-adress (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 adress + * + * Checks if the given IP is IPv6-compatible + * + * @access public + * @static + * @param string $ip a valid IPv6-adress + * @return boolean true if $ip is an IPv6 adress + */ + 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 netwask bits is provided via $bits + * + * The result is an indexed array. The key 'start' + * contains the lowest possible IP adress. 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: + */ + +?> |