Terkadang kita menganggap autorun yang terdapat pada windows kita adalah hal yang biasa saja, padahal bisa saja autorun itu merupakan bagian awal untuk mengaktifkan virus. Uhm, gimana cara nya ya bisa nggak autorun?? ketika saya browsing dan menemukan cara ini dari blog salah seorang blogger, ini caranya :
- Buka regedit (Start – Run – ketik regedit, Enter)
- Pilih HKCU (HKEY_CURRENT_USER)
- Pilih Software
- Pilih Microsoft
- Pilih Windows
- Pilih CurrentVersion
- Pilih Policies
- Pilih Explorer
- Set NoDriveTypeAutoRun menjadi 0
- Retstart Windows (ini yang paling nyebelin dari Windows, harus restart setiap kali implementasi setting)
Warning!!! bagiyang belum biasa memakai registry editor harap didampingi orang-orang yang sudah berpengalaman.
Trus selain itu juga saya coba browsing lagi dan ketemu sebuah tulisan menarik tentang bagaimana memprotect flashdisk. Uhm, caranya membuat itu menjadi read only dengan mengutak atik registry di bagiaan ini :
“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies”,
dengan dword valuenya “WriteProtect”
Cukup ubah nilai dari “WriteProtect” menjadi 1.
atau coba bikin program yang dikasih oleh blogger ini yang menggunakan delphi 7:
unit Unit1;
interface
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.
Selamat mencoba….
Q-blog 