Como fazer um Hacker para C.A (Não sei se pega)!!

[BobEsponja™ 0]

Hoje irei ensinar como criar seu primeiro hacker de Combat Arms

 

 

Primeiro você precisa de alguns programas:

 

Themida ( Para usar na DLL do hacker )

C++ 32 Bits

C++ 64 Bits

SDK June

 

Para começar você baixa uma base.

 

INFIN3xus

 

Após você ter feito o download, você extrai e abre a base.

 

 

 

 

 

Quando você abri - la, você clica em itens

 

 

 

 

 

Você muda o título para qualquer nome que você queira.

 

 

 

 

 

Após isso você aperta F7 para compilar o hacker.

E para finalizar, você abre o Themida e usa ele no hacker.

 

Tutorial para usar Themida

 

1* Quando estiver aberto o programa, você clica em uma pastinha do Themida que se encontra na linha do Imput FileName.

 

 

 

 

 

2* Selecione a sua DLL, e clique em Protect e pronto!!

A sua DLL está protegida.

 

 

 

 

Entendendo Um Pouco Mais

 

Para adiciona uma função no hacker é muito fácil.

Vamos adicionar a função do Glitch Mode.

Para adicionar é muito fácil.

Primeiro você pega o código do hacker e adiciona no seu console.

 

if(glitch)

Comando("BaseMoveAccel 90000.0000000");

Comando("StartAccel 90000.0000000");

Comando("MaxAccel 90000.0000000");

Comando("AccelInc 90000.0000000");

Comando("WalkVel 90000.0000000");

Comando("FRunVel 90000.000000");

Comando("BRunVel 90000.000000");

Comando("SRunVel 90000.000000");

} else {

Comando("BaseMoveAccel 3000.000000");

Comando("StartAccel 500.000000");

Comando("MaxAccel 3000.000000");

Comando("AccelInc 6000.000000");

Comando("WalkVel 70.000000");

Comando("FRunVel 285.000000");

Comando("BRunVel 285.000000");

Comando("SRunVel 285.000000");

}

 

 

 

 

Depois você declara a função.

 

 

 

 

 

E por último você adiciona a função ao menu.

 

AdicionarItem(" Glitch Mode", Opt_on_off, &glitch, 2, MENUITEM)

 

 

 

 

pronto!! Você adicionou uma função ao seu hacker!!!

 

Mudando A Cor Do Menu

 

Para mudar a cor do menu que eu postei, você abre dentro do hacker o Menu.cpp e muda ali onde estão as cores, " InfinityBlue", " InfinityLightBlue ", " Green ", " White "...

 

 

 

 

 

Colocando Novas Cores Em Seu Menu

 

Primeiro, você abre o Base.h

 

 

 

 

 

 

epois, você baixa um programa que mostra os códigos das cores.

 

ColorConverter

 

Você abre ele, coloca a cor que você deseja e aperta em converter, ai você seleciona a cor e aperta em OK, dai você copia o primeiro código.

 

 

 

 

 

Aperta Control C e aperta Control V no Menu.cpp e pronto!!!

 

 

 

 

 

Como Criar Um Injector Para Seu Hacker

 

A injeção de dll pelo método simples consiste em:

 

1 - Pegar o ***ress da API LoadLibraryA. Essa API carrega uma DLL no processo que a chamou. O ***ress dessa API é o mesmo em todos os processos.

2 - Abrir o processo que se quer injetar a dll, com privilégios de acesso total.

3 - Alocar memória no processo alvo para guardar o caminho da DLL a ser injetada.

4 - Escrever no endereço alocado o caminho da DLL.

5 - Criar uma thread no processo alvo, com parametro sendo o ponteiro pra string alocada no processo alvo que contem o caminho da dll.

6 - Aguardar o termino da thread criada.

7 - Fazer a limpeza.

 

Download do projeto pronto:

 

Download DLL Injector.rar for free on uploading.com

 

Agora vamos programar.

 

1 - Inicie um novo projeto no Delphi.

Adicione os seguintes componentes com as devidas propriedades no ****:

 

object *****1: T*****

Left = 8

Top = 8

Width = 47

Height = 13

Caption = 'Processo:'

end

object Edit1: TEdit

Left = 8

Top = 24

Width = 121

Height = 21

TabOrder = 0

end

object *****2: T*****

Left = 136

Top = 8

Width = 20

Height = 13

Caption = 'DLL'

end

object Edit2: TEdit

Left = 136

Top = 24

Width = 121

Height = 21

TabOrder = 1

end

object Button1: TButton

Left = 264

Top = 32

Width = 57

Height = 17

Caption = 'Carregar'

TabOrder = 2

end

object OpenDialog1: TOpenDialog

Left = 152

Top = 56

end

object Timer1: TTimer

Enabled = False

Interval = 10

Left = 120

Top = 56

end

object Button2: TButton

Left = 8

Top = 56

Width = 105

Height = 25

Caption = 'Aguardar Processo'

TabOrder = 3

end

 

 

 

 

 

2 - Vá ao Code Explorer (View/Code Explorer) e declare a unit TlHelp32:

 

 

 

 

 

3 - Declare a seguinte função acima de "end.":

 

function GetPID(ProcessName: string): DWORD;

var MyHandle: THandle;

Struct: TProcessEntry32;

begin

Result:=0;

try

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

Struct.dwSize:=Sizeof(TProcessEntry32);

if Process32First(MyHandle, Struct) then

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

while Process32Next(MyHandle, Struct) do

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

except on exception do

Exit;

end;

end;

 

 

 

 

 

4 - Declare esta função logo abaixo da função declarada acima:

 

function InjectDll(PIDWORD; sDll:string):Boolean;

var

hLib: Pointer;

hThread: THandle;

pMod: Pointer;

hOpen: THandle;

dWritten: Cardinal;

ThreadID: Cardinal;

begin

Result := FALSE;

hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

if hOpen <> INVALID_HANDLE_VALUE then

begin

hLib := GetProc***ress(GetModuleHandle(PChar('kernel32.dll ')), PChar('LoadLibraryA'));

pMod := VirtualAllocEx(hOpen, nil, Length(sDll) + 1, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);

if WriteProcessMemory(hOpen, pMod, @sDll[1], Length(sDll), dWritten) then

Result := TRUE;

hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID);

WaitForSingleObject(hThread, INFINITE);

CloseHandle(hOpen);

CloseHandle(hThread);

end;

end;

 

5 - Agora volte ao **** (F12) e dê dois cliques no botão "Carregar". Então insira este algoritmo no evento OnClick dele:

 

if not OpenDialog1.Execute then Exit;

Edit2.Text:=OpenDialog1.FileName;

 

 

 

 

 

6 - Volte ao **** (F12) e dê dois cliques no botão "Aguardar Processo". No evento OnClick dele insira este código

 

Timer1.Enabled:=True;

 

 

 

 

 

7 - Volte ao **** (F12) e dê dois cliques sobre o "Timer1". No evento OnClick dele insira este algorítmo:

 

var PID: DWORD;

begin

Timer1.Enabled:=False;

PID:=GetPID(Edit1.Text);

if PID=0 then

begin

Timer1.Enabled:=True;

Exit;

end;

Timer1.Enabled:=False;

if InjectDll(PID, Edit2.Text) then

MessageBoxA(Handle, 'DLL injetada com sucesso!', 'DLL Injector', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

else

MessageBoxA(Handle, 'Erro ao injetar DLL.', 'DLL Injector', MB_ICONERROR+MB_SYSTEMMODAL);

 

 

 

 

 

- Compile o projeto (F9) e seja feliz.

 

Modo de usar:

 

1 - Insira o nome do processo.

2 - Carregue a DLL a ser injetada.

3 - Clique em aguardar processo.

4 - Inicie o processo e a DLL será injetada.´

 

 

 

OBG :D

[Otaviomorais 0]

Área certa seria tutoriais, e esta coisa de só editar o nome está por fora :#

Mas tá aí o tutorial pra que quer começar a fazer '-'

Até mais.

[BobEsponja™ 0]

Área certa seria tutoriais, e esta coisa de só editar o nome está por fora :#

Mas tá aí o tutorial pra que quer começar a fazer '-'

Até mais.

 

 

 

Descupe-me eu esquerci :(

[~SkyPeeR 0]

Posta um print do funcionamento? :emo:

[BobEsponja™ 0]

Posta um print do funcionamento? :emo:

 

 

Eu nao sei colocar prits (((( Senao eu colocaria )))

 

:chorando:

[Faber 1.630]

Atenção!

 

 

Seu tópico encontra-se na área errada.

Leia as descrições das áreas antes de postar .

 

 

Leia as Regras do Fórum:

 

 

 

• Regras Web Cheats