Seeking FOSS SHA1

Question

I am looking for a FOSS SHA1 implementation for use with Delphi (7).

Preferably something small, maybe even standalone SHA1, rather than past of a humongous library. Ease of install and use are nice, but of course reliability is priority number 1.

---

Update:Thanks, Rob, that code works like a dream

Answer 1

Use the Cryptography API built in to the OS. You can use the Hashes.pas unit by Domingo Seoane to use it in Delphi, or you can write your own routine using CryptAcquireContext, CryptCreateHash, repeated calls to CryptHashData, and finally CryptGetHashParam to get the result.

I realize it's neither free (as in speech) nor open source, but there are also no distribution requirements since it's included on all your customers' systems already.