如何加密在 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 算法进行加密。
详细内容看链接