1:
2:
3:
4:
5:
6:
7:
8:

procedure verschluessel (text:string);
var l,i:integer;
begin
l:=length(text);
for i:=1 to l do
 if text[i]=text[i+1] then text[i+1]:='X';
 text[i]:=text[i];
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function verschluessel (text:string):string;
var i,l: integer;
  text2:string;
begin
l:=length(text);
if (l mod 2) <> 0 then text2[l]:='X';
for i:=1 to l do
 begin
  if text[i]=text[i+1] then text2[i+1]:='X' else
  text2[i]:=text[i];
 end;
result:=text2;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function verschluessel (text:string):string;  
var i,l: integer;
  text2:string;
begin
l:=length(text);
text2:=text;                                   //text2 einen Wert zuteilen
if (l mod 2) <> 0 then text2:=text2+'X';       //Bei ungerade ein X anhängen
for i:=1 to l-1 do                             // bis zum vorletzten Element, da ich i+1 auslese
 begin
  if text2[i]=text2[i+1] then insert('X',text2,i+1) //Insert fügt das x an richtiger Stelle ein 
 end;
result:=text2;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function verschluessel (text:string):string;  
var i,l: integer;
begin
l:=length(text);
if (l mod 2) <> 0 then text:=text+'X';
for i:=1 to l-1 do
 begin
  if text[i]=text[i+1] then insert('X',text,i+1)
 end;
result:=text;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function verschluessel(text:string):string;    
var
  i : integer;
begin
i:=1;                       //i auf erstes Zeichen.
while i < length(text) do   //Solange i das Ende von text ..
                            //.. nicht erreicht hat, ..
   begin                       //.. schauen, ob der nächste Buchstabe ..
   if text[i]=text[i+1] then   //.. identisch ist.
      begin                       //Wenn ja, 'X' einfügen und i ..
      insert('X',text,i+1);       //.. erhöhen, damit das eingefügte X ..
      inc(i);                     //.. nicht auch noch in die Prüfung ..
      end;                        //.. einbezogen wird.
   inc(i);                     //i auf nächstes Zeichen setzen
   end;
if odd(length(text)) then   //Wenn text-Länge ungerade, 'X' anhängen.
   text:=text+'X';
result:=text;               //Rückgabewert
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function verschluessel (text:string):string;    
var
  i : integer;
begin
i:=1;                       //i initialisieren.
while i < length(text) do   //Solange i das Ende von text ..
                            //.. nicht erreicht hat, ..
   begin                       //.. schauen ob der nächste Buchstabe ..
   if text[i]=text[i+1] then   //.. identisch ist.
      begin                       //Wenn ja, 'X' einfügen und i ..
      insert('X',text,i+1);       //.. erhöhen, damit das eingefügte X ..
      inc(i);                     //.. nicht auch in die Prüfung ..
      end;                        //.. einbezogen wird.
   inc(i,2);                     //i erhöhen --> auf nächste Zweiergruppe setzen
   end;
if odd(length(text)) then   //Wenn text-Länge ungerade, 'X' anhängen.
   text:=text+'X';
result:=text;               //Rückgabewert
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function PlayFair( text, key: String ): String;
var isChiffred: Boolean;
begin
  // hier kommt das rein, was noch unklar ist
  isChiffred := CheckText( text );
  
  if isChiffred then
    Result := Dechiffre( text, key )
  else
    Result := Chiffre( text, key );

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function zerlege (text:string):string;    
var
  i : integer;
begin
i:=1;                       //i initialisieren.
while i < length(text) do   //Solange i das Ende von text ..
                            //.. nicht erreicht hat, ..
   begin                       //.. schauen ob der nächste Buchstabe ..
   if text[i]=text[i+1] then   //.. identisch ist.
      begin                        //Wenn ja, 'X' einfügen. 
      insert('X',text,i+1);      
      end;                      
   inc(i,2);                   //i erhöhen --> auf nächste ..
   end;                        //.. Zweiergruppe setzen.
if odd(length(text)) then   //Wenn text-Länge ungerade, 'X' anhängen.
   text:=text+'X';
result:=text;               //Rückgabewert
end;                    

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:

procedure TForm1.Button1Click(Sender: TObject);
var code,nc,text: string;
      l,i,p,p2      :integer;
begin
code:='MATHEMATIKER';
text:=edit2.text;
text:=zerlege(text);
l:=length(code);
nc:='';
for i:=1 to l do
 begin
  if code[i]='j' then code[i]:='i';
  p:=pos(code[i],nc);
  if p=0 then nc:= nc+code[i];
 end;

alpha:=nc;
for i:=1 to 26 do
  begin
   p2:=pos(al[i],alpha);
   if p2=0 then
   alpha:=alpha+al[i];
  end;
edit3.text:=text;
end;                    

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:

procedure TForm1.Button1Click(Sender: TObject);
var schluessel,ns,text: string;
      l,i,p,p2      :integer;
begin
schluessel:='MATHEMATIKER';   //hier ist der Schlüssel der Matrix festgelegt
//text:=edit2.text;             //der zu codierende Text wird eigelesen
//text:=zerlege(text);          //Funktionsaufruf(zerlege)
l:=length(schluessel);              
ns:='';                      //neuer schluessel ist leer
for i:=1 to l do             //für i:=1 bis Länge von schluessel tue    
 begin
  if schluessel[i]='j' then schluessel[i]:='i';   //aus j wird ein i
  p:=pos(schluessel[i],ns);                         //Position wird ermittelt
  if p=0 then ns:= ns+schluessel[i];   //wenn Buchstabe noch nicht vorhanden, dann dazu
 end;

matrix:=ns;             //matrix wird neuer Schluessel
for i:=1 to 25 do       //für i:=1 bis 25(anzahl der Buchstaben im Alphabet) tue
  begin
   p2:=pos(al[i],matrix);  //Position bestimmen
   if p2=0 then            // wenn Buchstabe noch nicht vorhanden, dann dazufügen
   matrix:=matrix+al[i];    
  end;
        
end;                    

1:
2:
3:
4:
5:

for Zeile := 1 to 5 do
   for Spalte := 1 to 5 do
      begin
      ... 
      end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function verschluessel (text:string):string ;
var i,j,p,l,p1,z1,s1,p2,z2,s2:integer;
begin
l:=length(text);
 for i:=1 to l do
  for j:=1 to 25 do
   if text[i]=matrix[j] then
     p1:=pos(text[i],matrix);
     z1:=(p1-1) DIV 5;
     s1:=(p1-1) MOD 5;
     inc(i);
    if text[i]=matrix[j] then
     p2:=pos(text[i],matrix);
     z2:=(p2-1) DIV 5;
     s2:=(p2-1) MOD 5;
     inc(i,2);
 If z1=z2 then ???


end;                    

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:

function Verschluessel(text:string):string;
var i,p,l,p1,z1,s1,p2,z2,s2:integer;
begin
l:=length(text);
i:=1;
 while i < l do
    begin
    if text[i]='J' then text[i]='I'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p1:=pos(text[i],matrix);         //Position des ersten Buchst. in p1.
    z1:=(p1-1) DIV 5;                //FALSCH (ergibt keine Zeile von 1..5)
    s1:=(p1-1) MOD 5;                //FALSCH (ergibt keine Spalte von 1..5)
    inc(i);                          //i auf nächsten Buchstaben
    
    if text[i]='J' then text[i]='I'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p2:=pos(text[i],matrix);         //Position des zweiten Buchst. in p2.
    z2:=(p2-1) DIV 5;                //siehe oben beim ersten Buchstaben
    s2:=(p2-1) MOD 5;
    inc(i);                          //i auf nächsten Buchstaben 
                                     
    if z1=z2 then //Wenn beide Buchst. in einer Zeile liegen, dann ..
       begin
       ...        //.. tue das mit z1, z2, s1 und s2, was du nach Playfair ..
       ...        //.. damit tun musst.
       end
    else
       if s1=s2 then //Oder aber wenn beide Buchst. in einer Spalte liegen, dann ..
          begin
          ...        //.. tue das mit z1, z2, s1 und s2, was du nach Playfair ..
          ...        //.. damit tun musst.
          end
       else          //Oder aber beide Buchstaben sind weder in der gleichen ..
          begin      //.. Zeile noch in der gleichen Spalte, dann ..
          ...        //.. tue das mit z1, z2, s1 und s2, was du nach Playfair ..
          ...        //.. damit tun musst.
          end;
    ...   //Hole mit den neuen z1, s1, z2 und s2 die Zeichen aus der Matrix ..
    ...   //.. und speichere sie in den Ergebnisstring.
    end;  //end while
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.Button1Click(Sender: TObject);
var Position, Spalte, Zeile : integer;
begin
for Position := 1 to 25 do
    begin
    Zeile := (Position-1) DIV 5;   //FALSCH
    Spalte := (Position-1) MOD 5;  //FALSCH
    Memo1.Lines.Add('Position '+inttostr(Position)+' =  Zeile '+inttostr(Zeile)+'; Spalte '+inttostr(Spalte));
    end;
end;                    

1:
2:

 Zeile := ((Position-1) DIV 5)+1;   
Spalte := ((Position-1) MOD 5)+1;                    

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:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:

unit play;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

const al='ABCDEFGHIKLMNOPQRSTUVWXYZ';
var matrix,ergebnis :string;

{$R *.DFM}


function zerlege (text:string):string;      
var  
  i : integer;  
begin  
i:=1;                       //i initialisieren.  
while i < length(text) do   //Solange i das Ende von text ..  
                            //.. nicht erreicht hat, ..  
   begin                       //.. schauen ob der nächste Buchstabe ..  
   if text[i]=text[i+1] then   //.. identisch ist.  
      begin                        //Wenn ja, 'X' einfügen.   
      insert('X',text,i+1);        
      end;
   inc(i,2);                   //i erhöhen --> auf nächste ..
   end;                        //.. Zweiergruppe setzen.
if odd(length(text)) then   //Wenn text-Länge ungerade, 'X' anhängen.
   text:=text+'X';
result:=text;               //Rückgabewert
end;

function verschluessel (text:string):string ;
var i,p,l,p1,z1,s1,p2,z2,s2:integer;
begin
l:=length(text);
i:=1;
 while i < l do
    begin
    if text[i]='J' then text[i]:='I'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p1:=pos(text[i],matrix);         //Position des ersten Buchst. in p1.
    z1:=((p1-1) DIV 5)+1;
    s1:=((p1-1) MOD 5)+1;
    inc(i);                          //i auf nächsten Buchstaben

    if text[i]='J' then text[i]:='I'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p2:=pos(text[i],matrix);         //Position des zweiten Buchst. in p2.
    z2:=((p2-1) DIV 5);
    s2:=((p2-1) MOD 5);
    inc(i);                          //i auf nächsten Buchstaben

    if z1=z2 then //Wenn beide Buchst. in einer Zeile liegen, dann ..
       begin
        case p1 of
        5:   p1:=0;
        10:  p1:=5;
        15:  p1:=10;
        20:  p1:=15;
        25:  p1:=20;
        end;
        ergebnis[i-2]:=matrix[p1+1]; //ergebnis an der ersten stelle buchstaben zuweisen
        case p2 of
        5:   p2:=0;
        10:  p2:=5;
        15:  p2:=10;
        20:  p2:=15;
        25:  p2:=20;
        end;
        ergebnis[i-1]:=matrix[p2+1];    //ergebnis an der zweiten stelle buchstaben zuweisen
       end
    else
       if s1=s2 then //Oder aber wenn beide Buchst. in einer Spalte liegen, dann ..
          begin
           case p1 of
           21: p1:=-4;
           22: p1:=-3;
           23: p1:=-2;
           24: p1:=-1;
           25: p1:=0;
           end;
           ergebnis[i-2]:=matrix[p1+5];
           case p2 of
           21: p1:=-4;
           22: p1:=-3;
           23: p1:=-2;
           24: p1:=-1;
           25: p1:=0;
           end;
           ergebnis[i-1]:=matrix[p2+5];


          end
       else          //Oder aber beide Buchstaben sind weder in der gleichen ..
          begin      //.. Zeile noch in der gleichen Spalte, dann ..
           If s1<s2 then
            ergebnis[i-2]:=matrix[p1+(s2-s1)];
            ergebnis[i-1]:=matrix[p2-(s2-s1)];
           If s1>s2 then
            ergebnis[i-2]:=matrix[p1-(s1-s2)];
            ergebnis[i-1]:=matrix[p2+(s1-s2)];
          end;


    end;  //end while

end;


procedure TForm1.Button1Click(Sender: TObject);
var schluessel,ns: string;
      zeile,spalte,i,l,p,p2      :integer;
begin
schluessel:='MATHEMATIKER';   //hier ist der Schlüssel der Matrix festgelegt
text:=edit1.text;             //der zu codierende Text wird eigelesen
text:=zerlege(text);       //Funktionsaufruf(zerlege)
l:=length(schluessel);
ns:='';                   //neuer schluessel ist leer
for i:=1 to l do             //für i:=1 bis Länge von schluessel tue
 begin
  if schluessel[i]='j' then schluessel[i]:='i';   //aus j wird ein i
  p:=pos(schluessel[i],ns);                         //Position wird ermittelt
  if p=0 then ns:= ns+schluessel[i];   //wenn Buchstabe noch nicht vorhanden, dann dazu
 end;

matrix:=ns;             //matrix wird neuer Schluessel
for i:=1 to 25 do       //für i:=1 bis 25(anzahl der Buchstaben im Alphabet) tue
  begin
   p2:=pos(al[i],matrix);  //Position bestimmen
   if p2=0 then            // wenn Buchstabe noch nicht vorhanden, dann dazufügen
   matrix:=matrix+al[i];
  end;


edit2.text:=matrix;
edit3.text:=text;
edit4.text:=ergebnis;
end;


end.                    

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:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:

unit play;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

const al='abcdefghiklmnopqrstuvwxyz';


{$R *.DFM}


function zerlege (text:string):string;      
var  
  i : integer;  
begin  
i:=1;                       //i initialisieren.  
while i < length(text) do   //Solange i das Ende von text ..  
                            //.. nicht erreicht hat, ..  
   begin                       //.. schauen ob der nächste Buchstabe ..  
   if text[i]=text[i+1] then   //.. identisch ist.  
      begin                        //Wenn ja, 'X' einfügen.   
      insert('x',text,i+1);
      end;
   inc(i,2);                   //i erhöhen --> auf nächste ..
   end;                        //.. Zweiergruppe setzen.
if odd(length(text)) then   //Wenn text-Länge ungerade, 'X' anhängen.
   text:=text+'x';
result:=text;               //Rückgabewert
end;


function matrix(schluessel:string):string;
var ns: string;
    i,p,p2:integer;
begin
ns:='';                   //neuer schluessel ist leer
for i:=1 to length(schluessel) do             //für i:=1 bis Länge von schluessel tue
 begin
  if schluessel[i]='j' then schluessel[i]:='i';   //aus j wird ein i
  p:=pos(schluessel[i],ns);                         //Position wird ermittelt
  if p=0 then ns:= ns+schluessel[i];   //wenn Buchstabe noch nicht vorhanden, dann dazu
 end;

schluessel:=ns;             //schluessel wird neuer Schluessel
for i:=1 to 25 do       //für i:=1 bis 25(anzahl der Buchstaben im Alphabet) tue
  begin
   p2:=pos(al[i],schluessel);  //Position bestimmen
   if p2=0 then            // wenn Buchstabe noch nicht vorhanden, dann dazufügen
   schluessel:=schluessel+al[i];
  end;
result:=schluessel;
end;



function verschluessel (text,schluessel:string):string ;
var i,l,p1,z1,s1,p2,z2,s2:integer;
begin
l:=length(text);
i:=1;
 while i < l do
    begin
    if text[i]='j' then text[i]:='i'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p1:=pos(text[i],schluessel);         //Position des ersten Buchst. in p1.
    z1:=((p1-1) DIV 5)+1;
    s1:=((p1-1) MOD 5)+1;
    inc(i);                          //i auf nächsten Buchstaben

    if text[i]='j' then text[i]:='i'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p2:=pos(text[i],schluessel);         //Position des zweiten Buchst. in p2.
    z2:=((p2-1) DIV 5)+1;
    s2:=((p2-1) MOD 5)+1;
    inc(i);                          //i auf nächsten Buchstaben

    if z1=z2 then //Wenn beide Buchst. in einer Zeile liegen, dann ..
       begin
        case p1 of
        5:   p1:=0;
        10:  p1:=5;
        15:  p1:=10;
        20:  p1:=15;
        25:  p1:=20;
        end;
        text[i-2]:=schluessel[p1+1]; //ergebnis an der ersten stelle buchstaben zuweisen
        case p2 of
        5:   p2:=0;
        10:  p2:=5;
        15:  p2:=10;
        20:  p2:=15;
        25:  p2:=20;
        end;
        text[i-1]:=schluessel[p2+1]; //ergebnis an der zweiten stelle buchstaben zuweisen
       end
    else
       if s1=s2 then //Oder aber wenn beide Buchst. in einer Spalte liegen, dann ..
          begin
           case p1 of
           21: p1:=-4;
           22: p1:=-3;
           23: p1:=-2;
           24: p1:=-1;
           25: p1:=0;
           end;
           text[i-2]:=schluessel[p1+5];
           case p2 of
           21: p2:=-4;
           22: p2:=-3;
           23: p2:=-2;
           24: p2:=-1;
           25: p2:=0;
           end;
           text[i-1]:=schluessel[p2+5];


          end
       else          //Oder aber beide Buchstaben sind weder in der gleichen ..
          begin      //.. Zeile noch in der gleichen Spalte, dann ..
           If s1<s2 then
            text[i-2]:=schluessel[p1+(s2-s1)];
            text[i-1]:=schluessel[p2-(s2-s1)];
           If s1>s2 then
            text[i-2]:=schluessel[p1-(s1-s2)];
            text[i-1]:=schluessel[p2+(s1-s2)];
          end;
    end;  //end while
result:=text;
end;


procedure TForm1.Button1Click(Sender: TObject);
var schluessel,text: string;
begin
schluessel:='playfair';   //hier ist der Schlüssel der Matrix festgelegt
text:=edit1.text;             //der zu codierende Text wird eigelesen
text:=zerlege(text);          //Funktionsaufruf(zerlege)
edit3.text:=text;
schluessel:=matrix(schluessel);
edit2.text:=schluessel;
text:=verschluessel(text,schluessel);
edit4.text:=text;
end;                    

1:
2:
3:
4:
5:

if BedingungX then
   begin
   MacheA;   //Führt MacheA aus, wenn BedingungX der Fall ist.
   MacheB;   //Führt MacheB aus, wenn BedingungX der Fall ist.
   end;                    

1:
2:
3:

if BedingungX then
   MacheA;   //Führt MacheA aus, wenn BedingungX der Fall ist.
MacheB;   //Führt MacheB immer(!) aus.                    

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:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

function entschluessel (text,schluessel:string):string;
var i,l,p1,z1,s1,p2,z2,s2:integer;
begin
l:=length(text);
i:=1;
 while i < l do
    begin
    //if text[i]='j' then text[i]:='i'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p1:=pos(text[i],schluessel);         //Position des ersten Buchst. in p1.
    z1:=((p1-1) DIV 5)+1;
    s1:=((p1-1) MOD 5)+1;
    inc(i);                          //i auf nächsten Buchstaben

    if text[i]='j' then text[i]:='i'; //Ganz wichtig! J gibt es in der Matrix nicht.
    p2:=pos(text[i],schluessel);         //Position des zweiten Buchst. in p2.
    z2:=((p2-1) DIV 5)+1;
    s2:=((p2-1) MOD 5)+1;
    inc(i);                          //i auf nächsten Buchstaben

    if z1=z2 then //Wenn beide Buchst. in einer Zeile liegen, dann ..
       begin
        case p1 of
        1:   p1:=6;
        6:   p1:=11;
        11:  p1:=16;
        16:  p1:=21;
        21:  p1:=26;
        end;
        text[i-2]:=schluessel[p1-1]; //ergebnis an der ersten stelle buchstaben zuweisen
        case p2 of
        1:   p2:=5;
        6:   p2:=10;
        11:  p2:=15;
        16:  p2:=20;
        21:  p2:=25;
        end;
        text[i-1]:=schluessel[p2-1]; //ergebnis an der zweiten stelle buchstaben zuweisen
       end
    else
       if s1=s2 then //Oder aber wenn beide Buchst. in einer Spalte liegen, dann ..
          begin
           case p1 of
           21: p1:=-4;
           22: p1:=-3;
           23: p1:=-2;
           24: p1:=-1;
           25: p1:=0;
           end;
           text[i-2]:=schluessel[p1-5];
           case p2 of
           21: p2:=-4;
           22: p2:=-3;
           23: p2:=-2;
           24: p2:=-1;
           25: p2:=0;
           end;
           text[i-1]:=schluessel[p2-5];


          end
       else          //Oder aber beide Buchstaben sind weder in der gleichen ..
          begin      //.. Zeile noch in der gleichen Spalte, dann ..
           If s1<s2 then
            begin
             text[i-2]:=schluessel[p1+(s2-s1)];
             text[i-1]:=schluessel[p2-(s2-s1)];
            end;
           If s1>s2 then
            begin
             text[i-2]:=schluessel[p1-(s1-s2)];
             text[i-1]:=schluessel[p2+(s1-s2)];
            end;
          end;
    end;  //end while
result:=text;
end;