Problem beim Entschlüsseln nach speichern als Datei

Danny87 · Verfasst: Mi 04.10.06 15:15

Hi,

erstmal sorry für den Titel. Wusste nicht wie ichs nennen soll.
Zu meinem Problem:
Ich verschlüssele einen Text in einem Memo (Zeile für Zeile) so:
("key" ist ein String in dem der Codeschlüssel gespeichert ist)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function TfrmMain.Code(sString : string) : string;
var i, j : integer;
    b : byte;
begin
for i:=1 to length(sString) do
  begin
  b := ord(sString[i]);
    for j:=1 to length(key) do
      inc(b,StrToInt(key[j]));
    sString[i] := char(b);
  end;
result := sString;
end;

Funktioniert auch wunderbar. Entschlüsseln funktioniert auch klasse.
Wenn ich nun allerdings den Text im Memo in einer Datei speichere und diese Datei dann wieder
in das Memo lade, dann fehlen einige Zeichen, sodass auch im entschlüsselten Text Zeichen fehlen.
Das ist natürlich nicht optimal.

Meine Frage an euch:
Wisst ihr, was ich machen kann, damit beim Laden oder Speichern der Datei nicht einige Zeichen
"ignoriert" werden?

Gruss
Daniel

Narses · Verfasst: Mi 04.10.06 16:11

Moin!

Es gibt wahrscheinliche Probleme mit den ASCII-Steuerzeichen (#0..#31), wenn du die Standard-Lade- und -Speichermethoden verwendest.

Also: entweder Zeichenwerte unter 32 vermeiden oder binäre Dateien schreiben/lesen ( Suche in: Delphi-Forum, Delphi-Library

TFILESTREAM).

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Danny87 · Verfasst: Mi 04.10.06 22:02

Ich habs jetzt so versucht.
Klappt auch soweit ganz gut, allerding ignoriert er beim speichern die Returns Oo

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var fs : TFileStream;
    i, j : integer;
    s : string;
begin
fs := TFileStream.Create(sdView1.FileName,fmCreate or fmShareExclusive);
for i:=0 to memView1.Lines.Count -1 do
  begin
  s := memView1.Lines[i];
  for j:=1 to length(s) do
    fs.Write(s[j],length(s[j]));
  SetLength(s,length(s)+1);
  s[length(s)] := #13;
  end;
end;

Was mache ich da falsch?

Gruss
Daniel

Narses · Verfasst: Mi 04.10.06 22:30

Moin!

Memo-Controls haben natürlich genauso Probleme mit dem Verarbeiten von Zeichen <#32, deshalb ist ein Memo leider ungeeignet, den codierten Text anzuzeigen...

Ansatz: Speichere den codierten Text in einem String und gib die einzelnen Bytes als Hex-Zeichen in das Memo aus. Da du die Zeilenumbrüche mit umwandelst, hat die codierte Nachricht keine erkennbaren Zeilenwechsel mehr.

Den codierten Text speicherst und lädst du am Stück aus dem Filestream.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

alias5000 · Verfasst: Mi 04.10.06 22:32

Narses hat folgendes geschrieben:

Memo-Controls haben natürlich genauso Probleme mit dem Verarbeiten von Zeichen <#32, deshalb ist ein Memo leider ungeeignet, den codierten Text anzuzeigen...

Sorry Zwischenfrage: TEdits auch?

Gruß alias5000

_________________
Programmers never die, they just GOSUB without RETURN

Narses · Verfasst: Mi 04.10.06 22:34

Moin!

Yip.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme