Calcul du n° de carte de crédit à 16 chiffres

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 852 fois - Téléchargée 41 fois

Contenu du snippet

Permet de vérifier le code d'une carte de crédit et ...
A utiliser à des fins éducatives exclusivement.

Source / Exemple :


'---------------------------------------------------
' Ouvrir un nouveau projet
' Mettre un maskeditbox sur la feuille nommé Code
' Mettre un bouton Command1
' Mettre un label  Label1
' Coller ce code dans la feuille
'----------------------------------------------------
Private Sub Command1_Click()
Dim i As Integer
Dim i_Chiffre As Integer
Dim i_Total As Integer
i_Total = 0
For i = 1 To 16
    i_Chiffre = Mid(code.Text, i, 1)
    If impair(i) Then
       i_Chiffre = i_Chiffre * 2
    Else
       i_Chiffre = i_Chiffre * 1
    End If
    If i_Chiffre > 9 Then
       i_Chiffre = i_Chiffre - 9
    End If
    i_Total = i_Total + i_Chiffre
    
Next
If (i_Total / 10) = Int(i_Total / 10) Then
   Label1.Caption = "Code correct"
   Label1.ForeColor = QBColor(9)
Else
   Label1.Caption = "code incorrect"
   Label1.ForeColor = QBColor(4)
End If
Label1.Refresh
End Sub

Function impair(nombre)
    If (nombre / 2) <> Int(nombre / 2) Then
       impair = True
    Else
       impair = False
    End If
End Function

A voir également

Ajouter un commentaire

Commentaires

fkiller001
Messages postés
25
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
13 juin 2003
-
Petite question juridique : qu'es qui est illegal ? de faire un generateur de N° de CB ou de s'en servire ?
fkiller001
Messages postés
25
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
13 juin 2003
-
ton code a 1 seul tout petit defaut il ne tien compte que des 16 premier chiffre (oui je sait le CB n'ont que 16 chiffre ), il aurai fallut rajoute un truc comme sa :

if len(code.text) > 16 then
label1.caption = "le nombre de caractere est trop important, ne separer pas les caracteres par des espace ou autre. merci."
exit function
cs_Stormy
Messages postés
255
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
16 janvier 2007
-
G vu d'autres interprétations de la clé de Lunh un peu plus complexe mais tant que ça marche pkoi pas!!! L'algo de la date d'expiration on s'en fiche puisque cela ne rentre pas en compte. Tu peux mettre ce que tu veux dans la mesure où il s'agit d'une date [année+2]max. c un flare. Lol
cs_khalilo
Messages postés
71
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
12 mai 2004
-
Je trouve que C pas dangereux mais par contre tout l'algo avec le code secret et la date d'expiration ça le saurait!!!!!

@+ et bonne prog
cs_labout
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
4 -
Je n'ai pas tout dit !!!!

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.