Hola PERL!!!
Sergio Avila Castaneda (sac)
savila@reduno.com.mx
Thu, 14 Aug 1997 09:41:10 -0600 (CST)
Hola!
> Al ejecutar el comando passwd necesita estos datos:
>
> Changing password for wwwadm
> Old password:
> New password:
> Re-enter new password:
>
> Como le paso al passwd los 3 datos que necesita para hacer la
> codificacion?
>
No necesitas pasarle nada al password ni siquiera hacer la llamada al
sistema, Perl tiene una funci'on que cifra informaci'on exactamente igual
que la funci'on crypt(3) de C, de este modo puedes hacer cosas como:
#!/usr/bin/perl
print "\nEscribe el password ";
$pass = <STDIN>;
print "\nEscribe la sal ";
$sal = <STDIN>;
$pass = crypt($pass, $sal);
print "\n El password cifrado es:";
print "\n $pass \n\n";
8<--------------------------------------------------------------------->8
Bonito no!, este cuate Larry Wall piensa en todo. =) Espero te sirva.
Saludos!
_ _
___ __ ___ _(_) |__ _
(_-</ _` \ V / | / _` | Sergio Avila Casta~neda Tel. 624 4242
/__/\__,_|\_/|_|_\__,_| Red Uno, CENTEC Ext. 4524
-----------------------------------------------
There is more than wan way to do it!
_______________________________________________________________________________
PGP key: finger sac@conga.super.unam.mx ; URL: http://ds5000.super.unam.mx/~sac