動作環境

C++ Builder XE4
Indy 10.6.0.4975

前回の実装

c++ builder XE4 > 文字列のHash値を求める > MD5使用

内容

XE4での実装
SHA-1とSHA-2のHash値を求める処理を追加

実装 v0.1

Unit1.h

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

# ifndef Unit1H
# define Unit1H
//---------------------------------------------------------------------------
# include <System.Classes.hpp>
# include <Vcl.Controls.hpp>
# include <Vcl.StdCtrls.hpp>
# include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TButton *Button1;
	TMemo *Memo1;
	void __fastcall Button1Click(TObject *Sender);
private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
# endif

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;
}
//---------------------------------------------------------------------------

実行

SHA-512がNULLの結果となる
- SHA-224, 256, 384も同様

以下が関係するのかもしれない。

answered Nov 20 '17 at 1:12
Remy Lebeau
Only SHA-1 (amongst a few other non-SHA hashes) is currently implemented natively.

2つのDLLを追加すればいい、とのこと。

libeay32.dll
ssleay32.dll

実際に2つのファイルを.exeファイルと同じフォルダに置いたがSHA-512の結果はNULLのままだった。
LoadLibrary()で2つのファイルを読込んでみたが、SHA-512の結果はNULLのままだった。

関連

実装 v0.2

StackOverflowの質問に対して対処方法を教えていただいた。
(I was given the knowledge about how to avoid the problem. I appreciate it, Remy Lebeau).

SHA-512 returns NULL even using 2 DLLs (ssleay32.dll and libeay32.dll)

2つの方法がある。

A. IdSSLOpenSSLHeaders とLoad()

Unit1.cpp

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

# include <vcl.h>
# pragma hdrstop

# include <IdHashSHA.hpp> // SHA-1, SHA-2
# include <IdHashMessageDigest.hpp> // for MD5
# include <IdSSLOpenSSLHeaders.hpp>
//#include <IdSSLOpenSSL.hpp>
# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	Memo1->Lines->Clear();

	Load(); // IdSSLOpenSSLHeaders.hppインクルード時
	//LoadOpenSSLLibrary(); // IdSSLOpenSSL.hpp インクルード時
}
//---------------------------------------------------------------------------
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;
}
//---------------------------------------------------------------------------

B. IdSSLOpenSSL とLoadOpenSSLLibrary()

Unit1.cpp

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

# include <vcl.h>
# pragma hdrstop

# include <IdHashSHA.hpp> // SHA-1, SHA-2
# include <IdHashMessageDigest.hpp> // for MD5
//#include <IdSSLOpenSSLHeaders.hpp>
# include <IdSSLOpenSSL.hpp>
# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	Memo1->Lines->Clear();

	//Load(); // IdSSLOpenSSLHeaders.hppインクルード時
	LoadOpenSSLLibrary(); // IdSSLOpenSSL.hpp インクルード時
}
//---------------------------------------------------------------------------
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;
}
//---------------------------------------------------------------------------

実行

libeay32.dllは.exeと同じフォルダに置いていない
ssleay32.dllは.exeと同じフォルダに置いていない