常常为了设密码抓耳挠腮?EXCEL版高级密码生成器一键生成复杂密码

网络社会,密码是我们经常使用的东西,有些不重要的东西简单密码就行,但是对于网管,或者系统管理员,就需要设置一些复杂密码来增加一定的安全性,这里分享一个自用的EXCEL版密码生成器,用自定义的VBA函数,可直接生成N位指定复杂度的密码,废话少说,直接上图

看上图的密码,让你自己设置是不是会费点脑细胞呢,用了我的自定义函数,就可以分分钟生成任意密码,还可以指定位数和复杂度,使用方法

1. 打开excel,alt+f11打开vba编辑器,插入模块

2. 粘贴以下代码,另存文件为xlsm或者xls文件

Function GenPasswd(length, level) '参数为 长度 密码的等级

'by excel880工作室

Dim allstr, substr, passwd As String

Application.Volatile

Randomize

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

在工作表任意位置,输入

=GenPasswd(8,4)即可得到8位4级最高等级密码

当然你也可以生成一个32位的密码=GenPasswd(32,4),让对方暴力破解的去哭吧

友情提示:记得保存好自己生成好的密码!!