AES 加密方法参考

📋 方法列表

类	方法	说明
cAes	CBC	访问 CBC 加密实例
cAesCBC	Encode	加密字符串数据

---

🔌 cAes.CBC 属性

说明

访问 cAesCBC 实例，这是 AES CBC 加密的主要入口。

语法

Public CBC As New cAesCBC

使用示例

Dim Aes As New cAes

' 通过 CBC 属性访问加密功能
Dim result As String
result = Aes.CBC.Encode("Hello World")

---

🔐 cAesCBC.Encode 方法

说明

使用 AES CBC 模式加密字符串数据。

语法

Public Function Encode(Data As Variant, Optional ByVal Password As String = "nzgi2g9gi7odbvxw") As String

参数

参数	类型	说明
Data	Variant	要加密的数据（会被转换为字符串）
Password	String	可选，加密密码（默认使用内置密钥）

返回值

String - 加密后的字符串（格式取决于 JavaScript 实现，通常是 Base64 或 Hex）

使用示例

使用默认密码

Dim Aes As New cAes
Dim encrypted As String

' 使用默认内置密码加密
encrypted = Aes.CBC.Encode("Hello World")
Debug.Print "加密结果: " & encrypted

使用自定义密码

Dim Aes As New cAes
Dim encrypted As String

' 使用自定义密码加密
encrypted = Aes.CBC.Encode("敏感数据", "my-secret-key-123")
Debug.Print "加密结果: " & encrypted

加密变量数据

Dim Aes As New cAes
Dim userInput As String
Dim encrypted As String

userInput = InputBox("请输入要加密的内容:")
encrypted = Aes.CBC.Encode(userInput, "password")

' 保存或传输加密后的数据
SaveToFile encrypted

⚠️ 注意事项

1. 默认密码：如果不提供密码，将使用内置默认密码 "nzgi2g9gi7odbvxw"
2. 资源依赖：此方法依赖资源文件中的 AES.CBC JavaScript 代码
3. 线程安全：MSHTML 实例在类初始化时创建，每个 cAesCBC 实例独立

---

📌 使用场景总结

敏感数据加密

Private Sub EncryptSensitiveData()
    Dim Aes As New cAes
    Dim sensitiveData As String
    Dim encrypted As String
    
    ' 获取敏感数据
    sensitiveData = txtPassword.Text
    
    ' 加密
    encrypted = Aes.CBC.Encode(sensitiveData, "my-app-secret")
    
    ' 保存加密后的数据
    SaveEncryptedData encrypted
End Sub

配置文件加密

Private Sub SaveConfigEncrypted()
    Dim Aes As New cAes
    Dim config As String
    Dim encryptedConfig As String
    
    ' 构建配置字符串
    config = "API_KEY=xxx|SECRET=yyy"
    
    ' 加密配置
    encryptedConfig = Aes.CBC.Encode(config, "config-password")
    
    ' 写入配置文件
    WriteConfigFile encryptedConfig
End Sub

---

最后更新: 2026-05-17