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

韩冰

dim char_array(35)

: j5 d& ]& r6 j" \* x$ I) n* D: X

char_array(0) = '0'

char_array(1) = '1'

char_array(2) = '2'

) r! K V8 r% Y& r

char_array(3) = '3'

% U; A8 v2 P* i$ Q

char_array(4) = '4'

& B' G3 m! e5 j9 f& J. y* w

char_array(5) = '5'

char_array(6) = '6'

char_array(7) = '7'

char_array(8) = '8'

char_array(9) = '9'

char_array(10) = 'A'

- Z' D$ z. q( e2 P

char_array(11) = 'B'

9 w7 S2 L" I' N

char_array(12) = 'C'

B. {: l6 f4 z8 d7 N

char_array(13) = 'D'

3 c8 R' u7 }& e0 L8 z

char_array(14) = 'E'

char_array(15) = 'F'

char_array(16) = 'G'

0 v+ o* g) X C& g1 R. _

char_array(17) = 'H'

char_array(18) = 'I'

char_array(19) = 'J'

- c' U* C; Z+ \* J+ v0 [5 ~

char_array(20) = 'K'

) N0 E6 }# h4 z% Y" H! C" D

char_array(21) = 'L'

char_array(22) = 'M'

char_array(23) = 'N'

5 b3 h4 h, e( s6 V" X4 u/ M

char_array(24) = 'O'

char_array(25) = 'P'

: _7 L' Q4 D, ?

char_array(26) = 'Q'

$ C: _% s2 @! L+ Q \3 o

char_array(27) = 'R'

char_array(28) = 'S'

5 M( v p5 z3 v

char_array(29) = 'T'

. ^8 N5 U5 e% j9 [5 {- E

char_array(30) = 'U'

# X8 ]1 K- p# }% G4 i8 ^8 B

char_array(31) = 'V'

6 i6 W# I3 D( L( i; V" T# L# g

char_array(32) = 'W'

char_array(33) = 'X'

- I2 }9 M+ p: `: d1 i( f

char_array(34) = 'Y'

char_array(35) = 'Z'

5 X! `3 m: d$ s3 x* c

randomize

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

& k' M8 P. J' y( f! U( R# I

output = output + num

loop

) q, `& M! Y0 r8 `8 N/ y6 a. U

gen_key = output

End Function

7 }8 X6 J' s% |

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'

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

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

兄弟

强悍啊