SchredderProg (mit source) gesucht!

[Meflin]

Zitat:

Zitat von Ultimator

Probier das doch mal so:

Delphi-Quellcode:

procedure TForm1.ShrederFile(Wieoft:Integer); 
const Buffer = 1024; 
var 
  arr: array [1..Buffer] of byte; 
  fi: file; 
  i, n, Z: integer; 
begin 
Z:=0
if OpenDialog1.Execute then 
  begin 
    repeat 
    AssignFile(fi, OpenDialog1.FileName); 
    Reset(fi, 1); 
    n := FileSize(fi); 
    FillChar(arr, SizeOf(arr), #0); 
    for i := 1 to n div Buffer do 
    begin 
      BlockWrite(fi, arr, n mod Buffer); 
    end; 
    CloseFile(fi); 
    Erase(fi); 
  end; 
 inc(Z);
until Z=Wieoft;
end;

Ich habs zwar jetzt nicht getestet, müsste aber gehen.

EINEGNINITIATIVE :|

das eigeninitative könntest du ruhig so schreiben:
EIGENINITIATIVE

[Ultimator]

Stimmt: EIGENINITIATIVE :mrgreen:

[HW764]

Delphi-Quellcode:

procedure TForm1.Button1Click(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), #0);
            FillChar(arr, SizeOf(arr), #0);
                FillChar(arr, SizeOf(arr), #0);
                    FillChar(arr, SizeOf(arr), #0);

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

So, stimmt der Code, er müsste es jetzt 5 mal überschreiben!
Jaja, eigeninitiative...

[d3g]

Du musst mit unterschiedlichen Werten überschreiben. Zuerst $00, dann $FF, dann $00, dann $F0, dann $0F, dann $00, wenn ich mich richtig erinnere.

Außerdem ist dein Code sinnlos. Versuch ihn zu verstehen, bevor du ihn änderst.

[HW764]

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), $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;

So richtig?

[Meflin]

3x ;-)

[Luckie]

Zitat:

Zitat von HW764

So richtig?

Nein, welchen Wert hat jetzt wohl arr in der Schleife?

[HW764]

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;

Soooo??? *liebschau*
Und was passiert, wenn ichs so schreibe?

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), #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), #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;

Wirds dann noch mehrmal überschrieben?

[MrKnogge]

Es mag sein, dass ich mir irre, aber ich glaub du füllst den Speicherplatz nie mit einem anderen Zeichen als $00 .

[Meflin]

du irrst dich nicht...