Voorbeeld van wachtwoordgenerator in ASP

Als je een applicatie maakt waarbij het nodig is om een ​​wachtwoord te genereren, dan is dit stukje code in ASP erg handig.

Kopieer de volgende code en sla deze op met de naam GeneratorPassword.asp

'Voorbeeld van wachtwoordgenerator in ASP

Functie gen_con (max_num)

dim gen_array (36)
'Tekenreeks' 

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) = "een"
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) = "ik"
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"

Randomiseren
'Genereer de ketting totdat de lengte is bereikt'

doen terwijl len (uitvoer) aantal = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
uitgang = uitgang + aantal
lus

'De functie retourneert een resultaat = output

gen_con = uitvoer
Functie beëindigen

'Uitvoerfunctie die de maximale waarde aanneemt'

Indien verzoek. Formulier ("NUMGEN") <> "" DAN
intGEN = CInt (Verzoek. Formulier ("NUMGEN"))
een = 0
doen terwijl een <500
response.write gen_con (intGEN) & "
"
een = een + 1
lus
stop als


%>

 o = letter "o"
 O = hoofdletter "O"
 0 = nul
 l = letter "l"
 1 = nummer 1