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

韩冰

dim char_array(35)

char_array(0) = '0'

( y' A1 L' i+ X }/ Z: J1 r

char_array(1) = '1'

char_array(2) = '2'

7 ^; P7 {) ^$ c4 V- z! N

char_array(3) = '3'

char_array(4) = '4'

4 Q' d& t& S6 y

char_array(5) = '5'

3 a. P: h0 b) w3 T9 e: d( R

char_array(6) = '6'

char_array(7) = '7'

char_array(8) = '8'

char_array(9) = '9'

2 |: ]9 S/ l4 z; X5 O s F

char_array(10) = 'A'

% s: `: ]4 A- j2 M

char_array(11) = 'B'

6 @; X2 O9 p7 j

char_array(12) = 'C'

3 W3 M/ e/ |4 V( W! \' j4 n4 f

char_array(13) = 'D'

char_array(14) = 'E'

char_array(15) = 'F'

$ G! [8 I; l1 i" o& a: J) v8 z

char_array(16) = 'G'

char_array(17) = 'H'

char_array(18) = 'I'

char_array(19) = 'J'

! I# B+ [% [4 G0 U! J+ ]

char_array(20) = 'K'

char_array(21) = 'L'

char_array(22) = 'M'

; g" M: y2 F( |7 b J0 t! F

char_array(23) = 'N'

char_array(24) = 'O'

char_array(25) = 'P'

9 z9 c. c# y) c z( A( g( U

char_array(26) = 'Q'

char_array(27) = 'R'

char_array(28) = 'S'

, s$ Q6 u* l" }) g. y

char_array(29) = 'T'

; E$ m6 q8 g- ~# d. _) b

char_array(30) = 'U'

2 x$ i/ F) I( I. E6 l0 W+ u5 ]

char_array(31) = 'V'

char_array(32) = 'W'

! H8 i; N# d. h+ K

char_array(33) = 'X'

char_array(34) = 'Y'

1 L$ S- J- v# ?

char_array(35) = 'Z'

3 r; k7 i, e0 Z9 s8 x! i

randomize

% V/ Q c, e2 G3 w+ B

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

5 |" E1 u1 l" n2 S# N* j

output = output + num

loop

; X- R$ F" K1 F/ r) L' k' T

gen_key = output

End Function

7 l% m, a. k7 U8 O6 c, r0 B

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

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

. t) X' n. H: t1 S$ v

char_array(36) = 'a'

char_array(37) = 'b'

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

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

兄弟

强悍啊