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

韩冰

dim char_array(35)

; ]/ e h: I7 I6 {. T

char_array(0) = '0'

& W; w# H+ J% {; }6 z! i6 ?

char_array(1) = '1'

* ?& c' [% ~+ R( E% A s

char_array(2) = '2'

char_array(3) = '3'

' ~ o2 J% @1 e& K9 m; x( v, R

char_array(4) = '4'

char_array(5) = '5'

char_array(6) = '6'

char_array(7) = '7'

char_array(8) = '8'

' q" z' G+ o$ J* M! S: `1 d& m$ v

char_array(9) = '9'

8 P6 a$ l8 G4 l. n

char_array(10) = 'A'

char_array(11) = 'B'

char_array(12) = 'C'

char_array(13) = 'D'

7 L+ k" V/ u; ]. x

char_array(14) = 'E'

; C7 j6 C7 G& D' P# M

char_array(15) = 'F'

+ z& W+ `: z& v

char_array(16) = 'G'

char_array(17) = 'H'

4 C" Z: U( H3 a

char_array(18) = 'I'

char_array(19) = 'J'

char_array(20) = 'K'

char_array(21) = 'L'

9 k; \, w/ A1 e, X5 s

char_array(22) = 'M'

3 u9 ^2 z4 \9 ?

char_array(23) = 'N'

char_array(24) = 'O'

char_array(25) = 'P'

char_array(26) = 'Q'

: m8 k9 ?, N9 \5 Y

char_array(27) = 'R'

2 Q' o$ n9 Z. K

char_array(28) = 'S'

char_array(29) = 'T'

" t7 t5 |: c& n, I5 A

char_array(30) = 'U'

char_array(31) = 'V'

5 g* h6 Q2 [& X' U! r0 m

char_array(32) = 'W'

0 ~) |3 ^- O: o+ P% R

char_array(33) = 'X'

4 U: S! p- u& K) N* l

char_array(34) = 'Y'

char_array(35) = 'Z'

2 d! @$ \$ M" W4 Z% s# I. G5 m

randomize

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

5 b+ W( }& f7 ^( {

output = output + num

loop

gen_key = output

2 K- [6 g- S2 E% F% N+ M3 X

End Function

9 o2 G1 q: ~& J( B0 G n/ U( E {

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

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

# S0 A/ {' _9 \! T- L2 R: q

char_array(36) = 'a'

1 G1 R( n/ D7 P4 M& o

char_array(37) = 'b'

' ?* {& R# ~: m& b# _9 g7 v

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

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

兄弟

强悍啊