xor funktioniert nicht

[jfheins]

Probiers mal so:

Delphi-Quellcode:

function xorfunktion (text: Char;key:char): char; 
begin 
  Result := Char(Ord(text) xor Ord(key));
// Nur 2 Chars miteinander xoren ! ord(string) sollte sowiso eine Fehlermeldung bringen!
end; 

procedure TForm2.Button1Click(Sender: TObject); 
var 
  V, text: string; 
  key: string; 
  i,keyindex: integer; 
begin 
  memo1.Clear; 
  text := memo2.text; 
  key := edit3.text; 
  V := ''; 

  ProgressBar1.Max := length(text); // Progressbar einstellen

  for i := 1 to Length(text) do // Schleifengrenze korrigiert
  begin 
    keyindex := i mod length(key) + 1 // Index des Schlüssels
    V := V + xorfunktion(text[i], key[keyindex]);
    ProgressBar1.Position := i; // .update nicht nötig
    Application.ProcessMessages;
  end;  

  memo1.Text := V; 
end;