Funzione Perl crypt

Descrizione

Questa funzione crittografa la stringa EXPR utilizzando la funzione crypt () di sistema. Il valore di SALT viene utilizzato per selezionare una versione crittografata da una delle numerose varianti.

Non è possibile decrittografare una stringa che è stata crittografata in questo modo. Viene normalmente utilizzato in un modo, prima per crittografare una stringa e poi per crittografare una password da confrontare con la stringa crittografata. Se lo stai utilizzando in questo modulo, valuta la possibilità di fornire la password crittografata come SALT.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

crypt EXPR,SALT

Valore di ritorno

Questa funzione restituisce la stringa crittografata.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base, si assicura che chiunque esegua questo programma conosca la propria password:

#!/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";
}

Quando viene eseguito il codice sopra, produce il seguente risultato:

Password: