Fury Cheats

Nada além do que cheats


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

iLvRaaFa

iLvRaaFa
Membro
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

[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)

CalvinK

CalvinK
Membro
Membro
Ganhou meu "+" Belo tuto.

iLvRaaFa

iLvRaaFa
Membro
Membro
Obrigado CalvinK

Yoda

Yoda
Membro
Membro
Parabens Pelo Topico & Conteudo Mais Eu Mexo em VB

iLvRaaFa

iLvRaaFa
Membro
Membro
Obrigado Yoda "+" porfavor?

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos