作者:幻竞_847 | 来源:互联网 | 2023-05-17 13:32
作者:iamlaosong很简单的一个功能,网上也有很多在线生成器,也有小工具可以下载,这儿用VBA做一个,结果就保存到当前工作表中,简单、快速。生成函数也可以放到其它程序中使用
作者:iamlaosong
很简单的一个功能,网上也有很多在线生成器,也有小工具可以下载,这儿用VBA做一个,结果就保存到当前工作表中,简单、快速。生成函数也可以放到其它程序中使用。函数实现的流程是:用一个变量保存所有用到的字符,然后根据级别取不同的子串,最后产生随机数,从子串中取出字符合并出随机密码。程序如下:
'生成密码并保存到当前工作表中
Sub GetPassword()
len1 = Cells(2, 3)
lev1 = Cells(2, 4)
num1 = Cells(2, 5)
maxrow = ActiveSheet.UsedRange.Rows.Count
If maxrow >= 2 Then
Range("A2:A" & maxrow).ClearContents
End If
For row1 = 2 To num1 + 1
Cells(row1, 1) = GenPasswd(len1, lev1)
Next row1
End Sub
'生成随机密码函数,1级=数字,2级=数字+小写字母,3级=数字+大小写字母,4级=数字+大小写字母+符号
Function GenPasswd(length, level)
Dim allstr, substr, passwd As String
allstr = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()"
Select Case level
Case 1
strlen = 10
Case 2
strlen = 36
Case 3
strlen = 62
Case Else
strlen = 72
End Select
substr = Left(allstr, strlen)
'Debug.Print substr
passwd = ""
For i = 1 To length
passwd = passwd & Mid(substr, Int(Rnd * strlen + 1), 1)
Next
GenPasswd = passwd
End Function
本程序的下载地址:点击打开链接
版权声明:本文为博主原创文章,未经博主允许不得转载。
【VBA研究】生成随机密码