Сейчас на форуме: tyns777, zds, JustLife, 2nd (+4 невидимых)

 eXeL@B —› Программирование —› RSA - генерация простых чисел
Посл.ответ Сообщение


Ранг: 247.7 (наставник), 3thx
Активность: 0.160
Статус: Участник
Халявщик

Создано: 04 мая 2009 22:17
· Личное сообщение · #1

Рано я закрыл предыдущую тему ))
Кроме FGint для генерации больших простых чисел под делфи что-нибудь есть? (медленный он)
Или лучше б даже что нибудь на ассемблере, чтоб можно было как нибудь вставить в делфи. Есть идеи?

-----
Лень - это подсознательная мудрость




Ранг: 369.8 (мудрец), 400thx
Активность: 0.390
Статус: Участник

Создано: 04 мая 2009 22:21
· Личное сообщение · #2

OpenSSL, и нечего изобретать велосипед.
www.disi.unige.it/person/FerranteM/delphiopenssl/

-----
PGP key <0x1B6A24550F33E44A>





Ранг: 990.2 (! ! !), 380thx
Активность: 0.680
Статус: Модератор
Author of DiE

Создано: 04 мая 2009 22:55 · Поправил: Модератор
· Личное сообщение · #3

в той теме тебе уже ответили, можно было бы попросить открыть ту.
з.ы. бери и пиши на асме, в чём проблема то?

-----
[nice coder and reverser]





Ранг: 673.3 (! !), 400thx
Активность: 0.40.31
Статус: Участник
CyberMonk

Создано: 05 мая 2009 00:49
· Личное сообщение · #4

Тебе раньше говорили что по частям не хочешь ? ... так вот ..может это сойдет , РСа у меня был гдето , но я его что то на асме не нашел. Спрошу у своих профессоров , у них брал.

Code:
  1. ; ?????????????????????????????????????????????????????????????????????? ???
  2.     include \masm32\include\masm32rt.inc
  3. ; ?????????????????????????????????????????????????????????????????????? ???
  4.     ; -------------------------------------------------------
  5.     ; This is an assembly-time random number generator based
  6.     ; on code by George Marsaglia:
  7.     ; #define znew ((z=36969*(z&65535)+(z>>16))<<16)
  8.     ; #define wnew ((w=18000*(w&65535)+(w>>16))&65535)
  9.     ; #define MWC (znew+wnew)
  10.     ; -------------------------------------------------------
  11.     @znew_seed@ = 362436069
  12.     @wnew_seed@ = 521288629
  13.     
  14.     @rnd MACRO base:REQ
  15.       LOCAL znew, wnew
  16.       @znew_seed@ = 36969 * (@znew_seed@ AND 65535) + (@znew_seed@ SHR 16)
  17.       znew = @znew_seed@ SHL 16
  18.             
  19.       @wnew_seed@ = 18000 * (@wnew_seed@ AND 65535) + (@wnew_seed@ SHR 16)
  20.       wnew = @wnew_seed@ AND 65535
  21.       EXITM <(znew + wnew) MOD base>
  22.     ENDM
  23. ; ?????????????????????????????????????????????????????????????????????? ???
  24.     .data
  25.       counts dd 10 dup(0)
  26.     .code
  27. ; ?????????????????????????????????????????????????????????????????????? ???
  28. start:
  29. ; ?????????????????????????????????????????????????????????????????????? ???
  30.     ; ------------------------------------------
  31.     ; Test for reasonably uniform distribution.
  32.     ; ------------------------------------------
  33.     xor esi, esi
  34.     xor edi, edi
  35.     REPEAT 1000
  36.       mov eax, @rnd(2)
  37.       .IF eax == 0
  38.         inc esi
  39.       .ELSE
  40.         inc edi
  41.       .ENDIF 
  42.     ENDM
  43.     print ustr$(esi),9
  44.     print ustr$(edi),13,10
  45.     REPEAT 1000
  46.       mov eax, @rnd(10)
  47.       inc DWORD PTR [counts+eax*4]
  48.     ENDM
  49.     N = 0
  50.     REPEAT 10
  51.       print ustr$(counts+N),9
  52.       N = N + 4
  53.     ENDM
  54.     print chr$(13,10,13,10)
  55.     ; ---------------
  56.     ; Eyeball tests.
  57.     ; ---------------
  58.     REPEAT 200
  59.       print ustr$(@rnd(2))
  60.     ENDM
  61.     print chr$(13,10,13,10)
  62.     REPEAT 200
  63.       print ustr$(@rnd(10))
  64.     ENDM
  65.     print chr$(13,10,13,10)
  66.     REPEAT 100
  67.       print ustr$(@rnd(1000)),13,10
  68.     ENDM
  69.     REPEAT 100
  70.       print ustr$(@rnd(0ffffffffh)),13,10
  71.     ENDM
  72.     inkey "Press any key to exit..."
  73.     exit
  74. ; ?????????????????????????????????????????????????????????????????????? ???
  75. end start


-----
RE In Progress [!] Coding Hazard [!] Stay Clear of this Cube





Ранг: 247.7 (наставник), 3thx
Активность: 0.160
Статус: Участник
Халявщик

Создано: 05 мая 2009 07:40 · Поправил: depler
· Личное сообщение · #5

ntldr
OpenSSL - 5Мб веса, не хочу такого монстра

mak
это генератор псевдопростых чисел, совсем не то. И вообще по частям генерить это как??? объясни на пальцах

ЗЫ. Мне бы хватило более быстрой генерации простого числа, в остальном FGint вполне устраивает

-----
Лень - это подсознательная мудрость




Ранг: 309.8 (мудрец), 21thx
Активность: 0.170
Статус: Участник

Создано: 05 мая 2009 08:10
· Личное сообщение · #6

2 нужные dll весят полтора мегабайта.
генерация простых по частям это наверно какое-то новое изобретение mak'а или его профессоров %)

-----
Shalom ebanats!





Ранг: 990.2 (! ! !), 380thx
Активность: 0.680
Статус: Модератор
Author of DiE

Создано: 05 мая 2009 10:02
· Личное сообщение · #7

depler пишет:
ЗЫ. Мне бы хватило более быстрой генерации простого числа, в остальном FGint вполне устраивает


перепиши FGint отказавшись от работы со строками.

-----
[nice coder and reverser]




Ранг: 0.1 (гость)
Активность: 0=0
Статус: Участник

Создано: 05 мая 2009 14:22
· Личное сообщение · #8

Попробуйте Miracl.




Ранг: 247.7 (наставник), 3thx
Активность: 0.160
Статус: Участник
Халявщик

Создано: 05 мая 2009 16:18 · Поправил: depler
· Личное сообщение · #9

Лан, решил пока Fgint оставить как есть, но тему тоже оставлю... на всякий случай

-----
Лень - это подсознательная мудрость





Ранг: 247.7 (наставник), 3thx
Активность: 0.160
Статус: Участник
Халявщик

Создано: 06 мая 2009 18:40
· Личное сообщение · #10

Такс... теперь мне нада криптостойкий генератор случайных чисел, возможно даже с набором энтропии откуда нибудь. Идеи, мысли, соображения, исходники, ссылки?

-----
Лень - это подсознательная мудрость




Ранг: 309.8 (мудрец), 21thx
Активность: 0.170
Статус: Участник

Создано: 06 мая 2009 18:48 · Поправил: SLV
· Личное сообщение · #11

у релаера был такой если тебе на дельфи, а вообще уже сказали опенссл.

> возможно даже с набором энтропии откуда нибудь
это как?)

-----
Shalom ebanats!




Ранг: 8.1 (гость)
Активность: 0=0
Статус: Участник

Создано: 06 мая 2009 20:32 · Поправил: wombat
· Личное сообщение · #12

depler пишет:
нада криптостойкий генератор случайных чисел


www.agner.org/random/




Ранг: 247.7 (наставник), 3thx
Активность: 0.160
Статус: Участник
Халявщик

Создано: 07 мая 2009 09:27
· Личное сообщение · #13

SLV
это например от координат мышки пользователя, шума звуковой карты и т.п. опенссл не хочу - монстр

wombat
это С++ надо delphi, вот нашел кое-что посмотрите что за алго если не лень


871a_07.05.2009_CRACKLAB.rU.tgz - hqrnd.delphi.zip

-----
Лень - это подсознательная мудрость




Ранг: 65.7 (постоянный)
Активность: 0.050
Статус: Участник

Создано: 07 мая 2009 19:04
· Личное сообщение · #14

depler пишет:
wombat
это С++ надо delphi,


ну так там же есть скомпиленная библиотека...



Ранг: 309.8 (мудрец), 21thx
Активность: 0.170
Статус: Участник

Создано: 08 мая 2009 00:14
· Личное сообщение · #15

вообще я думаю не так принципиальна сама криптостойкость prng судя по топику, так что юзай например RtlUniform даже если чтото от ms тут заныкано, то это не важно)

-----
Shalom ebanats!



 eXeL@B —› Программирование —› RSA - генерация простых чисел
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати