SchredderProg (mit source) gesucht!

[HW764]

Wie gehts dann einfach 5x

Delphi-Quellcode:

FillChar(arr, SizeOf(arr), #0);

schreiben oder was?

[MrKnogge]

HW764, du musst das Füll-Zeichen in einer Schleife ändern, nacheinander bringt nichts.

Du müsstest also in einer Schleife mit seek immer zum Datei-Anfang springen, ein Füllzeichen setzten und mit der unteren Schleife die Datei überschreiben.

[Meflin]

und so in etwa das schrieb ich schon etwa vor 20 posts :roll:

[HW764]

Kann mir niemand diesen Verdammten Quellcode so überarbeiten, dass es stimmt???
*bittee*

Im moment hab ich es so:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
const Buffer = 1024;
var
  arr: array [1..Buffer] of byte;
  fi: file;
  i, n: integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(fi, OpenDialog1.FileName);
    Reset(fi, 1);
    n := FileSize(fi);
FillChar(arr, SizeOf(arr), #0);
    FillChar(arr, SizeOf(arr), $00);
        FillChar(arr, SizeOf(arr), $FF);
            FillChar(arr, SizeOf(arr),  $00);
                FillChar(arr, SizeOf(arr), $F0);
                    FillChar(arr, SizeOf(arr), $0F);
                        FillChar(arr, SizeOf(arr), $00);


    for i := 1 to n div Buffer do
    begin
      BlockWrite(fi, arr, n mod Buffer); 
    end;
    CloseFile(fi);
    Erase(fi); 
  end;
end;

[HW764]

Wenn ich sie so lösche finde ich sie mit Fast File Undelete wieder!!!
Kann mir denn keiner Helfen?

[MrKnogge]

Du findest nur den Eintrag wieder, die Datei dürftest du nicht mehr herstellen können. Wie man diesen entfernen kann, steht hier im DF.

[Luckie]

So sollte es 6 mal überschrieben werden. Ob es reicht, weiß ich nicht.

[HW764]

Ich kann es wiederherstellen!
PS:
Wenn ichs so mache wird dann 12 mal überschrieben?

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
const Buffer = 1024; 
var 
  arr: array [1..Buffer] of byte; 
  fi: file; 
  i, n: integer; 
begin 
  if OpenDialog1.Execute then 
  begin 
    AssignFile(fi, OpenDialog1.FileName); 
    Reset(fi, 1); 
    n := FileSize(fi); 
FillChar(arr, SizeOf(arr), #0); 
    FillChar(arr, SizeOf(arr), $00); 
        FillChar(arr, SizeOf(arr), $FF); 
            FillChar(arr, SizeOf(arr),  $00); 
                FillChar(arr, SizeOf(arr), $F0); 
                    FillChar(arr, SizeOf(arr), $0F); 
                        FillChar(arr, SizeOf(arr), $00); 
    FillChar(arr, SizeOf(arr), $00); 
        FillChar(arr, SizeOf(arr), $FF); 
            FillChar(arr, SizeOf(arr),  $00); 
                FillChar(arr, SizeOf(arr), $F0); 
                    FillChar(arr, SizeOf(arr), $0F); 
                        FillChar(arr, SizeOf(arr), $00); 


    for i := 1 to n div Buffer do 
    begin 
      BlockWrite(fi, arr, n mod Buffer); 
    end; 
    CloseFile(fi); 
    Erase(fi); 
  end; 
end;

Ich kann diesen Dateinamen vernichtung nicht eintragen, bin ja newbie , kann mir jemand helfen?

[d3g]

NEIN! Hey, könntest du bitte schön langsam einmal nachdenken? Vielleicht dir mal die Delphi-Hilfe zu den Funktionen durchlesen, die du nicht kennst? Du schreibst die ganze Zeit nur ein einziges Mal.

[Luckie]

Verdammt, ich habe vergessen den Source zu posten:

Delphi-Quellcode:

procedure EraseFile(Filename: string);
const
  Buffer = 1024;
  FillBuffer: array[0..5] of Integer = ($00, $FF, $00, $F0, $0F, $00);
var
  arr: array[1..Buffer] of byte;
  f: file;
  i, j, n: integer;
begin
  AssignFile(f, FileName);
  Reset(f, 1);
  n := FileSize(f);
  for j := 0 to 5 do
  begin
    for i := 1 to n div Buffer do
    begin
      BlockWrite(f, FillBuffer[j], Buffer);
    end;
  end;
  CloseFile(f);
  RenameFile(Filename, ExtractFilepath(Filename)+'$000000.tmp');
  DeleteFile(ExtractFilepath(Filename)+'$000000.tmp');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EraseFile('G:\wefigl\1222.jpg');
end;

@HW764: Kuck doch mal, was du da machst:

Delphi-Quellcode:

var
  i: Integer;
begin
  i := 1;
  i := 2;
  i := 3;
  ShowMessage(IntToStr(i));

:roll: