" />
隨機(jī)字符串生成器是一款可以幫助用戶生成隨機(jī)字符串的小工具,用戶可以將生成的字符串作為密碼來(lái)使用!
其實(shí)很多時(shí)候我們?cè)O(shè)置密碼,總是喜歡以自己的生日或者身份證最為密碼,其實(shí)現(xiàn)在只需要來(lái)這里選擇隨機(jī)字符串生成器,就能獲得很多不一樣的字符串,這樣隨機(jī)生成的密碼,保密等級(jí)相當(dāng)高!
1、下載解壓并打開(kāi)這款隨機(jī)字符串生成工具;
2、填寫(xiě)所生成字符串的長(zhǎng)度;
3、可勾選自定義字符池來(lái)自定義生成的字符串字符;
4、點(diǎn)擊“生成!”按鈕即可。
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, \"出錯(cuò)了\")
Exit Sub
End If
zfc = Form1.Text2.Text
End If
cd = Form1.Text1.Text
If cd = \"\" Then
abc = MsgBox(\"字符串長(zhǎng)度不能為空!\", vbCritical, \"出錯(cuò)了\")
Exit Sub
End If
abc = IsNumeric(cd)
If abc = False Then
abc = MsgBox(\"字符串長(zhǎng)度非法。ㄗ址L(zhǎng)度只能填數(shù)字)\", vbCritical, \"出錯(cuò)了\")
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