fortypoundhead.com

IsPrime

Posted On 2011-12-31 by FortyPoundHead
Keywords: ASP VBScript Math Functions
Tags: ASP Scripting VBScript Windows
Views: 1952


This handy little vbscript function checks to see if a number is a primary number.

Prime numbers are commonly found in encryption schemes that use Public/Private keys.

Pass it a number, and it will return a true/false value depending on the "primeness" of the number.

It first assumes that the number passed is false. Then it simply checks if it is less than 2, divisible by two, or has a square.

If it makes it past those checks, then it must be prime. The value is set and returned to the caller.

'**************************************
' Name: IsPrime
' Description:Checks to see if a number is a primary number. Prime numbers are commonly found in encryption schemes that use Public/Private keys.
'**************************************

function IsPrime(ByRef pLngNumber)

Dim lLngSquare
Dim lLngIndex

IsPrime = False

if pLngNumber < 2 Then Exit function
if pLngNumber Mod 2 = 0 Then Exit function

lLngSquare = Sqr(pLngNumber)

For lLngIndex = 3 To lLngSquare Step 2

if pLngNumber Mod lLngIndex = 0 Then Exit function

Next

IsPrime = True

End function


About the Author

FortyPoundHead has posted a total of 1974 articles.

 


Comments On This Post

No comments on this post yet!


Do you have a thought relating to this post? You can post your comment here. If you have an unrelated question, you can use the Q&A section to ask it.

Or you can drop a note to the administrators if you're not sure where you should post.


Your IP address is:54.211.127.89

Before you can post, you need to prove you are human. If you log in, this test goes away.



Recent Forum Posts

Job Spammer: Sathya Narayana
dwirch posted on March 15, 2017 at about 7:18 in Spammers

Job Spammer: Manish Kumar
dwirch posted on March 14, 2017 at about 17:44 in Spammers

Site Migration Complete
dwirch posted on March 12, 2017 at about 11:10 in Site News

Site Migration Complete
dwirch posted on March 11, 2017 at about 0:35 in Site News

Job Spammer: Jason Weinstein
dwirch posted on March 10, 2017 at about 14:00 in Spammers

Job Spammer: Ryan Wilson
dwirch posted on March 8, 2017 at about 17:00 in Spammers