|
|

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 随即记录, 文本型
.局部变量 随即数, 整数型
.局部变量 硬盘特征字, 文本型
.局部变量 机器码, 文本型
.局部变量 循环, 整数型
.局部变量 变量1, 整数型
硬盘特征字 = 到文本 (取硬盘特征字 ())
编辑框硬盘号.内容 = 硬盘特征字
随即记录 = “”
机器码 = “”
.计次循环首 (10, 循环)
变量1 = 到数值 (取文本中间 (硬盘特征字, 循环, 1))
.如果 (变量1 < 6)
随即数 = 取随机数 (0, 9)
.否则
随即数 = 取随机数 (0, 6)
.如果结束
随即记录 = 随即记录 + 到文本 (随即数)
变量1 = 变量1 + 随即数
机器码 = 机器码 + 取文本中间 (“0123456ABCD”, 变量1 + 1, 1)
变量1 = 变量1 + 随即数
.如果真 (变量1 > 15)
变量1 = 变量1 - 15
.如果真结束
机器码 = 机器码 + 取文本中间 (“0123456ABCD”, 变量1 + 1, 1)
.计次循环尾 ()
编辑框补码.内容 = 到文本 (随即记录)
编辑框机器码.内容 = 机器码
.子程序 _按钮2_被单击
.局部变量 硬盘特征字, 文本型
.局部变量 机器码, 文本型
.局部变量 循环, 整数型
.局部变量 变量1, 整数型
.局部变量 变量2, 整数型
.局部变量 变量3, 整数型
.局部变量 变量4, 整数型
机器码 = 编辑框机器码.内容
硬盘特征字 = “”
.计次循环首 (10, 循环)
变量1 = 寻找文本 (“0123456789ABCDEF”, 取文本中间 (机器码, 循环 × 2 - 1, 1), , 真)
变量2 = 寻找文本 (“0123456789ABCDEF”, 取文本中间 (机器码, 循环 × 2, 1), , 真)
.如果 (变量1 > 0 且 变量2 > 0)
变量1 = 变量1 - 1
变量2 = 变量2 - 1
.如果 (变量1 > 变量2)
变量3 = 变量2 + 15 - 变量1
.否则
变量3 = 变量2 - 变量1
.如果结束
变量3 = 变量1 - 变量3
硬盘特征字 = 硬盘特征字 + 到文本 (变量3)
.否则
跳出循环 ()
.如果结束
.计次循环尾 ()
这个是论坛里面下载的 ,随机生成机器码,但是不能运用到软件,求大神讲解
|
|