Hmm also wenn ich deutlich Längere Passwörter Nehme ist es Klar
nur
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)]) Xor Ord(AText[i]));
Result := AText;
End;
Geht. Allerdings würde das Bedeuten das Delphi die Stringkonstante in einen Array of Char baut der dann INdex 0..Length -1 hat merkwürdig.