belajar membuat virus bohongan yang berpasswords menggunakan notepad

langsung aja ga perlu pke basa basi Dim code
Dim pass
pass = "nandaganteng"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus, segera anda kunjungi http://www.hacker-newbie.org untuk medapatkan password penjinak virusnya. Jika dalam jangka waktu 5 menit anda belum mendapatkan passwordnya maka komputer anda akan mati untuk selamanya. Waktu 5menit anda dimulai: " & Time, 16, "Hn team"
Do
code = InputBox("Masukkan password untuk menggagalkan virus ini.", "Virus Removal")
If code<>pass Then
MsgBox "Kode" & code & " Password yang anda masukan salah, segera kunjungi http://www.hacker-newbie.org untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!"