判断是否是nei网IP - 精易论坛

子程序名	返回值类型	公开	备注
isInnerIP	逻辑型
参数名	类型	参考	可空	数组	备注
ipAddress	文本型

变量名	类型	静态	数组	备注
isInnerIp	逻辑型
ipNum	整数型
aBegin	整数型
aEnd	整数型
bBegin	整数型
bEnd	整数型
cBegin	整数型
cEnd	整数型
dBegin	整数型
dEnd	整数型

isInnerIp ＝假
ipNum ＝ getIpNum (ipAddress)
aBegin ＝ getIpNum (“10.0.0.0”)
aEnd ＝ getIpNum (“10.255.255.255”)
bBegin ＝ getIpNum (“172.16.0.0”)
bEnd ＝ getIpNum (“172.31.255.255”)
cBegin ＝ getIpNum (“192.168.0.0”)
cEnd ＝ getIpNum (“192.168.255.255”)
dBegin ＝ getIpNum (“127.0.0.0”)
dEnd ＝ getIpNum (“127.255.255.255”)
isInnerIp ＝ isInner (ipNum, aBegin, aEnd) 或 isInner (ipNum, bBegin, bEnd) 或 isInner (ipNum, cBegin, cEnd) 或 isInner (ipNum, dBegin, dEnd)
返回 (isInnerIp)

子程序名	返回值类型	公开	备注
isInner	逻辑型
参数名	类型	参考	可空	数组	备注
userIp
begin
end

返回 (userIp ≥ begin 且 userIp ≤ end)

子程序名	返回值类型	公开	备注
getIpNum	整数型
参数名	类型	参考	可空	数组	备注
ipAddress	文本型

变量名	类型	静态	数组	备注
ip	文本型		0
a	整数型
b	整数型
c	整数型
d	整数型
ipNum	整数型

ip ＝分割文本 (ipAddress, “.”, )

如果真 (取数组成员数 (ip) ＝ 4)

a ＝到整数 (ip [1])

b ＝到整数 (ip [2])

c ＝到整数 (ip [3])

d ＝到整数 (ip [4])

ipNum ＝ a × 256 × 256 × 256 ＋ b × 256 × 256 ＋ c × 256 ＋ d
返回 (ipNum)

子程序名	返回值类型	公开	备注
更简单的方法	逻辑型
参数名	类型	参考	可空	数组	备注
ipAddress	文本型

变量名	类型	静态	数组	备注
ip	文本型		0

ip ＝分割文本 (ipAddress, “.”, )

如果真 (取数组成员数 (ip) ＝ 4)

如果真 (ip [1] ＝ “10” 或 ip [1] ＝ “172” 或 ip [1] ＝ “192” 或 ip [1] ＝ “127”)

返回 (真)

返回 (假)

.版本 2<br />
<br />
.子程序 isInnerIP, 逻辑型, 公开<br />
.参数 ipAddress, 文本型<br />
.局部变量 isInnerIp, 逻辑型<br />
.局部变量 ipNum, 整数型<br />
.局部变量 aBegin, 整数型<br />
.局部变量 aEnd, 整数型<br />
.局部变量 bBegin, 整数型<br />
.局部变量 bEnd, 整数型<br />
.局部变量 cBegin, 整数型<br />
.局部变量 cEnd, 整数型<br />
.局部变量 dBegin, 整数型<br />
.局部变量 dEnd, 整数型<br />
<br />
isInnerIp ＝ 假<br />
ipNum ＝ getIpNum (ipAddress)<br />
<br />
<br />
aBegin ＝ getIpNum (“10.0.0.0”)<br />
<br />
aEnd ＝ getIpNum (“10.255.255.255”)<br />
<br />
bBegin ＝ getIpNum (“172.16.0.0”)<br />
<br />
bEnd ＝ getIpNum (“172.31.255.255”)<br />
<br />
cBegin ＝ getIpNum (“192.168.0.0”)<br />
<br />
cEnd ＝ getIpNum (“192.168.255.255”)<br />
<br />
dBegin ＝ getIpNum (“127.0.0.0”)<br />
<br />
dEnd ＝ getIpNum (“127.255.255.255”)<br />
<br />
isInnerIp ＝ isInner (ipNum, aBegin, aEnd) 或 isInner (ipNum, bBegin, bEnd) 或 isInner (ipNum, cBegin, cEnd) 或 isInner (ipNum, dBegin, dEnd)<br />
返回 (isInnerIp)<br />
<br />
<br />
.子程序 isInner, 逻辑型<br />
.参数 userIp<br />
.参数 begin<br />
.参数 end<br />
<br />
返回 (userIp ≥ begin 且 userIp ≤ end)<br />
<br />
.子程序 getIpNum, 整数型<br />
.参数 ipAddress, 文本型<br />
.局部变量 ip, 文本型, , "0"<br />
.局部变量 a, 整数型<br />
.局部变量 b, 整数型<br />
.局部变量 c, 整数型<br />
.局部变量 d, 整数型<br />
.局部变量 ipNum, 整数型<br />
<br />
ip ＝ 分割文本 (ipAddress, “.”, )<br />
.如果真 (取数组成员数 (ip) ＝ 4)<br />
    a ＝ 到整数 (ip [1])<br />
    b ＝ 到整数 (ip [2])<br />
    c ＝ 到整数 (ip [3])<br />
    d ＝ 到整数 (ip [4])<br />
    ipNum ＝ a × 256 × 256 × 256 ＋ b × 256 × 256 ＋ c × 256 ＋ d<br />
.如果真结束<br />
返回 (ipNum)<br />
<br />
<br />
.子程序 更简单的方法, 逻辑型, 公开<br />
.参数 ipAddress, 文本型<br />
.局部变量 ip, 文本型, , "0"<br />
<br />
ip ＝ 分割文本 (ipAddress, “.”, )<br />
.如果真 (取数组成员数 (ip) ＝ 4)<br />
    .如果真 (ip [1] ＝ “10” 或 ip [1] ＝ “172” 或 ip [1] ＝ “192” 或 ip [1] ＝ “127”)<br />
        返回 (真)<br />
    .如果真结束<br />
<br />
.如果真结束<br />
返回 (假)