求一个好用的机器码写法

q2356364305

如题

1329982816

.版本 2

.子程序 取机器码mac, 文本型
.局部变量 size, 整数型
.局部变量 data, 字节集
.局部变量 i, 整数型
.局部变量 Length, 整数型
.局部变量 uuid, 文本型
.局部变量 between, 字节集
.局部变量 time_low, 整数型
.局部变量 n, 整数型
.局部变量 withlow, 字节集




' 备注：取主板部分参考论坛帖子，稍微修改

' wmic path Win32_ComputerSystemProduct get uuid /value 与另一种模式效果一致

' // no 取主板uuid

size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)
data ＝ 取空白字节集 (size)
.如果真 (size ＜ 1)
    返回 (“”)
.如果真结束
GetSystemFirmwareTable (1381190978, 0, data, size)
.如果真 (size ＜ 1)
    返回 (“”)
.如果真结束
i ＝ 9  ' 前面8个字节忽略，储存其他信息
.判断循环首 (真)
    ' type 类型 1 系统信息

    .如果真 (data ＝ 1)
        跳出循环 ()
    .如果真结束

    Length ＝ data [i ＋ 1]
    i ＝ i ＋ Length
    ' 调试输出 (编码_utf8到gb2312 (指针到文本 (buffer ＋ i)))
    ' 长度信息后为字符串 找到字符串信息结束标记 就是下一个type 结构的起始位置
    .判断循环首 (data ≠ 0 或 data [i ＋ 1] ≠ 0)
        i ＝ i ＋ 1
    .判断循环尾 ()
    i ＝ i ＋ 2
.判断循环尾 ()
i ＝ i ＋ 8
time_low ＝ 取字节集数据 (data, #整数型, i)

uuid ＝ 进制_十到十六 (time_low)
' 中间部分需要交换下
between ＝ 取字节集中间 (data, i, 4)
' 第二部分 ＝ 字节集_交换 (第二部分)
withlow ＝ between
.计次循环首 (4 ÷ 2, n)
    withlow [n × 2 － 1] ＝ between [n × 2]
    withlow [n × 2] ＝ between [n × 2 － 1]
.计次循环尾 ()
between ＝ withlow

.计次循环首 (4, n)  ' 中间四位
    uuid ＝ uuid ＋ 进制_十到十六 (between [n])  ' 直接用精益模块就行
.计次循环尾 ()
i ＝ i ＋ 4
.计次循环首 (8, )  ' 最后八位
    uuid ＝ uuid ＋ 进制_十到十六 (data )
    i ＝ i ＋ 1
.计次循环尾 ()



' // no 取主板型号

uuid ＝ uuid ＋ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )


' // no 生成机器码
uuid ＝ 校验_取md5_文本 (uuid, , , )




返回 (uuid)


论坛大佬发的

Ruang

个人感觉没什么好用的机器码，感觉都一样

渔玥

机器码使用什么写的我也想知道

我很低调

多层加密机器码

王不饿

  

子程序名	返回值类型	公开	备 注
其他_取机器码	文本型

变量名	类 型	静态	数组	备 注
size	整数型
data	字节集
i	整数型
Length	整数型
uuid	文本型
between	字节集
time_low	整数型
n	整数型
withlow	字节集

size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)
data ＝ 取空白字节集 (size)
如果真 (size ＜ 1)
返回 (“”)
GetSystemFirmwareTable (1381190978, 0, data, size)
如果真 (size ＜ 1)
返回 (“”)
i ＝ 9
判断循环首 (真)
如果真 (data [i] ＝ 1)
跳出循环 ()
Length ＝ data [i ＋ 1]
i ＝ i ＋ Length
判断循环首 (data [i] ≠ 0 或 data [i ＋ 1] ≠ 0)
i ＝ i ＋ 1
判断循环尾 ()
i ＝ i ＋ 2
判断循环尾 ()
i ＝ i ＋ 8
time_low ＝ 取字节集数据 (data, #整数型, i)
uuid ＝ 进制_十到十六 (time_low)
between ＝ 取字节集中间 (data, i, 4)
withlow ＝ between
计次循环首 (4 ÷ 2, n)
withlow [n × 2 － 1] ＝ between [n × 2]
withlow [n × 2] ＝ between [n × 2 － 1]
计次循环尾 ()
between ＝ withlow
计次循环首 (4, n)
uuid ＝ uuid ＋ 进制_十到十六 (between [n])
计次循环尾 ()
i ＝ i ＋ 4
计次循环首 (8, )
uuid ＝ uuid ＋ 进制_十到十六 (data [i])
i ＝ i ＋ 1
计次循环尾 ()
uuid ＝ uuid ＋ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )
uuid ＝ 校验_取md5_文本 (uuid, , 真, )
返回 (uuid)

.版本 2<br /> <br /> .子程序 其他_取机器码, 文本型<br /> .局部变量 size, 整数型<br /> .局部变量 data, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 Length, 整数型<br /> .局部变量 uuid, 文本型<br /> .局部变量 between, 字节集<br /> .局部变量 time_low, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 withlow, 字节集<br /> <br /> size ＝ GetSystemFirmwareTable (1381190978, 0, data, 0)<br /> data ＝ 取空白字节集 (size)<br /> .如果真 (size ＜ 1)<br />     返回 (“”)<br /> .如果真结束<br /> GetSystemFirmwareTable (1381190978, 0, data, size)<br /> .如果真 (size ＜ 1)<br />     返回 (“”)<br /> .如果真结束<br /> i ＝ 9<br /> .判断循环首 (真)<br />     .如果真 (data <i> ＝ 1)<br />         跳出循环 ()<br />     .如果真结束<br />     Length ＝ data [i ＋ 1]<br />     i ＝ i ＋ Length<br />     .判断循环首 (data <i> ≠ 0 或 data [i ＋ 1] ≠ 0)<br />         i ＝ i ＋ 1<br />     .判断循环尾 ()<br />     i ＝ i ＋ 2<br /> .判断循环尾 ()<br /> i ＝ i ＋ 8<br /> time_low ＝ 取字节集数据 (data, #整数型, i)<br /> uuid ＝ 进制_十到十六 (time_low)<br /> between ＝ 取字节集中间 (data, i, 4)<br /> withlow ＝ between<br /> .计次循环首 (4 ÷ 2, n)<br />     withlow [n × 2 － 1] ＝ between [n × 2]<br />     withlow [n × 2] ＝ between [n × 2 － 1]<br /> .计次循环尾 ()<br /> between ＝ withlow<br /> .计次循环首 (4, n)<br />     uuid ＝ uuid ＋ 进制_十到十六 (between [n])<br /> .计次循环尾 ()<br /> i ＝ i ＋ 4<br /> .计次循环首 (8, )<br />     uuid ＝ uuid ＋ 进制_十到十六 (data <i>)<br />     i ＝ i ＋ 1<br /> .计次循环尾 ()<br /> uuid ＝ uuid ＋ 取文本注册项 (4, “HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct”, )<br /> uuid ＝ 校验_取md5_文本 (uuid, , 真, )<br /> 返回 (uuid)

一直在用这个 也是论坛找的 但是原帖刚找了下没找到

q2356364305

王不饿 发表于 2025-3-19 22:02
[e=0].版本 2

.子程序 其他_取机器码, 文本型

现在用的就是这个

q2356364305

1329982816 发表于 2025-3-19 22:14
.版本 2

.子程序 取机器码mac, 文本型

现在用的就是这个 你的跟楼上一样的 感觉差点意思