Delphi-PRAXiS - Software-Projekte der Mitglieder

[#]

Software-Projekte der Mitglieder » Projekte von "taaktaak"

Projekte suchen

Anzeige-Eigenschaften

Projekte 1 bis 1 von 1

OpenSource-Projekte können jetzt auch auf unserem GitHub-Repository veröffentlicht werden. Hier klicken für weitere Infos.

Erstellt von taaktaak, 25. Sep 2008 25facher Cäsar (einfache Verschlüsselung)

Moin, Moin. Aus Sorge um die Flugsicherheit auf dem Segelflugplatz von thiagojonas :wink: 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: function Schluesseln(Text,Key:String;Crypt:Boolean):String; var i,KeyIdx : Integer; begin Result:=''; KeyIdx:=0; for i:=1 to length(Text) do begin

85 Kommentar(e), last comment by von jfheins