Konsep Time Bomb pada virus dengan VB

Dari beberapa virus ada yang make teknik ini untuk melancarkan aksinya dengan setting waktu (hari ,tanggal,jam). Ini bener2 lucu menurutku, soalnya mungkin mereka yang disebut sebagi virus script write mahu pamer teknik2 lucunya, dan sebagaimana hasilnya muncul dech virus2 yang pada hari dan jam tertentu hidup. Untuk source code nya adalah :

source code form

Dim satyasekarang
Dim satyajam
Form1.WindowState = 1
satyasekarang = Format(Now, “dd/mm/yyyy”)
satyajam = Format(Time, “hh:mm:ss”)

If satyasekarang = “29/1/2007″ And satyajam = “08:13:00″ Then
Shell “notepad.exe”
MsgBox “satya gi bingung nich, apakah perasaan ini benar terhadapnya, aku berharap dia adalah sosok baru yg memberikan kekuatan dalam islam dan imanku!!!”, vbCritical
Else
Set satyasekarang = Nothing
Set satyajam = Nothing
GoTo perulangan

End If

Penjelasan coding :
1.deklarasi satyasekarang dan satya jam
2.windowstate untuk minimize program
3.menset satyasekarang adalah sekarang tanggal berapa?, dan menset satyajam adalah menujukan waktu yang dipunyai windows secara default.
4.melakukan looping, jika sekarang tanggal x dan jam y maka akan dijalankan Notepad.exe
(ini nanti yang bisa diganti dengan file master virus, tinggal tulis path nya)
5.muncul deh pesen satya_flagel,….he..heee
6.menset memori satyasekarang dan satyajam adalah kosong, untuk memperkecil memori yg dipake.
7.perintah Go To untuk melakukan perulangan kembali secara continue.

Moga bermanfaat yach,
Sumber asli : satya baca di aat sadewa