## IsPrime

Keywords: ASP VBScript Math Functions
Tags: ASP Scripting VBScript Windows
Views: 2019

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 lLngSquareDim lLngIndexIsPrime = Falseif pLngNumber < 2 Then Exit functionif pLngNumber Mod 2 = 0 Then Exit functionlLngSquare = Sqr(pLngNumber)For lLngIndex = 3 To lLngSquare Step 2if pLngNumber Mod lLngIndex = 0 Then Exit functionNextIsPrime = TrueEnd function`

FortyPoundHead has posted a total of 1974 articles.

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.

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

### Recent Forum Posts

dwirch posted on September 23, 2017 at about 13:44 in Site News

Job Spammer: Gaurav Mehta - AgreeYa Solutions
dwirch posted on September 22, 2017 at about 10:35 in Spammers

Job Spammer: Prutha Siri - Javelin Systems
dwirch posted on September 10, 2017 at about 6:15 in Spammers

New security implemented
dwirch posted on September 7, 2017 at about 7:16 in Site News

Malicious IP Checker Companion Tool
dwirch posted on August 12, 2017 at about 20:24 in Site News