un petit vbscript qui crée un mot de passe de 8 car (ou plus) avec des Majuscules des minuscules et des chiffres. Histoire de comprendre les fonctions RND et CHR.
pô super compliqué mais utile pour ceux qui veulent pas se prendre le crâne :D
Source / Exemple :
'Initialise les variables
dim maj
dim min
dim chi
'boucle pour le nombre de caracteres
for i = 1 to 8
'remet les variables à zero
maj = ""
min = ""
chi = ""
'initialise le nombre aleatoire
randomize
'définit le type 1/maj 2/min 3/chiffre
type_car = int((3 - 1 + 1) * rnd + 1)
'msgbox type_car
'selectionne le type
select case type_car
'les limites sont fixés par la table de caracteres ANSI
case 1 'Majuscule
randomize
maj = int((90 - 65 + 1) * rnd + 65)
'msgbox "maj : " & chr(maj) & "/" & maj
code = code & chr(maj)' & "/"
case 2 'Minuscule
randomize
min = int((122 - 97 + 1) * rnd + 97)
'msgbox "min : " & chr(min) & "/" & min
code = code & chr(min)' & "/"
case 3 'Chiffre
randomize
chi = int((57 - 48 + 1) * rnd + 48)
'Msgbox "Chi : " & chr(chi) & "/" & chi
code = code & chr(chi)' & "/"
case else 'au cas ou
end select
next
'affiche le code
msgbox code
Conclusion :
:D
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.