perl...

Startseite

Nachricht beantworten
Autor: jean-philippe HALOTIER
Datum:  
To: Guilde
Betreff: perl...
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);

print "${crypttext}\n";

je l'ai donc mis dans un fichier pass que j'ai rendu executable puis ./pass
mais il me fait une jolie :
./pass: line 3: syntax error near unexpected token `time'
./pass: line 3: ` srand (time());'
qqun à une idee