Home » Trik Komputer » Solusi Data di hidden oleh Virus

Solusi Data di hidden oleh Virus

Update Administrator |

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


Cara 2 untuk yang gak mau ribet

  1. Download file unhidebyakhdian disini
  2. Extract di Flashdisk (atau ditempat dimana anda akan mengembalikan folder yang tersembunyi) sampai muncul file unhidebyakhdian.bat
  3. Double klik file unhidebyakhdian.bat
  4. Tunggu beberapa saat Insya Allah File/folder anda kembali muncul






Kirim Komentar Anda:
Pembaca dapat mengirimkan komentar terkait artikel yang ditayangkan. Isi komentar bukan merupakan pandangan, pendapat ataupun kebijakan Kami dan sepenuhnya menjadi tanggung jawab pengirim.

Pembaca dapat melaporkan komentar jika dianggap tidak etis, kasar, berisi fitnah, atau berbau SARA. Kami akan menimbang setiap laporan yang masuk dan dapat memutuskan untuk tetap menayangkan atau menghapus komentar tersebut.