一机一码+联网数据库验证源码，求大佬点评 - 精易论坛

子程序名	返回值类型	公开	备注
取机器码

变量名	类型	静态	数组	备注
输入内容	文本型
输出内容	文本型
i	整数型
文本长度	整数型
临时变量I	整数型
临时变量J	整数型
网卡地址	网卡信息		0
网卡mac	文本型
CPU信息	CPU信息
CPU	文本型
大写字母	文本型		26
小写字母	文本型		26
数字	文本型		26
配置项	文本型
待用数据	文本型
转换后文本	文本型

数字＝ { “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” }
取CPU信息 (CPU信息)
CPU ＝取文本左边 (CPU信息.序列号, 18)
网卡地址＝取网卡信息列表 ()

判断 (取数组成员数 (网卡地址) ≥ 1)

网卡mac ＝网卡地址 [1].物理地址

网卡mac ＝ “10-11-11-11-11-11”

输入内容＝子文本替换 (网卡mac, “-”, “”, , , 真) ＋子文本替换 (CPU, “-”, “”, , , 真)
文本长度＝取文本长度 (输入内容)

计次循环首 (文本长度, i)

转换后文本＝取文本中间 (输入内容, i, 1)

如果真 (转换后文本 ≥ “A” 且转换后文本 ≤ “Z” 或转换后文本 ≥ “a” 且转换后文本 ≤ “z”)

转换后文本＝ “”

输出内容＝输出内容＋转换后文本

计次循环尾 ()
_机器码.内容＝输出内容

计次循环首 (取文本长度 (输入内容), 临时变量I)

计次循环首 (取数组成员数 (大写字母), 临时变量J)

如果真 (取文本中间 (输入内容, 临时变量I, 1) ＝大写字母 [临时变量J] 或取文本中间 (输入内容, 临时变量I, 1) ＝小写字母 [临时变量J])

_机器码.加入文本 (数字 [临时变量J])

计次循环尾 ()

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br />
.支持库 eAPI<br />
<br />
.子程序 取机器码<br />
.局部变量 输入内容, 文本型<br />
.局部变量 输出内容, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 文本长度, 整数型<br />
.局部变量 临时变量I, 整数型<br />
.局部变量 临时变量J, 整数型<br />
.局部变量 网卡地址, 网卡信息, , "0"<br />
.局部变量 网卡mac, 文本型<br />
.局部变量 CPU信息, CPU信息<br />
.局部变量 CPU, 文本型<br />
.局部变量 大写字母, 文本型, , "26"<br />
.局部变量 小写字母, 文本型, , "26"<br />
.局部变量 数字, 文本型, , "26"<br />
.局部变量 配置项, 文本型<br />
.局部变量 待用数据, 文本型<br />
.局部变量 转换后文本, 文本型<br />
<br />
数字 ＝ { “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” }<br />
大写字母 ＝ { “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” }<br />
取CPU信息 (CPU信息)<br />
CPU ＝ 取文本左边 (CPU信息.序列号, 18)<br />
网卡地址 ＝ 取网卡信息列表 ()<br />
.判断开始 (取数组成员数 (网卡地址) ≥ 1)<br />
    网卡mac ＝ 网卡地址 [1].物理地址<br />
.默认<br />
    网卡mac ＝ “10-11-11-11-11-11”<br />
.判断结束<br />
<br />
输入内容 ＝ 子文本替换 (网卡mac, “-”, “”, , , 真) ＋ 子文本替换 (CPU, “-”, “”, , , 真)<br />
文本长度 ＝ 取文本长度 (输入内容)<br />
.计次循环首 (文本长度, i)<br />
    转换后文本 ＝ 取文本中间 (输入内容, i, 1)<br />
    .如果真 (转换后文本 ≥ “A” 且 转换后文本 ≤ “Z” 或 转换后文本 ≥ “a” 且 转换后文本 ≤ “z”)<br />
        转换后文本 ＝ “”<br />
    .如果真结束<br />
    输出内容 ＝ 输出内容 ＋ 转换后文本<br />
.计次循环尾 ()<br />
_机器码.内容 ＝ 输出内容<br />
.计次循环首 (取文本长度 (输入内容), 临时变量I)<br />
    .计次循环首 (取数组成员数 (大写字母), 临时变量J)<br />
        .如果真 (取文本中间 (输入内容, 临时变量I, 1) ＝ 大写字母 [临时变量J] 或 取文本中间 (输入内容, 临时变量I, 1) ＝ 小写字母 [临时变量J])<br />
            _机器码.加入文本 (数字 [临时变量J])<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.计次循环尾 ()