Función de cripta Perl

Descripción

Esta función cifra la cadena EXPR utilizando la función crypt () del sistema. El valor de SALT se utiliza para seleccionar una versión encriptada de una de varias variaciones.

No puede descifrar una cadena que se haya cifrado de esta forma. Normalmente se usa de una forma, primero para cifrar una cadena y luego para cifrar una contraseña para compararla con la cadena cifrada. Si lo está utilizando en este formulario, considere proporcionar la contraseña cifrada como SALT.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

crypt EXPR,SALT

Valor devuelto

Esta función devuelve la cadena cifrada.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico, se asegura de que quien ejecute este programa conozca su contraseña:

#!/usr/bin/perl

$pwd = (getpwuid($<))[1];

system "stty -echo";
print "Password: ";
chomp($word = <STDIN>);
print "\n";
system "stty echo";

if (crypt($word, $pwd) ne $pwd) {
   die "Sorry wrong password\n";
} else {
   print "ok, correct password\n";
}

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Password: