UNKNOWN '************************************** ' Name: Credit Card Checksum Checker ' Description:Checks to see if a Credit ' Card Number is valid by performing the L ' UHN-10 check on it. ' By: John Anderson ' ' ' Inputs:CCNum as String ' ' Returns:True if Valid, False if Invali ' d ' 'Assumes:None ' 'Side Effects:May cause skin irritation 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.902/lngWId.1/qx/v ' b/scripts/ShowCode.htm 'for details. '************************************** 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)) Next If Len(CCNum) Mod 2 = 1 Then total = total + CInt(Left$(CCNum, 1)) If total Mod 10 = 0 Then IsValidCCNum = True Else IsValidCCNum = False End If End Function