частные статические $ base58chars = "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz";
  общественная статическая функция checkAddress ($ адр, $ addressversion = 00) {
    $ Адр = само :: decodeBase58 (облицовка ($ адр));
если (STRLEN ($ адр)! = 50) {
вернуться ложным;
}
$ Версия = зиЬзЬги ($ адр, 0, 2);
    если (HexDec ($ версия) > HexDec ($ addressversion)) {
      вернуться ложным;
    }
    $ Check = зиЬзЬг ($ ADDR, 0, STRLEN ($ адр) - 8);
    $ Проверка = упаковка ("ЧАС*", $ Чек);
    $ Проверка = strtoupper (хэш ("sha256", Хэш ("sha256", $ Проверка, правда)));
    $ Check = зиЬзЬг ($ чек, 0, 8);
    возвращение $ проверка == зиЬзЬг ($ адр, STRLEN ($ адр) - 8);
  }
частная статическая функция decodeBase58 ($ base58) {
    $ Origbase58 = $ base58;

    $ Возврата = "0";
    для ($ I = 0; $ я < StrLen ($ base58); $ Я ++) {
      $ ток = (строка) StrPos (Биткойн :: $ base58chars, $ base58 [$ я]);
      $ Возврата = (строка) bcmul ($ возврата, "58", 0);
      $ Возврата = (строка) bcadd ($ возврат, $ ток, 0);
    }