Md5 产生的32 位字符串 如何赋值给 array[0..15] of byte 数组 ？

Question

如 ：
MD5File('D:\dtem\Dll\VTDReg.dll') =
   6ffb109a288a89227ef734bc97995429md5函数里有 把byte数组转化为string 函数
function MD5Print(D: MD5Digest): string;
var
I: byte;
const
Digits: array[0..15] of char =
('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f');
begin
Result := '';
for I := 0 to 15 do Result := Result + Digits[(D[I] shr 4) and $0f] + Digits[D[I] and $0f];
end;我想用 byte[0..15]来保存md5 值  而不是 string  

Answer 1

将那个字串，转成byte数组就完了吧。
BinToHex
HexToBin
好像用HexToBin，自个试下。

Answer 2

function ByteToHex(ByteArr:TByteDynArray):string;
var
  I ,Len: Integer;
  s:Byte;
begin
  len:=length(ByteArr);
  Result:='';
  for i:=0 to len-1  do
  begin
    s:=ByteArr[i];
    Result:=Result +' '+IntToHex(s,2); //将字符串转化为16进制字符串，并以空格间隔。
  end;
  Delete(Result,1,1); //删去字符串中第一个空格
end;然后用strmove填充过去

Answer 3

注意  我想把 Md5字符串   "6ffb109a288a89227ef734bc97995429"   
存储到  array[0..15] of  byte  而不是  byte  ->string !