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

function keychar(s:string) : char; //Diese Funktion liefert den Schlüssel "s" Buchstabe für Buchstabe
begin
Inc(keyint);
KeyChar:=s[keyint];
If Keyint=Length(s) then Keyint:=0;
end;
procedure TForm4.Button1Click(Sender: TObject);
var
  i,x:integer;
begin
memo2.Text:='';
for i:=1 to 26 do az[i]:='';
keyint:=0;
for i:=1 to length(Memo1.Text) do
begin
x:=ord(keychar(Edit1.Text))-96;
az[x]:=az[x]+Memo1.Text[i];
end;
for i:=1 to 26 do Memo2.Text:=Memo2.Text+az[i]+char(byte(13))+char(byte(10));
end;					

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

procedure TForm4.Button2Click(Sender: TObject);
var
  i,x,y:integer;
begin
for i:=1 to 26 do az[i]:='';
keyint:=0;
memo1.text:='';
for i:=1 to 26 do az[i]:=memo2.Lines[i-1];
for i:=0 to 25 do y:=y+length(Memo2.Lines[i]);
for i:=0 to y do
begin
  x:=ord(keychar(Edit1.Text))-96;
  if az[i]<>'' then Memo1.Text:=Memo1.Text+az[x][1];
  az[i] := AnsiRightStr(az[i], length(az[i]) - 1);
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:

procedure TForm4.Button1Click(Sender: TObject);
var
  i,x:integer;
begin
memo2.Text:=''; //zur sicherheit, wenn das prog 2 mal ausgeführt wird
for i:=1 to 26 do az[i]:=''; //az leeren (ist ein array, der für jeden buchstaben (a bis z) ein elment hat)
keyint:=0; //nötig für keychar(schlüssel);
for i:=1 to length(Memo1.Text) do
begin
x:=ord(keychar(Edit1.Text))-96;   //der schlüssel soll nur aus kleinbuchstaben bestehen, desshalb diese zahl. dadurch wird a=1, b=2 und so weiter
az[x]:=az[x]+Memo1.Text[i];  //fügen wir den klaartextbuchstaben dem dem schlüsselbuchstaben entsprechenden element in az zu
end;
for i:=1 to 26 do Memo2.Text:=Memo2.Text+az[i]+char(byte(13))+char(byte(10)); //das ausgabefeld bekommt jedes element von az in alphabethischer reihenfolge dazu; danach eine entertaste(wusste nicht wie ich das sonst hinbekomm... achja.. lines.add -.-
end;

procedure TForm4.Button2Click(Sender: TObject);
var
  i,x,y:integer;
begin
for i:=1 to 26 do az[i]:='';  //az wieder leeren
keyint:=0;                    // s.o.
memo1.text:='';               // s.o.
for i:=1 to 26 do az[i]:=memo2.Lines[i-1]; //az füllen
for i:=0 to 25 do y:=y+length(Memo2.Lines[i]); //alle zeichen von memo2 adieren, ohne leerzeilen (#13 #10 sind 2 zeichen -.-)
for i:=0 to y do
begin
  x:=ord(keychar(Edit1.Text))-96; //s.o.
  if az[i]<>'' then Memo1.Text:=Memo1.Text+az[x][1]; //erster buchstabe von az[i] zum ausgabefeld hinzufügen
  az[i] := AnsiRightStr(az[i], length(az[i]) - 1);   //ersten buchstaben von az[i] löschen
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:

hallohallohallohalloh
dies ist der klartext
=>jedem schlüsselbuchstaben(hallo) werden klartextbuchstaben zugeordnet.
=>h:dieat
  a:isrr
  l:est  kte
  o: dlx
=>schlüssel wird in alphabethiscer reihenfolge geordnet:
a:isrr
h:dieat
l:est  kte
o: dlx
=>verwürfelter text: jeder nicht benutzte buchstabe im schlüssel erhält eine leere zeile:
a:isrr
b:
c:
d:
...
h:dieat
i:
...
l:est  kte
m:
n:
o: dlx
p:
q:
...
y:
z:					

1:
2:

=>Jedem Buchstaben des eingegebenen schlüssels eine textzeile zuordnen.
=>text (ohne leerzeilen) von 0 bis ende durchgehen und den text wieder zusammensetzen.