Comment compiler une fonction pour générer un mot de passe aléatoire? _Programmer 10 000 questions

2020-05-23
< %
response.write makePassword (16)

fonction makePassword (byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
< br> Pour intCounter = 1 À maxLen
whatsNext = Int ((1-0 + 1) * Rnd + 0)
Si whatsNext = 0 Alors
supérieur = 90
inférieur = 65
Sinon
supérieur = 57
inférieur = 48
Fin Si
strNewPass = strNewPass & Chr (Int ((supérieur-inférieur + 1) * Rnd + inférieur))
Suivant
makePassword = strNewPass
' plage de caractères spécifiée

. fonction de fin
%>

[1]

www.xd1998.com@2001-2030Partage De Technologie