Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 関数 - crypt

文字列を暗号化します。

crypt 値1 , 値2

値1
暗号化する文字列
値2
暗号を生成する際に利用する値(SALT)。3文字目以降は無視

(例)
# 乱数発生の初期準備 # 時刻とプロセスIDから乱数初期値を生成 $seed = (time() ^ ($$ * ($$ << 7))); 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