?密碼是一種身份驗證的手段，使用密碼的目的不是密碼本身要容易記憶，重要的是讓不懷好意的人難以猜到。根據密碼本身的保密程度，相隔一定時間后要進行修改。應盡量避免記錄在并不安全的紙質介質上，也不要使用諸如姓名、電話號碼、生日等別人容易猜到的數字。登錄多個平臺應使用不同的密碼以保證個人信息的安全。不要在公用電腦中保存密碼……
題外話少說。本文介紹的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
%>
<%
’產生一個六位的密碼
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)
%>

?

?

?

?

<%
function makePassword(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
end function
%>

<%=makePassword(SJM)%>??? 'SJM 生成密碼位數

總結

以上是生活随笔為你收集整理的ASP生成随机密码的源代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。