Perl crypt()函數

perl crypt()函數，crypt()函數學習例子，crypt()函數實例代碼，crypt()函數教學等

語法

crypt EXPR,SALT

定義和用法

使用該係統的crypt()函數加密的字符串EXPR。使用SALT的值的數量變化從一個選擇的加密版本。需要注意的是冇有對等的解密功能。使用這種方式你不能解密被加密的字符串。它通常使用的一種方法，首先對字符串進行加密，然後加密的密碼加密的字符串進行比較。如果您使用的是這種形式，然後再考慮提供加密的密碼的SALT。

反回值

• 加密的字符串

例子

這裡有一個例子可以讓你運行這個程序無論誰都不知道自己的密碼：

#!/usr/bin/perl

$pwd = (getpwuid($<))[1];
#by www.gitbook.net
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";
}