XOR-Programm mit Streams

oxyplan · Hält's aus hier Beiträge: 2

ha da jetzt Stunden rumgedocktert und bekomm es nicht hin.

Ich möchte ein simples Programm schreibe, das mir mit XOR (ja, ich weiss, das ist kein AES) eine Datei verschlüsselt.
Dabei möchte ich falls möglich Array-Blöcke von 8 byte per Stream auslesen und schreiben.

das Problem ist, das mir das mit den Streams (hab da versucht aus der Hilfe schlau zu werden) irgendwie zu schwer ist.

Wollte mal fragen, ob mir da jemand helfen und ein paar Zeilen zum Ausbauen schreiben kann?

Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mo 17.03.2008 um 15:33

Xentar · Verfasst: Mo 17.03.08 14:43

Wenn du schon "Stunden rumgedoktort" hast, hast du doch sicher einen Ansatz, auf den wir aufbauen können?

oxyplan · Hält's aus hier Beiträge: 2

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
var i,l:byte;
fil1, fil2: String;
sIn, sOut : Tfilestream;
Buffer:array[0..7] of byte;
begin
sIn.Create ('datei1.txt');
while not sIn.Position>=sIn.Length do
begin
l:= sIn.Read(Buffer[0],8);
for i:=0 to l-1 do
buffer[i]:= buffer[i] xor $FF;
sOut.Write(Buffer[0],l);
end;
end;

Hidden · Verfasst: Mo 17.03.08 15:08

oxyplan hat folgendes geschrieben:

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
var 
  i,l:byte;
  fil1, fil2: String;
  sIn, sOut : TFilestream;
  Buffer:array[0..7] of byte;
begin
  sIn := TFilestream.Create('datei1.txt');
  while not (sIn.Position >= sIn.Length) do
  begin
    l:= sIn.Read(Buffer[0],8);
    for i:=0 to l - 1 do
      buffer[i]:= buffer[i] xor $FF;
    sOut.Write(Buffer[0],l);  //Die Mehtode Write enthält ein create falls nil oder was???
  end;
end;

_________________
Centaur spears can block many spells, but no one tries to block if they see that the spell is a certain shade of green. For this purpose it is useful to know some green stunning hexes. (HPMoR)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme