tutoriais [Tutorial]Criando um Speed Hack em DLL (Delphi 7)

[RadarMachine 11]

Não fui eu que criei esse tutorial, so estou colocando ele nessa área pois muita gente do THE DUEL me pediu, se eu consegui criar o meu SPEED acho que a maioria conseguirá!

 

Olá galera, vou encinar a vocês neste tópico a como criar um speed hack em uma dll (Funciona em todos os processos, dependendo de alguns jogos ele poderá ser detectado ou não funcionar caso exista game guard (anti hack)).

 

Vamos começar:

 

O que iremos precisar para fazer este speed hack:

- Delphi 7

- Saber o intermediário do delphi

 

Começaremos pela DLL:

 

Clique em: File>New>Other> DLL Wizard

 

Renomeie a dll para speedhack.

 

Apague as uses até o end. e coloque este código no lugar:

uses

SysUtils,

Classes,

speedhackunit in 'speedhackunit.pas',

ui in 'ui.pas' {Form1};

 

{$R *.res}

 

exports acceleration;

exports sleeptime;

 

 

begin

sui:=tui.create(false);

 

end.

 

Agora clique em:

 

File>New>Form

 

Adicone nas uses:

speedhackunit;

 

E em baixo da type coloque:

type

TUI = class(tthread)

public

procedure execute; override;

end;

 

Ficando assim:

 

Adicione os componentes:

2 - Edits

2 - Labels

1 - Botão

 

Terá que ficar assim:

 

E adicone nas váriaveis (var):

sui: tui;

 

Agora coloque esté código embaixo do {$R *.dfm}

 

procedure TUI.execute;

begin

form1:=tform1.Create(nil);

form1.ShowModal;

end;

Depois disso clique duas vezes no botão1 (Cujo nome terá que ser "Ligar speed Hack") e apague o begin e o end; e coloque o seguinte código no lugar:

 

var a: single;

s: dword;

begin

s:=strtoint(edit2.text);

a:=strtofloat(edit1.Text);

 

sleeptime:=s;

acceleration:=a;

end;

 

Após isso renomeie a unit da form para ui.

 

Agora crie uma nova unit em:

 

File>New>Unit

 

E renomeie ela para speedhackunit.

 

Agora apague tudo e coloque este código no lugar:

unit speedhackunit;

 

interface

uses windows,classes;

 

type TAPIInfo = record

location: Pointer;

Original: Array [0..4] of byte;

Jump: Array [0..4] of byte;

end;

 

type TTick=class(TThread)

private

public

procedure Execute; override;

end;

 

procedure InitializeSpeedhack;

procedure StopSpeedhack;

 

procedure GetTime; stdcall;

//function GetTime:dword; stdcall;

function NewQueryPerformanceCounter(var output: int64):BOOl; stdcall;

var CETick: dword;

CETick64: int64;

Ticker: TTick;

 

PerformanceFrequency: int64;

PerformanceFrequencyMS: int64;

acceleration: single;

sleeptime: dword;

slow: boolean;

tickerstopped: boolean;

speedhackenabled: boolean;

 

 

timeGetTimeInfo:TAPiInfo;

getTickcountInfo: TAPIInfo;

QueryPerformanceCounterInfo: TAPIInfo;

winmmlib,kernel32lib: thandle;

 

implementation

 

procedure InitializeSpeedhack;

var op:dword;

begin

cetick:=gettickcount;

//change the gettickcount and timegettime functions so that they look at cetick

if ticker<>nil then

begin

ticker.Terminate;

stopspeedhack;

end;

ticker:=nil;

 

 

winmmlib:=LoadLibrary('winmm.dll');

if winmmlib<>0 then

begin

timeGetTimeInfo.location:=GetProcAddress(winmmlib, 'timeGetTime');

if VirtualProtect(timeGetTimeInfo.location,5,PAGE_EXE CUTE_READWRITE,op) then

begin

timeGetTimeInfo.jump[0]:=$e9;

pdword(@timeGetTimeInfo.jump[1])^:=dword(@GetTime)-dword(timeGetTimeInfo.location)-5;

 

try

asm

//store original

push edi

push esi

lea edi,timeGetTimeInfo.original[0]

mov esi,timeGetTimeInfo.location

movsd

movsb

 

//replace with jump

lea esi,timeGetTimeInfo.jump[0]

mov edi,timeGetTimeInfo.location

movsd

movsb

 

pop esi

pop edi

end;

except

 

end;

end;

end;

 

 

kernel32lib:=LoadLibrary('kernel32.dll');

if kernel32lib<>0 then

begin

//gettickcount

GetTickCountInfo.location:=GetProcAddress(kernel32 lib,'GetTickCount');

if VirtualProtect(GetTickCountInfo.location,5,PAGE_EX ECUTE_READWRITE,op) then

begin

GetTickCountInfo.jump[0]:=$e9;

pdword(@GetTickCountInfo.jump[1])^:=dword(@GetTime)-dword(GetTickCountInfo.location)-5;

 

try

asm

//store original

push edi

push esi

lea edi,GetTickCountInfo.original[0]

mov esi,GetTickCountInfo.location

movsd

movsb

 

//replace with jump

lea esi,GetTickCountInfo.jump[0]

mov edi,GetTickCountInfo.location

movsd

movsb

 

pop esi

pop edi

end;

except

 

end;

end;

 

 

//QueryPerformanceCounter

if QueryPerformanceFrequency(PerformanceFrequency) then

begin

QueryPerformanceCounter(CETick64);

PerformanceFrequencyMS:=PerformanceFrequency div 1000;

 

//there is a high performance counter

QueryPerformanceCounterInfo.location:=GetProcAddre ss(kernel32lib,'QueryPerformanceCounter');

if VirtualProtect(QueryPerformanceCounterInfo.locatio n,5,PAGE_EXECUTE_READWRITE,op) then

begin

QueryPerformanceCounterInfo.jump[0]:=$e9;

pdword(@QueryPerformanceCounterInfo.jump[1])^:=dword(@NewQueryPerformanceCounter)-dword(QueryPerformanceCounterInfo.location)-5;

 

try

asm

//store original

push edi

push esi

lea edi,QueryPerformanceCounterInfo.original[0]

mov esi,QueryPerformanceCounterInfo.location

movsd

movsb

 

//replace with jump

lea esi,QueryPerformanceCounterInfo.jump[0]

mov edi,QueryPerformanceCounterInfo.location

movsd

movsb

 

pop esi

pop edi

end;

except

 

end;

end;

end;

end;

 

speedhackenabled:=true;

 

if ticker=nil then ticker:=TTick.Create(false);

end;

 

procedure StopSpeedhack;

begin

if not speedhackenabled then exit;

 

speedhackenableD:=false;

 

try

asm

lea esi,timeGetTimeInfo.original[0]

mov edi,timeGetTimeInfo.location

movsd

movsb

end;

except

 

end;

 

try

asm

lea esi,GetTickCountInfo.original[0]

mov edi,GetTickCountInfo.location

movsd

movsb

end;

except

 

end;

 

try

asm

lea esi,QueryPerformanceCounterInfo.original[0]

mov edi,QueryPerformanceCounterInfo.location

movsd

movsb

end;

except

 

end;

 

 

 

FreeLibrary(winmmlib);

FreeLibrary(kernel32lib);

winmmlib:=0;

kernel32lib:=0;

if ticker<>nil then ticker.terminate;

ticker:=nil;

end;

 

 

procedure GetTime; stdcall;

asm

mov eax,[CETick]

ret

end;

 

{function GetTime:dword; stdcall;

begin

result:=CETick;

end;}

 

function NewQueryPerformanceCounter(var output: int64):BOOl; stdcall;

begin

output:=cetick64;

result:=true;

end;

 

procedure TTick.Execute;

begin

tickerstopped:=false;

freeonterminate:=true;

priority:=tpTimeCritical; //if not a thread with higher priority will prevent the timer from running

while not terminated do

begin

inc(cetick64,trunc(acceleration*(PerformanceFreque ncy / (1000 / sleeptime))) );

inc(cetick,trunc(sleeptime*acceleration));

sleep(sleeptime);

end;

tickerstopped:=true;

end;

 

initialization

acceleration:=1.8;

sleeptime:=10;

InitializeSpeedhack;

 

end.

 

Após isso é so salvar e compilar (f9).

 

Source:

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

Speed Hack tirado do Cheat Engine, Projeto tirado do site do CE então acho que não é necessário scanner.

 

ATENÇÃO: Este speed hack é uma dll então você terá que ter um injetor de dll para usar ou para testar.

 

Créditos:

 

Projeto: Dark_Byte

Tutorial: amcorporation

 

Qualquer dúvida deixe seu comentario no POST, ou mande um MP para mim.

 

Olhe esse tutorial ele te ajudará:

Criando DLL's no Delphi.

 

Espero ter ajudado.

[elviokarateka 0]

Fechado

_______________________

Post Infrator já Punido.

[TiiKiiNhooH~* 28]

Cara, CTRL C CTRL V Puro, ele ja falo que Não funciona no the duel esse tutorial, está escrito no post original. Nem serve pra the duel

[RadarMachine 11]

Manda a parte que está escrito que não funfa pro The Duel?

Fala direito que eu não sou sua mulher ñ.

Ctrl c msm!

Se você sabe le, ta escrito;

Créditos:

 

Projeto: Dark_Byte

Tutorial: amcorporation

 

E no começo:

Não fui eu que criei esse tutorial, so estou colocando ele nessa área pois muita gente do THE DUEL me pediu, se eu consegui criar o meu SPEED acho que a maioria conseguirá!

[garossi 5]

Manda a parte que está escrito que não funfa pro The Duel?

Fala direito que eu não sou sua mulher ñ.

Ctrl c msm!

Se você sabe le, ta escrito;

 

 

E no começo:

[/color][/b]

 

então para que copiar o tópico da area de programação pra k? pra ganhar agradecimento?

[RadarMachine 11]

Se você não percebeu.

Eu alterei algumas variaveis.

Então está funcionando numa boa.

Antes de falar confia tópico com tópico.

Essa é a maneira mais fácil de fazer esse hacker.

Kissie'z:amor:

[nubatikaas 0]

altero nada pelo tudo que vc fez foi aperta ctrl c ctrl v seu inutel. reportado [Ø]

[TiiKiiNhooH~* 28]

Manda a parte que está escrito que não funfa pro The Duel?

Fala direito que eu não sou sua mulher ñ.

Ctrl c msm!

 

Affz, é so olhar no post original, olhe nos post, o rafaelduel pergunta se funciona e ele responde que não só ler NOOB COPIÃO REPORTADO

 

http://www.webcheats.com.br/forum/delphi-vb/537971-tutorial-criando-um-speed-hack-em-dll-delphi-7-a.html