Kiank Solution Find Your PC and Hanphone Solution Here

Sebenarnya program ini ada di buku pertama virologi, yaitu ”Seni Programming Virus Menggunakan Visual Basic”, tapi apa salahnya dibahas lagi. Program ini terbagi 2 yaitu form dan module. Fornya sendiri berguna untuk desain aplikasi, biar kelihatan di layar komputer, jadi tidak dianggap virus, sedangkan modulnya untuk meng-injeksi registry yang dimanipulasi oleh virus. Coba lihat baris – baris pada modulnya :

Public Sub CreateIntegerKey(Folder As String, Value As Integer)

Dim b As Object
On Error Resume Next
Set b = CreateObject(”wscript.shell”)
b.RegWrite Folder, Value, “REG_DWORD”

End Sub

Kode ini berguna untuk menginjeksi registry, dan pemanggilannya ada di form-nya, coba lihat di baris:

Private Sub Command7_Click()
CreateIntegerKey “HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, 0
CreateIntegerKey “HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden”, 1
End Sub

Nah tombol command7 berfungsi untuk mengembalikan fungsi Folder Options pada windows yang telah dimanipulasi virus lewat registry..

Anda bisa mendonlot nya di:

Program dan source Pengembali Folder Options

Semoga bermanfaat,

Sumber : www.virologi.info ( Aat shadewa )

Repost [kiank]