SchredderProg (mit source) gesucht!

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