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

韩冰

dim char_array(35)

: }9 ]7 \( ^! @7 i

char_array(0) = '0'

char_array(1) = '1'

* ~' h- M7 @/ w. F( k

char_array(2) = '2'

char_array(3) = '3'

1 T m; F3 e( N: k7 N9 U! d

char_array(4) = '4'

; x# j, Q* q6 ]; p4 }5 z A

char_array(5) = '5'

# L& v. i# I# r

char_array(6) = '6'

char_array(7) = '7'

char_array(8) = '8'

6 m% @' R' f8 b/ e6 J% U% m

char_array(9) = '9'

# Z r6 _/ T$ |! s6 y

char_array(10) = 'A'

char_array(11) = 'B'

0 P& _0 G6 f4 [3 k2 e: L$ y& X# c$ B

char_array(12) = 'C'

char_array(13) = 'D'

* D/ f2 |8 s2 N

char_array(14) = 'E'

$ s$ ^" U/ ~+ R7 m4 f, P9 d+ V

char_array(15) = 'F'

! |3 Y" j7 c7 m0 D

char_array(16) = 'G'

( \) O- l& `, H. _3 w

char_array(17) = 'H'

- `) \: F( J7 P4 h3 L o

char_array(18) = 'I'

char_array(19) = 'J'

char_array(20) = 'K'

9 k5 t0 }9 [" k& P& f

char_array(21) = 'L'

char_array(22) = 'M'

char_array(23) = 'N'

char_array(24) = 'O'

char_array(25) = 'P'

2 O+ @* j7 Y2 \2 n- a7 f

char_array(26) = 'Q'

$ R- a# _8 g- ~- D$ [

char_array(27) = 'R'

char_array(28) = 'S'

char_array(29) = 'T'

& |1 ?, H* L, G) j. A- `9 r+ v

char_array(30) = 'U'

char_array(31) = 'V'

char_array(32) = 'W'

! P9 \2 W( x/ d" w* F" o. _

char_array(33) = 'X'

' x/ w& `; v7 ]

char_array(34) = 'Y'

char_array(35) = 'Z'

randomize

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

- F& s- A0 w" F. I

output = output + num

loop

gen_key = output

4 y4 n% a9 ~ r) X1 U; ] D

End Function

% D$ R- r# c7 Q; V0 T

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

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

: c- j; L. Z2 h* a! J

char_array(36) = 'a'

8 W( X/ i1 y6 ~

char_array(37) = 'b'

+ x* ~# \; K7 W0 _

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

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

兄弟

强悍啊