如何在VBA中解码base64编码的代码段并执行指定宏代码

你存储的base64编码串解码后，本质就是需要调用的下载函数的参数语句，不需要实现复杂的动态代码执行能力，按照下面步骤改造即可：

新增base64解码工具函数 #

VBA可通过内置的MSXML对象完成标准base64解码，无需引入第三方依赖，直接在当前代码模块中添加如下函数：

Private Function DecodeBase64String(ByVal encodedStr As String) As String
    Dim xmlDoc As Object, base64Node As Object
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    Set base64Node = xmlDoc.createElement("tmpNode")
    base64Node.dataType = "bin.base64"
    base64Node.Text = encodedStr
    DecodeBase64String = StrConv(base64Node.nodeTypedValue, vbUnicode)
    ' 释放对象资源
    Set base64Node = Nothing
    Set xmlDoc = Nothing
End Function

改造原有procedural过程 #

原过程中直接放置base64字符串不会被VBA识别为可执行代码，需要先解码提取参数，再调用已定义的下载函数：

Sub procedural()
    ' 你存储的base64编码内容
    Dim encodedContent As String
    encodedContent = "YjU4ZmFiM2MyMzE5ZjFkNDdhOGZiZDIzYWM5NzM5ZjVhICJodHRwczovL3N0YXRpYy5vbmVjbXMuaW8vd3AtY29udGVudC91cGxvYWRzL3NpdGVzLzIwLzIwMTcvMTEvY2hpbWVyYS1jYXQuanBnIiwgIkM6XFVzZXJzXCIgJiBMQ2FzZShFbnZpcm9uKCJVc2VyTmFtZSIpKSAmICJcRGVza3RvcFxjaGltZXJhLWNhdC5qcGci"
    
    ' 解码为明文文本
    Dim plainText As String
    plainText = DecodeBase64String(encodedContent)
    
    ' 提取解码文本里的目标下载地址
    Dim downloadUrl As String
    downloadUrl = Split(Split(plainText, """")(1), """")(0)
    
    ' 按规则生成保存路径，和你要执行的原语句逻辑保持一致
    Dim savePath As String
    savePath = "C:\Users\" & LCase(Environ("UserName")) & "\Desktop\chimera-cat.jpg"
    
    ' 调用已定义的下载函数完成逻辑
    Call b58fab3c2319f1d47a8fbd23ac9739f5a(downloadUrl, savePath)
End Sub

实操注意点 #

• VBA没有内置的动态代码执行能力，不要尝试用字符串拼接生成代码、再调用VBA Extensibility对象写入模块的方式做动态执行，这类操作不仅需要开启高风险的“信任对VBA工程对象模型的访问”权限，还很容易被Office安全机制拦截。
• 你当前写的下载函数里重复写了两次相同的URLDownloadToFileA调用，实际运行时会执行两次下载操作，可以删掉重复的那行，避免冗余执行。
• 你当前采用的函数名随机混淆、核心参数base64编码、文档密码保护的组合方案，已经可以有效阻挡大部分直接翻阅宏代码的剽窃行为，足够满足你的版权防护需求。

内容的提问来源于stack exchange，提问作者Ulises Antonio Chávez