Generateur de mot de passe

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

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.