即使使用 2 个 DLL（ssleay32.dll 和 libeay32.dll），SHA-512 也会返回 NULL

Question

我的环境：

• C++ Builder XE4
• 使用 VCL 组件
• 印地 10.6.0.4975

我正在学习使用 MD5、SHA-1 和 SHA-2。

Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <IdHashSHA.hpp> // SHA-1, SHA-2
#include <IdHashMessageDigest.hpp> // for MD5
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String msg;
    msg = L"Hello, world";
    String hash;

    // 1. MD5
    TIdHashMessageDigest5 *md5;
    md5 = new TIdHashMessageDigest5();
    //
    hash = md5->HashStringAsHex(msg, IndyTextEncoding(TEncoding::ASCII)).LowerCase();
    Memo1->Lines->Add(L"MD5: " + hash);
    delete md5;

    // 2. SHA-1
    TIdHashSHA1 *sha1;
    sha1 = new TIdHashSHA1();
    //
    hash = sha1->HashStringAsHex(msg, IndyTextEncoding(TEncoding::ASCII)).LowerCase();
    Memo1->Lines->Add(L"SHA-1:" + hash);
    delete sha1;

    // 3. SHA-2 (SHA-512)
    TIdHashSHA512 *sha512;
    sha512 = new TIdHashSHA512();
    //
    hash = sha512->HashStringAsHex(msg, IndyTextEncoding(TEncoding::ASCII)).LowerCase();
    Memo1->Lines->Add(L"SHA-512:" + hash);
    delete sha512;
}
//---------------------------------------------------------------------------

结果如下。

然后，我发现了以下内容：

TidHashSHA512.isavailable is false on Windows 10

根据建议，我在.exe文件所在的位置添加了两个文件：

• ssleay32.dll
• libeay32.dll

不过，SHA-512 返回 NULL。

我错过了什么？

Answer 1

10.6.0.4975 是非常旧的 Indy 10 版本。当前版本是 10.6.2.5485。您需要升级。

无论如何，Indy 10 具有 MD5 和 SHA-1 的本机实现，它们根本不依赖任何外部哈希库。但 SHA-512 可以。然而，您并没有告诉 Indy 要使用哪个散列库，例如 OpenSSL。您没有指示 Indy 加载 OpenSSL DLL，因此它可以初始化自身以使用 OpenSSL 的 SHA-512 功能。因此，sha512->IsAvailable 返回 false，sha512->HashStringAsHex() 返回空白字符串 ¹。

这在accepted answer到the question you linked to中有明确的说明：

Indy 提供了一个使用来自 OpenSSL 的散列函数的实现。要使用它，您可以：

• 将IdSSLOpenSSLHeaders 单元添加到您的uses 子句中，然后在运行时调用其Load() 函数。

• 将IdSSLOpenSSL 单元添加到您的uses 子句中，然后在运行时调用其LoadOpenSSLLibrary() 函数。

在这种情况下，由于您使用的是 C++ 而不是 Pascal，因此您需要将相应的 #include 语句添加到您的代码中，而不是 #include <IdSSLOpenSSLHeaders.hpp> 或 #include <IdSSLOpenSSL.hpp>，然后您可以调用相关的 Load函数，例如在表单的构造函数中。

^{1：顺便说一句，您应该使用IndyTextEncoding_ASCII() 而不是IndyTextEncoding(TEncoding::ASCII)。}