Nein kein Perl, das war noch zu Visual Basic Zeiten (Version 5).
Und es war eine leicht vereinfachte Form der Enigma, hatte aber schon das Prinzip des Originals.
Im Grunde waren das nur ein paar 'for' scheifen die nacheinander mit unterschiedlichen Steps den Ascii Code der Zeichen veränderten.
Dazu hatten die Scheifen einen Startwert z.B.
Rolle 1 = 5
Rolle 2 = 15
Rolle 3 = 7
Rolle 4 = 10
Kam dann der erste Buchstabe z.B. ein "G" wurde Ascii("G")71 +5+15+7+10 gerechnet.
Ich weiß es nicht mehr genau aber ich meine das ging bis 90, also
65+5+15+7+10 = 108....weil über 90 (kleines 'z') = > 108 - 90 = 18 => 18+65 = 83, heraus kam also ein 'S'.
Anschließend 'drehten' sich die Rollen in einem unterschiedlichen Rythmus weiter, z.B.
Rolle 1 += 2
Rolle 2 += 5
Rolle 3 += 6
Rolle 4 += 11
u.s.w.
Beim Original war meines Wissens der Startwert der Rollen immer unterschiedlich (mußte also erstmalig vor dem ersten Buchstaben eingegeben werden), das hatte ich glaube ich nicht so gemacht.
Und ich meine mich erinnern zu können dass beim Original das ganze nochmal rückwärts durch die Rollen (ohne dass die sich drehten) geschleust wurde (bin mir da aber nicht sicher).

Aber das alles nur so ungefähr, programmiert habe ich das vor ca 10 - 15 Jahren mal..und das eigentlich nur zum Spaß ;)

Thomas
Last edited: 2013-10-05 19:22:23 +0200 (CEST)