Função Perl crypt

Descrição

Esta função criptografa a string EXPR usando a função crypt () do sistema. O valor de SALT é usado para selecionar uma versão criptografada de uma de várias variações.

Você não pode descriptografar uma string que foi criptografada dessa maneira. Normalmente é usado de uma maneira, primeiro para criptografar uma string e, em seguida, para criptografar uma senha para comparar com a string criptografada. Se você o estiver usando neste formulário, considere fornecer a senha criptografada como SALT.

Sintaxe

A seguir está a sintaxe simples para esta função -

crypt EXPR,SALT

Valor de retorno

Esta função retorna a string criptografada.

Exemplo

A seguir está o código de exemplo mostrando seu uso básico, ele garante que quem executa este programa saiba sua senha

#!/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 o código acima é executado, ele produz o seguinte resultado -

Password: