ASP生成随机密码

13082011-11-20

'函数ID:0041[生成随机密码]
  '函数名: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

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1