ReadMemory c++ zu delphi

[gizzy]

Hi,
und zwar hab ich folgenden Code der aus einer Prozess zwei Werte (Integer x und y) errechnen soll. Dazu muss man verschiedene Pointer samt Offsets bla blub auslesen. Nun ist der Code in C#, ich habe mich noch nie richtig mit C# beschäftigt. Von Daher fände ich es nett wenn mir diesen Quellcode in Delphi übersetzen würde und mir erläutert, ich komm da grad gar nicht klar mit, obwohl ich weiß das es Delphi "ziemlich" ähnelt.
Vielen Dank

Das meißte sind kommentare

Code:

const DWORD posBase = 0xCE997C;

void GetPlayerPosition(DWORD processID, int & finalX, int & finalY)
{
   // Open the process
   HANDLE hProcess = OpenProcess(PROCESS_VM_READ, false, processID);

   // Registers
   DWORD EAX = 0, EBX = 0, ECX = 0, EDX = 0, EBP = 0, EDI = 0, ESI = 0;

   // MOV ECX,DWORD PTR DS:[CAD56C]
   ReadProcessMemory(hProcess, UlongToPtr(posBase), &ECX, sizeof(DWORD), NULL);

   // MOV AX,WORD PTR DS:[ECX+78]
   ReadProcessMemory(hProcess, UlongToPtr(ECX + 0x78), &EAX, sizeof(WORD), NULL);

   // MOVZX EBX,AX
   EBX = EAX;

   // MOV EDI,EBX
   EDI = EBX;
   // MOV EBP,EBX
   EBP = EBX;

   // MOV WORD PTR SS:[ESP+1C],AX
   DWORD ESP_1C = 0;
   ESP_1C = EAX;

   // AND EDI,0FF
   EDI &= 0xFF;

   //MOV DWORD PTR DS:[ESI+424],EDI
   //

   //SHR EBP,8
   EBP >>= 0x08;

   //MOV DWORD PTR DS:[ESI+428],EBP
   //

   // MOV EAX,DWORD PTR DS:[CAD56C]
   ReadProcessMemory(hProcess, UlongToPtr(posBase), &EAX, sizeof(DWORD), NULL);

   // MOV EDX,DWORD PTR DS:[EAX+7C]
   ReadProcessMemory(hProcess, UlongToPtr(EAX + 0x7C), &EDX, sizeof(DWORD), NULL);

   //ADD EAX,7C
   EAX += 0x7C;

   // MOV DWORD PTR DS:[ESI+3E0],EDX
   DWORD ESI_3E0 = 0;
   ESI_3E0 = EDX;

   // MOV ECX,DWORD PTR DS:[EAX+4]
   ReadProcessMemory(hProcess, UlongToPtr(EAX + 0x04), &ECX, sizeof(DWORD), NULL);

   // MOV DWORD PTR DS:[ESI+3E4],ECX
   DWORD ESI_3E4 = 0;
   ESI_3E4 = ECX;

   // MOV EDX,DWORD PTR DS:[EAX+8]
   ReadProcessMemory(hProcess, UlongToPtr(EAX + 0x08), &EDX, sizeof(DWORD), NULL);
   
   // MOV DWORD PTR DS:[ESI+3E8],EDX
   DWORD ESI_3E8 = 0;
   ESI_3E8 = EDX;

   // MOV EAX,DWORD PTR DS:[CAD56C]
   ReadProcessMemory(hProcess, UlongToPtr(posBase), &EAX, sizeof(DWORD), NULL);

   float fTmp1 = 0;
   ReadProcessMemory(hProcess, UlongToPtr(EAX + 0x88), &fTmp1, sizeof(float), NULL);

   // FSTP DWORD PTR SS:[ESP+14]
   //

   // FLD DWORD PTR SS:[ESP+14]
   //

   // FSUB QWORD PTR DS:[C09668]
   double fTmp2 = 1.570796370506287;
   //ReadProcessMemory(hProcess, UlongToPtr(0xC09668), &fTmp2, sizeof(double), NULL);

   // FSTP DWORD PTR DS:[ESI+3EC]
   DWORD ESI_3EC = 0;
   float fTmp3 = 0;
   fTmp3 = fTmp1 - fTmp2;
   memcpy(&ESI_3EC, &fTmp3, sizeof(float));

   // MOV ECX,DWORD PTR DS:[CAD56C]   
   ReadProcessMemory(hProcess, UlongToPtr(posBase), &ECX, sizeof(DWORD), NULL);

//----


   // CALL sro_clie.00830700
   //
   EAX = 0; // check this function ^

   // FLD DWORD PTR DS:[ESI+3E0]
   float fTmp4 = 0;
   memcpy(&fTmp4, &ESI_3E0, sizeof(float));

   // MOV DWORD PTR SS:[ESP+20],EAX
   DWORD ESP_20 = EAX;

   // MOV AX,WORD PTR SS:[ESP+1C]
   EAX = ESP_1C;

   // SHR AX,0F
   EAX >>= 0x0F;

   // MOV WORD PTR SS:[ESP+2A],AX
   DWORD ESP_2A = EAX;

//----


   // FDIV QWORD PTR DS:[B9CA10]
   fTmp4 /= (double)-10.0;

   // CALL sro_clie.0098E260 (float to int)
   EAX = (int)fTmp4;

   // LEA ECX,DWORD PTR DS:[EDI+EDI*2-195]
   ECX = EDI + EDI * 2 - 0x195;
   
   //SHL ECX,6
   ECX <<= 0x06;

   //SUB ECX,EAX
   ECX -= EAX;

   // Store the final X position
   finalX = ECX;

//----


   // FLD DWORD PTR DS:[ESI+3E8]
   memcpy(&fTmp4, &ESI_3E8, sizeof(float));
   
   // FDIV QWORD PTR DS:[B9CA10]
   fTmp4 /= (double)-10.0;

   // CALL sro_clie.0098E260
   EAX = (int)fTmp4;

   // LEA ECX,DWORD PTR SS:[EBP+EBP*2-114]
   ECX = EBP + EBP * 2 - 0x114;

   // SHL ECX,6
   ECX <<= 0x06;

   // SUB ECX,EAX
   ECX -= EAX;

   // Store the final Y position
   finalY = ECX;
}