Skip to content

Crypt 加密组件概述

📖 简介

Crypt 组件提供了一套完整的加密和哈希功能,包括 AES 对称加密、哈希计算(MD5/SHA 系列)和 HMAC 消息认证码。

📁 模块结构

模块文件说明
AEScAes.cls, cAesCBC.clsAES CBC 模式对称加密
HashcCryptoHash.cls哈希计算(MD5/SHA1/SHA256/SHA384/SHA512)
HMACcCryptoHMAC.clsHMAC 消息认证码(HMAC-SHA1/HMAC-SHA256)

✨ 主要特性

特性说明
AES 加密基于 MSHTML 的 AES-CBC 加密,支持字符串加密
多算法哈希支持 MD5、SHA1、SHA256、SHA384、SHA512
HMAC 支持支持 HMAC-SHA1、HMAC-SHA256
链式调用Hash 和 HMAC 支持流畅的链式 API
多种输出格式支持 Hex、Base64、字节数组输出
文件哈希支持直接计算文件哈希值

🚀 快速开始

AES 加密

vb
Dim Aes As New cAes

' 加密
cipherText = Aes.CBC.Encode("Hello World", "my-password-key-")

' 解密 (Encode 是双向的,需要配合 JS 的 decryptFn)
' 注意:当前实现依赖 JS 资源文件

哈希计算

vb
Dim Hash As New cCryptoHash

' 简单方式
hashValue = Hash.ComputeHash("Hello World")

' 链式调用
hashValue = Hash.Mode(HASH_ALG_SHA256) _
               .DataString("Hello World") _
               .ReturnHex()

' 计算文件哈希
fileHash = Hash.ComputeFileHash("C:\data.txt")

HMAC 计算

vb
Dim Hmac As New cCryptoHMAC

' 简单方式
result = Hmac.Compute("data", "secret-key")

' 链式调用
result = Hmac.Mode(HMAC_ALG_SHA256) _
            .Secret("secret-key") _
            .DataString("data") _
            .ReturnHex()

📁 文档导航

文档说明
aes/overview.mdAES 加密概述
aes/methods.mdAES 方法参考
hash/overview.md哈希组件概述
hash/methods.md哈希方法参考
hmac/overview.mdHMAC 组件概述
hmac/methods.mdHMAC 方法参考

最后更新: 2026-05-17

VB6及其LOGO版权为微软公司所有