Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
|
Re: xor funktioniert nicht
4. Mai 2009, 10:21
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;
|
|
Zitat
|