/ * На основе libbase58 см https://github.com/luke-jr/libbase58 для справки. * /
/ * Попытки преобразовать двоичный вход в формат Base58 и возвращает истинное * /
/ * На успех. * /
статические BOOL generate_bitcoin_address (Const символ без знака * полезной нагрузки, тип символ, символ * B58, size_t * b58sz) {
    неподписанный символ адрес [25];

    адрес [0] = (тип == '1' 0:
                   типа == '3'? 5: 111);
    тетср (адрес + 1, полезная нагрузка, 20);

    символ без знака d1 [SHA256_DIGEST_LENGTH], d2 [SHA256_DIGEST_LENGTH];
    SHA256 (SHA256 (адрес, 21, d1), SHA256_DIGEST_LENGTH, d2);
    тетср (адрес + 21, d2, 4);

    {
        статический Const символ b58digits_ordered [] = "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz";
        Const uint8_t * бен = (Const uint8_t *) адрес;
        ИНТ перенос;
        ssize_t I, J, высокий, zcount = 0;
        size_t размера;
        size_t uzcount = 0;

        в то время как (uzcount < 25 && ! Бен [uzcount]) ++ uzcount;
        zcount = uzcount;
        Размер = (25 - zcount) * 138/100 + 1;
        uint8_t ЬиЕ [((25 - 0) * 138/100 + 1)];
        MemSet (BUF, 0, размер);
        для (я = zcount, высокий = размер - 1; я < 25; ++ я, высокий = J) {
            для переноса (= бен [I], J = размер - 1; (J > высокий) || нести; --j) {
                нести + = 256 * БУФ [J];
                ЬиЕ [J] = несут% 58;
                нести / = 58;
            }
        }

        для (J = 0, J < (Ssize_t) Размер && ! ЬиЕ [J]; ++ j);

        если (* b58sz <= Zcount + Размер - к) {
            * B58sz = zcount + Размер - J + 1;
            вернуться ложным;
        }

        если (zcount) MemSet (B58, '1', zcount);
        для (I = zcount, J < (Ssize_t) размер; ++ я, ++, к) B58 [I] = b58digits_ordered [ЬиЕ [J]];
        b58 [я] = '\ 0';
        * B58sz = + 1;
    }
    возвращает истину;
}