如何加密在 Visual Basic 6.0 中的字符串

http://support.microsoft.com/kb/821762/zh-cn

本文介绍了 CryptographySample.exe 程序包中包含的代码。
可从 Microsoft 下载中心下载：
Download the CryptographySample.exe package now.

在 Visual Basic 6.0 中加密

本部分介绍加密过程中的重要步骤。它还介绍了如何执行这些步骤使用的 vba 代码。

CryptWrap DLL

在"Code for encryption and for decryption"部分中下载的代码包括 CryptWrap DLL。CryptWrap DLL 是回绕 API 调用的包装。CryptWrap DLL 是 CryptWrap.vbp EncryptGroup 项目组中的项目中。

加密过程要求 CryptWrap DLL。加密项目使用 CryptWrap DLL 调用该函数执行实际的加密的函数。

CryptoWrap DLL

通过使用 ActiveX DLL 项目模板被编码 CryptoWrap DLL。CryptoWrap DLL 是 clsCryptoAPI.cls EncryptGroup 项目组中的文件中。

CryptoWrap DLL 的代码包含以下内容：

• 声明的变量和常量 CryptoWrap DLL 使用。
• 从 Advapi32.dll 库文件的 Visual Basic 6.0 中 加密 API 函数的函数和子例程的声明。
• 声明属性、 函数，和子例程。
• 从调用程序分配给一个模块级变量在代码中的密码。
  
  注意此密码用于派生密钥 CryptoEncrypt 函数用来加密字符串。

CryptoWrap DLL 使用 SHA1 算法的哈希，并使用 RC2 算法进行加密。 详细内容看链接