高手帮改改delphi的des算法

Question

delphi deshttp://www.gzyd.net/lael/Unit2.rar 改为 .pas原版有js，php,prel版本 http://www.gzyd.net/lael/des.rar 解压

Answer 1

function StrToHex (Str:string):string;
const
  hexes:array[0..15] of string = ('0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f');
var
r:string;
i:integer;
begin
  r := '';
  for i  :=1 to length(Str) do
    begin
    r := r + hexes[ord(Str[i]) shr 4] + hexes [ord(Str[i]) and $f];
    end;
  result := r;
end;这个反过来怎么改？？    HexToStr(Hex) ??