Внедрение в процесс

[BOBAH13]

Сообщение от Niklan

... У меня стоял IntToStr, но постоянно ноль казал. Пойду с другой программой попробую.
А во что записывается значение указанного адреса?
ReadProcessMemory(h, Pointer(addr), @buf, 11, outbytes);
в buf или outbytes?

Смотрим MSDN
p.s. сколько можно уже ?

[Niklan]

Сообщение от BOBAH13

Смотрим MSDN
p.s. сколько можно уже ?

почитал и понял что из моего кода он будет записывать в buf: dword;
Вопрос, а что в коде означает @, считывать надо вседаки с buf или @buf.
Вот новый код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure value;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  WindowName: integer;
ProcessId: integer;
ThreadId: integer;
HandleWindow: Integer;
write, outbytes: cardinal;
buf,too, addr: dword;
pTemp: Pointer;
value: Word;
h: hwnd;


implementation

{$R *.dfm}

procedure TForm1.value;
begin
  addr := $2E68DDC8;
  h:=FindWindow(nil, 'name');
  ThreadId := GetWindowThreadProcessId(h ,@ProcessId);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
  ReadProcessMemory(h, Pointer(addr), @buf, 4, outbytes);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption:=IntTostr(buf);
end;

end.

Также при помощи Cheat Engine я смог найти в игре значение. Такое же и пишут на буржуйских форумах.
Но что именно надо вставлять в addr я не понимаю. Точнее говоря я не вижу разницу между ними.

[BOBAH13]

Короче, вроде понимаите и в то же время полное не понимае.

addr := $2E68DDC8; // тут кстати может быть и обратная ситуация, всегда путаюсь
// т.е. писать наоборот: $c8dd682e
  HandleWindow :=FindWindow(nil, 'name');
  if(HandleWindow  <> 0) then
  begin
    GetWindowThreadProcessId(HandleWindow  ,@ProcessId);
    h := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    if(h <> 0) then
    begin
        // buf: DWORD;

        if(ReadProcessMemory(h, Pointer(addr), @buf, sizeof(DWORD), outbytes) and (outbytes = sizeof(DWORD))) then
        begin
          // о да прочитали... теперь ваше 4х байтовое значение в buf
        end;
      CloseHandle(h);
    end;

p.s. Niklan: очень надеюсь но то, что что-то но отложилось в голове, т.к. когда даеш все готовое, обычно это ноль. Рад за вас.

[Niklan]

Сообщение от BOBAH13

Короче, вроде понимаите и в то же время полное не понимае.

addr := $2E68DDC8; // тут кстати может быть и обратная ситуация, всегда путаюсь
// т.е. писать наоборот: $c8dd682e
  HandleWindow :=FindWindow(nil, 'name');
  if(HandleWindow  <> 0) then
  begin
    GetWindowThreadProcessId(HandleWindow  ,@ProcessId);
    h := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    if(h <> 0) then
    begin
        // buf: DWORD;

        if(ReadProcessMemory(h, Pointer(addr), @buf, sizeof(DWORD), outbytes) and (outbytes = sizeof(DWORD))) then
        begin
          // о да прочитали... теперь ваше 4х байтовое значение в buf
        end;
      CloseHandle(h);
    end;

ОГРОМНЕЙШЕЕ СПАСИБО!!!!! Просто в восторге! ОН ВЫВЕЛ ЭТО ЗНАЧЕНИЕ!!!!!!!!!!!!!!!!!

так рад что аж слов нету

[Niklan]

Game.dll+8EDDC8
Как это в addr написать?
Это надо сделать для того чтобы значение было постоянным.
Так значение будет постоянно статичным.
Как я понимаю его надо найти и вбить в переменную

[JTG]

uses ..., TlHelp32;
...
Function GetModuleBase(PID: DWord; moduleName: PChar): dword;
var
   snapshot: THandle;
   modules: TModuleEntry32;
begin
  result := 0;
  snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
  modules.dwSize := sizeof(TModuleEntry32);
  if Module32First(snapshot, modules) then
    While Module32Next(snapshot, modules) do
    if StrComp(moduleName, modules.szModule) = 0 then
      begin
       CloseHandle(snapshot);
       result := dword(modules.modBaseAddr);
       exit;
      end;
   CloseHandle(snapshot);
end;

опять кто-то варкрафт ломает

[Niklan]

Сообщение от JTG

uses ..., TlHelp32;
...
Function GetModuleBase(PID: DWord; moduleName: PChar): dword;
var
   snapshot: THandle;
   modules: TModuleEntry32;
begin
  result := 0;
  snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
  modules.dwSize := sizeof(TModuleEntry32);
  if Module32First(snapshot, modules) then
    While Module32Next(snapshot, modules) do
    if StrComp(moduleName, modules.szModule) = 0 then
      begin
       CloseHandle(snapshot);
       result := dword(modules.modBaseAddr);
       exit;
      end;
   CloseHandle(snapshot);
end;

опять кто-то варкрафт ломает

спасибо, потом разберусь когда встречу данные адреса, пока нашел обычные без game.dll+
p.s. даже близко не варкрафт, и нифига мы не ломаем =)

[Niklan]

Кароче ввел я адреса, он выводит все правильно.
Но перезапустив игру он выдает на все лейбелы значение 21.
Хотя все адреса прежние...
На сколько я понимаю это проблемма из-за того что id или еще что-то у game.dll или ехе программы изменилось.
За место Game.dll+8EDDC8 я писал 2E75DDC8, и он выводил, перезапустив игру стало 2E78DDC8.
Как при помощи кода выше писать в addr:
addr:= Game.dll+8EDDC8;
или чтобы он заместо Game.dll+8E вставлял что нужно.

Код тот что выше выдал нам 770637824
Как из этого нам взять первые 4 цифры которые меняются, точнее говоря как определить где они.
Или что это он выдал?

И еще заметил что из первых 4ех чисел что заменют game.dll+8E, 4 цифра меняется, остальные статические.

[BOBAH13]

result := dword(modules.modBaseAddr);

Вам же дали, вот ведь он тот самый Game.dll (я вам давным давно говорил об этом, о поиске модуля и его адреса, видимо прослушали)
Теперь к нему прибавляйте 8eddc8 и будет вам счатье.

p.s. а можно поинтерисоватся, а почему Вы к себе обращаитесь на "мы", "нам" ?

[Niklan]

Сообщение от BOBAH13

result := dword(modules.modBaseAddr);

Вам же дали, вот ведь он тот самый Game.dll (я вам давным давно говорил об этом, о поиске модуля и его адреса, видимо прослушали)
Теперь к нему прибавляйте 8eddc8 и будет вам счатье.

p.s. а можно поинтерисоватся, а почему Вы к себе обращаитесь на "мы", "нам" ?

я делаю с другом

Мы вот чот понять не можем.

addr:=result+8EDDC8;

не робит


В общем как к адресу прибавить переменную типа dword