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

30.01.2008, 15:38
|
|
Познавший АНТИЧАТ
Регистрация: 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..
|
|
|

30.01.2008, 19:19
|
|
Новичок
Регистрация: 21.06.2007
Сообщений: 21
Провел на форуме: 282803
Репутация:
11
|
|
ясно, всем спасибо. просто этого файлика не было. видимо он лежит на том сервере, откуда продают скрипт, и он постоянно должен быть в коннекте. а без него все бесполезно
|
|
|

31.01.2008, 18:11
|
|
Познающий
Регистрация: 27.08.2007
Сообщений: 48
Провел на форуме: 91291
Репутация:
17
|
|
всем привет,у меня вопрос,скрипт записует в тхт файл строчки,но не больше 3,добабляю еще старые стирает и все равно три строки,незнаю почему помогите
|
|
|

31.01.2008, 18:24
|
|
Участник форума
Регистрация: 05.07.2006
Сообщений: 285
Провел на форуме: 3295822
Репутация:
117
|
|
Сообщение от Demetra
всем привет,у меня вопрос,скрипт записует в тхт файл строчки,но не больше 3,добабляю еще старые стирает и все равно три строки,незнаю почему помогите
ну три строчки потому что такая прога видимо а по поводу "все равно три строчки) так это ты при создании дескриптора файла указал перезаписывать его а не дописывать в конец файла.
|
|
|

31.01.2008, 18:31
|
|
Познающий
Регистрация: 27.08.2007
Сообщений: 48
Провел на форуме: 91291
Репутация:
17
|
|
а где это исправить?всмысле мне надо новые наверх и старые неудалять.я ниче неуказывала это будет админка для библиотеки
|
|
|

31.01.2008, 18:36
|
|
Познающий
Регистрация: 27.08.2007
Сообщений: 48
Провел на форуме: 91291
Репутация:
17
|
|
ой я не в ту тему
|
|
|

02.02.2008, 00:27
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 413
Провел на форуме: 1301036
Репутация:
1334
|
|
Вопрос по mod_perl
Есть такая штука...
Файо index.pl
Код:
...
получили параметр $mod
Если он пустой, то mod=vasya
require ".../$mod.pl";
...
print @data;
...
Каждый модуль ($mod.pl) заполняет @data своими данными
Короче под mod_perl @data всегда от модуля Vasya... Как такую конструкцию сделать правильно?
|
|
|

02.02.2008, 14:42
|
|
Постоянный
Регистрация: 11.11.2006
Сообщений: 595
Провел на форуме: 1845062
Репутация:
1079
|
|
Вопрос... Можно ли декомпилировать код, защищенный ByteLoader 0.06?
|
|
|

23.02.2008, 00:28
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме: 500748
Репутация:
137
|
|
Ребята не подскажите пожайлуста функцию для поиска ключа массива по значению.
В пхп я знаю есть функция
array_search("значение", $массив);
в перле есть функция поиска позиции символа в строке
index("hello","e") ;
но для массива она не подходит
искал в поисковиках та и не нашел не перебирать же загоняя в цикл каждое значение ключа это займет очень много вермя так как массив очень большой у меня получился
и ещё если можно посоветуйте пожайлуста сайт где описываются все функции в перле. заранее спасибо
|
|
|

23.02.2008, 00:39
|
|
Members of Antichat - Level 5
Регистрация: 09.10.2006
Сообщений: 1,698
Провел на форуме: 9098076
Репутация:
4303
|
|
перебирай весь =\
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|