Wer knackt die Verschlüsselung?

[Frabbing]

Sommerloch...
Hier wird eine recht simple Verschlüsselung benutzt. Vielleicht hat ja jemand Lust sie zu knacken.

' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.6
' DATUM  22.07.2009    um  21:05 Uhr

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE MULTIEDIT1&
DECLARE TEXT1&,text$,text2$,x&,b$

WINDOWSTYLE 63
WINDOWTITLE "Simple Textverschlüsselung."
WINDOW 135,164-640,500
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1

text2$="Zuomg Ejßvhdzpzkffqxyomgujßvg mojßvoclulphclubqxyhdpzkfwbchqxyomg Vqxyomgfwbchluqxyfwbfwbqxylujßvgqxyjßv ohjßvqxy bqxykclujßvjßvhdqxyjßv Schluqxyfwbfwbqxyl fuqxyhomghd mclujßv qxypzkjßvqxy Hcluqxyufpzkgkqxypzkhdfwbclujßvclulyfwbqxy dqxyomg Buchfwbhdclubqxyjßv duomgch ujßvd kclujßvjßv fwbo cluuf gqxywpzkfwbfwbqxy Buchfwbhdclubqxyjßv fwbchlpzkqxyfwbfwbqxyjßv, woomgcluufwb dclujßvjßv Woqxyomghdqxyomg ujßvd fwbompzkhd pzkmmqxyomg mqxyhomg Afwbfwbozpzkcluhdpzkojßvqxyjßv zu Klcluomghdqxyxhdbuchfwbhdclubqxyjßv gqxyzogqxyjßv wqxyomgdqxyjßv koqxyjßvjßvqxyjßv."

MULTIEDIT1& = CREATE("MULTIEDIT",%HWND,text2$,0014,0042,0606,-0414)
TEXT1& = CREATE("TEXT",%HWND,"Schreibe ein Programm, um die Verschlüsselung zu knacken!",0017,0012,0603,0018)
SETFOCUS(%HWND)REPAINT
WHILENOT ENDE%
WAITINPUT
   If %KEY=2
     ENDE%= 1
   ELSEIF %KEY=4
   ELSEIF GETFOCUS(MULTIEDIT1&) 'MULTIEDIT

   ENDIF
ENDWHILE

Wer kein XProfan hat: Der Text ist sehr kurz und kann auch leicht von Hand aufgelöst werden.

Zuomg Ejßvhdzpzkffqxyomgujßvg mojßvoclulphclubqxyhdpzkfwbchqxyomg Vqxyomgfwbchluqxyfwbfwbqxylujßvgqxyjßv ohjßvqxy bqxykclujßvjßvhdqxyjßv Schluqxyfwbfwbqxyl fuqxyhomghd mclujßv qxypzkjßvqxy Hcluqxyufpzkgkqxypzkhdfwbclujßvclulyfwbqxy dqxyomg Buchfwbhdclubqxyjßv duomgch ujßvd kclujßvjßv fwbo cluuf gqxywpzkfwbfwbqxy Buchfwbhdclubqxyjßv fwbchlpzkqxyfwbfwbqxyjßv, woomgcluufwb dclujßvjßv Woqxyomghdqxyomg ujßvd fwbompzkhd pzkmmqxyomg mqxyhomg Afwbfwbozpzkcluhdpzkojßvqxyjßv zu Klcluomghdqxyxhdbuchfwbhdclubqxyjßv gqxyzogqxyjßv wqxyomgdqxyjßv koqxyjßvjßvqxyjßv.

[Frabbing]

Zu schwer?

[horsthorn]

Was mir beim ersten Überfliegen des Textes aufgefallen ist: Der in der deutschen Sprache meistbenutzte Vokal 'E' kommt nur einmal vor -
Dürfte schon ein Einstieg sein

[Frabbing]

Die Verschlüsselung ist wirklich nicht sonderlich schwer zu knacken. Gib dir Mühe...

[horsthorn]

@Frank

Zitat von Frabbing

Die Verschlüsselung ist wirklich nicht sonderlich schwer zu knacken. Gib dir Mühe...

...warum ich

Bin eingespannt bei Andreas Hötker (neue Version von Path-Scout) - keine Zeit

[Frabbing]

Andreas ist aber im Urlaub...

[horsthorn]

...aber ich hab die neuen Code und muss den ganzen "Krempel" lauffähig machen

[Frabbing]

Gibt ja einige Leute in diesem Forum, einer wirds schon knacken. Können ja nicht alle im Urlaub sein.
Wenn bis Samstag keine Lösung da ist, müsst ihr darauf warten, weil ich dann auch weg bin in Urlaub.

[RGH]

Ok,
ich habe mir mal ca 15 Minuten Zeit genommen, die Lösung allerdings ohne Programm im Editor mittels Suchen/Ersetzen erledigt!

SPOILER-WARNUNG
Wer es selbst lösen will, bitte hier nicht weiterlesen! Ich habe den Text so gefärbt, dass er nicht "versehentlich" gelesen werden kann. Zum einfachen Lesen einfach markieren ...
Der Lösungssatz:

"Zur Entzifferung monoalphabetischer Verschluesselungen ohne bekannten Schluessel fuehrt man eine Haeufigkeitsanalyse der Buchstaben durch und kann so auf gewisse Buchstaben schliessen, woraus dann Woerter und somit immer mehr Assoziationen zu Klartextbuchstaben gezogen werden koennen."

Wie bin ich zur Lösung gekommen?
Beim Betrachten des Textes fiel auf, dass eine Dreiergruppe "omg" besonders häufig vorkommt. Nachdem mir keine Dreiergruppe der deutschen Sprache entsprechend häufig schien, hatte ich den Verdacht, dass diese Dreiergruppe ein einzelner Buchstabe ist. Dann bfielen mir zunächst zwei weitere Dreiergrupen auf "jßv" und "fwb", letztere sogar zweimal direkt hintereinander. Ein Doppelkonsonant?

Damit der Text für weitere Versuche übersichtlicher wurde, ersetze ich die erste Dreiergruppe dzrch "1", die zweite durch "2" und die dritte durch "3". Und schon deuteten sich einige Wörter an: Die Buchstaben, die nicht zu Gruppen gehörten schienen unverändert zu sein. Drei weitere Gruppen ließen sich ausmachen: "qxy", "clu" und "pzk". Zunächst also durch die Ziffern "4", "5" und "6" ersetzt. Etwas gemein: Das letzte Puzzleteil war keine dreier, sondern eine Zweiergruppe: "hd", die ich durch "7" ersetzte.

Aufgrund der Kontexte waren schnell die Entsprechungen klar. Da brauchte man keine Zählerei und Häufigkeit bemühen: 1=r, 2=n, 3=s, 4=e, 5=a, 6=i und 7=t.

Da ich am Arbeitsplatz sitze, ist für ein Übersetzungsprogramm in XProfan keine Zeit. Die Aufgabe überlasse ich einem Anderen.
Gruß
Roland

[Frabbing]

Klasse Roland! Hast du Langeweile bei der Arbeit?



Hier mein kleiner Verschleierungs-Algo der "monographischen monoalphabetischen bi- und tripartiten Substitution":

text$="Zur Entzifferung monoalphabetischer Verschluesselungen ohne bekannten Schluessel fuehrt man eine Haeufigkeitsanalyse der Buchstaben durch und kann so auf gewisse Buchstaben schliessen, woraus dann Woerter und somit immer mehr Assoziationen zu Klartextbuchstaben gezogen werden koennen."

Whileloop Len(text$)
  b$=Mid$(text$,&loop,1)
  Case b$="a":b$="clu"
  Case b$="e":b$="qxy"
  Case b$="i":b$="pzk"
  Case b$="n":b$="jßv"
  Case b$="r":b$="omg"
  Case b$="s":b$="fwb"
  Case b$="t":b$="hd"
  text2$=text2$+b$
EndWhile

MULTIEDIT1& = CREATE("MULTIEDIT",%HWND,text2$,0014,0042,0606,-0414)

Ist übrigens eine Technik, die im Mittelalter Verwendung fand. Wer mehr darüber erfahren möchte, hier ist ein interessanter Link: Monoalphabetische Substitution ? Wikipedia

[RGH]

Zitat von Frabbing

Klasse Roland! Hast du Langeweile bei der Arbeit?

Heute gab es ausnahmsweise etwas Leerlauf: Bis 14:00 Mitarbeiter- Hauptseminar, ab 15:00 das traditionelle Sommerfest mit Familie. Da werde ich mich mit meiner Angetrauten auch in wenigen Minuten hin begeben und mir vom Vorstandsvorsitzenden ein Pils einschenken lassen!

Gruß
Roland

[Frabbing]

Na dann viel Spass und Prost!

[p. specht]

15 min? Reife Leistung! So lange hab ich gebraucht, bis ich im Internet die Deutsche Wortlängenstatistik und Buchstabenhäufigkeit gefunden hatte. Den Verdacht, daß es nicht Rot13 ist, hatte ich aber gleich
Gruss

[Frabbing]

Du hast doch nichts anderes erwartet von jemandem, der XProfan erschaffen hat?

[p. specht]

'türlich nicht ...