Werte vergleichen

[Klaus01]

Hallo Sierra,

eine Lösung zu Deinem Problem findes Du hier oder hier.

Und hier ist die Verschlüsselung beschrieben:

Ich weiß es nicht so genau, aber ...

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;

edit: Funktion ersetzt

Grüße
Klaus