Container erstellen(Passwortgeschutzt)

[dolphin]

Hallo,

ich suche nach einer möglichkeit eine Art Container zu erstellen welcher Passwortgeschuetzt sein sollte. In welchem ich Daten manipulieren kann. Gibt es etwas in dieser Art in Delphi?

[Zacherl]

Wie komplex soll die Sache sein? Geht es dir nur darum ein paar Einstellungen vor dem direkten Zugriff des Users zu schützen oder verwaltest du wirklich sensible Daten (in großen Mengen)? In letzterem Falle würde es sich eventuell anbieten auf eine Datenbank- Software / Komponente zu verwenden, welche Verschlüsselung unterstüzt.

Von einer Selbstimplementation eines richtigen Dateisystem Containers würde ich dir abraten.

[dolphin]

Ich habe in etwa daran gedacht das ich den Container mittels einer Eingabemaske per Ftp(?) oeffnen kann und auf diesem weg zugriff auf sensible Dateien erhalte und sie z.B. mittels einer Shelllistview manipulieren, sowie Dateien Up und Downloaden kann. Wenn es sich anbietet dies mittels einer Datenbank umzusetzen bin ich für Vorschläge welche sich dazu eignet offen.

[Klaus01]

Hallo,

mit ftp kann man keine Dateien öffnen, es ist ein Protokol zum Übertragen von Dateien.
Sensible Daten/Dateien mit FTP zu übertragen verbietet sich eigentlich.

Was möglich wäre, eine verschlüsselte (Zip)Datei auf dem Server zu haben.
Diese auf Deinen Rechner zu übetragen (sftp).
Die Datei dann nach Eingabe eines Passworts auf Deinem Rechner/in Deinem Programm öffnen.

Grüße
Klaus

[dolphin]

Zip ist nicht wirklich das Gelbe vom Ei, ich bin bewusst nach einer anderen Möglichkeit am suchen. Ich bin mir auch nicht sicher ob ich mittels Delphi Rararchive mit einem Passwort versehen kann.

Daher dachte ich das Delphi vlt einen Container anbietet.

[Back2Code]

Zitat von dolphin:

Zip ist nicht wirklich das Gelbe vom Ei, ich bin bewusst nach einer anderen Möglichkeit am suchen. Ich bin mir auch nicht sicher ob ich mittels Delphi Rararchive mit einem Passwort versehen kann.

Daher dachte ich das Delphi vllt einen Container anbietet.

Wie wärs wenn du die Datei die du schützen willst einliest und dann auf binärer Ebene per Stream verändert durch nen Verschlüsselungsalgo und erst mit der richtigen Eingabe des PWs wird die Datei dann zurück aufs Originale Format zurück entschlüsselt und kann wieder ausgeführt werden.

Delphi-Quellcode:

var
  filename: string;
  Buffer: TBytes;
  textmerker: string;
  i: integer;
  chTmp : char;

begin
  if OpenDialog1.Execute then
  begin
    filename := OpenDialog1.FileName;
    savevar := filename;
    StatusBar1.Panels[0].Text := filename;
    ProgressBar1.Position := 0;
    FileStream := (TFileStream.Create(OpenDialog1.FileName, fmOpenRead+fmShareDenyNone));
    try
      SetLength(Buffer, FileStream.Size); //Buffergröße anhand des Filestreamsize festlegen
      SetLength(bytearray, FileStream.Size); //Bytearray anhand des Filestreamsize festlegen
      FileStream.ReadBuffer(Buffer, Length(Buffer));

      ProgressBar1.Max := Length(Buffer);
      Listbox1.Items.Clear;

      for i := 0 to Length(Buffer)-1 do

Hier ne kleine Starthilfe ^^