易语言版随机密码生成模块 - 支持大小写字母数字特殊符号生成 自定义长度

CNWTEPRG

该源码是  https://www.fedcba9876543210.com/thread-651-1-1.html 的模块版，且没有最大字符数限制，编译后即可调用。

1. 
   
2. 
   
3. .版本 2
   
4. .支持库 spec
   
5. 
   
6. .程序集 随机密码生成模块
   
7. .程序集变量 阿拉伯数字所有字符, 文本型
   
8. .程序集变量 小写字母所有字符, 文本型
   
9. .程序集变量 大写字母所有字符, 文本型
   
10. .程序集变量 特殊符号所有字符, 文本型
    
11. 
    
12. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
    
13. 
    
14. 置随机数种子 ()
    
15. 阿拉伯数字所有字符 ＝ “0123456789”
    
16. 小写字母所有字符 ＝ “abcdefghijklmnopqrstuvwxyz”
    
17. 大写字母所有字符 ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
    
18. 特殊符号所有字符 ＝ 到文本 ({ 96, 126, 33, 64, 35, 36, 37, 94, 38, 42, 40, 41, 95, 43, 45, 61, 123, 125, 124, 91, 93, 92, 58, 39, 60, 62, 63, 44, 46, 47, 34 })
    
19. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
20. 返回 (0)  ' 可以根据您的需要返回任意数值
    
21. 
    
22. .子程序 _临时子程序
    
23. 
    
24. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
25. .计次循环首 (100, )
    
26.     调试输出 (取随机密码 (10, 真, 真, 真, 真))
    
27. .计次循环尾 ()
    
28. 
    
29. 
    
30. 
    
31. .子程序 取随机密码, 文本型, 公开
    
32. .参数 长度, 整数型
    
33. .参数 阿拉伯数字, 逻辑型, 可空
    
34. .参数 小写字母, 逻辑型, 可空
    
35. .参数 大写字母, 逻辑型, 可空
    
36. .参数 特殊符号, 逻辑型, 可空
    
37. .局部变量 允许出现的字符, 文本型
    
38. .局部变量 返回值, 文本型
    
39. .局部变量 允许出现的字符长度, 整数型
    
40. 
    
41. .如果真 (长度 ≤ 0)
    
42.     返回 (“”)
    
43. .如果真结束
    
44. .如果真 (阿拉伯数字)
    
45.     允许出现的字符 ＝ 阿拉伯数字所有字符
    
46. .如果真结束
    
47. .如果真 (小写字母)
    
48.     允许出现的字符 ＝ 允许出现的字符 ＋ 小写字母所有字符
    
49. .如果真结束
    
50. .如果真 (大写字母)
    
51.     允许出现的字符 ＝ 允许出现的字符 ＋ 大写字母所有字符
    
52. .如果真结束
    
53. .如果真 (特殊符号)
    
54.     允许出现的字符 ＝ 允许出现的字符 ＋ 特殊符号所有字符
    
55. .如果真结束
    
56. .如果真 (允许出现的字符 ＝ “”)
    
57.     返回 (“”)
    
58. .如果真结束
    
59. 允许出现的字符长度 ＝ 取文本长度 (允许出现的字符)
    
60. .计次循环首 (长度, )
    
61.     返回值 ＝ 返回值 ＋ 取文本中间 (允许出现的字符, 取随机数 (1, 允许出现的字符长度), 1)
    
62. .计次循环尾 ()
    
63. 返回 (返回值)
    
64. 
    
65. 
    
66. 
    

复制代码

Cute

为何相关帖子1个也没有了???

CNWTEPRG

小萌 发表于 2018-2-9 16:09
为何相关帖子1个也没有了???

刚才标签忘了填了 现在有了 谢谢版主大大。

Cute

不想长大 发表于 2018-2-9 16:13
刚才标签忘了填了 现在有了 谢谢版主大大。

现在的也都懒得填，自动获取功能也失效了。