<?php

/**
 * 扩展类库-IP助手
 * 
 * @version 0.1.0
 * @author Anran 
 */
class IpInit {

    /**
     * IP-获取用户IP
     * 
     * @return string
     */
    public function get_ip() {
        static $realip = null;
        
        if (null !== $realip) {
            return $realip;
        }
        
        if (isset($_SERVER)) {
            if (isset($_SERVER['HTTP_X_FORWARDED_FOR'])) {
                $realip = $_SERVER['HTTP_X_FORWARDED_FOR'];
            } else 
                if (isset($_SERVER['HTTP_CLIENT_IP'])) {
                    $realip = $_SERVER['HTTP_CLIENT_IP'];
                } else {
                    $realip = $_SERVER['REMOTE_ADDR'];
                }
        } else {
            if (getenv('HTTP_X_FORWARDED_FOR')) {
                $realip = getenv('HTTP_X_FORWARDED_FOR');
            } else 
                if (getenv('HTTP_CLIENT_IP')) {
                    $realip = getenv('HTTP_CLIENT_IP');
                } else {
                    $realip = getenv('REMOTE_ADDR');
                }
        }
        
        // 处理多层代理的情况
        if (false !== strpos($realip, ',')) {
            $realip = reset(explode(',', $realip));
        }
        
        // IP地址合法验证
        $realip = filter_var($realip, FILTER_VALIDATE_IP, null);
        if (false === $realip) {
            return '0.0.0.0'; // unknown
        }
        
        return $realip;
    }

    /**
     * 检查IP是否在指定的网络范围内
     *
     * 1. 网络范围表示方法：
     * 通配符: 1.2.3.*
     * CIDR值: 1.2.3.0/24 或 1.2.3.4/255.255.255.0
     * IP段: 1.2.3.0-1.2.3.255
     * 2. 仅支持IPv4。
     * 3. 考虑到目前实用性不高，而且随着PHP本身的发展，将来或许会有更好的解决方案，
     * 暂时先不发布支持IPv6的版本，有兴趣的同学可联系我进一步交流或者自行研究。
     * 4. 实现IPv6的支持，需要至少32位无符号整数进行位运算，而PHP只支持32位有符号整数，
     * 可以使用float类型突破这个限制，但float类型不支持位运算，这是需要解决的首要问题。
     * 
     * @param string $ip
     *            IP地址
     * @param string $range
     *            网络范围
     * @return boolean
     */
    public function ip_in_range($ip, $range) {
        if (strpos($range, '/') !== false) {
            // CIDR值
            list ($range, $netmask) = explode('/', $range, 2);
            if (strpos($netmask, '.') !== false) {
                $netmask = str_replace('*', '0', $netmask);
                $netmask_dec = ip2long($netmask);
                return ((ip2long($ip) & $netmask_dec) === (ip2long($range) & $netmask_dec));
            } else {
                $x = explode('.', $range);
                while (count($x) < 4) {
                    $x[] = '0';
                }
                list ($a, $b, $c, $d) = $x;
                $range = sprintf('%u.%u.%u.%u', empty($a) ? '0' : $a, empty($b) ? '0' : $b, empty($c) ? '0' : $c, empty($d) ? '0' : $d);
                $range_dec = ip2long($range);
                $ip_dec = ip2long($ip);
                
                $wildcard_dec = pow(2, (32 - $netmask)) - 1;
                $netmask_dec = ~ $wildcard_dec;
                
                return (($ip_dec & $netmask_dec) === ($range_dec & $netmask_dec));
            }
        } else {
            // 通配符格式，转换为IP段进行判断
            if (strpos($range, '*') !== false) {
                $lower = str_replace('*', '0', $range);
                $upper = str_replace('*', '255', $range);
                $range = "{$lower}-{$upper}";
            }
            
            // IP段
            if (strpos($range, '-') !== false) {
                list ($lower, $upper) = explode('-', $range, 2);
                $lower_dec = (float) sprintf('%u', ip2long($lower));
                $upper_dec = (float) sprintf('%u', ip2long($upper));
                $ip_dec = (float) sprintf('%u', ip2long($ip));
                return (($ip_dec >= $lower_dec) && ($ip_dec <= $upper_dec));
            }
            
            // 网络范围格式不正确，返回false
            return false;
        }
    }
    
    /**
     * 将ipv4的地址转换为无符号整型
     * @param string $ip 
     * @return interger
     */
    public function ipv4ToInt($ip)
    {
        $arr = explode('.', $ip);
        return $arr[0] * pow(256, 3) + $arr[1] * pow(256, 2) + $arr[2] * 256 + $arr[3];
    }

    /**
     * 将无符号整型转换为ipv4的地址 
     * 超过2100000000有符号整型限制时，取模计算会出现问题。乘除不会。  
     * @param int $int
     * @return string
     */
    public function intToIpv4($int)
    {
        $arr = array();
        for ($i = 0; $i < 4; $i++) {
            $arr[$i] = intval($int / pow(256, 3 - $i));
            $int = $int - $arr[$i] * pow(256, 3 - $i);
        }
        return implode('.', $arr);
    }
    
    /**
     * 是否合法的IP
     * 
     * @param string $ip
     * @return bool
     */
    public function isIp($ip)
    {
        return preg_match('/^\d+\.\d+\.\d+\.\d+$/', $ip);
    }
}