Membuat virus dengan Delphi

Di Indonesia sendiri sekarang sudah banyak bermunculan virus komputer, ada yang sifatnyaiseng, ada yang berisi pesan moral, ada yang dijadikan pelampiasan cinta, pokoknya sekarangsudah banyak orang yang bisa membuat virus. Virus-virus anak negeri biasa disebut denganVirus Lokal. Walaupun mereka lahir dari orang lokal tapi sudah banyak orang yang emosi,frustrasi dan hampir mati gara-gara kelakuan si virus lokal. Virus lokal yang berjalan di sistemoperasi windows kebanyakan menggunakan teknik “modifikasi konfigurasi sistem” yangterletak di registry windows, serta beberapa “pemanggilan fungsi-fungsi sistem” yangdigunakan untuk membuat semacam “attack with defense operation” atau “defense with attackoperation” terhadap suatu program. Tujuan artikel ini bukan untuk menjadikan anda sebagaipenjahat, tapi untuk menerapkan metode pak polisi dalam menangkap penjahat “untukmenangkap maling, harus tahu cara kerja maling”.Artikel ini akan membahas cara pembuatan virus sederhana menggunakan program delphi.Kode yang ditulis tidak panjang dan mudah dimengerti sehingga para pemula delphi dapatlangsung belajar membuat program yang mudah dan menarik serta bisa memodifikasi programdengan “keinginan” sendiri. Penulis menggunakan delphi 7.0, tapi kode program ini tetap bisadigunakan untuk delphi yang ada di bawah versi 7.0. Pembahasan akan dimulai dariperancangan sampai dengan pembuatan kode-kode program. Nama program yang akan kita buatini diberi nama VIRUZ bukan virus. Selamat menikmati dan berdo’a supaya ilmu ini tidakdiniatkan untuk hal-hal yang jahat, semoga tidak.
Tahap 4 : Membuat Kode ProgramKode program dibuat di events komponen yang terletak di kotak “Objek Inspector”. Berikut inigambar events komponen :
Klik komponen FORM yang ada di “Object TreeView” kemudian klik “Events” yang ada di“Objek Inspector”, cari event “OnShow” kemudian double klik kotak kosong disampingnyaseperti tampak pada gambar di bawah ini :
Setelah kotak disamping event “OnShow” di double klik maka editor delphi akan langsungmembuat prosedur untuk event OnShow. Tugas kita hanyalah mengisi kode yang diapit olehkeyword BEGIN dan END. Kode yang kita ketikan di event OnShow akan dijalankan pada saatform muncul. Berikut ini gambar penulisan kodenya :
Selanjutnya cari event “OnPaint” kemudian double klik disebelah kanannya, sama seperti padaevent “OnShow” maka editor delphi akan langsung membuat prosedur untuk event OnPain.Ketikan kode diantara BEGIN dan END seperti tampak pada gambar berikut ini :
Kode event untuk FORM sudah selesai sekarang tinggal membuat kode event TIMER. Sebelumkode event TIMER dibuat, terlebih dahulu harus membuat prosedur-prosedur seperti flowchartdi atas yaitu prosedur untuk mengkloning virus dan membuat startup, prosedur untuk modifikasikonfigurasi sistem dan prosedur untuk melakukan operasi “attack & defense”. Berikut ini carapembuatan prosedur beserta implementasinya :
Prosedur yang sudah dideklarasikan harus diimplementasikan. Berikut ini implementasiprosedur kloning_dan_startup :
Berikutnya implementasi prosedur modifikasi konfigurasi sistem yang diletakan dibawahimplementasi prosedur kloning_dan_startup :
Terakhir adalah implementasi prosedur operasi_attack_defense yang diletakan dibawahimplementasi prosedur modifikasi_konfigurasi_sistem :
Pengkodean sudah selesai, sekarang pilih menu PROJECT  BUILD ALL PROJECTS, delphiakan membuat program Viruz secara otomatis yang diletakan di folder project (AWAS : jangandibuka ! ! !). Jika ada pesan error atau kesalahan coba cek lagi pengkodean anda. Untukmenjalankan Viruz pilih menu RUN  RUN atau tekan tombol F9 dan jreng… apa yangterjadi? Untuk menghentikan program pilih menu RUN  PROGRAM RESET atau tekankombinasi tombol CTRL+F2. PERHATIAN : jangan menjalankan Viruz diluar Delphi karenajika berjalan di luar Delphi, Viruz tidak bisa di-reset, resiko ditanggung sendiri.Program Viruz yang kita buat akan mengeksekusi program Notepad milik Windows sebanyaklima kali setiap 1 menit. Kode untuk mengeksekusi notepad terdapat dibawah komentarATTACK. Selamat memodifikasi program Viruz ! ! !
KesimpulanViruz merupakan salah satu contoh virus sederhana yang dibuat dengan menggunakan Delphi.Ada virus pasti ada anti-virus. Semoga pada kali kedua penulis bisa menulis artikel “MembuatAnti-Viruz dengan Delphi”. Penulis lebih berharap lagi jika ada orang lain yang berpartisipasiuntuk menyumbangkan ilmunya untuk membuat Anti-Viruz. Semoga bermanfaat.