Perl 中的 crypt函数

描述

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

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

语法

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

crypt EXPR,SALT

返回值

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

无涯教程网

链接：https://www.learnfk.comhttps://www.learnfk.com/perl/perl-crypt.html

来源：LearnFk无涯教程网

例

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

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