【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 = "[email protected]#$%^&*()"
    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

本程序的下载地址：点击打开链接

版权声明：本文为博主原创文章，未经博主允许不得转载。