Majuscule / Minuscule

[delavega]

Bonsoir,

J'utilise la fonction suivante pour générer mes mots de passe :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
function makePassword(byVal maxLen)
 
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
 
For intCounter = 1 To maxLen
    whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'character
        upper = 90
        lower = 65
Else
        upper = 57
        lower = 48
End If
        strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
        makePassword = strNewPass
 
end function

Le password que j'obtiens ressemble à quelque chose comme ça :

8VVMP7F8

J'aimerai que le mot de pass généré, ne comporte uniquement que des minuscules, et non pas des majuscules.

Quelqu'un peut-il m'aider svp ?

Merci d'avance,

Denis

[agrotic]

bonjour,

si tu ne veux pas toucher à ta fonction, utilise le tout bête lCase(monString) en fin de fonction :

Code :

1
2
 
makePassword = lCase(makePassword)

sinon, voici la fonction que j'utilise moi (elle évite de surcroit de confondre le zéro avec le o majuscule - doute toujours présenta dans la tête des utilisateurs, surtout s'ils ne savent pas qu'il n'y a pas de majuscule dans le mot de passe) :

Code :

1
2
3
4
5
6
7
8
9
10
function Generate_Password(nbCar)
	dim vocab, temp, i
	vocab = "123456789azertyuiopqsdfghjklmwxcvbn"
	temp = ""
	randomize
	for i = 1 to nbCar
		temp = temp & Mid(vocab, rnd() * len(vocab) + 1, 1)
	next 
	Generate_Password = temp
end function

Nico.

[kaiser59]

Salut,

Ceci répondra à ta question :
generateur de MP

++