Инъекция кода.

[Denutrror]

Пожалуйста, помогите разобраться.
Есть такой код:

var
rw : cardinal;
ThreadHand: THandle;
ProcId, hProcess, UBytes, USize: DWord;
threadaddr1, ParamAddr, UBuf: Pointer;

procedure asm_code(aPParams:PParams);Stdcall; 
var
p1,p2: dword;
begin                                    
asm
    pop p1                     
    push p1                      
    mov p2,$6B51d0             
    mov ecx,edi                 
    Lea Edi,[eax+4]          
    MOV EDX,ECX                 
    jmp p2                   
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
GetWindowThreadProcessId( FindWindow('ElementClient Window', nil), @ProcID);
hProcess:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);
if hprocess <> 0 then
  begin
ThreadAddr1 := VirtualAllocEx(hProcess, nil, 68, MEM_COMMIT, PAGE_READWRITE);

WriteProcessMemory(hprocess, ThreadAddr1, @asm_code, 68, UBytes);
end;
end;

В ThreadAddr1, лежит адрес начала внедрённого кода.
Теперь мне нужно вставить jmp, на этот код в память приложения. Я делаю это следующим образом:

procedure asm_codejmp(aPParams:PParams);Stdcall;
begin                                  
asm
jmp threadaddr1
 end;
 end;

procedure TForm1.Button3Click(Sender: TObject);
begin
GetWindowThreadProcessId( FindWindow('ElementClient Window', nil), @ProcID);
hProcess:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);
WriteProcessMemory(hprocess, ptr($6B51CE), @asm_codejmp, 8, rw);
end;

Но в итоге начиная с адреса $6B51CE приложения, вписываются следующие 3 строки:


1. почему помимо jmp`а в память приложения вписываются:
PUSH EBP
MOV EBP,ESP ?
2. и почему при любом значении threadaddr1, jamp происходит на значение ячейки по адресу $D1456C04 ?

[Stilet]

почему помимо jmp`а в память приложения вписываются:

Потому что процедура asm_codejmp так компилируется.
Вообще ты зря вписываешь часть своего кода - не извесно что еще докомпилирует Делфи к нему. Лучше переведи АСМ в его бинарное представление, которое вгони в строку, и уже ее вписывай.

[xoodoo]

почему
PUSH EBP
MOV EBP,ESP ?

Как минимум потому что объявлены локальные переменные p1,p2: dword;

[Denutrror]

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

Лучше переведи АСМ в его бинарное представление, которое вгони в строку, и уже ее вписывай.

Согласен с Вами. Были подобные мысли на этот счёт. Но как мне тоже самое сделать с переходом на внедрённый код? Ведь мой код вписывается в любое свободное, на тот момент, пространство в памяти процесса. И получается, что адрес, на который будет произведён jamp, каждый раз будет разным.
В принципе у меня только здесь возникают проблемы, не знаю, как правильно вписать в память приложения jmp на внедрённый код.
Пожалуйста, подскажите, если есть какие-нибудь решения или идеи по этому поводу.

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

Как минимум потому что объявлены локальные переменные p1,p2: dword;

Обратил внимание, что: если убрать эти две переменные, и оставить к примеру только MOV EAX,EAX, то всё равно перед моим кодом вписываются эти две операции. Я не очень хорошо в этом разбираюсь, возможно это какая-то необходимость( хотя, я сомневаюсь). вообще, Delphi дописывает много чего странного, и абсолютно мне ненужного, после моего кода.

[Stilet]

если есть какие-нибудь решения или идеи по этому поводу.

Так, чисто на заметку: Когда то видел пример одного мегакакера примерно такого содержания:

procedure asm_codejmp(aPParams:PParams);Stdcall;
begin                                   
 lBegin:
 asm
  jmp threadaddr1
 end;
 lEnd:
end;

Где lBegin и lEnd - метки. Какер высчитывал их местоположение, и вписывал не саму процедуру а часть кода из нее между этими метками.
Не в курсе хороший пример или нет, я бы не пробовал, но если тебе интересно поковыряться - попробуй.

вообще, Delphi дописывает много чего странного, и абсолютно мне ненужного, после моего кода.

Так может всетки скажешь зачем тебе именно такой путь?

[Somebody]

Лучше запиши в память процесса название dll'ки, сделай CreateRemoteThread с адресом LoadLibrary (он должен быть одинаковый во всех процессах), а в dll'ке - всё, что нужно, можно и на Delphi.