Thema: Delphi Verschlüsselung

Einzelnen Beitrag anzeigen

daniel-volk

Registriert seit: 16. Jul 2003
170 Beiträge
 
Delphi 6 Enterprise
 
#13

Re: Verschlüsselung

  Alt 30. Sep 2003, 14:06
@ Curby:
Zitat:
Übrigens Caesar - Bedeutet: Verschlüsseln durch tauschen von Buchstaben
Also für mich heißt Caesar etwas Anderes. Ich musste das selbst alles in der Schule machen und für mich besteht die Caesar-Verschlüsselung darin, dass ein einzelner Buchstabe als Schlüssel verwendet wird im Cypheralphabet den Platz des A einnimmt. Anschließend hast du dann quasi zwei Alphabete, die untereinander liegen.
Beispiel:
Du willst mit D verschlüsseln. Statt eines A wird dann also D geschrieben. -> Verschiebung um 3.
Angenommen Alph ist eine Konstante mit deinem Alphabet, dann ergibt sich folgendes:
Delphi-Quellcode:
// Verschlüsseln:
Geheimbuchstabe := Alph[(pos(UPPERCASE(Klartextbuchstabe),Alph)+pos(Schlüssel,Alph)-1) mod length(Alph)];

//Entschlüsseln:
Klartextbuchstabe := Alph[(pos(UPPERCASE(Geheimbuchstabe),Alph)+pos(Schlüssel,Alph)-1) mod length(Alph)];
Ich hoffe das hat dir geholfen.

MfG,
Daniel.
  Mit Zitat antworten Zitat