19.10.2006, 00:51
|
|
Постоянный
Регистрация: 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..
|
|
|