Kamis, Desember 02, 2010

Melindungi File Document dengan Modifikasi Registry Editor

Penulis Day Milovich | Kamis, Desember 02, 2010 | 14.20.00 |

File-file MS-Word sangat populer, sehingga menjadi ranking teratas tipe file yang paling sering diinfeksi virus. Trik yang umum jika virus menguasai system adalah dengan menyembunyikan file-file MS-Word (hidden) kemudian menampilkan file dengan nama sama namun berekstensi .exe dengan tampilan icon persis MS-Word, bisa juga mengubah header file dan me-rename-nya menjadi .exe, .jpg, atau .bmp sehingga tidak bisa dibuka, ada juga yang secara sengaja menghapusnya.
Persamaannya adalah: file document (berekstensi .doc) menjadi urutan teratas dalam infeksi virus.
Anda tentu merasakan, betapa lelahnya menjalankan 1001 metode pencegahan dan pembersihan file virus hanya untuk melindungi file document (.doc) di mana 90% langkah-langkah yang Anda jalankan lebih sering bersikap reaksioner (menyembuhkan setelah terinfeksi), kasuistik (tergantung tingkah laku virusnya), dan pada banyak kasus, document kita sering tidak terselamatkan karena masa "menunggu antivirus baru" yang terlalu lama.
Itu semua dapat Anda antisipasi.

Metode yang ditempuh sangatlah sederhana:
1. Rename semua file MS-Word <-- misalnya dari "*.doc" menjadi "*.MsWord"
2. Ubah registry agar membaca/membuka file dengan ekstensi "*.MsWord" dengan aplikasi Microsoft Word

Persoalannya adalah bagaimana melakukannya?
1. Copy paste code berikut ini di notepad kemudian beri nama "RenameDoc2MsWord.vbs" dengan save as type: "all files".


Windows Registry Editor Version 5.00
;This dotVBS will rename all .doc to .MSWord in Drive D:\
;http://facebook.com/sqlcode
;http://daymilovich.blogspot.com
Dim Drive, Root, fname
Drive = "D" 'drive to be processed
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.doc$" 'dot-willbe-Renamed
.IgnoreCase = True
.Global = False
.Multiline = False
End With
Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
On Error Resume Next
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".MSWord") 'RenameResults
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub



Jika kode di atas telah Anda jadikan file "RenameDoc2MsWord.vbs" maka akan mengganti nama semua file yang berakhiran "*.doc" di drive D:\ file menjadi berekstensi "*.MsWord".

2. Selanjutnya, meminta registry untuk mengenali file berekstensi ".MSWord" agar dibuka dengan Microsoft Word.
Ini adalah code-nya. Simpan dan beri nama lain dengan cara seperti pada langkah sebelumnya.


Windows Registry Editor Version 5.00
;This dotREG will command Windows Explorer to open .MSWord file(s) with Microsoft Office Word
;http://facebook.com/sqlcode
;http://daymilovich.blogspot.com
[HKEY_CLASSES_ROOT\.MSWord]
@="MSWord_auto_file"
[HKEY_CLASSES_ROOT\MSWord_auto_file]
@=""
[HKEY_CLASSES_ROOT\MSWord_auto_file\shell]
[HKEY_CLASSES_ROOT\MSWord_auto_file\shell\edit]
@="&Edit"
[HKEY_CLASSES_ROOT\MSWord_auto_file\shell\edit\command]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\WINWORD.EXE\" /n /dde"
[HKEY_CLASSES_ROOT\MSWord_auto_file\shell\edit\ddeexec]
@="[REM _DDE_Direct][FileOpen(\"%1\")]"
[HKEY_CLASSES_ROOT\MSWord_auto_file\shell\edit\ddeexec\Application]
@="WinWord"
[HKEY_CLASSES_ROOT\MSWord_auto_file\shell\edit\ddeexec\Topic]
@="System"


Jalankan dua code di atas. Anda bisa lanjutkan dengan ekstensi lain jika diperlukan. Kode di atas untuk Microsoft Office 2003. Kode untuk Office 2007 silakan cari sendiri. Simpanlah kedua file tadi di flashdisk atau folder \master agar sewaktu-waktu dapat digunakan. Adakah metode lain?

Day Milovich,,
http://facebook.com/daymilovich
http://daymilovich.blogspot.com

Tidak ada komentar:

Posting Komentar

Anda bisa berkomentar tanpa perlu login.

 
Day Milovich (c) 2013. Diberdayakan oleh Blogger.