1:
2:
3:
4:
5:

Mathias Simmack
QWERTZU IOPASDF

Peter Lustig
QWERT ZUIOPA					

1:
2:
3:
4:
5:

Mathias Simmack
NCWLNGZ ARWXMPY

Peter Lustig
QGWIW RBACSR					

1:
2:
3:

M = N // (Buchstabe + 1) + 0 (Walzenposition)
A = C // (Buchstabe + 1) + 1 (Walzenposition)
T = W // (Buchstabe + 1) + 2 (Walzenposition)					

1:

BCDEFGHIJKLMNOPQRSTUVWXYZA					

1:

ShowMessage(CHR(13 + 64));					

1:

QAYWSXEDCRFVTGBZHNUJMIKOLP					

1:
2:
3:
4:

A = B
A = C
A = D
...					

1:
2:

const
  jumps = array[1..26]of byte = (2,0,5,...);					

1:
2:

Peter Lustig
AQGSG BLKMCB					

1:
2:

P = A // (Buchstabe + 1) + 10 (Walzenposition)
...					

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

Hallo ihr da draussen {Klartext}

Q W E R T Z U I O P A S D F G H J K L Y X C V B N M {Buchstabenanordnung auf der 1.Walze}
QNWTEBRHTPZVUDIJORPXATSLDMFZGAHGJOKULCYIXOCWVEBKNSMY {Gesamter Walzenstring}
 N T B H P V D J R X T L M Z A G O U C I Q W E K S Y {Verknüpfte Buchstaben, z.B.: 'Q' ist mit 'N', 'W' mit 'T' und 'E' mit 'B' verknüpft}

NTBHP VDJ RX TLMZAGOU {Kodierte Nachricht}


Abcde fgh ij klmnopqr {Klartext}

Q W E R T Z U I O P A S D F G H J K L Y X C V B N M {Buchstabenanordnung auf der 1.Walze}
QNWTEBRHTPZVUDIJORPXATSLDMFZGAHGJOKULCYIXOCWVEBKNSMY {Gesamter Walzenstring}
 N T B H P V D J R X T L M Z A G O U C I Q W E K S Y {Verknüpfte Buchstaben, z.B.: 'Q' ist mit 'N', 'W' mit 'T' und 'E' mit 'B' verknüpft}

NTBHP VDJ RX TLMZAGOU {Kodierte Nachricht}					

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:

const
 Walze1 : String  = 'QNWTEBRHTPZVUDIJORPXATSLDMFZGAHGJOKULCYIXQCWVEBKNSMY';

var
 Form1 : TForm1;
 PosWalze1 : Integer = 2;
 KodierterText : String  = '';

implementation
{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender : TObject; var GedrueckteTaste : Char);
begin
 if (GedrueckteTaste in ['a'..'z', 'A'..'Z', #13, #32, #8]) then begin
  if (GedrueckteTaste in ['a'..'z']) then GedrueckteTaste := UpCase(GedrueckteTaste);
  case GedrueckteTaste of
   #8 : if (KodierterText <> '') then begin
         Delete(KodierterText, Length(KodierterText), 1);
         if (PosWalze1 = 2) then PosWalze1 := Length(Walze1)
         else Dec(PosWalze1, 2);
        end;
   #13 : KodierterText := KodierterText + #13#10;
   #32 : KodierterText := KodierterText + GedrueckteTaste;
   'A'..'Z' : begin
               KodierterText := KodierterText + Walze1[PosWalze1];
               if (PosWalze1 = Length(Walze1)) then PosWalze1 := 2
               else Inc(PosWalze1, 2);
              end;
  end;
  Kodierung.Text := KodierterText;
 end
 else GedrueckteTaste := #0;
end;

end.					

1:
2:

Hallo ihr da draussen
NTBHP VDJ RX TLMZAGOU					

1:
2:

Q W E R T Z U I O P A S D F G H J K L Y X C V B N M
N T B H P V D J R X T L M Z A G O U C I Q W E K S Y					

1:
2:

Hallo ihr da draussen
Abcde fgh ij klmnopqr					

1:

NTBHPVDJRXTLMZAGOUCIQWEKSY					

1:
2:
3:
4:
5:

Hallo ihr da draussen
GTCCR JGH MT MHTDLLBS

Abcde fgh ij klmnopqr
TKWMB ZAG JO UCYSRXNH					

1:
2:

Hallo ihr da draussen
GLQWM MWT QI EAEIYNCG					

1:
2:
3:
4:

const
  Keyboard : string[26] = 'QWERTZUIOPASDFGHJKLYXCVBNM';
  Walze1   : string[26] = 'NTBHPVDJRXTLMZAGOUCIQWEKSY';
                            ^        ^					

1:
2:

JEU CDMUCT RQGTQSN TSUCPOZ
ICH HEISSY MATHIAS SIMMACK					

1:

JEU CDMUCT RQGFQSN FSUCPOZ					

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:

const
 Walze1 : String  = 'ABCDEFGHIJKLMNOPQRSTUVWXYZQWERTZUIOPASDFGHJKLYXCVBNM';

 var
 Form1 : TForm1;
 DrehungenWalze1 : Integer = 0;
 PositionWalze1 : Integer = 1;
 KodierterText : String  = '';

implementation
{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender : TObject; var GedrueckteTaste : Char);
begin
 if (GedrueckteTaste in ['a'..'z', 'A'..'Z', #8, #13, #32]) then begin
  if (GedrueckteTaste in ['a'..'z']) then GedrueckteTaste := UpCase(GedrueckteTaste);
  { Ist die gedrückte Taste 'a'..'z', wird sie zum entsprechenden Großbuchstaben }
     { #129ü #132ä #142Ä #148ö #153Ö #154Ü }
  case GedrueckteTaste of
   #8 : if not (KodierterText = '') then begin
         case KodierterText[Length(KodierterText)] of
          #10 : Delete(KodierterText, Length(KodierterText) - 1, 2);
          { Ist das letzte Zeichen im kodierten Text #10 (Zeilenanfang), werden im kodierten Text die letzten beiden Zeichen (#13 und #10) gelöscht }
          #32 : Delete(KodierterText, Length(KodierterText), 1);
          { Ist das letzte Zeichen im kodierten Text 'Leertaste', wird im kodierten Text das letzte Zeichen gelöscht }
          'A'..'Z' : begin
                      Delete(KodierterText, Length(KodierterText), 1);
                      { Ist das letzte Zeichen im kodierten Text 'A'..'Z', wird im kodierten Text das letzte Zeichen gelöscht }
                      if (DrehungenWalze1 = 0) then DrehungenWalze1 := 25
                      else Dec(DrehungenWalze1);
                      { Ist die Walze in der 1. Position, fängt sie in der letzten Position an; ansonsten dreht sie sich eine Position zurück }
                     end;
         end;
        end;
   #13 : KodierterText := KodierterText + #13#10;
   { Ist die gedrückte Taste 'Enter', wird der kodierte Text mit #13 (Beginn der nächsten Zeile) und #10 (Zeilenanfang) erweitert }
   #32 : KodierterText := KodierterText + ' ';
   { Ist die gedrückte Taste 'Leertaste', wird der kodierte Text mit einer Leerstelle erweitert }
   'A'..'Z' : begin
               PositionWalze1 := (Ord(GedrueckteTaste) - 64) + DrehungenWalze1;
               { Der 'oberste' Buchstabe der Walze ergibt sich aus der Buchstabenposition im Alphabet + der Anzahl der Walzendrehnungen }
               if (PositionWalze1 > 26) then Dec(PositionWalze1, 26);
               { Ist der 'oberste' Buchstabenwert der Walze größer als eine Walzenumdrehung, wird eine Walzenumdrehung abgezogen }
               KodierterText := KodierterText + Walze1[26 + PositionWalze1];
               { Der kodierte Text wird um den Buchstaben erweitert, mit dem der 'oberste' Buchstabe der Walze verknüpft ist }
               if (DrehungenWalze1 = 25) then DrehungenWalze1 := 0
               else Inc(DrehungenWalze1);
               { Ist die Walze in der letzten Position, fängt sie wieder in der 1. Position an; ansonsten dreht sie sich eine Position weiter }
              end;
  end;

  Kodierung.Text := KodierterText;
  { Der kodierte Text wird im Ausgabefeld ausgegeben }

  with Kodierung do begin
   SelStart := Length(Kodierung.Text);
   { Der markierte Textteil im Ausgabefeld wird ans Ende des kodierten Textes gesetzt }
   SendMessage(Kodierung.Handle, EM_Scrollcaret, 0, 0);
   { Das Ausgabefeld bekommt den Befehl, soweit zu scrollen, bis der Cursor im Bild ist }
  end;

 end
 else GedrueckteTaste := #0;
 { Ist die gedrückte Taste nicht 'a'..'z', 'A'..'Z', 'Enter', 'Leerstaste' oder 'Löschen', wird sie nicht angezeigt }
end;

end.					

1:

procedure TForm1.KlartextKeyPress(Sender : TObject; var GedrueckteTaste : Char);