.版本 2.程序集 窗口程序集1.程序集变量 密码表, 文本型, , "0", 用于存放密码字符数组,可自己加入大写和特殊符号,目前是小写+字母=26+10=36个成员.子程序 _按钮1_被单击.局部变量 i, 整数型.变量循环首 (6, 16, 1, i) 编辑框1.加入文本 (到文本 (i) + “位密码:” + 生成密码 (i) + #换行符).变量循环尾 ().子程序 __启动窗口_创建完毕加入成员 (密码表, “0”)加入成员 (密码表, “1”)加入成员 (密码表, “2”)加入成员 (密码表, “3”)加入成员 (密码表, “4”)加入成员 (密码表, “5”)加入成员 (密码表, “6”)加入成员 (密码表, “7”)加入成员 (密码表, “8”)加入成员 (密码表, “9”)加入成员 (密码表, “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”).子程序 生成密码, 文本型.参数 位数, 整数型.局部变量 i, 整数型.局部变量 结果, 文本型结果 = “”.计次循环首 (位数, i) 结果 = 结果 + 密码表 [取随机数 (1, 36)].计次循环尾 ()返回 (结果)
我来简化下一楼的命令、随机生成6~16位密码,每一位密码有一半的概率是数字或者英文。如果是英文有一半的概率是大写或小写.....版本 2.支持库 spec.局部变量 随机密码位数, 整数型.局部变量 大小写, 整数型.局部变量 字母数字, 整数型.局部变量 位数, 整数型.局部变量 密码表, 文本型, , "0".局部变量 密码, 文本型密码表 = { “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” }置随机数种子 ()随机密码位数 = 取随机数 (6, 16).计次循环首 (随机密码位数, ) 大小写 = 取随机数 (0, 1) 字母数字 = 取随机数 (0, 1) .如果 (字母数字 = 0) 位数 = 取随机数 (1, 26) .如果 (大小写 = 0) 密码 = 密码 + 到大写 (密码表 [位数]) .否则 密码 = 密码 + 密码表 [位数] .如果结束 .否则 密码 = 密码 + 到文本 (取随机数 (0, 9)) .如果结束.计次循环尾 ()调试输出 (“随机密码为:” + 密码)