如何編制一個(gè)產(chǎn)生隨機(jī)密碼的函數(shù)？
更新時(shí)間：2006年11月16日 00:00:00 作者：
<%
response.write makePassword(16)
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
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
%>
response.write makePassword(16)
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
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
%>
[1]
相關(guān)文章
如何向前端推送用戶請(qǐng)求的信息？...2006-11-11
為什么用磁盤序列號(hào)加密過(guò)的代碼不能被復(fù)制安裝？
為什么用磁盤序列號(hào)加密過(guò)的代碼不能被復(fù)制安裝？...2006-11-11
如何將產(chǎn)生的密碼記錄并發(fā)送給用戶并通過(guò)點(diǎn)擊鏈接激活？
如何將產(chǎn)生的密碼記錄并發(fā)送給用戶并通過(guò)點(diǎn)擊鏈接激活？...2006-11-11
如何把中文轉(zhuǎn)換為UNICODE？...2006-11-11
如何防止未經(jīng)注冊(cè)的用戶繞過(guò)注冊(cè)界面直接進(jìn)入應(yīng)用系統(tǒng)？
如何防止未經(jīng)注冊(cè)的用戶繞過(guò)注冊(cè)界面直接進(jìn)入應(yīng)用系統(tǒng)？...2006-11-11
如何終止瀏覽器的Cahce頁(yè)面？...2006-11-11
如何檢測(cè)用戶第一次訪問(wèn)我的網(wǎng)站并顯示友好信息？
如何檢測(cè)用戶第一次訪問(wèn)我的網(wǎng)站并顯示友好信息？...2006-11-11
如何讓用戶再次訪問(wèn)我的網(wǎng)站時(shí)不需再提交相關(guān)信息？
如何讓用戶再次訪問(wèn)我的網(wǎng)站時(shí)不需再提交相關(guān)信息？...2006-11-11
如何用Cookie進(jìn)行登錄驗(yàn)證？...2006-11-11
淺析Java、C/C++、JavaScript、PHP、Python分別用來(lái)開發(fā)什么?
用任何編程語(yǔ)言來(lái)開發(fā)程序，都是為了讓計(jì)算機(jī)干活，比如編寫一篇文章，下載一首MP3等，而計(jì)算機(jī)干活的CPU只認(rèn)識(shí)機(jī)器的指令，所以，盡管不同的編程語(yǔ)言差異極大，最后都得“翻譯”成CPU可以執(zhí)行的機(jī)器指令2018-08-08