perl - この難読化されたbash/perlコードは何をしますか？

Question

ブログのコメントでこのコードを見つけました。

#!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj
$/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1
lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)

これを端末に貼り付けるのはおそらく悪い考えだと思いますが、誰かがこれを解いて、それが何を意味するのか教えてもらえますか？有効なコードかどうかさえわかりません:)

Answer 1

ここで見つけましたhttp://www.cypherspace.org/adam/rsa/そしてそれは

RSA暗号化と復号化を実装し、署名ファイルとして使用するのに十分小さいperlプログラム

そしてここにコードの完全な説明があります-それはdc（ちなみにGNUデスク計算機）を使用しています。