C++ zu delphi

[k4ni]

hey leute,

ich will diese c++ function in eine delphi function umwandeln:

Code:

 ULONG reentry_address = GetProcAddress( LoadLibrary("user32.dll"), "PostMessageA" ) + 5;

   __declspec(naked) void myPostMessageA(void)
   {
      __asm
      {
         mov edi,edi
         push ebp
         mov ebp,esp
         jmp [reentry_address]
      }
   }

und hab das erreicht:

Delphi-Quellcode:

function PostMessage1337(
hWnd:HWND;
MSG:UINT;
WPARAM:wParam;
LPARAM:lParam):BOOL;
var
  reentry_address: pointer;
  nub: Integer;
begin
reentry_address:=GetProcAddress( LoadLibrary('user32.dll'), 'PostMessageA');
Nub :=   integer(reentry_address)+5;
reentry_address := pointer(nub);

      asm
         mov edi,edi
         push ebp
         mov ebp,esp
         jmp reentry_address
      end;

Result :=  LongBool(Nub);
end;

Was ist daran falsch? beim compilen bekomm ich kein error aber dann beim ausführen. Hab schon viele sachen ausprobiert. k.A. was da falsch ist. Ich hoffe ihr könnt mir helfen. :)

danke :)
k4ni

[QuickAndDirty]

Danke für diesen Quiz

[k4ni]

Wieso Quiz ? Ich kriegs doch selber nich hin :(

[Win32.API]

Du musst verhindern, dass delphi den stackframe zerstoert.

[k4ni]

Ahh danke :)
Nur weis ich nicht wie das geht. Und wieso? in C macht ers ja auch nicht oder?

[Win32.API]

Delphi-Quellcode:

__declspec(naked)

ist in delphi mit

Delphi-Quellcode:

asm
...
end;

zu vergleichen, also kannst du es in asm programmieren oder du laesst dir was anderes einfallen.

[Neotracer64]

Delphi-Quellcode:

var
  pOrgPostMessage: Pointer;

function Secure_PostMessageA(hWnd:HWND ;MSG:UINT ;WPARAM: wParam; lPARAM:lParam):BOOL;stdcall;assembler;
asm
  jmp pOrgPostMessage
end;


procedure InitializeSecureApi;
begin
  pOrgPostMessage := Pointer(DWORD(GetProcAddress( GetModuleHandle('user32.dll'), 'PostMessageA'))+5);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  InitializeSecureApi;
  Secure_PostMessageA(Application.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;

[k4ni]

Danke!
Ich habs jetzt dann gleich mal getested mit:

Delphi-Quellcode:

Secure_PostMessageA(ms, Wm_keyDown, VK_Return, 0);
Secure_PostMessageA(ms, Wm_keyUp, VK_Return, 0);

es kommt ne AccessViolation sendet then key aber trotzdem. Idee?

Edit:
Mir ist aber aufgefallen das die address violation diesmal nicht von der user32.dll sondern von der application selber kommt.
[Bild im anhang]

[Win32.API]

Wie soll das auch funktionieren? Diesmal wird garkein stackframe erzeugt ... Versuche doch erstmal zu verstehen was du da versuchst.



//Edit: sorry, hatte das stdcall nicht wahrgenommen

[Neotracer64]

Funktioniert, wenn einige Bedingungen stimmen.(5 Bytes Hotpatch Fix vorhanden,...) Das "stdcall" induziert den Function Prolog.

Disassembly von Secure_PostMessageA:

Delphi-Quellcode:

0044C86C   $ 55             PUSH EBP
0044C86D   . 8BEC           MOV EBP,ESP
0044C86F   .-FF25 D8FB4400  JMP DWORD PTR DS:[44FBD8]                ;  user32.7E36CB8A

Jedenfalls bei Delphi 7.