这个混淆的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程序，   并且小到足以用作签名文件

和here是代码的完整说明 - 它使用 dc （顺便说一下GNU桌面计算器）。