Алгоритм Питера Гутмана

[MORPEH]

помогите реализовать алгоритм Питера Гутмана для файла. То есть, для уничтожения информации)).
Буду очень признателен

Знаю что надо использовать blockwrite и assign. Но как такое сделать для файла. при том что бы перезапись была такого же размера не знаю

[dmitriegorovih]

Знаю что надо использовать blockwrite и assign

Не обязательно имхо TFilestream подходит лучше с ним работать легче.

[MORPEH]

Сообщение от dmitriegorovih

Не обязательно имхо TFilestream подходит лучше с ним работать легче.

А можно пример, как сделать перезапись такую? Хотя бы первых 5 циклов

[dmitriegorovih]

ну как-то так

var
f:TFileStream;
filename:string;
n:int64;
buffer:array [1..1024] of byte;
begin
randomize;
if Opendialog1.Execute then filename:=Opendialog1.FileName;
if fileexists(filename)=true then f:=TFileStream.Create(filename,fmOpenReadWrite)
else f:=TFileStream.Create(filename,fmCreate);
//------------------------------------------------------------------------------
f.Position:=0;
while f.Position<>f.Size do
begin
n:=f.Position;
f.ReadBuffer(buffer,1);
f.Position:=n;
buffer[1]:=random(256); //псевдослучайные числа
f.WriteBuffer(buffer,1);
end;
//------------------------------------------------------------------------------
f.Position:=0;
while f.Position<>f.Size do
begin
n:=f.Position;
f.ReadBuffer(buffer,1);
f.Position:=n;
buffer[1]:=85; // это число 55 в шестнадцатеричной системе;
f.WriteBuffer(buffer,1);
end;
//------------------------------------------------------------------------------
f.Position:=0;
while f.Position<>f.Size do
begin
n:=f.Position;
f.ReadBuffer(buffer,1);
f.Position:=n;
buffer[1]:=170; // это число AA в шестнадцатеричной системе;
f.WriteBuffer(buffer,1);
end;
//------------------------------------------------------------------------------
end;

[Serge_Bliznykov]

позволю себе маленькие исправления (просто для красоты! например, зачем нужно сравнивать булевскую функцию с true ?! )

var
 ..
 buffer:array [1..1] of byte; 

begin
  if Not Opendialog1.Execute then Exit;
 filename:=Opendialog1.FileName;


  if fileexists(filename)
      then f:=TFileStream.Create(filename,fmOpenReadWrite)
      else f:=TFileStream.Create(filename,fmCreate);

....
buffer[1]:=$55; // это число 55 в шестнадцатеричной системе :)

....
buffer[1]:=$AA; // это число AA в шестнадцатеричной системе :)

[MORPEH]

Понял. А как в цикле сделать с этим числом: #49 #24 #92 ?

[Serge_Bliznykov]

f.Position:=0;
while f.Position<>f.Size do
begin
  n:=f.Position;
  f.ReadBuffer(buffer,1);
  f.Position:=n;
  buffer[1]:= Тут НУЖНОЕ число;
  f.WriteBuffer(buffer,1);

p.s. а вообще, я бы крайне рекомендовал вынести цикл перезаписи в отдельную процедуру такого вида:

procedure WriteByteValueToFile(var f : TFileStream; isRandom : boolean; ByteValue : byte);
var
   n : int64;
   b : byte;
begin
  f.Position:=0;
  if isRandom then  begin
    for i:=1 to f.Size do begin
       b := Random(ByteValue);
       f.WriteBuffer(b, 1);
     end
  end 
  else begin
    b := ByteValue;
    for i:=1 to f.Size do 
        f.WriteBuffer(b, 1);
 end; 
end; {конец процедуры}

тогда программа будет выглядеть примерно так:

begin
  randomize;
   if Not Opendialog1.Execute then Exit;
   filename:=Opendialog1.FileName;
   try
      if fileexists(filename) 
          then f:=TFileStream.Create(filename,fmOpenReadWrite)
          else f:=TFileStream.Create(filename,fmCreate);
      
      // пишем случайное число от 0 до 255
     WriteByteValueToFile( f, True, 256 );

      // пишем число 0x55
     WriteByteValueToFile( f, False, $55 );

      // пишем число 0xAA
     WriteByteValueToFile( f, False, $AA );

     и т.д.

   finally
      FreeAndNil(f);
   end;

end

[MORPEH]

Не очень понял по 7 циклу.
Он ведь в 7 цикле пишет такие данные: #92 #49 #24 То есть через 3 числа через пробел?

[Aristarh Dark]

Сообщение от MORPEH

Не очень понял по 7 циклу.
Он ведь в 7 цикле пишет такие данные: #92 #49 #24 То есть через 3 числа через пробел?

Никаких пробелов, пишется 3 байта, затем опять 3 байта, потом снова 3 байта, и так до конца.

[MORPEH]

Сообщение от Aristarh Dark

Никаких пробелов, пишется 3 байта, затем опять 3 байта, потом снова 3 байта, и так до конца.

А как тогда в примере то что выше так же сделать. Что-то не понимаю. Как тогда будет выглядеть?