דוגמה למחולל סיסמאות ב- ASP

אם אתה מיישם יישום שבו יש צורך ליצור סיסמה, פיסת הקוד הזו ב- ASP תהיה שימושית מאוד.

העתק את הקוד הבא ושמור אותו עם השם GeneratorPassword.asp

'דוגמה למחולל סיסמאות ב- ASP

פונקציה gen_con (max_num)

מערך עמום (36)
'מערך דמויות 

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) = "אני"
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"

אקראי
'צור את השרשרת עד שהאורך מגיע

לעשות בזמן len (פלט) מספר = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
פלט = פלט + מספר
לוּלָאָה

'הפונקציה מחזירה תוצאה = פלט

gen_con = פלט
פונקציית סיום

'פונקציית פלט שלוקחת את הערך המרבי

אם בקשה. טופס ("NUMGEN") <> "" ואז
intGEN = CInt (בקשה. טופס ("NUMGEN"))
a = 0
לעשות בזמן ש <500
response.write gen_con (intGEN) & "
"
a = a + 1
לוּלָאָה
לסיים אם


%>

 o = אות "o"
 O = אות גדולה "O"
 0 = אפס
 l = אות "l"
 1 = מספר 1