Eigener Verschlüsselungsalgorithmus benutzen

[Sir Rufo]

Ungeachtet der Sicherheit bei diesem Verfahren kann es so umgesetzt werden:

Deine Zuordnungstabelle in eine Stringlist packen (entferne die Leerzeiche vor und nach dem = und dann der Eigenschaft Text zuweisen).
Der Rest ist ... sieh selbst

Delphi-Quellcode:

var
  KeyList : TStringList;

KeyList.Text := 'a = 5x0q' + sLineBreak +
'b = 9x0w' + sLineBreak +
...
'9*= 3x0x';

function Crypt( const aStr : string; const Key : TStrings ) : string;
var
  idx : integer;
begin
  Result := '';
  for idx := 1 to Length( aStr ) do
    Result := Result + Key.Values[ aStr[ idx ] ];
end;

function Decrypt( const aStr : string; const Key : TStrings ) : string;
var
  idx : integer;
  part : string;
begin
  Result := '';
  for idx := 0 to aStr div 4 - 1 do
  begin
    part := copy( aStr, idx * 4 + 1, 4 );
    Result := Result + Key.Names[ Key.IndexOfName( part ) ];
  end;
end;