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

韩冰

dim char_array(35)

, {, ^0 S) F1 A% L2 o& N* M

char_array(0) = '0'

char_array(1) = '1'

char_array(2) = '2'

char_array(3) = '3'

. d# U4 O- E8 B( d9 W2 L$ C# Q& ~

char_array(4) = '4'

1 E) G, S- @+ z$ j/ p3 ~# T- D

char_array(5) = '5'

- x1 h6 ]% v# @$ y! C' W

char_array(6) = '6'

5 _( D: ^3 a1 U+ a

char_array(7) = '7'

char_array(8) = '8'

4 a5 k: _5 R% H0 I# A+ \7 y4 X5 n

char_array(9) = '9'

6 U) F. t# W$ [: O( ?6 G

char_array(10) = 'A'

6 m* d2 Q3 w4 g3 B! y* h/ v# t. y* V

char_array(11) = 'B'

char_array(12) = 'C'

. A5 U; c! ^3 {4 d

char_array(13) = 'D'

char_array(14) = 'E'

6 Q& H1 A' J( w. y# r* u

char_array(15) = 'F'

- n! [! O. K1 l. o$ t5 B8 q+ w

char_array(16) = 'G'

2 U0 Y: h; ~2 U* s& I

char_array(17) = 'H'

; l2 p1 u+ v* R' U+ }8 F

char_array(18) = 'I'

) X3 {- s& d; P R

char_array(19) = 'J'

7 A5 @& ~. a; g: G

char_array(20) = 'K'

" R5 W4 D- t W+ P

char_array(21) = 'L'

/ J* Q0 K& \0 K3 c; _& f$ M

char_array(22) = 'M'

char_array(23) = 'N'

~0 b" f8 U% k7 N N, Y$ @ k

char_array(24) = 'O'

- n+ g& h4 b: g5 o

char_array(25) = 'P'

char_array(26) = 'Q'

) V2 ^; s4 q2 x7 |8 S* H8 a5 D

char_array(27) = 'R'

, _# t% x! {/ Z7 J" l

char_array(28) = 'S'

char_array(29) = 'T'

( @9 Y0 @; O, ~( g* Y

char_array(30) = 'U'

char_array(31) = 'V'

char_array(32) = 'W'

char_array(33) = 'X'

char_array(34) = 'Y'

char_array(35) = 'Z'

@1 I) U( @6 u) v) Z8 R

randomize

( a( r/ [. m3 A$ _

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

output = output + num

loop

gen_key = output

End Function

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

8 q( P; Q1 n6 _( d: I

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

char_array(36) = 'a'

char_array(37) = 'b'

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

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

兄弟

强悍啊