ASP隨機產生使用者密碼的執行個體

來源:互聯網
上載者:User
隨機|隨機     說明:通過隨機產生密碼,然後將密碼EMail給註冊使用者,你可以確認使用者的EMail填寫是否正確。自動產生的密碼往往安全性更高,同時,你可以過濾那些無效的使用者。 
  
    把下面的代碼儲存為random.asp檔案:
  
  <%
  Sub StrRandomize(strSeed)
     Dim i, nSeed
     nSeed = CLng(0)
     For i = 1 To Len(strSeed)
       nSeed = nSeed Xor ((256 * ((i - 1) Mod 4) * AscB(Mid(strSeed, i, 1))))
     Next
  
     Randomize nSeed
  End Sub 
   
  Function GeneratePassword(nLength)
     Dim i, bMadeConsonant, c, nRnd
  
     Const strDoubleConsonants = "bdfglmnpst"
     Const strConsonants = "bcdfghklmnpqrstv"
     Const strVocal = "aeiou"
  
     GeneratePassword = ""
     bMadeConsonant = False
  
     For i = 0 To nLength
       nRnd = Rnd
       If GeneratePassword <> "" AND (bMadeConsonant <> True) AND (nRnd < 0.15) Then
         c = Mid(strDoubleConsonants, Int(Len(strDoubleConsonants) * Rnd + 1), 1)
         c = c & c
     i = i + 1
         bMadeConsonant = True
       Else
         If (bMadeConsonant <> True) And (nRnd < 0.95) Then
           c = Mid(strConsonants, Int(Len(strConsonants) * Rnd + 1), 1)
           bMadeConsonant = True
         Else
           c = Mid(strVocal,Int(Len(strVocal) * Rnd + 1), 1)
           bMadeConsonant = False
         End If
       End If
       GeneratePassword = GeneratePassword & c
     Next
  
     If Len(GeneratePassword) > nLength Then
       GeneratePassword = Left(GeneratePassword, nLength)
     End If
  End Function
  %> 
   
   然後在你的目標程式中這樣調用上面的代碼,就可以實現密碼的自動產生:(僅僅是一個例子,你可以把他們粘貼到一個Test.asp的檔案中,然後運行Test.asp)
  
  <!--include file="random.asp" -->
  
  <%
  '產生一個六位的密碼
  
  StrRandomize CStr(Now) & CStr(Rnd)
  response.write GeneratePassword(6)
  
  %>
  <br><br>
  
  <%
  
  '產生一個8位的密碼
  StrRandomize CStr(Now) & CStr(Rnd)
  response.write GeneratePassword(8)
  
  %>
  <br><br> 
   <%
  '產生一個10位的密碼
  StrRandomize CStr(Now) & CStr(Rnd)
  response.write GeneratePassword(10)
  %>
  <br><br>
  
  <%
  
  '產生1000個密碼
  
  dim t, t2
    for t = 1 to 500
    For t2 = 1 to 661
     StrRandomize CStr(Now) & CStr(Rnd)
    next
    StrRandomize CStr(Now) & CStr(Rnd)
    response.write GeneratePassword(6)
    response.write "<br>"
  next
  
  %>



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。