Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

RSA и проблемы с большими числами   Найти похожие ветки 

 
Кодер ©   (2005-03-11 00:11) [0]

Проблема при работе с большими числами при программировани RSA. Использую для этого тип TBcd. Все отлично, но никак не могу разобраться с делением этих чисел, а именно с процедурой BcdDivide, все время на выходе ноль получается или ерунда какая-то, может кто работал с этим типом данных? Заранее хочу предупредить, что я знаю, что существует много всяких уже написаных модулей, но алгоритм я уже почти запрограммировал и использую при этом этот тип данных. Помогите, кто может.


 
Slym ©   (2005-03-11 05:11) [1]

Ну тормоза у тебя будут...
Там вычисления строкой в столбик! Тормоза НЕРЕАЛЬНЫЕ.
Юзай LockBox хотябы...

А 0 у тебя от переполнения TBCD... там ограничение
MaxFMTBcdDigits =   32;

PBcd = ^TBcd;
 TBcd  = packed record
   Precision: Byte;                        { 1..64 }
   SignSpecialPlaces: Byte;                { Sign:1, Special:1, Places:6 }
   Fraction: packed array [0..31] of Byte; { BCD Nibbles, 00..99 per Byte, high Nibble 1st }
 end;

Руками исправь, на 256

MaxFMTBcdDigits =   256;

PBcd = ^TBcd;
 TBcd  = packed record
   Precision: Byte;                        { 1..64 }
   SignSpecialPlaces: Byte;                { Sign:1, Special:1, Places:6 }
   Fraction: packed array [0..255] of Byte; { BCD Nibbles, 00..99 per Byte, high Nibble 1st }
 end;
Ну и по коду может быть


 
Кодер ©   (2005-03-11 11:07) [2]

Странно, что переполнение получается, там число-то всего-то наверное знаков около 30...



Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
14-1109934092
Sash
2005-03-04 14:01
2005.03.27
nbtstat -r


9-1104597582
макс
2005-01-01 19:39
2005.03.27
Вопрос по 3dmax-у.


6-1106425933
Homa_Programer
2005-01-22 23:32
2005.03.27
сообщения в СЕТИ


1-1110615384
Timofey
2005-03-12 11:16
2005.03.27
верхний/нижний индекс в TLabel


4-1108563010
Fuzzy
2005-02-16 17:10
2005.03.27
Как узнать обьем ж. диска и свободное место на нем? Pascal.