Fonction de cryptage Perl

La description

Cette fonction crypte la chaîne EXPR à l'aide de la fonction système crypt (). La valeur de SALT est utilisée pour sélectionner une version chiffrée parmi l'une des nombreuses variantes.

Vous ne pouvez pas déchiffrer une chaîne qui a été chiffrée de cette manière. Il est normalement utilisé dans un sens, d'abord pour crypter une chaîne, puis pour crypter un mot de passe à comparer avec la chaîne cryptée. Si vous l'utilisez sous cette forme, envisagez de fournir le mot de passe crypté en tant que SALT.

Syntaxe

Voici la syntaxe simple de cette fonction -

crypt EXPR,SALT

Valeur de retour

Cette fonction renvoie la chaîne chiffrée.

Exemple

Voici l'exemple de code montrant son utilisation de base, il s'assure que quiconque exécute ce programme connaît son mot de passe:

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

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

Password: