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

韩冰

dim char_array(35)

char_array(0) = '0'

7 Y3 I1 ~$ G$ Q' o$ T

char_array(1) = '1'

" e, T' F0 l. ~, b! ^

char_array(2) = '2'

/ ], M" p" ?; `4 Z

char_array(3) = '3'

char_array(4) = '4'

char_array(5) = '5'

( `0 e2 t* a+ W: ]% M' ]

char_array(6) = '6'

6 \( x( Y! `5 S8 y/ Z& G+ x

char_array(7) = '7'

char_array(8) = '8'

' \" ^ D( C/ L

char_array(9) = '9'

char_array(10) = 'A'

char_array(11) = 'B'

char_array(12) = 'C'

char_array(13) = 'D'

char_array(14) = 'E'

, e: ^$ o. u# U7 N) t( f; H

char_array(15) = 'F'

char_array(16) = 'G'

8 v s) c4 y0 C9 e6 i

char_array(17) = 'H'

0 b3 a) z$ r6 Q+ {8 Y8 k

char_array(18) = 'I'

char_array(19) = 'J'

char_array(20) = 'K'

% |& L. ~% R8 O- {) _

char_array(21) = 'L'

7 T) h' T" l. J, @7 E( v. j% h! H

char_array(22) = 'M'

& K, W/ F+ ]8 {7 `4 t3 p

char_array(23) = 'N'

char_array(24) = 'O'

& J2 _$ X7 w) _! p& d6 n6 [

char_array(25) = 'P'

char_array(26) = 'Q'

0 ]* m3 s# U4 B

char_array(27) = 'R'

H5 M8 v4 a9 H6 K, s

char_array(28) = 'S'

' S) J! _; F7 S% v' J' N% O2 f: Q8 M

char_array(29) = 'T'

: |, Z$ q4 ~5 @, |- m+ Q

char_array(30) = 'U'

y3 v( S3 G1 ]( W+ Z

char_array(31) = 'V'

/ ?# f7 @3 N2 U

char_array(32) = 'W'

9 P f! V6 {* i# h: r) G' t

char_array(33) = 'X'

. d H) t3 K& S# v5 b$ X

char_array(34) = 'Y'

9 R* x3 Z4 L( ]

char_array(35) = 'Z'

randomize

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

6 L& K" b) m) {/ r" w2 x: d$ S

output = output + num

loop

4 m' o$ @( a' C7 ^

gen_key = output

End Function

$ h Z4 | \. q2 P

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

' Z2 m9 B( q4 K

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

t! r/ d3 d' ~$ P: [/ C

char_array(36) = 'a'

char_array(37) = 'b'

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

+ X8 e+ p; d9 p9 \ T \

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

兄弟

强悍啊