.版本 2
.支持库 eAPI
.程序集变量 网卡地址, 网卡信息, , "0"
.程序集变量 网卡mac, 文本型
.程序集变量 CPU信息, CPU信息
.程序集变量 CPU, 文本型
.程序集变量 大写字母, 文本型, , "26"
.程序集变量 小写字母, 文本型, , "26"
.程序集变量 数字, 文本型, , "26"
.子程序 __启动窗口_创建完毕
取机器码 ()
.子程序 取机器码
.局部变量 输入内容, 文本型
.局部变量 输出内容, 文本型
.局部变量 文本长度, 整数型
.局部变量 i, 整数型
.局部变量 临时变量I, 整数型
.局部变量 临时变量J, 整数型
.局部变量 转换后文本, 文本型
.局部变量 临时, 字节集
.局部变量 计次, 整数型
数字 = { “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “11”, “12”, “13”, “14”, “15”, “16”, “17”, “18”, “19”, “20”, “21”, “22”, “23”, “24”, “25”, “26” }
大写字母 = { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }
小写字母 = { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
取CPU信息 (CPU信息)
CPU = 取文本左边 (CPU信息.序列号, 18)
网卡地址 = 取网卡信息列表 ()
.判断开始 (取数组成员数 (网卡地址) ≥ 1)
网卡mac = 网卡地址 [1].物理地址
.默认
网卡mac = “10-11-11-11-11-11”
.判断结束
.如果 (选择框1.选中 = 真)
编辑框1.内容 = 子文本替换 (网卡mac, “-”, “”, , , 真) + 子文本替换 (CPU, “-”, “”, , , 真)
.否则
输入内容 = 子文本替换 (网卡mac, “-”, “”, , , 真) + 子文本替换 (CPU, “-”, “”, , , 真)
文本长度 = 取文本长度 (输入内容)
.计次循环首 (文本长度, i)
转换后文本 = 取文本中间 (输入内容, i, 1)
.如果真 (转换后文本 ≥ “A” 且 转换后文本 ≤ “Z” 或 转换后文本 ≥ “a” 且 转换后文本 ≤ “z”)
转换后文本 = “”
.如果真结束
输出内容 = 输出内容 + 转换后文本
.计次循环尾 ()
编辑框1.内容 = 输出内容
.计次循环首 (取文本长度 (输入内容), 临时变量I)
.计次循环首 (取数组成员数 (大写字母), 临时变量J)
.如果真 (取文本中间 (输入内容, 临时变量I, 1) = 大写字母 [临时变量J] 或 取文本中间 (输入内容, 临时变量I, 1) = 小写字母 [临时变量J])
编辑框1.加入文本 (数字 [临时变量J])
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
.如果结束
.如果 (选择框3.选中 = 真)
临时 = 到字节集 (子文本替换 (网卡mac, “-”, “”, , , 真) + 子文本替换 (CPU, “-”, “”, , , 真))
.计次循环首 (取字节集长度 (临时), 计次)
.如果真 (临时 [计次] ≠ 45 且 临时 [计次] < 48 或 临时 [计次] > 57)
到循环尾 ()
.如果真结束
.如果真 (临时 [计次] = 48)
临时 [计次] = 74
到循环尾 ()
.如果真结束
.如果真 (临时 [计次] = 45)
临时 [计次] = 77
到循环尾 ()
.如果真结束
临时 [计次] = 临时 [计次] + 16
.计次循环尾 ()
编辑框1.内容 = 到文本 (临时)
.否则
.如果结束
.子程序 _选择框1_被单击
选择框1.选中 = 真
选择框2.选中 = 假
选择框3.选中 = 假
取机器码 ()
.子程序 _选择框2_被单击
选择框1.选中 = 假
选择框2.选中 = 真
选择框3.选中 = 假
取机器码 ()
.子程序 _选择框3_被单击
选择框1.选中 = 假
选择框2.选中 = 假
选择框3.选中 = 真
取机器码 ()