30.01.2008, 15:38
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
С нами:
10021597
Репутация:
905
|
|
В переменной $PERL_SOURCE_PROTECTOR вот такое
Код:
undef $/;
$a=<DATA>;
$/="\n";
$a=~s/\n//g;
eval(pack('C*',split('\D',$a)));
Заменив eval на print, расшифруем DATA
Код:
eval(l0l0000111100010001l00l0($WEBWAPSTUDIO_COM));
sub l0l0000111100010001l00l0{
my($l0001l0001lll100)=@_;
$l0001l0001lll100=~s/\+/1l/gm;
$l0001l0001lll100=~s/\-/2l/gm;
$l0001l0001lll100=~s/\*/3l/gm;
$l0001l0001lll100=~s/\(/4l/gm;
$l0001l0001lll100=~s/\)/5l/gm;
$l0001l0001lll100=~s/\//6l/gm;
$l0001l0001lll100=~s/\=/7l/gm;
return(pack('C*',split('l',$l0001l0001lll100)))
}
Остальное зависит от переменной $WEBWAPSTUDIO_COM, которая, видимо, хранится в wws_lib.dat
ЗЫ. demonoid опередил))
Последний раз редактировалось krypt3r; 30.01.2008 в 15:43..
|
|
|