易语言按指定规律产生不规则随机强密码的实现方法

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. .程序集变量 A, 文本型
   
7. 
   
8. .子程序 __启动窗口_创建完毕
   
9. .局部变量 B, 文本型
   
10. 
    
11. 置随机数种子 ()
    
12. B ＝ “”
    
13. A ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”
    
14. .计次循环首 (8, )
    
15.     B ＝ B ＋ 取文本中间 (A, 取随机数 (1, 取文本长度 (A)), 1)
    
16. .计次循环尾 ()
    
17. A ＝ “0123456789”
    
18. .计次循环首 (4, )
    
19.     B ＝ B ＋ 取文本中间 (A, 取随机数 (1, 取文本长度 (A)), 1)
    
20. .计次循环尾 ()
    
21. A ＝ “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
    
22. .计次循环首 (4, )
    
23.     B ＝ B ＋ 取文本中间 (A, 取随机数 (1, 取文本长度 (A)), 1)
    
24. .计次循环尾 ()
    
25. A ＝ “abcdefghijklmnopqrstuvwxyz”
    
26. .计次循环首 (4, )
    
27.     B ＝ B ＋ 取文本中间 (A, 取随机数 (1, 取文本长度 (A)), 1)
    
28. .计次循环尾 ()
    
29. A ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”
    
30. .计次循环首 (8, )
    
31.     B ＝ B ＋ 取文本中间 (A, 取随机数 (1, 取文本长度 (A)), 1)
    
32. .计次循环尾 ()
    
33. B ＝ “@@” ＋ B ＋ “@@”
    
34. 调试输出 (B)
    
35. 置剪辑板文本 (B)
    
36. 结束 ()
    

复制代码

demon

多谢分享。

Cute

应该很有用，