Raison.nances

Aller au contenu | Aller au menu | Aller à la recherche
Le blog de Michaël GENAY aka Urdle

<< billet précédent billet suivant >>

Générateur de mot de passe

Parceque j'en ai marre de faire 15 fois le même script vbs et que ça peut interesser des gens, hop, voilà genpwd.vbs made by me
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

Urdle | Date: vendredi 16 décembre 2005 à 15:45 | << précédent | suivant >>

Trackbacks

Les trackbacks pour ce billet sont fermés.

Commentaires

Le lundi 7 avril 2008 à 16:58, par Myrtil :: #

Magnifique, merci

Ajouter un commentaire

Les commentaires pour ce billet sont fermés.