Конвертирование с десятичной в двоичную и наоборот

[Khayzenberg]

Доброго времени суток! Вот решил написать програму для шифрования(метод DES). Самим первым что нужно сделать это розобрать число Int64 на отдельные биты(и если битов не хватает нужно их дописать). Все хорошо получилось конвертировать с десятичной в двоичную. А вот наоборот никак.... Точнее вылетает ИС "invalid floating point operation" на последнем шаге, когда i=0

for i := 63 downto 0 do Result:=Result+input[i]*Trunc(Power(2, 64-i-1));

Ниже код обоих функций:

type TBit=0..1;
type TBits=array of TBit;
function Int64ToBits(const input:Int64):TBits;//перетворення 8-и байтів в послідовність бітов
var i:byte;
    bit:TBit;
    buf:Int64;
begin
  i:=0; SetLength(Result, 64); buf:=input;//встановлюємо замовчування
  while buf>0 do begin//конвертуємо з десятичної системи в двійкову
    bit:=buf mod 2; Result[i]:=bit; buf:=buf div 2;
    i:=i+1;
  end;
end;
function BitsToInt64(const input:TBits):Int64;//вот сдесь и наоборот
var i:byte;
begin
  for i := 63 downto 0 do Result:=Result+input[i]*Trunc(Power(2, 64-i-1));
end;

[Sibedir]

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

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[i] := buf mod 2;
    buf := buf div 2;
  end;
end;

while buf>0 do begin - не стоит полагаться на обнуление массивов при инициализации. Плохой тон, знаете ли. Заполняйте массив до конца.

function BitsToInt64(const input:TBits):Int64;//вот сдесь и наоборот
var i:byte;
begin
  Result := 0;
  for i := High(input) downto Low(input) do
    Result := Result * 2 + input[i];
end;

Power - весьма плохое решение. Работаете с целыми числами, так и работайте с ними как с целыми.

[Khayzenberg]

Спасибо огромное! Всегда возникали проблемы с конвертированием чисел в разные системы счисления. Может кто-то знает хорошие статейки?
Спасибо еще раз)