Algorithme de clé RIB

Version imprimable

12/06/2008, 11h43
zooffy

Algorithme de clé RIB

Salut

Je suis à la recherche d'un algorythme de validation de saise de RIB.
Je vais partir en quête avec mon ami GOOGLE, mais je voulais poster ici, histoire de dire, si y en a un parmi vous qui déjà ça en VB tout propre, ben ça serait cool, non ?

Merci d'avance.

tu as de la chance, j'ai justement eu besoin de faire ça il y a quelques semaines... (c'est en C#, je te laisse le soin de convertir)

Code:

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
        private static Regex regex_rib;
 
        /// <summary>
        /// Vérifie la validité d'un RIB
        /// </summary>
        /// <param name="rib">Le RIB à vérifier</param>
        /// <returns>true si le RIB est valide, false sinon</returns>
        public static bool IsValidRib(string rib)
        {
            // Suppression des espaces et tirets
            string tmp = rib.Replace(" ", "").Replace("-", "");
 
            // Vérification du format BBBBBGGGGGCCCCCCCCCCCKK
            // B : banque
            // G : guichet
            // C : numéro de compte
            // K : clé RIB
            if (regex_rib == null)
            {
                regex_rib = new Regex(@"(?<B>\d{5})(?<G>\d{5})(?<C>\w{11})(?<K>\d{2})", RegexOptions.Compiled);
            }
            Match m = regex_rib.Match(tmp);
            if (!m.Success)
                return false;
 
            // Extraction des composants
            string b_s = m.Groups["B"].Value;
            string g_s = m.Groups["G"].Value;
            string c_s = m.Groups["C"].Value;
            string k_s = m.Groups["K"].Value;
 
            // Remplacement des lettres par des chiffres dans le numéro de compte
            StringBuilder sb = new StringBuilder();
            foreach (char ch in c_s.ToUpper())
            {
                if (char.IsDigit(ch))
                    sb.Append(ch);
                else
                    sb.Append(RibLetterToDigit(ch));
            }
            c_s = sb.ToString();
 
            // Séparation du numéro de compte pour tenir sur 32bits
            string d_s = c_s.Substring(0, 6);
            c_s = c_s.Substring(6, 5);
 
            // Calcul de la clé RIB
            // Algo ici : http://fr.wikipedia.org/wiki/Clé_RIB#Algorithme_de_calcul_qui_fonctionne_avec_des_entiers_32_bits
 
            int b = int.Parse(b_s);
            int g = int.Parse(g_s);
            int d = int.Parse(d_s);
            int c = int.Parse(c_s);
            int k = int.Parse(k_s);
 
            int calculatedKey = 97 - ((89 * b + 15 * g + 76 * d + 3 * c) % 97);
 
            return (k == calculatedKey);
        }
 
        /// <summary>
        /// Convertit une lettre d'un RIB en un chiffre selon la table suivante :
        /// 1 2 3 4 5 6 7 8 9
        /// A B C D E F G H I
        /// J K L M N O P Q R
        /// _ S T U V W X Y Z
        /// </summary>
        /// <param name="c">La lettre à convertir</param>
        /// <returns>Le chiffre de remplacement</returns>
        public static char RibLetterToDigit(char letter)
        {
            if (letter >= 'A' && letter <= 'I')
            {
                return (char)(letter - 'A' + '1');
            }
            else if (letter >= 'J' && letter <= 'R')
            {
                return (char)(letter - 'J' + '1');
            }
            else if (letter >= 'S' && letter <= 'Z')
            {
                return (char)(letter - 'S' + '2');
            }
            else
                throw new ArgumentOutOfRangeException("Le caractère à convertir doit être une lettre majuscule dans la plage A-Z");
        }

12/06/2008, 12h33
zooffy

Merci beaucoup, je vais utiliser le site de translation de code C# --> VB pour faire la traduction.

J'ai juste une petite question annexe sur les RegExpr

Je ne comprends pas le "" dans ce morceau là "(?\d{5})"

Faut dire aussi que je suis pas trés fort en RegExpr
Si j'ai bien suivi, cette RegExpr sert à véririfer qu'il y bien 5 caractères numérique et pas autre chose, donc pas moins de caractère et pas de lettre, c'est ça ?
12/06/2008, 13h25
MaT$oN

Le signifie le code Banque !
Le code Banque ne doit effectivement pas dépasser plus de 5 caractères et seulement des numériques.

J'ai juste un problème sur cette fonction et vu que je capte pas un broque de C# je vois aps comment m'en sortir.

Voici le code traduit de la fonction d'origine en C#
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Shared Function RibLetterToDigit(ByVal letter As Char) As Char If letter >= "A"c AndAlso letter <= "I"c Then Return CChar((letter - "A"c + "1"c)) ElseIf letter >= "J"c AndAlso letter <= "R"c Then Return CChar((letter - "J"c + "1"c)) ElseIf letter >= "S"c AndAlso letter <= "Z"c Then Return CChar((letter - "S"c + "2"c)) Else Throw New ArgumentOutOfRangeException("Le caractère à convertir doit être une lettre majuscule dans la plage A-Z") End If End Function
Le problème se pose sur

Code:

letter - "A"c

et sur les deux autres lignes pareille.
Le message est :

Citation:

L'opérateur '-' n'est pas défini pour les types 'Char' et 'Char'.

Sauf je n'ai jamais utilisé ces trucs là et donc je capte rien.

12/06/2008, 13h30
tomlev

l'expression "(?<nom>motif)" est un groupe de capture nommé : ça veut dire que la chaine correspondant au motif sera capturé sous le nom nom
12/06/2008, 13h31
zooffy

Citation:

Envoyé par MaT$oN

Le signifie le code Banque !
Le code Banque ne doit effectivement pas dépasser plus de 5 caractères et seulement des numériques.

Merci pour ton aide.
J'avais plus ou moins compris ça pour le , mais je ne comprends pas son utilisation. En gros : est ce que c'est le principe d'une varaible et si oui, comment on la charge ?

Autre point sur le nombre de caractère : est ce que avec ça je peux définir précisément qu'il faut 5 caractères obligatoire, donc si le champ est vide (dans le cas où je ne mets que ça dans l'expression) me faut il un RequiredFieldValidator en plus ?
12/06/2008, 13h33
zooffy

Citation:

Envoyé par tomlev

l'expression "(?<nom>motif)" est un groupe de capture nommé : ça veut dire que la chaine correspondant au motif sera capturé sous le nom nom

Donc en fait, c'est le contraire de ce que j'ai dit ?
Si je reformule, pour être de bien comrpendre, j'envoi une chaine et dans cette chaine je découpe des trucs et je colle une étiquette à chaque morceaux, j'ai bon ?
Et donc, plus loin dans mon code je bricole ce que je veux avec mes bouts grâce à leur étiquette. J'ai toujours bon ?
12/06/2008, 13h34
tomlev

Bizarre... pourtant C# est généralement plus strict que VB sur les conversions implicites
Essaie de convertir les char en short pour faire la soustraction :

Code:

Return CChar((CShort(letter) - CShort("A"c) + CShort("1"c)))
12/06/2008, 13h35
tomlev

Citation:

Envoyé par zooffy

Si je reformule, pour être de bien comrpendre, j'envoi une chaine et dans cette chaine je découpe des trucs et je colle une étiquette à chaque morceaux, j'ai bon ?
Et donc, plus loin dans mon code je bricole ce que je veux avec mes bouts grâce à leur étiquette. J'ai toujours bon ?

tout à fait
12/06/2008, 14h18
zooffy

Citation:

Envoyé par tomlev

Bizarre... pourtant C# est généralement plus strict que VB sur les conversions implicites
Essaie de convertir les char en short pour faire la soustraction :

Code:

Return CChar((CShort(letter) - CShort("A"c) + CShort("1"c)))

En fait, en laissant VS travailler un epu, il me dit qu'il préfère ça :

Code:

Return CChar(ChrW((CShort(AscW(letter)) - CShort(AscW("A"c)) + CShort(AscW("1"c)))))

Donc, ne comprenant pas du tout à quoi ça correspond, je le laisse faire.
Reste plus qu'à trouver un RIB avec des lettres qui tient le route pour faire un test.

En tout cas, merci pour le coup de main.
Je fais le test et je boucle.
12/06/2008, 14h34
tomlev

Effectivement AscW est plus adapté que CShort
D'ailleurs tu n'as pas besoin de mettre les 2, je pense que tu peux supprimer les CShort
12/06/2008, 14h58
zooffy
euh, j'ai encore un petit souci, mais vuq ue j'ai pas codé à la base, j'avoue être un poil perdu. Mais en plus, je me demande C# ne gère pas différement de VB ce genre de chose.
Posons le code :
Code:

1 2 3 4 ' Séparation du numéro de compte pour tenir sur 32bits Dim d_s As String = c_s.Substring(0, 6) c_s = c_s.Substring(6, 5)
Là, il me dit :

Citation:

L'index et la longueur doivent faire référence à un emplacement situé dans la chaîne.
Nom du paramètre : length

Alors, je peux modifier les index, pas trop de soucis, mais j'ai du mal à capter comment il découpe la chaine en deux. Qu'est qu'il mets en premier et qu'est ce qu'il mets en second.
12/06/2008, 15h12
zooffy

Toutes mes plus molles excuses pôur cette bourde de débutant.
il me remonte ce mesage d'erreur aprce que j'ai oublié un quote sur la transformation de la letre en chiffre.
Déoslé

Par contre, l'algorythme ne fonctionne pas.

Je viens de lancer mon premier vrai test avec un RIB qui contient une lettre et il me retroune False.

Est ce que nos amis AscW n'y serait pas pour quelque chose ?
12/06/2008, 15h14
tomlev

Citation:

Envoyé par zooffy

je me demande C# ne gère pas différement de VB ce genre de chose.

Certainement pas : la classe String est la même quelle que soit le langage à partir duquel tu l'utilises

Citation:

Envoyé par zooffy

j'ai du mal à capter comment il découpe la chaine en deux. Qu'est qu'il mets en premier et qu'est ce qu'il mets en second.

Ca met les 6 premiers caractères du numéro de compte dans une variable, et les 5 derniers dans une autre. De façon à ce que les nombres représentés par ces chaînes tiennent sur 32bits (cf. le lien dans les commentaires du code)

A mon avis ton erreur est liée au fait que la chaîne c_s ne fait pas 11 caractères comme prévu... essaie de debugger pas-à-pas
12/06/2008, 15h28
zooffy

Bon, je veins de faire des essais avec 4 RIB différents, deux avec lettre et deux sans lettre.

Ben ça marche pas. Il me remonte toujours False

Que faire ?
12/06/2008, 15h46
tomlev

Pourtant l'algo est correct, je l'utilise... T'es sûr qu'ils sont bons tes RIB ?
Essaie d'exécuter pas-à-pas pour voir à quel niveau ça déconne

Et fais voir ta traduction VB de l'algo

Je mets le traduction VB en bas de message.

Les RIB testés sont ceux de ma boite et un des ASSEDIC, je pense qu'ils doivent être bons.

Pour le mode pas à pas, je peux pas. Je travail sur une serveur et le mode Pas à Pas ne fonctionne pas, on pas trouvé le moyen de faire en sorte que ça marche bien.

Voilà le code

Code:

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
72
73
74
75
76
77
78
79
80
 
	Private Shared regex_rib As Regex
 
	''' <summary> 
	''' Vérifie la validité d'un RIB 
	''' </summary> 
	''' <param name="rib">Le RIB à vérifier</param> 
	''' <returns>true si le RIB est valide, false sinon</returns> 
	Public Shared Function IsValidRib(ByVal rib As String) As Boolean
		' Suppression des espaces et tirets 
		Dim tmp As String = rib.Replace(" ", "").Replace("-", "")
 
		' Vérification du format BBBBBGGGGGCCCCCCCCCCCKK 
		' B : banque 
		' G : guichet 
		' C : numéro de compte 
		' K : clé RIB 
		If regex_rib Is Nothing Then
			regex_rib = New Regex("(?<B>\d{5})(?<G>\d{5})(?<C>\w{11})(?<K>\d{2})", RegexOptions.Compiled)
		End If
		Dim m As Match = regex_rib.Match(tmp)
		If Not m.Success Then
			Return False
		End If
 
		' Extraction des composants 
		Dim b_s As String = m.Groups("B").Value
		Dim g_s As String = m.Groups("G").Value
		Dim c_s As String = m.Groups("C").Value
		Dim k_s As String = m.Groups("K").Value
 
		' Remplacement des lettres par des chiffres dans le numéro de compte 
		Dim sb As New StringBuilder()
		For Each ch As Char In c_s.ToUpper()
			If Char.IsDigit(ch) Then
				sb.Append(ch)
			Else
				sb.Append(RibLetterToDigit(ch))
			End If
		Next
		c_s = sb.ToString()
 
		' Séparation du numéro de compte pour tenir sur 32bits 
		Dim d_s As String = c_s.Substring(0, 6)
		c_s = c_s.Substring(6, 5)
 
		' Calcul de la clé RIB 
		' Algo ici : http://fr.wikipedia.org/wiki/Clé_RIB#Algorithme_de_calcul_qui_fonctionne_avec_des_entiers_32_bits 
 
		Dim b As Integer = Integer.Parse(b_s)
		Dim g As Integer = Integer.Parse(g_s)
		Dim d As Integer = Integer.Parse(d_s)
		Dim c As Integer = Integer.Parse(c_s)
		Dim k As Integer = Integer.Parse(k_s)
 
		Dim calculatedKey As Integer = 97 - ((89 * b + 15 * g + 76 * d + 3 * c) Mod 97)
 
		Return (k = calculatedKey)
	End Function
 
	''' <summary> 
	''' Convertit une lettre d'un RIB en un chiffre selon la table suivante : 
	''' 1 2 3 4 5 6 7 8 9 
	''' A B C D E F G H I 
	''' J K L M N O P Q R 
	''' _ S T U V W X Y Z 
	''' </summary> 
	''' <param name="letter">La lettre à convertir</param> 
	''' <returns>Le chiffre de remplacement</returns> 
	Public Shared Function RibLetterToDigit(ByVal letter As Char) As Char
		If letter >= "A"c AndAlso letter <= "I"c Then
			Return CChar(ChrW((AscW(letter) - AscW("A"c) + AscW("1"c))))
		ElseIf letter >= "J"c AndAlso letter <= "R"c Then
			Return CChar(ChrW((AscW(letter) - AscW("J"c) + AscW("1"c))))
		ElseIf letter >= "S"c AndAlso letter <= "Z"c Then
			Return CChar(ChrW((AscW(letter) - AscW("S"c) + AscW("1"c))))
		Else
			Throw New ArgumentOutOfRangeException("Le caractère à convertir doit être une lettre majuscule dans la plage A-Z")
		End If
	End Function

12/06/2008, 16h35
zooffy

Bon, je veins de refaire tous les test en maintenant ça marche trés bien.

Je n'ai pas d'explication logique, sauf une recompilation du projet.
C'est la seule chose qui c'est passsée dans mon code.

Bref, ça marche alors je boucle.

Encore une grand merci

Mon nouvel ami, c'est plus GOOGLE, c'est tomlev :king:

Kenavo

PS : tomlev, tu ferais pas dans la 3D par hasard ?
12/06/2008, 17h03
tomlev

Citation:

Envoyé par zooffy

PS : tomlev, tu ferais pas dans la 3D par hasard ?

non, j'y connais rien du tout...

pour un RIB en 4 partie

Citation:

Envoyé par zooffy

Bon, je veins de refaire tous les test en maintenant ça marche trés bien.

Je n'ai pas d'explication logique, sauf une recompilation du projet.
C'est la seule chose qui c'est passsée dans mon code.

Bref, ça marche alors je boucle.

Encore une grand merci

Mon nouvel ami, c'est plus GOOGLE, c'est tomlev :king:

Kenavo

PS : tomlev, tu ferais pas dans la 3D par hasard ?

je viens de de découper le code pour pouvoir vérifier les RIB en 4 partie.

Code:

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
        private static Regex regex_rib;
 
        /// <summary>
        /// Vérifie la validité d'un RIB
        /// </summary>
        /// <param name="rib">Le RIB à vérifier</param>
        /// <returns>true si le RIB est valide, false sinon</returns>
        public static bool IsRibValid(string rib)
        {
            // Suppression des espaces et tirets
            string tmp = rib.Replace(" ", "").Replace("-", "");
 
            // Vérification du format BBBBB GGGGG CCCCCCCCCCC KK
            // B : banque
            // G : guichet
            // C : numéro de compte
            // K : clé RIB
            if (regex_rib == null)
            {
                regex_rib = new Regex(@"(?<B>\d{5})(?<G>\d{5})(?<C>\w{11})(?<K>\d{2})", RegexOptions.Compiled);
            }
            Match m = regex_rib.Match(tmp);
            if (!m.Success)
                return false;
 
            // Extraction des composants
            string b_s = m.Groups["B"].Value;
            string g_s = m.Groups["G"].Value;
            string c_s = m.Groups["C"].Value;
            string k_s = m.Groups["K"].Value;
 
            return IsRibValid(b_s, g_s, c_s, k_s);
        }
 
        /// <summary>
        ///  Vérifie la validité d'un RIB
        /// </summary>
        /// <param name="CodeBanque">le code le la Banque</param>
        /// <param name="CodeGuichet">le code du guichet</param>
        /// <param name="NCompte">le N° de compte</param>
        /// <param name="Clef">la clef de verification</param>
        /// <returns>true si le RIB est valide, false sinon</returns>
        private static bool IsRibValid(string CodeBanque, string CodeGuichet, string NCompte, string Clef)
        {
            // Remplacement des lettres par des chiffres dans le numéro de compte
            StringBuilder sb = new StringBuilder();
            foreach (char ch in NCompte.ToUpper())
            {
                if (char.IsDigit(ch))
                    sb.Append(ch);
                else
                    sb.Append(RibLetterToDigit(ch));
            }
            NCompte = sb.ToString();
 
            // Séparation du numéro de compte pour tenir sur 32bits
            string NCompte_start = NCompte.Substring(0, 6);
            string NCompte_End = NCompte.Substring(6, 5);
 
            // Calcul de la clé RIB
            // Algo ici : http://fr.wikipedia.org/wiki/Clé_RIB #Algorithme_de_calcul_qui_fonctionne_avec_des_entiers_32_bits
 
            int _CodeBanque = int.Parse(CodeBanque);
            int _CodeGuichet = int.Parse(CodeGuichet);
            int _NCompte_start = int.Parse(NCompte_start);
            int _NCompte_End = int.Parse(NCompte_End);
            int _Clef = int.Parse(Clef);
 
            int _CalculatedKey = 97 - ((89 * _CodeBanque + 15 * _CodeGuichet + 76 * _NCompte_start + 3 * _NCompte_End) % 97);
 
            return (_Clef == _CalculatedKey);
        }
 
        /// <summary>
        /// Convertit une lettre d'un RIB en un chiffre selon la table suivante :
        /// 1 2 3 4 5 6 7 8 9
        /// A B C D E F G H I
        /// J K L M N O P Q R
        /// _ S T U V W X Y Z
        /// </summary>
        /// <param name="c">La lettre à convertir</param>
        /// <returns>Le chiffre de remplacement</returns>
        public static char RibLetterToDigit(char letter)
        {
            if (letter >= 'A' && letter <= 'I')
            {
                return (char)(letter - 'A' + '1');
            }
            else if (letter >= 'J' && letter <= 'R')
            {
                return (char)(letter - 'J' + '1');
            }
            else if (letter >= 'S' && letter <= 'Z')
            {
                return (char)(letter - 'S' + '2');
            }
            else
                throw new ArgumentOutOfRangeException("Le caractère à convertir doit être une lettre majuscule dans la plage A-Z");
        }