[Руоф] Код для инжекта в память.

[HellD]

Что закрытие окна(диалоги,торги, окно перса, все остальное), что вывод текста... не работает ни одно ни другое... выбивает клиент, что и как не менял... не знаю как там у Вас на VB.Net, но у нас на delphi ничерта не робит)

[krukovis]

Цитата: Сообщение от HellD но у нас на delphi ничерта не робит)

Ни один человек на форуме так и не сказал, а работают ли у него другие инжекты? Прыжок например, или еще что то?

[HellD]

Цитата: Сообщение от krukovis Ни один человек на форуме так и не сказал, а работают ли у него другие инжекты? Прыжок например, или еще что то?

да, все остальные инжекты работают на ура...

[krukovis]

Цитата: Сообщение от HellD да, все остальные инжекты работают на ура...

Ну значит нужно взять готовый инжект и изменить его под выложенный мною асм.
Я не знаю как должны выглядеть точно функции на Delphi, потому что Delphi не знаю. Но знаю какой должен быть код на ассемблере. Его я выложил и выложил свое видение функции на Делфи (по аналогии с другими инжектами на делфи), ошибки в синтаксисе Делфи я просил помочь найти участников форума (особо никто не откликнулся). Если функции - не правильные - исправьте их в соответствии с синтаксисом Делфи, взяв мой асм.
Функция "Принт" на делфи может и не работать, потому что, например для отображения текста на ВБ.Нет, текст нужно сначала помещать куда то в память, а в функцию передавать уже указатель на эту строку в памяти. Но закрытие окна - должно работать не зависимо ни от чего, если ее правильно вызвать.

Если не сложно - пришли в личку или выложи тут код, как у тебя вызывается инжект прыжка, только полностью(делфи я ж не знаю и не смогу дописать ничего или смогу, но с ошибками), чтобы я смог запустить этот код у себя.

[HellD]

Сори не стал особо наводить красоту в коде, быстренько настрочил...

Button1 - коннектит к окну с хэндлом указанным в edit1

Button2 - отправляет перса в координаты 0,0,0 = все работает.. .ну по крайне мере бежать начинает ))
Button3 - закрывает окно характеристик персонажа(ну вернее должно было бы) = вылет клиента
Button4 - Должно выводить текст Perfect World = вылет клиента
Button5 - инжект прыжка = работает

Инжекты в том виде что и тут.. я прост не помню уже что менял и как ток не пробовал... поэтому свои перековерканные и все равно не рабочие кидать не стал, взял от сюда... во вложении zip c исходником проекта на делфе и скомпилированной исполняшкой...


И что б его... как тут спойлер всунуть? )) а то так исходник кинуть слишком громоздко ((

[krukovis]

Цитата: Сообщение от HellD Инжекты в том виде что и тут.. я прост не помню уже что менял и как ток не пробовал... поэтому свои перековерканные и все равно не рабочие кидать не стал, взял от сюда... во вложении zip c исходником проекта на делфе и скомпилированной исполняшкой...

Спасибо. Дома проверю и, если получится исправить, выложу тут.

Добавлено через 10 часов 1 минуту
Итак, 100500 спасибо Dinmaite, за пояснения как работать с asm на Delphi.
И наконец то рабочий вариант:
================================================== ===========================
Функция Закрытия окна на Delphi.
================================================== ===========================
Функция для внедрения:

procedure WinCloseCall(aPParams: PParams); stdcall;
var
WIN_OFFSET: DWord;
PW_Call: Pointer;
const
PW_BASE_ADDR=$B27A04;
PW_BTN_CLOSE=$ACC3BC;

begin
WIN_OFFSET := aPParams^.Param1;
PW_Call := Pointer($616EA0);
asm
pushad

mov eax, PW_BASE_ADDR
mov eax, dword ptr [eax]
mov eax, dword ptr [eax+$1C]                            
mov eax, dword ptr [eax+$18]
mov eax, dword ptr [eax+$8]

mov ebx, WIN_OFFSET
mov eax, dword ptr [eax+ebx]
push eax

push PW_BTN_CLOSE

call PW_Call

popad
end;
end;

Внедряющая функция:

procedure WinClose(WIN_OFFSET:DWord);
var aParams:TParams;
begin
aParams.Param1:=WIN_OFFSET; //Смещение окна из списка
InjectFunc(hProcess,@WinCloseCall,@aParams,SizeOf(aParams));
end;

Вызов:

WinClose($40C); //Закрыть окно Торговли и Ремоната.

Список смещений для передачи в функцию:

0x2B8 Действия
0x2C0 Игроки и группы
0x2C4 Служба поддержки
0x314 Характеристики персонажа
0x32C Ремонт
0x36C Призыв духа
0x3E8 Помощь
0x40C Инвентарь и Окно Торговли и Ремонта
0x428 Диалог с NPC
0x438 Домашние животные
0x458 Окно алхимика
0x468 Панель 1-9
0x470 Горячие клавиши
0x4B0 Настройки
0x4C4 Умения
0x50C Системная панель
0x51C Задания

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

Функцию Print ремонтировать не буду, т.к. не знаю как это делать на Delphi и не считаю ее существенной, чтобы узнавать.

[Anzorias]

А как реализовать поиск предмета в инвентаре?
Ну на примере "Кораллов". Если они лежат в инвентаре, то будут открываться.
Если нет, то ... дальше сам.

[BritishColonist]

Anzorias, каких ещё кораллов? Ладно-ладно, я-то ещё играл на этой фришке и знаю, что это такое, но мне кажется, что мало кому понятно, в чём соль.

Короче, бежишь по инвентарю и проверяешь TypeId предметов.
Адреса и смещения:

BA = B27A04
PlayerStruct = BA +1C +34 // начало структуры игрока
Inventory = PlayerStruct +CAC // структура инвентаря
SlotCount = Inventory +10 // количество ячеек инвентаря
ItemsStart = Inventory +C // начало структуры самих предметов
ItemX_Start = ItemsStart +X*4 (X in [0..SlotCount]) // начало структуры предмета, лежащего в ячейке X
Если в ItemX_Start лежит 0, то в ячейке нет предмета. В противном случае можно посмотреть его TypeId:
ItemX_TypeId = ItemX_Start +8
Этот TypeId соответствует типу, взятому из базы pwdatabase.com, поэтому не составит труда получить их из этой базы. А если составит, то проверить можно через Cheat Engine, составив цепочку оффсетов по описанным выше данным.

Если ItemX_TypeId совпадёт с Id кораллов, то формируешь пакет на использование этого предмета и отсылаешь его серверу.

[rufat2005]

а как можно пользоваться с пакетами полученными packetlistener
точнее вот 2 пакета
280000010000276F0000 -
280000010100896F0000
пакеты для открытия коробок
куда нуна прописать пакеты в вышеуказанных примерах (инжектах) чтоб пользоваться в delphi
заранее спасибо!

[krukovis]

Цитата: Сообщение от rufat2005 а как можно пользоваться с пакетами полученными packetlistener точнее вот 2 пакета 280000010000276F0000 - 280000010100896F0000 пакеты для открытия коробок куда нуна прописать пакеты в вышеуказанных примерах (инжектах) чтоб пользоваться в delphi заранее спасибо!

В функцию отправки пакетов.

[dwa83]

Может кто-нибудь поделиться инжектами для пета? В частности, атака, использование скилла, перевод режима или хотябы адреса инжектов. А дальше сам допилю.

Или может кто-нибудь поможет разобраться со следующим кодом?

ASM

CPU Disasm
Address Hex dump Command Comments
00698BA0 /$ PUSH EBX
00698BA1 |. PUSH EBP
00698BA2 |. PUSH ESI
00698BA3 |. MOV ESI,DWORD PTR SS:[ARG.4]
00698BA7 |. LEA EBP,[ESI+0A]
00698BAA |. PUSH EBP ; /Arg1
00698BAB |. CALL 00879990 ; \elementclient.008798E0
00698BB0 |. MOV EBX,EAX
00698BB2 |. ADD ESP,4
00698BB5 |. TEST EBX,EBX
00698BB7 JE SHORT 00698C01
00698BB9 |. MOV EAX,DWORD PTR SS:[ARG.1]
00698BBD |. MOV ECX,DWORD PTR SS:[ARG.2]
00698BC1 |. MOV WORD PTR DS:[EBX],67
00698BC6 |. MOV DWORD PTR DS:[EBX+2],EAX
00698BC9 |. TEST ESI,ESI
00698BCB |. MOV DWORD PTR DS:[EBX+6],ECX
00698BCE JE SHORT 00698BE9
00698BD0 |. MOV ECX,ESI
00698BD2 |. MOV ESI,DWORD PTR SS:[ARG.3]
00698BD6 |. MOV EDX,ECX
00698BD8 |. PUSH EDI
00698BD9 |. LEA EDI,[EBX+0A]
00698BDC |. SHR ECX,2
00698BDF |. REP MOVS DWORD PTR ES:[EDI],DWORD PTR DS:[ESI]
00698BE1 |. MOV ECX,EDX
00698BE3 |. AND ECX,00000003
00698BE6 |. REP MOVS BYTE PTR ES:[EDI],BYTE PTR DS:[ESI]
00698BE8 |. POP EDI
00698BE9 |> A1 047AB200 MOV EAX,DWORD PTR DS:[0B27A04]
00698BEE |. PUSH EBP ; /Arg2
00698BEF |. PUSH EBX ; |Arg1
00698BF0 |. MOV ECX,DWORD PTR DS:[EAX+20] ; |
00698BF3 |. CALL 006737B0 ; \elementclient.006737B0
00698BF8 |. PUSH EBX ; /Arg1
00698BF9 |. CALL 008799A0 ; \elementclient.008798F0
00698BFE |. ADD ESP,4
00698C01 |> POP ESI
00698C02 |. POP EBP
00698C03 |. POP EBX
00698C04 \. RETN

Если кусок кода после жёлтого перехода проигнорировать с помощью замены на JMP, в клиенте происходит замораживание кнопок "пет, к ноге" и "пет, стой где стоишь" Следовательно в этом куске происходит смена данных режимов. Там происходит только запись в память каких то значений по адресу, находящемуся в EDI, я так понимаю это указатель на какую-то структуру.

В среднем вызове функции параметр Arg2 - какое-то значение ( E - при нажатии "следовать", "на месте" или перевода режима агрессивности, B - при нажатии атаки, F - при нажатии на любой скилл пета,) Arg1 - тут наверное указатель на какую-то структуру.
Структуру пета, или хз на что ещё. Может кто-нибудь помочь разобраться с этим если не лень? В идеале хотелось бы добиться полного управления поведением петом через инжекты, но буду рад, если получится хотябы простая атака.

[rufat2005]

тоесть

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
aParams := $280000010000276F0000;
StrToByte(Packet,aParams);
InjectFunc(ProcessID,@PacketCall,@aParams,sizeof(a Params));

или как?) плизз помогите
end;

Добавлено через 2 минуты
у меня почему та при прочтении памяти с помощью OLLYDBG не выходит /Arg1 и \elementclient.008798F0

когда делаю по гайду... у меня последная версия OLLYDBG 1.10
но таргет к мобу прошел....

[Skuka.95]

Цитата: Сообщение от rufat2005 aParams := $280000010000276F0000;

если не ошибаюсь там надо а не aParams, а Packet

[rufat2005]

всё разобрался уже)) где что прописать))

Добавлено через 7 часов 25 минут
а как можно узнать ид квеста у персонажа?
нужно узнать какой ид квеста у персонажа

[gurin]

Добрый день, не подскажете, как при установке кота программно нажать на кнопку OK?

вот это не сработало почему-то (вылетел клиент)

const
  base_addr = $B27A04;

procedure BtnPressAs(Btn: PParams); stdcall;
var
  PW_Call: Pointer;
  PW_BASE_ADDR: dword;
  BT_ADDR: dword;
begin
  PW_Call := Pointer($00788380);//0073E250
  PW_BASE_ADDR := base_addr;
  BT_ADDR := Btn^.Param1;
  asm
    pushad
    mov eax, BT_ADDR
    push eax
    mov esi, PW_BASE_ADDR
    mov esi, dword ptr [esi]
    mov esi, dword ptr [esi+$4]
    mov esi, dword ptr [esi+$8]
    mov esi, dword ptr [esi+$70]//18 set текущее окно
    mov ecx, esi
    call PW_Call
    popad
  end;
end;

procedure PushBtnOK(hProc: THandle);
var
  aParams: TParams;
  aParamsSize: dword;
begin
  aParams.Param1 := $00A0DB94; //00976730
  aParamsSize := SizeOf(aParams);
  InjectFunc(hProc, @BtnPressAs, @aParams, aParamsSize);
end;

Добавлено через 8 часов 27 минут

Цитата: Сообщение от krukovis Список смещений для передачи в функцию: 0x2B8 Действия 0x2C0 Игроки и группы 0x2C4 Служба поддержки 0x314 Характеристики персонажа 0x32C Ремонт 0x36C Призыв духа 0x3E8 Помощь 0x40C Инвентарь и Окно Торговли и Ремонта 0x428 Диалог с NPC 0x438 Домашние животные 0x458 Окно алхимика 0x468 Панель 1-9 0x470 Горячие клавиши 0x4B0 Настройки 0x4C4 Умения 0x50C Системная панель 0x51C Задания

как получить смещения других окон? В частности окна, которое появляется при установке кота.

Цитата: Сообщение от krukovis PW_BTN_CLOSE=$ACC3BC;

как получить адрес других кнопок?