Generer un mot de passe en perl ?

Le Fri, 02 Dec 2005 05:37:35 +0100, Sameline a écrit :

Y a t'il une commande qui permet de gener ce type de mot de
passe et de le mettre dans une variable ?

Non mais c'est presque rien à faire :

sub gen_passwd {
my $password ;
my @letters=( ('a'..'z'), ('A'..'Z'), (0..9) );
$password .= $letters[rand($#letters)] for (1..10) ;
return $password ;
}

my $password=gen_passwd();

--
Le commissaire : Comment vous appelez-vous?
Garance : Moi je ne m'appelle jamais, je suis toujours là. J'ai pas
besoin de m'appeler. Mais les autres m'appellent Garance, si ça peut
vous intéresser.
Prévert,"les enfants du Paradis".

Sameline wrote:

j'aimerais rajouter une option permettant de generer automatiquement le
mot de passe de 10 caracteres (un truc du style Hg6hd8KK9a)
Y a t'il une commande qui permet de gener ce type de mot de
passe et de le mettre dans une variable ?

Bonjour,

Vous pouvez également regarder du coté de apg
(http://www.adel.nursat.kz/apg/).
ex. perl -e "$pass=`apg -M NCL -x 10 -m 10 -n1`; chomp $pass; print
$pass;"
L'avantage étant la possibilité de régler la "qualité" des mots de
passes générés.
Pour les options d'apg, voir la page de man.

--
Régis

Sameline wrote:

Bonjour,

j'ai un petit script perl qui s'occupe de creer des
comptes d'accès.

Jusqu'ici, on doit specifier le mot de passe et j'aimerais
rajouter une option permettant de generer automatiquement le
mot de passe de 10 caracteres (un truc du style Hg6hd8KK9a)

Y a t'il une commande qui permet de gener ce type de mot de
passe et de le mettre dans une variable ?

Merci d'avance

Vous pourriez essayer

Crypt::RandPassword
String::MkPasswd

Mark

Bonjour,

j'ai un petit script perl qui s'occupe de creer des
comptes d'accès.

Jusqu'ici, on doit specifier le mot de passe et j'aimerais
rajouter une option permettant de generer automatiquement le
mot de passe de 10 caracteres (un truc du style Hg6hd8KK9a)

Y a t'il une commande qui permet de gener ce type de mot de
passe et de le mettre dans une variable ?

Merci d'avance
Bonjour,

Vous pouvez aussi essayer ceci:

my @c = ( 'A' .. 'Z', 'a' .. 'z', '0' .. '9' );
my $password = join '', map $c[rand @c], 1 .. 10;

Sébastien