RosettaCodeData/Task/Random-number-generator-device-/PureBasic/random-number-generator-device-.basic

5 lines
83 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
If OpenCryptRandom()
MyRandom = CryptRandom(#MAXLONG)
CloseCryptRandom()
EndIf