Source code of /usr/share/gwhois/includes/ipv6_functions.inc.php

Last modified: 2016-02-22 21:00:25

Download

<?php

#
#  IPv6 Functions for PHP
#
#  (c) 2012-2014 Daniel Marschall, ViaThinkSoft [www.viathinksoft.de]
#
#  Distribution, usage etc. pp. regulated by the current version of GPL.
#
#
#  Version 2014-12-22
#

# This library needs gmp! aptitude install php5-gmp

// TODO: oop, exceptions?
// TODO: variant without gmp ?
// TODO: IPv6 auflösung 'ffff::192.168.69.1' -> 'ffff:0000:0000:0000:0000:0000:c0a8:4501' geht nicht!!!

define('GMP_ONE'gmp_init('1'));

// Very small self-test:
/*
function ipv6_selftest() {
    $iv_b = 'c0ff:ee00::';
    $iv_m = 32;
    $r = ipv6_cidr2range($iv_b, $iv_m);
    echo "$iv_b/$iv_m => $r[0] - $r[1]\n";

    $rev = ipv6_range2cidr($r[0], $r[1]);
    $rev = implode("\n", $rev);
    echo "$r[0] - $r[1] => $rev [";
    $ok = $rev == "$iv_b/$iv_m";
    echo $ok ? 'OK' : 'Mismatch';
    echo "]\n";
    echo "In-CIDR-Test: ";
    echo ipv6_in_cidr("$iv_b/$iv_m", "$iv_b/$iv_m") ? 'OK' : 'Fail';
    echo "\n";
}
ipv6_selftest();
*/

$cache_ipv6_cidr2range = array();
function 
ipv6_cidr2range($baseip_or_cidr$subnet='') {
    
# (C) 2012 ViaThinkSoft
    # Version 1.1
    # This function converts an CIDR notation <baseip>/<subnet> into an IPv6 address block array($low_ip, $high_ip)

    
global $cache_ipv6_cidr2range;
    
$vvv $baseip_or_cidr.'|'.$subnet;
    if (isset(
$cache_ipv6_cidr2range[$vvv])) return $cache_ipv6_cidr2range[$vvv];

    if (
strpos($baseip_or_cidr'/') !== false) {
        
$tmp explode('/'$baseip_or_cidr2);
        
$baseip_or_cidr $tmp[0];
        
$subnet $tmp[1];
        unset(
$tmp);
    }

    if ((
$subnet 0) || ($subnet 128)) {
        
$cache_ipv6_cidr2range[$vvv] = false;
        return 
false;
    }

    
$maxint128 gmp_sub(gmp_pow('2'128), GMP_ONE); # TODO: GMP_TWO ?
    
$netmask gmp_shiftl($maxint128128-$subnet);
    
$netmask gmp_and($netmask$maxint128); // crop to 128 bit
    
$wildcard gmp_xor($maxint128$netmask);

    
$x gmp_and(ip2long6($baseip_or_cidr), $netmask);
    
$nums $wildcard;
    
$low long2ip6($x);
    
$high long2ip6(gmp_add($x$nums));

    
$out = array($low$high);
    
$cache_ipv6_cidr2range[$vvv] = $out;
    return 
$out;
}

$cache_ipv6_range2cidr = array();
function 
ipv6_range2cidr($baseip$topip) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0
    # This function converts an IPv6 address block into valid CIDR blocks (There may be multiple blocks!)

    
global $cache_ipv6_range2cidr;
    
$vvv $baseip.'|'.$topip;
    if (isset(
$cache_ipv6_range2cidr[$vvv])) return $cache_ipv6_range2cidr[$vvv];

    
$out = array();
    if (
ipv6_cmp($baseip$topip) > 0) {
        
$cache_ipv6_range2cidr[$vvv] = false;
        return 
false;
    }
    while (
gmp_cmp(gmp_sub(ip2long6($baseip), GMP_ONE), ip2long6($topip)) != 0) {
        
$i = -1;
        do {
            
$i++;
            
$range ipv6_cidr2range($baseip$i);
            
$l $range[0];
            
$t $range[1];
        } while ((
ipv6_cmp($l$baseip) != 0) || (ipv6_cmp($t$topip) > 0));

        
$out[] = "$baseip/$i";
        
$baseip ipv6_add($tGMP_ONE);
    }

    
$cache_ipv6_range2cidr[$vvv] = $out;
    return 
$out;
}

function 
ipv6_add($baseip$num) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
return long2ip6(gmp_add(ip2long6($baseip), $num));
}

function 
ipv6_sub($baseip$num) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
return long2ip6(gmp_sub(ip2long6($baseip), $num));
}

function 
ipv6_cmp($a$b) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
return gmp_cmp(ip2long6($a), ip2long6($b));
}

$cache_ipv6_in_cidr = array();
function 
ipv6_in_cidr($haystack$needle) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.1

    
global $cache_ipv6_in_cidr;
    
$vvv $haystack.'|'.$needle;
    if (isset(
$cache_ipv6_in_cidr[$vvv])) return $cache_ipv6_in_cidr[$vvv];

    
$x explode('/'$haystack);
    
$ha ipv6_cidr2range($x[0], $x[1]);

    
$x explode('/'$needle);
    if (!isset(
$x[1])) $x[1] = 128// single IP
    
$ne ipv6_cidr2range($x[0], $x[1]);

    
$ha_low ip2long6($ha[0]);
    
$ha_hig ip2long6($ha[1]);
    
$ne_low ip2long6($ne[0]);
    
$ne_hig ip2long6($ne[1]);

    
# HA:    low[                               ]high
    # NE:            low[             ]high

    
$out = (gmp_cmp($ne_low$ha_low) >= 0) && (gmp_cmp($ne_hig$ha_hig) <= 0);
    
$cache_ipv6_in_cidr[$vvv] = $out;
    return 
$out;
}

// IMPORTANT! $cmp_ary[x]=y MUST HAVE x<=y !
function ipv6_merge_address_blocks($data$debug false) {
    
# (C) 2012-2013 ViaThinkSoft
    # Version 2.2

    
if ($debug !== false$STARTZEIT time();

    
// 1. Convert IPs to numbers

    
$cmp_ary = array();
    foreach (
$data as $a => &$b) {
        
$a ip2long6($a);
        
$b ip2long6($b);

        
$cmp_ary[gmp_strval($a)] = gmp_strval($b);
        unset(
$a);
        unset(
$b);
    }

    
// 2. Sort array

    
ksort($cmp_ary);

    
// 3. Merge the blocks in an intelligent way (and remove redundant blocks)

    # Merge overlapping blocks
    #   [          ]
    #           [            ]   ->   [                    ]

    # Merge neighbor blocks
    #   [   ][   ]   ->   [        ]

    # Remove redundant blocks
    #  [          ]   ->   [          ]
    #      [  ]

    
$merge_count 0;
    
$redundant_deleted_count 0;
    
$round_count 0;
    do {
        if (
$debug !== false) {
            
$LAUFZEIT time() - $STARTZEIT;
            echo 
$debug."Merging... $round_count rounds; merged $merge_count blocks; deleted $redundant_deleted_count redundant blocks; time: $LAUFZEIT seconds\r";
        }

        
$round_count++;

        
$clean true;

        foreach (
$cmp_ary as $a => &$b) {
            foreach (
$cmp_ary as $x => &$y) {
                
// x in range [a+1..b+1] ?
                
if (gmp_cmp(gmp_init($x), gmp_init($a)) <= 0) continue;
                if (
gmp_cmp(gmp_init($x), gmp_add(gmp_init($b), GMP_ONE)) > 0) break;

                
// Merge
                
$clean false;
                if (
gmp_cmp(gmp_init($y), gmp_init($b)) > 0) {
                    
$merge_count++;
                    
$b $y;
                    unset(
$cmp_ary[$x]);
                } else {
                    
$redundant_deleted_count++;
                    unset(
$cmp_ary[$x]);
                }
            }
        }
    } while (!
$clean);

    if (
$debug !== false) {
        
$LAUFZEIT time() - $STARTZEIT;
        echo 
$debug."Merge completed. $round_count rounds; merged $merge_count blocks; deleted $redundant_deleted_count redundant blocks; time: $LAUFZEIT seconds\n";
    }

    
// 4. Convert back to IPs

    
$out_ary = array();
    foreach (
$cmp_ary as $a => &$b) {
        
$a long2ip6(gmp_init($a));
        
$b long2ip6(gmp_init($b));
        
$out_ary[$a] = $b;
    }

    return 
$out_ary;
}

function 
ipv6_merge_arrays($data_a$data_b) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.2

    
$normalized_data_a = array();
    foreach (
$data_a as $from => &$to) {
        
$normalized_data_a[ipv6_normalize($from)] = ipv6_normalize($to);
    }

    
$normalized_data_b = array();
    foreach (
$data_b as $from => &$to) {
        
$normalized_data_b[ipv6_normalize($from)] = ipv6_normalize($to);
    }

    
$data = array();

    foreach (
$normalized_data_a as $from => &$to) {
        if (isset(
$normalized_data_b[$from])) {
            
$data[$from] = ipv6_max($to$normalized_data_b[$from]);
        } else {
            
$data[$from] = $to;
        }
    }

    foreach (
$normalized_data_b as $from => &$to) {
        if (!isset(
$normalized_data_a[$from])) {
            
$data[$from] = $to;
        }
    }

    return 
$data;
}

function 
ipv6_valid($ip) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
return ip2long6($ip) !== false;
}

function 
ipv6_normalize($ip) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    # Example:
    # 2001:0000:0000::1 -> 2001::1

    
$long ip2long6($ip);
    if (
$long == -|| $long === FALSE) return false;
    return 
long2ip6($long);
}

function 
ipv6_expand($ip) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    # Example:
    # 2001::1 -> 2001:0000:0000:0000:0000:0000:0000:0000

    
$long ip2long6($ip);
    if (
$long == -|| $long === FALSE) return false;
    return 
long2ip6($longfalse);
}

function 
ipv6_min($ip_a$ip_b) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
if (ipv6_cmp($ip_a$ip_b) == -1) {
        return 
$ip_a;
    } else {
        return 
$ip_b;
    }
}

function 
ipv6_max($ip_a$ip_b) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
if (ipv6_cmp($ip_a$ip_b) == 1) {
        return 
$ip_a;
    } else {
        return 
$ip_b;
    }
}

function 
ipv6_ipcount($data) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
$cnt gmp_init('0');

    foreach (
$data as $from => &$to) {
        
$cnt gmp_add($cntgmp_sub(ip2long6($to), ip2long6($from)));
    }

    return 
gmp_strval($cnt10);
}

function 
ipv6_read_file($file) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
$data = array();

    
$lines file($file);
    foreach (
$lines as &$line) {
        
$rng ipv6_line2range($line);
        
$data[$rng[0]] = $rng[1];
    }

    return 
$data;
}

function 
ipv6_line2range($line) {
    
# (C) 2012 ViaThinkSoft
    # Version 1.0

    
$line trim($line);

    if (
strpos($line'/') !== false) {
        
$rng ipv6_cidr2range($line);
    } else {
        
$rng explode('-'$line);
        
$rng[0] = trim($rng[0]);
        
$rng[1] = trim($rng[1]);
        
$rng[0] = ipv6_normalize($rng[0]);
        if (!isset(
$rng[1])) $rng[1] = $rng[0];
        
$rng[1] = ipv6_normalize($rng[1]);
    }

    return 
$rng;
}

# ---

function gmp_shiftl($x$n) { // shift left
    // http://www.php.net/manual/en/ref.gmp.php#99788
    
return gmp_mul($xgmp_pow('2'$n));
}

function 
gmp_shiftr($x$n) { // shift right
    // http://www.php.net/manual/en/ref.gmp.php#99788
    
return gmp_div($xgmp_pow('2'$n));
}

$cache_ip2long6 = array();
function 
ip2long6($ipv6) {
    
// Source:
    // http://www.netz-guru.de/2009/11/07/php-ipv6-ip2long-und-long2ip-funktionen/
    // Slightly modified

    
global $cache_ip2long6;
    if (isset(
$cache_ip2long6[$ipv6])) return $cache_ip2long6[$ipv6];

    if (
$ipv6 == ''$ipv6 '::';

    if (
filter_var($ipv6FILTER_VALIDATE_IPFILTER_FLAG_IPV6) === false) {
        
$cache_ip2long6[$ipv6] = false;
        return 
false;
    }

    
$ip_n inet_pton($ipv6);
    if (
$ip_n === false) {
        
$cache_ip2long6[$ipv6] = false;
        return 
false// modified
    
}
    
$bytes 16// 16 bytes x 8 bit/byte = 128bit
    
$ipv6long '';

    while (
$bytes 0) {
        
$bin sprintf('%08b',(ord($ip_n[$bytes-1])));
        
$ipv6long $bin.$ipv6long;
        
$bytes--;
    }

    
// $out = gmp_strval(gmp_init($ipv6long, 2), 10);
    
$out gmp_init($ipv6long2);
    
$cache_ip2long6[$ipv6] = $out;
    return 
$out;
}

$cache_long2ip6 = array();
function 
long2ip6($ipv6long$compress=true) {
    
// Source:
    // http://www.netz-guru.de/2009/11/07/php-ipv6-ip2long-und-long2ip-funktionen/
    // Slightly modified

    
global $cache_long2ip6;
    
$vvv = ($compress 'T' 'F').$ipv6long;
    if (isset(
$cache_long2ip6[$vvv])) return $cache_long2ip6[$vvv];

    
// $bin = gmp_strval(gmp_init($ipv6long, 10), 2);
    
$bin gmp_strval($ipv6long2);
    if (
strlen($bin) < 128) {
        
$pad 128 strlen($bin);
        for (
$i 1$i <= $pad$i++) {
            
$bin '0'.$bin;
        }
    }

    
$bytes 0;
    
$ipv6 '';
    while (
$bytes 8) { // 16 bytes x 8 bit/byte = 128bit
        
$bin_part substr($bin,($bytes*16),16);
        
$part dechex(bindec($bin_part));
        if (!
$compress) {
            
$part str_pad($part4'0'STR_PAD_LEFT);
        }
        
$ipv6 .= $part.':';
        
$bytes++;
    }

    if (
$compress) {
        
$out inet_ntop(inet_pton(substr($ipv60, -1)));
    } else {
        
$out substr($ipv60strlen($ipv6)-1);
    }
    
$cache_long2ip6[$vvv] = $out;
    return 
$out;
}

# --- New 16,12,12

define('IPV6_BITS'128);

$global_ipv6_distance = array();
function 
ipv6_distance($ipOrCIDR_Searchterm$ipOrCIDR_Candidate) {
    global 
$global_ipv6_distance;
    
$vvv $ipOrCIDR_Searchterm.'|'.$ipOrCIDR_Candidate;
    if (isset(
$global_ipv6_distance[$vvv])) return $global_ipv6_distance[$vvv];

    
$ary ipv6_cidr_split($ipOrCIDR_Searchterm);
    
$ip $ary[0];

    if (
filter_var($ipFILTER_VALIDATE_IPFILTER_FLAG_IPV6) === false) {
        
$global_ipv6_distance[$vvv] = false;
        return 
false;
    }

    
$ary ipv6_cidr_split($ipOrCIDR_Candidate);
    
$ip $ary[0];
    
$cidr_bits $ary[1];
    if (
$cidr_bits IPV6_BITS) {
        
$global_ipv6_distance[$vvv] = false;
        return 
false// throw new Exception('CIDR bits > '.IPV6_BITS);
    
}
    if (!
is_numeric($cidr_bits)) return false;

    if (
filter_var($ipFILTER_VALIDATE_IPFILTER_FLAG_IPV6) === false) {
        
$global_ipv6_distance[$vvv] = false;
        return 
false;
    }

    
$x ipv6_trackdown($ipOrCIDR_Searchterm);

    if (
ipv6_in_cidr($x[0], $ip.'/'.$cidr_bits)) {
        
$ary ipv6_cidr_split($x[0]);
        
$cidr_bits2 $ary[1];
        if (
$cidr_bits2 IPV6_BITS) {
            
$global_ipv6_distance[$vvv] = false;
            return 
false// throw new Exception('CIDR bits > '.IPV6_BITS);
        
}
        
$out $cidr_bits2-$cidr_bits;
        
$global_ipv6_distance[$vvv] = $out;
        return 
$out;
    }

    
$i 0;
    
$max false;
    foreach (
$x as &$y) {
        if (
ipv6_in_cidr($ip.'/'.$cidr_bits$y)) {
            
$max $i;
        }
        
$i++;
    }

    
$global_ipv6_distance[$vvv] = $max;
    return 
$max;
}

function 
ipv6_cidr_split($ipOrCIDR) {
    
$ary explode('/'$ipOrCIDR2);
    
$cidr_bits = isset($ary[1]) ? $ary[1] : IPV6_BITS;
    if (
$cidr_bits IPV6_BITS) return false// throw new Exception('CIDR bits > '.IPV6_BITS);
    
if (!is_numeric($cidr_bits)) return false;
    
$ip $ary[0];
    return array(
$ip$cidr_bits);
}

function 
ipv6_equals($ipOrCIDRA$ipOrCIDRB) {
    return 
ipv6_normalize_range($ipOrCIDRA) == ipv6_normalize_range($ipOrCIDRB);
}

function 
ipv6_cidr_min_ip($ipOrCIDR) {
    
$ary ipv6_cidr_split($ipOrCIDR);
    
$ipOrCIDR  $ary[0];
    
$cidr_bits $ary[1];
    if (
$cidr_bits IPV6_BITS) return false// throw new Exception('CIDR bits > '.IPV6_BITS);
    
if (!is_numeric($cidr_bits)) return false;

    
$m ip2bin($ipOrCIDR);
    
$m substr($m0$cidr_bits) . str_repeat('0'IPV6_BITS-$cidr_bits);

    return 
bin2ip($m);
}

function 
ipv6_cidr_max_ip($ipOrCIDR) {
    
$ary ipv6_cidr_split($ipOrCIDR);
    
$ipOrCIDR  $ary[0];
    
$cidr_bits $ary[1];
    if (
$cidr_bits IPV6_BITS) return false// throw new Exception('CIDR bits > '.IPV6_BITS);
    
if (!is_numeric($cidr_bits)) return false;

    
$m ip2bin($ipOrCIDR);
    
$m substr($m0$cidr_bits) . str_repeat('1'IPV6_BITS-$cidr_bits);

    return 
bin2ip($m);
}

function 
ipv6_normalize_range($ipOrCIDR) {
    
#     2001:1800::1/21
    # --> 2001:1800::/21

    #     2001:1af8:4100:a061:0001::1337
    # --> 2001:1af8:4100:a061:1::1337/128

    
$ary ipv6_cidr_split($ipOrCIDR);
    
$ipOrCIDR  $ary[0];
    
$cidr_bits $ary[1];
    if (
$cidr_bits IPV6_BITS) return false// throw new Exception('CIDR bits > '.IPV6_BITS);
    
if (!is_numeric($cidr_bits)) return false;

    
$m ip2bin($ipOrCIDR);
    
$m substr($m0$cidr_bits) . str_repeat('0'IPV6_BITS-$cidr_bits);

    return 
bin2ip($m) . '/' $cidr_bits;
}

function 
ipv6_trackdown($ipOrCIDR) {
    
$ary ipv6_cidr_split($ipOrCIDR);
    
$ipOrCIDR  $ary[0];
    
$cidr_bits $ary[1];
    if (
$cidr_bits IPV6_BITS) return false// throw new Exception('CIDR bits > '.IPV6_BITS);
    
if (!is_numeric($cidr_bits)) return false;

    
$out = array();
    
$m ip2bin($ipOrCIDR);
    for (
$i=$cidr_bits$i>=0$i--) {
        
$m substr($m0$i) . str_repeat('0'IPV6_BITS-$i);
        
$out[] = bin2ip($m) . '/' $i;
    }

    return 
$out;
}

function 
ipv6_sort($ary) {
    
$f = array();
    foreach (
$ary as $c) {
        
$a explode('/'$c);
        
$ip $a[0];
        
$bits = isset($a[1]) ? $a[1] : 128;

        
$d ip2bin($ip);

        
# ord('*') must be smaller than ord('0')
        
$d substr($d0$bits).str_repeat('*'128-$bits);

        
$f[$d] = $c;
    }

    return 
$f;
}

function 
ipv6_make_tree($ary) {
    
$ary ipv6_sort($ary);

    if (
count($ary) == 0) return array();

    
$sub_begin '';
    
$sub_begin_ip '';
    foreach (
$ary as $n => $d) {
        
$sub_begin substr($n0strpos($n'*'));
        
$sub_begin_ip $d;
        unset(
$ary[$n]);
        break;
    }

    
$sub = array();
    
$nonsub = array();
    foreach (
$ary as $n => $d) {
        if (
substr($n0strlen($sub_begin)) == $sub_begin) {
            
$sub[$n] = $d;
        } else {
            
$nonsub[$n] = $d;
        }
    }

    
$out = array();
    
$out[$sub_begin_ip] = ipv6_make_tree($sub);

    
$a ipv6_make_tree($nonsub);

    
$out array_merge($out$a);

    return 
$out;
}

# ---

if (!function_exists('ip2bin')) {
    
$cache_ip2bin = array();
    function 
ip2bin($ip) {
        
# Source: http://php.net/manual/en/function.ip2long.php#104163
        # modified by VTS

        
global $cache_ip2bin;
        if (isset(
$cache_ip2bin[$ip])) return $cache_ip2bin[$ip];

        if (
filter_var($ipFILTER_VALIDATE_IPFILTER_FLAG_IPV4) !== false) {
            
$out base_convert(ip2long($ip), 102);
            
$cache_ip2bin[$ip] = $out;
            return 
$out;
        }
        if (
filter_var($ipFILTER_VALIDATE_IPFILTER_FLAG_IPV6) === false) {
            
$cache_ip2bin[$ip] = false;
            return 
false;
        }
        if ((
$ip_n inet_pton($ip)) === false) {
            
$cache_ip2bin[$ip] = false;
            return 
false;
        }
        
$bits 15// 16 x 8 bit = 128bit (ipv6)
        
$ipbin ''# added by vts to avoid warning
        
while ($bits >= 0) {
            
$bin sprintf('%08b', (ord($ip_n[$bits])));
            
$ipbin $bin.$ipbin;
            
$bits--;
        }

        
$cache_ip2bin[$ip] = $ipbin;
        return 
$ipbin;
    }
}

if (!
function_exists('bin2ip')) {
    
$cache_bin2ip = array();
    function 
bin2ip($bin) {
        
# Source: http://php.net/manual/en/function.ip2long.php#104163
        # modified by VTS

        
global $cache_bin2ip;
        if (isset(
$cache_bin2ip[$bin])) return $cache_bin2ip[$bin];

        if (
strlen($bin) <= 32) { // 32bits (ipv4)
            
$out long2ip(base_convert($bin210));
            
$cache_bin2ip[$bin] = $out;
            return 
$out;
        }
        if (
strlen($bin) != 128) {
            
$cache_bin2ip[$bin] = false;
            return 
false;
        }
        
$pad 128 strlen($bin);
        for (
$i 1$i <= $pad$i++) {
            
$bin '0'.$bin;
        }
        
$bits 0;
        
$ipv6 ''# added by vts to avoid warning
        
while ($bits <= 7) {
            
$bin_part substr($bin,($bits*16),16);
            
$ipv6 .= dechex(bindec($bin_part)) . ':';
            
$bits++;
        }

        
$out inet_ntop(inet_pton(substr($ipv60, -1)));
        
$cache_bin2ip[$bin] = $out;
        return 
$out;
    }
}

# --- TEST

/*
assert(ipv6_normalize('2001:0000:0000::1') == '2001::1');

assert(ipv6_distance('2001:1ae0::/27', '2001:1af8::/29') == -2);
assert(ipv6_distance('2001:1af0::/28', '2001:1af8::/29') == -1);
assert(ipv6_distance('2001:1af8::/29', '2001:1af8::/29') == 0);
assert(ipv6_distance('2001:1af8::/30', '2001:1af8::/29') == 1);
assert(ipv6_distance('2001:1af8::/31', '2001:1af8::/29') == 2);

assert(ipv6_distance('2001:1af8:4100:a061:0001::1336/127', '2001:1af8:4100:a061:0001::1335/127') === false);
assert(ipv6_distance('2001:1af8:4100:a061:0001::1336/128', '2001:1af8:4100:a061:0001::1337/128') === false);
assert(ipv6_distance('2001:1af8:4100:a061:0001::1336',     '2001:1af8:4100:a061:0001::1337')     === false);
*/

/*
$test = '2001:1af8:4100:a061:0001::1337';
$x = ipv6_trackdown($test);
foreach ($x as &$cidr) {
    $min = ipv6_cidr_min_ip($cidr);
    $max = ipv6_cidr_max_ip($cidr);
    echo "$cidr ($min - $max)\n";
}
*/