Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Kodierung ändern

    Delphi
    by himitsu, 12. Nov 2009
  Also, wenn es wirklich nur UTF-8-kodiert ist, dann sollte es nach der Dekodierung der selbe alte ANSI-Text rauskommen.
  
  
  pass ist auch ein String/AnsiString oder ist das ebenfalls UTF-8?
  if AnsiToUtf8('Key=' + pw) = pass then
  // oder
  if 'Key=' + pw = Utf8ToAnsi(pass) then
• Forum: Sonstige Fragen zu Delphi

  Re: Kodierung ändern

    Delphi
    by himitsu, 12. Nov 2009
  - hat sich was an der Passwortberechnung verändert?
  - haben sich ebentuell "falsche" Zeichen in die Dateien geschmuggelt
  - ...
  
  var pw: AnsiString;
  
  pw := Utf8ToAnsi(pw);
  for x := 0 to Length(pw) - 1 do
  pw := AnsiChar(Byte(pw) + (x xor $03) * (x mod 15));
• Forum: Sonstige Fragen zu Delphi

  Re: Kodierung ändern

    Delphi
    by himitsu, 12. Nov 2009
  Hmmm, dann wird wohl noch was anderes geändert sein, außer der Kodierung? :gruebel:
  
  Oder nutzt du zufällig auch noch Delphi 2009+ ?
  
  PS: wenn es dich wirklich um ANSI handelt, dann ist sowas wie if Ord(pw) >= 255 then eigentlich sinnlos, da ein AnsiChar eh nur Werte mit maximal #255 aufnehmen kann.
• Forum: Sonstige Fragen zu Delphi

  Re: Kodierung ändern

    Delphi
    by himitsu, 12. Nov 2009
  Man mag es kaum glauben, aber es gibt gleich in der System-Unit so Funktionen ala Utf8ToAnsi
  (also diese Funktionen sind immer verfügbar, da automatisch eingebunden).