随机字符串生成器是一款可以帮助用户(hù)生(shēng)成随机字(zì)符串(chuàn)的小工具,用户(hù)可以将生成的字符(fú)串作为密码来使用!
其实很多时候我们(men)设置(zhì)密码,总是喜欢以自己(jǐ)的生日或者身份证最为密码,其实现在(zài)只需要来这里选择随机字(zì)符串生成器,就(jiù)能获得很(hěn)多不一样的字符(fú)串,这(zhè)样随机(jī)生成(chéng)的密码,保密等(děng)级相(xiàng)当(dāng)高(gāo)!
1、下载解压并打开这款随机字符串生成工具;
2、填写所生成字符串的长(zhǎng)度(dù);
3、可勾选自定义字(zì)符池来自(zì)定义生(shēng)成的字符串字符;
4、点击“生成!”按钮即可。
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(\"自定(dìng)义字(zì)符池不(bú)能为空!\", vbCritical, \"出错(cuò)了\")
Exit Sub
End If
zfc = Form1.Text2.Text
End If
cd = Form1.Text1.Text
If cd = \"\" Then
abc = MsgBox(\"字符串长度(dù)不(bú)能为空!\", vbCritical, \"出错了\")
Exit Sub
End If
abc = IsNumeric(cd)
If abc = False Then
abc = MsgBox(\"字符串长度非(fēi)法!(字符(fú)串长度只能填数字)\", 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
