![](/logo_grey.gif)
Последние записи
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
- Lazarus, проверка существования строки таблице
- BASM и record, обращение к полям записи
- Web PHP Framework Symfony
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
12th
Фев
Получить из числа 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;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)