USB Killer [delphi] Rahman Surya Praja Selasa, 03 Mei 2011 2 Comments




Description: Untuk Disable+ Enable USB Disk (FlashDIsk)
Target : HKLM -> SYSTEM -> CurrentControlSet -> Services -> USBSTOR ->Start






Alasan Buat Tool ginian:
1. Karena Banyak temen saya yang ngambil atau copast data Laptop saya tanpa sepengetahuan saya lewat Flashdisknya...itu kan privacy!!


2. Sengaja maen ke Warnet.. Eh warnetnya Pelit, masa harus ngambil data yang di Download harus ke Billing server??



Component:
1. Form
2. RadioButton (2)
3. Button

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Panel1: TPanel;
Button1: TButton;
RadioGroup1: TRadioGroup;
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);
var
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;

reg.OpenKey('SYSTEM', True);
reg.OpenKey('CurrentControlSet', True);
reg.OpenKey('Services', True);
reg.OpenKey('USBSTOR', True);
reg.WriteInteger('Start', 4);
reg.CloseKey;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
var
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;

reg.OpenKey('SYSTEM', True);
reg.OpenKey('CurrentControlSet', True);
reg.OpenKey('Services', True);
reg.OpenKey('USBSTOR', True);
reg.WriteInteger('Start', 3);
reg.CloseKey;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Radiobutton1.Checked = true then
Begin
Radiobutton2.Checked := false;
showmessage('Fungsi Flash Disk (Disable)');
end else
Begin
showmessage('Fungsi Flash Disk (Enable)');
End;
end;
end.



by Jillur Rahman

Jillur Rahman is a Web designers. He enjoys to make blogger templates. He always try to make modern and 3D looking Templates. You can by his templates from Themeforest.

Follow him @ Twitter | Facebook | Google Plus

by Rahman Surya Praja

Freelance Forever

Follow him @ Twitter | Facebook | Google Plus

2 komentar :

  1. Mantap abiis :D


    bookmark ;)

    btw, boleh dong minta templtenya..
    asik..adem :D

    BalasHapus
  2. suram a... template-nya masih acak2an a...

    BalasHapus

Terima Kasih Sudah berkunjung!! Di Mohon Untuk Meninggalkan Komen, untuk mempererat silaturahmi.... ^_^