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: