Crypt::CBC

概要

Crypt::CBCは文字列を暗号化するモジュールです。
実際のアルゴリズムは外部モジュールから呼び出すことで暗号化しますので、様々な暗号化アルゴリズムに対応可能です。

インストール方法

CPANで普通にインストールできます。
ただし、暗号化アルゴリズム用のモジュールを別途インストールする必要があります。

使用方法

以下使用例です。
暗号化アルゴリズムは最近よく使われる、Blowfishを用いています。

 use Crypt::CBC;
 
 my $key = "testkey";
 my $cbc = Crypt::CBC->new({'key' => $key,
                            'cipher' => 'Blowfish',
 });
 my $fdata = "テストテスト";
 my $ciphertext = $cbc->encrypt_hex($fdata);
 print "[$ciphertext]\n";
 my $plaintext  = $cbc->decrypt_hex($ciphertext);
 print "[$plaintext]\n";

new時の引数のkeyで暗号化／複合化する際のキーを指定します。
同様にcipherで暗号化アルゴリズムのモジュールを指定します。
上記ではBlowfishを使っているのでCrypt::Blowfishをインストールしておく必要があります。

その他

Crypt::CBCではハッシュ／配列／オブジェクト等のデータは暗号化できません。
従って、これらのデータを暗号化する際には、まずはデータをシリアライズした後に暗号化する必要があり、逆に複合化する際には、復号後にシリアライズされたデータを復元する必要があります。
具体的な例は、Storableを参照してください。