Beispiel für einen Passwortgenerator in ASP

Wenn Sie eine Anwendung erstellen, bei der ein Kennwort generiert werden muss, ist dieser Code in ASP sehr nützlich.

Kopiere den folgenden Code und speichere ihn unter dem Namen GeneratorPassword.asp

'Beispiel für einen Passwortgenerator in ASP

Funktion gen_con (max_num)

dim gen_array (36)
'Zeichen-Array 

gen_array (0) = "0"
gen_array (1) = "1"
gen_array (2) = "2"
gen_array (3) = "3"
gen_array (4) = "4"
gen_array (5) = "5"
gen_array (6) = "6"
gen_array (7) = "7"
gen_array (8) = "8"
gen_array (9) = "9"
gen_array (10) = "a"
gen_array (11) = "b"
gen_array (12) = "c"
gen_array (13) = "d"
gen_array (14) = "e"
gen_array (15) = "f"
gen_array (16) = "g"
gen_array (17) = "h"
gen_array (18) = "i"
gen_array (19) = "j"
gen_array (20) = "k"
gen_array (21) = "l"
gen_array (22) = "m"
gen_array (23) = "n"
gen_array (24) = "o"
gen_array (25) = "p"
gen_array (26) = "q"
gen_array (27) = "r"
gen_array (28) = "s"
gen_array (29) = "t"
gen_array (30) = "u"
gen_array (31) = "v"
gen_array (32) = "w"
gen_array (33) = "x"
gen_array (34) = "y"
gen_array (35) = "z"

Randomisieren
'Erzeuge die Kette, bis die Länge erreicht ist

do while len (Ausgabe) num = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
Ausgang = Ausgang + Anzahl
Schleife

'Die Funktion liefert ein Ergebnis = Ausgabe

gen_con = Ausgabe
Endfunktion

'Ausgabefunktion, die den maximalen Wert annimmt

Wenn Anfrage. Form ("NUMGEN") <> "" THEN
intGEN = CInt (Anfrage. Formular ("NUMGEN"))
a = 0
tun, während ein <500
response.write gen_con (intGEN) & "
"
a = a + 1
Schleife
ende wenn


%>

 o = Buchstabe "o"
 O = Großbuchstabe „O“
 0 = null
 l = Buchstabe "l"
 1 = Zahl 1