Работа с битами.

[Masip]

Здравствуйте!Собрался реализовать блочный шифр, но не знаю как получить битовое представление файла?

[evgn]

Для доступа к битам можно использовать битовые маски

b: byte;
nb:byte;

//проверить бит №nb (от 0 до 7)
if (b and (1 shl nb) == 0) then Result:= false else Result:=true;
// установить бит №nb
b:= b or (1 shl nb);
//очистить бит
b:= b and not(1 shl nb);

если нужны конкретные биты, то можно (1 shl nb) заменить на константы с посчитанными значениями.

[Masip]

Спасибо, оч помогли!