那里有delphi的md5空件，100分(100分)

那里有delphi的md5空件，100分

indy中就有

谢谢，我已经找到了
http://www.fichtner.net/delphi/md5.delphi.phtml

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.Lines do begin
if Count > 0 then Add('');
Add(LogEntry('MD5String', SEdit.Text, MD5String(SEdit.Text)));
end;
end;


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