隨機字符串生成器是一款由網(wǎng)友制作的字符生成工具，軟件能夠隨機的生成一段字符，用戶可將其用于密碼加密，強度十分可靠。軟件中支持用戶自定義生成的字符串長度，還能夠自定義使用的字符，生成用戶所需的字符串。軟件為綠色版本，無需用戶進行安裝，解壓之后即可使用。
軟件說明
用來生成隨機字符串
可指定字符串長度和用來生成的字符
作密碼的話強度應該非常強了
使用前要裝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("字符串長度非法?。ㄗ址L度只能填數(shù)字）", 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
下載地址
-
本類熱門推薦本類熱門標簽
-
詳情
CADe SIMU (模擬電氣電路仿真軟件)中文版V3.0
6.04MB / 3分
-
詳情
簡易多開 免費版V1.0
7KB / 3分
-
詳情
balenaEtcher鏡像制作軟件 正式版v1.5.70
130.8MB / 3分
-
詳情
Altova XMLSpy 官方版v2017
27.5MB / 3分
-
詳情
Enterprise Architect 官方最新版v15.0
180MB / 3分
-
詳情
Amtemu 2019 最新免費版v0.9.2
1.63MB / 3分
-
詳情
橙子vr助手 官方電腦版v1.0.26
31.86MB / 3分
-
詳情
裝機必備軟件
網(wǎng)友評論