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 桌面计算器）。