Tester la validité d'un numéro de carte de crédit

Commenter

Contenu du snippet

Lors de vos transactions si votre client doit donner son numéro de crédit il faut bien pouvoir vérifier si il est valide un minimum... C'est pourquoi voici une fonction qui utilise la clé de Luhn (pour les connaisseurs).

Pour plus d'infos sur la clé de Luhn allez voir cette URL:
http://parodie.com/monetique/verifcle.htm

Source / Exemple : 


Function CheckNCB(wNCB)
    Dim Total
    Dim ThisN
    
    Dim I
    For I = 1 To Len(wNCB)
        ThisN = Mid(wNCB, I, 1)
    
        If I / 2 = Int(I / 2) Then
            Total = Total + ThisN
            
            
        Else
            
            If ThisN * 2 > 9 Then
                Total = Total + (ThisN * 2 - 9)
            Else
                Total = Total + ThisN * 2
            End If
        End If
    
    Next I
    
    If Total / 10 = Int(Total / 10) Then
        CheckNCB=1
    Else
        CheckNCB=0
    End If

End Function

Conclusion :


C'est aussi cours que ca!
C'est un algorythme super simple!
Cette fonction ne vérifie que la validité du numéro mais ne vérifie pas si le numéro est bien attribuer à quelqu'un ;)

A#
vBt0m.

PS: ca renvoie 1 si le num est correct sinon 0

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 (vbtom)