Случайно генерируйте пароль пользователя (хорошо), инструкции: случайным образом генерируя пароль, а затем отправьте сообщение паролем зарегистрированному пользователю, вы можете подтвердить, правильно ли заполнено электронную почту пользователя.
ПРИМЕЧАНИЕ. Случайно генерируя пароль, а затем отправьте сообщение паролю зарегистрированному пользователю, вы можете подтвердить, правильно ли заполнено электронную почту пользователя. Автоматически сгенерированные пароли, как правило, более безопасны, и в то же время вы можете отфильтровать недействительных пользователей.
Сохраните следующий код как файл random.asp:
Кода -копия выглядит следующим образом:
<%
Substrrandomize (strseed)
DiMi, Nseed
nseed = clng (0)
Fori = 1tolen (strseed)
nseed = nseedxor ((256*((i-1) mod4)*ascb (mid (strseed, i, 1)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Следующий
Рандомиз
Заканчивая
FunctionGeneratePassword (nlength)
DiMi, BmadeConsonant, C, Nrnd
Conststrdoubleconsonants = "bdfglmnpst"
Conststrconsonants = "bcdfghklmnpqrstv"
Conststrvocal = "aeiou"
GeneratePassword = ""
bmadeconsonant = false
Fori = 0tonlength
nrnd = rnd
IfGeneratePassword <> "" и (bmadeconsonant <> true) и (nrnd <0,15)
c = mid (strdoubleconsonants, int (len (strdoubleconsonants)*rnd+1), 1)
C = C & C.
i = i+1
bmadeconsonant = true
Еще
If (bmadeconsonant <> true) и (nrnd <0,95)
C = Mid (StrConsonants, int (Len (Strconsonants)*rnd+1), 1)
bmadeconsonant = true
Еще
c = средняя (strvocal, int (len (strvocal)*rnd+1), 1)
bmadeconsonant = false
Эндиф
Эндиф
GeneratePassword = GeneratePassword & C.
Следующий
Iflen (GeneratePassword)> nlengthThen
GeneratePassword = слева (GeneratePassword, nlength)