Perl 加密函数

描述

该函数使用系统 crypt( ) 函数对字符串 EXPR 进行加密。SALT 的值用于从多种变体之一中选择加密版本。

您无法解密以这种方式加密的字符串。它通常以一种方式使用，首先加密字符串，然后加密密码以与加密的字符串进行比较。如果您以此形式使用它，请考虑提供加密密码作为 SALT。

句法

以下是该函数的简单语法 -

crypt EXPR,SALT

返回值

该函数返回加密的字符串。

例子

以下是显示其基本用法的示例代码，它确保运行此程序的任何人都知道他们的密码::

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

执行上述代码时，会产生以下结果 -

Password: