男同gay片av网站,美女视频黄8频美女视频,男人j放进女人p全黄,柠檬福利精品视频导航,免费涩情网站

首頁
手機版
熱門搜索：
當(dāng)前位置：電腦軟件應(yīng)用軟件雜類其它隨機字符串生成器

隨機字符串生成器 綠色版v1.0

  • 大小：62KB
  • 語言：簡體中文
  • 類別：雜類其它
  • 類型：免費軟件
  • 授權(quán)：國產(chǎn)軟件
  • 時間：2022/03/05
  • 官網(wǎng)：http://goqiche.cn
  • 環(huán)境：Windows7, Windows10, WindowsAll

相關(guān)軟件

隨機字符串生成器是一款由網(wǎng)友制作的字符生成工具，軟件能夠隨機的生成一段字符，用戶可將其用于密碼加密，強度十分可靠。軟件中支持用戶自定義生成的字符串長度，還能夠自定義使用的字符，生成用戶所需的字符串。軟件為綠色版本，無需用戶進行安裝，解壓之后即可使用。

隨機字符串生成器圖片

軟件說明

用來生成隨機字符串

可指定字符串長度和用來生成的字符

作密碼的話強度應(yī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("字符串長度非法！（字符串長度只能填數(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

標(biāo)簽： 密碼生成 字符生成

下載地址

隨機字符串生成器 綠色版v1.0

普通下載通道

網(wǎng)友評論

返回頂部