perlcc

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

 

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

 

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

Code:

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

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

Code:

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

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

 

Если сможишь распоковать скинь в личку?

 

Проверяй

 

Спасиб! Но сегодня и сам распоковал)))