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

韩冰

dim char_array(35)

char_array(0) = '0'

char_array(1) = '1'

( E+ \% x. u* b7 n

char_array(2) = '2'

5 Q9 V, e$ e. F4 {# R

char_array(3) = '3'

char_array(4) = '4'

2 y& i/ z* T- F* O+ z5 m& W

char_array(5) = '5'

+ A! H$ d( x8 Z' A G

char_array(6) = '6'

char_array(7) = '7'

7 r8 x2 q( F/ @4 ?$ E8 R1 G

char_array(8) = '8'

4 T$ O9 J |+ O2 b5 U# N3 V

char_array(9) = '9'

6 Y4 ` m2 I; K$ f2 K

char_array(10) = 'A'

char_array(11) = 'B'

9 D# a+ f% k V* Y! e/ |* u

char_array(12) = 'C'

char_array(13) = 'D'

char_array(14) = 'E'

# `, b9 L/ @+ V0 D5 ]( [$ u$ C' ?# m

char_array(15) = 'F'

char_array(16) = 'G'

char_array(17) = 'H'

char_array(18) = 'I'

char_array(19) = 'J'

char_array(20) = 'K'

( x- L9 h, j I9 f6 q8 O

char_array(21) = 'L'

: b# ]: F7 C, n

char_array(22) = 'M'

4 {2 J& d/ Y3 ^& Z( i" ~6 r$ y& P

char_array(23) = 'N'

char_array(24) = 'O'

char_array(25) = 'P'

char_array(26) = 'Q'

char_array(27) = 'R'

. l$ L* f1 @' K0 {3 h9 R+ G, O

char_array(28) = 'S'

char_array(29) = 'T'

/ B! B- E" w$ I; x3 |2 V8 A* ^

char_array(30) = 'U'

char_array(31) = 'V'

5 g. m- w: q0 B j( j L

char_array(32) = 'W'

char_array(33) = 'X'

char_array(34) = 'Y'

char_array(35) = 'Z'

X& c2 \6 p# \7 q I1 w

randomize

; P1 a$ L W5 F# k

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

; z" |# _0 v' }2 m& E

output = output + num

: W' d+ z! V% w# l' w# R2 w7 z. \

loop

3 k4 W! C. Y# n0 g) L" w9 T: f/ _

gen_key = output

( z4 A/ w) U }8 a4 H8 n

End Function

3 Q9 o5 ?% q" Y% y( q0 R: {. O! q

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

) o6 B: Y, P! k. n( O4 J

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

char_array(36) = 'a'

0 a' Z$ |% e1 g1 N8 }/ I" ?+ h7 D

char_array(37) = 'b'

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

, x m+ P( H" x3 k

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

兄弟

强悍啊