Exemple de générateur de mot de passe en ASP

Si vous faites une application où il est nécessaire de générer un mot de passe, ce morceau de code en ASP sera très utile.

Copiez le code suivant et enregistrez-le sous le nom GeneratorPassword.asp

'Exemple de générateur de mot de passe dans ASP

Fonction gen_con (max_num)

dim gen_array (36)
'Tableau de caractères 

gen_array (0) = "0"
gen_array (1) = "1"
gen_array (2) = "2"
gen_array (3) = "3"
gen_array (4) = "4"
gen_array (5) = "5"
gen_array (6) = "6"
gen_array (7) = "7"
gen_array (8) = "8"
gen_array (9) = "9"
gen_array (10) = "a"
gen_array (11) = "b"
gen_array (12) = "c"
gen_array (13) = "d"
gen_array (14) = "e"
gen_array (15) = "f"
gen_array (16) = "g"
gen_array (17) = "h"
gen_array (18) = "i"
gen_array (19) = "j"
gen_array (20) = "k"
gen_array (21) = "l"
gen_array (22) = "m"
gen_array (23) = "n"
gen_array (24) = "o"
gen_array (25) = "p"
gen_array (26) = "q"
gen_array (27) = "r"
gen_array (28) = "s"
gen_array (29) = "t"
gen_array (30) = "u"
gen_array (31) = "v"
gen_array (32) = "w"
gen_array (33) = "x"
gen_array (34) = "y"
gen_array (35) = "z"

Randomiser
'Générer la chaîne jusqu'à ce que la longueur soit atteinte

do while len (sortie) num = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
sortie = sortie + num
boucle

'La fonction renvoie un résultat = sortie

gen_con = sortie
Fonction de fin

'Fonction de sortie qui prend la valeur maximale

Si demande. Formulaire ("NUMGEN") <> "" ALORS
intGEN = CInt (Requête. Formulaire ("NUMGEN"))
a = 0
faire alors qu'un <500
response.write gen_con (intGEN) & "
"
a = a + 1
boucle
fin si


%>

 o = lettre "o"
 O = lettre majuscule "O"
 0 = zéro
 l = lettre "l"
 1 = numéro 1