Bitcoin Forum

__b58chars = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'
__b58base = len(__b58chars)

def b58encode(v):
    result = []
    while v > 0:
        v, mod = divmod(v, __b58base)
        result.append(__b58chars[mod])
    return ''.join(result[::-1])

def b58decode(v):
    return sum(__b58chars.find(c) * __b58base ** i for i, c in enumerate(v[::-1]))

<?php

// adapted from
// http://darklaunch.com/2009/08/07/base58-encode-and-decode-using-php-with-example-base58-encode-base58-decode
function base58_decode($num) {
    $alphabet = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';
    $len = strlen($num);
    $decoded = 0;
    $multi = 1;
 
    for ($i = $len - 1; $i >= 0; $i--) {
        $decoded = bcadd($decoded, bcmul($multi, strpos($alphabet, $num[$i])));
        $multi = bcmul($multi, strlen($alphabet));
    }
 
    return $decoded;
}

function base58_encode($num) {
    $alphabet = '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';
    $base_count = strlen($alphabet);
    $encoded = '';
 
    while (bccomp($num, $base_count) >= 0) {
        $div = bcdiv($num, $base_count, 0);
        $mod = bcsub($num, bcmul($base_count, $div));
        $encoded = $alphabet[$mod] . $encoded;
        $num = $div;
    }
 
    if ($num) {
        $encoded = $alphabet[(int)$num] . $encoded;
    }
 
    return $encoded;
}

// http://us2.php.net/manual/en/ref.bc.php#99130
function bcdechex($dec) {
    $last = bcmod($dec, 16);
    $remain = bcdiv(bcsub($dec, $last), 16);

    if($remain == 0) {
        return dechex($last);
    } else {
        return bcdechex($remain).dechex($last);
    }
}

$num = base58_decode('3HVMPwe1rr96QryQdZtZt1LWfcXnEFSG9rKiRuv8ewxwvUmZMH1zwn');

$num = bcdiv($num, base58_decode('Xi4'));
$key = bcadd(base58_decode('t'), $num);
echo base58_encode($num), "\n";
echo substr(bcdechex($num), 2, 64), "\n";