1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

//das darf nicht fehlen:
function HexToNib(Hex: Char): Byte;
begin
  if (Hex >= 'a') and (Hex <= 'z') then Hex := Chr(Ord(Hex) - Ord('a') + Ord('A'));
  if (Hex >= '0') and (Hex <= '9') then Result := Ord(Hex) - Ord('0')
  else if (Hex >= 'A') and (Hex <= 'F') then Result := 10 + Ord(Hex) - Ord('A')
  else raise Exception.Create('HexToNib: Invalid hex character');
end;

function NibToHex(Nib: Byte): Char;
begin
  if (nib<10) then Result := Chr(nib + Ord('0'))
  else if (nib < 16) then Result := Chr(nib + 55)
  else raise Exception.Create('NibToHex: Nibble out of range');
end;

function HexToStr(S: string): string;
var i: Integer; b: Byte;
begin
  Result := '';
  i := 1;
  while i < Length(S) do
  begin
    b := (HexToNib(S[i]) shl 4) or HexToNib(S[i + 1]);
    Inc(i, 2);
    Result := Result + Chr(b);
  end;
end;

function StrToHex(S: string): string;
var i: Integer;
begin
  Result := '';
  for i := 1 to Length(S) do
    Result := Result + NibToHex(Byte(S[i]) shr 4) + NibToHex(Byte(S[i]) and $F);
end;