Пример генератора паролей в ASP

Если вы создаете приложение, в котором необходимо сгенерировать пароль, этот фрагмент кода в ASP будет очень полезен.

Скопируйте следующий код и сохраните его с именем GeneratorPassword.asp

'Пример генератора паролей в ASP

Функция gen_con (max_num)

тусклый gen_array (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) = "а"
gen_array (11) = "б"
gen_array (12) = "c"
gen_array (13) = "г"
gen_array (14) = "е"
gen_array (15) = "е"
gen_array (16) = "г"
gen_array (17) = "ч"
gen_array (18) = "я"
gen_array (19) = "j"
gen_array (20) = "k"
gen_array (21) = "л"
gen_array (22) = "м"
gen_array (23) = "п"
gen_array (24) = "о"
gen_array (25) = "p"
gen_array (26) = "q"
gen_array (27) = "г"
gen_array (28) = "с"
gen_array (29) = "т"
gen_array (30) = "и"
gen_array (31) = "v"
gen_array (32) = "ш"
gen_array (33) = "х"
gen_array (34) = "у"
gen_array (35) = "z"

Рандомизировать
'Сгенерируйте цепочку, пока не будет достигнута длина

делать, пока len (вывод) число = gen_array (Int ((35-0 + 1) * Rnd + 0))
output = output + num
петля

'Функция возвращает результат = вывод

gen_con = вывод
Конечная функция

'Функция вывода, которая принимает максимальное значение

Если Request. Форма ("NUMGEN") <> "" ТОГДА
intGEN = CInt (Запрос. Форма ("NUMGEN"))
а = 0
делать пока <500
response.write gen_con (intGEN) & "
"
а = а + 1
петля
конец, если


%>

 o = буква "o"
 O = заглавная буква "O"
 0 = ноль
 l = буква "l"
 1 = цифра 1