這個混淆的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是代碼的完整解釋 - 它（順便說一下GNU桌面計算器）使用DC。