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: