30.01.2008, 15:24
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
С нами:
10172441
Репутация:
495
|
|
Это не байт код  )
Скрипт обфускацирован
Код:
require "wws_lib.dat";
Для включения пакета в программу используется функция require()
wws_lib.dat непредаставлен.
Код:
$PERL_SOURCE_PROTECTOR=chr(117)......chr(41).chr(4 1).chr(41).chr(59);eval($PERL_SOURCE_PROTECTOR);
оч.просто текст выполняется через eval
Код:
print chr(117)......chr(41).chr(4 1).chr(41).chr(59);
получим
Код:
undef $/;$a=<DATA>;$/="\n";$a=~s/\n//g; eval(pack('C*',split('\D',$a)));
Код:
undef $/;$a=<DATA>;$/="\n";$a=~s/\n//g; print (pack('C*',split('\D',$a)));
__DATA__
.........
l48l48l48l49l108l108l108l49l48l48l41l41l41l125
получим следующие
Код:
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)))}
и т.д. нету времени довести до ума , помогать надо в меру , дальше сам , нечего сложного базовые знание в помощь
# Encoded By the WWS Perl Protector - http://www.webwapstudio.com/PerlProtector.html 
Последний раз редактировалось demonoid; 30.01.2008 в 15:34..
|
|
|