给我md5的原码(100分)

要求md5.zip

发了！给风

接受答案了.

要，谢
mylhb2002@yahoo.com.cn

uses
md5;
function LogEntry(Cmd, Msg: string;
Dig: MD5Digest): string;
begin
Result := Format('%s(''%s'') =' + #13#10 + ' %s', [Cmd, Msg, MD5Print(Dig)]);
end;

procedure TMain.SDigestClick(Sender: TObject);
begin
with Display.Linesdo
begin
if Count > 0 then
Add('');
Add(LogEntry('MD5String', SEdit.Text, MD5String(SEdit.Text)));
end;
end;

上面是MD5 的加密过程,不过是32bit的,怎么样才能得到16bit呢?

Delphi7中上面的用不成。有Delphi7的吗?