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";
}

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

Password: