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:

VERSCHLÜSSELN
function verschluessle(inhalt, key: string): string;
var neu: char; a,b :String;
    zaehler, pos, verschiebung : integer;
begin
     a:= Form1.memKlartext.Text;  //zunächst werden den varibalen
     b:= Form1.edSchluessel.text; //Werte zugewiesen
     a:= lowercase (a);           //Und diese werden um es einfacher zu machen
     b:= lowercase (b);           //Klein geschrieben
     result:='';
 for zaehler := 1 to length(a) do
    begin
    if  a[zaehler] <> ' ' then  // Wenn a an der Stelle Zaehler kein Leerzeichen (' ') hat, soll der das machen
    begin
      pos := zaehler mod length(b);
        if (pos = 0) then pos := length(b);
          verschiebung := ord (b[pos]) - 97;    //ASCII Wert um 97 verringern
          neu := chr (ord(a[zaehler]) + verschiebung );
             if (ord( neu )>122) then
             neu := chr (ord(neu) - 26 );
             result := result + neu;
             Form1.memGeheimtext.Text:=result;
        end;
    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:

ENTSCHLÜSSELN:

function entschluessle(inhalt, key: string): string;
var neu: char; a,b :String;
    zaehler, pos, verschiebung : integer;
begin
     a:= Form1.memgeheimtext.Text;
     b:= Form1.edSchluessel.text;
     a:= lowercase (a);
     b:= lowercase (b);
     result:='';
 for zaehler := 1 to length(a) do
    begin
    if  a[zaehler] <> ' ' then  // Wenn a an der Stelle Zaehler kein Leerzeichen (' ') hat, soll der das machen
    begin
      pos := zaehler mod length(b);
        if (pos = 0) then pos := length(b);
          verschiebung := ord (b[pos]) - 97;
          neu := chr (ord(a[zaehler]) - verschiebung );
             if (ord( neu )>122) then
             neu := chr (ord(neu) +26 );
             result := result + neu;
             Form1.memKlartext.Text:=result;
        end;
    end;

end;