md5 验证流(100分)

请问谁有 md5 验证流的代码？　我有
procedure MD5Init(var Context: MD5Context);
procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword);
procedure MD5Final(var Context: MD5Context; var Digest: MD5Digest);
function MD5String(M: string): MD5Digest;
function MD5File(N: string): MD5Digest;
function MD5Print(D: MD5Digest): string;
function MD5Match(D1, D2: MD5Digest): boolean;
有没有 md5stream(var stream : Tstream):md5digest; 这样的

funtion md5stream(var stream : Tstream):md5digest;
var
s:string;
begin
setlength(s,stream.length);
stream.postion:=0;
stream.write(s[1],stream.length);
result:=MD5String(s);
end;

其实MD5File也完全可以这样来实现,结果都是一样的.以前测试过.

接受答案了.