Aang

Cara Amankan File-File Penting Dari Virus

Adapun beberapa file yang sering diserang oleh virus yakni file dengan type *.doc, *.exe, *.htm dan masih banyak lagi type file yang lainnya. Nah disini kita akan mengaklai semua virus tersebut dengan merubah extensi file2 tersebut sesuai dengan extensi file yang kita inginkan. Saya jamin setelah melakukan triks ini file2 kesayangan kita akan aman dari serangan virus, segera anda praktikkan, jangan anda menyesal nantinya jika file anda keburu tekena virus. Berikut scriptnya

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 = "\.exe"'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, ".ex_") 'hasil renamenya
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

Copy paste script ini dalam notepad dan simpan dalam dengan extensi file *.vbs. dan jika anda ingin menjalankan file ini cukup klik 2 kali dan semua perintah dalam script ini akan terlaksana.
Sedikit penjelasan tentang script diatas
Drive = "D"
//script diatas berarti bahwa script ini hanya akan berjalan di drive D: doang, jadi anda bisa merubahnya sesuai drive yang anda inginkan

.Pattern = "\.exe"
//script ini menginstruksikan agar semua file yang bertype atau berextensi *.exe dalam drive D: yang akan dirubah seuai dengan extensi keinginan anda nantinya.

File.Name = RegExp.Replace(File.Name, ".ex_")
//disni saya akan merubah extensi file *.exe menjadi *.ex_
Jadi semua file *.exe pada drive d: akan dirubah menjadi
*.exe
 

Gampang kan?
Dan anda bisa menentukan extensi file yang anda ingin rubah dan di drive mana perubahan itu akan anda lakukan. Sekarang kalo estensinya berubah tentunya dak bisa dibuka atau dijalankan doung?
Tenang anda tidak perlu kawatir file yang anda rename extensinya tadi tidak akan cacat atau bahkan sampai rusak, jika anda ingin mengembalikan keposisi semula anda hanya perlu membalik perintah script diatas yakni
.Pattern = "\.exe" dirubah menjadi .Pattern = "\.ex_"
dan untuk script File.Name = RegExp.Replace(File.Name, ".ex_") kita rubah menjadi
File.Name = RegExp.Replace(File.Name, ".exe")
Tentunya perubahan ini sesuai dengan extensei yang anda gunakan, untuk sample diatas saya menggunakan file dengan extensi *.exe
Maka dengan demikian file yang bertype *.ex_ tadi akan berubah lagi menjadi *.exe. anda juga bisa nerubah file3 bertype *.doc menjadi apa yang anda inginkan, karma bagaimanapun juga virus2 yang ada sekarang akan terus menjadi lebih seram, salah satunya cara adalah dengan cara diatas.

Demikian mudahan artikel ini bisa berguna untuk kita semua