Two functions for ASP to generate random passwords:
Function 1
<% 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(str) 'str Number of digits in the password
Function 2
<% Function gen_key(digits) dim char_array(35) char_array(0) = "0" char_array(1) = "1" char_array(2) = "2" char_array(3) = "3" char_array(4) = "4" char_array(5) = "5" char_array(6) = "6" char_array(7) = "7" char_array(8) = "8" char_array(9) = "9" char_array(10) = "A" char_array(11) = "B" char_array(12) = "C" char_array(13) = "D" char_array(14) = "E" char_array(15) = "F" char_array(16) = "G" char_array(17) = "H" char_array(18) = "I" char_array(19) = "J" char_array(20) = "K" char_array(21) = "L" char_array(22) = "M" char_array(23) = "N" char_array(24) = "O" char_array(25) = "P" char_array(26) = "Q" char_array(27) = "R" char_array(28) = "S" char_array(29) = "T" char_array(30) = "U" char_array(31) = "V" char_array(32) = "W" char_array(33) = "X" char_array(34) = "Y" char_array(35) = "Z" randomize do while len(output) < digits num = char_array(Int(35 * Rnd + 0)) output = output + num loop gen_key = output End Function %>
gen_key(str) 'str is the number of password digits
This function can also be expanded. . If you want to add the "case-sensitive" feature, change the array size to char_array(50), and then list all possible lowercase characters later. For example:
char_array(36) = "a"
char_array(37) = "b"
.....and so on
The above is the detailed content of Two functions for ASP to generate random passwords. For more information, please follow other related articles on the PHP Chinese website!