随机生成密码函数

最新推荐文章于 2020-04-01 09:03:55 发布

xiaong

最新推荐文章于 2020-04-01 09:03:55 发布

阅读量587

点赞数

分类专栏： Web开发文章标签： character function

本文链接：https://blog.csdn.net/xiaong/article/details/167444

版权

Web开发专栏收录该内容

1 篇文章 0 订阅

订阅专栏

function makePassword(byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize

For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 2) * Rnd + 0)
If whatsNext = 0 Then
'character
upper = 90
lower = 65
Else
if whatsNext=1 then
  upper=122
  lower=97
else
  upper = 57
  lower = 48
end if
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
end function