SHA1Init(Context); SHA1Update(Context,@s[1],length(s)); SHA1Final(Context,Digest);(A binary compatible SHA1 implementation written by Dave Barton (davebarton@bigfoot.com) 160bit hash size)