Bom galera, vou ensinar como fazer um trojan, em Delphi, mesmo se voce baixou o Delphi ontem voce vai conseguir fazer esse trojan... E assim... Este e um trojan basico...1o Passo -> Voce tem o Delphi? Se nao, sera necessario baixa-lo.baixar delphi 2o Passo -> Abra o Delphi. Clique em Component, depois em va em Install Packages...Depois cliques em Add....Em Filename coloque isso e depois clique em Open:%programfiles%\Borland\Delphi7\Bin\dclsockets70.bplOu o diretorio do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serao necessarios para seu Trojan...3o Passo -> Agora maos a obra! Va na paleta Standard e adicione 4 ButtonsAgora... insira um Edit que esta na paleta Standard tambemDepois insira um ClientSocket que esta na paleta Internet.Clique em um dos botoes, e na parte esquerda, procure pela janela que o titulo e Object Inspector e depois procure por Caption.E altere o conteudo da sua direita para Conectar, repita isso com os outros tres botoes, so que ao inves de colocar Conectar, coloque:Desconectar, Abrir CD e Fechar CD.Agora clique no Edit e va na mesma janela anterior, so que dessa vez procure por Text. E remove o conteudo da direita.De uma arrumada na posicao dos objetos a seu gosto... E lembresse, o Client Socket nao vai aparecer... Eu arrumei assim:4o Passo -> Agora que ja fizemos a interface do Cliente, vamos codar! De dois cliques no botao Conectar. Abrira 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 voce vai atacar, como o texto do edit que voce inseriu, a segunda linha, vai definir como a porta a ser aberta, como 1234, e a terceira se conectara.Agora va a janela anterior... E de dois cliques no botao 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 de dois cliques no botao Abrir CD, e coloque isso:ClientSocket1.Socket.SendText('1');Explicando... essa linha fara com que o Client Socket, envie o texto com o numero 1 para o servidor, e la, esse texto sera reconhecido...Volte novante a janela anterior, de dois cliques no botao Fechar CD, e coloque isso:ClientSocket1.Socket.SendText('2');Explicando... ele faz a mesma coisa que o comando anterior, so que, ao inves de mandar um texto com o numero 1 ele vai mandar um texto com o numero 2.Pronto cliente terminado,agora so falta o Server, entao salve o programa clicando em File, depois em Save all e salve aonde voce quiser.Depois que salvar clique em Project depois Compile Project1Depois clique em File, depois Close AllClique em File, depois New, depois ApplicationVa na paleta Internet e de dois cliques em ServerSocketAgora de um clique nele, e va na janela Object Inspector, e mude a Port para 1234Agora, ainda na Object Inspector, mude o Active para TrueNovamente em Object Inspector, clique em EventsDepois de dois cliques em OnClientReadNa nova janela que apareceu, apague o begin e coloque isso:varKingcaio : String;beginKingcaio := Socket.ReceiveText;if Kingcaio = '1' thenMciSendString('Set CdAudio Door Open',nil,0,Handle)else if Kingcaio = '2' thenMciSendString('Set CdAudio Door Closed',nil,0,Handle);Explicando... A