Что делает этот запутанный код bash/perl?

Question

Что делает этот запутанный код 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*',/((..)*)$/)

Я понимаю, что, вероятно, плохая идея вставить это в терминал, но может ли кто-нибудь распутать это и сказать мне, что он должен делать? Я даже не уверен, что это правильный код:)

4

bash perl obfuscation deobfuscation

Источник

user361867 05 сен '11 в 19:46

1 ответ

Решение

Другие вопросы по тегам bash perl obfuscation deobfuscation

user356838 05 сен '11 в 19:57 2011-09-05 19:57 · Accepted Answer · 2011-09-05 19:57

Я нашел это здесь http://www.cypherspace.org/adam/rsa/ и сказано, что это

Perl-программа, которая реализует шифрование и дешифрование RSA и достаточно мала для использования в качестве файла подписи

и вот полное объяснение кода - он использует dc (кстати, настольный калькулятор GNU).