Sabtu, 17 September 2011

Tehnik buat virus di Facebook


undefinedIseng 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:

copy scrip di bawah ini / download langsung
 //--------------//-------------------------------//--------------------------------------------------






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..!"
 
 
//--------------------------------------///----------------------- 

Tidak ada komentar:

Posting Komentar