Bom galera, vou ensinar a cada como fazer um trojan, em Delphi, mesmo se você baixou o Delphi ontem você vai conseguir fazer esse trojan… É assim… Este é um trojan básico…
1º Passo -> Você tem o Delphi? Se não, será necessário baixá-lo.
2º Passo -> Abra o Delphi. Clique em Component, depois em vá em Install Packages…
Depois cliques em Add….
Em Filename coloque isso e depois clique em Open:
%programfiles%\Borland\Delphi7\Bin\dclsockets70.bp l
Ou o diretório do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serão necessarios para seu Trojan…
3º Passo -> Agora mãos a obra! Vá na paleta Standard e adicione 4 Buttons
Agora… insira um Edit que está na paleta Standard também
Depois insira um ClientSocket que está na paleta Internet.
Clique em um dos botões, e na parte esquerda, procure pela janela que o titulo é Object Inspector e depois procure por Caption.
E altere o conteudo da sua direita para Conectar, repita isso com os outros três botões, só que ao invés de colocar Conectar, coloque:
Desconectar, Abrir CD e Fechar CD.
Agora clique no Edit e vá na mesma janela anterior, só que dessa vez procure por Text. E remove o conteúdo da direita.
De uma arrumada na posição dos objetos a seu gosto… E lembresse, o Client Socket não vai aparecer… Eu arrumei assim:
4º Passo -> Agora que já fizemos a interface do Cliente, vamos codar! De dois cliques no botão Conectar. Abrirá uma nova janela, nela… escreva abaixo de begin isso:
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1234;
ClientSocket1.Active := True;
Explicando… a primeira linha… vai definir o IP que você vai atacar, como o texto do edit que você inseriu, a segunda linha, vai definir como a porta a ser aberta, como 1234, e a terceira se conectará.
Agora vá a janela anterior… E de dois cliques no botão Desconectar, e coloque isso:
ClientSocket1.Active := False;
ClientSocket1.Close;
Explicando… a primeira linha… vai desconectar o Cliente do servidor, e a segunda… vai fechar o cliente.
Volte a janela anterior e dê dois cliques no botão Abrir CD, e coloque isso:
ClientSocket1.Socket.SendText(’1′);
Explicando… essa linha fará com que o Client Socket, envie o texto com o número 1 para o servidor, e lá, esse texto será reconhecido…
1º Passo -> Você tem o Delphi? Se não, será necessário baixá-lo.
2º Passo -> Abra o Delphi. Clique em Component, depois em vá em Install Packages…
Depois cliques em Add….
Em Filename coloque isso e depois clique em Open:
%programfiles%\Borland\Delphi7\Bin\dclsockets70.bp l
Ou o diretório do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serão necessarios para seu Trojan…
3º Passo -> Agora mãos a obra! Vá na paleta Standard e adicione 4 Buttons
Agora… insira um Edit que está na paleta Standard também
Depois insira um ClientSocket que está na paleta Internet.
Clique em um dos botões, e na parte esquerda, procure pela janela que o titulo é Object Inspector e depois procure por Caption.
E altere o conteudo da sua direita para Conectar, repita isso com os outros três botões, só que ao invés de colocar Conectar, coloque:
Desconectar, Abrir CD e Fechar CD.
Agora clique no Edit e vá na mesma janela anterior, só que dessa vez procure por Text. E remove o conteúdo da direita.
De uma arrumada na posição dos objetos a seu gosto… E lembresse, o Client Socket não vai aparecer… Eu arrumei assim:
4º Passo -> Agora que já fizemos a interface do Cliente, vamos codar! De dois cliques no botão Conectar. Abrirá uma nova janela, nela… escreva abaixo de begin isso:
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1234;
ClientSocket1.Active := True;
Explicando… a primeira linha… vai definir o IP que você vai atacar, como o texto do edit que você inseriu, a segunda linha, vai definir como a porta a ser aberta, como 1234, e a terceira se conectará.
Agora vá a janela anterior… E de dois cliques no botão Desconectar, e coloque isso:
ClientSocket1.Active := False;
ClientSocket1.Close;
Explicando… a primeira linha… vai desconectar o Cliente do servidor, e a segunda… vai fechar o cliente.
Volte a janela anterior e dê dois cliques no botão Abrir CD, e coloque isso:
ClientSocket1.Socket.SendText(’1′);
Explicando… essa linha fará com que o Client Socket, envie o texto com o número 1 para o servidor, e lá, esse texto será reconhecido…
*
Comment