membuat virus bohongan :D

ini saya punya code jail menggunakan notepad.bisa buat jailin temen yang lagi stress.
code:

Code:



Dim pass
pass = "hackers"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus berbahaya, segera anda kunjungi http://hackers.bestoforum.net untuk medapatkan password penjinak virusnya. Jika dalam jangka waktu 5 menit anda belum mendapatkan passwordnya maka komputer anda akan mati untuk selamanya dan data anda akan hilang semua. 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://hackers.bestoforum.net untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!"

copy paste codenya ke notepad dan simpan dengan extensi ".vbs" tanpa tanda kutip.
passwordnya:hackers