当前位置：首页 > 资讯 > 技术文档

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

时间：2020-06-19 16:58 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何做一个密码“生成器”？

[u]randompassword.asp

[/u]

<% 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%>

[b][1][/b]

全部评论(0)

上一篇：如何利用当前时间生成随机函数？
下一篇：如何做一个文本书写器？

资讯排行榜
更多>>