Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.76/21: Рейтинг темы: голосов - 21, средняя оценка - 4.76
-11 / 9 / 1
Регистрация: 20.06.2021
Сообщений: 790
RAD 2009-XE2

Криптостойкий ГПСЧ

26.10.2022, 11:06. Показов 6000. Ответов 84
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, подскажите пожалуйста хорошие реализации криптостойких ГПСЧ на Дельфях попробовал Вихрь Мерсенна
он меня совсем не устроил поискал реализацию Blum-Blum-Shub на Дельфи так и не нашёл =(
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.10.2022, 11:06
Ответы с готовыми решениями:

Криптостойкий ГПСЧ
Всем привет. Подскажите реализацию толкового КСГПСЧ. Хотел найти исходники Fortuna, но ничего стоящего не нашел, ссылка из Википедии битая.

Криптостойкий ГПСЧ на основе вихря Мерсенна
Mersenne Twister is not cryptographically secure. (MT is based on a linear recursion. Any pseudorandom number sequence generated by a...

Алгоритмы ГПСЧ
Добрый вечер! Имеется задание: дан текстовый файл сгенерированных псевдослучайных числе средствами Open Office Calc. Необходимо...

84
-11 / 9 / 1
Регистрация: 20.06.2021
Сообщений: 790
28.11.2022, 21:27  [ТС]
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от SeGun Посмотреть сообщение
Для подсчёта произвольного значения, нужно использовать другую формулу:
Ты извини я с математикой плохо дружу особенно с формулами не можешь пример накидать или в свою реализацию закинуть ?
0
130 / 109 / 22
Регистрация: 23.05.2015
Сообщений: 738
28.11.2022, 21:35
Займусь, позже - пару дней.
0
130 / 109 / 22
Регистрация: 23.05.2015
Сообщений: 738
30.11.2022, 21:37
Лучший ответ Сообщение было отмечено Uefi220 как решение

Решение

Немного длинновато получилось, но тем не менее работает правильно.
Как проверял:
Задал исходные данные просчитал (Кнопка рассчитать) 11 значений получилось от X(0) до X(10).
В Edit(e) к-во значений или значение задал 10 (Кнопка рассчитать X(N)) получил X(10).
Значения в обоих расчетах совпали
Вложения
Тип файла: rar RBBS.rar (2.56 Мб, 5 просмотров)
1
-11 / 9 / 1
Регистрация: 20.06.2021
Сообщений: 790
01.12.2022, 23:34  [ТС]
Цитата Сообщение от SeGun Посмотреть сообщение
Немного длинновато получилось, но тем не менее работает правильно.
Привет перевёл модуль на новый алгоритм заметил такую странность что при клике Button1 работает нормально, правильно, но в потоках на отрез отказывается клинит только одними статичными значениями только с чем может быть связано ?
(Модуль во вложении)

Delphi
1
2
3
4
5
6
7
8
//Usage Module BBS
uses ...BBS;
procedure TForm1.Button1Click(Sender: TObject);
var
BBS:TBBS;
begin
memo1.Lines.Add(floattostr(BBS.RandomBBS(100)));
end;
Вложения
Тип файла: zip BBS35.zip (19.4 Кб, 8 просмотров)
0
-11 / 9 / 1
Регистрация: 20.06.2021
Сообщений: 790
02.12.2022, 01:43  [ТС]
UPD.
Дико извиняюсь всё работает функцию не так прописал =)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.12.2022, 01:43

Написать программу ГПСЧ
Придумайте правило генерации вектора заданной длины. Определите, сгенерирован ли данный вектор вашим правилом или нет. Нужно написать...

ГПСЧ по распределению Пуассона
День добрый! Нужно сгенерировать случайные величины по распределению Пуассона. Да, в интернете полно алгоритмов, но что-то у меня не...

Вычисление периода ГПСЧ
Есть ГСПЧ, который формирует двоичную последовательность любой длины. Вопрос: как вычислить период данной последовательности? Возможно...

Генератор ГПСЧ без повторений
Помогите составить алгоритм. Мне нужно составить алгоритм который генерирует числа в заданном диапазоне без повторений. То есть чтобы...

Создать ГПСЧ по набору чисел
Здравствуйте! Есть два набора таких чисел: Первый набор чисел: 6376 6714 3861 6498 8261 6474 2568 4990


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
85
Ответ Создать тему
Новые блоги и статьи
Вступаем в новую фазу генерации favicons, векторную.
russiannick 02.11.2026
Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .
Генератор паролей (вариант №4)
Maks 01.11.2026
После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков | 1 l I;. . .
Генератор паролей (вариант №3)
Maks 30.10.2026
Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .
Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени)
zorxor 30.10.2026
Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ)
zorxor 30.10.2026
Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .
Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени)
zorxor 30.10.2026
Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
Генератор паролей (вариант №2)
Maks 30.10.2026
Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .
Генератор паролей (вариант №1)
Maks 29.10.2026
Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru