Search Tools Links Login

Credit Card Checksum Checker

Posted: 2002-06-01
By: ArchiveBot
Viewed: 68

Filed Under:

VB6 Code Cache

No attachments for this post

Checks to see if a Credit Card Number is valid by performing the LUHN-10 check on it.

Original Author: John Anderson


CCNum as String


True if Valid, False if Invalid

Side Effects

May cause skin irritation

API Declarations



Public Function IsValidCCNum(CCNum As String) As Boolean
  Dim i As Integer
  Dim total As Integer
  Dim TempMultiplier As String
  For i = Len(CCNum) To 2 Step -2
    total = total + CInt(Mid$(CCNum, i, 1))
    TempMultiplier = CStr((Mid$(CCNum, i - 1, 1)) * 2)
    total = total + CInt(Left$(TempMultiplier, 1))
    If Len(TempMultiplier) > 1 Then total = total + CInt(Right$(TempMultiplier, 1))
  If Len(CCNum) Mod 2 = 1 Then total = total + CInt(Left$(CCNum, 1))
  If total Mod 10 = 0 Then
    IsValidCCNum = True
    IsValidCCNum = False
  End If
End Function

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.