Get sha1 message digest from plaintext+private key in delphi

I want to create a Sha1 me开发者_JAVA技巧ssage digest, and it should use my private key as input along with the plain text.

Everything I have found so far either dont use a private key or just take a lot of certificates as input.

I use DCPCrypt for my crypto needs.
http://www.cityinthesky.co.uk/opensource/dcpcrypt

It's opensource and works really well.
After installing the package, use TDCP_sha1 and drop that on a form. Then look up how to use the component in the help files in the DOC directory in the zip file.

Have a look at TurboPower LockBox