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

韩冰

dim char_array(35)

! q8 N6 l, }. i- B

char_array(0) = '0'

, A) D0 d4 l' V9 o4 q5 I f3 v1 ^

char_array(1) = '1'

char_array(2) = '2'

7 g) ~. L1 Q, ?8 \- ^- |1 z, }! K! ^% ^

char_array(3) = '3'

char_array(4) = '4'

char_array(5) = '5'

s3 b9 v+ L8 A- s

char_array(6) = '6'

z2 C* Z' {6 T! h

char_array(7) = '7'

: d9 p2 m; ^% c& u. t

char_array(8) = '8'

" J" B1 C1 L. O

char_array(9) = '9'

char_array(10) = 'A'

char_array(11) = 'B'

" ~7 D" a, U$ i- p5 c# R2 t4 {

char_array(12) = 'C'

- @2 d7 {/ G. N0 A

char_array(13) = 'D'

char_array(14) = 'E'

char_array(15) = 'F'

char_array(16) = 'G'

char_array(17) = 'H'

char_array(18) = 'I'

( j2 X/ l7 r) N9 ?* t4 I; N

char_array(19) = 'J'

char_array(20) = 'K'

char_array(21) = 'L'

2 G6 W- O8 v5 [" Q' W" X

char_array(22) = 'M'

char_array(23) = 'N'

1 ~! l$ b3 R8 J( w, {. I8 L

char_array(24) = 'O'

7 L1 v7 V: I) }+ x7 k

char_array(25) = 'P'

4 W3 I1 M/ @7 ]

char_array(26) = 'Q'

char_array(27) = 'R'

char_array(28) = 'S'

char_array(29) = 'T'

char_array(30) = 'U'

/ \/ a# y" y: K% E- f& ~

char_array(31) = 'V'

6 `; u6 S: j' U. P3 P0 _. H3 C: W' N

char_array(32) = 'W'

char_array(33) = 'X'

char_array(34) = 'Y'

3 y0 G2 }# E; F: S% A) V) l. ~

char_array(35) = 'Z'

randomize

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

) h! I F% v% |5 g5 B+ D7 D L

output = output + num

# `6 ^" z, i7 M+ L" d! G: m! p

loop

. `0 b$ b1 W: S

gen_key = output

8 p4 \5 M# I! b$ n( h8 ~" S6 }! p

End Function

" t+ h( H4 e. S# I6 {

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

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

char_array(36) = 'a'

/ Z. l1 _' N$ b* ?" t1 y( j+ {

char_array(37) = 'b'

+ C) I# y8 {0 W( b

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

4 w. e4 N* R9 P8 c9 s0 w2 _9 z% |

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

兄弟

强悍啊