判断是否是nei网IP

maxps

判断是否是nei网IP.e (5.49 KB, 下载次数: 20)

2020-12-10 17:32 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

子程序名	返回值类型	公开	备 注
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 /> 返回 (假)

tianyun

谢谢 你的分享啊

wuqingg

maxps 发表于 2020-12-11 13:30
你看错了吧 192.168.500.9 是什么

额.........我上传了两张图，第一张图我想表达的是同一个IP地址两个方法出来的结果不一样，第二张图我想表达的是192.168.100.9这个IP不是我们的nei网IP，但是结果显示的是“真”  可能算法没错，可能真的是nei网IP只是我们还没有用到而已，因为我在百d查的也是nei网IP，不过有没有办法知道该nei网IP是否在使用呢？

maxps

wuqingg 发表于 2020-12-10 18:49
好像不准呢，192.168.100.9这个IP没有在我们nei网

你看错了吧 192.168.500.9 是什么

wuqingg

好像不准呢，192.168.100.9这个IP没有在我们nei网

wuqingg

支持两下

汉族

支持一下