点按钮随机生成必须包含大小写加数字三种格式的8位数密码

wan228807664

本人萌新，最近在做一个快捷复制的小工具，每次打开网页去生成还要各种配置点选相当的麻烦。


每次点按钮随机生成必须包含大小写加数字三种格式的8位数密码，复制到剪切板，并显示在左边编辑框。越简单越好。

需要如上图，每次生成都是随机杂乱无章。无固定规律的。且必须包含大小写加数字三种格式的，上个主题没有描述清楚关闭了。

云少i

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
密码	文本型
内容	整数型

编辑框1.是否允许多行 ＝ 真
计次循环首 (8, i)  ' 想要几位的密码就把8改成几
置随机数种子 ()
内容 ＝ 取随机数 (1, 3)
如果真 (内容 ＝ 1)
密码 ＝ 密码 ＋ 取数字 ()
如果真 (内容 ＝ 2)
密码 ＝ 密码 ＋ 取大写字母 ()
如果真 (内容 ＝ 3)
密码 ＝ 密码 ＋ 取小写字母 ()

计次循环尾 ()
置剪辑板文本 (密码)
编辑框1.加入文本 (密码 ＋ #换行符 )

子程序名	返回值类型	公开	备 注
取数字	文本型

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

数字 ＝ { “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “0” }
置随机数种子 ()
返回 (数字 [取随机数 (1, 10)])

子程序名	返回值类型	公开	备 注
取大写字母	文本型

变量名	类 型	静态	数组	备 注
大写字母	文本型		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” }
置随机数种子 ()
返回 (大写字母 [取随机数 (1, 26)])

子程序名	返回值类型	公开	备 注
取小写字母	文本型

变量名	类 型	静态	数组	备 注
小写字母	文本型		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” }
置随机数种子 ()
返回 (小写字母 [取随机数 (1, 26)])

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 密码, 文本型<br /> .局部变量 内容, 整数型<br /> <br /> 编辑框1.是否允许多行 ＝ 真<br /> .计次循环首 (8, i)  ' 想要几位的密码就把8改成几<br />     置随机数种子 ()<br />     内容 ＝ 取随机数 (1, 3)<br />     .如果真 (内容 ＝ 1)<br />         密码 ＝ 密码 ＋ 取数字 ()<br />     .如果真结束<br />     .如果真 (内容 ＝ 2)<br />         密码 ＝ 密码 ＋ 取大写字母 ()<br />     .如果真结束<br />     .如果真 (内容 ＝ 3)<br />         密码 ＝ 密码 ＋ 取小写字母 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 置剪辑板文本 (密码)<br /> 编辑框1.加入文本 (密码 ＋ #换行符)<br /> <br /> .子程序 取数字, 文本型<br /> .局部变量 数字, 文本型, , "0"<br /> <br /> 数字 ＝ { “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “0” }<br /> 置随机数种子 ()<br /> 返回 (数字 [取随机数 (1, 10)])<br /> <br /> .子程序 取大写字母, 文本型<br /> .局部变量 大写字母, 文本型, , "0"<br /> <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 /> 置随机数种子 ()<br /> 返回 (大写字母 [取随机数 (1, 26)])<br /> <br /> <br /> .子程序 取小写字母, 文本型<br /> .局部变量 小写字母, 文本型, , "0"<br /> <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 /> 置随机数种子 ()<br /> 返回 (小写字母 [取随机数 (1, 26)])

鹏书

调试输出 (文本_取随机字符 (8, 7))

钥匙key

这个应该满足了。。。

钥匙key

感觉自己多少有几分问题。明明精易模块有现成的。还全部自写。。难受。不过上一个有点问题。正则没有区分大小写。。

wan228807664

钥匙key 发表于 2023-4-11 14:02
感觉自己多少有几分问题。明明精易模块有现成的。还全部自写。。难受。不过上一个有点问题。正则没有区分大 ...

好兄弟这个怎么引用到按钮和编辑框。我是纯萌新

钥匙key

wan228807664 发表于 2023-4-11 14:07
好兄弟这个怎么引用到按钮和编辑框。我是纯萌新

按钮调用。直接赋值给编辑框。
_按钮_点击事件{
编辑框.内容= 子程序();
}

afu45

新建 易程序 4.e (948.04 KB, 下载次数: 5)

2023-4-11 14:12 上传

点击文件名下载附件

DHeyong

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
字符表	文本型	0

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框1.内容 ＝ 编辑框1.内容 ＋ 取随机文本 (8) ＋ #换行符

子程序名	返回值类型	公开	备 注
初始化随机码表

变量名	类 型	静态	数组	备 注
初始值
i

初始值 ＝ 47
计次循环首 (10, i)  ' 数字
加入成员 (字符表, 字符 (初始值 ＋ i))
计次循环尾 ()
初始值 ＝ 64
计次循环首 (26, i)  ' 大写字母
加入成员 (字符表, 字符 (初始值 ＋ i))
计次循环尾 ()
初始值 ＝ 96
计次循环首 (26, i)  ' 小写字母
加入成员 (字符表, 字符 (初始值 ＋ i))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
取随机文本	文本型
参数名	类 型	参考	可空	数组	备 注
位数

变量名	类 型	静态	数组	备 注
i
返回随机文本	文本型

计次循环首 (位数, i)
返回随机文本 ＝ 返回随机文本 ＋ 字符表 [取随机数 (1, 62)]
计次循环尾 ()
返回 (返回随机文本)

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

置随机数种子 ()
初始化随机码表 ()

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 字符表, 文本型, , "0"<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ 编辑框1.内容 ＋ 取随机文本 (8) ＋ #换行符<br /> <br /> .子程序 初始化随机码表<br /> .局部变量 初始值<br /> .局部变量 i<br /> <br /> 初始值 ＝ 47<br /> .计次循环首 (10, i)  ' 数字<br />     加入成员 (字符表, 字符 (初始值 ＋ i))<br /> .计次循环尾 ()<br /> 初始值 ＝ 64<br /> .计次循环首 (26, i)  ' 大写字母<br />     加入成员 (字符表, 字符 (初始值 ＋ i))<br /> .计次循环尾 ()<br /> 初始值 ＝ 96<br /> .计次循环首 (26, i)  ' 小写字母<br />     加入成员 (字符表, 字符 (初始值 ＋ i))<br /> .计次循环尾 ()<br /> <br /> .子程序 取随机文本, 文本型<br /> .参数 位数<br /> .局部变量 i<br /> .局部变量 返回随机文本, 文本型<br /> <br /> .计次循环首 (位数, i)<br />     返回随机文本 ＝ 返回随机文本 ＋ 字符表 [取随机数 (1, 62)]<br /> .计次循环尾 ()<br /> 返回 (返回随机文本)<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 置随机数种子 ()<br /> 初始化随机码表 ()

afu45

新建 易程序 4.e (948.88 KB, 下载次数: 5)

2023-4-11 14:15 上传

点击文件名下载附件