DM ~ Posted May 1, 2012 Report Share Posted May 1, 2012 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;beginBeep(500,502);While true doPINTEGER($03132580)^:= (1234859904);PINTEGER($0313257C)^:= (1234859904);PINTEGER($03132584)^:= (1234859904);sleep(200);end;Procedure Xtrap(Reason: DWORD);varMAD:THandle;FUT:Cardinal;beginif (Reason = DLL_PROCESS_ATTACH) thenMAD:=OpenProcess(PROCESS_ALL_ACCESS,True,GetCurrentProcessID);CreateRemoteThread(MAD,0,0,@Bitch,0,0,FUT); if (Reason = DLL_PROCESS_DETACH) thenFreeLibraryAndExitThread(HInstance,0);end;beginDllProc := @Bitch;Xtrap(DLL_PROCESS_ATTACH);end.Quarquer coisa tá ai o MSN : diegodac_1@hotmail.com Quote Link to comment Share on other sites More sharing options...
0 Jhonas Posted May 2, 2012 Report Share Posted May 2, 2012 use um programa para converter pascal para c++https://www.planet-source-code.com/vb/scrip...=tp%2FC67703582abraço Quote Link to comment Share on other sites More sharing options...
Question
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
Link to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.