Защита для онлайн игры Lineage 2 [DELPHI]

[Denever]

Всем привет. Нужна очень срочно ваша помощь.
Имееться код написанный на Delphi [SPS] Защита для онлайн игры Lineage 2.
В процедуре procedure doHandle(aKey: Integer; blackList: Pchar); методом St.Add('.'); идёт определение запрещённых программ по процессу,титулу,и классу.
Помогите разобратся как добавить свои процессы,титулы, и классы на запрещённые программы.
Какая цифра за что отвечает и если можно примером. Спасибо.

Код: http://pastebin.com/nT67J54v

[SeregaZ]

тебе на другой форум надо тут форум типа "как бы защиту обойти", а не "как бы защиту написать".
попробуй на mmocom.ru - там сообщество горе-админов серверов L2, которые сообща решают, каких проблем еще, нам читорам, подкинуть.

[Denever]

Сообщение от SeregaZ

тебе на другой форум надо тут форум типа "как бы защиту обойти", а не "как бы защиту написать".
попробуй на mmocom.ru - там сообщество горе-админов серверов L2, которые сообща решают, каких проблем еще, нам читорам, подкинуть.

Да я думаю тут помогут все равно есть люди знающие Delphi.

[xkor]

Denever, 1 - имя класса окна, 2 - заголовок окна, 3 - имя файла

[Denever]

Сообщение от xkor

Denever, 1 - имя класса окна, 2 - заголовок окна, 3 - имя файла

Их можно добавлять в любом расположении?
Т.е примерно:

  St.Add('2 l2Fish ');
  St.Add('2 la2rc ');
  St.Add('3 teste.exe')
  St.Add('2 L2Shkey ');
  St.Add('2 Clickermann ');
  St.Add('1 doKillCharacter');

Или же есть какой-то определённый распорядок?

[Fertis]

Сообщение от Denever

Их можно добавлять в любом расположении?
Т.е примерно:

  St.Add('2 l2Fish ');
  St.Add('2 la2rc ');
  St.Add('3 teste.exe')
  St.Add('2 L2Shkey ');
  St.Add('2 Clickermann ');
  St.Add('1 doKillCharacter');

Или же есть какой-то определённый распорядок?

без разницы

[Denever]

При добавлении методом определение титула St.Add('2 okno '); всё работает но с определением имён программ не хочет St.Add('3 file.exe'); в чём проблемка?

[xkor]

Denever, у имён файлов должен быть нижний регистр

fn := LowerCase(ExtractFileName(Pe.szExeFile));
for i := 0 to PEList.Count-1 do
  if pos(PEList[i],fn) = 1 then exit;

[Denever]

Нижний регистр - маленькие буквы как я понял?)
Добавлял St.Add('3 cmd.exe'); не хочет..

На данный момент лист такого рода:

   St.Add('2 hide');
   St.Add('2 hide');
   St.Add('2 hide');
   St.Add('2 hide');
   St.Add('2 hide');
   St.Add('2 hide');
   St.Add('2 hide ');
   St.Add('3 cmd.exe');

xkor, приведи мне пример пожалуйста а то я тугадум..

[mira]

Расширение точно нужно писать?