Several weeks ago I purchased a Hardware Random Number Generator from ubld.it. Since then I have been working on a class that implements the device. This class should work on any serial port device that sends a steady stream of random numbers. To get the device to work I had to install this driver, http://ubld.it/wp-content/uploads/20...ws-Driver1.zip
If you don't have a device you can still use the random methods by instantiating the class with a buffer of random bytes.
Before I had the device I used this to begin development. I modeled the Random methods on System.Random and added several of my own, like Next.Date.Code:Private WithEvents TRNG As RandomTrueRNG Dim PRNG As New Random Dim byts((1024 * 1024 * 20) - 1) As Byte PRNG.NextBytes(byts) TRNG = New RandomTrueRNG(byts)
Here is the class in a text file, as a link to my Google Drive. The class.
Let me know if you have a problem with it.
I have a demo app that I will post later. This is what it looks like.
Enjoy.




Reply With Quote