Получить из числа Int64 отдельные биты

Posted by Chas under Delphi

Вот решил написать программу для шифрования(метод DES). Самим первым что нужно сделать это розобрать число Int64 на отдельные биты(и если битов не хватает нужно их дописать).

Sibedir
Опять же, под рукой нет паскаля, потому могу гнать, но может так:

type TBit=0..1;

type TBits=array of TBit;

function Int64ToBits(const input:Int64):TBits;//перетворення 8-и байтів в послідовність бітов

var i:byte;

    buf:Int64;

begin

  SetLength(Result, 64); buf:=input;//встановлюємо замовчування

  for i := Low(Result) to High(Result) do begin

    Result := buf mod 2;

    buf := buf div 2;

  end;

end;

function BitsToInt64(const input:TBits):Int64;//вот сдесь и наоборот

var i:byte;

begin

  Result := 0;

  for i := High(input) downto Low(input) do

    Result := Result * 2 + input;

end;

тема на форуме

Похожие статьи

• Записать значение в Memo при его повторе