Dim n As Integer = 12 '要生成密码长度
Dim str() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "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", "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"}
For i As Integer = 1 To str.Length '洗牌测次数
Dim n1 As Integer = Rand.Next(str.Length)
Dim n2 As Integer = Rand.Next(str.Length)
Dim temp As String = str(n1)
str(n1) = str(n2)
str(n2) = temp
Next
Dim s As String = String.Join("", str)
If n > s.Length Then
n = s.Length
End If
Output.Show(s.Substring(0, n))
运行结果：
M764w1%'03+X
[此贴子已经被作者于2022/10/11 18:05:45编辑过]
加好友 
发短信
Post By：2022/10/11 18:03:00 [只看该作者]
