CONVERTER PARA C++

[DM ~]

Bom pessoal , estou iniciando nessa programação, e estava ajudando um amigo com uma source mas ele não funcionou e não encontrei nenhum possivel erro.

ela está em pascal. gostaria de converter ela pra C++ pois acho mais facil pra mim pois estou começando.

vou postar ela aki, e gostaria de se possivel alguém com mais conheçimento podesse me ajudar a converter ela para C++ .

eu Usei até o Delphi to C++ Builder mas Não deu certo pois ele não converte certo e da muitos erros quando tento compilar.

Desde já Agradeço a Todos.

Procedure Bitch;

begin

Beep(500,502);

While true do

PINTEGER($03132580)^:= (1234859904);

PINTEGER($0313257C)^:= (1234859904);

PINTEGER($03132584)^:= (1234859904);

sleep(200);

end;

Procedure Xtrap(Reason: DWORD);

var

MAD:THandle;

FUT:Cardinal;

begin

if (Reason = DLL_PROCESS_ATTACH) then

MAD:=OpenProcess(PROCESS_ALL_ACCESS,True,GetCurrentProcessID);

CreateRemoteThread(MAD,0,0,@Bitch,0,0,FUT);

if (Reason = DLL_PROCESS_DETACH) then

FreeLibraryAndExitThread(HInstance,0);

end;

begin

DllProc := @Bitch;

Xtrap(DLL_PROCESS_ATTACH);

end.

Quarquer coisa tá ai o MSN : diegodac_1@hotmail.com

[Jhonas]

use um programa para converter pascal para c++

https://www.planet-source-code.com/vb/scrip...=tp%2FC67703582

abraço