Criando Um Utilities No Delphi Com Injetor De Dll Para Grand Chase

**Halls_™** · 10 de Março 2011

Bom Pessoal , Hoje Estarei Aqui Ensinando A Criar Um Utilities No Delphi Com Injetor De DLL Para Grand Chase

Dividirei O Tópico em 4 Partes

1º - Ajeitando a Form (Designe , ... )

2º - Injetor De DLL

3º - Utilities

4º - Atualizador de Grand Chase

__________________________________________________________________________________________

1º Parte - Ajeitando a Form

Bom Primeiramente Abra Sua Form , em Caption , Mude o Nome Da Form Para o Nome do Seu Utilities (ex:super utilities)

Ficara Assim :

Depois disso , Veja o Tamanho Que Você Vai Ocupar Na Form Com Sua Imagem e Faça ela

Depois de Faze - la va em Additional , Image e Selecione o Tamanho q vai ocupar na form e em Picture Procura Sua Imagem

___________________________________________________________________________________________

2º Parte - Injetor de DLL

Depois de Ter Colocado a Imagem , Em Win32 Adicione um Page Control

Clique nele com botão direito e clique em New Page e Renomeie Para Injetor De DLL

Nessa Aba Do Page Control Adicione os Compontentes :

2- GroupBox - Renomeia a 1 como "Configurações" e a segunda como "Injeção".

2- Labels - O primeiro escrito "Processo" e o Segundo "Dll".

3- Buttons - O primeiro escrito "Aguardar..."(Voce pode substituir por um RadioButton escrito Automatico) o segundo "Procurar" e o terceiro "Limpar Lista"

1- Listbox

1- Timer

1- OpenDialog

Ficara mais ou menos Assim :

De dois cliques no form e declare nas uses TlHelp32.

Declare a função acima de end. :

function GetPID(ProcessName: string): DWORD;

var MyHandle: THandle;

Struct: TProcessEntry32;

begin

Result:=0;

try

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 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;

Abaixo da função declarada acima, declare :

function InjectDll(PID:DWORD; 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 := GetProcAddress(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;

Clique 2 vezes no botão "Procurar" e adicione o seguinte código:

if not OpenDialog1.Execute then Exit;

Listbox1.Items.Add(ExtractFileName(OpenDialog1.FileName));

De dois cliques no botão "Aguardar..." e adicione:

Timer1.Enabled:=True;

De dois cliques no Timer e adicione:

Obs: Apague o begin.

var PID: DWORD;

begin

Timer1.Enabled:=False;

if PID=0 then

begin

Timer1.Enabled:=True;

Exit;

end;

Timer1.Enabled:=False;

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

end;

end.

No botão Limpar Lista Adicione o seguinte código:

ListBox1.Clear

Injetor de DLL Criado

_____________________________________________________________________________________________

3º Parte - Utilities

Clique Com Botão Direito no Page Control e Clique Em New Page e Renomeie Para Utlities

Adicione :

4 Buttons (Localizado em Standard ) :

Renomeie o 1º Para Limpar Logs e Adicione o Seguinte Código :

deletefile ('C:\Level Up Games\Grand Chase\ScreenShot ')

Ativar Quando o Patch Estiver 100% Para Excluir a Pasta e Não ir Para Level Up

Renomeie o 2º Para Resolver Erro Do NProtect e Adicione o Seguinte Código :

deletefile ('C:\Level Up Games\Grand Chase\NProtect ')

Ativar Antes Do Patch Para Ele Atualizar a Pasta

No 3º Renomeie para Renovar IP E Adicione o Seguinte Código :

WinExec('cmd /C ipconfig /renew',SW_SHOW);

WinExec('cmd /C ipconfig /release',SW_SHOW);

Renomeie o 2º Button Para Registrar DNS E Adicione o Seguinte Código :

WinExec('cmd /C ipconfig /registerdns',SW_SHOW);

Ficara Assim :

4º Parte - Autalizador De Grand Chase

Introdução :

Vcs ira baixar 1 arquivo e por na pasta lib do delphi.

Download :

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

Códigos :

Adicione 2 buttons, 1 edit e no 1 coloque abrir gc sem atualizar!

var

TituloDoPrograma: string;

TextoAEnviar: string;

begin

TituloDoPrograma := 'Executar';

if AppActivate(PChar(TituloDoPrograma)) then

begin

TextoAEnviar := edit1.Text+'\grandchase.exe';

SendKeys(PChar(TextoAEnviar), True); //<-- ENVIA O USUARIO PARA O EDIT

SendKeys(PChar('{TAB}'), false);

SendKeys(PChar('{ENTER}'), false); //<-- DA UM ENTER NO BOTAO

end;

No outro :

Caption = Atualizar GC em, manutençao!

var

TituloDoPrograma: string;

TextoAEnviar: string;

begin

TituloDoPrograma := 'Executar';

if AppActivate(PChar(TituloDoPrograma)) then

begin

TextoAEnviar := edit1.Text+'\grandchase.exe __kogstudios_skip_patchtimecheck__';

SendKeys(PChar(TextoAEnviar), True); //<-- ENVIA O USUARIO PARA O EDIT

SendKeys(PChar('{TAB}'), false); // <-- ENVIA TAB PARA IR PARA O CAMPO SENHA

SendKeys(PChar('{ENTER}'), false); //<-- DA UM ENTER NO BOTAO

end;

Entendendo a coisa :

Abre o executar e clique em 1 dos buttons , para atualizar o gc em manutenção!

Edit1.Text = local do gc

UTILITES CRIADO : D

Créditos : Grown

**...GoodBoy...** · 10 de Março 2011

Nuss man,muito bom o tópico,bem explicativo e "simples" para quem tem um noção básica de programação.

Eu tenho aqui,quase não faço utilitários,mas consegui entender e irei tentar,muito obrigado.

**Halls_™** · 10 de Março 2011

E mano muito simples

e facil de fazer vlw´s

pelo agradecimento

vlw´s abraços

!Melo~* · 11 de Março 2011

topico bem legal,

muito bom,

organizado,

colorido,

formatado,

bem simples , porem muito bom!

ajudou bastante!

e assim,unico topico sobre esse assunto na gc zone

parabens, muito bom topico

obgz por compartilhar!

abrasz'

**~Dαrkєvił~™** · 11 de Março 2011

cara gostei + vc sabe como trocar os icones do utilitario?

**Death** · 11 de Março 2011

Tópico Movido para

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

Entre

ou

Cadastre-se

[/Quote] Motivo:

Área Errada

Como Evitar Que Se Repita:

Leia as Descrições de Cada Área e Analise em Qual das Mesmas o Conteúdo se Encaixa.

**Vator** · 11 de Março 2011

UTILITES CRIADO : D

Congratulations,you didn't learn any fucking shit and did that crap.

Copied,pasted and made it!

One more fucking stupid child to the Info Zone,great.

GET-OUT.jpg?imageSize=Medium&generatorName=Foul-Bachelor-Frog

Fucking back to urz Games,fags.

**'•~Hurley•~'** · 11 de Março 2011

Maneiro.

Já levou meu ty (: , estava pensando em criar um utilities mas para combat arms e mais avançado rs =D. Mas para quem quer fazer o mesmo na área gc, além de servir como base, demonstra como é simples e fácil :).

**Halls_™** · 11 de Março 2011

Mano para Ca eu sei criar

um mais primeiro eu tenho

que baixar o jogo para pegar

uma coisas

**Vator** · 11 de Março 2011

facepalm.jpg

**-Kuat** · 11 de Março 2011

Muito Bom..

Vai ajudar quem sempre quis criar um Utilities assim...

Topico Organizado!

Thx

**Halls_™** · 11 de Março 2011

De nada gente qualquer

erro so fala vlw´s abraços

mais naum e facil naum

criar hacks

**soureidosnoob** · 12 de Março 2011

a parter do injetor foi puro ctrl+c ,ctrl+v

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

fora isso o topico ta bom , continue assim :)

MarcelooC · 13 de Março 2011

Bom Na Verdade Eu Criei Esse Tópico Em Outro forum

Daqui a Poco Disponibilizo como criar scripts!!

**Mestre_Vator** · 13 de Março 2011

O que pensam da vida esses imbecis que criam "utilities" e injetores de dll?

Que vao contribuir em algo,um programa lixo a mais para os 0x7FFFFFFF existentes?

"Se acham" por criar um programa totalmente copiado?

Voltem para seus jogos,seus analfabetos.

Muito Bom..
Vai ajudar quem sempre quis criar um Utilities assim...

Topico Organizado!

Thx

Ainda tem gente imbecil no mundo para falar coisas assim.

**guitdb** · 20 de Março 2011

Ajudou Mt!

Entrar

Quem está por aqui 0 membros estão online

Criando Um Utilities No Delphi Com Injetor De Dll Para Grand Chase

Posts Recomendados

Halls_™ 0

Link para o comentário

Compartilhar em outros sites

...GoodBoy... 0

Link para o comentário

Compartilhar em outros sites

Halls_™ 0

Link para o comentário

Compartilhar em outros sites

!Melo~* 0

Link para o comentário

Compartilhar em outros sites

~Dαrkєvił~™ 0

Link para o comentário

Compartilhar em outros sites

Death 42

Link para o comentário

Compartilhar em outros sites

Vator 10

Link para o comentário

Compartilhar em outros sites

'•~Hurley•~' 0

Link para o comentário

Compartilhar em outros sites

Halls_™ 0

Link para o comentário

Compartilhar em outros sites

Vator 10

Link para o comentário

Compartilhar em outros sites

-Kuat 2

Link para o comentário

Compartilhar em outros sites

Halls_™ 0

Link para o comentário

Compartilhar em outros sites

soureidosnoob 0

Link para o comentário

Compartilhar em outros sites

MarcelooC 0

Link para o comentário

Compartilhar em outros sites

Mestre_Vator 0

Link para o comentário

Compartilhar em outros sites

guitdb 0

Link para o comentário

Compartilhar em outros sites

Informação Importante