sha1 源码 加密 解密 function SHA1SelfTest: Boolean; procedure SHA1Init(var Context: TSHA1Context); procedure SHA1Update(var Context: TSHA1Context; Buffer: Pointer; Len: Integer); procedure SHA1Final(var Context: TSHA1Context; var Digest: TSHA1Digest);