DB-Zugangsdaten verschlüsseln

[Uwe Raabe]

Zitat von Ykcim:

Das ist die XOR-Verschlüsslungsfunktion.

Aber bei manchen Werten baut sie Mist.

Das liegt daran, daß man Unicode-Strings nicht einfach per XOR ver- und entschlüsseln kann. Das mag in früheren Delphi Versionen noch funktioniert haben, als ein Char noch ein Byte groß war und der OEM-Zeichensatz zu jedem Byte ein Zeichen kannte. Mit Unicode gilt das aber nicht mehr und man sollte dann auf Byte-Sequenzen für das Crypting ausweichen. Um weiterhin mit Strings arbeiten zu können, weil die Datentypen nun mal nicht so einfach im gesamten Programm umgestellt werden können, kann man die Byte-Sequenzen z.B. per Base64 encoden. Der String wird dabei aber etwas länger.

Delphi-Quellcode:

uses
  System.SysUtils, System.NetEncoding;

function Decrypt(const Source, Password: string): string;
var
  bPassword: TBytes;
  bSource: TBytes;
  I: Integer;
begin
  Result := '';
  bSource := TNetEncoding.Base64.DecodeStringToBytes(Source);
  bPassword := TEncoding.UTF8.GetBytes(Password);
  for I := 0 to Length(bSource) - 1 do begin
    bSource[I] := bSource[I] xor bPassword[I mod Length(bPassword)];
  end;
  result := TEncoding.UTF8.GetString(bSource);
end;

function Encrypt(const Source, Password: string): string;
var
  bPassword: TBytes;
  bSource: TBytes;
  I: Integer;
begin
  Result := '';
  bSource := TEncoding.UTF8.GetBytes(Source);
  bPassword := TEncoding.UTF8.GetBytes(Password);
  for I := 0 to Length(bSource) - 1 do begin
    bSource[I] := bSource[I] xor bPassword[I mod Length(bPassword)];
  end;
  result := TNetEncoding.Base64.EncodeBytesToString(bSource);
end;

[KodeZwerg]

Ich habe gerade mal mein Demo mit Unicode gefüttert, funktioniert bei mir Problemlos, bei Euch auch? (wegen Hinweis von Uwe mit älteren Delphis, was meines definitiv ist [D2009])

[Uwe Raabe]

Zitat von KodeZwerg:

Ich habe gerade mal mein Demo mit Unicode gefüttert, funktioniert bei mir Problemlos, bei Euch auch? (wegen Hinweis von Uwe mit älteren Delphis, was meines definitiv ist [D2009])

Das Nicht-Auftreten eines Fehlers ist allerdings kein Garant für Fehlerfreiheit. Probier mal als Password -134775814 und als Orginal String Hurz

Edit: Der Trick hierbei ist, ein #0 zu provozieren. Das wird dann beim Schreiben in das Edit als Stringbegrenzer betrachtet. Würde man nur mit Delphi-Strings arbeiten, dann tritt zumindest dieser Fehler nicht auf. Es könnte aber immer noch Probleme im Unicode-Bereich der Surrogates geben.

[KodeZwerg]

Das Demo arbeitet korrekt, Anzeige macht natürlich bei einem Terminator Schluss, habe es gerade überprüft.
Also intern (wovon ich Ausgehe das es nur intern abgewickelt wird) läuft es.
Screenshot - 25_08.jpg Da sieht man das es 4 Zeichen kodiert sind.
Habe einfach Labels für Länge mit rangebaumelt.
Ich schrieb ja weiter oben, bei Problemen mit Output wäre Base64 empfehlenswert.

Bei Bedarf aktualisiere ich Demo indem ich auch Base64 zwischen schubse.
(Dein Code kann mein Delphi noch nicht, die Unit fehlt mir)

[KodeZwerg]

Nach suchen suchen suchen, mein Delphi hat Base64 nur in Indy anscheinend verbaut, also habe ich ein anderes Base64 integriert.

Nun sollte es keine Probleme mehr mit Anzeige geben.
Es wäre nett wenn aktuellere Delphis das mal Compilieren und berichten ob es funktioniert, auch in Zusammenhang mit Unicode. Besten Dank!

Viel Spaß damit.


Ps: Die Base64.pas von Sakura aus CodeLib arbeitet irgendwie so gar nicht mit meinem Delphi zusammen.

Edit
Ganz vergessen, hier der Null-Terminator Test: Screenshot - 25_08 002.jpg

[Ykcim]

Endlich! Das klappt so! Ich habe es mit Delphi XE2 und es klappt.
Ich habe auch getestet, ob ich die Werte in einer Datei zwischenspeichern kann und nach dem Auslesen funktioniert das DeCrypt auch.

VIELEN DANK!

Patrick

[KodeZwerg]

Das freut mich das Dein Dilemma vorerst behoben ist

Wenn Du noch ein Sample benötigst wo das ganze in einer Binär-Datei abgelegt & gelesen wird, einfach Fragen