如何做一个密码“生成器”？_编程10000问_

NEWSZW_HZH_BEGIN-->

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 & strPartPass

Next

randomPassword = genPassword

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

%>

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

[1]