Paroļu ģeneratora piemērs ASP

Ja veidojat lietojumprogrammu, kur nepieciešams ģenerēt paroli, šis koda fragments ASP būs ļoti noderīgs.

Kopējiet šo kodu un saglabājiet to kopā ar nosaukumu GeneratorPassword.asp

'Paroļu ģeneratora piemērs ASP

Funkcija gen_con (max_num)

blāvs (36)
'Rakstzīmju masīvs 

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) = "es"
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"

Randomizējiet
'Ģenerējiet ķēdi, līdz tiek sasniegts garums

darīt, kamēr len (izeja) num = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
izeja = izeja + skaitlis
cilpa

'Funkcija atgriež rezultātu = izvade

gen_con = izlaide
Beigu funkcija

'Izejas funkcija, kas iegūst maksimālo vērtību

Ja Pieprasīt. Veidlapa ("NUMGEN") <> "" TAD
intGEN = CInt (Pieprasījums. Veidlapa ("NUMGEN"))
a = 0
darīt, kamēr a <500
response.write gen_con (intGEN) & "
"
a = a + 1
cilpa
beigties, ja


%>

 o = burts "o"
 O = lielais burts "O"
 0 = nulle
 l = burts "l"
 1 = skaitlis 1