cs_ramzis_11
Messages postés13Date d'inscriptionmercredi 18 avril 2007StatutMembreDernière intervention25 avril 2007
-
23 avril 2007 à 23:06
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 2008
-
24 avril 2007 à 10:47
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200825 23 avril 2007 à 23:24
mortalino > Evite la série des premiers caractères ASCII ... un retour chariot ou un saut de page dans le mot de passe, c'est pas top ...
On peut se contenter de choses qui sont visualisables.
Private Sub
Form_Load()
Dim MyValue As Byte, i As Long, PassWord As String
PassWord = Space$(15)
For i = 1 To 15
MyValue = Int((224 * Rnd) + 32)
PassWord = PassWord & Chr(MyValue)
Next i
MsgBox PassWord
End Sub
Et encore, pour les 100 derniers, pas sympas à taper au clavier
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200825 23 avril 2007 à 23:25
Euh .. d'ailleurs, pas fait gaffe : Initialise PassWord avec une chaine vide, sinon, tu concatènes 15 espaces avec 15 nouveaux caractères ...
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.