Classic ASP/VBScript校验IPv4是否在CIDR范围及溢出问题求助

问题描述 #

在Classic ASP（VBScript）环境中，需要实现IPv4地址是否属于指定CIDR范围的校验，典型场景是验证CloudFlare代理请求的CF-Connecting-IP是否来自官方IPv4端点列表。

原方案尝试将IPv4地址转换为整数，通过位运算判断是否匹配CIDR范围，但遇到VBScript有符号整数溢出问题：VBScript的Long类型是32位有符号整数，最大值为2^31-1（2147483647），而IPv4地址转换为整数后最大值可达2^32-1（4294967295），超出范围导致溢出报错。

原实现及问题 #

原代码通过ip4toint函数将IP转为整数，再通过位运算比较掩码匹配：

function ip4toint(ip)
 ip_fields = split(ip, ".")
 ip4toint = cint(ip_fields(0))*(256^3) + cint(ip_fields(1))*(256^2) + cint(ip_fields(2))*(256) + cint(ip_fields(3))
end function

function ip4netmask(ip, cidr)
 cidr_fields = split(cidr, "/")
 cidr_ip = cidr_fields(0)
 cidr_int = ip4toint(cidr_ip)
 mask_bits = cidr_fields(1)

 if mask_bits = 0 then
  ip4netmask = true
  exit function
 end if
 
 ip_int = ip4toint(ip)

 mask_int = cint("&hffffffff")
 if mask_bits < 32 and mask_bits > 0 then
  mask_int = mask_int - (2^(32 - cint(mask_bits)) - 1)
 end if

 ip4netmask = (cidr_int and mask_int) = (ip_int and mask_int)
end function

问题核心：

1. CInt是16位整数，计算256^3（16777216）直接溢出；
2. 即使改用CLng，当IP首字节>127时，转换后的整数超过32位有符号上限，变为负数，位运算结果错误。

优化解决方案 #

改用Double类型存储IPv4的无符号整数（Double可精确表示所有32位整数），通过数学运算模拟掩码清零逻辑，避免位运算的溢出问题：

' 将IPv4地址转换为无符号32位整数（以Double类型存储）
Function IPToUInt32(ip)
    Dim octets, i, result
    octets = Split(ip, ".")
    result = 0
    For i = 0 To 3
        result = result * 256 + CLng(octets(i))
    Next
    ' 处理32位有符号转无符号：负数则加上2^32
    If result < 0 Then result = result + 4294967296
    IPToUInt32 = CDbl(result)
End Function

' 校验IP是否在指定CIDR范围内
Function IsIPInCIDR(ip, cidr)
    Dim cidrParts, networkIP, maskBits, networkUInt, ipUInt, shift
    cidrParts = Split(cidr, "/")
    networkIP = cidrParts(0)
    maskBits = CLng(cidrParts(1))
    
    ' /0掩码匹配所有IP
    If maskBits = 0 Then
        IsIPInCIDR = True
        Exit Function
    End If
    
    networkUInt = IPToUInt32(networkIP)
    ipUInt = IPToUInt32(ip)
    
    ' 计算需要清零的位数，模拟掩码作用
    shift = 32 - maskBits
    If shift > 0 Then
        ' 将IP和网络地址的后shift位清零
        networkUInt = Int(networkUInt / (2^shift)) * (2^shift)
        ipUInt = Int(ipUInt / (2^shift)) * (2^shift)
    End If
    
    ' 比较清零后的地址是否一致
    IsIPInCIDR = (networkUInt = ipUInt)
End Function

方案优势 #

1. 用Double存储无符号整数，彻底避免32位有符号整数的溢出问题；
2. 通过除法取整模拟掩码清零，效果等价于位运算的AND操作，逻辑高效；
3. 兼容所有CIDR掩码（0-32位），覆盖所有IPv4场景。

测试验证 #

使用原测试用例验证，结果符合预期：

function testip4n(ip, range)
 testip4n = "ip:" & ip & " range cidr: " & range & " ip in range: " & IsIPInCIDR(ip, range)
end function

测试输出：

<%=testip4n("10.3.172.198", "10.3.172.198/32")%> [expect:true]<br />
<%=testip4n("10.3.172.198", "10.3.172.199/32")%> [expect:false]<br />
<%=testip4n("10.3.172.198", "10.3.172.197/32")%> [expect:false]<br />
<%=testip4n("10.3.172.198", "10.3.172.199/31")%> [expect:true]<br />
<%=testip4n("10.3.172.198", "10.3.172.197/31")%> [expect:false]<br />
<%=testip4n("10.3.172.198", "10.3.172.100/24")%> [expect:true]<br />
<%=testip4n("10.3.172.198", "10.3.172.205/24")%> [expect:true]<br />
<%=testip4n("10.3.172.198", "10.3.174.198/24")%> [expect:false]<br />
<%=testip4n("10.3.172.198", "10.3.170.198/20")%> [expect:true]<br />
<%=testip4n("10.3.172.198", "10.3.170.198/0")%> [expect:true]<br />
<%=testip4n("10.1.172.198", "10.3.170.198/0")%> [expect:true]<br />
<%=testip4n("10.3.112.198", "10.3.170.198/0")%> [expect:true]<br />

内容的提问来源于stack exchange，提问作者Avenger