Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
|
"у я бы не сказал что пакетхак хорошо написанное.., косяков там много"
кхе.. кхе.. лишнего кода там много, включая неиспользуемый вообще. а так норм. -)
ну и .. остальные перлы
Оффтоп
delphi Код:
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, стукнул в аську. ибо вопросы все таки есть.
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 25.03.2009 в 17:49.
|