Windows XP 中使用 CryptoApi 解密成功，但解密出来的数据是错误的

2005-05-16 04:17:39 102 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi RSA加密解密实现：基于Windows CryptoAPI的轻量级封装方案非对称加密是信息安全领域的核心技术之一，RSA算法作为其经典实现，通过公钥与私钥的配对机制，为数据安全传输提供了可靠保障。其技术价值在于解决了密钥分发难题，广泛应用于数字签名、身份认证、数据传输加密等场景。在Delphi开发环境中，集成RSA功能常面临第三方库臃肿、兼容性差等痛点。本文聚焦Windows平台，通过封装Windows CryptoAPI/CNG原生接口，实现了零外部依赖的RSA解决方案，支持PEM格式密钥管理和PKCS#1 v1.5填充模式，为Delphi开发者提供了开箱即用的加密工具。阅读详情

Windows XP 中使用 CryptoApi 解密成功，但解密出来的数据是错误的。
使用的算法是 DES 和 RC4，解密时调用的每个 Api 都检查了返回值，都是正常返回。
什么原因，同一个程序，在绝大部分机器上都是正确的，
但在个别（约1%）的机器上解密出来的数据是错误的。
有哪位大侠知道原因？

程序如下：

HCRYPTKEY hKey = 0;
HCRYPTHASH hHash = 0;
DWORD errCode = NO_ERROR;
DWORD dwCount = nLength;
DWORD dwKeyLength;
const BYTE* pKeyData = GetDecryptKey(&dwKeyLength);
LPCSTR pErrMsg = 0;

if (0 == pErrMsg && !CryptCreateHash(m_hProv, CALG_SHA, 0, 0, &hHash))
pErrMsg = _VT("Error when CreateHash");

if (0 == pErrMsg && !CryptHashData(hHash, (BYTE*)pKeyData, dwKeyLength, 0))
pErrMsg = _VT("Error when HashData");

if (0 == pErrMsg && !CryptDeriveKey(m_hProv, m_algDecrypt, hHash, 0, &hKey))
pErrMsg = _VT("Error when DeriveKey from hash");

if (0 == pErrMsg && !CryptDecrypt(hKey, 0, FALSE, 0, (PBYTE)pBuffer, &dwCount))
pErrMsg = _VT("Error when Decrypt");

if (!hKey) CryptDestroyKey(hKey);
if (!hHash) CryptDestroyHash(hHash);

if (pErrMsg)
{
ErrMessageBox(vGetLastError(), pErrMsg);
Exit(-4);
}

return TRUE;

...全文