Računanje kontrolnog broja po modulu 97 u PHP

Skraćena veza: http://pedja.supurovic.net/veza/8494

Zatrebalo mi je da izračunam kontrolni broj po modulu 97, ali nigde nisam našao primer urađen u PHP. Pošto sam napisao funkciju koja to radi, evo je ovde, ako još nekome bude trebalo.

function Modul97 ($pBroj) {

  $mBroj = '';
  $mFixedBroj = '';

  foreach (str_split (strtoupper((string)$pBroj)) as $mChar) {
  
    if (is_numeric ($mChar)) {
      $mBroj .= $mChar;
      $mFixedBroj .= $mChar;
    } else {
      if (ctype_alpha($mChar)) {
        $mBroj .= $mChar;
        $mNumeric = ord ($mChar) - 65 + 10;
        $mFixedBroj .= (string)$mNumeric;
      } else {
        $mBroj .= '-';
      }
    }
    
  }
  
  $mFixedBroj00 = $mFixedBroj . '00';
  
  $mModule = bcmod ($mFixedBroj00, 97);
  
  $mControl = 98 - $mModule;
  
  $mResult = (string)$mControl .
 […]
[ ... vidi ceo članak ... ]