# 本格導入については，とりあえず期待はしないで下さい．
if (length $handle_pass >= 12)
{
use Digest::SHA1 qw(sha1_base64);
$GB->{TRIPSTRING} = substr(sha1_base64($handle_pass), 0, 12);
}
else
{
# 従来通り
}
従来形式との切り替えを ## とか $ で判別するなどの方法も提案されてましたが，
キーの中に # や $ が含まれていた場合を考えると，長さで判別するのが
一番影響が少ないかな，ということでキーが 12 バイト以上の場合に新方式としました．
Digest::SHA1 が入っていたので，とりあえずそれを使用．
トリップの長さは最長で 27 にまでできますが，とりあえず 12 にしました．
