Contoh Pembuat Kata Sandi Di ASP

Jika Anda membuat aplikasi yang memerlukan kata sandi, potongan kode di ASP ini akan sangat berguna.

Salin kode berikut dan simpan dengan nama GeneratorPassword.asp

'Contoh pembuat kata sandi di ASP

Fungsi gen_con (jumlah_maks)

redup gen_array (36)
'Rangkaian karakter 

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"

Acak
'Hasilkan rantai sampai panjangnya tercapai

lakukan while len (keluaran) num = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
keluaran = keluaran + angka
lingkaran

'Fungsi mengembalikan hasil = keluaran

gen_con = keluaran
Fungsi Akhir

'Fungsi keluaran yang mengambil nilai maksimum

Jika Permintaan. Formulir ("NUMGEN") <> "" THEN
intGEN = CInt (Permintaan. Formulir ("NUMGEN"))
a = 0
lakukan saat <500
response.write gen_con (intGEN) & "
"
a = a + 1
lingkaran
berakhir jika


%>

 o = huruf "o"
 O = huruf kapital "O"
 0 = nol
 l = huruf "l"
 1 = nomor 1