Comment obtenir une valeur aléatoire de 64 bits dans Delphi?

Question

Comment puis-je créer une valeur entière de 64 bits aléatoires dans Delphi 2006? La fonction intégrée aléatoire Random() semble renvoyer uniquement des valeurs comprises entre 0 et 2^31.

Answer 1

Vous pouvez utiliser mon GpRandomGen. Il implémente l'algorithme de Marsaglia/Zaman/James, est extrêmement rapide et supposément très aléatoire. Publié en tant que freeware.

Answer 2

Vous pouvez générer 64 bits aléatoires et interpréter le résultat sous forme d'entier. (63 bits si vous travaillez avec des entiers signés et souhaitez que le résultat soit non négatif.) Vous pouvez également prendre deux entiers aléatoires dans la plage 0..2^31-1, plus deux bits aléatoires supplémentaires, et les concaténer pour obtenir un nombre entier de 64 bits aléatoire.

EDIT: J'étais curieux de connaître les propriétés statistiques des nombres pseudo-aléatoires générés par concaténer composants pseudo-aléatoires et a constaté que (apparemment), cette approche pourrait selon ne pas fonctionner correctement sur votre générateur pseudo-aléatoire (bien sûr pour génération de nombres aléatoires réels, à partir du bruit atmosphérique, la concaténation de bits aléatoires n'est pas un problème). Pour une utilisation récréative, la perte de diverses propriétés statistiques peut être acceptable, mais pour une utilisation plus sérieuse, vous pourriez avoir besoin d'un générateur pseudo-aléatoire personnalisé comme suggéré par @gabr. Voici une question connexe: Best method of generating a number with 256 random bits?

Answer 3

Pour répondre à ma propre question, je suis venu avec le code suivant:

function GetRandomInt64() : int64; 
begin 
    Int64Rec(result).Words[0] := Random(High(Word)); 
    Int64Rec(result).Words[1] := Random(High(Word)); 
    Int64Rec(result).Words[2] := Random(High(Word)); 
    Int64Rec(result).Words[3] := Random(High(Word)); 
end; 

Je ne sais pas si cela est une solution valable ou crée toujours le même numéro de suivi X + 1 après un nombre de résultat donné X.

Answer 4

Génère deux randoms de 32 bits et les joint ensemble.

EDIT

similaires à @ réponse de Andreas J'aime la mise en œuvre suivante (équivalent):

function Random64: UInt64; 
var 
    Overlay: packed record 
    a, b: UInt32; 
    end absolute Result; 
begin 
    Assert(SizeOf(Overlay)=SizeOf(Result)); 
    Overlay.a := Random32; 
    Overlay.b := Random32; 
end; 

Answer 5

simple:

function Random64: UInt64; 
begin 
    PCardinal(@result)^ := Random32; 
    PCardinal(cardinal(@result) + 4)^ := Random32; 
end; 

où Random32 est votre 32 bits préféré non signé nombre entier fonction aléatoire.

Answer 6

Créez un GUID (par exemple, CoCreateGuid) et copiez-le dans Int64.