DEC Verschlüsselung beim Speichern einer Datei

**TUX_der_Pinguin**

Hallo DPler,

ich habe heute angefangen mich ein wenig mit dem Thema DEC zu beschäftigen, da ich gern etwas verschlüsselt haben möchte.

Ich habe mir ein kleines Tool geschrieben, dieses Tool speichert ein Rekord ab, dieser soll jedoch verschlüsselt
werden um eine manipulation durch einen Hex-Editor auszuschließen.

Ich hatte mir gedacht ich speicher zu erst den Rekord in einem MemoryStream ab um ihn dann zu verschlüsseln und
anschließend in einer Datei zu speichern. Beim laden müßte das dann umgekehrt sein, also aus der Datei den
verschlüsselten MemoryStream laden diesen entschlüsseln und dann daraus das Rekord zu laden.

Jedoch fehlt mir noch so der Ansatz wie ich die Verschlüsselung realisieren muß, ich blick da leider noch nicht
so ganz durch.

Verwendete Software:
DEC 5.2
Delphi 2009 Professional

zusammenfalten · markieren

Delphi-Quellcode:

			procedure pSaveFile(const sFileName: String; _MyFile: tKeyFile);

var

  MStream       : TMemoryStream;

  FStream       : TFileStream;

  CipherManager : TDECCipher;

begin

  CipherManager := TDECCipher.Create;

  try

    MStream := TMemoryStream.Create;

    try

      //In den MemoryStream schreiben

      MStream.WriteBuffer(_MyFile.Header, SizeOf(_MyFile.Header));

      MStream.WriteBuffer(_MyFile.Param, SizeOf(_MyFile.Param));

      //FileStream erzeugen

      FStream := TFileStream.Create(sFileName, fmCreate or fmShareExclusive);

      try

        CipherManager.EncodeStream(MStream, FStream, MStream.Size);

      finally

        FStream.Free;

      end;

    finally

      MStream.Free;

    end;

  finally

    CipherManager.Free;

  end;

end;{pSaveFile}

mfg

TUX

DEC Verschlüsselung beim Speichern einer Datei

DEC Verschlüsselung beim Speichern einer Datei

Forumregeln