delphi - 在 Delphi 中使用 Sha-1 和证书签署 S/Mime 消息

Question

背景：德尔福 2007

我即将发送 S/MIME 消息。有一个证书用于对消息进行签名。还有一个证书，我猜它包括进行签名所需的密钥。应该使用 Sha1

我看过一些 sha1 代码示例，以及一些处理证书/密钥的示例，但并不是一个很好的结合它们的示例。

我为自己看到了一些简单易用的东西，例如下面的代码

someObj = new SomeObj("key/cert", "sha-1");    
hashedMessage = so.Hash("orignal message");