Announcement

**Manuel P�ter** · 18.12.2000, 15:24

Sorry, ich durchschau deinen Source nicht so ganz (mit Pointern hab ich noch so meine Probleme) Hab mit MemoryStreams schon ziemlich viel Erfahrung.. Was willst du denn erreichen?

Motz

**J�rgen Wollenberg** · 18.12.2000, 20:16

Hallo Manuel, also ich m�chte eine Datei in den RAM einlesen, und dann nach einem ausgekl�gelten System verschl�sseln (byteweise!). Nun hat die Sache aber einen Haken, die Performance. Je mehr ich von der Datei in den Speicher ablegen kann desto schneller l�uft der ganze Proze� ab. Die n�chste Sache ist die, der zur Verf�gung gestellte RAM. Ich m�chte selbst bestimmen k�nnen, wieviel ich zu Verf�gung stellen m�chte. Der Code ist nat�rlich nur Beispielcode. Manchmal schreibe ich ein Konsolenprogramm um mal ein paar Dinge zu testen. Du kannst mir ja mal deine Kenntnisse �ber MemoryStream (evtl. FileStream) zu Verf�gung stellen. Die Sache mit Streams abzufackeln, w�rde mir schon gefallen, da ich mich der OOP verschrieben habe. Also erstmal Danke im Voraus. Tsch�� J�rge

**Manuel P�ter** · 19.12.2000, 14:03

Hallo, 
Nun, es gibt hier mehrere M�glichkeiten. Entweder du liest die Datei zuerst in einen MemoryStream ein, verschl�sselst diesen Stream und speicherst ihn dann, oder aber du liest einzelne Bl�cke dierekt aus der Datei, verschl�sselst diese Bl�cke und schreist sie in eine neue Datei. Die erste M�glichkeit w�re zu empfehlen, wenn der Benutzer die M�glichkeit haben soll mehr mit der Datei zu machen als einfahc nur verschl�sseln. Allerdings w�re hier das Problem mit dem Speicher. Ein MemoryStream schreibt nicht nur ausschlie�lich in den RAM. Er muss auch irgendwie mit Swap-Dateien arbeiten. Ich k�nnte mir sonst nicht erkl�ren wie ich mit 64MB RAM einen 120 MB Datei in einen MemoryStream einlesen kann. Egal, auch mit Swap-Datei wird ein MemoryStream irgendwann an seine Grenzen sto�en. Wenn du daher die erste M�glichkeit w�hlst und das Programm soll mit Dateien beliebiger Gr��en arbeiten k�nnen, wird sich der Umweg �ber Tempor�re-Dateien wahrscheinlich nicht umgehen lassen. 
Bsp. f�r M�glichkeit 1: 

const MAX = 15360; //15KB gro�e Speicherbl�cke einlesen 
type TBuffer = array [1..MAX] of Char; //Der Buffer mit dem wir Schreiben/Lesen 
var 
  ReadCount, i: Integer; 
  MemStream: TMemoryStream; 
  Buf: TBuffer; 
begin 
  MemStream := TMemoryStream.Create; 
  MemStream.LoadFromFile('Test.dat'); //verwende ich nie, da diese Aktion bei gr��eren Dateien einen l�ngeren Zeitraum brauch. In dieser Zeit steht das gesamte System still. Ich hab mir da eine eigene Methode geschrieben die eben immer wieder systemzeit freigibt 
  while MemStream.Position < MemStream.Size do 
  begin 
    ReadCount := MemStream.Read(Buf, MAX); //liest einen 15KB gro�en Speicherblock ein. in ReadCount wird die Anzahl der tats�chlich eingelesenen Bytes zur�ckgegeben (zb: wenn der Stream kleiner als 15KB ist) 
    for i := 1 to ReadCount do 
      Buf[i] := Verschl�sseln(Buf[i]); //Jedes Byte im Buffer verschl�sseln 
    MemStream.Seek(-ReadCount, soFromPosition); //setzt die Position in der Datei auf die Position vor dem einlesen des Buffers 
    MemStream.Write(Buf, ReadCount); //und die alten Bytes durch die verschl�sselten ersetzen (in einem MemoryStream werden beim schreiben die bytes IMMER nur ersetzt, nie eingef�gt!!) 
  end; 
  MemStream.SaveToFile('Crypted.dat');
end; 
Bsp. f�r M�glichkeit 2: 

const MAX = 15360; //15KB gro�e Speicherbl�cke einlesen 
type TBuffer = array [1..MAX] of Char; //Der Buffer mit dem wir Schreiben/Lesen 
var 
  ReadCount, i: Integer; 
  Source, Target: TFileStream; 
  Buf: TBuffer; 
begin 
  Source := TFileStream.Create('Test.dat', fmOpenRead or fmShareDenywrite); //�ffnet die Original-Datei 
  Target := TFileStream.Create('Crypted.dat', fmCreate or fmShareDenywrite); //erzeugt die Ziel-Datei 
  while Source.Position < Source.Size do 
  begin 
    ReadCount := Source.Read(Buf, MAX); //liest einen 15KB gro�en Speicherblock ein. in ReadCount wird die Anzahl der tats�chlich eingelesenen Bytes zur�ckgegeben (zb: wenn die Datei kleiner als 15KB ist) 
    for i := 1 to ReadCount do 
      Buf[i] := Verschl�sseln(Buf[i]); //Jedes Byte im Buffer verschl�sseln 
    Target.Write(Buf, ReadCount); //und den verschl�sselten Buffer in die Ziel-Datei schreiben 
  e

**J�rgen Wollenberg** · 20.12.2000, 19:52

Danke Manuel, Du hast den Nagel direkt auf den Kopf getroffen!

Tsch�� J�rge

**Manuel P�ter** · 21.12.2000, 15:24

Freut mich, falls sonst noch irgendwelche Probleme auftreten kannst du dich ruhig bei mir melden. eMail: [email protected]

Motz

**Hagen Reddmann** · 27.12.2000, 16:29

Hi J�rgen

Du k�nntest nat�rlich auch schon vollst�ndig fertige Verschl�sselungstools nutzen, die dies alles k�nnen. Der Vorteil liegt dann im besonderen das diese Tools/Komponenten wirklich sicherere Verfahren wie Blowfish, IDEA, RC4, Twofish, Rijndael etc. nutzen.

Als Beispiel f�r die Anwendung vom DEC -> "Delphi Encryption Compendium".

<pre>

with TCipher_Blowfish.Create('Passwort', nil) do
try
EncodeFile('D:\test.txt', 'D:\test.txt');
finally
Release;
end;

</pre>

Obige Routine verschl�sselt die Datei "D:\Test.txt" inplaced in "D:\Test.txt" mit dem Blowfish Algorithmus. D.h. die orginal-datei wird an Ort und Stelle mit den verschl. Daten �berschrieben. Damit kann die Orginaldatei NICHT mehr auf grund der FAT, Swap-Datei wiederhergestellt werden. Arbeitest Du mit tempor�ren Dateien m�ssen diese nach Verschl�sselung gel�scht werden, AUF SICHERE ART, ansonsten kann man diese wiederhestellen. Arbeitest Du mit gro�en MemoryStream oder Memory Mapped Files werden die Original Daten in der Swap-Datei zwischengespeichert. Diese zwischengespeicherten daten lassen sich NICHT l�schen, k�nnen also wiederhergestellt werden.

Gru� Hagen

PS: download bei DSP (Delphi Super Page), Torry.ru oder VCLComponents.com, jeweils in Sektion "Compression/Cryptographie"

Announcement

Wahlfreier Zugriff dynamische Variable

Wahlfreier Zugriff dynamische Variable

Comment

Comment

Comment

Comment

Comment

Comment