如何编制一个产生随机密码的函数？
更新时间：2006年11月16日 00:00: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
%>
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]
相关文章
如何向前端推送用户请求的信息？...2006-11-11
为什么用磁盘序列号加密过的代码不能被复制安装？...2006-11-11
如何将产生的密码记录并发送给用户并通过点击链接激活？...2006-11-11
如何把中文转换为UNICODE？...2006-11-11
如何防止未经注册的用户绕过注册界面直接进入应用系统？...2006-11-11
如何终止浏览器的Cahce页面？...2006-11-11
如何检测用户第一次访问我的网站并显示友好信息？...2006-11-11
如何让用户再次访问我的网站时不需再提交相关信息？...2006-11-11
如何用Cookie进行登录验证？...2006-11-11
浅析Java、C/C++、JavaScript、PHP、Python分别用来开发什么?
用任何编程语言来开发程序，都是为了让计算机干活，比如编写一篇文章，下载一首MP3等，而计算机干活的CPU只认识机器的指令，所以，尽管不同的编程语言差异极大，最后都得“翻译”成CPU可以执行的机器指令2018-08-08
最新评论