Cara Memprotect Flash Disk Dari Virus

Kadang ketika kita dari warnet untuk mengupload file atau sejenisnya , setibanya di rumah flashdisk terdapat tamu tak diundang, klo ga virus sality ya virus alman. Padahal antivirus di warnet sudah pake salah satu antivirus lokal yang suka mengeluarkan updatean, kok ga terdeteksi ya . Akhirnya capek lagi untuk mengcopy file2 program yang saya wajibkan di flashdisk ) akhirnya saya menemukan program untuk memprotek flashdisk. disini kami membuatnya pake delphi.7

uses

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

type

TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Label2: TLabel; Label3: TLabel; Button2: TButton; procedure FormCreate(Sender: TObject); procedure showCurrentStatus; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; const regKey = ‘\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies’; regValue = ‘WriteProtect’; var Form1: TForm1; currentVal: integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin try with TRegistry.Create do begin try RootKey := HKEY_LOCAL_MACHINE; if OpenKey(regKey, true) then begin if currentVal = 0 then WriteInteger(regValue, 1) else WriteInteger(regValue, 0); end; finally free; end; end; except on E:Exception do begin showmessage(’Error updating registry’); end; end; showCurrentStatus; end; procedure TForm1.FormCreate(Sender: TObject); begin showCurrentStatus; end; procedure TForm1.showCurrentStatus; begin try with TRegistry.Create do begin try RootKey := HKEY_LOCAL_MACHINE; if OpenKey(regKey, false) then begin currentVal := ReadInteger(regValue); if currentVal = 0 then label1.caption := ‘Current status: Your USB disk is now WRITEABLE’ else label1.caption := ‘Current status: Your USB disk is now READ ONLY’; end else begin label1.caption := ‘There is no current setting for your USB disk.’; currentVal := 0; end; finally free; end; end; except on E:Exception do begin showmessage(’Error reading current status from registry’); label1.caption := ‘There is no current setting for your USB disk.’; currentVal := 0; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin WinExec(’explorer.exe,SW_NORMAL); end; end.

caranya gampang qok :

1.anda buka notepad

2.copy scrip di atas lalu paste di notepad.

3.klik file save as ‘file nameNya ‘USBWriteableAdjuster.exe’

4.simpan file tersebut di flashdisk .

buat keamanan klik kanan file tersebut propertis general centang kata “hidden” ceritanya menyembunyikan , . .hehe”. sudah selesai , gampang kan … “semoga bermanfaat”