Pengamanan Jcow Versi lama

Selamat Malam gan kali ane mau ngesahre bagaimana cara

membuat virus bohongan yang berpasswords menggunakan notepad

langsung aja ga perlu pke basa basi Dim code

Dim pass
pass = "alxaddy"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus, segera anda kunjungi http://forum.tasikcyber.net 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://forum.tasikcyber.net untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!

sumber : tasikcyber.or.id