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

Question

上下文：Delphi 2007

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

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

我自己看到了一些很好又简单的东西，比如下面的代码

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