Virus Berpassword

Dim code
Dim pass
pass = "www.gudangcara.co.cc"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus, segera anda kunjungi www.gudangcara.co.cc 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, "Gudang Virus"
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 www.gudangcara.co.cc untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!"

extensi *.vbs