1. WIKI教程
2. 学习Perl
3. crypt

crypt

描述 (Description)

此函数使用system crypt（）函数加密字符串EXPR。 SALT的值用于从多种变体之一中选择加密版本。

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

语法 (Syntax)

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

crypt EXPR,SALT

返回值 (Return Value)

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

例子 (Example)

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

#!/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: