|
|
主题: 请问如何实现随即密码
|
ryonick
职务：普通成员
等级：2
金币：1.0
发贴：317
|
#12003/1/28 15:45:32
我想做一个注册程序，密码由系统自动产生。我用int(rnd()*1000+rnd()*100+rnd()*10)生成好象老是同一个。不知道有没有更好的办法
|
绿茶
职务：普通成员
等级：8
金币：10.0
发贴：19267
|
#22003/1/28 21:38:58
Randomize
num = Int(99999999*Rnd+1)
随机产生8位数字
|
lfg
职务：普通成员
等级：1
金币：0.0
发贴：27
|
#32003/1/29 5:56:25
germchen在上个帖子中说 引用:
Randomize
num = Int(99999999*Rnd+1)
随机产生8位数字
这样的密码太简单 产生 32 - 128 的随机数如是 a 用 chars=chr(a) 循环产生 8 个ascii 符，跌代连接就能生成好的随机密码象： #$gHJ98&~~
编辑历史:[这消息被lfg编辑过(编辑时间2003-01-29 05:56:58)]
|
zdygh2009
职务：普通成员
等级：1
金币：0.0
发贴：66
|
#42003/1/31 8:19:38
下面这段代码就是产生随机数：
必需放在表单代码的前面。
<%
genPassword = ""
Randomize
For i = 1 to 6
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPartPass = Chr(intNum)
Case 2
strPartPass = Chr(intUpper)
Case 3
strPartPass = Chr(intLower)
End Select
genPassword = genPassword & strPartPass
Next
%>
希望能够使用
|
