perlcc

[DIAgen]

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

[DIAgen]

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

[KSURi]

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

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

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

[DIAgen]

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

[KSURi]

Проверяй

[DIAgen]

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