Generateur de mot de passe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 159 fois - Téléchargée 30 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
dimanche 25 janvier 2009
Statut
Membre
Dernière intervention
25 janvier 2009

si non comment puije faire pour trouver un passwoord msn g besoin de vos lumiere un grand merci davance
Messages postés
2
Date d'inscription
dimanche 25 janvier 2009
Statut
Membre
Dernière intervention
25 janvier 2009

salut a tous marche til pour msn aussi
Messages postés
26
Date d'inscription
mardi 22 octobre 2002
Statut
Membre
Dernière intervention
14 mai 2006

Impec en adaptant à ce que je voulais Maj et Chiff et hop l'affaire
est réglée
Merci 9/10
Messages postés
248
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
32
Je trouve bien pour débuter...
9/10
Messages postés
8
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
28 mai 2005

tu ne peux pas faire ça car le random renvoie un chiffre et non une chaine de caractères ce qui renvoie le lettre est la fonction chr() qui convertit le chiffre de random en lettre (grâce à sa valeur ASCII)
de plus si tu le fais en VBScript de mémoire il s'en fout que tu mettes du string ou de l'interger ou ce que tu veux il change de type à chaque variable que tu passes.
En revanche si tu le fais en VB tentes plutôt de l'integer.

voilà :D
Afficher les 15 commentaires

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.