RosettaCodeData/Task/Random-number-generator--device-/PureBasic/random-number-generator--device-.purebasic
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

4 lines
83 B
Text

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