MATHEMATIK

Klartext K:

Verschlüsselter Text:

k = 11 (slider from -25 to 25, step 1)
aK = TextToUnicode(K)
Liste1 = Sequence(Mod[Element[aK, i] + k - 65.0, 26.0] + 65.0, i, 1.0, Length[aK])
Liste2 = Sequence(UnicodeToLetter[Element[Liste1, i]], i, 1.0, Length[Liste1])
Text2: " " + (Sum[Sequence[Element[Liste2, i], i, 1.0, Length[Liste2]]])