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

韩冰

dim char_array(35)

5 ^; G) R% r9 B# N

char_array(0) = '0'

/ |/ W$ i! m* P) _# l R

char_array(1) = '1'

6 f8 o% F) }# j) Q! ^

char_array(2) = '2'

char_array(3) = '3'

char_array(4) = '4'

char_array(5) = '5'

char_array(6) = '6'

7 H( j$ U7 U- {' P

char_array(7) = '7'

char_array(8) = '8'

char_array(9) = '9'

char_array(10) = 'A'

char_array(11) = 'B'

char_array(12) = 'C'

char_array(13) = 'D'

char_array(14) = 'E'

. `1 g) F% p- l0 I) }! J5 Q& s

char_array(15) = 'F'

$ z \: \+ D- t0 ]) j

char_array(16) = 'G'

1 m% d) c8 V/ y" ^9 ]9 O) W; }5 K S, c

char_array(17) = 'H'

char_array(18) = 'I'

- M* w# T1 }8 s8 j, c* O! v

char_array(19) = 'J'

char_array(20) = 'K'

char_array(21) = 'L'

char_array(22) = 'M'

+ S( C0 K/ [! s# G7 Z% @# r# y

char_array(23) = 'N'

' X1 e4 [6 q) H# ?2 X l* U

char_array(24) = 'O'

char_array(25) = 'P'

: ^% A: p# `) v. {

char_array(26) = 'Q'

char_array(27) = 'R'

char_array(28) = 'S'

char_array(29) = 'T'

char_array(30) = 'U'

char_array(31) = 'V'

char_array(32) = 'W'

4 ]2 w4 z& l, F D+ b5 _

char_array(33) = 'X'

0 V' o j2 g& e+ I! m

char_array(34) = 'Y'

char_array(35) = 'Z'

& o" `/ C) p7 M- ]9 c, z: d- ?

randomize

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

7 U) f+ \! i' A* [' F

output = output + num

9 l4 y2 v/ B0 ` c

loop

3 q! P3 }, q- ?( M6 v2 W Y

gen_key = output

! S6 U* S1 Q8 c& w$ N, }: O

End Function

4 x/ T8 }4 R$ W Y! b( o) \

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

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

char_array(36) = 'a'

char_array(37) = 'b'

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

8 F* D# c$ h5 y$ |

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

兄弟

强悍啊