KRYPT

A1 = 1
A2: A1 + 1.0
B1: Element[TextToUnicode[K], A1] - 64.0
A3: A2 + 1.0
A4: A3 + 1.0
A5: A4 + 1.0
B2: Element[TextToUnicode[K], A2] - 64.0
B3: Element[TextToUnicode[K], A3] - 64.0
B4: Element[TextToUnicode[K], A4] - 64.0
B5: Element[TextToUnicode[K], A5] - 64.0
A: {{3.0, 5.0, 1.0, 0.0, 8.0}, {2.0, 7.0, 18.0, 1.0, 2.0}, {13.0, 24.0, 6.0, 11.0, 20.0}, {21.0, 25.0, 17.0, 13.0, 19.0}, {9.0, 3.0, 11.0, 4.0, 5.0}}
B: {{0.0}, {1.0}, {3.0}, {2.0}, {1.0}}
a = Element(Element[A, 1.0], 1.0)
D1 = Element(Element[A, A1], 1.0)
D2 = Element(Element[A, A2], 1.0)
D3 = Element(Element[A, A3], 1.0)
D4 = Element(Element[A, A4], 1.0)
D5 = Element(Element[A, A5], 1.0)
E1 = Element(Element[A, A1], 2.0)
E2 = Element(Element[A, A2], 2.0)
E3 = Element(Element[A, A3], 2.0)
E4 = Element(Element[A, A4], 2.0)
E5 = Element(Element[A, A5], 2.0)
F1 = Element(Element[A, A1], 3.0)
G1 = Element(Element[A, A1], 4.0)
H1 = Element(Element[A, A1], 5.0)
F2 = Element(Element[A, A2], 3.0)
G2 = Element(Element[A, A2], 4.0)
H2 = Element(Element[A, A2], 5.0)
F3 = Element(Element[A, A3], 3.0)
G3 = Element(Element[A, A3], 4.0)
H3 = Element(Element[A, A3], 5.0)
F4 = Element(Element[A, A4], 3.0)
G4 = Element(Element[A, A4], 4.0)
H4 = Element(Element[A, A4], 5.0)
F5 = Element(Element[A, A5], 3.0)
G5 = Element(Element[A, A5], 4.0)
H5 = Element(Element[A, A5], 5.0)
D7 = Mod($D1 * $B$1 + $E1 * $B$2 + $F1 * $B$3 + $G1 * $B$4 + $H1 * $B$5, 26.0)
D8 = Mod($D2 * $B$1 + $E2 * $B$2 + $F2 * $B$3 + $G2 * $B$4 + $H2 * $B$5, 26.0)
D9 = Mod($D3 * $B$1 + $E3 * $B$2 + $F3 * $B$3 + $G3 * $B$4 + $H3 * $B$5, 26.0)
D10 = Mod($D4 * $B$1 + $E4 * $B$2 + $F4 * $B$3 + $G4 * $B$4 + $H4 * $B$5, 26.0)
D11 = Mod($D5 * $B$1 + $E5 * $B$2 + $F5 * $B$3 + $G5 * $B$4 + $H5 * $B$5, 26.0)
F7 = Element(Element[B, A1], 1.0)
F8 = Element(Element[B, A2], 1.0)
F9 = Element(Element[B, A3], 1.0)
F10 = Element(Element[B, A4], 1.0)
F11 = Element(Element[B, A5], 1.0)
H7: Mod[D7 + F7, 26.0] + 64.0
H8: Mod[D8 + F8, 26.0] + 64.0
H9: Mod[D9 + F9, 26.0] + 64.0
H10: Mod[D10 + F10, 26.0] + 64.0
H11: Mod[D11 + F11, 26.0] + 64.0
aC: {H7, H8, H9, H10, H11}
C = UnicodeToText(aC)
Text1: "Klartext K: " + K
Text2: "Verschlüsselter Text: " + (UnicodeToText[aC])
C1: B1 + 65.0
C2: B2 + 65.0
C3: B3 + 65.0
C4: B4 + 65.0
C5: B5 + 65.0
E7: $D1 * $B$1 + $E1 * $B$2 + $F1 * $B$3 + $G1 * $B$4 + $H1 * $B$5
E8: $D2 * $B$1 + $E2 * $B$2 + $F2 * $B$3 + $G2 * $B$4 + $H2 * $B$5
E9: $D3 * $B$1 + $E3 * $B$2 + $F3 * $B$3 + $G3 * $B$4 + $H3 * $B$5
E10: $D4 * $B$1 + $E4 * $B$2 + $F4 * $B$3 + $G4 * $B$4 + $H4 * $B$5
E11: $D5 * $B$1 + $E5 * $B$2 + $F5 * $B$3 + $G5 * $B$4 + $H5 * $B$5