MATHEMATIK IST SCHOEN SAGT EIN MATHEMATIKLEHRER

THEMA MATHEMATIK

Text1: "Klartext K: " + K
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