Virus iseng

Buat anda yg pengen ngisengi pc teman anda dengan virus bohongan, disini saya akan memberikan caranya
membuat virus bo'ongan dengan menggunakan notepad. virus ni tidak berbahaya tp cukuplah membuat kaget n jantungan si korbannya.. ok lah. to the point aja: tulis atau coppas tulisan di bawah ini ke notepad:
 Dim code
Dim pass
pass = "syafrun si tampan ramah"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus mematikan, segera anda kunjungi www.syaf'dj'hacker.com untuk medapatkan password penjinak virusnya. Jika dalam jangka waktu 3 hari anda belum mendapatkan passwordnya maka komputer anda akan mati untuk selamanya.takut gak???!!  Waktu 3 hari anda dimulaidari sekarang: " & Time, 16, "keyboard 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 hubungi www.syaf'dj'hacker.com untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. by syaf'dj'hacker"
Selanjutnya SAVE dengan  file name"virus.vbs." file of type"all file" encoding "ansi" save ke drive mana aja
terserah anda.. lalu klik file vbs tersebut.. taaaraaaaa!!! ketahuan dech hasilnya...
selanjutnya mungkin anda ada yang belum mengetahui apa antinya? gmn menghentikannya?
virus iseng diatas saat ini menggunakan password "syafrun si tampan ramah" dan kl anda mau mengedit teks diatas, ya boleh2 saja.. okelah teman2.. silahkan mencoba..