1:

A -> E -> L -> T -> P ...                    

1:
2:

var
  rotor : array[0..9]of TEnigmaRotor;                    

1:
2:

QWERTZUIOPASDFGHJKLYXCVBNM
abcdefghijklmnopqrstuvwxyz                    

1:
2:

QWERTZUIOPASDFGHJKLYXCVBNM
cdefghijklmnopqrstuvwxyzab                    

1:
2:

NMQWERTZUIOPASDFGHJKLYXCVB
abcdefghijklmnopqrstuvwxyz                    

1:
2:

ERTZUIOPASDFGHJKLYXCVBNMQW
abcdefghijklmnopqrstuvwxyz                    

1:
2:

QWERTZUIOPASDFGHJKLYXCVBNM
yzabcdefghijklmnopqrstuvwx                    

1:

DrehungenWalze1 := BYTE(Ausgang) - BYTE('A');                    

1:

67 - 65 = 2                    

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
  IPEG     = 24;   // Y
  I        : array[0..ROTORSIZE-1]of byte =
    (4,10,12,5,11,6,3,16,21,25,13,19,14,22,24,7,23,20,18,15,0,8,1,17,2,9);

  IIPEG    = 12;   // M
  II       : array[0..ROTORSIZE-1]of byte =
    (0,9,3,10,18,8,17,20,23,1,11,7,22,19,12,2,16,6,25,13,15,24,5,21,14,4);

  IIIPEG   = 3;    // D
  III      : array[0..ROTORSIZE-1]of byte =
    (1,3,5,7,9,11,2,15,17,19,23,21,25,13,24,4,8,22,6,0,10,12,20,18,16,14);

  IVPEG    = 17;   // R
  IV       : array[0..ROTORSIZE-1]of byte =
    (4,18,14,21,15,25,9,0,24,16,20,8,17,7,23,11,13,5,19,6,10,3,2,12,22,1);

  VPEG     = 7;    // H
  V        : array[0..ROTORSIZE-1]of byte =
    (21,25,1,17,6,8,19,24,20,15,18,3,13,7,11,23,0,22,12,9,16,14,5,4,2,10);

  VIPEG1   = 7;    // H
  VIPEG2   = 20;   // U
  VI       : array[0..ROTORSIZE-1]of byte =
    (9,15,6,21,14,20,12,5,24,16,1,4,13,7,25,17,3,10,0,18,23,11,8,2,19,22);

  VIIPEG1  = 7;    // H
  VIIPEG2  = 20;   // U
  VII      :array[0..ROTORSIZE-1]of byte =
    (13,25,9,7,6,17,2,23,12,24,18,22,1,14,20,5,0,8,21,11,15,4,10,16,3,19);

  VIIIPEG1 = 7;    // H
  VIIIPEG2 = 20;   // U
  VIII     : array[0..ROTORSIZE-1]of byte =
    (5,10,16,7,19,11,23,14,2,1,9,18,15,3,25,17,0,12,4,22,13,8,20,24,6,21);                    

1:
2:
3:
4:
5:

const
  I  : array[0..REFLECTSIZE-1]of byte =
    (24,17,20,7,16,18,11,3,15,23,13,6,14,10,12,8,4,1,5,25,2,22,21,9,0,19);
  II : array[0..REFLECTSIZE-1]of byte =
    (5,21,15,9,8,0,14,24,4,3,17,25,23,22,6,2,19,10,20,16,18,1,13,12,7,11);                    

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

{ ... }
  case whichOne of
    1: begin
         Move(I,rotor,ROTORSIZE);
         rotateUp1 := IPEG;
         rotateUp2 := -1;
       end;

{ ... }

procedure TEnigmaRotor.rotate(up: boolean);
begin
  if(up) then currentRotation := (currentRotation + 1) mod ROTORSIZE
    else begin
      dec(currentRotation); if(currentRotation < 0) then
                              currentRotation := ROTORSIZE - 1;
    end;

  if(up) and (nextRotor <> nil) and
    ((currentRotation = rotateUp1) or (currentRotation = rotateUp2)) then
  nextRotor.rotate(true);
end;                    

1:
2:
3:
4:

ABCDEFGHIJKLMNOPQRSTUVWXYZ { Tastaturanschluss an die Walze (Wer wird mit wem kodiert) }
QWERTZUIOPASDFGHJKLYXCVBNM { Walzenverschlüsselung }
Hallo ihr da draussen { Klartext }
IWFGL FFN SP FEDIUIXT { Kodierter Text }                    

1:
2:
3:
4:

DEFGHIJKLMNOPQRSTUVWXYZABC { Tastaturanschluss an die Walze (Wer wird mit wem kodiert) }
QWERTZUIOPASDFGHJKLYXCVBNM { Walzenverschlüsselung }
Hallo ihr da draussen { Klartext }
ATJKC JJW GD JZHAPABI { Kodierter Text }                    

1:
2:
3:
4:
5:
6:
7:
8:

EKHELBII TBGQHKYK(JP: IAIG): PXPN;
KYM
 UFVPTY: VRXN;
ZJKPX
 DPQBAN := ((BBJ(SF, QXNET1) - 1) - TAZJDAIMSBJXMQ1 + 26) RTY 26;
 NXMOZL := (CBP(OZHSND + HBFK('J')));
 OTQSUTEXZPSHXV := (VQBUEQMJWGUSJP1 + 1) CVA 26;
WGS;                    

1:
2:
3:

const
  I        : array[0..ROTORSIZE-1]of byte =
    (4,10,12,5,11,6,3,16,21,25,13,19,14,22,24,7,23,20,18,15,0,8,1,17,2,9);                    

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

function Encoding(ch: char): char;
var
  offset : byte;
begin
  offset          := ((BYTE(ch) - BYTE('A')) + DrehungenWalze1) mod 26;
  Result          := Walze1[offset];
  DrehungenWalze1 := (DrehungenWalze1 + 1) mod 26;
end;

function Decoding(ch: char): char;
var
  offset : byte;
begin
  offset          := ((pos(ch,Walze1) - 1) - DrehungenWalze1 + 26) mod 26;
  Result          := (CHR(offset + BYTE('A')));
  DrehungenWalze1 := (DrehungenWalze1 + 1) mod 26;
end;                    

1:
2:

var
  rotors    : array[0..2]of TEnigmaRotor;                    

1:
2:
3:

rotors[2] := TEnigmaRotor.Create; rotors[2].Init(3 {<- Typ},3 {<- Startposition},nil);
rotors[1] := TEnigmaRotor.Create; rotors[1].Init(4,7,rotors[2]);
rotors[0] := TEnigmaRotor.Create; rotors[0].Init(1,6,rotors[1]);                    

1:
2:

for i := 0 to 2 do
  offset := rotors[i].send(offset,true);                    

1:
2:
3:
4:
5:
6:

function Verschluesselung(Buchstabe: Char): Char; 
begin 
 PositionWalze1 := ((Ord(Buchstabe) - Ord('A')) + DrehungenWalze1) mod 26; 
 Buchstabe := Walze1[PositionWalze1]; 
 DrehungenWalze1 := (DrehungenWalze1 + 1) mod 26; 
end;                    

1:

TImage(Sender).Name                    

1:
2:
3:
4:

type
  EncodeDecodeFunc = function(ch: char): char;
var
  ECFunc           : EncodeDecodeFunc;                    

1:

ECFunc := @Encoding;                    

1:
2:
3:
4:
5:

procedure TForm1.encoderClick(Sender: TObject);
begin
  if(encoder.Checked) then ECFunc := @Encoding
    else ECFunc := @Decoding;
end;                    

1:
2:
3:
4:
5:
6:

{ ... }
  case Key of
    'A'..'Z':
      KodierterText := KodierterText + ECFunc(Key);

{ ... }                    

1:

DOPEFISH                    

1:
2:
3:

YFMQT MMA BC
QKWYS WWC TZ
XLWIA WWD HQ                    

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

implementation
{$R *.dfm}

function Verschluesselung(Buchstabe: Char): Char;
begin
 PositionWalze1 := (Ord(Buchstabe) - 64) + DrehungenWalze1;
 if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
 Result := Walze1[PositionWalze1];
 if (DrehungenWalze1 >= 26) then DrehungenWalze1 := 1
 else Inc(DrehungenWalze1);
end;
...
{in der Prozedur TForm1.Memo1KeyPress wird der kodierte Text um den kodierten Buchstaben aus der function erweitert}
KodierterText := KodierterText + Verschluesselung(GedrueckteTaste, Walze1);                    

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:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

var
 Form1 : TForm1;
 DrehungenWalze1 : Integer = 0;
 i, j : Integer;
 PositionWalze1 : Integer = 1;
 Walze1Auswahl :  String = 'QWERTZUIOPASDFGHJKLYXCVBNM
                           EKMFLGDQVZNTOWYHXUSPAIBRCJ
                           AJDKSIRUXBLHWTMCQGZNPYFVOE
                           BDFHJLCPRTXVZNYEIWGAKMUSQO
                           ESOVPZJAYQUIRHXLNFTGKDCMWB
                           VZBRGITYUPSDNHLXAWMJQOFECK
                           JPGVOUMFYQBENHZRDKASXLICTW
                           NZJHGRCXMYSWBOUFAIVLPEKQDT
                           FKQHTLXOCBJSPDZRAMEWNIUYGV';
 KodierterText : String  = '';
 Walze1 : String  = 'QWERTZUIOPASDFGHJKLYXCVBNM';

implementation
{$R *.dfm}

function Verschluesselung(Buchstabe: Char; WalzeX: String): Char;
begin
 PositionWalze1 := (Ord(Buchstabe) - 64) + DrehungenWalze1;
 { Der 'oberste' Buchstabe der Walze ergibt sich aus der Buchstabenposition im Alphabet + der Anzahl der Walzendrehnungen }
 if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
 { Ist die Walzenposition des verschlüsselnden Buchstaben größer als die Walze, wird die Position um eine Walzenlänge gekürzt }
 Result := WalzeX[PositionWalze1];
 if (DrehungenWalze1 >= 26) then DrehungenWalze1 := 1
 else Inc(DrehungenWalze1);
 { Ist die Walze in der letzten Position, fängt sie in der 1. Position an; ansonsten dreht sie sich eine Position weiter }
end;

procedure TForm1.KlartextKeyPress(Sender : TObject; var GedrueckteTaste : Char);
begin
 if (GedrueckteTaste in ['a'..'z', 'A'..'Z', #8, #13, #32]) then begin
  if (KodierterText = '') then begin
   AuswahlWalze1.Enabled := false;
   BeginnWalze1.Enabled := false;
  end;
  GedrueckteTaste := UpCase(GedrueckteTaste);
  { Ist die gedrückte Taste 'a'..'z', wird sie zum entsprechenden Großbuchstaben }
  case GedrueckteTaste of
   'A'..'Z' : begin
               KodierterText := KodierterText + Verschluesselung(GedrueckteTaste, Walze1);
               { Der kodierte Text wird um den verschlüsselten Buchstaben erweitert }
              end;
   #8 : if not (KodierterText = '') then begin
         case KodierterText[Length(KodierterText)] of
          '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 := 26
                      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;
          #10 : Delete(KodierterText, Length(KodierterText) - 1, 2);
          { Ist das letzte Zeichen im kodierten Text '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 }
         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 }
  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 mit dem markierten Textteil im Bild ist }
  end;

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

procedure TForm1.BeginnWalze1Change(Sender: TObject);
begin
 Insert(Copy(Walze1, 1, BeginnWalze1.ItemIndex), Walze1, Length(Walze1) + 1);
 { Der Walzenteil, der vor dem Anfangsbuchstaben liegt, wird ans Ende der Walze kopiert }
 Delete(Walze1, 1, BeginnWalze1.ItemIndex);
 { Der Walzenteil, der vor dem Anfangsbuchstaben liegt, wird gelöscht }
end;

procedure TForm1.AuswahlWalze1Change(Sender: TObject);
begin
 for i := 1 to 26 do Walze1[i] := Walze1Auswahl[i + 26 * AuswahlWalze1.ItemIndex];
 { Aus allen verfügbaren Walzen wird die Ausgewählte in den String Walze1 kopiert }
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Klartext.Text := '';
 Kodierung.Text := '';
end;

end.                    

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

{ Verschlüsselung            | Walze              | Notch | Turnover }
 { ABCDEFGHIJKLMNOPQRSTUVWXYZ | Eintrittswalze     |       |          }
 { EKMFLGDQVZNTOWYHXUSPAIBRCJ | Walze I            | Y     | Q        }
 { AJDKSIRUXBLHWTMCQGZNPYFVOE | Walze II           | M     | E        }
 { BDFHJLCPRTXVZNYEIWGAKMUSQO | Walze III          | D     | V        }
 { ESOVPZJAYQUIRHXLNFTGKDCMWB | Walze IV           | R     | J        }
 { VZBRGITYUPSDNHLXAWMJQOFECK | Walze V            | H     | Z        }
 { JPGVOUMFYQBENHZRDKASXLICTW | Walze VI           | H, U  | Z, M     }
 { NZJHGRCXMYSWBOUFAIVLPEKQDT | Walze VII          | H, U  | Z, M     }
 { FKQHTLXOCBJSPDZRAMEWNIUYGV | Walze VIII         | H, U  | Z, M     }
 { LEYJVCNIXWPBQMDRTAKZGFUHOS | Walze Beta         | M4    | M4       }
 { FSOKANUERHMBTIYCWLQPZXVGJD | Walze Gamma        | M4    | M4       }
 { YRUHQSLDPXNGOKMIEBFZCWVJAT | Reflektor B        |       |          }
 { FVPJIAOYEDRZXWGCTKUQSBNMHL | Reflektor C        |       |          }
 { ENKQAUYWJICOPBLMDXZVFTHRGS | Reflektor 'dünn' B | M4    | M4       }
 { RDOBJNTKVEHMLFCWZAXGYIPSUQ | Reflektor 'dünn' C | M4    | M4       }

 { QWERTZUIOPASDFGHJKLYXCVBNM = Tastaturlayout Computer}
 { QWERTZUIOASDFGHJKPYXCVBNML = Tastaturlayout ENIGMA}                    

1:
2:

A B C D E F G H I J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z
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                    

1:
2:

Q W E R T Z U I O A  S  D  F  G  H  J  K  P  Y  X  C  V  B  N  M  L
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                    

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

1. Walze:
 ABCDEFGHIJKLMNOPQRSTUVWXYZ
 ||||||||||||||||||||||||||
 EKMFLGDQVZNTOWYHXUSPAIBRCJEKMFLGDQVZNTOWYHXUSPAIBRCJ
 Nach jedem eingegebenen Buchstaben den Ersten löschen (also 'E', dann 'K', dann 'M' ...)

2. Walze:
 ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ
 ||||||||||||||||||||||||||
 AJDKSIRUXBLHWTMCQGZNPYFVOE

3. Walze:
 ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ
 ||||||||||||||||||||||||||
 BDFHJLCPRTXVZNYEIWGAKMUSQO

 E-P  I-J  N-K
 B-P  I-Z  S-C  S-H  C-J  H-K  E-L  N-C
 F-M  R-R  I-S  E-O  D-O  E-B  N-P

 Klartext: Ein bisschen Frieden
 Code: PJKPZCHJKLCMRSOOBP                    

1:

Combobox1.Items.Delete(index)                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure AuswahlWalzen(WalzeX: String);
begin
case Chr(Length(WalzeX)) of
 '1' : ...
 '2' : ...
 '3' : ...
end;
end;                    

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

var Walze1Auswahl : String = 'EKMFLGDQVZNTOWYHXUSPAIBRCJ
AJDKSIRUXBLHWTMCQGZNPYFVOE
BDFHJLCPRTXVZNYEIWGAKMUSQO
ESOVPZJAYQUIRHXLNFTGKDCMWB
VZBRGITYUPSDNHLXAWMJQOFECK
JPGVOUMFYQBENHZRDKASXLICTW
NZJHGRCXMYSWBOUFAIVLPEKQDT
FKQHTLXOCBJSPDZRAMEWNIUYGV';
...
procedure TForm1.AuswahlWalze1Change(Sender: TObject);
var i : Integer;
begin
 for i := 1 to 26 do Walze1[i] := Walze1Auswahl[i + 26 * AuswahlWalze1.ItemIndex];
 { Aus allen verfügbaren Walzen wird die Ausgewählte in den String Walze1 kopiert }
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure Walzenauswahl(WalzeX: String); 
begin 
  case Chr(Length(WalzeX)) of 
   '1' : ... 
   '2' : ... 
   '3' : ... 
  end; 
end;                    

1:
2:
3:
4:

procedure TForm1.auswahlchange(Sender : TObject);
begin
  ....
end;                    

1:

if TComboBox(sender).name = 'AuswahlWalze1' then ...                    

1:
2:
3:
4:

procedure TForm1.KlartextKeyPress(Sender: TObject; var GedrueckteTaste : Char);
begin
 if (GedrueckteTaste in ['a'..'z', 'A'..'Z', #8, #13]) then begin
...                    

1:

if (key IN [vk_left,vk_right,vk_down,vk_up])and (ssShift IN Shift) then key:=0;                    

1:

 memo1.clear                    

1:

memo1.text := memo1.text + s;                    

1:

memo1.text := memo1.text + #13 + #10 + s;                    

1:

memo1.Lines.Add(s);                    

1:
2:
3:

1. Buchstabe wird zum 2. Buchstabe
3. Buchstabe wird zum 4. Buchstabe
...                    

1:
2:
3:

1. Buchstabe wird zum 26. Buchstabe
2. Buchstabe wird zum 25. Buchstabe
...                    

1:
2:
3:

1. Buchstabe wird zum 14. Buchstabe
2. Buchstabe wird zum 15. Buchstabe
...                    

1:

Oder ganz anders?                    

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:

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
XVZNYEIWGAKMUSQOBDFHJLCPRTXVZNYEIWGAKMUSQOBDFHJLCPRT
{Die Tastatur ist als abc... an die 1. Walze angeschlossen; Die Walzenanordnung dreht sich nach jedem Char um 1 weiter: also gleich vzn...}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FAIVLPEKQDTNZJHGRCXMYSWBOU
{Beim 1. Char kommt nach der 1. Walze das X raus; es wird das X im Alphabet gesucht und sein Partner auf der 2. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
PAIBRCJEKMFLGDQVZNTOWYHXUS
{Beim 1. Char kommt nach der 2. Walze das B raus; es wird das B im Alphabet gesucht und sein Partner auf der 3. Walze} 

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FVPJIAOYEDRZXWGCTKUQSBNMHL
||||||||||||||||||||||||||
ABCDEFGHIJKLMNOPQRSTUVWXYZ
{Beim 1. Char kommt nach der 3. Walze das A raus; es wird das A im Alphabet gesucht und sein Partner auf dem Reflektor gesucht; dessen Position im Alphabet wird ermittelt und dessen Partner ausgegeben; hier: A}
  
Klar: Arschkriecher 
Code: AVBLSEJEUSYEM
III XI; VII XVI; I XX; I                    

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

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
XVZNYEIWGAKMUSQOBDFHJLCPRTXVZNYEIWGAKMUSQOBDFHJLCPRT

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FAIVLPEKQDTNZJHGRCXMYSWBOU

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
PAIBRCJEKMFLGDQVZNTOWYHXUS

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FVPJIAOYEDRZXWGCTKUQSBNMHL

Klar: Arschkriecher
Code: FBVZUIDISUHIX                    

1:

VZNYEIWGAKMUSQOBDFHJLCPX                    

1:

ZNYEIWGAKMUSQOBDFHJLCPXV                    

1:

NYEIWGAKMUSQOBDFHJLCPXVZ                    

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

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
|||||||||||||||||||||||||| 
XVZNYEIWGAKMUSQOBDFHJLCPRTXVZNYEIWGAKMUSQOBDFHJLCPRT 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
|||||||||||||||||||||||||| 
FAIVLPEKQDTNZJHGRCXMYSWBOU 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
|||||||||||||||||||||||||| 
PAIBRCJEKMFLGDQVZNTOWYHXUS 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
|||||||||||||||||||||||||| 
FVPJIAOYEDRZXWGCTKUQSBNMHL                    

1:
2:
3:

A->X X->B B->A A->F
R->F F->P P->V V->B
S->J J->D D->B B->V                    

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:

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
XVZNYEIWGAKMUSQOBDFHJLCPRTXVZNYEIWGAKMUSQOBDFHJLCPRT
{1. Walze: immer den 1. Buchstaben nach Eingabe löschen}
   
ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FAIVLPEKQDTNZJHGRCXMYSWBOU
{2. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
PAIBRCJEKMFLGDQVZNTOWYHXUS
{3. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FVPJIAOYEDRZXWGCTKUQSBNMHL
{Reflektor}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
PAIBRCJEKMFLGDQVZNTOWYHXUS
{3. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FAIVLPEKQDTNZJHGRCXMYSWBOU
{2. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
XVZNYEIWGAKMUSQOBDFHJLCPRTXVZNYEIWGAKMUSQOBDFHJLCPRT
{1. Walze: immer den 1. Buchstaben nach Eingabe löschen}                    

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:

PositionWalze1 := Ord(GedrueckteTaste) - 64 + DrehungenWalze1;
if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
KodierterChar := Walze1[PositionWalze1];

PositionWalze2 := Ord(KodierterChar) - 64 + DrehungenWalze2;
if (PositionWalze2 >= 27) then Dec(PositionWalze2, 26);
KodierterChar := Walze2[PositionWalze2];

PositionWalze3 := Ord(KodierterChar) - 64 + DrehungenWalze3;
if (PositionWalze3 >= 27) then Dec(PositionWalze3, 26);
KodierterChar := Walze3[PositionWalze3];

PositionReflektor := Ord(KodierterChar) - 64;
KodierterChar := Reflektor[PositionReflektor];

PositionWalze3 := Ord(KodierterChar) - 64 + DrehungenWalze3;
if (PositionWalze3 >= 27) then Dec(PositionWalze3, 26);
KodierterChar := Walze3[PositionWalze3];

PositionWalze2 := Ord(KodierterChar) - 64 + DrehungenWalze2;
if (PositionWalze2 >= 27) then Dec(PositionWalze2, 26);
KodierterChar := Walze2[PositionWalze2];

PositionWalze1 := Ord(KodierterChar) - 64 + DrehungenWalze1;
if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
KodierterChar := Walze1[PositionWalze1];

KodierterText := KodierterText + KodierterChar;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

ABCDEFGHIJKLMNOPQRSTUVWXYZ 
|||||||||||||||||||||||||| 
XVZNYEIWGAKMUSQOBDFHJLCPRT 
{1. Walze 'normal', also oben das Alphabet; linker Walzeneingang ist alphabetisch}

JQWRFSITGUKVLDPXOYNZMBHAEC
||||||||||||||||||||||||||
ABCDEFGHIJKLMNOPQRSTUVWXYZ
{1. Walze 'invers', also unten das Alphabet; rechter Walzeneingang ist alphabetisch}                    

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:

PositionWalze1 := Ord(GedrueckteTaste) - 64 + DrehungenWalze1;
if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
KodierterChar :=Walze1[PositionWalze1];

PositionWalze2 := Ord(KodierterChar) - 64 + DrehungenWalze2;
if (PositionWalze2 >= 27) then Dec(PositionWalze2, 26);
KodierterChar :=Walze2[PositionWalze2];

PositionWalze3 := Ord(KodierterChar) - 64 + DrehungenWalze3;
if (PositionWalze3 >= 27) then Dec(PositionWalze3, 26);
KodierterChar := Walze3[PositionWalze3];

PositionReflektor := Ord(KodierterChar) - 64;
KodierterChar := Reflektor[PositionReflektor];

PositionWalze3 := Pos(KodierterChar, Walze3) + (26 - DrehungenWalze3);
if (PositionWalze3 >= 27) then Dec(PositionWalze3, 26);
KodierterChar := Chr(PositionWalze3 + 64);

PositionWalze2 := Pos(KodierterChar, Walze2) + (26 - DrehungenWalze2);
if (PositionWalze2 >= 27) then Dec(PositionWalze2, 26);
KodierterChar := Chr(PositionWalze2 + 64);

PositionWalze1 := Pos(KodierterChar, Walze1) + (26 - DrehungenWalze1);
if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
KodierterChar := Chr(PositionWalze1 + 64);

KodierterText := KodierterText + KodierterChar;                    

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:

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
XVZNYEIWGAKMUSQOBDFHJLCPRTXVZNYEIWGAKMUSQOBDFHJLCPRT
{1. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FAIVLPEKQDTNZJHGRCXMYSWBOU
{2. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
PAIBRCJEKMFLGDQVZNTOWYHXUS
{3. Walze}

ABCDEFGHIJKLMNOPQRSTUVWXYZ
||||||||||||||||||||||||||
FVPJIAOYEDRZXWGCTKUQSBNMHL
{Reflektor}

PAIBRCJEKMFLGDQVZNTOWYHXUS
||||||||||||||||||||||||||
ABCDEFGHIJKLMNOPQRSTUVWXYZ
{3. Walze}

FAIVLPEKQDTNZJHGRCXMYSWBOU
||||||||||||||||||||||||||
ABCDEFGHIJKLMNOPQRSTUVWXYZ
{2. Walze}

XVZNYEIWGAKMUSQOBDFHJLCPRTXVZNYEIWGAKMUSQOBDFHJLCPRT
||||||||||||||||||||||||||
ABCDEFGHIJKLMNOPQRSTUVWXYZ
{1. Walze}                    

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

Verschlüsselung            | Walze              | Notch | Turnover
ABCDEFGHIJKLMNOPQRSTUVWXYZ | Eintrittswalze     |       |
EKMFLGDQVZNTOWYHXUSPAIBRCJ | Walze I            | Y     | Q
AJDKSIRUXBLHWTMCQGZNPYFVOE | Walze II           | M     | E
BDFHJLCPRTXVZNYEIWGAKMUSQO | Walze III          | D     | V
ESOVPZJAYQUIRHXLNFTGKDCMWB | Walze IV           | R     | J
VZBRGITYUPSDNHLXAWMJQOFECK | Walze V            | H     | Z
JPGVOUMFYQBENHZRDKASXLICTW | Walze VI           | H, U  | Z, M
NZJHGRCXMYSWBOUFAIVLPEKQDT | Walze VII          | H, U  | Z, M
FKQHTLXOCBJSPDZRAMEWNIUYGV | Walze VIII         | H, U  | Z, M
LEYJVCNIXWPBQMDRTAKZGFUHOS | Walze Beta         | M4    | M4
FSOKANUERHMBTIYCWLQPZXVGJD | Walze Gamma        | M4    | M4
YRUHQSLDPXNGOKMIEBFZCWVJAT | Reflektor B        |       |
FVPJIAOYEDRZXWGCTKUQSBNMHL | Reflektor C        |       |
ENKQAUYWJICOPBLMDXZVFTHRGS | Reflektor 'dünn' B | M4    | M4
RDOBJNTKVEHMLFCWZAXGYIPSUQ | Reflektor 'dünn' C | M4    | M4                    

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

Verschlüsselung            | Walze              | Notch | Turnover
ABCDEFGHIJKLMNOPQRSTUVWXYZ | Eintrittswalze     |       |
EKMFLGDQVZNTOWYHXUSPAIBRCJ | Walze I            | Y     | Q
AJDKSIRUXBLHWTMCQGZNPYFVOE | Walze II           | M     | E
BDFHJLCPRTXVZNYEIWGAKMUSQO | Walze III          | D     | V
ESOVPZJAYQUIRHXLNFTGKDCMWB | Walze IV           | R     | J
VZBRGITYUPSDNHLXAWMJQOFECK | Walze V            | H     | Z
JPGVOUMFYQBENHZRDKASXLICTW | Walze VI           | H, U  | Z, M
NZJHGRCXMYSWBOUFAIVLPEKQDT | Walze VII          | H, U  | Z, M
FKQHTLXOCBJSPDZRAMEWNIUYGV | Walze VIII         | H, U  | Z, M
LEYJVCNIXWPBQMDRTAKZGFUHOS | Walze Beta         | M4    | M4
FSOKANUERHMBTIYCWLQPZXVGJD | Walze Gamma        | M4    | M4
YRUHQSLDPXNGOKMIEBFZCWVJAT | Reflektor B        |       |
FVPJIAOYEDRZXWGCTKUQSBNMHL | Reflektor C        |       |
ENKQAUYWJICOPBLMDXZVFTHRGS | Reflektor 'dünn' B | M4    | M4
RDOBJNTKVEHMLFCWZAXGYIPSUQ | Reflektor 'dünn' C | M4    | M4                    

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

Verschlüsselung            | Walze              | Notch | Turnover
ABCDEFGHIJKLMNOPQRSTUVWXYZ | Eintrittswalze     |       |
EKMFLGDQVZNTOWYHXUSPAIBRCJ | Walze I            | Y     | Q
AJDKSIRUXBLHWTMCQGZNPYFVOE | Walze II           | M     | E
BDFHJLCPRTXVZNYEIWGAKMUSQO | Walze III          | D     | V
ESOVPZJAYQUIRHXLNFTGKDCMWB | Walze IV           | R     | J
VZBRGITYUPSDNHLXAWMJQOFECK | Walze V            | H     | Z
JPGVOUMFYQBENHZRDKASXLICTW | Walze VI           | H, U  | Z, M
NZJHGRCXMYSWBOUFAIVLPEKQDT | Walze VII          | H, U  | Z, M
FKQHTLXOCBJSPDZRAMEWNIUYGV | Walze VIII         | H, U  | Z, M
LEYJVCNIXWPBQMDRTAKZGFUHOS | Walze Beta         | M4    | M4
FSOKANUERHMBTIYCWLQPZXVGJD | Walze Gamma        | M4    | M4
YRUHQSLDPXNGOKMIEBFZCWVJAT | Reflektor B        |       |
FVPJIAOYEDRZXWGCTKUQSBNMHL | Reflektor C        |       |
ENKQAUYWJICOPBLMDXZVFTHRGS | Reflektor 'dünn' B | M4    | M4
RDOBJNTKVEHMLFCWZAXGYIPSUQ | Reflektor 'dünn' C | M4    | M4