Re: gestion d'un serveur FTP - création des users

[Jacques L'helgoualc'h <lhh@free.fr>]

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