Отправка пакета

[Zo_Om4eG]

Такая проблема: при отправке пакета медитации, смены итемов местами в инвентаре, всё проходит успешно, но при отправке более длинного пакета, разрывается соединение с сервером.

P.S. Пакет - 25002E0000008800000000000000DC08000000000000000000 00000000000000000000000000000000000000000000000000 00000000000000009245000009470000000000000000000000 00000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000D0000 000300000000000000000000000000000000000000

[Smertig]

Кривой инжектор. На чём пишешь?
Подозрение, что пакет на:
1. крафт нирваны
2. регрейд 8 ранга
3. трактаты

[Zo_Om4eG]

Smertig, Пишу на Delphi. Пакет крафта трактата.
Код:

Цитата: procedure InjectFunc(ProcessID: Cardinal; Func, aParams: Pointer; aParamsSize: DWord); var hThread: THandle; lpNumberOfBytes: DWord; ThreadAddr, ParamAddr: Pointer; begin if ProcessID<>0 then begin ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(ProcessID, ThreadAddr, Func, 256, lpNumberOfBytes); ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize, lpNumberOfBytes); hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes); WaitForSingleObject(hThread, INFINITE); CloseHandle(hThread); VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE); VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE); end; end; procedure PacketCall(aPParams:PParams); stdcall; var CallAddress,pPacketointer; LenWord; begin CallAddress:=Pointer($0063F890); Len:=aPParams^.Param1; pPacket:=@aPParams^.Packet; asm pushad mov ecx, dword ptr [PW_BASE_ADDRESS] mov ecx, dword ptr [ecx+$20] push Len push pPacket call CallAddress popad end; end; procedure StrToByte(Packet:string; var aParams:TParams); var i:integer; begin i:=(length(Packet) div 2)-1; aParams.Param1:=i+1; for i:=0 to i do aParams.Packet[i]:=strtoint('$'+Packet[i*2+1]+Packet[i*2+2]); end; procedure Packet(Packet: string); var aParams: TParams; begin StrToByte(Packet,aParams); InjectFunc(hProcess,@PacketCall,@aParams,sizeof(aP arams)); end; procedure TForm1.Button2Click(Sender: TObject); begin Wnd:=FindWindow(PChar('Elementclient Window'), nil); GetWindowThreadProcessId(Wnd,@PID); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID ); Packet('25002E0000008800000000000000DC080000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000092450000094700000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 000D0000000300000000000000000000000000000000000000 '); end;

[Goooooogle]

проверь BA GA и Packcall

[vladoscom93]

Цитата: Сообщение от Zo_Om4eG Packet('25002E0000008800000000000000DC080000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000092450000094700000000000000 00000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 000D0000000300000000000000000000000000000000000000 ');

убери пробелы это раз и увеличь размер массива байт это два...

[Zo_Om4eG]

Goooooogle, Они верны.

vladoscom93, Пробелов в коде нету, при копировании на форум, появились. Заменил String на AnsiString, результат тот же - вылет с сервера. Ай блин, забыл увеличить сам массив байтов, строчки то заменил, а вот массив... Установил 1..292 (длина пакета именно 292), заработало, трактат скрафтился. Спасибо большое за помощь. Тему можно закрыть.

[vladoscom93]

размер массива байт лучше устанавливать так 0..292 ибо потом могут быть косяки в некоторых случаях