当前位置: 首页 > 文档资料 > Perl 入门教程 >

crypt

优质
小牛编辑
129浏览
2023-12-01

描述 (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: