精易论坛

标题: 自己写密码生成器!练手用! [打印本页]

作者: shiren    时间: 2021-2-24 15:17
标题: 自己写密码生成器!练手用!
自己练手写的!练练手高手误笑!



  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
密码种类整数型  
密码位数整数型  

子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
小写字母整数型097-122
数值整数型 
大写字母整数型065-90
临时计数整数型 
密码文本型 
类别整数型 
a整数型 
置随机数种子 ()
密码位数 = 到整数 (编辑框2.内容)
密码种类 = 0
如果真 (选择框1.选中 = )
a = 1
密码种类 = 1
如果真 (选择框2.选中 = )
判断 (a = 0)
a = 2


密码种类 = 2
如果真 (选择框3.选中 = )
判断 (a = 0)
a = 3


密码种类 = 3

如果真 (密码位数 = 0 密码种类 = 0)
信息框 (“请选择正确的生产条件或者输入正确的密码位数!”, 0, , )
返回 ()

计次循环首 (26, 临时计数)
加入成员 (小写字母, 96 + 临时计数)
计次循环尾 ()
计次循环首 (26, 临时计数)
加入成员 (大写字母, 64 + 临时计数)
计次循环尾 ()
计次循环首 (密码位数, 临时计数)
类别 = 取随机数 (a, 密码种类)
如果真 (类别 = 1)
密码 = 密码 + 到文本 (取随机数 (0, 10))
到循环尾 ()

如果真 (类别 = 2)
密码 = 密码 + 字符 (小写字母 [取随机数 (1, 26)])
到循环尾 ()

如果真 (类别 = 3)
密码 = 密码 + 字符 (大写字母 [取随机数 (1, 26)])
到循环尾 ()

计次循环尾 ()
编辑框1.内容 = 密码



作者: 千千回眸    时间: 2021-2-24 17:38
0000000000000000000000000000000000000
作者: singlecolor    时间: 2021-2-25 01:52
路过围观一下,顺便帮顶
作者: FUYUEPC    时间: 2021-2-25 07:57
        此处应该有鼓励~
作者: joyea    时间: 2021-2-26 11:46
膜拜!666666666666666666
作者: 154108389    时间: 2021-2-27 13:25

作者: fengshou    时间: 2021-3-1 00:47
自用随机数生成器。。。
作者: 懒人定制软件    时间: 2021-3-1 01:04
  感谢发布原创作品,一定好好学习,天天向上
作者: 威汇    时间: 2021-3-1 17:10
  感谢发布原创作品,一定好好学习,天天向上
作者: 124149449    时间: 2021-3-2 01:01
在此留名,以后多多交流哦~
作者: 雾雾雾    时间: 2021-3-2 12:28
学习学习
作者: 田兵    时间: 2021-3-3 21:00
学习学习
作者: tapouki    时间: 2021-3-5 13:32
学习学习
作者: micyb00    时间: 2021-3-7 16:38
学习学习!!
作者: FUYUEPC    时间: 2021-3-7 21:01
        此处应该有鼓励~
作者: zjjwhj    时间: 2021-3-23 18:35
支持开源~!感谢分享
作者: 宝贝儿鲍    时间: 2021-4-13 09:56
加油加油加油加油加油加油加油加油加油加油加油加油加油加油
作者: JOKERPIESTAR    时间: 2021-7-31 01:30
66666666666666666666666666666666666666666666666
作者: ghost12    时间: 2022-2-23 08:00
支持开源~!感谢分享
作者: cxyi    时间: 2022-3-9 16:14
感谢分享
作者: lwzhangchao    时间: 2022-3-11 08:40
1111111111111111111
作者: 夕昕    时间: 2022-5-24 19:44
感谢分享
作者: zxzx100    时间: 2024-1-2 15:58
可以加个排除字符项吗
作者: b8008    时间: 2024-2-11 22:00
{:7_432:}{:7_432:}
作者: aayangpu    时间: 2024-6-15 23:47
就看看好看好看




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4