TOP - Perl - 関数 - crypt

文字列を暗号化します。

crypt 値1 , 値2
値1   : 暗号化する文字列
値2   : 暗号を生成する際に利用する値(SALT)。3文字目以降は無視
(例)
$seed = (time() ^ ($$ * ($$ << 7)));      # 乱数発生の初期準備
                                          # 時刻とプロセスIDから乱数初期値を生成
srand($seed);
@s_base = ('.', '/', ('0'..'9'), ('a'..'z'), ('A'..'Z'));

$s_salt1 = $s_base[int(rand(64))];
$s_salt2 = $s_base[int(rand(64))];
$s_salt = $s_salt1 . $s_salt2;

print "値1       = pass\n";
print "値2(SALT) = $s_salt\n";
print 'crypt()の結果 → ' . crypt("pass", $s_salt) . "\n";
実行結果(毎回異なる結果発生)
値1       = pass
値2(SALT) = V8
crypt()の結果 → V89VZ4ESzmoVw


Copyright(C) 2006-2018 CLAYPOT. All Rights Reserved.