Delphi Entschlüsselung

[Klaus01]

Den Link hast Du dir nicht angeschaut oder?

GOLDENBERG ist der Schlüssel
G ist an der 7. Stelle des Alphabets ( A=0, B=1...)
O ist an der 15. Stelle
usw.

Dein normaler Text heißt z.B. EINBEISPIEL

Dann mußt Du das E mit dem Bchstaben vertauschen der 7 Stellen weiter im Alphabet steht

hier steht E im Alphabet: ord('E') - ord('A') = 4
das is die Position von G: ord('G') - ord('A') = 6
der neue Buchstabe steht an Position 4 +6 = 10 und ist chr(ord('E')+10)

Delphi-Quellcode:

function Verschluesseln(pPlaintext, pSchluessel: String):String; 
var i, j: integer; 
    lBuchstabe: char; 
    zPlainText:String; 
    zSchluessel:String; 
begin 
  zPlaintext:=lowercase(pPlaintext); 
  zSchluessel:=lowerCase(pSchluessel); 
  result:=''; 
  for i:=1 to length(zPlaintext) do 
    begin 
      j:=ord(zSchluessel[i])- ord('a'); // Anzahl der Verschiebungen ermitteln 

      if ord(zPlainText[i])+j > (ord('a') + 26) then  // ist der verschobene Buchstabe > 'z' 
        lBuchstabe:=chr(ord(ZPlainText[i])+j-26) 
      else 
        lBuchstabe:=chr((ord(ZPlainText[i])+j)); 
      result:=result+lBuchstabe; 
    end; 
end;

Grüße
Klaus