ShoutMix chat widget
silvanamails.net
Free money making opportunity. Join Cashfiesta.com and earn cash.

Cara melindungi File anda dari Serangan Virus.

Tuesday 8 September 2009 |

Fakta : Virus suka menghapus data-data ekstensi Microsoft Office

Salah satu virus lokal yang terkenal ganas, sempat membuat saya panas dingin karena berhasil menghapus file makalah yang susah payah saya buat 3 hari 3 malam. Yang pasti temen-temen bisa ngira, kira-kira apa ekstensi file makalah saya? Pasti ekstensi Microsoft Word, yaitu *.doc, yup, tepat sekali. Itu baru makalah, seandainya skripsi saya hilang begitu saja, atau data-data penting saya yang lain raib, bisa stress juga!

Solusi : Ubah Ekstensi Filenya!

Kenapa merubah ekstensi file? Begini nih, sebuah virus lokal, kalo dibredel, memiliki algoritma yang nyaris atau hampir sama. Menggandakan diri > Membuat File Induk > membuat salinan folder > menghapus semua file ekstensi *.doc, *.xls, *.ppt di drive tertentu > ........
Saya katakan hampir sama, karena tidak semua virus menghapus file kita. Terkadang hanya menyembunyikan saja. Oke! Kita rubah ekstensi file *.doc kita. Kalau kita punya 2-3 file word, okeylah kita pake cara klik kanan > rename. Tapi bagaimana kalau kita punya data 200 biji? Mau gitu ngubah satu-satu?? Baca selengkapnya di artikel ini...

Di sini ada VB Script untuk merename ekstensi file secara massal (contoh di sini dari *.doc menjadi *.MSword:

Dim Drive, Root, fname


Drive = "D" ------> 'drive yg akan diproses'


Set Root = CreateObject("Scripting.FileSystemObject"). _


GetDrive(Drive).RootFolder


Set fname = New RegExp


With fname


.Pattern = "\.doc$" -------> 'ekstensi file yang akan direname'


.IgnoreCase = True


.Global = False


.Multiline = False


End With


Call Rename(Root, fname)


Sub Rename(Folder, RegExp)


Dim SubFolder, File


For Each File in Folder.Files


If RegExp.Test(File.Name) Then


File.Name = RegExp.Replace(File.Name, ".MSWord") 'hasil renamenya'


End If


Next


For Each SubFolder In Folder.SubFolders


Call Rename(SubFolder, RegExp)


Next


End Sub

Salin script di atas menggunakan notepad, save dengan nama Renamer.vbs (perhatikan, ekstensinya VBS, bukan TXT), ubah text document menjadi all files, agar bisa menyimpan dengan format vbs. Lamanya proses tergantung dari spesifikasi komputer. Apalagi kalo ngerubah data satu partisi, bisa kemungkinan prosesnya lama.

Asosiasikan Ekstensi File ini dengan Ms Word

Caranya? Di Windows Explorer ---> Tools > Folder Options >File Types > New > Advanced


Ketikkan ekstensi MSword, kemudian asosiasikan dengan Microsoft Word, selesai!

Cara ini hanyalah satu dari sekian banyak untuk mencegah data kita dihapus sama virus-virus kejam.

0 comments:

Post a Comment

Buy and sell Text Links
Free money making opportunity. Join Cashfiesta.com and earn cash.

Followers