Delphi DCrypt - 如何隔离 SHA256？

Question

我正在 Delphi XE2 中编写自己的组件，但我主要使用 C++ Builder。这就是为什么我需要一些有关 Delphi DCrypt 库的帮助。

我的新组件需要有一个方法(函数)来计算字符串的 sha256 哈希值。我知道 DCrypt 库，并且使用它一段时间，但这次我需要隔离 SHA256 哈希算法并将其添加到我的新组件中。

DCrypt 已将 SHA256 存储在 DCPsha256.pas 中，但由于我对 Delphi 不太熟练，所以我不知道该怎么做。我不需要安装 TDCP_sha256，我只需要能够在我的新组件中计算 SHA256。

想法？谢谢。

Answer 1

手动创建对象。使用现有单位，不要修改 DCPCrypt。

如何创建对象:

var
  x:TDCP_sha256;

begin
  x := TDCP_sha256.Create(nil);
  try 
     // do stuff, create hash, whatever.
  finally
    x.Free;
  end;
end;

您不需要安装任何包来提供对您想要使用的类的访问，除非您想将它们放到表单或数据模块上。如果您编写的代码与上面的代码类似，则无需修改任何内容。