membuat virus palsu

belajar membuat virus palsu yang ada sandinya menggunakan notepad
langsung aja mas
--------------------------------------------------
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!"
-----------------------------------------------

save dengan HNC.vbs

atau pakai aja Visual basic

tapi kalau ga pnya ,,yyaa pakai software murah meriah aja
banyak qok dipasar
notepad
epp na