Thema: Delphi Kodierung ändern

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.166 Beiträge
 
Delphi 12 Athens
 
#6

Re: Kodierung ändern

  Alt 12. Nov 2009, 19:15
- hat sich was an der Passwortberechnung verändert?
- haben sich ebentuell "falsche" Zeichen in die Dateien geschmuggelt
- ...

Delphi-Quellcode:
var pw: AnsiString;

pw := Utf8ToAnsi(pw);
for x := 0 to Length(pw) - 1 do
  pw[x+1] := AnsiChar(Byte(pw[x+1]) + (x xor $03) * (x mod 15));

if 'Key=' + pw = pass then
hab den Code mal etwas gekürzt
und ich glaub mit dem etwas verschobenen x fällt es besser auf, was genau berechnet wird.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat