sexta-feira, 9 de novembro de 2012

Criando um trojan de conexão direta - Básicão

Eae cambada, este tutorial fiz a pedido de Carlos, em como criar um trojan de conexão direta. Vou fazer o trojan mais simples que eu puder, só estabelecendo a conexão entre os forms. Depois disso voces implementam.

Criando Cliente

Abra o Delphi clique em File>New>Application.
No formulário adicione os seguintes components/objetos:

1 Edit [Aba Standart]
2 Buttons [Aba Standart]
1 Label [Aba Standart]
1 ClientSocket [Aba Internet]

Caso não consiga achar o component ClientSocket, instale a package, vá em:
Components>Install Packages>Add e então procure na pasta BIN do delphi por dclsockets70.bpl. Adicione e clique ok.

Ajeite como quiser os components no form...

Selecione o component ClientSocket1 e adicione uma porta, por exemplo: 81
Com o ClientSocket1 selecionado vá até o Object Inspector>Events E um duplo clique em OnConnect  e adicione o seguinte código:

Label1.Caption := 'CONECTADO!';

Com o ClientSocket1 selecionado vá até ObjectInspector>Events E um duplo clique em OnConnecting e adicione o seguinte código:

Label1.Caption := 'CONECTANDO...';

Com o ClientSocket1 selecionado vá até ObjectInspector>Events E um duplo clique em OnDisconnect e adicione o seguinte código:

Label1.Caption := 'DESCONECTADO...';

Com o ClientSocket1 selecionado vá até ObjectInspector>Events E um duplo clique em OnError e adicione o seguinte código:

ErrorCode :=0;
Label1.Caption := 'ERRO AO CONECTAR...';


Agora volte ao formulário principal, e dê um duplo clique no button1 e adicione o seguinte código:

with form1 do
ClientSocket1.Address := Edit1.Text;
ClientSocket1.Active := true;
Exit;

Agora volte ao formulário principal, e dê um duplo clique no button2 e adicione o seguinte código:

with form1 do
ClientSocket1.Active := false;
Label1.Caption := 'parado';
Exit;

Salve toda aplicação em uma pasta e compile.
__________________________________________________________

Criando o servidor:


No formulário adicione os seguintes components/objetos:

1 ServerSocket [Aba Internet]

Selecione o ServerSocket1 e altere sua porta, a qual voce escolheu no Cliente, ou seja, 81.

Agora volte a o formulário principal, selecione o form principal na Object TreeView [Fica logo acima do Object Inspector]

Com o form principal selecionado vá ate: Object Inspector>Events>OnShow e adicione o seguinte código:

ServerSocket1.Active := TRUE;

Salve a aplicação e compile!

Obs: Um com começo para começar a implementar funções ao seu trojan seria este post vejam:

tags: como criar um trojan em delphi, como criar um trojan de conexão direta, como criar um trojan basico de conexão direta, aprendendo e criando um trojan de conexão direta em delphi.

2 comentários:

  1. Thow4EveR blz brother queria saber de vc se esse binder Binder By THiaG04EveR se era seu do site invasao, tem com vc fazer um video aula de binder avançado em delphi como trocar icone,executar em modo oculto,desabilitar firewall do windowns,obrigado pela atençao site ta show de bola,muita sorce para estudo otimo,obrigado.

    ResponderExcluir
  2. Cara esse Binder foi o Thiago que fez, contudo é muito simples criar binders, aqui no meu blogger tem um tutorial de como criar um "icon change" (trocador de icones de executaveis), no caso em executar em modo oculto ou não, mas mudar o final do ShellExecute para SHOWNORMAL/HIDE, e configurações de desabilitar firewall, vou postar logo mais.

    Vou postar umas sources minhas de Binders.
    Obrigado pela visita, volte sempre!

    ResponderExcluir

Você pode utilizar:
<b>NEGRITO</b> | <em>ITÁLICO</em> | <a href="LINK">TEXTO DO LINK</a>