himXML (gesprochen himix ML)

[himitsu]

Jupp.

Du könntest (vermutlich) auch das normale Pos verwenden.

Diese Funkion war IMHO nur wegen älteren Delphis enthalten. (glaub ich)

Ich hoffe nur keiner heult, wenn ich die nächste Version nur für D2010/XE und Neuer rausbring.
(eigentlich ab D2009, aber für Compilerfehler und andere delphieigene Bugs, mach ich mir, auf Biegen und Brechen, keinen Buckel mehr krum)

[RWarnecke]

Hallo himitsu,

ich folgende Zeile Quelltext, die nicht sauber funktionieren :

Delphi-Quellcode:

  XMLConfig := TXMLFile.Create(nil, False);
  stream := TRCxStreamDecorator.Create(
    TFileStream.Create(GetSpecialFolder(CSIDL_APPDATA) + '\VPN-Konfiguration\vpnconfig.xml', fmOpenRead), // der konkrete stream
    True,                // ownsStream (auto-free)
    'password',          // Passwort fur die SandBox
    emEncodeWriting   ); // schreibend kodieren
  try
    (Stream as TRCxStreamDecorator).ReadSalt;
    XMLConfig.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;

Ich verschlüssel eine XML-Datei mit RCx. Wenn ich die verschlüsselte Datei in ein Memo lade oder in eine StringList, dann funktioniert alles ganz wunderbar. Wenn ich es jetzt so mache, wie im obigen Quelltext, dann lande ich immer in der Funktion TRCStreamDecorator.Seek der Datei rcstreamdeco.pas. Die Dateien zum verschlüsseln habe ich aus diesem Beispiel. Ich habe dort alle Strings durch AnsiString ersetzt.

[RWarnecke]

Hallo himitsu,

das Problem aus dem letzten Beitrag habe ich mit einem Workaround über eine TStringlist lösen können. Ich versuche gerade die interne Verschlüsselung zu nutzen. Ich habe Deine Beschreibung gelesen, kann diese aber nicht umsetzen. Hier mal ein Beispiel :

Delphi-Quellcode:

procedure TForm1.Btn_1Click(Sender: TObject);
var
  XML: TXMLFile;
  i: Integer;
  xmlnode: TXMLNode;
begin
  XML := TXMLFile.Create(nil);
  XML.CryptData['RC4'] := 'testen';
  For i := 0 to 10 do
  begin
    xmlnode := XML.RootNode.Nodes.Add('Node' + IntToStr(i));
    xmlnode.Text_S := 'Testnode_' + IntToStr(i);
  end;
  XML.SaveToFile('test.xml');
  XML.Free;
  M_1.Lines.LoadFromFile('test.xml');
end;

Habe ich da noch etwas vergessen oder was habe ich falsch gemacht ?

[himitsu]

XML.CryptData['RC4'] := 'testen'; setzt nur den Schlüssel/Passwort für die Verschlüsselung.

Nun mußt du nur noch, bei den zu gewünschten Knoten noch sagen, daß sie damit verschlüsselt werden sollen.

Delphi-Quellcode:

    xmlnode := XML.RootNode.Nodes.Add('Node' + IntToStr(i));
    xmlnode.Crypted = 'RC4';
    xmlnode.Text_S := 'Testnode_' + IntToStr(i);

Eine integrierte Verschlüsselung über die gesammte Datei kommt erst in der nächsten Version. (solange kann man aber dennoch die XML-Datei streamen und diesen Stream verschlüsseln)

[franktron]

Habt ihr das mit XE2 64Bit hingekrigt ?

Bei mir Kompiliert er aber stürzt dann beim erstellen von XML:=TXMLFile.Create(nil); mit Stack overflow ab.

[RWarnecke]

Zitat von franktron:

Habt ihr das mit XE2 64Bit hingekrigt ?

Bei mir Kompiliert er aber stürzt dann beim erstellen von XML:=TXMLFile.Create(nil); mit Stack overflow ab.

Du musst doch nur die eine Position wo der Assemblercode die Position des Strings zurückgibt ändern in eine ganz normale Pos-Funktion. Dann hat es bei mir zumindest funktioniert.

[franktron]

Das habe ich auch gemacht aber er hat noch 2 stellen mit Linke Seite kann nicht zugewiesen werden angezeigt die habe ich ausgeremt