这个模糊的bash/perl代码是做什么的？

我刚刚在一篇博客评论中发现了这段代码

#!/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*',/((..)*)$/)

#/bin/perl-sp0777i我在这里找到了它，据说是

实现RSA加密和解密的perl程序，
并且足够小，可以用作签名文件

这是对代码的完整解释-它使用了dc（顺便说一下GNU桌面计算器）。
看看博客文章会很有趣，你能给我一个链接吗？应该迁移到很棒的，现在我头疼。