iLvRaaFa
Membro
Criando Multi DLL Injetor (Método diferente)
Bom pessoal, estava aqui programando ontem e fiz um injetor que precisou de apenas algumas linhas de código porque criei uma dll para ser usada no código do injetor.
Vamos ao que intereça!
Primeira mente baixe a dll que o seu injetor vai usar para injetar as outras dlls
Vírus que está na dll é por causa do Packer usado para reduzir a dll, não vai danificar se computador não.
Depois de baixar a dll vamos ao Aplicativo.
Inicie uma nova aplicação e adicione os seguintes componentes
1 Label / Processo alvo
1 Edit Renomea para Edt1 / Em branco
1 Button / Procurar
1 ListBox Renomea para Lst1
1 Check Box Renomea para Chk1 / Aguardar processo
2 Timer
Timer 1 renomea para tmr1 Coloca interval para 100 e coloca enabled False.
Timer 2 Renomea para CheckTimer coloca Interval em 1.
1 Open dialog renomea para dlgOpen1
Faça a organização de acordo com seu gosto.
Crie uma variavel global como " Dir : string; " sem aspas.
abaixo de " implementation " coloque as seguintes linhas de códigos.
Código:
Dê duplo clique no Button e adicione o código abaixo :
Código:
Agora dê duplo clique no tmr1 (Timer1) apague o begin e coloque o seguinte código:
Código:
Agora de duplo clique no CheckTimer e coloque o código abaixo:
Código:
Pronto pessoal, é só isso ai porque as funções ficam na dll.
Meu injetor ficou assim :
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Créditos
~Tio Lee (Postagem original)
~iLvRaaFa(Compartilhar)
Bom pessoal, estava aqui programando ontem e fiz um injetor que precisou de apenas algumas linhas de código porque criei uma dll para ser usada no código do injetor.
Vamos ao que intereça!
Primeira mente baixe a dll que o seu injetor vai usar para injetar as outras dlls
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Vírus que está na dll é por causa do Packer usado para reduzir a dll, não vai danificar se computador não.
Depois de baixar a dll vamos ao Aplicativo.
Inicie uma nova aplicação e adicione os seguintes componentes
1 Label / Processo alvo
1 Edit Renomea para Edt1 / Em branco
1 Button / Procurar
1 ListBox Renomea para Lst1
1 Check Box Renomea para Chk1 / Aguardar processo
2 Timer
Timer 1 renomea para tmr1 Coloca interval para 100 e coloca enabled False.
Timer 2 Renomea para CheckTimer coloca Interval em 1.
1 Open dialog renomea para dlgOpen1
Faça a organização de acordo com seu gosto.
Crie uma variavel global como " Dir : string; " sem aspas.
abaixo de " implementation " coloque as seguintes linhas de códigos.
Código:
Function InjectdllByTioLee(nomeDll : AnsiString; alvo : string; msgSucess:string; msgError : string; TimerInjetor : TTimer; CheckBox : TCheckBox): string; external 'main.dll';
Dê duplo clique no Button e adicione o código abaixo :
Código:
if dlgOpen1.Execute then begin
lst1.Items.Add(dlgOpen1.FileName);
end;
Agora dê duplo clique no tmr1 (Timer1) apague o begin e coloque o seguinte código:
Código:
var
i : Integer;
begin
try
for i:= 0 to lst1.Items.Count-1 do begin
InjectdllByTioLee( lst1.Items[i] , edt1.Text,'Dll Successfully injected!','Dll injection failed',tmr1,chk1);
end;
except
end;
Agora de duplo clique no CheckTimer e coloque o código abaixo:
Código:
if chk1.Checked = True then begin
tmr1.Enabled:= True;
end else begin
tmr1.Enabled:= False;
end;
Pronto pessoal, é só isso ai porque as funções ficam na dll.
Meu injetor ficou assim :
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Créditos
~Tio Lee (Postagem original)
~iLvRaaFa(Compartilhar)