'**************************************************

'[生成随机密码]

'函数名：MakeRndPass

'作 用：生成随机密码

'参 数：passlen ---- 要生成的密码长度

'参 数：passtype ---- 要生成的密码类型

'返回值：验证生成的随机密码

'类型解释：

'passfull （所在可用字符 如“90!@#$%”）

'passnumber （纯数字）

'passspecial （非常用字符）

'passCharNumber （所有字母及数字）

'passUpperCharNumber （大写字母数字）

'passLowerCharNumber （小写字母数字）

'passChar （所有大小写字母）

'passUpperChar （所有大写字母）

'passLowerChar （所有小写字母）

'示 例：MakeRndPass(4,"passUpperCharNumber")

'**************************************************

Public Function MakeRndPass(ByVal passlen,ByVal passtype)

dim passFull,passNumber,passSpecial,passCharNumber,passChar,pass,passUpperCharNumber,passLowerCharNumber,passUpperChar,passLowerChar,ii,jj

passFull = "1234567890!@#$%^&*()[];',./{}:?`~-=\_+|abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

passNumber = "1234567890"

passSpecial = "!@#$%^&*()[];',./{}:?`~-=\_+|"

passCharNumber = "abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"

passUpperCharNumber = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"

passLowerCharNumber = "abcdefghijklmnopqrstuvwxyz1234567890"

passChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

passUpperChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

passLowerChar = "abcdefghijklmnopqrstuvwxyz"

select case lcase(trim(passType))

case "passfull"

pass = passFull

case "passnumber"

pass = passNumber

case "passspecial"

pass = passSpecial

case "passcharnumber"

pass = passCharNumber

case "passchar"

pass = passChar

case "passupperchar"

pass = passUpperChar

case "passlowerchar"

pass = passLowerChar

case "passuppercharnumber"

pass = passUpperCharNumber

case "passlowercharnumber"

pass = passLowerCharNumber

case else

pass = passlowercharnumber

end select

makeRndPass=""

for ii=1 to cint(passlen)

randomize

jj = int(rnd()*len(pass)+1)

makeRndPass = cstr(makeRndPass) & mid(pass,jj,1)

next

End Function