УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
perlcc

Опции темы

Поиск в этой теме

Опции просмотра

perlcc

16.10.2006, 17:58

DIAgen

Познавший АНТИЧАТ

Регистрация: 02.05.2006

Сообщений: 1,191

Провел на форуме:
7364332

Репутация: 1276

perlcc

Мне нужет исходник вот этого http://rapidshare.de/files/36873365/dm.rar.html, вроде как это скомпиленный файл perlcc. МОЖЕТ КТО НИБУДЬ предложить что можно сделать!

17.10.2006, 22:07

DIAgen

Познавший АНТИЧАТ

Регистрация: 02.05.2006

Сообщений: 1,191

Провел на форуме:
7364332

Репутация: 1276

НУ что не кто не знает что можно придумать???

19.10.2006, 00:51

KSURi

Постоянный

Регистрация: 06.06.2006

Сообщений: 515

Провел на форуме:
1985206

Репутация: 963

никакой он не компиленый, а просто запакованный по шаблону 'u*';
посмотри внимательно на первую строку, там идет считаывание и распаковка.

Код:

my $vrm9Hox30068MVCy0;
$vrm9Hox30068MVCy0.=$_ while(<DATA>); # это считывание из хендлера __DATA__
eval(unpack('u*',$vrm9Hox30068MVCy0)); # это распаковка считанных данных

вместо eval подставь print. получишь
что то вроде

Код:

my $jshdahsYS='KSJDH';
# тут опять мусор
KSJDH
# а тут опять считывание&&распаковка.

Подставь опять принт вместо евала. Ну и так далее по аналогии.
Это самый простейший способ сокрытия сорца в Perl.
Тебе повезло что авторы не додумались обфусцировать его

Последний раз редактировалось KSURi; 19.10.2006 в 00:58..