# 引数：元文字列
# 戻値：暗号化文字列
sub encP {
    local($val) = @_;
    local($sec, $min, $hour, $day, $mon, $year, $weekday) = localtime(time);
    local(@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 );
}

# 引数：参照文字列,暗号済み文字列)
# 戻値：OK -> True
sub decP {
    local($passwd1, $passwd2) = @_;
    if ( crypt($passwd1, $passwd2) eq $passwd2 ) {
        return 1;
    } else {
        return 0;
    }
}