手机
当前位置:查字典教程网 >编程开发 >编程10000问 >如何做一个密码“生成器”?
如何做一个密码“生成器”?
摘要:randompassword.asp[1]

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]

【如何做一个密码“生成器”?】相关文章:

如何在ASP中恰当地运用Cookies?

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

如何创建一个PDF文件?

如何将访问者数目周期性地保存?

如何准确地获得一个整数?

如何限制上传文件的大小?

如何上传一个单纯的HTML文件?

如何用Access加密页面?

如何做一个文本书写器?

如何制作关联的下拉菜单?

精品推荐
分类导航