это ад (помогите разобрать)

Can't find string terminator «» anywhere before EOF at line 1.

Это НЕ однострочник знаменитый

А по виду и не скажешь — прям как брат родной.

По теме:

http://stackoverflow.com/questions/7556782/what-does-this-perl-line-from-a-bl...

Can't find string terminator «» anywhere before EOF at line 1.

Ну, выполнять его не надо. Мне гораздо интереснее куда и какие запросы он шлет и что в системе дергает.

Строки с eval будешь сам отлаживать

запусти в виртуалке из strace и посмотри

да уж, жесть. от туда же: http://www.perlmonks.org/?node=unbleach.pl

Строки с eval будешь сам отлаживать

Мне это не отлаживать надо, а тупо понять что делает :)

Ничего адского не вижу, если разбить по строчкам и отделить пробелами, то все становится понятно.

но это что-то делает. Вопрос - что?

Запусти под рутом — узнаешь

Ничего адского не вижу, если разбить по строчкам и отделить пробелами, то все становится понятно.

И что понятно? :)

Попытаюсь прочесть.

$_=<<";

Это начало here-document (как в shell). В $_ помещается весь текст от следующей до пустой строки.

y;\r\n;;d;

tr/\r\n//d;
Удалить все переносы строк.

$_=pack'b*',$_;

Запаковать числа в $_ как строку битов (perldoc -f pack) и положить в ту же $_.

$_=eval;

Выполнить содержимое $_.

$@&&die$@;

$@ && die $@;
Завершиться с ошибкой, если при eval произошло исключение.

$_

Эээ... вернуть получившуюся строку кода?

предлагаю в Российских тюрьмах кроме одиночки ввести следующий круг ада: одиночка + принудительные работы по анбличу перловых однострочников.

как кого-нибудь убью, потом износилую и попаду в места не столь отдаленные - обязательно помогу.

Выполнить содержимое $_.

так всё-таки это одострочник, который выполняет содержимое произвольных файлов? Оп-паньки...)

Чертовы обфускаторы-извращенцы.

Эта фигня в nexenta запускает их консольку. Я хочу понять, куда тянется консолька и что делает.
Сволочи они, в общем.

Строчка выглядит по-уродски, но сам процесс декодирования файла очень красивый!

Можно заменить eval на print и посмотреть на результат. Результат можно пропустить через perltidy для большей читаемости, если он сжат.

B::Deparse (perl -MO=Deparse file.pl) - тоже полезная в деобфускации вещь.

Наверное, надо было через s///e, хотя всё равно было бы видно, но менее очевидно.

прочитал тред - узнал о новой оси. вот это прикол

прочитал тред - узнал о новой оси. вот это прикол

Ага, смесь соляры с убунтой.

операционная система, базирующаяся на Ubuntu Linux и ядре OpenSolaris для платформ x86 и x86-64.

Эээ... Но зачем?

Все ради зфс и удобного гуйца!

Это не наш JB там ответил? :)

Может натолкнет на какие-то идеи

http://grokbase.com/t/perl/par/123dd34kpr/rt-cpan-org-75750-par-filter-bleach...

Это НЕ однострочник знаменитый, но это что-то делает.

что-бы он не делал, но ясно одно: либо автор не хотел, что-бы кто-то туда лез (даже он сам), либо автору нужно 2 презерватива.