Request of SHA-1 VB implementation

I'm DESPERATELY searching for a VB5 implementation of the hash algorithm SHA-1. Where can I find it?

PLEASE HELP ME!!!!

AndromedA