Generate a Prime number of 8 Digits (you can adjust if you need more).
I needed 8 digits pour internal security checks
I needed 8 digits pour internal security checks
Code:
Public Function EightDigitPrime() As Double
' #VBIDEUtils#***********************************************************
' * Author :
' * Web Site :
' * E-Mail :
' * Date : 03/17/2003
' * Project Name :
' * Module Name : Lib_Module
' * Module Filename : Lib.bas
' * Procedure Name : EightDigitPrime
' * Purpose :
' * Parameters :
' **********************************************************************
' * Comments :
' *
' *
' * Example :
' *
' * Screenshot :
' *
' * See Also :
' *
' * History :
' *
' *
' **********************************************************************
Dim dPrime As Double
Dim dMiddle As Double
Dim dCounter As Double
Dim dCheck1 As Double
Dim dCheck2 As Double
Dim nI As Long
Randomize Timer
Restart:
dPrime = CDbl(10000001) + CDbl(2) * Int(Rnd * 45000000)
dMiddle = Int(dPrime / 2)
dCounter = 2
For nI = CDbl(3) To Sqr(dPrime) Step 2
dCheck1 = dPrime / dCounter
dCheck2 = Int(dPrime / dCounter)
If dCheck1 = dCheck2 Then GoTo Restart
dCounter = dCounter + 1
Next
EightDigitPrime = dPrime
End Function