Sujet Précédent Sujet Suivant

GÉNÉRATEUR DE MOT DE PASSE

cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004 - 16 févr. 2003 à 11:31
cs_T-Rex Messages postés 5 Date d'inscription dimanche 1 avril 2001 Statut Membre Dernière intervention 27 mai 2004 - 27 mai 2004 à 16:22

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/6143-generateur-de-mot-de-passe

cs_T-Rex Messages postés 5 Date d'inscription dimanche 1 avril 2001 Statut Membre Dernière intervention 27 mai 2004
27 mai 2004 à 16:22

Ok, merci

ram2000 Messages postés 4 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 24 mai 2004
24 mai 2004 à 17:48

Et voilà la source est à jour ;)

ram2000 Messages postés 4 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 24 mai 2004
24 mai 2004 à 17:29

Content de voir que mon programme t'es utile. Mais y'a un bail j'étais pas venu ici et je l'ai modifier en plus simple depuis déjà un moment donc je met la source à jour ;)

cs_T-Rex Messages postés 5 Date d'inscription dimanche 1 avril 2001 Statut Membre Dernière intervention 27 mai 2004
24 mai 2004 à 15:43

Ce code est tres pratique, je l'ais tranformé en fonction en vue d'une utilisation (protection) dans mes applis:

Public Function GenPass(NbChar As Integer, Optional MinAndMaj As Boolean = False) As String
Dim caracter As String 'Contient le caractère qui sera ajouté au mot de passe
Dim Chiffre As String 'Contient le numéros du caractère
Dim chle As Byte 'Définit si on sélection un chiffre ou une lettre
Dim MajMin As Byte 'Définit si le caractère sera en majuscule ou non
Dim i As Byte 'On déclare une variable pour la boucle

For i = 1 To NbChar 'On boucle selon le nombre de caractere voulu pour former le passwd
Randomize 'Initialisation du moteur de hasard
chle Int(Rnd * 2) + 1 'On choisi entre les chiffres et lettre 1 chiffre et 2 = lettre
If chle 1 Then 'Si chle 1 on choisi une lettre
Chiffre = Int(Rnd * 9) + 48
caracter = Chr(Chiffre) 'On enregistre cette lettre
Else 'Sinon chle = 2, donc on choisi un chiffre
Chiffre = Int(Rnd * 26) + 97
caracter = Chr(Chiffre) 'On enregistre ce chiffre
End If
If MinAndMaj = True Then 'Si l'utilisateur a décidé de mélanger les lettres MAJ et Min
MajMin = Int(Rnd * 2) + 1 'On décide si la prochaine lettre sera MAJ ou MIN
If MajMin = 2 Then 'Si elle est MAJ on fait un UCase
caracter = UCase(caracter) 'On met en majuscule le caractère
End If
End If
GenPass = GenPass & caracter 'On ajoute le caractère au mot de passe
Next i

End Function

ram2000 Messages postés 4 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 24 mai 2004
5 août 2003 à 17:43

C'est bien que tu es poster ce commentaire car tu viens de me faire réaliser que j'avais oublier de mettre l'exécutable dans l'archive! J'ai donc modifier le zip en y incluant le programme compiler. Retélécharge l'archive et donne moi en des nouvelles à savoir si ta compris le fonctionnement ;)

cs_T0x1K Messages postés 261 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 12 janvier 2010
5 août 2003 à 01:52

Tu pourrait m'expliquer comment on l utilise stp?

ram2000 Messages postés 4 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 24 mai 2004
16 févr. 2003 à 17:42

Arf ouais je sais, je l'ai fait exprès pour que ce soit facile à comprendre :)

cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004
16 févr. 2003 à 11:31

Voila ce que j appel de la souce bien commenter ! 9/10

Discussions similaires

Cherche mélangeur de mots à partir d'un texte existant ou un reformulateur de te

mots meles

Mélangeur de mots... dans la phrase!

génerateur de nombre aléatoire

Générateur de regles de jeu...

Votre réponse

Discussions similaires