Datei laden, verschluesseln und speichern

[maximus Caesar]

Du lädst die Datei
du nimmst das einzelne Zeichen, wandelst es in die Bitreihenfolge um, verschlüsselst es, wandelst die neue Bitreihenvolge wieder in ein Zeichen um.
und speicherst das Ganze.
Kann mir jetzt jemand das mit dem Stream erklären? (siehe mein Beitrag weiter oben)

[Gamer]

Zitat:

Zitat von maximus Caesar

Du lädst die Datei
du nimmst das einzelne Zeichen, wandelst es in die Bitreihenfolge um, verschlüsselst es, wandelst die neue Bitreihenvolge wieder in ein Zeichen um.
und speicherst das Ganze.
Kann mir jetzt jemand das mit dem Stream erklären? (siehe mein Beitrag weiter oben)

Okay, und wie geht das?

[maximus Caesar]

für jedes Zeichen gibt es einen vorbestimmten Hex Wert (guck mal hier)
Diesen Kannst du in den Binärwert umwandeln und andersrum.


Kann mir jemand erklären, wie das mit dem Stream funktioniert?

[St.Pauli]

Delphi-Quellcode:

function DateiInStringLaden(Datei : string) : string;
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;
  Inhalt.LoadFromFile(Datei);

  SetLength(Result, Inhalt.Size);
  Inhalt.Read(Result[1], Inhalt.Size);

  Inhalt.Free;
end;

procedure StringInDateiSpeichern(Datei, Uebergabe : string);
VAR Inhalt : TMemoryStream;
begin
  Inhalt := TMemoryStream.Create;

  Inhalt.Write(Uebergabe[1], Length(uebergabe));


  Inhalt.SaveToFile(Datei);
  Inhalt.Free;
end;

[maximus Caesar]

Super!
Funktioniert!