Buku Tamu

Sabtu, 18 Juni 2011

belajar membuat virus bohongan yang berpasswords 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.pe-ha-ka.blogspot.com 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.pe-ha-ka.blogspot.com untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!"
-----------------------------------------------

save dengan nama yang bebas asa formatnya .vbs

atau pakai aja Visual basic

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

0 komentar:

Poskan Komentar

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Colgate Coupons