L2PacketHack 3.1.8 AE (Advanced Edition)

[PanAm]

Сенкс

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

PS. И еще, ну очень нехватает функции посылки нажатий клавишь в окно. )))

Отпало, пошел тупо - нашел алгоритм шифрации от клиента...

[xkor]

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

ЗЫЖ В закладке Скрипты по ctrl+s сохраняет скрипт

блин я это хотел сделать уже хз скока но так руки и не доходили), молодца!!!

[NLObP]

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

блин я это хотел сделать уже хз скока но так руки и не доходили), молодца!!!

Исправил маленькую s на большую S и сразу заработало.

  // добавили комбинацию клавиш 'сохранить файл' - ctrl+s
  if(Key=Ord('S'))and(Shift=[ssCtrl]) then Button20Click(Sender);

[alexsl]

еще бы вставить процедурку, чтоб из скрипта можно было изменять ключ, думаю оч нужная фича была бы.
будет ли так работать?

var
  stmp: string;
<---cut--->
  if MethodName = 'INITKEYS2' then
  begin
     stmp:=Params[0];
     b:=TfsScript(Integer(Params[1])).Variables['ConnectID'];
     Thread[Integer(Params[1])].xorS.InitKey2(stmp,Thread[b].isInterlude);
    // log('initkeys2:'+stmp);
  end
  else
  if MethodName = 'INITKEYC2' then
  begin
     stmp:=Params[0];
     b:=TfsScript(Integer(Params[1])).Variables['ConnectID'];
     Thread[Integer(Params[1])].xorC.InitKey2(stmp,Thread[b].isInterlude);
  end
<---cut--->

[NLObP]

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

еще бы вставить процедурку, чтоб из скрипта можно было изменять ключ, думаю оч нужная фича была бы.
будет ли так работать?

Пример скрипта можно для теста?
Я так понял так имелось в виду?
procedure InitKeyS(key: string);
procedure InitKeyС(key: string);

Скомпилил, только названия без двойки: InitKeyS, InitKeyC

[alexsl]

чтоб не заморачиватся с разгадкой генерации начального ключа, была мысль использовать какойнить пакет,в частном случае, известно, что 3 пакет от клиента это выбор чара 0D=CharacterSelected:d(CharSlot) 0D 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...., после которого следовало вычислить ключ и изменить оный.

в скрипте имхо так:
if FromClient and PckCount=3 then
begin
// key:=танцы с бубном получения ключа
InitKeyS(key)
end;


чтоб это работало, нужно :
добавить функцию для скриптов возвращ. номер пакета PckCount.
и программе добавить новую процедуру InitKey2 котороя инициализирует все 8 байт.

procedure TXorCoding.InitKey2(const XorKey; Interlude: Boolean = False);
const
  KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);
  KeyIntrl: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97);
var key2:array[0..15] of Byte;
begin
  if Interlude then begin
    keyLen:=15;
    Move(XorKey,key2,8);
    Move(KeyIntrl,key2[8],8);
  end else begin
    keyLen:=7;

//    Move(XorKey,key2,4);
// тут меняю ключ 8 байт
    Move(XorKey,key2,8);
//    Move(KeyConst,key2[4],4);
  end;
  Move(key2,GKeyS,16);
  Move(key2,GKeyR,16);
end;

зы: еще идейка, чтоб при загрузке нерасшифрованных (сохраненных как есть) пакетов из текстового файла они проходили через процедуру расшифровки/шифровки заново, т.е. удобно подбирать(или тестировать длл невхор) алгоритм, смотря в логах что получилось, т.к. большую часть времени нет возможности запускать линейку.

зы: в общем как всегда желания не совпадают с возможностями
зыы: в системном программирования я "не взуб ногой" больше прикладник.

[QaK]

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

Выложил в разделе файлов скомпилированную версию 3.2.1 и 3.1.8 с поддержкой ДЛЛ.

т.е. ты в 3.2 тож добавил callpr и callfnc?

[NLObP]

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

т.е. ты в 3.2 тож добавил callpr и callfnc?

Да, мне Grinch давал main.pas, я от туда взял и вставил в 3.2.0.

[PanAm]

эх, к вашему проекту очень нехватает модуля с функциями для работы с array of PChar, аналогов ReadX(i) и WriteX. Может у кого есть готовый?

[NLObP]

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

эх, к вашему проекту очень нехватает модуля с функциями для работы с array of PChar, аналогов ReadX(i) и WriteX. Может у кого есть готовый?

По подробнее можно? Чего это такое?