ASP生成随机密码的又一种方法

韩冰

dim char_array(35)

+ v# Q# p5 ^% _" j; }

char_array(0) = '0'

5 @$ g) |$ [* ^9 Y0 O

char_array(1) = '1'

$ u7 @- f% d6 ~7 t/ `# Q0 w; |, i

char_array(2) = '2'

6 N5 q2 c+ N. j

char_array(3) = '3'

, M% M2 q6 W& b$ h: c, f

char_array(4) = '4'

char_array(5) = '5'

char_array(6) = '6'

( h1 B0 S8 P" p1 q' Q$ d+ A

char_array(7) = '7'

3 x$ M n! l" e& @: h5 ]

char_array(8) = '8'

$ i" D5 E7 {" C0 I" |5 n

char_array(9) = '9'

+ W- }$ u/ `/ n% D6 P$ F) s/ K

char_array(10) = 'A'

char_array(11) = 'B'

& l# l0 H: Y4 d# o, r0 ~

char_array(12) = 'C'

! B) v( j s% ~' B

char_array(13) = 'D'

char_array(14) = 'E'

. k3 b$ S' X9 _( w* j

char_array(15) = 'F'

2 b% y/ O0 s# Z& Z% P

char_array(16) = 'G'

. Z/ }0 G+ k; o) [( X. }7 [% H

char_array(17) = 'H'

, ?6 Q( v) x/ a# o+ q

char_array(18) = 'I'

6 d( z# d& z1 H; _4 `* K( q

char_array(19) = 'J'

$ c& `6 U0 M, W8 a3 k8 [0 \

char_array(20) = 'K'

char_array(21) = 'L'

9 v; q# b- r* p0 e- G

char_array(22) = 'M'

char_array(23) = 'N'

0 n) H4 E `) R; V0 Q! m" N6 K

char_array(24) = 'O'

char_array(25) = 'P'

char_array(26) = 'Q'

char_array(27) = 'R'

7 Y/ x2 u7 x4 s# T* ]

char_array(28) = 'S'

char_array(29) = 'T'

char_array(30) = 'U'

char_array(31) = 'V'

+ H# S8 ?% u/ x5 w2 H' p: L/ c: k

char_array(32) = 'W'

char_array(33) = 'X'

3 {7 }+ o7 S7 o$ _" I0 T

char_array(34) = 'Y'

# e) R1 R% N# \; I3 a- l" h$ [/ {1 }: x

char_array(35) = 'Z'

' A! b2 p2 ^5 s9 G, O

randomize

do while len(output) num = char_array(Int(35 * Rnd + 0))

output = output + num

G+ H6 H0 H* A, n; ~# X

loop

1 S5 E. p5 I9 r9 Q

gen_key = output

# X% R9 B% a/ i

End Function

response.write '随机密码是：' & gen_key(10)

这是一个生成随机数的通用函数，我们首先将所有可能的字符保存在数组内，这里的例子是0-9及26个英文字符，共36个字符。注意数组下标是从0开始的，所以dim char_array(35)，其实表示有36个字符。注意：本例没有专门区分字母的大小写，如果你还要加上“大小写敏感/区分大小写”特性的话，修改数组大小为char_array(50)，然后在后面列出所有可能的小写字符。例如：

char_array(36) = 'a'

char_array(37) = 'b'

' N2 q! c- P1 ?7 H% v0 U

...............类推

/ x: A5 e A/ b! m, Z

注意这是一个可以通用的函数，gen_key(digits)它传进一个参数digits，代表要生成的随机密码位数。今后要生成20为密码就用gen_key(20)即可打印出密码，或者将它保存在数据库内。

兄弟

强悍啊