Datei mit beliebiger größe ???

[user0815]

[OT]

google

[jaenicke]

Zitat:

Zitat von CazperFuture

Ich wollte so etwas auch versuchen & habe dazu auch einen Ansatz, in einem Edit-Feld wird das Passowrt eingegeben & gespeichert, ich habe mir das alles noch nicht genau überlegt im Detail.

Dass Passwort darf nicht gespeichert sein und einfach verglichen werden. Du musst die Daten im Safe mit Hilfe des Passwortes verschlüsseln.
Wenn dann das richtige Passwort eingegeben wird, funktioniert die Entschlüsselung, wenn nicht, dann nicht. Aber das Passwort überprüfen und dann auf die Daten zugreifen bringt rein gar nichts. ;-)

[himitsu]

achso ...
im Grunde kannst du es dir auch einfach machen
- es gibt ja so Module, womit man z.B. programmseitig Zip-Archive erstellen/verwalten kann ... diesen kann man auch ein Passwort verpassen und fertig :angel2:
> siehe ZipMaster und Co. ... gibt da hier auch schon Einiges dazu zu finden

PS: wenn du es selber machen willst ...
nur mit dem verschlüsseln der dateien ist es noch lange nicht getan.
in diesem Fall bräuchtest du sogar noch sowas wie eine Dateisystem in deiner Datei, denn irgendwie muß auch noch gespeichert sein, welche Dateien alles in diesem "Safe" liegen und vorallem wo diese liegen, wie sie heißen und Vieles mehr.




Also, eine Datei "beliebiger" Größe anzulegen ist dabei das geringste Problem ... schwieriger ist eine sichere Verschlüsselung, wobei es dafür ja nette Sachen (wie z.B. das DEC) gibt, und dann noch die ganze Veraltung der Dateien in dieser Datei.

[CazperFuture]

ok also das mit dem zippen kenne ich :hello:

Ich werede es schon selber machen das mit dem Safe, ich werde einfach ein Passwort vorher festlegen & dann sowas wie

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i: integer;
  begin
  if Edit1.Text = Edit2.Text then
   ...

Soweit klar was ich meine ?!

[smallsmoker]

ja, ist eine nette übung aber auch nur annähernd sicherheit ist was anderes .. stickworte: Dec, Hashs etc. aber darüber kannst du im Internet googlen, denn ich möchte das hier nicht erklären. :coder2:
Die Seite Goolge hilft Coder

[himitsu]

Zitat:

Delphi-Quellcode:

if Edit1.Text = Edit2.Text then

ich weiß jetzt nicht wozu das zweite Edit gut sein soll,
aber egal wie ... toll, dann ist in deinem Programm ein Passwort drin, welches ich leicht ändern/auslesen könnte oder ich editiere einfach in der EXE ein winzigkleines Byte und mache einfach das hier draus:

Delphi-Quellcode:

if Edit1.Text <> Edit2.Text then

ansonsten supertoll, dein Programm ist (etwas) passwortgeschützt, aber die Daten im "Safe" sind vollkommen ungeschützt :shock:


und wie gesagt, die größte Schwierigkeit wird hierbei eine vernünftige "editierbare" Dateiverwaltung innerhalb deiner großen Datei sein.

[CazperFuture]

Ja ok es war ja auch nur ne Idee, "wirkliche Sicherheit" ist das längst nicht, das weis ich auch. Wie gesagt eswear nur so ein Versuch. :gruebel:
Ich hab da nochmal ne Frage: ich kann nun eine Datei mit bestimmter Größe erstellen, wie wäre der Code wenn ich z.B. 10 mit der selben Größe erstellen wollte. Immoment kirege ich's i-wie nicht hin, bis jetzt habe ich folgendes :
:coder2:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fs: TFileStream;
  i : Integer;
  begin
  for i := 1 to 10 do
  begin
  fs := TFileStream.Create('d:\test%d.dat',[i] fmCreate);
  try
    fs.Size := 1024;
  finally
    fs.Free;
  end;
end;
end.

[Satty67]

ohne es jetzt zu testen:

Delphi-Quellcode:

fs := TFileStream.Create(Format('d:\test%d.dat',[i]), fmCreate);

[CazperFuture]

nice1
:feuerchen:

Ich werd noch ne runde Delphi schieben & dann auch mal penn' gehen :tongue: