Problem mit Verschlüsselung (und zurück)

[fkerber]

Hi!

Ich hätte da ein kleineres Problem.
Ich erstelle eine XML-Datenbank und verschlüssele sie mit diesem Code:

http://www.delphi-treff.de/content/e...ex.php4?id=131

Wenn ich das jetzt wieder entschlüssele habe ich leider zwei Zeichen zuviel drin:

Code:

ÔL

Das steht am Ende der Datei und gehört da nicht hin.
Woran kann das liegen?

Ciao fkerber

[fkerber]

HI!

Ist schon etwas älter, aber leider ungelöst.
Hat niemand ne Idee?

Ciao fkerber

[DirkK]

Delphi-Quellcode:

 for I := 1 to mem.Size do
  begin
    mem.Position := I;

Ich meine, dass ein TFileStream.Position bei 0 beginnt.
In der Routine wird die Schleifenvariable mit 1 initialisiert und
läuft über die Länge der Datei, so dass die neue Datei um 1 Byte größer
wird.

Wenn du die Datei verschlüsselst und entschlüsselst, so ist die erzeugte
Datei um 2 Byte größer als die orginale Datei.

:hi:

[fkerber]

Hi!

Hmm, ok danke.
Kann ich das lösen,indem ich es so schreibe:

Delphi-Quellcode:

 for I := 0 to mem.Size do
  begin
    mem.Position := I;

Ciao fkerber

[fkerber]

Hi!

Habe das jetzt mal so gemacht:

Delphi-Quellcode:

for I := 1 to mem.Size-1 do
  begin
    mem.Position := I;

Das geht jetzt, aber ist das so möglich/erlaubt/gut/usw.?

Ciao fkerber

[DirkK]

Zitat:

Das geht jetzt, aber ist das so möglich/erlaubt/gut/usw.?

Richtig sollte eigentlich dieser Code sein:

Delphi-Quellcode:

for I := 0 to mem.Size-1 do
  begin
    mem.Position := I;

Wie schon gesagt, der TFileStream wird von 0 aus adressiert. Du musst die Schleife sogar so aufbauen. Stell Die ein Array mit 10 Elementen vor, das so aufgebaut ist:

TIrgendeinTyp = ARRAY[0..9] OF irgenwas;

Das hat 10 Elemente und wird von 0 bis Size-1 ( Size = 10 Elemente) in einer Schleife angesprochen.

Ich hoffe, ich habe mich verständlich ausgedrückt. :wink:

[MrKnogge]

:oops: Da warn die Finger wohl schneller als das Hirn, Sorry.

[fkerber]

Hi!
Alles klar.
Danke dir.
Hat mich weitergebracht.

Ciao fkerber