Vérification cb et eurocard

Commenter

Contenu du snippet

une simple classe pour vérifier les numéros de visa ou d'eurocard

Source / Exemple : 


Namespace ecommerce

    Public Class Valide_CB

        Private tmp_digits As String = "0123456789"

        Public Function CardValidate(ByVal DDLtypeCarte As String, ByVal TxtNumCarte As String) As Boolean
            Dim bValid As Boolean

            If (DDLtypeCarte = "VISA" Or DDLtypeCarte = "CarteBleue") Then
                Dim totalcarte As Integer = 0
                Dim increment As Integer = 0

                If Len(TxtNumCarte) <> 16 Then
                    bValid = False
                    Exit Function
                End If
                Dim i As Integer
                Dim numero As Integer
                For i = Len(TxtNumCarte) To 1 Step -1
                    numero = CInt(Mid(TxtNumCarte, i, 1))
                    increment = increment + 1

                    If increment Mod 2 <> 0 Then
                        totalcarte = totalcarte + numero
                    Else
                        numero = numero * 2
                        If numero >= 10 Then
                            totalcarte = totalcarte + 1 + numero - 10
                        Else
                            totalcarte = totalcarte + numero
                        End If
                    End If
                Next

                If totalcarte Mod 10 <> 0 Then
                    bValid = False
                Else
                    bValid = True
                End If
            ElseIf DDLtypeCarte = "EuroCard" Then
                bValid = True
                Dim number As String = ""
                ' make sure there are only numbers in the string... 
                number = fKeepOnlyDigits(TxtNumCarte)
                Dim chiffre1 As String = Mid(number, 1, 1)
                Dim chiffre2 As String = Mid(number, 2, 1)
                Dim longueur As Integer = Len(number)
                If chiffre1 <> "5" Or chiffre2 < "1" Or chiffre2 > "5" Then
                    bValid = False
                End If
                '--| anne : longueur du numero carte > 16
                'if longueur = 16 then
                If longueur <> 16 Then
                    bValid = False
                End If
            End If
            Return bValid
        End Function

        Public Function fKeepOnlyDigits(ByVal TxtNumCarte As String) As String
            Dim sResults As String = TxtNumCarte
            Dim i As Integer = 1
            While i <= Len(sResults)
                If InStr(tmp_digits, Mid(sResults, i, 1)) > 0 Then
                    i = i + 1
                Else
                    sResults = Left(sResults, i - 1) + Mid(sResults, i + 1)
                End If
            End While
            Return sResults
        End Function
    End Class

End Namespace

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_vladam)