如何编制一个产生随机密码的函数？

网络编程 2024/9/23 佚名

3 2 1

无为清净楼资源网 Design By www.qnjia.com

<%
response.write makePassword(16)

function makePassword(byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize

For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
' 指定字符范围.

end function
%>

[1]

|如何|何编|编制|制一|一个|个产|产生|生随|随机|机密|密码|码的|的函|函数|数？|？|

标签：