Bem Vindo Ao Nosso Fórum TutoriaisBrazil, Onde Cada Um é Repeitado,Regras Existesntes,Categorias Super Bacana E Muinto Mais Venha Visitar + nosso Fórum,Aqui Tem Sistema De Hank e Você Pode Ate Ser ADM,Mod E Etc.Obrigado!

Criando Injetor de DLL Parecido Com o x1nject

Ir em baixo

Criando Injetor de DLL Parecido Com o x1nject

Mensagem por GabrielxD em Qua Out 19, 2011 8:26 am

Bom Nesse Tutorial vou ensinar a voces como "fazer" um injetor parecido com o do x1nject ..

Vamos ao Trabalho



Necessario os Seguintes Componentes


Código:
2 GroupBox (aba Standard)

3 Timers (aba SYSTEM)

1 Open Dialog (aba DIALOGS)

5 Buttons (aba Standard)

6 Labels (aba Standard)

2 RadioButton (aba Standard)

1 CheckBox (aba Standard)

1 Edit (aba Standard)

1 ListBox (aba Standard)

1 Bevel (aba Additional)

1 Image (aba Additional)



Organize Assim :

[Você precisa estar registrado e conectado para ver esta imagem.]




DICA : 1º Coloque os GroupsBox Para Colocar os Componentes Dentro !




Vamos Programar


Primeiro Declare nas uses


Código:
TlHelp32


Agora Declare as Funçoes abaixo do
Código:


implementation

{$R *.dfm}

Ficando Assim

Código:
implementation

{$R *.dfm}

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;

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;
end;

Agora no Button "Sair" Coloque:
Código:
Form1.Close;

Agora no Button "Procurar" Coloque :

Código:
var
a : string;
begin
a := extractFilepath(application.exename);
if not OpenDialog1.Execute then Exit;
Listbox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
Listbox1.Items.SaveToFile(a+'\x1nject-BR.ini');
end;

Agora No Button "Limpar Lista" Coloque :

Código:
var
c : string;
begin
c := extractFilepath(application.exename);
ListBox1.Clear;
Listbox1.Items.SaveToFile(c+'\x1nject-BR.ini');
end;

Agor no Button "Remover DLL" Coloque :
Código:

var
b : string;
begin
b := extractFilepath(application.exename);
Listbox1.DeleteSelected;
Listbox1.Items.SaveToFile(b+'\x1nject-BR.ini');
end;

Agora no Button "Injetar" Coloque :

Código:
var PID: DWORD;
begin
PID:=GetPID(Edit1.Text);
if InjectDll(PID, Opendialog1.Filename) then
  MessageBoxA(Handle, 'DLL injetada com &sucesso!', 'x1nject-BR', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)
 else
  MessageBoxA(Handle, '&Erro ao injetar DLL!', 'x1nject-BR', MB_ICONERROR+MB_SYSTEMMODAL);
end;

Bom até aqui terminamos os Buttons Agora Vamos Aos Timers !

Pegue um dos Timers e fassa isso em Object Inspector (onde edita ele tá) :

[Você precisa estar registrado e conectado para ver esta imagem.]

No Evento OnClick do Timer Adicione :

Código:

var
y : string;
begin
y := extractFilepath(application.exename);
Listbox1.Items.LoadFromFile(y+'\x1nject-BR.ini');
carregador.Enabled := false;
end;

Agora no Segundo Timer Fassa Isso em Object Inspector :



[Você precisa estar registrado e conectado para ver esta imagem.]

No Evento OnClick do Timer Adicione :

Código:

var
fe : string;
begin
fe := extractFilepath(application.exename);
if FileExists(fe+'\x1nject-BR.ini') then
begin
Listbox1.Update;
ant_carregador.Enabled := false;
carregador.Enabled := true;
end
//
else
Listbox1.Items.SaveToFile(fe+'\x1nject-BR.ini');
ant_carregador.Enabled := false;
carregador.Enabled := true;
end;

Agora no Terceiro Timer Fassa Isso :


[Você precisa estar registrado e conectado para ver esta imagem.]

No Evento OnClick Coloque :


Código:
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, Opendialog1.Filename) then
  MessageBoxA(Handle, 'DLL injetada com &sucesso!', 'x1nject-BR', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)
 else
  MessageBoxA(Handle, '&Erro ao injetar DLL!', 'x1nject-BR', MB_ICONERROR+MB_SYSTEMMODAL);
end;

Pronto Terminamos os Timers ! agora Vamos Para os RadioButton

No 1º RadioButton (automatico) Coloque :
Código:

begin
Checkbox1.Enabled := False;
Checkbox1.Checked := True;
Button1.Enabled := False;
Label1.Font.Color := clGreen;
Label1.Caption := 'Esperando programa para começar ...';
Timer1.Enabled:=True;
end;

No 2º RadioButton (manual) Coloque :

Código:
begin
Label1.AutoSize := true;
Label1.Caption := 'Esperando por injeção ...';
Label1.Font.Color := clRed;
Checkbox1.Enabled := true;
Button1.Enabled := true;
end;

Lembresse Temque Está na Ordem Certa !

Ex:

RadioButton1 para Automatico

e RadioButton2 para Manual

Terminamos aqui ! Seu Injetor Copiado do x1nject tá pronto !

Agora

Algumas Coisas o Image se voce quiser colocar uma imagem é só

da 2 Clicks Nele e vai aparecer a opção de por a imagem !


Créditos : Jorge Lucas (storm)


avatar
GabrielxD
Membro De Honra
Membro De Honra

Mensagens : 34
Data de inscrição : 17/10/2011
Idade : 22
Localização : Praia Grande

Ver perfil do usuário http://death-brasil.forumeiros.com/

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por Techno-Games em Qua Out 19, 2011 12:31 pm

olha gabriel se aprofundando em delphi Very Happy e c
avatar
Techno-Games
AdminTB
AdminTB

Mensagens : 130
Data de inscrição : 16/08/2011
Idade : 22
Localização : Santos

Ver perfil do usuário http://www.techno-games.com.br

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por GabrielxD em Qua Out 19, 2011 4:52 pm

kkk estou ajudando fórum crescer
avatar
GabrielxD
Membro De Honra
Membro De Honra

Mensagens : 34
Data de inscrição : 17/10/2011
Idade : 22
Localização : Praia Grande

Ver perfil do usuário http://death-brasil.forumeiros.com/

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por Rodrigo Teles em Qua Out 19, 2011 4:59 pm

mt sexo

_________________________________________________________________
[Você precisa estar registrado e conectado para ver este link.]

Desenvolvimento de Servidores e Websites
Vendas de Dedicados e Hospedagens
Desenvolvimento de Scripts php,sql


Nossos Servidores

ConstellationCo
ConquerPremium
Elite-Brasil ( Sera reaberto na versao 5017 )


Suporte

[Você precisa estar registrado e conectado para ver este link.]
( * Forum de Suporte a Compradores * )
avatar
Rodrigo Teles
VIPTB
VIPTB

Mensagens : 18
Data de inscrição : 26/08/2011
Localização : Jacupiranga

Ver perfil do usuário http://www.fwgames.net

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por GabrielxD em Qua Out 19, 2011 5:41 pm

kkk sempre rodrigo pensando sexo
avatar
GabrielxD
Membro De Honra
Membro De Honra

Mensagens : 34
Data de inscrição : 17/10/2011
Idade : 22
Localização : Praia Grande

Ver perfil do usuário http://death-brasil.forumeiros.com/

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por †™Marcos™† em Qua Out 19, 2011 6:21 pm

kkkk Ele é Meio Lol Olha A Assinatura Q ele Pois kkk D:

_________________________________________________________________
Siga As Regras
[Você precisa estar registrado e conectado para ver este link.]
†TutoriaisBrazil 2011 Inovando A Cada Dia!

Att. Fundador
Obrigado pela atenção.
Faça tópicos organizados
[Ajuda],[Pedido],[Exclusivo],[Download],[Release]

Obs: Os Unicos Que Podem Fazer Double Post São Os Admin E Moderadores, Isto é Se For pra Ajudar Mais De Um Membro.


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
†™Marcos™†
AdminTB
AdminTB

Mensagens : 78
Data de inscrição : 16/08/2011
Idade : 21
Localização : Santa Inês-MA

Ver perfil do usuário http://tutoriaisbrazil.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por GabrielxD em Qui Out 20, 2011 6:15 am

kkkkkkkk
avatar
GabrielxD
Membro De Honra
Membro De Honra

Mensagens : 34
Data de inscrição : 17/10/2011
Idade : 22
Localização : Praia Grande

Ver perfil do usuário http://death-brasil.forumeiros.com/

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por Jorge Lucas (storm) em Dom Out 23, 2011 12:10 pm

Créditos : Desconhecido ?

Copia da invision e nao coloca meus creditos ?

Jorge Lucas (storm)
MembroTB
MembroTB

Mensagens : 2
Data de inscrição : 11/10/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por GabrielxD em Dom Out 23, 2011 3:23 pm

eu n peguei no invision
avatar
GabrielxD
Membro De Honra
Membro De Honra

Mensagens : 34
Data de inscrição : 17/10/2011
Idade : 22
Localização : Praia Grande

Ver perfil do usuário http://death-brasil.forumeiros.com/

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por †™Marcos™† em Dom Out 23, 2011 4:10 pm

Jorge Lucas (storm) escreveu:Créditos : Desconhecido ?

Copia da invision e nao coloca meus creditos ?

Verdadeiramente os Creditos São Seus.. Nem Olhei O Post. Creditos Repostos

_________________________________________________________________
Siga As Regras
[Você precisa estar registrado e conectado para ver este link.]
†TutoriaisBrazil 2011 Inovando A Cada Dia!

Att. Fundador
Obrigado pela atenção.
Faça tópicos organizados
[Ajuda],[Pedido],[Exclusivo],[Download],[Release]

Obs: Os Unicos Que Podem Fazer Double Post São Os Admin E Moderadores, Isto é Se For pra Ajudar Mais De Um Membro.


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
†™Marcos™†
AdminTB
AdminTB

Mensagens : 78
Data de inscrição : 16/08/2011
Idade : 21
Localização : Santa Inês-MA

Ver perfil do usuário http://tutoriaisbrazil.forumeiros.com

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por Jorge Lucas (storm) em Dom Out 23, 2011 11:19 pm

GabrielxD escreveu:eu n peguei no invision

e onde tu pego fala ai

Jorge Lucas (storm)
MembroTB
MembroTB

Mensagens : 2
Data de inscrição : 11/10/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por GabrielxD em Seg Out 24, 2011 7:04 am

ta ai [Você precisa estar registrado e conectado para ver este link.] agora so porcura
avatar
GabrielxD
Membro De Honra
Membro De Honra

Mensagens : 34
Data de inscrição : 17/10/2011
Idade : 22
Localização : Praia Grande

Ver perfil do usuário http://death-brasil.forumeiros.com/

Voltar ao Topo Ir em baixo

Re: Criando Injetor de DLL Parecido Com o x1nject

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum