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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

  Function PasswortVerschluesseln(Passwort : string) : string;
  Function PasswortEntschluesseln(Passwort : string) : string;
  Function HexToInt(const S: String): Integer;

Function PasswortVerschluesseln(Passwort : string) : string;
var SchriPass : String;
    Buchstabe : Integer;
    i : integer;
Begin
  i:= 1;
  While i <= length(Passwort) do
  Begin
    Buchstabe := ord(Passwort[i]) + 12;

    SchriPass := SchriPass + inttohex(Buchstabe,2);
    i:= i + 1;
  End;
                   
  result := SchriPass;
End;

Function PasswortEntschluesseln(Passwort : string) : string;
var DeSchriPass : String;
    Buchstabe : String;
    i : integer;
Begin
  i:= 1;
  While i <= length(Passwort) - 1 do
  Begin
    Buchstabe := Passwort[i] + Passwort[i + 1];

    DESchriPass := DeSchriPass + chr(hextoint(Buchstabe) - 12);

    i:= i + 2;
  End;

  result := DeSchriPass;
End;

function HexToInt(const S: String): Integer;
var
 I, Ziffer: Integer;
begin
 Result := 0;
 for I := 1 to length(S) do
 begin
  Case S[I] of
   '0'..'9': Ziffer := Ord(S[I])-Ord('0')+0;
   'A'..'F': Ziffer := Ord(S[I])-Ord('A')+10;
   'a'..'f': Ziffer := Ord(S[I])-Ord('a')+10
   else
    raise EConvertError.Create('Ungültiges Zeichen bei Konversion!');
  end;
  Result := Result*16 + Ziffer;
 end;
end;