[perl] encriptar

[Salvador Ortiz Garcia]

On Tue, 9 Mar 1999, ikkun wrote:

> Esto se me ha ocurrido por que los scripts de conexion a mi
> PSI es facil de detectar la clave (solo lo manejo como root).
> 1.- ingresar una palabra (passward); de tal manera que 
>     al tipear solo displaye ****** o tipear en background
>     p.e. digito las teclas correspondientes a ikkun, tal
>     que, en su lugar vaya apareciendo ***** o que no displaye.
>     Con el uso de <STDIN> es posible o hay otra manera ?

La función de "echo" de la terminal o consola la controlas con el módulo
TermReadKey, lo encuentras en CPAN <http://www.perl.com/CPAN/>

 
> 2.- Superando el punto uno, lo siguiente es hacer un simple encriptado
>     de la palabra ikkun en una subrutina o funcion y compararla
>     con otra previamente encriptada, y si coincide, dar pase a
>     hacer el resto de las funciones.

En Unix o Linux, la mecánica estándar de encripción la hace la función
'crypt' que está disponible en perl, incluso en los ports a Win32. Dale: 

$ perldoc -f crypt

Saludos

Salvador Ortiz

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl