GENERATEUR DE MOT DE PASSE
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
-
7 juil. 2003 à 19:02
cs_jmluc Messages postés 57 Date d'inscription mercredi 19 décembre 2001 Statut Membre Dernière intervention 31 juillet 2003 - 8 juil. 2003 à 08:15
cs_jmluc Messages postés 57 Date d'inscription mercredi 19 décembre 2001 Statut Membre Dernière intervention 31 juillet 2003 - 8 juil. 2003 à 08:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7780-generateur-de-mot-de-passe
https://codes-sources.commentcamarche.net/source/7780-generateur-de-mot-de-passe
8 juil. 2003 à 08:15
Intégré dans une fonction :
<%
function gen_password()
mot = ""
er = 0
for cpt = 1 to 8
do while er <> 1
randomize
x = int((122 - 48 +1) * Rnd + 48) '--- produit des entier compris entre 48 et 122
if x > 57 and x < 65 then '--- test si chiffre ds interval non désiré
er = 0
else if x > 90 and x < 97 then '--- test si chiffre ds interval non désiré
er = 0
else er = 1 '--- chiffre pas ds interval non désiré
end if
end if
loop
y = chr(x) '--- converti un chiffre en caractère
mot = mot & y '--- concaténation des caractères créer
er=0
next
gen_password = mot ' --- renvoie du mot password
end function
%>
Ca marche bien...(Merci à Sylvain LECOMTE)
8 juil. 2003 à 00:30
Public Function GenerMdp(Max As Integer) As String
Dim temp As String
Dim valide As Boolean
Dim X As Integer
Dim nb As Integer
Randomize
For i = 1 To Max
DoEvents
X = Int((13 * Rnd) + 1)
Select Case X
Case 1 To 3:
nb = Int((9 * Rnd) + 1) + 48 'nombre entre 0 et 9
Case 4 To 7:
nb = Int((25 * Rnd) + 1) + 65 'majuscule A..Z
Case 8 To 11:
nb = Int((25 * Rnd) + 1) + 97 'minuscule a..z
Case 12 To 13:
nb = Int((10 * Rnd) + 1) + 33 'caractères spéciaux
valide = True
Case Else
MsgBox "echec général de la fonction de randomisation du générateur de mot de passe!", vbCritical, "erreur"
End Select
temp = temp + Chr(nb)
Next i
If Not valide Then
'le mot de passe contient au moins un caractère spécial
nb = Int((10 * Rnd) + 1) + 33
X = Int((Max * Rnd) + 1)
Mid$(temp, X, 1) = Chr(nb)
End If
GenerMdp = temp
End Function
7 juil. 2003 à 19:02