Vérifie la validité d'un RIB

                               

                            
/*---------------------------------------------------------------*/
/*
    Titre : Vérifie la validité d'un RIB                                                                                
                                                                                                                          
    URL   : https://phpsources.net/code_s.php?id=1019
    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" ; } 
      
    }
?>