AES Encryption Methods Reference

📋 Method List

Class	Method	Description
cAes	CBC	Access CBC encryption instance
cAesCBC	Encode	Encrypt string data

---

🔌 cAes.CBC Property

Description

Accesses the cAesCBC instance, which is the main entry point for AES CBC encryption.

Syntax

Public CBC As New cAesCBC

Example

Dim Aes As New cAes

' Access encryption functionality through CBC property
Dim result As String
result = Aes.CBC.Encode("Hello World")

---

🔐 cAesCBC.Encode Method

Description

Encrypts string data using AES CBC mode.

Syntax

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

Parameters

Parameter	Type	Description
Data	Variant	Data to encrypt (will be converted to string)
Password	String	Optional, encryption password (default uses built-in key)

Return Value

String - Encrypted string (format depends on JavaScript implementation, usually Base64 or Hex)

Example

Using Default Password

Dim Aes As New cAes
Dim encrypted As String

' Encrypt using default built-in password
encrypted = Aes.CBC.Encode("Hello World")
Debug.Print "Encrypted: " & encrypted

Using Custom Password

Dim Aes As New cAes
Dim encrypted As String

' Encrypt with custom password
encrypted = Aes.CBC.Encode("Sensitive data", "my-secret-key-123")
Debug.Print "Encrypted: " & encrypted

Encrypting Variable Data

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

userInput = InputBox("Enter content to encrypt:")
encrypted = Aes.CBC.Encode(userInput, "password")

' Save or transmit encrypted data
SaveToFile encrypted

⚠️ Notes

1. Default Password: If no password is provided, the built-in default password "nzgi2g9gi7odbvxw" is used
2. Resource Dependency: This method depends on AES.CBC JavaScript code in resource files
3. Thread Safety: MSHTML instance is created during class initialization, each cAesCBC instance is independent

---

📌 Usage Scenarios Summary

Sensitive Data Encryption

Private Sub EncryptSensitiveData()
    Dim Aes As New cAes
    Dim sensitiveData As String
    Dim encrypted As String
    
    ' Get sensitive data
    sensitiveData = txtPassword.Text
    
    ' Encrypt
    encrypted = Aes.CBC.Encode(sensitiveData, "my-app-secret")
    
    ' Save encrypted data
    SaveEncryptedData encrypted
End Sub

Configuration File Encryption

Private Sub SaveConfigEncrypted()
    Dim Aes As New cAes
    Dim config As String
    Dim encryptedConfig As String
    
    ' Build configuration string
    config = "API_KEY=xxx|SECRET=yyy"
    
    ' Encrypt configuration
    encryptedConfig = Aes.CBC.Encode(config, "config-password")
    
    ' Write to configuration file
    WriteConfigFile encryptedConfig
End Sub

---

Last Updated: 2026-05-17