Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: xor funktioniert nicht

    Delphi
    by himitsu, 4. Mai 2009
  falls es noch schneller sein muß...
  Function StringXorCrypt(Const Text, Key: AnsiString): AnsiString;
  Var pText, pTextEnd, pKey, pKeyEnd, pResult: PAnsiChar;
  
  Begin
  SetLength(Result, Length(Text));
  pText := PAnsiChar(Text);
  pTextEnd := PAnsiChar(Text) + Length(Text);
  pKey := PAnsiChar(Key);
  pKeyEnd := PAnsiChar(Key) + Length(Key);
• Forum: Multimedia

  Re: xor funktioniert nicht

    Delphi
    by himitsu, 4. Mai 2009
  wenn du den Text nochmals mit dem selben Schlüssel genauso bearbeitest, dann kommt der ursprüngliche Text raus.
• Forum: Multimedia

  Re: xor funktioniert nicht

    Delphi
    by himitsu, 4. Mai 2009
  ja, soll so :angel:
  
  Oder setz vorher mal das .Max der ProgressBar auf die länge des Strings :zwinker:
  
  
  und nochmal was das Ord(key) angeht ... das Ord liefert da den internen Pointer des Strings und kein Zeichen aus diesem String :stupid: