Okki a écrit, samedi 12 octobre 2002, à 14:46 :
> Le sam 12/10/2002 à 14:40, arnaud a écrit :
> > Bonjour,
bonjour aussi.
> > voici un petit programme perl pour generer des mots de passe,
[...]
> En une ligne
>
> perl -we "use strict; my @a = (); push @a, ('.', '/', 0..9,'A'..'Z',
> 'a'..'z')[rand 64] for (1 .. 10); print join('', @a), \"\n\""
Il est prudent de supprimer les jumeaux 0O, 1lI :
sub rand_pass {
my $n = int (shift || $PASS_MIN_LENGTH);
$n = ($n < $PASS_MIN_LENGTH) ? $PASS_MIN_LENGTH : $n;
$n = ($n > $PASS_MAX_LENGTH) ? $PASS_MAX_LENGTH : $n;
my @cars = ('a'..'k', 'm'..'z', 'A'..'H', 'J'..'N', 'P'..'Z', '2'..'9');
return join '', @cars[ map {rand @cars} (1 .. $n)];
}
--
Jacques L'helgoualc'h
