Générer au hasard le mot de passe de l'utilisateur (bon), Instructions: En générant un mot de passe au hasard, puis en envoyant le mot de passe à l'utilisateur enregistré, vous pouvez confirmer si l'e-mail de l'utilisateur est rempli correctement.
Remarque: En générant un mot de passe au hasard, puis en envoyant le mot de passe à l'utilisateur enregistré, vous pouvez confirmer si l'e-mail de l'utilisateur est rempli correctement. Les mots de passe générés automatiquement ont tendance à être plus sécurisés et en même temps, vous pouvez filtrer les utilisateurs non valides.
Enregistrez le code suivant en tant que fichier Random.asp:
La copie de code est la suivante:
<%
Substrandomiser (strseed)
Dimi, nseed
nseed = clng (0)
Fori = 1tolen (strseed)
nseed = nseedxor ((256 * ((i-1) mod4) * ASCB (mid (strseed, i, 1))))))
Suivant
Randommisseed
Fin
FunctiongeneratePassword (nLength)
Dimi, bmadeconsonant, c, nrnd
ConststrDoubleConsonants = "bdfglmnpst"
Conststrconsonants = "bcdfghklmnpqrstv"
ConststrVocal = "aeiou"
Générerpassword = ""
bmadeconsonant = false
Fori = 0TONLENGT
nrnd = rnd
IfgeneratePassword <> "" et (bmadeconsonant <> true) et (nrnd <0,15) puis
c = mid (strdoubleconsonants, int (len (strdoubleconsonants) * rnd + 1), 1)
C = C&C
i = i + 1
bmadeconsonant = true
Autre
If (bmadeconsonant <> true) et (nrnd <0,95) alors
c = mid (strconsonants, int (len (strconsonants) * rnd + 1), 1)
bmadeconsonant = true
Autre
c = mid (strvocal, int (len (strvocal) * rnd + 1), 1)
bmadeconsonant = false
Endire
Endire
GeneratePassword = GeneratePassword & C
Suivant
Iflen (generatepassword)> nlengththen
GeneratePassword = Left (generatepassword, nLength)