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.