Hi kaju74,
Zitat von
kaju74:
Hier hatte ich dann rausgefunden, dass der aus der Datenbank gelesene Wert (noch unter Delphi7) nicht mehr mit dem zu vergleichenden Wert (Delphi2009) übereinstimmt:
Delphi-Quellcode:
const
//CS_PWD_PREFIX: AnsiString = #67#12#8#9#133#201#253#15#8;
CS_PWD_PREFIX = Chr(67) + Chr(12) + Chr(8) + Chr(9) + Chr(133) + Chr(201) + Chr(253) + Chr(15) + Chr(8);
begin
Result := xpBuildChecksum(Format('%d%s', [UserID, CS_PWD_PREFIX + Password]));
end;
Die auskommentierte Zeile funktioniert nicht, die darunterliegende geht!
D2009 interpretiert die Chr() Aufrufe wie WideChar() daher funktioniert das wieder mit dem Format, welches ja am UnicodeString arbeitet (jedenfalls für Chars im SmallInt Bereich). Bei dem auskommentierten AnsiString werden die WideChars aber explizit wieder zu einem AnsiString zusammengesetzt, dabei gehen Informationen verloren bzw. wird eine Anpassung mit Hilfe der CodePage vorgenommen. Das Ergebnis unterscheidet sich somit von dem Chr() Prefix-Versuch.
Also folgende Lösung geht:
Delphi-Quellcode:
{$HIGHCHARUNICODE ON}
procedure foo();
const
CS_PWD_PREFIX: AnsiString = #67#12#8#9#133#201#253#15#8;
// CS_PWD_PREFIX = Chr(67) + Chr(12) + Chr(8) + Chr(9) + Chr(133) + Chr(201) + Chr(253) + Chr(15) + Chr(8);
begin
Result := xpBuildChecksum(Format('%d%s', [UserID, CS_PWD_PREFIX + Password]));
end;
{$HIGHCHARUNICODE OFF}
Gruß Assertor
Edit: Bessere Erklärung nachgeliefert...