nixp.ru v3.0

25 мая 2017,
четверг,
02:35:12 MSK

DevOps с компанией «Флант»
Аватар пользователя fly4life
fly4life написал 16 ноября 2003 года в 23:53 (624 просмотра) Ведет себя как мужчина; открыл 182 темы в форуме, оставил 5340 комментариев на сайте.

http://www.linux.org.ru/view-message.jsp?msgid=392747

Гыгы =)

Master

Как всегда куча фраз дятлов с именами анонимоус…

так выражаются только на ЛОР!!!

Мне понравилось.

Дмитрий Шурупов

Класс!

Всегда хотел разобраться со странными программами такого типа на perl. Вот и займусь этим в ближайшее время, раз уж повод появился ;)

Вот, кстати, подобная, но АБСОЛЮТНО безобидная (честно-честно :)), программа на Perl (запускайте под root’ом :)) — шутка):

#!/usr/bin/perl -w

$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=

'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»

..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'

|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=

'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;

fly4life
SHuRuP
#!/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: `$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$: ++;$_='

fly4life
Master
Как всегда куча фраз дятлов с именами анонимоус…

Поражает количество народу, наступивших на эти грабли. Причём, то, что эта программа выполняет 'rm -rf /’, там явно сказано и не единажды =)

Master
SHuRuP
#!/usr/bin/perl -w

$\=’`'|«’»;$\++;$;=’/'|’`';$;++;$;++;$;++;$,=$;;$,++;$/=$,;$/++;$:=$/;$:++;$_=

'%’|'`’;$_.=’`'|’#';$_.=$\;$_.=’`'|’/';$_.=$«.’»';$_.=’@'|’*'&~’!';$_.=«$:$,$/»

..$«;$_.=’`'|’!';$_.=’`'|’.';$_.=’/'|’`';$_.=$/.$\;$_.=’%'|’`';$_.=$;.$»;$_.=’@'

|’:'&~’*';$_.=’`'|’%';$_.=$;;$_.=’`'|’,';$_.=$».$\;$_.=’`'|’!';$_.=’#'|’`';$_.=

'+’|'`’;$_.=’`'|’%';$_.=$;.’«'.$».’>&’;$_.=$,&’:';`$_`;

У меня выдает:

> ./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
SHuRuP
fly4life,

$ perl perl_fun.pl

[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

Scott Tiger

Хуже перла лучше нет :F

Master

2SHuRuP: Выложи куда нибудь (в какую нибудь директорию на сайте) этот скрипт, а то такое впечатление что форум что-то в нем исправляет… (что вполне реально — с url часто разные глюки происходят)

Дмитрий Шурупов

Master,

да, ты прав — форум изуродовал что-то :(

http://www.nixp.ru/pub/tmp/smoke.pl.html

fly4life

Вот теперь работает =)