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

5 lines
83 B
Plaintext

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