Gere aleatório senha do usuário (boa), instruções: Ao gerar senha aleatória e envie a senha por e -mail para o usuário registrado, você pode confirmar se o email do usuário está preenchido corretamente.
NOTA: Ao gerar aleatoriamente uma senha e envie a senha para o usuário registrado, você pode confirmar se o email do usuário está preenchido corretamente. As senhas geradas automaticamente tendem a ser mais seguras e, ao mesmo tempo, você pode filtrar usuários inválidos.
Salve o seguinte código como um arquivo aleatório.asp:
A cópia do código é a seguinte:
<%
Subtrrandomize (strseed)
Dimi, Nseed
NSEED = clng (0)
Fori = 1Tolen (Strseed)
NSEED = NSEEDXOR ((256*((i-1) mod4)*ASCB (MID (Strseed, i, 1)))))))
Próximo
Randomizenseed
Endsub
FunctionReadePassword (nlength)
Dimi, BmadeConsonant, C, Nrnd
Conststrdoubleconsonants = "bdfglmnpst"
ConststrConsonants = "bcdfghklmnpqrstv"
Conststrvocal = "aeiou"
GereatePassword = ""
bmadeConsonant = false
Fori = 0tonLength
nrnd = rnd
IfGeReRpassword <> "" e (bmadeconsonant <> true) e (nrnd <0,15) então
C = MID (strdoubleconsonants, int (len (strdoubleconsonants)*rnd+1), 1)
c = c & c
i = i+1
bmadeConsonant = true
Outro
If (bmadeConsonant <> true) e (nrnd <0,95) então
C = MID (STRCONSONANTS, INT (LEN (STRCONSONANTS)*RND+1), 1)
bmadeConsonant = true
Outro
C = MID (Strvocal, int (Len (Strvocal)*rnd+1), 1)
bmadeConsonant = false
Endif
Endif
GereatePassword = GereatePassword & c
Próximo
Iflen (generatepassword)> nlengthEn
GereatePassword = esquerda (GereatePassword, nlength)