Mengubah properti file yang di hidden oleh virus

Saya sering dibuat kesal oleh ulah virus-virus yang menyerang computer. Banyak sekali pengaturan yang di ubah hingga saya jadi bingung. Salah satu yang biasa dilakukan virus adalah mengubah property folder atau file menjadi hidden, lalu mendisable checkbox unhide(hidden system), sehingga kita tidak bisa mengubahnya menjadi unhide. Setelah mencari referensi dari berbagi sumber, akhirnya saya menemukan jalan keluarnya. Ternyata ada banyak cara yang dapat dilakukan untuk mengubah property file dari hidden system menjadi unhide, yaitu :
1. Menggunakan vbscript(tanpa program khusus).
Misalnya folder yang ingin kita ubah propertynya adalah b yang letaknya di C:\a\ maka scriptnya sebagai berikut:
Set attribut = CreateObject(“Scripting.FileSystemObject”)
attribut.GetFolder(“C:\a\b”).Attributes = 2
Untuk mengubah attribute file:
Set attribut = CreateObject(“Scripting.FileSystemObject”)
attribut.GetFile(“C:\leopark62\a.exe”).Attributes = 2
Perubahannya adalah :
attribute.Getfolder menjadi attribute.Getfile
tulis nama file dan extensinya misalnya a.exe
copy dan paste script tersebut di notepad lalu simpan dengan extensi vbs. Untuk menjalan kannya, cukup klik dua kali pada file tersebut. Perhatikan nilai 2 pada script tersebut, nilai itu dapat kita ubah-ubah sesuai dengan konfigurasi yang kita inginkan. Berikut settingan lengkapnya:
Attributes = 0  berarti normal
Attributes = 1  berarti read only
Attributes = 2  berarti hidden
Attributes = 3  berarti read only + hidden
Attributes = 4  berarti system
Attributes = 5  berarti system + read only
Attributes = 6  berarti system + hidden
2. Menggunakan visual basic.
Private Sub Command1_Click()
On Error GoTo adaerror
If Text1.Text = “” Then
MsgBox “Anda belum mengisi patch”
ElseIf Text2.Text = “” Then
MsgBox “Anda belum menentukan attributnya”
Else
‘Mengganti Atribut folder
Set sembunyi = CreateObject(“Scripting.FileSystemObject”)
sembunyi.GetFolder(Text1.Text).Attributes = Text2.Text
MsgBox “Sukses”
End If
Exit Sub
adaerror:
Select Case Err.Number
Case 76
Errmsg = “Patch [ " & Text1.Text & " ] tidak ditemukan!”
End Select
MsgBox Errmsg, vbCritical + vbOKOnly, Me.Caption
End Sub

Private Sub Command2_Click()
MsgBox “leopark62.net”
End Sub

Private Sub Option1_Click()
Text2.Text = 0
End Sub

Private Sub Option2_Click()
Text2.Text = 2
End Sub

Private Sub Option3_Click()
Text2.Text = 6
End Sub
Download programnya disini