ASP generates two functions for random passwords:
function one
<%
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
%>
Number of digits of Makepassword (str) ' str password
function two
<% 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 (+) = "A"
Char_array (one) = "B"
Char_array (a) = "C"
Char_array (+) = "D"
Char_array (d) = "E"
Char_array (m) = "F"
Char_array (+) = "G"
Char_array (+) = "H"
Char_array (km) = "I"
Char_array (a) = "J"
Char_array (m) = "K"
Char_array = "L"
Char_array (+) = "M"
Char_array (%) = "N"
Char_array = "O"
Char_array = "P"
Char_array (num) = "Q"
Char_array (+) = "R"
Char_array = "S"
Char_array = "T"
Char_array (+) = "U"
Char_array (%) = "V"
Char_array (m) = "W"
Char_array (+) = "X"
Char_array (+) = "Y"
Char_array (km) = "Z"
Randomize
Do While Len (output) < digits
num = Char_array (Int (* 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 extended. If you also add the case sensitive case-sensitive feature, modify the array size to Char_array (50), and then list all possible lowercase characters later. For example:
Char_array (+) = "a"
Char_array (Panax) = "B"
............... Analogy