이 난독 화 된 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 암호화 및 암호 해독을 구현하고로 사용할 수있을만큼 작은

펄 프로그램이 있다고 말했다 것입니다조차 확실하지 않다 서명 파일

및 here 코드의 완전한 설명 - 그것은 (그런데 GNU 데스크 계산기) 직류를 사용합니다.