脚本宝典收集整理的这篇文章主要介绍了如何做一个密码“生成器”？，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

randompassword.asp

<%

Dim i, intNum, intUpPEr, intLower, intRand, strPartPass, genPassword

genPassword = \"\"

Randomize

' 用Randomize生成随机种子.

For i = 1 to 7

' 循环7次，即创建7位随机密码.

intNum = Int(10 * Rnd + 48)

' 0-9的ASCII码范围是48-57.

intUpper = Int(26 * Rnd + 65)

' A-Z的ASCII码范围是65-90.

intLower = Int(26 * Rnd + 97)

' a-z的ASCII码范围是97-123.

intRand = Int(3 * Rnd + 1)

' 对Int(3 * Rnd + 1)取整得到intRand,会有3种结果,用select case判断当前的intRand值是1,2还是3.如果是1显示数字,是2显示大写字符,是3则显示小写字符.

Select Case intRand

Case 1

strPartPass = Chr(intNum)

' 用Chr方法换算到对应的ASCII值.

Case 2

strPartPass = Chr(intUpper)

Case 3

strPartPass = Chr(intLower)

End Select

genPassword = genPassword &amp; strPartPass

Next

randomPassword = genPassword

' 将创建的密码保存在变量randomPassword中.

%>

<%=\"请保存好，您的密码是：\" & randomPassword%>

 

[1]

脚本宝典总结

以上是脚本宝典为你收集整理的如何做一个密码“生成器”？全部内容，希望文章能够帮你解决如何做一个密码“生成器”？所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。