perlで暗号/復号

• http://d.hatena.ne.jp/naoya/20050714/1121351719

• Crypt::CBC

"-cipher => BlowFish" とすることで内部的にCrypt::BlowFishを使ってくれ、いい感じに暗号/復号できる。