1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| 'recherche d'un chiffre
'on isole le 1° bit de la cle et on le met dans x
Dim x As Integer
x = Mid(TextBox3.Text, 1, 1)
'traitement de donnée rentre avec ? on le remplace par 0 pour pas coinser le tout
Dim cbehs As String
Dim cbehs1 As String
cbehs = TextBox1.Text
cbehs1 = Replace(cbehs, "?", "0")
'lecture du code
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim m As String
Dim f As String
Dim g As String
Dim h As String
Dim k As String
Dim l As String
Dim o As String
Dim n As String
Dim i As Integer
For i = 0 To 9 Step 1
'calcule de la clé
a = Mid(cbehs1, 1, 1)
b = Mid(cbehs1, 2, 1)
c = Mid(cbehs1, 3, 1)
d = Mid(cbehs1, 4, 1)
m = Mid(cbehs1, 5, 1)
f = Mid(cbehs1, 6, 1)
g = Mid(cbehs1, 7, 1)
h = Mid(cbehs1, 8, 1)
k = Mid(cbehs1, 9, 1)
l = Mid(cbehs1, 7, 1)
o = Mid(cbehs1, 8, 1)
n = Mid(cbehs1, 9, 1)
'calcule de la clé 1° bits
Dim som1 As Integer
Dim som11 As Integer
Dim som12 As Integer
Dim som13 As Integer
'calcul de la cle avec i en plus
som1 = (Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) + Val(k) + Val(l) + Val(o) + Val(n) + i)
som11 = Int(som1 / 11)
som12 = som11 * 11
som13 = som1 - som12
'boucle de recherche quand x a la meme valeur que som13 je sort
If x = som13 Then Exit For
'affichage du resultat
MsgBox("Chiffre trouvé " & i)
'on continue
Next i
End Sub |
