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

5 lines
83 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
If OpenCryptRandom()
MyRandom = CryptRandom(#MAXLONG)
CloseCryptRandom()
EndIf