Nimm dir 2 Arrays: Den einen füllst du mit A,a,B; den anderen mit 0001,1001.. - Dann kannst du mit dem folgenden Code arbeiten:
Delphi-Quellcode:
var
Teil1,Teil2 : Array[1..64] of String;
begin
procedure fuellen;
begin
Teil1[1] := 'A';
Teil1[2] := 'a';
Teil1[3] := 'B';
...
Teil2[1] := '10001';
Teil2[2] := '10011';
Teil2[3] := '10100';
...
end;
function Verschluesseln(Bstb:String):String;
var i: integer;
begin
result := ' ';
for i := 1 to 64 do
if Bstb = Teil1[i] then result := Teil2[i];
end;
function Entschluesseln(Schnipsel:String):String;
var i: integer;
begin
result := ' ';
for i := 1 to 64 do
if Schnipsel = Teil2[i] then result := Teil1[i];
end;