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

韩冰

dim char_array(35)

char_array(0) = '0'

char_array(1) = '1'

* Q% L" k& u4 L: q+ V |. T; z. o

char_array(2) = '2'

char_array(3) = '3'

4 |4 h9 n, A+ K' `6 M& }% A, d

char_array(4) = '4'

' k) W w9 X h$ F: Y" o/ r

char_array(5) = '5'

0 y: X- U5 X' q. G( Z' p

char_array(6) = '6'

char_array(7) = '7'

char_array(8) = '8'

+ E5 o% U' \/ g% N r

char_array(9) = '9'

char_array(10) = 'A'

8 ?! U8 z* L+ S8 V8 @

char_array(11) = 'B'

3 ?6 _+ y6 Y& C; K

char_array(12) = 'C'

' p: K; d& _+ T

char_array(13) = 'D'

: J( u4 I: E" s; j( l5 A! I

char_array(14) = 'E'

2 e. V" V: N4 i8 c* K) x/ T. i

char_array(15) = 'F'

+ D- [6 R* V. f& C5 i, L) E% y

char_array(16) = 'G'

- h2 |! [% }! C. Q! G: @+ o

char_array(17) = 'H'

char_array(18) = 'I'

# b0 n: m H. N Z Z- z9 Z6 E

char_array(19) = 'J'

, }/ u( S, d _$ `- z. {1 D7 z- q

char_array(20) = 'K'

0 N3 W9 V, |) Q+ q+ C& \4 [

char_array(21) = 'L'

char_array(22) = 'M'

char_array(23) = 'N'

char_array(24) = 'O'

char_array(25) = 'P'

char_array(26) = 'Q'

char_array(27) = 'R'

char_array(28) = 'S'

char_array(29) = 'T'

; N# O, z- X* A/ A( T

char_array(30) = 'U'

- z3 T4 P, r- D! H: r W% y

char_array(31) = 'V'

char_array(32) = 'W'

char_array(33) = 'X'

; m$ q8 n: L6 |: M8 R( f/ K

char_array(34) = 'Y'

char_array(35) = 'Z'

randomize

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

output = output + num

8 H+ t7 z8 c1 g

loop

4 G4 [- G1 K: [- {+ J/ N8 \

gen_key = output

* g; j! L! {: d, `& A

End Function

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

/ F; }+ @7 K6 W4 B( h+ @

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

/ \" y. M$ `0 s' n+ r

char_array(36) = 'a'

char_array(37) = 'b'

+ R- [- `1 p0 h8 f

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

9 D- C8 r' U9 v* `; k7 U& D9 _

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

兄弟

强悍啊