Perl crypt 函数

描述

此函数使用系统 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";
}

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