広告
広告
crypt は、パスワードの暗号化などに使われる関数です。第1引数 STRING で指定された文字列の先頭8文字と、第2引数 SALT の2文字をもとに、ユニークな13文字の文字列を生成します。crypt で暗号化された文字列は元に戻すことはできません。
#暗号化したい文字列($val)を受け取り、暗号化した文字列を返す関数 sub cipher { my ($val) = @_; my( $sec, $min, $hour, $day, $mon, $year, $weekday ) = localtime( time ); my( @token ) = ( '0'..'9', 'A'..'Z', 'a'..'z' ); $salt = $token[(time | $$) % scalar(@token)]; $salt .= $token[($sec + $min*60 + $hour*60*60) % scalar(@token)]; return crypt( $val, $salt ); }
#パスワード($passwd1)と暗号化したパスワード($passwd2)を受け取り、一致するかを判定する関数 sub decipher{ my ($passwd1, $passwd2) = @_; # 暗号のチェック if ( crypt($passwd1, $passwd2) eq $passwd2 ) { return 1; } else { return 0; } }
広告