Datei mit beliebiger größe ???

[CazperFuture]

hey :-D
Ich habe da mal so eine Frage: Ich hatte mal das Programm "steganos HomeSafe" auf meinem pc, darüber könnt ihr im Internet googlen, denn ich möchte das hier nicht erklären. :coder2:
Die Seite Goolge hilft :coder2:
Jedenfalls war es möglich eine DAtei mit einer beliebigen größe zu erstellen, ich wüsste gerne wie man das in Delphi schafft oder ist das überhauptmöglich ??
:wiejetzt:
Danke für eure Antworten :hello:

[Luckie]

Ja warum sollte das nicht möglich sein?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('d:\test.dat', fmCreate);
  try
    fs.Size := 1024;
  finally
    fs.Free;
  end;
end;

[jaenicke]

Zitat:

Zitat von CazperFuture

Jedenfalls war es möglich eine DAtei mit einer beliebigen größe zu erstellen, ich wüsste gerne wie man das in Delphi schafft oder ist das überhauptmöglich ??

Die Frage ist doch: Was soll in der Datei drin stehen? Ich meine einfach eine riesige leere Datei erstellen hat ja wenig Sinn. :mrgreen:
Und wenn du bestimmte Daten hast, dann musst du die nur noch speichern, z.B. mit dem genannten TFileStream.

[himitsu]

Jupp, was möchtest du denn mit dieser Datei anfangen?
Wie schon gesagt, einach nur "irgendeine" Datei zu erstellen, ohne Nutzen, ist schon recht sinnlos.

Und wenn es unbedingt sein muß, dann erstell ich dir auch gern einige leere 10 TB-(TerraByte)-Dateien (notfalls auch noch größer) auf einer NTFS-Partition, aber ob das was bringt, weiß ich auch nicht :gruebel:

[Dunkel]

[OT]

Zitat:

Zitat von CazperFuture

hey
Ich habe da mal so eine Frage: Ich hatte mal das Programm "steganos HomeSafe" auf meinem pc, darüber könnt ihr im Internet googlen, denn ich möchte das hier nicht erklären.
Die Seite Goolge hilft

Für's nächste Mal: es ist zwar nett, wenn Du auf Google verweist. Nur ist das diesmal nicht wirklich angebracht. DU bist der Fragende, DU solltest uns so viele Informationen wie möglich zur Verfügung stellen, DU willst was von uns. Dann kann es nicht angehen, dass wir zuerstmal via Google Informationen zusammensuchen müssen, was DU überhaupt haben möchtest. :zwinker:

Immer dran denken: so viele Informationen wie möglich (und nötig!) in die Anfrage schreiben. Dann macht das Helfen auch Spaß.
[/OT]

[SirThornberry]

@Dunkel: in diesem Fall fand ich den Hinweis auf Google völlig ausreichend denn bei der Frage ist es völlig irrelevant was dieses Programm noch kann. Ihm ging es letzendlich nur darum wie man eine Datei beliebiger Größe anlegt und er hat als Beispiel ein Programm genannt welches dies kann (was imho nichtmal nötig gewesen wäre)

[jokerfacehro]

ich denk jetz ma an torrentprogramme, wenn man nen download beginnt, speichert das programm (wenn man will) die datei in bereits voller größe leer ab und speichert nachträglich alle daten da hinein.

[himitsu]

Zitat:

Zitat von SirThornberry

@Dunkel: in diesem Fall fand ich den Hinweis auf Google völlig ausreichend denn ...

hab grad mal auf den Google-Link geklickt ... in diesem Fall find ich das nicht ausreichend (eher ein bissl beleidigend, also die Art des Google-Such-Vorschlags, aber ist ja egal)

hier wäre IMHO das Google-Tag um den Suchbegriff angebrachter und wirklich ausreichend gewäsen
> Steganos HomeSafe

[ät Topic]
Wie schon gesagt, es kommt drauf an, warum dein Programm dieses unbedingt machen muß bzw. was du damit erreichen willst.

[Luckie]

Wer sagt denn, dass CazperFuture das für ein Proghramm benötigt? Für mich klang die Frage so, als ob er nur wissen wollte, wie es geht.

[CazperFuture]

wie ich sehe git ne menge Fragen zum Thema. :warn:
Also wie gesagt dieses Programm konnte einen "Safe" also eine Datei auf einem USB-Stick erstellen die z.B. 2 Gb groß sein konnte.
In diesem Safe konnte man sicher seine Datein speichern & wenn man das passende Passwort eingab konnte man diesen Safe öffnen & seine Datein benutzen. 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.
Luckie hatte so gesehen etwas recht, ich brauchte den Code & wollte erst mal eine Erfahrung machen.
Also danke nochmals für eure Antworten :thumb:

P.S. das Google benutze ich :mrgreen:

Habt ihr noch fragen ?

:hi:

[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: