POUR VERIFIER LES NUMEROS DE CARTE BANCAIRE

yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
- 6 juin 2002 à 17:58
c00ol
Messages postés
40
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
9 septembre 2007
- 27 nov. 2003 à 19:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3534-pour-verifier-les-numeros-de-carte-bancaire

c00ol
Messages postés
40
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
9 septembre 2007

27 nov. 2003 à 19:05
Ouech c geniale kan on y pense GG c tou cour et sa fonctionne;) bien jouer mec ++
cs_thebigbang
Messages postés
196
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
25 juillet 2006

7 juin 2002 à 22:33
pour ceux qui veulent un générateur infini de numéros de cartes bancaires, mailez-moi à bigbang44@free.fr et merci de mettre "cbgen" dans le sujet

A++

bigbang
bigbang44@free.fr
apxa
Messages postés
188
Date d'inscription
mercredi 15 mai 2002
Statut
Membre
Dernière intervention
25 avril 2009

7 juin 2002 à 10:23
tiens voila une maniere plus courte pour t'a verification :)

/** POUR VB .NET **/
Private Function verifcode(ByVal numCB As String) As Boolean
Dim result As Boolean
result = False
If numCB.Length = 16 Then
Dim nb1 As Integer
Dim nb2 As Integer
Dim tmp As Integer
nb1 = 0
nb2 = 0
For cnt = 1 To 16
tmp = CInt(Val(Mid$(numCB, cnt, 1)))
If ((cnt - 1) Mod 2) = 0 Then
If (tmp * 2) > 9 Then
nb1 = nb1 + 1 + ((tmp * 2) - 10)
Else
nb1 = nb1 + (tmp * 2)
End If
Else
nb2 = nb2 + tmp
End If
Next cnt
If Not ((nb1 + nb2) 0) And ((nb1 + nb2) Mod 10) 0 Then
result = True
End If
Catch e As Exception
End Try
End If
verifcode = result
End Function

/** POUR VB 6 **/
Private Function verifcode(ByVal numCB As String) As Boolean
Dim result As Boolean
result = False
If Len(numCB) = 16 Then
Dim nb1 As Integer
Dim nb2 As Integer
Dim tmp As Integer
nb1 = 0
nb2 = 0
For cnt = 1 To 16
tmp = CInt(Val(Mid$(numCB, cnt, 1)))
If ((cnt - 1) Mod 2) = 0 Then
If (tmp * 2) > 9 Then
nb1 = nb1 + 1 + ((tmp * 2) - 10)
Else
nb1 = nb1 + (tmp * 2)
End If
Else
nb2 = nb2 + tmp
End If
Next cnt
If Not ((nb1 + nb2) 0) And ((nb1 + nb2) Mod 10) 0 Then
result = True
End If
End If
verifcode = result
End Function
NeoFO
Messages postés
30
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
18 juin 2002

7 juin 2002 à 08:48
Bonne idée, je n'y avais pas pensé.
Merci
Robinwood01
Messages postés
153
Date d'inscription
jeudi 25 avril 2002
Statut
Membre
Dernière intervention
3 juillet 2014

7 juin 2002 à 08:01
Pas mal du tout ... Mais change ca :
Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then Text2.SetFocus
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) = 4 Then Text3.SetFocus
If Len(Text2.Text) = 0 Then Text1.SetFocus
End Sub

Private Sub Text3_Change()
If Len(Text3.Text) = 4 Then Text4.SetFocus
If Len(Text3.Text) = 0 Then Text2.SetFocus
End Sub

Private Sub Text4_Change()
If Len(Text4.Text) = 0 Then Text3.SetFocus
End Sub

Pour que lorsque l'on c'est trompé on ne sois pas obligé de remprendre la souris ou de faire alt + tab.

http://www.robisoft.fr.st (Prog SMS, JPG, Install)
Afficher les 7 commentaires