Basic Bank Account Number

La notion de RIB a été officiellement abolie avec le passage au format SEPA[1]. Néanmoins ce terme est encore largement utilisée pour désigner l'IBAN (International Bank Account Number) qui permet d'identifier un compte à l'international. Aujourd'hui les comptes bancaires français disposent du relevé d'identité bancaire qui comporte : l'IBAN, le RIB et le BIC. En Europe, l'IBAN est suffisant pour opérer des opérations bancaires SEPA (prélèvement et virement)[2].

En France, l'IBAN est inscrit sur le relevé de compte du compte en question[3].

La réglementation SEPA entraîne l'impossibilité d'utiliser le RIB pour des opérations bancaires, l'IBAN étant nécessaire et suffisant. Les virements et prélèvements nationaux et européens sont soumis aux mêmes frais et aux mêmes droits et devoirs. Il est également possible d'utiliser l'IBAN d'un autre pays européen dans son propre pays.

Les établissements de crédit (BNP Paribas, Société générale, Crédit agricole…), les établissements de paiement (Nickel par exemple) ainsi que les établissements de monnaie électronique (Paypal, Treezor…) ont la faculté de délivrer des IBAN.

La validité d'un RIB se calcule grâce à la clé de celui-ci.

La première étape consiste à remplacer les lettres présentes par des chiffres pour faciliter le calcul.

Pour faire la transformation, il suffit de se placer en base 36 (base 10 + 26 lettres) et d'appliquer le calcul suivant sur chaque caractère (transformé en nombre currentCharValue) puis de remplacer le sélectionné par le nombre donné :

${\displaystyle {\text{currentCharValue}}+2^{\frac {{\text{currentCharValue}}-10}{9}}{\pmod {10}}}$

L'étape suivante (facultative) consiste à décomposer le code et multiplier chaque partie par une constante et en faire la somme. Enfin, le code est correct si le nombre obtenu (soit par simple concaténation de nos différentes parties, soit par décomposition) est congru à 0 modulo 97.

${\displaystyle {\text{bankCode}}*89+{\text{counter}}*15+{\text{account}}*3+{\text{key}}\equiv 0{\pmod {97}}}$

La fonction check_rib retourne vrai ou faux en fonction de la validité des informations.

 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
 
            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="letter">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");
        }

Avec :

• $cbanque : code de la banque
• $cguichet : code du guichet
• $nocompte : numéro de compte
• $clerib : clé rib

    use Math::BigInt;
    my %letter_substitution = ("A" => 1, "B" => 2, "C" => 3, "D" => 4, "E" => 5, "F" => 6, "G" => 7, "H" => 8, "I" => 9,
                               "J" => 1, "K" => 2, "L" => 3, "M" => 4, "N" => 5, "O" => 6, "P" => 7, "Q" => 8, "R" => 9,
                                         "S" => 2, "T" => 3, "U" => 4, "V" => 5, "W" => 6, "X" => 7, "Y" => 8, "Z" => 9); 
    my $tabcompte = ""; 
    my $len = length($nocompte);
    return 0 if ($len != 11);
    for (my $i = 0; $i < $len; $i++) {
        my $car = substr($nocompte, $i, 1); 
        if ($car !~ m/^\d$/) {
            my $b = $letter_substitution{uc($car)};
            my $c = ( $b + 2**(($b - 10)/9) ) % 10; 
            $tabcompte .= $c; 
        } else {
            $tabcompte .= $car;
        }   
    }   
    my $int = "$cbanque$cguichet$tabcompte$clerib";
    return (length($int) >= 21 && Math::BigInt->new($int)->bmod(97) == 0) ? 1 : 0;

La fonction check_rib retourne vrai ou faux en fonction de la validité des informations.

function check_rib($cbanque, $cguichet, $nocompte, $clerib) {
	$tabcompte = "";
	$len = strlen($nocompte);
	if ($len != 11) {
		return false;
	}
	for ($i = 0; $i < $len; $i++) {
		$car = substr($nocompte, $i, 1);
		if (!is_numeric($car)) {
			$c = ord($car) - (ord('A') - 1);
			$b = (($c + pow ( 2, ($c - 10) / 9 )) % 10) + (($c > 18 && $c < 25) ? 1 : 0);
			$tabcompte .= $b;
		}
		else {
			$tabcompte .= $car;
		}
	}
	$int = $cbanque . $cguichet . $tabcompte . $clerib;
	return (strlen($int) >= 21 && bcmod($int, 97) == 0);
}

Avec :

• rib : le RIB complet sans espace à passer à la méthode.

  def rib?(rib)
    bank, office, account, key = rib.match(/^(\d{5})(\d{5})([[:alnum:]]{11})(\d{2})$/).captures
    account                    = account.each_char.inject('') do |sum, char|
      char = char.to_i 36
      sum  += ((char + 2 ** ((char - 10)/9)).to_i % 10).to_s
    end
    result                     = bank + office + account + key
    result.size >= 21 && result.to_i % 97 == 0
  rescue
    # Le RIB n’est pas valide
    false
  end

Cette vérification permet de valider la saisie de l'utilisateur, qui renseigne à l'exécution de la requête SQL les codes Banque, Guichet et numéro de compte, ou de lui demander une nouvelle saisie.

  select Saisie.*
         ,97-mod(Banque*89+Guichet*15+Compte*3,97) CleRIB
  from (select substr(lpad(&Banque,5,'0'),1,5) Banque
              ,substr(lpad(&Guichet,5,'0'),1,5) Guichet
              ,translate(upper(substr(lpad('&Compte',11,'0'),1,11))
                       ,'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
                       , 12345678912345678923456789
               ) Compte
        from dual
       ) Saisie;

Cette vérification permet de vérifier un grand nombre de RIB, dans une table RIB_payment

CREATE TABLE ( rib_id    NUMBER(10)
    , rib_banque     VARCHAR2(12)
         CONSTRAINT rib_banque_nn_payment NOT NULL NOT NULL
    , rib_guichet      VARCHAR2(12) 
         CONSTRAINT rib_guichet_nn_payment NOT NULL
    , rib_compte          VARCHAR2(20) 
         CONSTRAINT rib_compte_nn_payment NOT NULL
    , rib_cle   VARCHAR2(3)
    , rib_saisie_date      DATE  DEFAULT SYSDATE 
         CONSTRAINT rib_saisie_date_nn_payment  NOT NULL
    , person_id         VARCHAR2(10)/*titulaire, personne morale ou physique*/
       CONSTRAINT     rib_person_id_nn_payment  NOT NULL
    , CONSTRAINT     rib_person_id_uk_payment
                     UNIQUE (person_id)
    )

saisie au préalable, et en relation avec une table des personnes (personnes physiques ou personnes morales).

 SELECT IBAN,
MOD(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE( REPLACE( substr(IBAN,5,length(IBAN))||substr(IBAN,1,4)
,'A','10'),'B','11'),'C','12'),'D','13'),'E','14')
,'F','15'),'G','16'),'H','17'),'I','18'),'J','19')
,'K','20'),'L','21'),'M','22'),'N','23'),'O','24')
,'P','25'),'Q','26'),'R','27'),'S','28'),'T','29')
,'U','30'),'V','31'),'W','32'),'X','33'),'Y','34')
,'Z','35')  ,' ','')
,97) IBAN_modulo
FROM  COMPTE

La requête contrôle le IBAN (on peut facilement le construire à partir du RIB).

Ce code fonctionne sous Excel, l'abréviation « VBE » étant la contraction de VBA pour Excel.

Function Mod97(Numero As String) As Integer
' Calcule le modulo 97 du numéro donné
Dim Nro As String
Dim a As Variant, b As Variant, c As Variant, d As Variant, e As Variant, div97 As Variant
Nro = Numero
a = 0
b = 0
c = 0
e = Right(Nro, 6)
d = Mid(Nro, Len(Nro) - 11, 6)
Select Case Len(Nro)
 Case 13 To 20
   c = CDbl(Mid(Nro, 1, Len(Nro) - 12))
 Case 21 To 28
   c = CDbl(Mid(Nro, Len(Nro) - 19, 8))
   If Len(Nro) <> 20 Then b = CDbl(Mid(Nro, 1, Len(Nro) - 20))
 Case 29 To 38
   c = CDbl(Mid(Nro, Len(Nro) - 19, 8))
   b = CDbl(Mid(Nro, Len(Nro) - 27, 8))
   a = CDbl(Mid(Nro, 1, Len(Nro) - 28))
 Case Else
   Mod97 = 0
   Exit Function
End Select
div97 = Int((a * 93 + b * 73 + c * 50 + d * 27 + e Mod 97) / 97)
Mod97 = (a * 93 + b * 73 + c * 50 + d * 27 + e Mod 97) - div97 * 97
End Function
Function ControleRib(cbanque As String, cguichet As String, nocompte As String, clerib As String)
Const transforme = "12345678912345678923456789"
Dim tabcompte As String, lg As Long, i As Long, car As String, c As Integer, rib_int As String
tabcompte = ""
lg = Len(nocompte)
If lg <> 11 Then
  ControleRib = False
Else
  For i = 1 To lg
    car = Mid(nocompte, i, 1)
    If Not IsNumeric(car) Then
      c = asc(car) - (asc("A") - 1)
      tabcompte = tabcompte & Mid(transforme, c, 1)
    Else
      tabcompte = tabcompte & car
    End If
  Next i
  rib_int = cbanque & cguichet & tabcompte & clerib
  ControleRib = (Len(rib_int) >= 21) And (Mod97(rib_int) = 0)
End If
End Function

  =ControleRib(A1, A2, A3, A4)

  If ControleRib(RIB_Banque, RIB_Guichet, RIB_Compte, RIB_Cle) Then
    TESTRIB = "RIB CORRECT"
    MsgBox " RIB EST CORRECT", vbInformation, "VERIF RIB"
  Else
    TESTRIB = "RIB ERRONE"
    MsgBox " LE RIB EST ERRONE", vbCritical, "VERIF RIB"
  End If

1. Créer un IBAN temporaire, composé du code du pays : FR pour la France, suivi de " 00 " et du " code RIB "
2. Déplacer les 4 premiers caractères de l’IBAN vers la droite du numéro.
3. Convertir les lettres en chiffres, selon le principe "A" vaut "10" ... "Z" vaut "35".
4. Calculer le modulo 97 et retrancher le reste de 98. Si le résultat comporte un seul chiffre, insérer un zéro devant.

Insérer le résultat ainsi obtenu à la position 3 de l’IBAN temporaire créé dans l’étape 1.

Avec :

• rib : le RIB complet sans espace à passer à la méthode.

def rib_to_iban(rib):
    tmp_iban = int("".join(str(int(c,36)) for c in rib+"FR00"))
    key = 98 - (tmp_iban % 97)
    return "FR%.2d%s" % (key, rib)

Avec :

• rib : le RIB complet sans espace à passer à la méthode.

  def rib_to_iban(rib)
    tmp_iban = "#{rib}FR00".each_char.map { |char| char.to_i(36).to_s }.join.to_i
    key = 98 - (tmp_iban % 97)
    "FR%.2d%s" % [key, rib]
  end

Ce code fonctionne sous Excel, l'abréviation « VBE » étant la contraction de VBA pour Excel.