首页

手机版

首页游戏库网络软件系统工具应用软件图形图像多媒体类聊天软件安全软件编程开发

当前位置：电脑软件应用软件杂类其它随机字符串生成器

随机字符串生成器绿色版v1.0

大小：62KB
语言：简体中文
类别：杂类其它
类型：免费软件
授权：国产软件
时间：2022/03/05
官网：https://www.3h3.com
环境：Windows7, Windows10, WindowsAll

4.4分

相关软件

软件简介相关版本猜你喜欢精品推荐用户评论

随机字符串生成器是一款由网友制作的字符生成工具，软件能够随机的生成一段字符，用户可将其用于密码加密，强度十分可靠。软件中支持用户自定义生成的字符串长度，还能够自定义使用的字符，生成用户所需的字符串。软件为绿色版本，无需用户进行安装，解压之后即可使用。

随机字符串生成器图片

软件说明

用来生成随机字符串

可指定字符串长度和用来生成的字符

作密码的话强度应该非常强了

使用前要装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

标签：密码生成字符生成

下载地址

PC版/

随机字符串生成器绿色版v1.0

普通下载通道

精品推荐

网友评论

杂类其它周排行/ 杂类其它总排行

装机必备软件

百度云管家

360安全卫士

百度输入法

软件介绍


猜你喜欢
相关版本
下载地址
精品推荐
返回顶部

回顶部去下载

返回顶部