[继续开源]IP转长整数 可用户随机IP

chencong5025

IP->长整数
可以得到 最小以及最大
随机长整数 ->IP
实现随机IP

  

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

变量名	类 型	静态	数组	备 注
IPs	文本型		4
Result	长整数型

IPs ＝ 分割文本 (IP, “.”, )
Result ＝ Result ＋ 运算_左移_长整数 (到长整数 (IPs [1]), 24)
Result ＝ Result ＋ 运算_左移_长整数 (到长整数 (IPs [2]), 16)
Result ＝ Result ＋ 运算_左移_长整数 (到长整数 (IPs [3]), 8)
Result ＝ Result ＋ 到长整数 (IPs [4])
返回 (Result)

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

变量名	类 型	静态	数组	备 注
Res	文本型
操作数	长整数型

操作数 ＝ long
Res ＝ Res ＋ 到文本 (运算_右移_长整数 (操作数, 24)) ＋ “.”
操作数 ＝ 运算_位与_长整数 (long, 16777215)
Res ＝ Res ＋ 到文本 (运算_右移_长整数 (操作数, 16)) ＋ “.”
操作数 ＝ 运算_位与_长整数 (long, 65535)
Res ＝ Res ＋ 到文本 (运算_右移_长整数 (操作数, 8)) ＋ “.”
操作数 ＝ 运算_位与_长整数 (long, 255)
Res ＝ Res ＋ 到文本 (操作数)
返回 (Res)

子程序名	返回值类型	公开	备 注
随机IP	文本型

变量名	类 型	静态	数组	备 注
x	整数型
y	整数型
l	长整数型
ip	文本型

置随机数种子 ()
x ＝ 取随机数 (0, 42949)
y ＝ 取随机数 (0, 67295)
l ＝ 到长整数 (到文本 (x) ＋ 到文本 (y))
ip ＝ Long2IP (l)
返回 (ip)

子程序名	返回值类型	公开	备 注
运算_右移_长整数	长整数型		将某整数的数据位右移指定位数，返回移动后的结果。本命令为中级命令。
参数名	类 型	参考	可空	数组	备 注
欲移动的整数	长整数型
欲移动的位数	整数型

' push ebp
置入代码 ({ 137, 229, 139, 69, 8, 139, 85, 12, 139, 77, 16, 232, 4, 0, 0, 0, 93, 194, 12, 0, 128, 249, 64, 115, 22, 128, 249, 32, 115, 6, 15, 173, 208, 211, 250, 195, 137, 208, 193, 250, 31, 128, 225, 31, 211, 248, 195, 193, 250, 31, 137, 208, 195 })
' mov ebp,esp
' mov eax,[ebp+8h]
' mov edx,[ebp+Ch]
' mov ecx,[ebp+10h]
' call a0
' pop ebp
' retn Ch
' a0:
' cmp cl,40h
' jnb short a1
' cmp cl,20h
' jnb short a2
' shrd eax,edx,cl
' sar edx,cl
' retn
' a2:
' mov eax,edx
' sar edx,1Fh
' and cl,1Fh
' sar eax,cl
' retn
' a1:
' sar edx,1Fh
' mov eax,edx
' retn
返回 (0)

子程序名	返回值类型	公开	备 注
运算_左移_长整数	长整数型		将某整数的数据位左移指定位数，返回移动后的结果。本命令为中级命令。
参数名	类 型	参考	可空	数组	备 注
欲移动的整数	长整数型
欲移动的位数	整数型

' push ebp
置入代码 ({ 137, 229, 139, 69, 8, 139, 85, 12, 139, 77, 16, 232, 4, 0, 0, 0, 93, 194, 12, 0, 128, 249, 64, 115, 21, 128, 249, 32, 115, 6, 15, 165, 194, 211, 224, 195, 137, 194, 49, 192, 128, 225, 31, 211, 226, 195, 49, 192, 49, 210, 195 })
' mov ebp,esp
' mov eax,[ebp+8h]
' mov edx,[ebp+Ch]
' mov ecx,[ebp+10h]
' call a0
' pop ebp
' retn 0xC
' a0:
' cmp cl,40h
' jnb a1
' cmp cl,20h
' jnb a2
' shld edx,eax,cl
' shl eax,cl
' retn
' a2:
' mov edx,eax
' xor eax,eax
' and cl,1Fh
' shl edx,cl
' retn
' a1:
' xor eax,eax
' xor edx,edx
' retn
返回 (0)

子程序名	返回值类型	公开	备 注
运算_位与_长整数	长整数型		如两个数值有某共同比特位为1，则返回值的对应位也为1，否则为0。返回计算后的结果。本命令为中级命令。命令参数表中最后一个参数可以被重复添加。
参数名	类 型	参考	可空	数组	备 注
位运算数值1	长整数型
位运算数值2	长整数型

置入代码 ({ 139, 69, 8, 35, 69, 16, 139, 85, 12, 35, 85, 20, 201, 194, 16, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 IP2Long, 长整数型, 公开<br /> .参数 IP, 文本型<br /> .局部变量 IPs, 文本型, , "4"<br /> .局部变量 Result, 长整数型<br /> <br /> IPs ＝ 分割文本 (IP, “.”, )<br /> Result ＝ Result ＋ 运算_左移_长整数 (到长整数 (IPs [1]), 24)<br /> Result ＝ Result ＋ 运算_左移_长整数 (到长整数 (IPs [2]), 16)<br /> Result ＝ Result ＋ 运算_左移_长整数 (到长整数 (IPs [3]), 8)<br /> Result ＝ Result ＋ 到长整数 (IPs [4])<br /> 返回 (Result)<br /> <br /> .子程序 Long2IP, 文本型, 公开<br /> .参数 long, 长整数型<br /> .局部变量 Res, 文本型<br /> .局部变量 操作数, 长整数型<br /> <br /> 操作数 ＝ long<br /> Res ＝ Res ＋ 到文本 (运算_右移_长整数 (操作数, 24)) ＋ “.”<br /> 操作数 ＝ 运算_位与_长整数 (long, 16777215)<br /> Res ＝ Res ＋ 到文本 (运算_右移_长整数 (操作数, 16)) ＋ “.”<br /> 操作数 ＝ 运算_位与_长整数 (long, 65535)<br /> Res ＝ Res ＋ 到文本 (运算_右移_长整数 (操作数, 8)) ＋ “.”<br /> 操作数 ＝ 运算_位与_长整数 (long, 255)<br /> Res ＝ Res ＋ 到文本 (操作数)<br /> 返回 (Res)<br /> <br /> <br /> .子程序 随机IP, 文本型, 公开<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 l, 长整数型<br /> .局部变量 ip, 文本型<br /> <br /> 置随机数种子 ()<br /> x ＝ 取随机数 (0, 42949)<br /> y ＝ 取随机数 (0, 67295)<br /> l ＝ 到长整数 (到文本 (x) ＋ 到文本 (y))<br /> ip ＝ Long2IP (l)<br /> 返回 (ip)<br /> <br /> <br /> .子程序 运算_右移_长整数, 长整数型, 公开, 将某整数的数据位右移指定位数，返回移动后的结果。本命令为中级命令。<br /> .参数 欲移动的整数, 长整数型<br /> .参数 欲移动的位数, 整数型<br /> <br /> ' push ebp<br /> 置入代码 ({ 137, 229, 139, 69, 8, 139, 85, 12, 139, 77, 16, 232, 4, 0, 0, 0, 93, 194, 12, 0, 128, 249, 64, 115, 22, 128, 249, 32, 115, 6, 15, 173, 208, 211, 250, 195, 137, 208, 193, 250, 31, 128, 225, 31, 211, 248, 195, 193, 250, 31, 137, 208, 195 })<br /> ' mov ebp,esp<br /> ' mov eax,[ebp+8h]<br /> ' mov edx,[ebp+Ch]<br /> ' mov ecx,[ebp+10h]<br /> ' call a0<br /> ' pop ebp<br /> ' retn Ch<br /> ' a0:<br /> ' cmp cl,40h<br /> ' jnb short a1<br /> ' cmp cl,20h<br /> ' jnb short a2<br /> ' shrd eax,edx,cl<br /> ' sar edx,cl<br /> ' retn<br /> ' a2:<br /> ' mov eax,edx<br /> ' sar edx,1Fh<br /> ' and cl,1Fh<br /> ' sar eax,cl<br /> ' retn<br /> ' a1:<br /> ' sar edx,1Fh<br /> ' mov eax,edx<br /> ' retn<br /> 返回 (0)<br /> <br /> .子程序 运算_左移_长整数, 长整数型, 公开, 将某整数的数据位左移指定位数，返回移动后的结果。本命令为中级命令。<br /> .参数 欲移动的整数, 长整数型<br /> .参数 欲移动的位数, 整数型<br /> <br /> ' push ebp<br /> 置入代码 ({ 137, 229, 139, 69, 8, 139, 85, 12, 139, 77, 16, 232, 4, 0, 0, 0, 93, 194, 12, 0, 128, 249, 64, 115, 21, 128, 249, 32, 115, 6, 15, 165, 194, 211, 224, 195, 137, 194, 49, 192, 128, 225, 31, 211, 226, 195, 49, 192, 49, 210, 195 })<br /> ' mov ebp,esp<br /> ' mov eax,[ebp+8h]<br /> ' mov edx,[ebp+Ch]<br /> ' mov ecx,[ebp+10h]<br /> ' call a0<br /> ' pop ebp<br /> ' retn 0xC<br /> ' a0:<br /> ' cmp cl,40h<br /> ' jnb a1<br /> ' cmp cl,20h<br /> ' jnb a2<br /> ' shld edx,eax,cl<br /> ' shl eax,cl<br /> ' retn<br /> ' a2:<br /> ' mov edx,eax<br /> ' xor eax,eax<br /> ' and cl,1Fh<br /> ' shl edx,cl<br /> ' retn<br /> ' a1:<br /> ' xor eax,eax<br /> ' xor edx,edx<br /> ' retn<br /> 返回 (0)<br /> .版本 2<br /> <br /> .子程序 运算_位与_长整数, 长整数型, 公开, 如两个数值有某共同比特位为1，则返回值的对应位也为1，否则为0。返回计算后的结果。本命令为中级命令。命令参数表中最后一个参数可以被重复添加。<br /> .参数 位运算数值1, 长整数型<br /> .参数 位运算数值2, 长整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 35, 69, 16, 139, 85, 12, 35, 85, 20, 201, 194, 16, 0 })<br /> 返回 (0)

单色

LLJ

IPv4不用长整数，你是否有误解

LLJ

inet_addr()
inet_ntoa()
不好用吗？

君九

冷眸看世界

chencong5025

LLJ 发表于 2021-9-5 03:50
IPv4不用长整数，你是否有误解

当然需要长整数 是你有误解
不信你转255.255.255.255 试试

chencong5025

LLJ 发表于 2021-9-5 03:56
inet_addr()
inet_ntoa()
不好用吗？

不是很好用

LLJ

chencong5025 发表于 2021-9-6 16:26
当然需要长整数 是你有误解
不信你转255.255.255.255 试试

IPv4占用4字节，整数型也刚好4字节，255.255.255.255也可以用整数型存放。
如果你看到的是负数，那是易语言不支持无符号整数型。
其实也只用 到文本() 的问题，用无符号的到文本解决。

1. .版本 2
   
2. 
   
3. .DLL命令 ultoa, , "msvcrt.dll", "@_ultoa", 公开, 无符号整数到文本
   
4.     .参数 整数, 整数型
   
5.     .参数 目标字符串, 文本型, 传址
   
6.     .参数 进制, 整数型
   

复制代码

实际上IPv4以点分十进制文本表示，不用把整数到文本表示。

LLJ

chencong5025 发表于 2021-9-6 16:26
当然需要长整数 是你有误解
不信你转255.255.255.255 试试

如果你用长整数（8字节），那可以表示 255.255.255.255.255.255.255.255 了