[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

.

[vankai14]

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

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

Код:

and, or, xor, not, shl, shr

.

перемешивать надо не байты, а биты. как-то создать массив можно с битами и работать с ними?

[Bargest]

перемешивать надо не байты, а биты. как-то создать массив можно с битами и работать с ними?

Для этого надо учить матчасть. Ни один из известных мне процессоров не позволяет загрузить один бит из памяти и что-то с ним делать. Минимальная обрабатываемая процессором единица - байт. Всегда, когда говорится про перестановку бит, она производится над частями байт через and, or, xor и т.д.

[vankai14]

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

Для этого надо учить матчасть. Ни один из известных мне процессоров не позволяет загрузить один бит из памяти и что-то с ним делать. Минимальная обрабатываемая процессором единица - байт. Всегда, когда говорится про перестановку бит, она производится над частями байт через and, or, xor и т.д.

Спасибо, а пример кода можете набросать?

[M.A.D.M.A.N.]

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

Спасибо, а пример кода можете набросать?

Ну вот же, дали наводку, как из байта вычленить биты:

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

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

Код:

and, or, xor, not, shl, shr

.

[vankai14]

я почитал справку. эти операторы только сдвигают биты влево/вправо, так ? а мне нужно именно перемешать. например 1ый поставить вместо 62 или 45ый вместо 4ого и т.д.

[poli-smen]

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

я почитал справку. эти операторы только сдвигают биты влево/вправо, так ? а мне нужно именно перемешать. например 1ый поставить вместо 62 или 45ый вместо 4ого и т.д.

С помощью этих операторов можно и перемешивать биты: сначала с помощью and выделяешь перемещаемый бит, потом сдвигаешь его на новое место с помощью shl/shr и наконец присоединяешь его с помощью or в новую позицию, предварительно при необходимости очистив позицию от старого бита с помощью and not.

[icWasya]

Например так:
Биты нумеруются справа с 0 по 31

Код:

function GetBit(Source : Cardinal; Position:Integer):Cardinal;
begin
  Result :=  (Source shr Position) and 1;
end;
function GetNBit(Source : Cardinal; Position:Integer;Count:Integer):Cardinal;
begin
  Result :=  (Source shl ( 31 - Position ));(* сдвигаем в лево, что бы ушли лишние старшие разряды *)
  Result :=  Result shr( 31 - Position - Count -1 );(* сдвигаем в право, что бы ушли лишние младшие разряды *)
end;

procedure SetBit(var Source : Cardinal; Position:Integer; Bit:Byte);
begin
  Mask:=1 shl Position;
  Source :=  Source and not (1 shl Position); // обнуляем битик
  Source :=  Source or  ((Bit and 1) shl Position; // Записываем битик
end;

procedure SetNBit(var Source : Cardinal; Position,Count:Integer; Value:Cardinal);
var
  MaskP: Cardinal;
  MaskN: Cardinal;

begin
  Value := Value shl (Position - Count -1);
  MaskP := ((not 0) shl (32 - Count))shr (31 - Position);
  MaskN:=not MaskP;
  Source := (Source and MaskN) or (Value And maskP);
end;