4.1.20 編碼加密處理

語法：

crypt 欲加密的字串，salt;

注意：crypt 只會取用 salt 字串中前二個字元，超過的予以忽略。

例：

#! /usr/bin/perl

print "請輸入您要加密的字串？";
chomp($str=<STDIN>);
print "請輸入任意二個字元？";
chomp($salt=<STDIN>);

$pwd=crypt $str, $salt;

print "$str 的加密結果：$pwd\n\n";

# 可能輸出結果：

請輸入您要加密的字串？larrywall
請輸入任意二個字元？9m
larrywall 的加密結果：9mpSIssRh4Lbs

chomp($keyin_pwd=<STDIN>);

# $pass 代表由 /etc/passwd 取得的加密密碼
if ((crypt $keyin_pwd, $pass) eq $pass) {
	print "密碼正確!\n";
}