Werte vergleichen

[Sierra]

Nein, leider nicht, denn ich programmiere den Vigenère Algorithmus.
Nur an dieser Stelle gibt es noch ein Problem.

Delphi-Quellcode:

procedure TVigenere.Verschluesseln(pPlaintext, pSchluessel: String);
var i, j, k: integer;
    lBuchstabe: char;
begin
  zPlaintext:=pPlaintext;
  zSchluessel:=pSchluessel;
  zCiphertext:='';
  for i:=1 to ord(length(zPlaintext[i])) do
    begin
      j:=i mod ord(length(zSchluessel[i]));
      k:=(i+j) mod 26;
      lBuchstabe:=(Chr(97+k));
      zCiphertext:=zCiphertext+lBuchstabe;
    end;
end;