Carte bancaire (1ere partie)
Ce texte est fait sur mac et donc certains détails sont plus precis sur mac. Mais ça marche sur toutes les plates-formes alors lisait quand même ;-)
Vous avez besoin d'un interpreteur basic :
- Sur PC y a : GWBasic, QBasic... (si vous avez Windows 9.x vous pourrez trouver QBasic sur le CD)
- Sur Mac y a : Chipmunk_Basic (disponible sur le CD UniversMacworld n° 85, METAL est disponible sur internet il permet de compiler le prog)
- Sur RiscOS y a : Y a basic
- Sur les autres Unix y a : ben dites-moi car la moi j'sais pas :) |
Tableau des valeurs des chiffres sur la CB
|
Code bancaire
|
A
|
B
|
B
|
B
|
B
|
B
|
C
|
C
|
C
|
C
|
C
|
C
|
C
|
C
|
D
|
D
|
|
Valeur numero 0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
|
Valeur numero 1
|
2
|
1
|
2
|
1
|
2
|
1
|
2
|
1
|
2
|
1
|
2
|
1
|
2
|
1
|
2
|
1
|
|
Valeur numero 2
|
4
|
2
|
4
|
2
|
4
|
2
|
4
|
2
|
4
|
2
|
4
|
2
|
4
|
2
|
4
|
2
|
|
Valeur numero 3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
|
Valeur numero 4
|
8
|
4
|
8
|
4
|
8
|
4
|
8
|
4
|
8
|
4
|
8
|
4
|
8
|
4
|
8
|
4
|
|
Valeur numero 5
|
1
|
5
|
1
|
5
|
1
|
5
|
1
|
5
|
1
|
5
|
1
|
5
|
1
|
5
|
1
|
5
|
|
Valeur numero 6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
3
|
6
|
|
Valeur numero 7
|
5
|
7
|
5
|
7
|
5
|
7
|
5
|
7
|
5
|
7
|
5
|
7
|
5
|
7
|
5
|
7
|
|
Valeur numero 8
|
7
|
8
|
7
|
8
|
7
|
8
|
7
|
8
|
7
|
8
|
7
|
8
|
7
|
8
|
7
|
8
|
|
Valeur numero 9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
9
|
A = Type de la carte
3 = American Express
4 = Visa
5 = Mastercard
BBBBB = Numero du guichet de la banque d'ou vient la
carte
CCCCCCCC = Numero de la carte
DD = une clef qui permet de verifier le numero
Exemple :
Carte numero : 332456789512346 <--- Il ne marche pas
:)
Valeur de la carte : 6344165895226586
Bon, alors pour qu’une carte soit valide, il faut que ce soit
un multiple de 10
6+3+4+4+1+6+5+8+9+5+2+2+6+5+8+6 = 80
Donc dans la logique y serait juste. Mais y a la clef qui non. :-(
Vous allez me dire mais comment on peut voir plus rapidement que le numero
sur la carte = multiple de 10. Ben vous avez 2 choix soit vous avez le livre
de pirates mag' ou y a le prog, soit vous executer le prog de pirates mag' qu'y
a dessous ;-)
10 PRINT
20 INPUT "numero de la carte a verifier : ";NUM$
30 FOR I=1 TO 16 STEP 2
40 VALEUR=VAL(MID$(NUM$,I,1))
50 VALEUR=VALEUR*2
60 IF VALEUR>9 THEN VALEUR=VALEUR-9
70 TOTAL=TOTAL+VALEUR+VAL(MID$(NUM$,I+1,1))
80 NEXT I
90 PRINT "Total = ";TOTAL
Donc si j’ai un numero de carte qui a un total qui est
un multiple de 10, j'en fais quoi parcequ'y peut etre faux. Ben ouais
c la qu'interviennent les "REGISTER" que l'on trouve avec certaines Apps
(Sur mac regardez sur les CD d'Univers MACWORLD y en a souvent avec les emulateurs
et aussi avec les apps de physique tel que YP projectiles, YP manivelle,...)
Bon si vous trouvez pas utilisez une demo d'Adobe ou l'on peut
commander. Car la vous faites les manips pour votre adresse et tous le
baratins et a un moment y vous demande votre numero de Cartes,
bon ben vous mettez le numero que vous avez trouve. Et vous voyez
si ca marche. J'trouve que je vous mache le boulot :). Voila et si c'est bon
vous avez un numero.
Bon dernier petit truc avec un numero vous pouvez en trouver beaucoup
plus :)))))
Imaginez que notre numero marche bon vous inversez deux chiffres :
6344165895226586 = 80
6344165895226685 = 80
vous inversez un chiffre avec celui qui a un decalage
d'un multiple de 2, mais vous faites quand meme gaffe a pas inverser
le premier chiffre avec un de ces multiples :).
Inferno_of_Dante
| 
