c'est une generateur de mot de passe le plus facile qui se fait dans la matiére
idealpour les debutant c'est vrai qu'il contient quelque bug mais si vous pouvez le perfectionnez sans trop le compliquez c pa grave
j'ai un peu soigner l'interface
Conclusion :
contactez moi sur
seif@eminem.com
il contient certain defaut par exemple il ,e génére pas des mot de passe
a nombre de caractére binaire
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.