hey,
mein problem besteht darin, dass ich bei meiner xor-verschlüsselung nur mist raus bekomme, ich denke mal das liegt daran ich mit einen ganzen wort als schlüssel arbeiten will, was ich als string speichern muss, nun nimmt die funktion ord aber nur char, also schaut es euch mal an, wäre dankbar für rückmeldungen
Delphi-Quellcode:
function xorfunktion (text: Char;key:string): char;
begin
Result := Char(Ord(text) xor Ord(key));
end;
procedure TForm2.Button1Click(Sender: TObject);
var
V, text: string;
key: string;
i,j: integer;
begin
memo1.Clear;
text := memo2.text;
key := edit3.text;
V := '';
for i := 0 to Length(text) do
begin
for j := 0 to length(key) do
begin
V := V+ xorfunktion (text[i], key[j]);
Application.ProcessMessages;
ProgressBar1.Position := i+j;
ProgressBar1.Update;
memo1.Text := V;
end;
end;
end;
diese progressbar füllt sich zum teil nicht ganz auf, soll das so sein?