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

韩冰

dim char_array(35)

char_array(0) = '0'

char_array(1) = '1'

char_array(2) = '2'

char_array(3) = '3'

! E: L2 n! ^4 T; e' s

char_array(4) = '4'

9 h4 \. g' g$ X9 X f

char_array(5) = '5'

char_array(6) = '6'

+ T! S" l4 ^( Z- Z, p1 h

char_array(7) = '7'

char_array(8) = '8'

char_array(9) = '9'

char_array(10) = 'A'

char_array(11) = 'B'

char_array(12) = 'C'

9 A0 ^& W/ _$ U. t9 d

char_array(13) = 'D'

% ]3 J: R7 \" c j1 l t

char_array(14) = 'E'

char_array(15) = 'F'

8 Y$ t/ k; M! v* }

char_array(16) = 'G'

; ~$ _; B v" _

char_array(17) = 'H'

char_array(18) = 'I'

& h* X& f) H, H4 l/ d2 S* a t

char_array(19) = 'J'

/ o R5 T7 ]# N9 h( G

char_array(20) = 'K'

$ U8 t1 _0 O1 z5 T6 a2 _" X

char_array(21) = 'L'

. C6 @+ S( P( Q0 g! F

char_array(22) = 'M'

, P0 G. q: X1 [! \

char_array(23) = 'N'

* `: @% [9 \& U

char_array(24) = 'O'

+ J9 e$ {# {1 W: F3 x3 d; T

char_array(25) = 'P'

char_array(26) = 'Q'

! U1 V5 z8 w3 ~; l7 ]$ `& M6 `

char_array(27) = 'R'

1 }+ z% b( ~: Z0 }: T0 [/ P. C

char_array(28) = 'S'

char_array(29) = 'T'

char_array(30) = 'U'

char_array(31) = 'V'

# M- D: @2 h1 h

char_array(32) = 'W'

char_array(33) = 'X'

char_array(34) = 'Y'

2 {/ U' e) _) H5 R J8 P

char_array(35) = 'Z'

randomize

0 v2 M& i6 ^, }- u; }) W- |

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

, q# K6 n% Z6 ^

output = output + num

4 T( U5 G6 z0 G0 X

loop

% i( H# P9 D9 p% R% X5 L: `

gen_key = output

End Function

) ^" W% E) f; Z: F; p

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

. j) C' E v+ C9 X' [7 }

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

char_array(36) = 'a'

; \* L; \" F0 I( v! {

char_array(37) = 'b'

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

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

兄弟

强悍啊