AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte 25facher Cäsar (einfache Verschlüsselung)
Thema durchsuchen
Ansicht
Themen-Optionen

25facher Cäsar (einfache Verschlüsselung)

Ein Thema von taaktaak · begonnen am 25. Sep 2008 · letzter Beitrag vom 29. Nov 2008
Antwort Antwort
Seite 7 von 9   « Erste     567 89      
taaktaak
Registriert seit: 25. Okt 2007
Moin, Moin.

Aus Sorge um die Flugsicherheit auf dem Segelflugplatz von thiagojonas habe ich zum Spaß die im Buch (und Film) "Und Jimmy ging zum Regenbogen" beschriebene einfache Verschlüsselung aus der Erinnerung nachgebaut. Vielleicht kann unser Segelflieger den Code ja als Anregung nutzen:

Delphi-Quellcode:
function Schluesseln(Text,Key:String;Crypt:Boolean):String;
var i,KeyIdx : Integer;
begin
  Result:='';
  KeyIdx:=0;
  for i:=1 to length(Text) do begin
    inc(KeyIdx);
    if KeyIdx>Length(Key) then KeyIdx:=1;
    if Crypt then Result:=Result+chr(ord(Text[i])+ord(Key[KeyIdx]))
             else Result:=Result+chr(ord(Text[i])-ord(Key[KeyIdx]))
    end;
end;
Als Anhang ein kleines Beispielprogramm.
Viel Spaß

PS :
Natürlich ist das keine ernstzunehmende Verschlüsselung! Der Code ist auch in keinster Weise optimiert. Es soll einfach nur eine überschaubare Demonstration sein.


//edit:
Bevor ein anderer darauf kommt: Meine Erinnerung hat doch zu einer deutlich abweichenden Verschlüsselung geführt. Hab' noch mal im Roman nachgelesen. Dort ist das Verfahren recht gut beschrieben: Auch der verschlüsselte Text besteht dort nur aus lesbaren Buchstaben. Unabdingbar, da die Verschlüsselung nur mit Hilfe von Tabellen handschriftlich durchgeführt wurde.
Angehängte Dateien
Dateityp: zip caesar_122.zip (2,0 KB, 48x aufgerufen)
 
taaktaak

 
Delphi 7 Professional
 
#61
  Alt 25. Nov 2008, 06:50
Moin, Moin.

Als kleiner Ansporn hier ein aktuelles Zitat von Bernhard Geyer:

Zitat:
Je nach Wissen des Angreifers über die zu verschleiernden Infos und den Technischen Wissenstand ist jedes System in Minuten bis in Tagen geknackt.
Wie schaut's aus?
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von Spiderpig_GER_15
Spiderpig_GER_15

 
Delphi 7 Personal
 
#62
  Alt 26. Nov 2008, 13:20
Wir schreiben nächste Woche 3 Arbeiten, weshalb ich nicht so intensiv grübeln kann wie ich gerne wollte, aber danach knobel ich noch ein bisschen, also nichts verraten
  Mit Zitat antworten Zitat
Benutzerbild von Spiderpig_GER_15
Spiderpig_GER_15

 
Delphi 7 Personal
 
#63
  Alt 26. Nov 2008, 21:48
Ein Feund von mir hat mir folgenden TIpp gegeben:

Zitat:
Hallo Andi. Die Dechiffrierung lautet:
"Guten Tag, Igor. Leider ist es in Aserbaidschan nicht erlaubt, mit Tieren zu schlafen. Außerdem solltest du dir ernsthaft Gedanken darüber machen, warum du im Schlaf gemurmelt hast, du würdest nicht wegen meiner Impotenz gegen unser Nachbardorf in den Krieg ziehen.
Liebe Grüße,
dein Genosse"
wtf?

Ich hoffe mal er hat nicht recht^^
  Mit Zitat antworten Zitat
blackdrake

 
Delphi 10.3 Rio
 
#64
  Alt 26. Nov 2008, 21:52
Bei dieser Poly-Dingsbums-Verschlüsselung wird 1 Zeichen zu 1 Zeichen ver/entschlüsselt

"PTWAYWFZOP XRKXJVIYWARM EH VDKD FZKIXU EQBC MCYTPVOMOUJKBM BYP HJUXY FVBHF RGZYIXU VMJOMT AFERLWXV"

"Guten Tag, Igor. Leider ist es in Aserbaidschan nicht erlaubt, mit Tieren zu schlafen. Außerdem solltest du dir ernsthaft Gedanken darüber machen, warum du im Schlaf gemurmelt hast, du würdest nicht wegen meiner Impotenz gegen unser Nachbardorf in den Krieg ziehen"

Haben unterschiedliche Längen und die Wörter sind auch unterschiedlich lang ("Guten Tag" != "PTWAYWFZOP XRKXJVIYWARM")
Daniel Marschall
  Mit Zitat antworten Zitat
Benutzerbild von Spiderpig_GER_15
Spiderpig_GER_15

 
Delphi 7 Personal
 
#65
  Alt 26. Nov 2008, 22:12
Ja, das ist mir aufgefallen, ich war nur über seine Kreativität erstaunt. Es war wohl eher nicht ein ernsthafter Versuch
  Mit Zitat antworten Zitat
taaktaak

 
Delphi 7 Professional
 
#66
  Alt 27. Nov 2008, 07:02
Hat keiner der Mitleser gute Kontakte zum BND, Mossad oder der NSA? Ich würde zu gern wissen wie lange ein Profi braucht um die "Poly-Dingsbums-Verschlüsselung" aufzulösen


//edit: Mossad, nicht Mossat - sorry
Ralph
  Mit Zitat antworten Zitat
Tyrael Y.

 
Delphi 2007 Professional
 
#67
  Alt 27. Nov 2008, 08:53
Kontakte zu Geheimdiensten ist doch nicht nötig.

Man müsste nur eins der Worte aus dem Text kennen, dann lässt es sich Brute Forcen.
Das heißt mit einem Wörterbuch würde es gehen.
Levent Yildirim
  Mit Zitat antworten Zitat
taaktaak

 
Delphi 7 Professional
 
#68
  Alt 27. Nov 2008, 09:47
Naja, aber das sind mir zwei Konjunktive zu viel.
Realistische Rahmenbedingung ist doch, dass weder Verschlüsselungsverfahren, die Sprache des Originaltextes noch der Schlüssel bekannt sind.
Wäre wirklich interessant, welchen Zeitaufwand Profis unter diesen Voraussetzungen benötigen würden.
Ralph
  Mit Zitat antworten Zitat
QuickAndDirty

 
Delphi 12 Athens
 
#69
  Alt 27. Nov 2008, 10:17
Diese Art der Verschlüsselung ist nicht eine "einfache" im Sinne von unsichere Verschlüsselung.
Wenn der Schlüssel genau so lang ist wie der Text ist das vermutlich sogar ein "unknackbarer Kode".

Da für den Kurzen Text (99 Zeichen) ein recht langer Schlüssel verwendet wurde (14 Zeichen!!!)
dürfte das theoretisch sehr sicher sein.

Wo ist unser Verschlüsselungs-Experte?
Andreas
  Mit Zitat antworten Zitat
Tyrael Y.

 
Delphi 2007 Professional
 
#70
  Alt 27. Nov 2008, 10:32
Hast ja Recht mit den konjunktiven, aber in diesem speziellem Fall, wissen wir zumindest, dass der Schlüssel 19 Zeichen lang ist.

Soweit ich verstanden habe werden für den Schlüssel auch nur Grossbuchtaben benutzt.

1. - eine Funktion die mir einen 19 Zeichen langen String zurückgibt
- initialisiert wird diese Funktion mit "AAAA...AAA"
- die Funktion kriegt diesen "Schlüssel" übergeben und gibt mir eine neuen Schlüssel wieder und zwar den nächsten "AAAA...AAB", "AAAA...AAC", usw.

2.
- der erste Key "AAAA...AA" wird mit dem verschlüsseltem Text zusammen in die Verschlüsselungfunktion hineingegeben
- das Ergebnis wird mit einem Wörterbuch verglichen
- ist eines der Wörter im Wörterbuch vorhanden, wird dieser Schlüssel und der entschlüsselte Text in eine Datei geschrieben
- die Funktion aus 1. wird aufgerufen und der nächste Schleifendurchlauf beginnt

3. wenn die Prozedur vorbei ist, nimmt man sich die Datei vor und guckt ob eins der "entschlüsselten" Sätze Sinn ergibt...wenn ja ist der daneben stehende Schlüssel der richtige



Edit: Reicht meine Erklärung als Bewerbungsreferenz fürs BND?
Levent Yildirim
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 7 von 9   « Erste     567 89      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz