Perl-crypt

Perl暗号化関数

説明

この関数は、システムのcrypt（）関数を使用してストリングEXPRを暗号化します。 SALTの値は、さまざまなバリエーションから暗号化されたバージョンを選択するために使用されます。

この方法で暗号化された文字列を解読することはできません。 通常、1つの方法で使用されます。最初に文字列を暗号化し、次にパスワードを暗号化して、暗号化された文字列と比較します。 このフォームで使用している場合は、暗号化されたパスワードを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: