Sammelthread für Rot13-Projekte

Gausi · Verfasst: Sa 02.12.06 13:35

Da das Ankündigungstopic fürs Adventsgewinnspiel 2006 jetzt auch in entschlüsselter Form vorliegt, können jetzt in diesem Topic Lösungsprogramme für die Entschlüsselung vorgestellt werden.

Viele werden es ja mittlerweile erkannt haben, dass die verwendete Verschlüsselung als Rot13 bekannt ist. Diese funktioniert einfach so, dass die Buchstaben im Alphabet um 13 Stellen verschoben werden:

markieren

Quelltext

1:
2:

aus   abcdefghijklmnopqrstuvwxyz
wird  nopqrstuvwxyzabcdefghijklm

Bei den Großbuchstaben entsprechend. Der "Vorteil" bei dieser Verschlüsselung ist die Symmetrie. Zum Ver- und Entschlüsseln kann dasselbe Verfahren verwendet werden.

Diese (sehr schwache) Verschlüsselung ist recht weit verbreitet. Es gibt Addons für den Firefox, oder Webseiten, wo man seine Texte verschlüsseln kann, und wahrscheinlich tausende von Programmen dazu.

Im Anhang ist ein kleines Rot13-Programm für Delphi (Win32). Mit diesem Programm lassen sich die meisten Beiträge in diesem Thread lesen.

Wer andere Lösungsmöglichkeiten oder solche mit erweiterten Features posten möchte, kann das gerne (entgegen der sonst üblichen Regel "nur ein Programm pro Thread") hier tun.

Einloggen, um Attachments anzusehen!

_________________
We are, we were and will not be.

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Ich hab die Cäsarverschlüsselung benutzt :wink:

Kann man hier online decodieren.
weddige.eu/tools/kryptix/

MfG

GTA-Place · Verfasst: Sa 02.12.06 14:40

Rot13 = Cäsar um 13 Stellen verschoben.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Verbesserungsvorschläge zum Code:

1. Lesbarkeit erhöhen: ord('A') statt 65, etc.
2. Case-Statement statt zwei if mit in.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  for I := 1 to Length(AString) do
    case AString[I] of
      'A'..'Z': AString[I] := chr((ord(AString[I])-ord('A')+13) mod 26+ord('A'));
      'a'..'z': AString[I] := chr((ord(AString[I])-ord('a')+13) mod 26+ord('a'));
    end;

PS: Wenn man schon mit Zahlen rechnet: 65 mod 26 gibt 13, könnte man ausnützen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme