可逆暗号をPerlから使いたいんだけど・・・

Perlの性質上、可逆暗号アルゴリズムで符号化したデータって、復号も簡単にできるよね。例えば、暗号化したパスワードを内部に埋め込んだ自前の自動認証スクリプトとかを書きたいと思っても、内部でデコードしなきゃいけない都合上スクリプトが流出したらパスワードも流れてしまう。これはマズイ・・・
うまい方法があればいいんだけどなあ。とりあえずエンコード・デコードはよそのプログラムにお任せする方向がいいのかな。