网络编程
位置：首页>> 网络编程>> Asp编程>> 如何编制一个产生随机密码的函数？

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

　来源：asp之家　发布时间：2009-11-08 19:06:00　

标签：随机,函数,密码

可用下列函数来产生你需要的东西，将它们发送给用户就可以啦：

<％
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
％>


 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com