Функция Validate ($ адрес) {
        $ Декодируется = decodeBase58 ($ адрес);
 
        $ D1 = хеш ("sha256", ЗиЬзЬги ($ декодируется, 0,21), правда);
        $ D2 = хеш ("sha256", $ D1, правда);
 
        если (substr_compare ($ декодируется, $ d2, 21, 4)) {
                певд \ Exception ("плохо дайджест");
        }
        возвращает истину;
}
функционировать decodeBase58 ($ ввода) {
        $ Алфавит = "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz";
 
        $ = Array_fill из (0, 25, 0);
        для ($ I = 0; $ я                если (($ р = StrPos ($ алфавита, $ вход [$ я])) === FALSE) {
                        певд \ Exception ("недопустимый символ найден");
                }
                $ С = $ р;
                для ($ J = 25; $ j--;) {
                        $ С + = (целое) (58 * $ из [$ J]);
                        $ Из [$ J] = (целое) ($ 256 C%);
                        $ С / = 256;
                        $ С = (INT) $ с;
                }
                если ($ с! = 0) {
                    певд \ Exception ("решения слишком долго");
                }
        }
 
        $ Результат = "";
        Еогеасп ($, как $ Вал) {
                . $ Результат = CHR ($ Val);
        }
 
        вернуть $ результат;
}
 
функционировать Основной () {
  $ S = массив (
                "1Q1pE5vPGEEMqRcVRMbtBK842Y6Pzo6nK9",
                "1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62i",
                "1Q1pE5vPGEEMqRcVRMbtBK842Y6Pzo6nJ9",
                "1AGNa15ZQXAZUgFiqJ2i7Z2DPU2J6hW62I",
        );
  Еогеасп ($ s $, как BTC) {
    $ Сообщение = "ОК";
    пытаться{
        проверки ($ BTC);
    } Задвижка (\ Exception $ е) {$ сообщение = $ e->GetMessage (); }
    эхо "$ BTC: $ сообщение \ п";
  }
}
 
главный();