Mengamankan FD (Flash Disk) dari Virus Komputer

Kadang ketika kita dari warnet untuk mengupload file atau sejenisnya atau di Lab Komputer Kampus, setibanya di rumah flashdisk terdapat tamu yang tidak diundang, biasanya virus sality. Padahal antivirus di warnet sudah pake salah satu antivirus lokal yang sudah terupdate, tetapi sering tidak terdeteksi .Akhirnya saya menemukan program untuk membantu memproteksi flashdisk.

Penggunaaan Program ini dengan Delphi 7

Untuk cara Penggunaannya : 

1. Silakan  buka notepad
2. Copy scrip dibawah/dibaca selengkapnya  lalu paste di notepad Atau Download Disini
3. Klik file save as filename ‘USBWriteableAdjuster.exe’
4. Simpan file tersebut di flashdisk .buat keamanan klik kanan file tersebut propertis general centang kata “hidden”

 Untuk yang lebih praktis silahkan mendownload file jadinya : Disini

Ini adalah Script Untuk mengamankan FD tersebut : 

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 http://anggiawan.web.id’,SW_NORMAL);
end;
end.
__________________________________________

Sumber : Link 01