[Perl] Новичкам: задаем вопросы

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

30.01.2008, 15:38

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 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..