Generar aleatoriamente la contraseña del usuario (buena), Instrucciones: generando aleatoriamente la contraseña y luego envíe un correo electrónico a la contraseña al usuario registrado, puede confirmar si el correo electrónico del usuario se completa correctamente.
Nota: Al generar aleatoriamente una contraseña y luego enviar por correo electrónico la contraseña al usuario registrado, puede confirmar si el correo electrónico del usuario se completa correctamente. Las contraseñas generadas automáticamente tienden a ser más seguras, y al mismo tiempo, puede filtrar usuarios no válidos.
Guarde el siguiente código como un archivo random.asp:
La copia del código es la siguiente:
<%
Subtrrandomizar (Strseed)
Dimi, Nseed
nseed = clng (0)
Fori = 1Tolen (Strseed)
nseed = nseedxor ((256*((i-1) mod4)*ascb (mediano (strseed, i, 1)))))))
Próximo
Aleatorizado
Endsub
FunctionGenersePassword (nLength)
Dimi, Bmadeconsonant, C, Nrnd
ConststrdoubleConsonants = "bdfglmnpst"
Conststrconsonants = "bcdfghklmnpqrstv"
Conststrvocal = "aeiou"
GeneratePassword = ""
bmadeconsonant = falso
Fori = 0tonlength
nrnd = rnd
IfGeneraspassword <> "" y (bmadeconsonant <> true) y (nrnd <0.15) entonces
C = Mid (StrdoubleConsonants, int (Len (strdoubleconsonants)*rnd+1), 1)
C = C&C
i = i+1
bmadeconsonant = verdadero
Demás
If (bmadeconsonant <> true) y (nrnd <0.95) entonces
C = Mid (Strconsonants, int (Len (Strconsonants)*rnd+1), 1)
bmadeconsonant = verdadero
Demás
C = Mid (Strvocal, int (Len (Strvocal)*rnd+1), 1)
bmadeconsonant = falso
Endif
Endif
GeneratePassword = GeneratePassword & c
Próximo
Iflen (generarpassword)> nlengththen
GeneratePassword = Left (GeneratePassword, nLength)