generateur de mot de passe
Soyez le premier à donner votre avis sur cette source.
Vue 8 116 fois - Téléchargée 2 642 fois
Description
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
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
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
Codes Sources
A voir également
- generateur de mot de passe
- Generateur de mot de passe - Conseils pratiques - PHP
- Générer un mot de passe aléatoire php - Guide
- Python : Générateur de mot de passe - CodeS SourceS - Guide
- Javascript : Generateur de mot de passe - CodeS SourceS - Guide
- Composant tpassword composite générant un mot de passe et un code d'activation - Conseils pratiques - Delphi
Commentaires
- Messages postés
- 57
- Date d'inscription
- mercredi 19 décembre 2001
- Statut
- Membre
- Dernière intervention
- 31 juillet 2003
-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)
- Messages postés
- 98
- Date d'inscription
- mercredi 22 novembre 2000
- Statut
- Membre
- Dernière intervention
- 12 juillet 2005
-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
- Messages postés
- 2336
- Date d'inscription
- samedi 14 juillet 2001
- Statut
- Membre
- Dernière intervention
- 5 mai 2009
3 -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.