RosettaCodeData/Task/Random-number-generator-device-/PureBasic/random-number-generator-device-.basic
2023-07-01 13:44:08 -04:00

4 lines
83 B
Text

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