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

韩冰

dim char_array(35)

, }, y, k1 G5 M; _$ G

char_array(0) = '0'

5 H( J- }9 q W- x# {

char_array(1) = '1'

char_array(2) = '2'

char_array(3) = '3'

4 e9 O& D! S9 N$ \

char_array(4) = '4'

. b' K3 A/ Z; M9 a h6 S, q2 i. ]

char_array(5) = '5'

char_array(6) = '6'

char_array(7) = '7'

char_array(8) = '8'

% x" ?3 \# x) j! v$ T( b

char_array(9) = '9'

char_array(10) = 'A'

9 N0 ~" ~' h( ^2 R9 \! y* j `( o

char_array(11) = 'B'

# h* m0 {: o$ G

char_array(12) = 'C'

char_array(13) = 'D'

/ J0 V8 K" d3 k) ]4 ?1 ]# k8 h! n2 N

char_array(14) = 'E'

& W% e- N% U! C- ~ |9 Y

char_array(15) = 'F'

% e0 i9 O C- c# {

char_array(16) = 'G'

q; L0 \4 S% @$ ]9 K

char_array(17) = 'H'

char_array(18) = 'I'

char_array(19) = 'J'

' z6 d9 c5 D F# v) o5 D

char_array(20) = 'K'

9 A6 o1 u4 y+ |) k! o+ f: }+ p5 A

char_array(21) = 'L'

char_array(22) = 'M'

7 F* s+ a* s/ g2 n2 X7 O

char_array(23) = 'N'

char_array(24) = 'O'

5 h9 y9 c: k" `8 o2 \; d g

char_array(25) = 'P'

char_array(26) = 'Q'

0 { S, B* Z, B2 x+ |

char_array(27) = 'R'

/ ]3 Q, P. }0 v' a+ V

char_array(28) = 'S'

char_array(29) = 'T'

+ N* w. K9 I, ^2 Y$ v

char_array(30) = 'U'

char_array(31) = 'V'

b; C: [) ^+ Q6 |" V

char_array(32) = 'W'

char_array(33) = 'X'

char_array(34) = 'Y'

) b( t2 t$ Z i2 Z' e

char_array(35) = 'Z'

6 b' ?2 p& I6 y- e- N

randomize

+ h- B. w! {/ V& I! X/ H

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

2 M8 {1 t1 t* ~

output = output + num

0 e/ A6 U A- C

loop

gen_key = output

3 W! ~( j; D/ c( N2 A5 A4 U! o

End Function

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

* J5 {& Z; [: m# R

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

char_array(36) = 'a'

char_array(37) = 'b'

6 V* t0 ]8 f x' m/ t: L

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

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

兄弟

强悍啊