Сбор пати

[Gorrilaz]

Алгоритм сбора группы/отряда.
Где то было по этому поводу...
Может кто то помочь/подсказать?

[sedrik1992]

В теме оффсетов где-то на последних страницах искали флаг пригласа в патьку.
Я думаю, когда приходит приглас, то флаг пригаса меняется.
затем выполняется какая-то ф-я, в которой 100% в качестве аргумента
будет присутствовать ID того, кто приглашает (т.к. выводится имя того, кто приглас кидает). Я не сильно силён в asm, поэтому сам с этим помочь не могу

[Ginrey]

не понял вопроса на счет алгаритма. а пакет состоит из 3 составляющих это{1C00} {ID отправляющего}+{ID пати} по 8 байт от каждого. ID всегда разный

[Gorrilaz]

Цитата: Сообщение от Ginrey не понял вопроса на счет алгаритма. а пакет состоит из 3 составляющих это{1C00} {ID отправляющего}+{ID пати} по 8 байт от каждого. ID всегда разный

Если просто то... Как собрать отряд по средствам программного кода?

[Ginrey]

Gorrilaz, в том и суть что неизвестно как вы хотите их собрать , возможностей есть несколько, но для этого надо уметь находить нужные области памяти для дальнейшего инжектинга

[Gorrilaz]

Как то так.
(Взято из этой темы)
type
PParams = ^TParams;
TParams = packed record
Packet: array [0..100] of byte;
Param1,Param2,Param3: DWord;
Param4: array [1..100] of widechar;
end;

const
PW_BASE_ADDRESS = $009C0E6C;
PW_GAMERUN_ADDR = $009C1514;
Injector (© asgborges)

Код:
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;


Инжект пакетов.
Packet Injection (© Dinmaite) (Адрес обновлен)

Код:
procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacketointer;
LenWord;
begin
CallAddress:=Pointer($0060E310); // Старый адрес - $005D7C30
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('$'+bytecode[i*2+1]+bytecode[i*2+2]);
end;

procedure Packet(Packet: string);
var
aParams: TParams
begin
StrToByte(Packet,aParams);
InjectFunc(ProcessID,@PacketCall,@aParams,sizeof(a Params));
end;


1B 00 E1 0E 56 00 - Пригласить в пати. Песочный - id персонажа.


Как то хочется вот из этого соорудить сбор пати)

[Paseka]

тоже кстати интересует этот вопрос, не знаю для чего ТСу, но я себе представляю это как автоматический сбор пати и тп в ХХ.

[tianddu]

меняй офсеты ВА и ГА, для примера брось кнопку и вставь в нее...
Packet('1C00'+XXXXXXXX+YYYYYYYY);
что значать Х и У уже описано выше, как их получать разжевано в последних страницах поисков офсетов

[Gorrilaz]

А CallAddress есть для РуОфф?

Уже нашел... 6F55E0

Сам спросил, сам ответил)

[Gorrilaz]

Цитата: Сообщение от tianddu меняй офсеты ВА и ГА, для примера брось кнопку и вставь в нее... Packet('1C00'+XXXXXXXX+YYYYYYYY); что значать Х и У уже описано выше, как их получать разжевано в последних страницах поисков офсетов

Я сейчас задам гениальный вопрос наверное, но куда вставлять Packet('1C00'+XXXXXXXX+YYYYYYYY) в коде, что значат X и Y это я понял.

[Ginrey]

Цитата: Сообщение от Gorrilaz Я сейчас задам гениальный вопрос наверное, но куда вставлять Packet('1C00'+XXXXXXXX+YYYYYYYY) в коде, что значат X и Y это я понял.

вопрос действительно гениальный, начнем с того, откуда все начиналась и какова была первоначальная цель - "принимать в пати" , так в чем собственно заминка? пакет принимает пати, следовательно отправлять его тогда , когда приглашение поступило, вроде бы логично

[Gorrilaz]

Цитата: Сообщение от Ginrey вопрос действительно гениальный, начнем с того, откуда все начиналась и какова была первоначальная цель - "принимать в пати" , так в чем собственно заминка? пакет принимает пати, следовательно отправлять его тогда , когда приглашение поступило, вроде бы логично

Не не не, я может быть не так вопрос сформулировал...

Инжект пакетов.
Packet Injection (© Dinmaite) (Адрес обновлен)

Код:
procedure PacketCall(aPParams:PParams); stdcall;
var
CallAddress,pPacketointer;
LenWord;
begin
CallAddress:=Pointer($0060E310); // Старый адрес - $005D7C30
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;

Вот пакет 28 00 01 01 0C 00 (вызова флайта к примеру)
Куда в коде инжекта вставляется пакет?

[tianddu]

допустим берешь процедуру по нажатию кнопки...пишешь в ней Packet('280001010C00');
она вызовет соответственно:

Цитата: procedure Packet(Packet: string); var aParams: TParams begin StrToByte(Packet,aParams); InjectFunc(ProcessID,@PacketCall,@aParams,sizeof(a Params)); 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('$'+bytecode[i*2+1]+bytecode[i*2+2]); end;

которая в свою очередь выдаст готовый к употреблению пакет в aParams.Packet[i]...
затем пойдет дальше:

Цитата: InjectFunc(ProcessID,@PacketCall,@aParams,sizeof(a Params));

вызовется функция инжекта с этими параметрами.. один из параметров равен процедуре PacketCall так сказать...
а конкретно в процедуре вроде сюда
длинна
Len:=aPParams^.Param1;
пакет
pPacket:=@aPParams^.Packet;

длинна
push Len
пакет
push pPacket

[Gorrilaz]

Цитата: Сообщение от tianddu procedure Packet(Packet: string); var aParams: TParams begin StrToByte(Packet,aParams); InjectFunc(ProcessID,@PacketCall,@aParams,sizeof(a Params)); end;

В упор не видел эту процедуру в теме Dinmaite (она была ниже видимой области)

Очень стыдно. Очень, очень стыдно...

[Ссылки могут видеть только зарегистрированные пользователи. ]

Теперь то всё сходится.

Спасибо.