{sdel v1 by xenion@libero.it}
uses crt;
var
file1 : file of byte;
num : longint;
byte0 : byte;
vol : integer;

function strtoint(str: string) : longint;
var
 a : integer;
 b : longint;
begin
 val(str,b,a);
 strtoint:=b;
end;


begin
if paramcount < 2 then begin
 clrscr;
 writeln('Secure delete v.1.0.beta by xenion@libero.it');
 writeln('$sdel filename N');
 writeln('Il file viene sovrascritto N volte.');
 writeln('Rende impossibile un recupero di dati senza mezzi hardware appositi..');
 end;
write('> ');
for vol:=1 to strtoint(paramstr(2)) do begin
write('.',vol);

assign(file1,paramstr(1));
reset(file1);
num:=filesize(file1);
close(file1);

assign(file1,paramstr(1));
rewrite(file1);

byte0:=50;
for num :=1 to num do write(file1,byte0);
close(file1);
end;
end.