[alexteam]

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

case PacketB[2] of
 ...ляляля...
            $15: begin
              if not isKamael then begin //and (Thread[id].pckCount=7)
                  sendMSG('Считываем имя соединения...');
                  ii:=1;
                  while not ((Packet.DataB[ii]=0) and (Packet.DataB[ii+1]=0)) do Inc(ii);
                  SetLength(WStr, ii div 2);
                  Move(Packet.DataB[1], WStr[1], ii);
                  EnterCriticalSection(_cs);
                  Thread[id].Name:=WideStringToString(WStr, 1251);
                  sendMSG('Имя соединения:'+Thread[id].Name);
                  LeaveCriticalSection(_cs);
                  //обновляем Список соединений
                  SendMessage(L2PacketHackMain.Handle, WM_UpdateComboBox1, 0, 0);
              end;
            end;
            //CharSelected
            $0B: begin
              if isKamael then begin // and (Thread[id].pckCount=6)
                  sendMSG('Считываем имя соединения...');
                  ii:=1;
                  while not ((Packet.DataB[ii]=0) and (Packet.DataB[ii+1]=0)) do Inc(ii);
                  SetLength(WStr, ii div 2);
                  Move(Packet.DataB[1], WStr[1], ii);
                  EnterCriticalSection(_cs);
                  Thread[id].Name:=WideStringToString(WStr, 1251);
                  if isGraciaOff then
                    Corrector(Packet.Size,id,False,True); // инициализация корректора
                  sendMSG('Имя соединения:'+Thread[id].Name);
                  LeaveCriticalSection(_cs);
                  //обновляем Список соединений
                  SendMessage(L2PacketHackMain.Handle, WM_UpdateComboBox1, 0, 0);
              end;
 ...ляляля...

или.. вот...

function AddDateTime : string;
var
  msg: string;
  x : Integer;
begin
  msg:=datetostr(now)+' '+timetostr(time);
  x:=pos(':', msg); // ищем подстроку
  if x>0 then begin
    Delete(msg, x, length(':')); // удаляем её
    Insert('.', msg, x); // вставляем новую
  end;
  x:=pos(':', msg); // ищем подстроку
  if x>0 then begin
    Delete(msg, x, length(':')); // удаляем её
    Insert('.', msg, x); // вставляем новую
  end;
  result:=msg;
end;

эх :(

function AddDateTime : string;
begin
  result := FormatDateTime('dd.mm.yyy hh.nn.ss' , now);
end;

+бага
в сендпакете в вот таких вот местах.
        //проверка на длину лога пакетов
        if Thread[tid].Dump.Count<MaxLinesInPktLog then begin
          Thread[tid].Dump.Add('03'+ByteArrayToHex(TimeStepB,8)+ByteArrayToHex(Packet.PacketB,Packet.Size));
          PostMessage(L2PacketHackMain.Handle,WM_PrnPacket_Log,Integer(tid and $FF),Thread[tid].Dump.Count-1);
        end else begin
          //сохраняем и очищаем лог пакетов
          sendMSG('Сохраняем лог пакетов...');
          Thread[tid].Dump.SaveToFile(PChar(ExtractFilePath(Application.ExeName))+'logs\'+Thread[tid].Name+' '+AddDateTime+'.txt');
          Thread[tid].Dump.Clear;
          SendMessage(L2PacketHackMain.Handle, WM_ClearPacketsLog, 0, 0);
        end;

заменить на


          Thread[tid].Dump.Add('03'+ByteArrayToHex(TimeStepB,8)+ByteArrayToHex(Packet.PacketB,Packet.Size));
          PostMessage(L2PacketHackMain.Handle,WM_PrnPacket_Log,Integer(tid and $FF),Thread[tid].Dump.Count-1);
          //проверка на длину лога пакетов
        if Thread[tid].Dump.Count<MaxLinesInPktLog then begin
          //сохраняем и очищаем лог пакетов
          sendMSG('Сохраняем лог пакетов...');
          Thread[tid].Dump.SaveToFile(PChar(ExtractFilePath(Application.ExeName))+'logs\'+Thread[tid].Name+' '+AddDateTime+'.txt');
          Thread[tid].Dump.Clear;
          SendMessage(L2PacketHackMain.Handle, WM_ClearPacketsLog, 0, 0);
        end;

т.к. при превышении MaxLinesInPktLog мы упускаем пакет.

NLObP, стукнул в аську. ибо вопросы все таки есть.