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: