一段C++代码转E语言

初学者彩虹

void 写入(DWORD64 address)
{
        if (Read<BYTE>(address) == 0xE8)
        {
                DWORD64 目标地址 = (DWORD64)((PBYTE)address + *(PINT)((PBYTE)address + 1) + 5);

                if (Read<BYTE>(目标地址 + 0x75) == 0xFF)
                {
                        写字节集(目标地址 + 0x75, { 144,144 });
                }
        }
}

void __stdcall BBBB() {
        写入(B.C + 0x14143E8);
        写入(B.C + 0x1E1BB0);

Tz小雨

  

{ 定义 写入（Write）过程 }
procedure 写入 (address: integer);
var
byteValue: byte;
目标地址: integer;
begin
byteValue := ReadByte (address);

{ 检查指定地址的字节是否为 0xE8 }
if byteValue = $E8 then
begin
目标地址 := integer (PBYTE (address) + integer (PINT (PBYTE (address + 1))) + 5);

{ 检查 目标地址 + 0x75 处的字节是否为 0xFF }
if ReadByte (目标地址 + $75) = $FF then
begin
{ 在 目标地址 + 0x75 处写入字节 [144, 144]（$90, $90） }
写字节集 (目标地址 + $75, [144, 144]);
end;
end;
end;
{ 定义 BBBB 过程 }
procedure BBBB;
begin
{ 使用特定地址调用 写入 过程 }
写入 (B.C + $14143E8);
写入 (B.C + $1E1BB0);
end;

{ 定义 写入（Write）过程 }<br /> procedure 写入(address: integer);<br /> var<br />     byteValue: byte;<br />     目标地址: integer;<br /> begin<br />     byteValue := ReadByte(address);<br />     <br />     { 检查指定地址的字节是否为 0xE8 }<br />     if byteValue = $E8 then<br />     begin<br />         目标地址 := integer(PBYTE(address) + integer(PINT(PBYTE(address + 1))) + 5);<br />         <br />         { 检查 目标地址 + 0x75 处的字节是否为 0xFF }<br />         if ReadByte(目标地址 + $75) = $FF then<br />         begin<br />             { 在 目标地址 + 0x75 处写入字节 [144, 144]（$90, $90） }<br />             写字节集(目标地址 + $75, [144, 144]);<br />         end;<br />     end;<br /> end;<br /> <br /> { 定义 BBBB 过程 }<br /> procedure BBBB;<br /> begin<br />     { 使用特定地址调用 写入 过程 }<br />     写入(B.C + $14143E8);<br />     写入(B.C + $1E1BB0);<br /> end;