[Помогите!] записать asm код по определёному адресу

[RamDigga]

На С++ это будет выглядеть так :

Цитата: float Ochki=1; DWORD Addres_Solitaire =(DWORD)GetModuleHandleA("Solitaire.exe")+ 0x012345; DWORD RETURN_Addres_Solitaire = Addres_Solitaire + 0x5; _asm { mov eax,[Ochki] pop esi mov esp,ebp jmp dword ptr [RETURN_Addres_Solitaire] }

Пробовал записать на Delphi так :

procedure TForm1.Button1Click(Sender: TObject);
var
Addres_Solitaire,RETURN_Addres_Solitaire:dword;
begin
Addres_Solitaire:=$681B25;
RETURN_Addres_Solitaire:=Addres_Solitaire+6;
begin
 asm
 mov eax, [Addres_Solitaire]
  pop esi
  mov esp,ebp
  jmp dword ptr [RETURN_Addres_Solitaire]
 end;
 end;
end;

Компилятор не кричит, но бьёт ошибку при нажатии кнопки :

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

[VeTaL_UA]

var
Addres_Solitaire:dword;
begin
Addres_Solitaire:=$681B25;
 asm
 mov eax, [Addres_Solitaire]
 pop esi
 mov esp, ebp
 jmp dword ptr [eax+8]
 end;
end;

И сразу тебе говорю. код работать нормально не будет, ибо надо перед тем, как тащить значение из стека, закинуть чего-то в него (push), перед тем, как писать ebp в esp, его надо инициализировать, и ещё желательно использовать pushad и popad. И да, я подозреваю, что +8 не единственное смещение и надо строить цепочку оффсетов побольше.

[RamDigga]

Цитата: Сообщение от VeTaL_UA var Addres_Solitaire:dword; begin Addres_Solitaire:=$681B25; asm mov eax, [Addres_Solitaire] pop esi mov esp, ebp jmp dword ptr [eax+8] end; end; И сразу тебе говорю. код работать нормально не будет, ибо надо перед тем, как тащить значение из стека, закинуть чего-то в него (push), перед тем, как писать ebp в esp, его надо инициализировать, и ещё желательно использовать pushad и popad. И да, я подозреваю, что +8 не единственное смещение и надо строить цепочку оффсетов побольше.

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

[VeTaL_UA]

Цитата: Сообщение от RamDigga Теперь другая ошибка )

Цитата: Сообщение от VeTaL_UA И сразу тебе говорю. код работать нормально не будет

Я же предупредил. Готовый код писать не буду. Пояснения дал более чем точные.

[Dimedrol1536]

RamDigga, А не проще уже С++ юзать?

[RamDigga]

Цитата: Сообщение от Dimedrol1536 RamDigga, А не проще уже С++ юзать?

Проще, но я хз как мою затею на С++ воплотить, а на Delphi уже )

[VeTaL_UA]

Кстати, на C++ тоже интересный человек писал