[vankai14]

здравствуйте. горит вопрос. необходимо реализовать прогу, в которую можно загрузить файл (любой) и работать с его двоичным кодом (перестановки бит и т.д.). это из криптографии. ничего полезного не нашел на форумах пока

[poli-smen]

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

здравствуйте. горит вопрос. необходимо реализовать прогу, в которую можно загрузить файл (любой) и работать с его двоичным кодом (перестановки бит и т.д.). это из криптографии. ничего полезного не нашел на форумах пока

Для работы с файлом (с его двоичным кодом) удобно использовать класс TFileStream.

[vankai14]

Сообщение от poli-smen

Для работы с файлом (с его двоичным кодом) удобно использовать класс TFileStream.

спасибо, а примерно несколько строк набросать что и как сделать можете? что бы я уже дальше справку почитал

[poli-smen]

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

спасибо, а примерно несколько строк набросать что и как сделать можете? что бы я уже дальше справку почитал

Примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  buf: PByteArray;
  i: Integer;
begin
  fs := TFileStream.Create('Имя открываемого файла', fmOpenReadWrite);
  try
    fs.Position := 123; // Устанавливаем позицию с которой нужно прочитать
    GetMem(buf, 10); // Резервируем память под буфер на 10 байт
    try
      fs.ReadBuffer(buf^, 10); // Читаем 10 байт из указанной позиции файла в буфер

      for i := 0 to 9 do // Что нибудь делаем с этими 10 байтами:
      begin
        buf^[i] := buf^[i] xor $AA;
      end;

      fs.Position := 123; // Устанавливаем позицию с которой нужно записать
      fs.WriteBuffer(buf^, 10); // Записываем изменённые 10 байт назад в файл
    finally
      FreeMem(buf); // Освобождаем память занимаемую буфером
    end;
  finally
    fs.Free;
  end;
end;

[vankai14]

Сообщение от poli-smen

Примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  buf: PByteArray;
  i: Integer;
begin
  fs := TFileStream.Create('Имя открываемого файла', fmOpenReadWrite);
  try
    fs.Position := 123; // Устанавливаем позицию с которой нужно прочитать
    GetMem(buf, 10); // Резервируем память под буфер на 10 байт
    try
      fs.ReadBuffer(buf^, 10); // Читаем 10 байт из указанной позиции файла в буфер

      for i := 0 to 9 do // Что нибудь делаем с этими 10 байтами:
      begin
        buf^[i] := buf^[i] xor $AA;
      end;

      fs.Position := 123; // Устанавливаем позицию с которой нужно записать
      fs.WriteBuffer(buf^, 10); // Записываем изменённые 10 байт назад в файл
    finally
      FreeMem(buf); // Освобождаем память занимаемую буфером
    end;
  finally
    fs.Free;
  end;
end;

а именно с БИТАМИ, а не байтами?

[poli-smen]

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

а именно с БИТАМИ, а не байтами?

Байт состоит из 8 бит. Для работы с битами используются стандартные логические операторы:

Код:

and, or, xor, not, shl, shr

.