Vérifie la validité d'un RIB

                               

                            
/*------------------------------*/
/*
 Titre : Vérifie la validité d'un RIB                                                                                   
                                                                                                                          
 Date édition     : 15 Fev 2019                                                                                          
 Date mise a jour : 20 Sept 2019
                                                                                         
 Rapport de la maj:                                                                                                       
  - fonctionnement du code vérifié                                                                                  
*/
/*------------------------------*/

    function verif_rib($code_banque , $code_guichet , $num_compte , $cle){ 
     $coef = array(62, 34, 3) ; 
     //concatenation des differents codes. 
     $rib = $code_banque.$code_guichet.$num_compte.$cle ; 
     $rib = strtolower($rib) ; 
     //on remplca les eventuelles lettres par des chiffres. 
     $rib = strtr($rib, "abcdefghijklmnopqrstuvwxyz", 
"12345678912345678912345678");
      
     // séparation du rib en 3 groupes de 7 + 1 groupe de 2. 
     // multiplication de chaque groupe par les coef du tableau 
     for ($i=0, $s=0; $i<3; $i++) { 
     $code = substr($rib, 7 * $i, 7) ; 
     $s += (0 + $code) * $coef[$i] ; } 
      
    // Soustraction du modulo 97 de $s à   97 pour obtenir la clé RIB
     $cle_rib = 97 - ($s % 97) ; 
     if ($cle_rib == $cle) { echo "RIB accepté" ; } 
     else { echo "RIB invalide" ; } 
      
    }
?>