发帖 回复
返回列表
  • 3175阅读
  • 0回复

ASP随机产生用户密码 [复制链接]

 上一主题 下一主题
离线cai
管理员
 
只看楼主 倒序阅读 0楼 发表于: 2005-09-26
复制代码
  2. <%
  3. Sub StrRandomize(strSeed)
  4.     Dim i,nSeed
  5.     nSeed = CLng(0)
  6.     For i = 1 To Len(strSeed)
  7.         nSeed = nSeed Xor ((256 * ((i - 1) Mod 4) * AscB(Mid(strSeed, i, 1))))
  8.     Next
  9.     Randomize nSeed
  10. End Sub
  13. Function GeneratePassword(nLength)
  14.     Dim i, bMadeConsonant, c, nRnd
  16.     Const strDoubleConsonants = "BDFGLMNPST"
  17.     Const strConsonants = "BCDFGHKLMNPQRSTV"
  18.     Const strVocal = "1234567890"
  20.     GeneratePassword = ""
  21.     bMadeConsonant = False
  23.     For i = 0 To nLength
  24.     nRnd = Rnd
  25.     If GeneratePassword<>"" AND (bMadeConsonant<>True) AND (nRnd<0.15) Then
  26.         Randomize
  27.         c = Mid(strDoubleConsonants, Int(Len(strDoubleConsonants) * Rnd + 1), 1)
  28.         c = c & c
  29.         i = i + 1
  30.         bMadeConsonant = True
  31.         Else
  32.               If (bMadeConsonant<True) And (nRnd<0.95) Then
  33.                   Randomize
  34.                   c = Mid(strConsonants, Int(Len(strConsonants) * Rnd + 1), 1)
  35.                   bMadeConsonant = True
  36.               Else
  37.                   Randomize
  38.                   c = Mid(strVocal,Int(Len(strVocal) * Rnd + 1), 1)
  39.                   bMadeConsonant = False
  40.               End If
  41.         End If
  42.         GeneratePassword = GeneratePassword & c
  43.     Next
  45.     If Len(GeneratePassword)>nLength Then
  46.         GeneratePassword = Left(GeneratePassword, nLength)
  47.     End If
  48. End Function
  51. '得到密码
  52. pwd=GeneratePassword(2)
  54. %>
grant all privileges on *.* to 'a'@'localhost' identified by 'a' with grant option;flush privileges;
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
发帖 回复
返回列表
快速回复
限100 字节
 
上一个 下一个