Ich muss ehrlich zugeben, dass ich den Quelltext zu meiner Frage ganz und gar nicht verstehe. Er kommt aus einer Passwortverschlüsselung. (Crypt32)
Delphi-Quellcode:
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
end;
end;
Nach dem Compilieren mit Delphi 2009 wird kein Pw mehr entschlüsselt. Bitte, kann mir jemand helfen, wie ich folgendes Statement in
Unicode umschreiben muss?
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
Danke,
Romy
PS: So weit steig ich da noch nicht durch.