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;