GÉNÉRER UNE CHAINE ALÉATOIRE

	function CreateAleatoire(StrTaille)

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

		Dim l, s, i
		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