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

韩冰

dim char_array(35)

* E0 D" u5 U5 X/ x6 i8 K q* ?

char_array(0) = '0'

char_array(1) = '1'

char_array(2) = '2'

5 @2 V x) [" ?! L: ]) ?( |' K

char_array(3) = '3'

char_array(4) = '4'

char_array(5) = '5'

char_array(6) = '6'

. g# X1 B' U5 s* k4 E) H

char_array(7) = '7'

char_array(8) = '8'

char_array(9) = '9'

2 _4 l9 o$ {5 n' Q

char_array(10) = 'A'

' X1 p, w! m7 ~

char_array(11) = 'B'

char_array(12) = 'C'

9 V3 v y W# D+ o4 v

char_array(13) = 'D'

/ k& ~8 z9 Q& K F; j

char_array(14) = 'E'

char_array(15) = 'F'

+ V7 _; D6 s8 e$ j9 ~

char_array(16) = 'G'

- {8 W1 @: ^; A2 [

char_array(17) = 'H'

' ?0 `( h M/ `. {0 r/ B

char_array(18) = 'I'

char_array(19) = 'J'

& o2 X9 h# r$ U) D

char_array(20) = 'K'

char_array(21) = 'L'

6 h% V* C) J$ [/ n( V8 d; l

char_array(22) = 'M'

3 ~2 n% j. e! T! K) ]) x

char_array(23) = 'N'

# { T& G, S% L7 q/ b# C# \

char_array(24) = 'O'

7 s5 b; j7 S" O8 h' b' K

char_array(25) = 'P'

char_array(26) = 'Q'

: n$ I5 j7 `" J4 \

char_array(27) = 'R'

char_array(28) = 'S'

- A/ @: b" {; G7 P" i

char_array(29) = 'T'

% W( t0 S; D, l/ t4 x9 F

char_array(30) = 'U'

char_array(31) = 'V'

char_array(32) = 'W'

+ k" d1 e2 s/ b8 `: \/ X {

char_array(33) = 'X'

7 |- v. V# C# A- h$ Y

char_array(34) = 'Y'

char_array(35) = 'Z'

randomize

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

output = output + num

loop

. J! Z+ G) T! Z$ p, h# q% z

gen_key = output

End Function

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

4 ]( N3 l6 u1 r( M: Q

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

3 a, A6 {; z1 i9 o9 b3 j

char_array(36) = 'a'

! a7 R+ r* ^. x1 n) ?

char_array(37) = 'b'

: a2 b( }3 H0 k

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

! k9 L3 p8 ^! _

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

兄弟

强悍啊