Re: perl...

Startseite

Nachricht beantworten
Autor: Raphael Jacquot
Datum:  
To: ML Guilde
Betreff: Re: perl...
Hervé de Dianous wrote:
> jean-philippe HALOTIER wrote:
>
>> j'ai récuperer ce script pour obtenir des mots de passes à rentrer
>> dans le fichier de conf passwd de CVS:
>>
>>
>> #!/usr/bin/perl
>>
>> srand (time());
>> my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 :
>> 97))";
>> my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
>> my $plaintext = shift;
>> my $crypttext = crypt ($plaintext, $salt);


de toute facons, crypt, saimal :)