Cara Membuat Virus FaceBook

Iseng iseng lagi nih gak ada kerjaan, di lab komputer berisik banget, dosen
blom nongol batang hidungnya, ngebrowsing sana sini (ngga nge-bokep loh :p),
pusing ngga bisa facebook-an gara2 diblok sama admin kampus. ah daripada bete,
ngerjain laptop teman ah…! yuk mulai:

Copas kode berikut, simpan dalam ekstensi file .vbs

Dim code
Dim pass
pass = "hong.web.id"
MsgBox "Hallo Kamu telah terinfeksi Virus Facebook!!.

Waktu anda tinggal 3 hari lagi sebelum password Facebook anda diganti. 

Waktu 3hari anda dimulai: " & Time, 16, "Facebook Virus"
Do
code = InputBox("Masukkan 6 angka penangkal virus Facebook.",

"Virus Facebook Removal")
If code<>pass Then
MsgBox "Kode " & code & " Salah!!.

Jika anda mau tau kata kunci untuk menghapus virus ini.

Kunjungi website: http://www.hong.web.id"
End If
Loop Until code=pass
MsgBox "Kode diterima, Virus Facebook telah terhapus. Selamat..!"

Ingat yah, ini bukan virus beneran loh, cuman sekedar iseng doang, password untuk membatalkan aksi virus:
hong.web.id ,silahkan di edit kodenya sendiri. oh ya, kl males copas atau ga tau cara buatnya, download ajah
disini linknya.



http://www.ziddu.com/download/8974187/facebook.zip.html