Свой генератор случайных чисел

[max4d]

Привет, в общем очень нужен генератор случ. чисел, или хотя бы подскажите реализацию стандартной функции Random.
Я так понял там по ф-ле z:=(i+B+C) mod M, где BCM константы. Но, как быть с i?
Извиняйте за ламерский вопрос Спасибо.

[Квэнди]

Чем не устраивает Random ?

[Alar]

x:=random(100);

[max4d]

У меня задание написать игру, с поддержкой 1000 игроков(массив из объектов, каждый игрок это объект), которые бросают кости, и выигрывает тот у кого большее число раз выпало 6.
Рандом нужно написать самому, это главная часть задачи, остальное уже сделал.
Плиз если знаете скажите как этот random реализуется(там всего 3-4 строки кода кажись), а то весь инет облазил не нашёл.

[Alar]

max4d, рандом, это псевдослучайный рандом. По сути своей он не случаен, а имеет какуе-то закономерность. Сделайте, что угодно и назовите рандомом, потом сделайте привяку к времени и всё будет случайнее случайного.

z:=(i+B+C) mod M - сделайте i секундами. Хотя лучше побольше функцию навернуть.

[Malice]

Сообщение от Alar

z:=(i+B+C) mod M - сделайте i секундами. Хотя лучше побольше функцию навернуть.

Добится такого же распределения, как у паскалевского рандома самому будет не просто.. Период повторения у него равен $FFFFFFFF. Можно выдернуть эту реализацию дизасмом любым и использовать

[SuperVisor]

Max4d, у тебя WebMoney есть? Нет, никакой коммерции, просто если есть, то ты наверняка знаешь, как она устанавливается. Если реализация в Delphi, то ты можешь использовать огромное количество различных переменных, как-то: положение курсора, время работы компьютера,положение формы, количество значков на рабочем столе, количество запущеных приложений, количество выделенной памяти, и т.д.
Этим самым ты сделаешь такой генератор, что его будет очень сложно повторить.

[merax]

Сообщение от SuperVisor

Этим самым ты сделаешь такой генератор, что его будет очень сложно повторить.

А какой такой ??? Что то не совсем понял, поподробнее plz!!!!

[SuperVisor]

Сообщение от merax

А какой такой ??? Что то не совсем понял, поподробнее plz!!!!

Повторяю еще раз:

Сообщение от SuperVisor

Этим самым ты сделаешь такой генератор, что его будет очень сложно повторить.

Если не совсем понятно, могу перефразировать: Этим самым ты сделаешь такой генератор, который будет очень сложно повторить.
Или лучше так: Этим самым ты сделаешь такой генератор, чтобудет очень сложно его повторить.

А все-таки велик и могуч русский язык!!!

Если все-таки требуется более глубокое пояснение:
"Чем больше у генератора случайных переменных, тем уникальнее он становится" - это факт. Есть сомнения - давайте превратим это в теорему, обопремся на теорию вероятности и ... И дальше ничего писать не следует. В данном выражении имелось ввиду именно то, что качество генератора зависит от его уникальности и можно сделать его абсолютно неповторимым (или неповторяющимся).

[execom]

Вот мой вариант random!

function MainRandom(x:integer):integer;
var
 a,b,c,d:word;
begin
  DecodeTime(gettime,a,b,c,d);
  MainRandom:=(a*b*c*d) mod x;
end;