亲宝软件园·资讯

展开

怎样编制一个产生随机密码的函数?

人气:0
想了解怎样编制一个产生随机密码的函数?的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:怎样何编编制制一一个个产产生生随随机机密密码码的的函函数数??,下面大家一起来学习吧。
<%
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]

加载全部内容

相关教程
猜你喜欢
用户评论