TESTER LA VALIDITÉ D'UN NUMÉRO DE CARTE DE CRÉDIT

---

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

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  

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  

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

• AFFICHER LE CONTENU ENTIER D'UNE TABLE
• RÉCUPÉRER LE RÉSULTAT D'UNE REQUÈTE SQL
• CONNECTION À UNE BASE DE DONNÉE ACCESS
• LE VBS ?? - PART III: TRAVAILLER SUR DES DONNÉES STRING (TEXTE)
• FORUM[FONCTION RÉCURSIVES] - TYPE1: STYLE ASPFR

• GESTION D'UN PANIER DE COMMERCE ÉLECTRONIQUE
• E-COMMERCE ASP.NET
• MISE EN FORME DE PRIX POUR AFFICHAGE