Thema: Delphi xor, was ist falsch?

Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#10

Re: xor, was ist falsch?

  Alt 11. Okt 2006, 09:55
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.
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat