@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