【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
    Randomize (Timer)           '初始化随机数生成器   
    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研究】生成随机密码_第1张图片

下载工具:点击打开链接

你可能感兴趣的:(【VBA研究】生成随机密码)