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

韩冰

dim char_array(35)

char_array(0) = '0'

3 {6 A% d3 p% h2 G* j

char_array(1) = '1'

2 T2 _. ]5 o4 {6 ~' T( y

char_array(2) = '2'

char_array(3) = '3'

$ I7 J. q" b" Z4 `5 r" B5 n7 d/ F

char_array(4) = '4'

char_array(5) = '5'

char_array(6) = '6'

6 |5 H* d6 W: g. e* ?' t+ J

char_array(7) = '7'

char_array(8) = '8'

" W2 T: T2 Q0 m0 R b. S

char_array(9) = '9'

char_array(10) = 'A'

char_array(11) = 'B'

. `4 W1 g7 T+ d. @! g; W

char_array(12) = 'C'

4 f8 M7 N' C! w* f+ ]! K o+ \& h" b

char_array(13) = 'D'

char_array(14) = 'E'

char_array(15) = 'F'

/ o+ h: E- f0 V, C4 \

char_array(16) = 'G'

. I! l1 }7 O5 s" V# Y

char_array(17) = 'H'

* I8 \$ P5 \1 A" F% F3 X# p

char_array(18) = 'I'

" K% C( Y" Y; N) y( n3 _, E/ K: w- K+ q

char_array(19) = 'J'

char_array(20) = 'K'

char_array(21) = 'L'

7 m9 e' ^- O& t/ ]) s

char_array(22) = 'M'

char_array(23) = 'N'

char_array(24) = 'O'

. | z% F- Y1 M5 s9 }6 H

char_array(25) = 'P'

8 h+ S) |5 C4 L% D2 ?

char_array(26) = 'Q'

' H0 s/ O5 J0 e F. ~

char_array(27) = 'R'

char_array(28) = 'S'

char_array(29) = 'T'

char_array(30) = 'U'

char_array(31) = 'V'

B; N2 y: }) N( @- U( J

char_array(32) = 'W'

- ^- F) H' g3 R8 A3 k. V

char_array(33) = 'X'

char_array(34) = 'Y'

3 h- B! p3 j7 e2 o8 Y

char_array(35) = 'Z'

randomize

( k9 l# S" }* O8 ]5 }8 \6 a/ V

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

* J% p7 x1 q6 q8 M7 r6 |

output = output + num

2 N! f9 O# O) H9 F8 A' l

loop

) {. `5 s) @+ z# o5 e5 X

gen_key = output

End Function

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

$ ~2 S& E" a; r

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

char_array(36) = 'a'

char_array(37) = 'b'

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

: v3 F! r2 G: I/ h$ B8 s

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

兄弟

强悍啊