xor, was ist falsch?

[Corpsman]

@marabu

Das kann aber auch nicht wirklich funktionieren,

Da wenn Ikey = Length(Key) -> Ikey := -1; geschieht. Das wäre dann ein wenig Fatal. Bei mir hat es jedenfalls auch nicht getan.

Aber mit :

Delphi-Quellcode:

Const
  cschluessel = 'asdfghjkl';

Function DoCrypt(AText: String): String;
Var
  i: integer;
Begin
  For i := 1 To Length(AText) Do
    AText[i] := Chr(Ord(cschluessel[i Mod Length(cschluessel) + 1]) Xor Ord(AText[i]));
  Result := AText;
End;

..

Procedure TForm1.Button1Click(Sender: TObject);
Var
  s: String;
Begin
  s := DoCrypt(Memo1.Text);
  Memo1.Text := s;
End;

Funktionierts echt gut.

@Angel

Mus ich nicht wenn ich 2 mal auf den Button Clicke