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