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:

procedure TForm1.Button1Click(Sender: TObject);
var klartext,laenge,n,position:integer;
neu,buchstabe:string;
begin
klartext:=strtoint(edit1.text);
laenge:=length(edit1.text);
n:=laenge;
position:= length(inttostr(n));
neu:=' ';
while n <> 0 do
begin
if position = strtoint('a') then
buchstabe:='g';
neu:=neu+buchstabe;
if position = strtoint('b') then
buchstabe:='h';
neu:=neu+buchstabe;
if position = strtoint('c') then
buchstabe:='i';
neu:=neu+buchstabe;
if position = strtoint('d') then
buchstabe:='j';
neu:=neu+buchstabe;
if position = strtoint('e') then
buchstabe:='k';
neu:=neu+buchstabe;
if position = strtoint('f') then
buchstabe:='l';
neu:=neu+buchstabe;
if position = strtoint('g') then
buchstabe:='m';
neu:=neu+buchstabe;
if position = strtoint('h') then
buchstabe:='n';
neu:=neu+buchstabe;
if position = strtoint('i') then
buchstabe:='o';
neu:=neu+buchstabe;
if position = strtoint('j') then
buchstabe:='p';
neu:=neu+buchstabe;
if position = strtoint('k') then
buchstabe:='q';
neu:=neu+buchstabe;
if position = strtoint('l') then
buchstabe:='r';
neu:=neu+buchstabe;
if position = strtoint('m') then
buchstabe:='s';
neu:=neu+buchstabe;
if position = strtoint('n') then
buchstabe:='t';
neu:=neu+buchstabe;
if position = strtoint('o') then
buchstabe:='u';
neu:=neu+buchstabe;
if position = strtoint('p') then
buchstabe:='v';
neu:=neu+buchstabe;
if position = strtoint('q') then
buchstabe:='w';
neu:=neu+buchstabe;
if position = strtoint('r') then
buchstabe:='x';
neu:=neu+buchstabe;
if position = strtoint('s') then
buchstabe:='y';
neu:=neu+buchstabe;
if position = strtoint('t') then
buchstabe:='z';
neu:=neu+buchstabe;
if position = strtoint('u') then
buchstabe:='a';
neu:=neu+buchstabe;
if position = strtoint('v') then
buchstabe:='b';
neu:=neu+buchstabe;
if position = strtoint('w') then
buchstabe:='c';
neu:=neu+buchstabe;
if position = strtoint('x') then
buchstabe:='d';
neu:=neu+buchstabe;
 
dec(n);
end;
label1.caption:=neu;
 
end;
 
end.                    

1:
2:
3:
4:
5:

zieltext ist leer;
über laufvariable von 1 bis länge des klartextes
  aktuelles zeichen = zeichen von klartextes an der stelle der laufvariable;
  neues zeichen = als zeichen ( als ASCII Code ( aktuelles zeichen ) +1 );
  zieltext = zieltext und neues zeichen                    

1:
2:
3:
4:

for i:=0 to length(memoZuVerschluzesselnderText)-1 do
    begin
    memoZuVerschluesselnderText.Text[i]:=IntToStr(StrToInt(memoZuVerschluesselnderText.Text[i])+1);
    end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var text,neuertext,n, laenge:integer;
begin
Edit1.clear;
Edit2.clear;
text:=strtoint(edit1.text);
for n:=0 to length(edit1.text)-1 do // hier stimmt bestimmt was nicht von den datentypen..?



end;

end.                    

1:
2:
3:

const
code = 'ghijklmnopqrstuvwxyzabcdef';
//     'abcdefghijklmnopqrstuvwxyz';                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s2: String;
  c, c2: Char;
  i, k: Integer;
begin
  s := Edit1.Text;

  for i := 1 to Length(s) do
  begin
    c := s[i];
    if (c >= 'a') and (c <= 'z') then
      begin
        k := Ord(c) - 96; {a ist ASCII 97, also alles davor abziehen, damit a = 1 ist}
        c2 := code[k];  // Ersatzzeichen aus der Verschlüsselungstabelle nehmen
        s2 := s2 + c2; // hier nur a bis z
      end
    else
      s2 := s2 + c; // hier der Rest
  end;

  Edit1.Text := s2;
end;                    

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

procedure TForm1.Button2Click(Sender: TObject);
var
  s, s2: String;
  c, c2: Char;
  i, k: Integer;
begin
  s := Edit1.Text;

  for i := 1 to Length(s) do
  begin
    c := s[i];
    if (c >= 'a') and (c <= 'z') then
      begin
        k := Pos(c, code) + 96;
        c2 := Chr(k);
        s2 := s2 + c2; // hier nur a bis z
      end
    else
      s2 := s2 + c; // hier der Rest
  end;

  Edit1.Text := s2;
end;                    

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

procedure TForm1.ButtonVerschluesselnClick(Sender: TObject);
var i:integer;
begin
LabelVerschluesselt.Caption:='';
for i:=0 to length(LabelKlartext.Caption)-1 do
        LabelVerschluesselt.Caption:=LabelVerschluesselt.Caption+Chr(Ord(LabelKlartext.Caption[i])+1);
end;

procedure TForm1.ButtonWiederEntschluesselnClick(Sender: TObject);
var i:integer;
begin
LabelWiederEntschluesselt.Caption:='';
for i:=0 to length(LabelVerschluesselt.Caption)-1 do
        LabelWiederEntschluesselt.Caption:=LabelWiederEntschluesselt.Caption+Chr(Ord(LabelVerschluesselt.Caption[i])-1);
Edit1.Text:=LabelWiederEntschluesselt.Caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
LabelKlartext.Caption:='LabelKlartext';
end;                    

1:

s := 'abcd' + #0 + 'efghi';                    

1:

for i:=0 to length(LabelKlartext.Caption)-1 do                    

1:

for i:=1 to length(LabelKlartext.Caption) do                    

1:
2:
3:

const
code = 'ghijklmnopqrstuvwxyzabcdef';
//     'abcdefghijklmnopqrstuvwxyz';