MENGUBAH PROPERTY 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