<%
Function makePassword(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
'character
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
response.Write makePassword(16)
%>
生成如下 ZCN1QJ070O0XVDFS
本文介绍了一种使用VBScript编写的简单方法来生成指定长度的随机密码。该方法通过循环和随机数选择来决定每个字符是字母还是数字,并确保生成的密码具有一定的复杂度。
345

被折叠的 条评论
为什么被折叠?



