Thread não executa

[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.

vou postar ela aki, e gostaria de se possivel alguém com mais conheçimento analisa-se ela e me orientasse se houver algum erro.

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

[Churc]

cara... isso parece um crack... um cheater... um trainner...

aparentemente não tem erro, o problema é que as vezes pro que ela ia funcionar já mudou os endereços de memória... (em uma atualização por exemplo ou nova versão...)

é source de uma DLL, quando ela é iniciada por um determinado aplicativo, ela da um trap no processo e muda alguns endereços de memória...

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

outra coisa é você não estar sabendo como usar... rsrsr

mass amigão isso é proibido no fórum coisas hacker, crack e tal...

então boa sorte ai...

Editado Maio 3, 2012 por Churc