From: "Little Dragon" <[EMAIL PROTECTED]>
>Un scriptulet mai simplu ar fi (fara module, fara extragere manuala a
liniei
>din /etc/shadow, doar folosind functii specifice perl):
Felicitari! Eu credeam despre scriptul meu ca e dragutz. Mi-am pierdut mana
la Perl...
Nu l-am incercat in toate felurile, dar ideea e super.
Ma chiar gandeam ca pentru a explica ce face scriptul (ce, nu cum) e nevoie
de mai multe caractere decat sunt in script.
Mihai
> # Sintaxa: chkpwd <parola> [uid|user]
>
> my $user=defined($ARGV[1])?$ARGV[1]:$<;
> my $pwd=(($user=~/^[0-9]/)?getpwuid($user):getpwnam($user))[1];
> if($<!=0) { print STDERR "chkpwd: nu sunteti root.\n"; exit(1) }
> if(!defined($pwd)) { print STDERR "chkpwd: utilizator inexistent.\n";
exit(2) }
> print("Parola este ".((crypt($ARGV[0],$pwd) eq
$pwd)?'':"in")."corecta.\n");
>
> # Schimbatu' parolei ar fi - evident - facut via utilitare sistem
(chpasswd
> # sau passwd --stdin).
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
