Trik Jitu Amankan File-File Penting Dari Virus

Artikel ini merupakan lanjutan dari artikel yang saya tulis dan saya upload di
website ini juga beberapa minggu lalu yang berjudul:
"Mengamankan Komputer dengan Meminimalisir Serangan VIRUS tanpa Anti Virus".
Saya kembali menemukan sedikit ide yang mungkin bermanfaat bagi semua orang yang
sering dihantui rasa takut akan kehilangan data-data penting gara-gara diserang
virus-virus jahat yang sangat tidak bertanggung jawab.
Akhir-akhir ini saya semakin banyak mendengar dan menemui kasus-kasus
penyerangan virus yang dalam penyebarannya disertai menghapus ataupun merusak
data dengan ekstensi-ekstensi tertentu, yang kebanyakan penyerangan ditujukan pada
data-data Document (*.doc, *.xls, *.ppt, *.txt dan lnsbgygtl) terutama pada file yang
berekstensi *.doc. Hal ini membuat banyak orang sangat takut hingga mereka
merajinkan diri membackup data berkala secara manual, hingga menginstal software
antivirus maupun software-software perlindungan lain yang kadang kurang efektif dan
sangat merepotkan diri sendiri. Maka dari itulah saya menulis artikel lanjutan ini yang
semoga dapat mengatasi masalah tersebut

Inti dari Artikel ini sebenarnya sangat sederhana yaitu merename semua ekstensi
file-file penting sekaligus dalam sebuah Drive dengan sekali click. Disini saya
menggunakan bantuan script VBS untuk penerapannya.
*sekedar info: dulu sih biasanya saya menggunakan script ini untuk merename file-file video dari VCD
yang berekstensi *.DAT menjadi *.MPG agar bisa tertampil (Thumbnail) ditampilan Explorer.
Virus menyerang beberapa jenis file di dasarkan pada file exstensinya, dan
dikarenakan kebanyakan virus menyerang file *.doc, maka dalam contoh dibawah ini
saya akan menerapkannya pada file ini, yaitu merubah ekstensi *.doc menjadi
*.MSWord. (anda juga boleh menentukan hasil rename-nya sendiri selain *.MSWord )
Ikuti langkah-langkah berikut:
1. Buka RUN ketik notepad.exe lalu enter
2. Setelah aplikasi notepad muncul ketikkan atau copy > paste script di bawah ini :
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
3. SaveAs di folder mana-saja dengan filename: XTRenamer.vbs , click pada kolom
"Save as type" dan ganti "Text Document (*.txt)" menjadi "All Files" lalu click
tombol "Save"

4. Eksekusi file XTRenamer.vbs yang telah anda b...