AES(Rijndael)の暗号化をPERLのOne-Linerで書いたという記事/ページ（具体的なコードがあると直よいです）を探しております。英語でも構いません。宜しくお願いします。

Rijndaelのアルゴリズムまで1行ではムリなので。-Mでモジュール使ってます。

というか1行と呼ぶにはちと厳しい気も・・・

perl -MCrypt::Rijndael -e ”$cipher = new Crypt::Rijndael ’a’ x 32, Crypt::Rijndael::MODE_ECB; print unpack(’H*’,$cipher->encrypt(’hogehogehogehoge’));”

perl -MCrypt::Rijndael -e ”$cipher = new Crypt::Rijndael ’a’ x 32, Crypt::Rijndael::MODE_ECB; print $cipher->decrypt(pack(’H*’,’8e38f1a91764aeb48841737499c299a6’));”

上がECBモード、keyがaを32個でhogeを4つ繋げたものを暗号化

下はその逆(復号化)です。

それらしい記事を見つけられませんでしたし、Rijndaelを実装しているPure Perlのモジュールのソースを見てもOne-Linerだけでできるようには思えませんでした。

モジュールを使うのは可なのでしょうか？

モジュールを使ってよければ、リンク先のものを使って次のようなOne-Linerで良いと思います。

perl -MCrypt::Rijndael_PP -e ”print Crypt::Rijndael_PP->new(pack(’H*’,’1234567890ABCDEF’x4),MODE_CBC)->encrypt(’暗号化対象データ’)”

「’1234567890ABCDEF’x4」は256bitのキーとして用意した文字列です。

本家CPAN上の同モジュールのページです。

sourceを見ていただくと、モジュール抜きでこれだけの作業をするOne-Linerが難しそうだと判断したのがお分かりいただけるかと思います。