cs_blabla
Messages postés112Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention13 mars 2004
-
16 févr. 2003 à 11:31
cs_T-Rex
Messages postés5Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention27 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.
cs_T-Rex
Messages postés5Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention27 mai 2004 27 mai 2004 à 16:22
Ok, merci
ram2000
Messages postés4Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention24 mai 2004 24 mai 2004 à 17:48
Et voilà la source est à jour ;)
ram2000
Messages postés4Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention24 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és5Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention27 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és4Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention24 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és261Date d'inscriptiondimanche 6 avril 2003StatutMembreDernière intervention12 janvier 2010 5 août 2003 à 01:52
Tu pourrait m'expliquer comment on l utilise stp?
ram2000
Messages postés4Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention24 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és112Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention13 mars 2004 16 févr. 2003 à 11:31
Voila ce que j appel de la souce bien commenter ! 9/10
27 mai 2004 à 16:22
24 mai 2004 à 17:48
24 mai 2004 à 17:29
24 mai 2004 à 15:43
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
5 août 2003 à 17:43
5 août 2003 à 01:52
16 févr. 2003 à 17:42
16 févr. 2003 à 11:31