RosettaCodeData/Task/Random-number-generator-dev.../PureBasic/random-number-generator-dev...

5 lines
83 B
Plaintext

If OpenCryptRandom()
MyRandom = CryptRandom(#MAXLONG)
CloseCryptRandom()
EndIf