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

Question

背景:Delphi 2007

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

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

我亲眼看到一些像下面代码一样简单易用的东西

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