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

所属分类: 网络编程 / 编程10000问 阅读数: 1476
收藏 0 赞 0 分享
<%
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]

更多精彩内容其他人还在看

如何实现强制登录?

如何实现强制登录?
收藏 0 赞 0 分享

如何制作一个安全的页面?

如何制作一个安全的页面?
收藏 0 赞 0 分享

如何最大限度地实现安全登录功能?

如何最大限度地实现安全登录功能?
收藏 0 赞 0 分享

如何防止未经注册的用户绕过注册界面直接进入应用系统?

如何防止未经注册的用户绕过注册界面直接进入应用系统?
收藏 0 赞 0 分享

怎样避免直接在地址栏敲入URL即可绕过登录页的错误?

怎样避免直接在地址栏敲入URL即可绕过登录页的错误?
收藏 0 赞 0 分享

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

如何编制一个产生随机密码的函数?
收藏 0 赞 0 分享

如何利用当前时间生成随机函数?

如何利用当前时间生成随机函数?
收藏 0 赞 0 分享

如何做一个密码“生成器”?

如何做一个密码“生成器”?
收藏 0 赞 0 分享

如何做一个随机密码产生器?

如何做一个随机密码产生器?
收藏 0 赞 0 分享

如何将产生的密码记录并发送给用户并通过点击链接激活?

如何将产生的密码记录并发送给用户并通过点击链接激活?
收藏 0 赞 0 分享
查看更多