Delphi Шифруем строку в SHA256

[Rezis]

Пример использования:

Функция для шифрования

function GetSHA256Str(const str : Ansistring) : Ansistring;
begin
  IdSSLOpenSSL.LoadOpenSSLLibrary;
  with TIdHashSHA256.Create do
  try
    Result := LowerCase( HashStringAsHex(str) );
  finally
    Free;
  end;
  IdSSLOpenSSL.UnLoadOpenSSLLibrary;
end;

К примеру шифруем ссылку https://in4.bz используя функцию:

procedure TlcMainForm.sButton1Click(Sender: TObject);
begin
// Выводим сообщение с зашифрованной строкой
ShowMessage(GetSHA256Str('https://in4.bz'));
end;