XXSGSBMMZCNCV

MATHEMATIK

Text2: "Schlüssel S: " + S
aS = TextToUnicode(S)
aK = TextToUnicode(K)
aC = Sequence(Mod[Element[aK, i] + Element[aS, Mod[i, Length[aS] - 1.0] + 1.0] - 65.0, 26.0] + 65.0, i, 1.0, Length[aK])
C = UnicodeToText(aC)
Text3: "Verschlüsselter Text: " + C
adC = Sequence(Mod[Element[aK, i] - Element[aS, Mod[i, Length[aS] - 1.0] + 1.0] - 65.0, 26.0] + 65.0, i, 1.0, Length[aK])
Text1: "Verschluesselter Text K: " + K
Text4: "Klartext: " + (UnicodeToText[adC])