验证6种信用卡卡号的代码其他

验证6种信用卡卡号的代码作者:BEUS 日期:2006-08-25 字体大小: 小中大可以验证的信用卡种类有：
V - Visa
M - MasterCard
A - American Express
D - Diners Club
Discover - Discover
JCB - JCB
【验证6种信用卡卡号的代码】以下为ASP代码：
Function ValidateCreditCard(ByRef pStrNumber, ByRef pStrType)
ValidateCreditCard = FALSE ' Initialize negative results

' Clean Credit Card Number (Removes dashes and spaces)
pStrNumber = ParseDigits(pStrNumber)

' Validate number with LUHN Formula
If Not LUHN(pStrNumber) Then Exit Function

' Apply rules based on type of card
Select Case pStrType
Case "A"
Select Case Left(pStrNumber, 2)
Case "34", "37"
' Do Nothing
Case Else
Exit Function
End Select
If Not Len(pStrNumber) = 15 Then Exit Function
Case "D"
Select Case Left(pStrNumber, 2)
Case "36" , "38"
' Do Nothing
Case "30"
Select Case Left(pStrNumber, 3)
Case "300", "301", "302", "303", "304", "305"
' Do Nothing
Case Else
Exit Function
End Select
Case Else
Exit Function
End Select
If Not Len(pStrNumber) = 14 Then Exit Function
Case "Discover"
If Not Left(pStrNumber, 4) = "6011" Then Exit Function
If Not Len(pStrNumber) = 16 Then Exit Function
Case "JCB"
If Left(pStrNumber, 1) = "3" And Len(pStrNumber) = 16 Then
' Do Nothing
ElseIf Left(pStrNumber, 14) = "2131" And Len(pStrNumber) = 15 Then
' Do Nothing
ElseIf Left(pStrNumber, 14) = "1800" And Len(pStrNumber) = 15 Then
' Do Nothing
Else
Exit Function
End If
Case "M"
Select Case Left(pStrNumber, 2)
Case "51", "52", "53", "54", "55"
' Do Nothing
Case Else
Exit Function
End Select
If Not Len(pStrNumber) = 16 Then Exit Function
Case "V"
If Not Left(pStrNumber, 1) = "4" Then Exit Function
If Not (Len(pStrNumber) = 13 or Len(pStrNumber) = 16) Then Exit Function
Case Else
' Unknown Card Type
Exit Function
End Select

' We got this far so the number passed all the rules!
ValidateCreditCard = True

End Function
' ------------------------------------------------------------------------------
Function LUHN(ByRef pStrDigits)

Dim lLngMaxPosition
Dim lLngPosition
Dim lLngSum' Sum of all positions
Dim lLngDigit' Current digit in specified position

' Initialize
lLngMaxPosition = Len(pStrDigits)
lLngSum = 0

' Read from right to left
For lLngPosition = lLngMaxPosition To 1 Step -1

' If we are working with an even digit (from the right)
If (lLngMaxPosition - lLngPosition) Mod 2 = 0 Then

lLngSum = lLngSum + CInt(Mid(pStrDigits, lLngPosition, 1))

Else

' Double the digit
lLngDigit = CInt(Mid(pStrDigits, lLngPosition, 1)) * 2

' shortcut adding sum of digits
If lLngDigit > 9 Then lLngDigit = lLngDigit - 9

lLngSum = lLngSum + lLngDigit

End If
Next
' A mod 10 check must not return any remainders
LUHN = lLngSum Mod 10 = 0
End Function
' ------------------------------------------------------------------------------
Function ParseDigits(ByRef pStrData)

' Strip all the numbers from a string
' (cleans up dashes and spaces)

Dim lLngMaxPosition
Dim lLngPosition

lLngMaxPosition = Len(pStrData)

For lLngPosition = 1 To lLngMaxPosition
If IsNumeric(Mid(pStrData, lLngPosition, 1)) Then
ParseDigits = ParseDigits & Mid(pStrData, lLngPosition, 1)
End If
Next
End Function

验证6种信用卡卡号的代码

推荐阅读

最近感觉得了外阴瘙痒，请问一下这个症状是怎么形成的！

抗原自测盒使用方法

详细教程及注意事项佳能ts6080清零废墨

表分析影响insert,SWOT分析表

重庆蛋糕烘焙培训哪里好烘焙培训培训哪里好

脊髓型颈椎病怎么治脊髓型颈椎病是什么意思

烤红薯需要什么配方吗

松下FZ平板电脑电池续航短的原因是什么

中大型材塑钢窗多少一平普通塑钢窗一平方价格

比115更高的投诉电话怎么投诉联通公司

复旦大学的校训是什么意思复旦大学的校训是什么

小白windows7系统32位旗舰版最新推荐

海尔冰箱质保期及维修指南：了解海尔冰箱质保期、常见故障及维修方法

阿里巴巴采购津贴是什么意思

佳能g2810怎么轻松更换墨盒，让你的打印机焕发新生

南昌第六医院进口2价宫颈癌疫苗专场预约

西瓜糖分高吗西瓜的糖分含量高吗

中年人怎么饮食才能够防止早衰

结婚倒茶的四言八句

数据库筛选 mysql数据库筛选