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:

var
  Form1:TForm1;
  Walze1 : Array[1..78] of String = 'Q','N','1' , 'W','T','2' , 'E','B','3' , 'R','H','4' , 'T','P','5' , 'Z','V','6' , 'U','D','7' , 'I','J','8' , 'O','R','9' , 'P','X','10' , 'A','T','11' , 'S','L','12' , 'D','M','13' , 'F','Z','14' , 'G','A','15' , 'H','G','16' , 'J','O','17' , 'K','U','18' , 'L','C','19' , 'Y','I','20' , 'X','O','21' , 'C','W','22' , 'V','E','23' , 'B','K','24' , 'N','S','25' , 'M','Y','26');

implementation

procedure TForm1.KlartextKeyPress(Sender: TObject; var Taste: Char);
var EingabeChar: Char; 
      CharPosWalze1 : Integer;
      KodierterText : String;
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Überprüfung des Tastendrucks im 1.Memofeld}

 EingabeChar := Taste;
 if EingabeChar in ['A'..'Z'] then begin
  EingabeChar := Walze1[1];
  CharPosWalze1 := CharPosWalze1 + 3;
  if CharPosWalze1>76 then CharPosWalze1 := 1;
 end;
 {Kodierung nach Tastendruck und Überprüfung bei 'A'..'Z'}
 KodierterText := KodierterText + EingabeChar;
 Kodierung.Text := KodierterText;
 {Ausgabe des kodierten Buchstaben oder des nichtkodierten Zeichens}
end;

end.                    

1:

EingabeChar := Chr(StrToInt(Walze1[CharPosWalze1-2]));                    

1:

EingabeChar := Chr(StrToInt(Walze1[1])); { bedeutet EingabeChar := Chr(StrToInt(Walze1['Q'])) }                    

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:

var
  Form1:TForm1;
  CharPosWalze1 : Integer;
  Walze1 : Array[1..78] of String = ('Q','N','1' , 'W','T','2' , 'E','B','3' , 'R','H','4' , 'T','P','5' ,
                                     'Z','V','6' , 'U','D','7' , 'I','J','8' , 'O','R','9' , 'P','X','10' ,
                                     'A','T','11' , 'S','L','12' , 'D','M','13' , 'F','Z','14' , 'G','A','15' ,
                                     'H','G','16' , 'J','O','17' , 'K','U','18' , 'L','C','19' , 'Y','I','20' ,
                                     'X','O','21' , 'C','W','22' , 'V','E','23' , 'B','K','24' , 'N','S','25' ,
                                     'M','Y','26');

implementation

{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender: TObject; var Taste: Char);
var EingabeChar : Char;
    KodierterText : String;
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 {Wenn die Eingabe ein Kleinbuchstabe ist, dann wird sie zum Großbuchstaben}
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Wenn die Eingabe nicht Großbuchstabe, Leertaste, Enter oder Löschen ist, dann wird sie nicht aufgenommen}

 EingabeChar := Taste;
 if EingabeChar in ['A'..'Z'] then begin
  EingabeChar := Walze1[1];
  {Die Eingabe wird mit dem Buchstaben auf der 1. Walzenposition kodiert}
  CharPosWalze1 := CharPosWalze1 + 3;
  {Die Walzen dreht sich um einen Buchstaben weiter}
  if CharPosWalze1>78 then CharPosWalze1 := 3;
  {Nach 26 walzendrehungen ist die Walze wieder am Anfang}
 end;
 KodierterText := KodierterText + EingabeChar;
 Kodierung.Text := KodierterText;
 {Die Ausgabe wird um den verschlüsselten Buchstaben bzw. Leertaste, Enter oder Löschen erweitert}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CharPosWalze1 := 3;
end;

end.                    

1:

EingabeChar:=Walze[1][1];                    

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:

var
  Form1:TForm1;
  Walze1 : Array[1..52] of Char = ('Q','N' , 'W','T' , 'E','B' , 'R','H' , 'T','P' ,
                                     'Z','V' , 'U','D' , 'I','J' , 'O','R' , 'P','X' ,
                                     'A','T' , 'S','L' , 'D','M' , 'F','Z' , 'G','A' ,
                                     'H','G' , 'J','O' , 'K','U' , 'L','C' , 'Y','I' ,
                                     'X','O' , 'C','W' , 'V','E' , 'B','K' , 'N','S' ,
                                     'M','Y');

implementation

{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender: TObject; var Taste: Char);
var EingabeChar : Char;
    KodierterText : String;
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 {Wenn die Eingabe ein Kleinbuchstabe ist, dann wird sie zum Großbuchstaben}
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Wenn die Eingabe nicht Großbuchstabe, Leertaste, Enter oder Löschen ist, dann wird sie nicht aufgenommen}

 EingabeChar := Taste;
 if EingabeChar in ['A'..'Z'] then begin
  EingabeChar := Walze1[1];
  Insert(,,);
  Delete(,,);
  {Die Eingabe wird mit dem Buchstaben auf der 1. Walzenposition kodiert}
 end;
 KodierterText := KodierterText + EingabeChar;
 Kodierung.Text := KodierterText;
 {Die Ausgabe wird um den verschlüsselten Buchstaben bzw. Leertaste, Enter oder Löschen erweitert}
end;

end.                    

1:
2:

Insert(Copy(text,1,2),text,Length(text)+1);
Delete(text,Length(text)-1,2);                    

1:
2:
3:

Walze1 : Array[1..78] of String = ('Q','N','1' , 'W','T','2' , 'E','B','3' , 'R','H','4' , 'T','P','5' , 'Z','V','6' , 'U','D','7' , 'I','J','8' , 'O','R','9' , 'P','X','10' , 'A','T','11' , 'S','L','12' , 'D','M','13' , 'F','Z','14' , 'G','A','15' , 'H','G','16' , 'J','O','17' , 'K','U','18' , 'L','C','19' , 'Y','I','20' , 'X','O','21' , 'C','W','22' , 'V','E','23' , 'B','K','24' , 'N','S','25' , 'M','Y','26');
. . .
EingabeChar := Walze1[1][1];                    

1:
2:
3:
4:
5:

Walze1 : Array[1..52] of Char = ('Q','N' , 'W','T' , 'E','B' , 'R','H' , 'T','P' , 'Z','V' , 'U','D' , 'I','J' , 'O','R' , 'P','X' , 'A','T' , 'S','L' , 'D','M' , 'F','Z' , 'G','A' , 'H','G' , 'J','O' , 'K','U' , 'L','C' , 'Y','I' , 'X','O' , 'C','W' , 'V','E' , 'B','K' , 'N','S' , 'M','Y');
. . .
EingabeChar := Walze1[1][1];
Delete(Walze1, die ersten beiden Stellen des Strings Walze1, 2); 
Insert(die ersten beiden Stellen des Strings Walze1, Walze1, am Ende des Strings Walze1; d.h. Stelle 53 und 54 gibt es noch nicht, da der String Walze1 nur 52 Stellen hat);                    

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:

var
  Form1 : TForm1;
  i : Integer;
  KodierterText, Walze1 : String;

implementation

{$R *.dfm}

procedure TForm1.KlartextKeyPress(Sender : TObject; var Taste : Char);
begin
 if Taste in ['a'..'z'] then Taste := Upcase(Taste);
 {Wenn die Eingabe ein Kleinbuchstabe ist, dann wird sie zum Großbuchstaben}
 if not(Taste in ['A'..'Z', ' ', #13, #8]) then Taste := #0;
 {Wenn die Eingabe nicht Großbuchstabe, Leertaste, Enter oder Löschen ist, dann wird sie nicht aufgenommen}

 if Taste in ['A'..'Z'] then begin
  KodierterText := KodierterText + Walze1[1];
  {Die Eingabe wird mit dem Buchstaben auf der 1. Walzenposition kodiert}
  Insert(Copy(Walze1,1,2), Walze1, Length(Walze1)+1);
  Delete(Walze1, 1, 2);
  {Die ersten beiden Buchstaben der Walze werden an das Walzenende versetzt}
 end;
 case Taste of
  ' ', #13 : KodierterText := KodierterText + Taste;
  #8 : for i := 0 to Length(KodierterText)-1 do KodierterText[i] := KodierterText[i];
 end;
 Kodierung.Text := KodierterText;
 {Die Ausgabe wird um den verschlüsselten Buchstaben bzw. Leertaste, Enter oder Löschen erweitert}
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
 KodierterText := '';
 Walze1 := 'QNWTEBRHTPZVUDIJORPXATSLDMFZGAHGJOKULCYIXOCWVEBKNSMY';
end;

end.                    

1:
2:
3:
4:
5:

with memo2 do
  begin
     SelStart := Length(Text);
     SendMessage(memo2.Handle,EM_Scrollcaret,0,0);
  end;                    

1:

#8 : for i := 0 to Length(KodierterText)-1 do KodierterText[i] := KodierterText[i];                    

1:
2:

' ', #13 : KodierterText := KodierterText + Taste;
  #8 : for i := 0 to Length(KodierterText)-1 do KodierterText[i] := KodierterText[i];                    

1:
2:

#13: kodierter_text:=kodierter_text+#13#10;
#8: Delete(kodierter_text,Length(kodierter_text),1);                    

1:
2:

Insert(Copy(Walze1,1,2), Walze1, Length(Walze1)+1); 
Delete(Walze1, 1, 2);                    

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

#8:
  if(KodierterText <> '') then
    begin
      delete(KodierterText,length(KodierterText),1);
      Walze1 := copy(Walze1,length(Walze1)-1,2) + Walze1;
      delete(Walze1,length(Walze1)-1,2);
    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:
31:
32:
33:
34:
35:
36:

const
  Walze1 : string  = 'QNWTEBRHTPZVUDIJORPXATSLDMFZGAHGJOKULCYIXOCWVEBKNSMY';
var
  cText  : string  = '';
  wPos   : integer = 1;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if(Key in['a'..'z','A'..'Z',#13,#10,#32,#8]) then
    begin
      Key := UpCase(Key);

      case Key of
        'A'..'Z':
          begin
            cText := cText + Walze1[wPos];
            if(wPos = length(Walze1) - 1) then wPos := 1
              else inc(wPos,2);
          end;
        #13,#10,#32:
          cText := cText + Key;
        #8:
          if(cText <> '') then
            begin
              delete(cText,length(cText),1);

              if(wPos = 1) then wPos := length(Walze1) - 1
                else dec(wPos,2);
            end;
      end;

      Memo2.Lines.Text := cText;
    end
  else
    Key := #0;
end;                    

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);                    

1:
2:

abcdefghijklmnopqrstuvwxyz
EKMFLGDQVZNTOWYHXUSPAIBRCJ                    

1:

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

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

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

  { ... }
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:

const
  Walze1          : array[0..25]of char =
    ('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');
var
  DrehungenWalze1 : integer = 0;
  KodierterText   : string  = '';

procedure TForm1.KlartextKeyPress(Sender: TObject; var Key: Char);
var
  PositionWalze1 : integer;
begin
  Key := UpCase(Key);

  case Key of
    'A'..'Z':
      begin
        PositionWalze1   := ((ORD(Key) - 65) + DrehungenWalze1) mod 26;
        KodierterText    := KodierterText + Walze1[PositionWalze1];
        DrehungenWalze1  := (DrehungenWalze1 + 1) mod 26;
      end;
    { ... }
    else
      Key := #0;
  end;

  { ... }
end;                    

1:

DrehungenWalze1 := (DrehungenWalze1 + 1) mod 26;                    

1:
2:

if(DrehungenWalze1 = 25) then DrehungenWalze1 := 0
  else inc(DrehungenWalze1);                    

1:
2:

PositionWalze1 := (Ord(GedrueckteTaste) - 64) + DrehungenWalze1; 
if (PositionWalze1 > 26) then Dec(PositionWalze1, 26);                    

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

ZCHZBFXX SFDMHCWC(LN: XQXD): NTNJ;
CWY
  KPANSW : AOTJ;
GLCNT
  UNMFQJ          := ((FFL(RP,MTJZS1) - 1) - SQGLUQXYRFLTYM1 + 26) OSW 26;
  JTYVGB          := (IFN(VGHRJU + HFPC('L')));
  VSMRKSZTGNRHTA1 := (AMFKZMYLEDKRLN1 + 1) IAQ 26;
EDR;                    

1:

MATHIASSIMMACK                    

1:

EHGTPYBLGYFZAV