【基本介绍】
随机字符串生成器
用来生成随机字符串
可指定字符串长度和用来生成的字符
作密码的话强度应该非常强了...
【基本介绍】
随机字符串生成器
用来生成随机字符串
可指定字符串长度和用来生成的字符
作密码的话强度应该非常强了
使用前要装VB6运行库
源码:
Private Sub Check1_Click()
If Form1.Check1.Value = 1 Then
Form1.Text2.Locked = False
Form1.Text2.BackColor = &H80000005
End If
If Form1.Check1.Value = 0 Then
Form1.Text2.Locked = True
Form1.Text2.BackColor = &HC0C0C0
End If
End Sub
Private Sub Command1_Click()
Dim zfc As String
zfc = "123456YUvbnm`~!@#$IOPrtyuiopasdfghjklzxc%AVBNMqJK^LZXC\{[7890QWERT}]:;'<,we&*()_-+=|SDFGH>.?/ "
If Form1.Check1.Value = 1 Then
If Form1.Text2.Text = "" Then
abc = MsgBox("自定义字符池不能为空!", vbCritical, "出错了")
Exit Sub
End If
zfc = Form1.Text2.Text
End If
cd = Form1.Text1.Text
If cd = "" Then
abc = MsgBox("字符串长度不能为空!", vbCritical, "出错了")
Exit Sub
End If
abc = IsNumeric(cd)
If abc = False Then
abc = MsgBox("字符串长度非法!(字符串长度只能填数字)", vbCritical, "出错了")
Exit Sub
End If
Randomize
Dim jg
jg = ""
Dim i
For i = 1 To cd
jg = jg & Mid(zfc, 1 + Int(Len(zfc) * Rnd), 1)
Next i
Form1.Text3.Text = jg
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub