Générer une chaine aléatoire

Commenter

Contenu du snippet

Ce code source est très simple. Il permet de créer une chaine aléatoire (pratique pour une demande de confirmation par mail pour des votes ou autres...)

Je sais bien qu'il est possible par d'autres moyens d'arriver à la même chose => variables de sessions), mais avec ce code, on peut choisir son dictionnaire et surtout la taille de la chaine à générer.

Source / Exemple : 


function CreateAleatoire(StrTaille)

		'--------------------------------------------------'
		'Création d'une chaine de caractères aléatoire     '
		' -----------------------------                    '
		'	strTaille : Longueur de la chaine de sortie'
		'--------------------------------------------------'

		Dim l, s, i, Dictionnaire
		if StrTaille = 0 then exit function

		Dictionnaire = "abcdefghijklmnopqrstuvwxyz1234567890"
		
		l = len(Dictionnaire)
		for i = 0 to StrTaille -1
			randomize
			s = s & mid(Dictionnaire, int(rnd * l)+1, 1)
		next
		CreateAleatoire = s
	end function

Conclusion :


le parametre strTaille permet de définir la longueur de la chaine qui sera renvoyée.

Amusez vous bien ;)

A voir également

S'inscrire maintenant

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.

Du même auteur (BinOff)