lettres = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789=$#&-+!"
nLettres = Len(lettres)
pwd = ""
 
randomize 
 
for i = 1 to 12
    car = int(nLettres * rnd + 1)
    pwd = pwd + Mid(lettres,car,1)
next 
 
'On aurait pu mettre des controles comme "au moins 2 caractères spéciaux", mais
'mettre des contraintes sur le mot de passe ne le rend pas plus sûr, au contraire !
'(c'est un des enseignement de l'histoire en cryptographie)
 
'affiche le mot de passe
Inputbox "","Generated Password",pwd