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

Question

背景：Delphi 2007

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

我已经看到了一些sha1代码示例，以及一些处理证书/密钥的示例，但并不是真正合并它们的示例。

我自己看到的东西很好，很容易，如下面的代码

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