• Home
 · 
• Encryption
 · 
• My method to create true random numbers for encryption software.

My method to create true random numbers for encryption software.

My method to create true random numbers for encryption software.

API Declarations


'this function gets the color number under the mouse pointer.



Rate My method to create true random numbers for encryption software.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'It accomplishes this by constantly placing points of random color on the form.
'As the mouse is moved over the form the color is picked up and used as the
'random number.  At the same time the mouse movement is changing the colors
'on the form.  This is a systme that I have designed for an new encryption
'concept called LEWCYPHER.  It's a new concept that has no constant
'algorithms, keys, and unlimited potential.   Nothing, even algorithms are ever
'stored in the software.  Reverse engineering is impossible!

'Hopefully if the NSA allows me to release it to the public, you will see this 
'encryption on the market very soon.

'This source code is public domain.
'-David Lewis   [email protected]

'Load a form.  Place a label in one of the corners with a fixed bordertype.
'paste this code in and hit F5!

Public rngready

Private Sub Form_Load()
MsgBox "Starting Number Generator, keep moving the mouse on the window."
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _ As Single)
For tmp = 1 To 1000   '(If your system is slow, lower this)
Randomize Timer + X + Y 
'Uses the mouse pointer as part of the seed to fill the form with colors.
X = Int(Rnd * Form1.Width)
Y = Int(Rnd * Form1.Height)
r = Int(Rnd * 255)
g = Int(Rnd * 255)
b = Int(Rnd * 255)
Form1.PSet (X, Y), RGB(r, g, b)
Next tmp

Label1.Caption = GetPixel(Form1.hdc, Form1.ScaleX(X, Form1.ScaleMode, 3), _ Form1.ScaleY(Y, Form1.ScaleMode, 3))
Label1.Refresh
End Sub

Private Sub Timer1_Timer()
rngready = 1
'Here you could use a public variable and turn it on after a 
'specific interval to ensure that the form is filled with random colors.
'When the variable is on, then start storing numbers!
End Sub