belajar membuat virus bohongan yang berpasswords menggunakan notepad

Dim code
Dim pass
pass = "www.gudangcara.co.cc"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus, segera anda kunjungi www.gudangcara.co.cc 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, "Gudang 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 kunjungi www.gudangcara.co.cc untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!" 


 Untuk kode yang berwarna merah anda bisa ganti dengan password virus yang anda inginkan, sedangkan untuk kode yang berwarna biru anda ganti dengan kata-kata atau pesan yang akan tampil pada password yang akan anda buat.
Jika sudah anda selesai, simpan script yang telah anda copy di atas dengan extensi *.vbs misalnya anda membuat namanya gudangvirus.vbs, dan jangan lupa anda rubah tipenya dari txt menjadi All Files.
Perlu saya beritahu bahwa virus ini tidak akan merusak sedikitpun data-data yang ada di komuter anda, jadi anda tidak perlu khawatir jika ingin mencoba virus ini di komputer anda, namanya saja virus bohongan, jadi ya ga ada efeknya sedikitpun. Ini hanya digunakan untuk pembelajaran, dan anda bisa berkreasi untuk mengedit script di atas.
Jika anda ingin menggunakan script ini untuk berbuat kejahilan silahkan tapi saya ingatkan jika saya tidak mau tahu dan tidak akan bertanggung jawab atas semua akibat yang ditimbulkan atas kejahilan yang dibuat virus ini, jadi sebaiknya gunakan virus ini hanya sebagai pembelajaran saja. Males copas ya, kalo gitu download aja kodenya DISINI.
Semoga bermanfaat dan selamat mencoba.

Saya harap para rekan blogger bisa lebih arif dan bijaksana dalam menentukan keputusan perlu atau tidaknya memasang kode script diatas, kalau sama-sama kita simak lirik lagu mbah Gesang yang berjudul Bengawan Solo sbb : " air mengalir sampai jauh, akhirnya ke laut" .Kalau boleh saya artikan sendiri "air" itu ibarat "Ilmu" dan "laut" itu seperti "kehidupan" jadi biarkanlah ilmu itu mengalir dari satu orang ke orang lain, toh akhirnya bermuara didalam kehidupan kita, hehehe...sok berfilosofi gue wkwkwkwkw.....lebay mode:on. Berbagi ilmu itu ibadah lho...
 sumber : http://anggabhandel009.blogspot.com