генератор псевдослучайных чисел с указанием диапазона в формате int64

[Ежик]

столкнулся с проблемой: необходимо, в программе на делфи, генерировать случайные числа в указанном диапазоне. в формате int64, random не подходит.
может у кого то есть исходник подобного генератора или подскажите с алгоритмом.
пытался взять от сюда ума не хватило

[Zer0]

Самый простой вариант - генерируйте два 32-битных целых и склейте их в одно 64-битное

function RndInt64(ARange: int64):int64;
var int1,int2:integer;
begin
   int1:=Random(maxInt*2)-maxInt;
   int2:=Random(maxInt*2)-maxInt;
   result:=((int1 shl 32) or int2) mod ARange;
end;

Если память мне не изменяет

Или даже прямой записью в память

function RndInt64(ARange: int64):int64;
var int1,int2:integer;
     pinta:PInt;
begin
   int1:=Random(maxInt);
   int2:=Random(maxInt);
   result:=0;
   pinta:=@result;
   pinta^:=int1;
   inc(pinta,1);
   pinta^:=int2;
   result=result mod ARange;
end;

[s-andriano]

Сообщение от Ежик

столкнулся с проблемой: необходимо, в программе на делфи, генерировать случайные числа в указанном диапазоне. в формате int64, random не подходит.
может у кого то есть исходник подобного генератора или подскажите с алгоритмом.
пытался взять от сюда ума не хватило

1. Непонятно, почему random не подходит.
2. Если действительно не подходит, ищите "конгруэнтный ГПСЧ".

[Ежик]

Сообщение от s-andriano

1. Непонятно, почему random не подходит.
2. Если действительно не подходит, ищите "конгруэнтный ГПСЧ".

Необходимо указывать диапазон случайных чисел, так как randomrange. Проблема в том, что randomrange работает для integer, а у меня числа размером 64 бита.

[s-andriano]

Генерируйте случайное число в пределах от 0 до единицы, а потом умножайте его на randomrange и округляйте.

[Ежик]

Спасибо за совет.