Re: [Confirme] generation automatique d'un password

[Christophe BAEGERT]

En Perl �a donne ca (les derni�res lignes servant � enlever les caract�res 
pouvant induire en erreur, les "�les" et les "iiii", les z�ros et les 
"hauts")
-------------------------------------------------------
#!/usr/bin/perl

$mdp="";

for($i=0;$i<=7;$i++)
{
        $char=int(rand(61));
        if ($char<26) {$mdp.=chr($char+65);}
        elsif ($char<52) {$mdp.=chr($char+71);}
        else {$mdp.=chr($char-4);}

}
$mdp=~s/l/3/;
$mdp=~s/I/T/;
$mdp=~s/0/L/;
$mdp=~s/O/M/;

---------------------------------------------------------

Cordialement,
-- 
Christophe BAEGERT               [EMAIL PROTECTED]

>>>>>>>>>>>>> http://www.europeanservers.net <<<<<<<<<<<<<

-------------- Ultra fast internet servers -------------



Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft?
Rendez-vous sur "http://www.mandrakestore.com";