Beranda > tips dan trik > PROTEKSI USB DaRi SERANGAN Virus.

PROTEKSI USB DaRi SERANGAN 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 http://anggiawan.web.id’,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”

Iklan
Kategori:tips dan trik Tag:, ,
  1. A.J.I
    16 Februari 2010 pukul 11:26 pm

    Mantap infonya bro,….ijin sedot ilmunya

  2. 18 Februari 2010 pukul 7:26 am

    thanks gan infonnya.. laptop gw sering kena virus gara2 flasdiks.. udh 6 x instal ulang cuy..

    thanks dan salam hangat.. 😉

  3. 28 Februari 2010 pukul 5:48 pm

    thank’s bro infonya…wah gw sering bgt tuh flashdisk kena gituan..thank’s yach..salam kenal oya makasih juga dah mampir….

  4. 21 Maret 2012 pukul 6:11 pm

    good, saya coba 🙂

  5. 5 Desember 2012 pukul 1:52 pm

    ini yg ane cari gan, thanks tipsny

  6. 7 Mei 2014 pukul 2:49 pm

    thanks tipsnya gan, setiap masukin flashdisk suka byk virusny

  7. 16 Mei 2014 pukul 2:04 pm

    info yg bermanfaat gan. sering banget kena virus dr flashdisk

  1. 21 Januari 2012 pukul 7:31 am

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: