VPF::JAPH - как оно работает? - Форум программистов

nickless

Дата 3.3.2008, 05:45 (ссылка)

(нет голосов)

Загрузка ...

Гентозавр

Профиль
Группа: Участник Клуба
Сообщений: 2976
Регистрация: 29.8.2005
Где: Germany

Репутация: нет
Всего: 181

Добрый день,
вопрос чисто из интереса, недавно наткнулся на вот этот код (с конкурса обфускации):

Код


#!/usr/bin/perl
`$=`;
$_=\%!;
($_)=/(.)/;
$==++$|;
($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=($!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;
$.++;
$.++;
$_++;
$_++;
($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);
$,++;
$,++;
$^|=$";
`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`

Выводит "Just another Perl hacker."...
Я немного знаю perl, пытался хотя бы отформатировать немного, но мой мозг плавится при виде этого smile

Кому не трудно, объясните плз как оно примерно работает smile

Это сообщение отредактировал(а) nickless - 3.3.2008, 05:47

--------------------

Real men don't use backups, they post their stuff on a public ftp server and let the rest of the world make copies
- Linus Torvalds

KSURi

Дата 3.3.2008, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27

perldoc perlvar и -MO=Deparse помогут вам

--------------------

Died at Life.pl line 21

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »