Injetor De DLL Avancado

[mah23 0]

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

 

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.

• Entre
• ou
• Cadastre-se

 

Scan:

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

• Entre
• ou
• Cadastre-se

 

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;

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 : Mah25

[nubatikaas 0]

manow os creditos é so seu ?

Ryo comenteu um erro em posta o source do inject dele depois que ele posto apareceu inject de tudo que e jeito e de tudo que e cor e um so nome nos creditos

ate intão eu so avia visto 2 inject agora acho que vi ums 50 '-' arruma os creditos mas se vc crio so parabéns e disconsidera essa mensagem

[mah23 0]

Humm

 

Tah mais a maioria dos injetor de dlls aki nao sao bons e nao tem foto aki tem foto e tuturial bem explicado nao sou muito bom para criar topicos entao nao fassa pergunta idotas

[Mestre_Vator 0]

Nossa que idioma é esse O__O

O tópico é seu mas os códigos não.

Até parece que é "seu"...tira esses créditos aí que o que você fez não passa de uma cópia dos 0x7FFFFFF existentes.

[mah23 0]

foi mal

 

? e idioma e do dhelp 7 pq ? nao entendi oq vc disse cara ainda eu to confuso

[Ryokusei 21]

Volte para seu GC, aqui não é lugar para molequesCaro mah23, não vou questionar a autenticidade dos créditos porque os meus confrades acima já o fizeram. Venho dizer que isso não é um injetor avançado, o método de injeção usado é o padrão e nada de avançado tem, portanto, isso é conteúdo repetido e contra as regras do fórum. A parte do GC pode deixar, mas a parte do injetor está em desacordo com as normas estabelecidas.E faça o favor de não retornar, você é apenas mais um câncer copi-cola no fórum.

[luxfer 0]

? e idioma e do dhelp 7 pq ? nao entendi oq vc disse cara ainda eu to confuso

Idioma do dhelp 7(Delphi 7?)?

 

 

Levando em consideração o trabalho para fazer, como você só fez o tópico, ta ai seus créditos: 0,001%.

 

 

Agora, em relação ao tópico: Tá muito ruim.

Muito mal formatado.

Além de ja existir 64¹³² tópicos relacionados a injetores.

 

 

Postar imagens em sites requer alto conhecimento, não é qualquer um que consegue :[

[DragonBoss 8]

Choremos, todos nós.

Os créditos NÃO são seus.

O tópico é repetido.

Você NÃO postou as imagens.

Você nem sequer formatou o tópico.

Você não consegue reproduzir nem 1% desse código sem olhar um tópico como esse.

 

[x] Fechado.