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:

implementation



{$R *.DFM}

procedure Tf_caes.FormCreate(Sender: TObject);
var
buchstabe : char; i : integer;
begin
     i:=0;
     for buchstabe := 'a'to 'z' do
         begin
              sg_alphabet.cells[i,0]:=buchstabe;
              klaralpha[i] := buchstabe;
              i:=i+1;
         end;
     {Aufzählung von a-z in sg_alphabet}
end;



procedure erstelle_geheim(v:integer);
var
i:integer;
begin
     for i:=0 to 25 do
         geheimalpha[i]:= klaralpha[(i+v)mod 26]
end;

{Es wird um "i-Stellen" verschoben -> Verschlüsslung}




procedure Tf_caes.b_verschluessleClick(Sender: TObject);
var
i,v,l,j : integer;
klar,geheim:string;
begin
     v:= se_verschiebe.value;
     klar:= e_klar.text;
     erstelle_geheim(v);

     {Geheimalphabet soll ausgegeben werden}

     l:=length(klar);
     geheim:= '';
     for i:=1 to l do
     begin
          for j:=0 to 25 do
          begin
               if klar[i]=klaralpha[j]
               then
                   geheim := geheim + geheimalpha[j];
          end;
     end;


     e_geheim.text:=geheim;
end;
 {Ausgabe}
procedure Tf_caes.b_endClick(Sender: TObject);
begin
close;
end;

end.