设备码

小羊羊羊||

有没有大佬会取一机一设备码的


补充内容 (2022-3-18 00:51):
电脑的机器码

kerry9

  

子程序名	返回值类型	公开	备 注
GetMyKey	文本型		计算电脑唯一的机器码

变量名	类 型	静态	数组	备 注
hd	硬盘信息
cpu	CPU信息
netcard	网卡信息		0
bios	BIOS信息
MAC	文本型
机器码	文本型

取硬盘信息 (hd, 0)
取CPU信息 (cpu)
取BIOS信息 (bios)
netcard ＝ 取网卡信息列表 ()
如果真 (hd.序列号 ＝ “”)
取硬盘信息 (hd, 1)
如果真 (hd.序列号 ＝ “”)
hd.序列号 ＝ “AAAAAAAA”

如果真 (cpu.序列号 ＝ “”)
cpu.序列号 ＝ “BBBBBBBB”
如果 (netcard [1].物理地址 ＝ “” 或 netcard [1].物理地址 ＝ “00-00-00-00-00-00”)
如果真 (netcard [2].物理地址 ＝ “” 或 netcard [2].物理地址 ＝ “00-00-00-00-00-00”)
netcard [2].物理地址 ＝ “CCCCCCCC”
MAC ＝ netcard [2].物理地址
MAC ＝ netcard [1].物理地址
如果真 (bios.序列号 ＝ “”)
bios.序列号 ＝ “DDDDDDDD”
机器码 ＝ hd.序列号 ＋ cpu.序列号 ＋ MAC ＋ “-” ＋ bios.序列号 ＋ “-” ＋ 系统_取MAC地址 () ＋ “-” ＋ 系统_取系统版本 (, , 真, 真, 真, 真)
返回 (到大写 (取数据摘要 (到字节集 (机器码))))

i支持库列表	支持库注释
eAPI	应用接口支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 eAPI<br /> .支持库 dp1<br /> <br /> .子程序 GetMyKey, 文本型, , 计算电脑唯一的机器码<br /> .局部变量 hd, 硬盘信息<br /> .局部变量 cpu, CPU信息<br /> .局部变量 netcard, 网卡信息, , "0"<br /> .局部变量 bios, BIOS信息<br /> .局部变量 MAC, 文本型<br /> .局部变量 机器码, 文本型<br /> <br /> 取硬盘信息 (hd, 0)<br /> 取CPU信息 (cpu)<br /> 取BIOS信息 (bios)<br /> netcard ＝ 取网卡信息列表 ()<br /> .如果真 (hd.序列号 ＝ “”)<br />     取硬盘信息 (hd, 1)<br />     .如果真 (hd.序列号 ＝ “”)<br />         hd.序列号 ＝ “AAAAAAAA”<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (cpu.序列号 ＝ “”)<br />     cpu.序列号 ＝ “BBBBBBBB”<br /> .如果真结束<br /> .如果 (netcard [1].物理地址 ＝ “” 或 netcard [1].物理地址 ＝ “00-00-00-00-00-00”)<br />     .如果真 (netcard [2].物理地址 ＝ “” 或 netcard [2].物理地址 ＝ “00-00-00-00-00-00”)<br />         netcard [2].物理地址 ＝ “CCCCCCCC”<br />     .如果真结束<br />     MAC ＝ netcard [2].物理地址<br /> .否则<br />     MAC ＝ netcard [1].物理地址<br /> .如果结束<br /> .如果真 (bios.序列号 ＝ “”)<br />     bios.序列号 ＝ “DDDDDDDD”<br /> .如果真结束<br /> 机器码 ＝ hd.序列号 ＋ cpu.序列号 ＋ MAC ＋ “-” ＋ bios.序列号 ＋ “-” ＋ 系统_取MAC地址 () ＋ “-” ＋ 系统_取系统版本 (, , 真, 真, 真, 真)<br /> 返回 (到大写 (取数据摘要 (到字节集 (机器码))))

这是我用的

小羊羊羊||

机器码的

蛀牙

系统_取硬盘特征字 ()'精易模块

小羊羊羊||

蛀牙 发表于 2022-3-18 01:04
系统_取硬盘特征字 ()'精易模块

这不行吧

不是装是真的蠢

蛀牙

小羊羊羊|| 发表于 2022-3-18 01:13
这不行吧

肯定行啊，不好使不是在打精易的脸嘛~

lishengliang

你可以取硬盘特征 + CPU特征+主板内存等特征  取每个特征的第几位等 想加得出对你而言的每台电脑的唯一特征码

唱腔

蛀牙 发表于 2022-3-18 11:52
肯定行啊，不好使不是在打精易的脸嘛~

DLL不行取不出来

唱腔

  

子程序名	返回值类型	公开	备 注
汇编_取CPU序列号	文本型

变量名	类 型	静态	数组	备 注
s1	整数型			-4
s2	整数型			-8

置入代码 ({ 184, 1, 0, 0, 0 })  ' mov eax,01h
置入代码 ({ 49, 201 })  ' xor ecx,ecx
置入代码 ({ 49, 210 })  ' xor edx,edx
置入代码 ({ 15, 162 })  ' cpuid
置入代码 ({ 137, 85, 252 })  ' mov dword [ebp-4],edx
置入代码 ({ 137, 69, 248 })  ' mov dword [ebp-8],eax
返回 (取八位十六进制 (s1) ＋ 取八位十六进制 (s2))

子程序名	返回值类型	公开	备 注
取八位十六进制	文本型
参数名	类 型	参考	可空	数组	备 注
a	整数型

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

s ＝ 取十六进制文本 (a)
s ＝ 取重复文本 (8 － 取文本长度 (s), “0”) ＋ s
返回 (s)

.版本 2<br /> <br /> .子程序 汇编_取CPU序列号, 文本型<br /> .局部变量 s1, 整数型, , , -4<br /> .局部变量 s2, 整数型, , , -8<br /> <br /> 置入代码 ({ 184, 1, 0, 0, 0 })  ' mov eax,01h<br /> 置入代码 ({ 49, 201 })  ' xor ecx,ecx<br /> 置入代码 ({ 49, 210 })  ' xor edx,edx<br /> 置入代码 ({ 15, 162 })  ' cpuid<br /> 置入代码 ({ 137, 85, 252 })  ' mov dword [ebp-4],edx<br /> 置入代码 ({ 137, 69, 248 })  ' mov dword [ebp-8],eax<br /> 返回 (取八位十六进制 (s1) ＋ 取八位十六进制 (s2))<br /> <br /> .子程序 取八位十六进制, 文本型<br /> .参数 a, 整数型<br /> .局部变量 s, 文本型<br /> <br /> s ＝ 取十六进制文本 (a)<br /> s ＝ 取重复文本 (8 － 取文本长度 (s), “0”) ＋ s<br /> 返回 (s)