Slaptažodžių generavimo pavyzdys ASP

Jei kuriate programą, kur reikia sugeneruoti slaptažodį, šis ASP kodo fragmentas bus labai naudingas.

Nukopijuokite šį kodą ir išsaugokite jį kartu su pavadinimu GeneratorPassword.asp

ASP slaptažodžių generavimo pavyzdys

Funkcija gen_con (max_num)

tamsus gen_array (36)
'Simbolių masyvas 

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) = "Aš"
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"

Atsitiktinai
Generuokite grandinę, kol pasieksite ilgį

daryti, o len (išvestis) num = gen_array (Vid. ((35 - 0 + 1) * Rnd + 0))
išvestis = išvestis + skaičius
kilpa

'Funkcija pateikia rezultatą = išvestį

gen_con = išvestis
Pabaigos funkcija

'Išvesties funkcija, gaunanti maksimalią vertę

Jei Prašyti. Forma ("NUMGEN") <> "" TADA
intGEN = CInt (užklausa. Forma („NUMGEN“))
a = 0
daryti, kai <500
response.write gen_con (intGEN) & "
"
a = a + 1
kilpa
pabaiga jei


%>

 o = raidė „o“
 O = didžioji raidė „O“
 0 = nulis
 l = raidė „l“
 1 = skaičius 1