$ Обр = GetTx ($ клиент, $ myAddress);
  $ RawTx = $ client->getrawtransaction ($ обр, 1);
  $ шт = взорваться (" ", $ RawTx ["Vin"] [0] ["scriptSig"] ["как м"]);
  $ MyHash = хеш ( 'ripemd160', хэш ( 'SHA256', $ штук [1]));
  $ MyHashStr = CHR (0x00) $ myHash.
  $ MyHash2 = хеш ( 'sha256', хэш ( 'sha256', $ myHashStr));
  $ MyHashStr = зиЬзЬг ($ myHash2,0,4).
  эхо "Hash:". $ MyHashStr."<уш>";
  эхо "Base58:".base58_encode ($ myHashStr)."<уш>";

Функция base58_encode ($ Num) {
    $ Алфавит = '123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ';
    $ Base_count = StrLen ($ алфавит);
    $ Кодируются = '';
    в то время как ($ NUM >= $ Base_count) {
        $ = $ ДИВО Num / $ base_count;
        $ Мод = ($ Num - ($ base_count * intval ($ дела)));
        $ Закодированы = $ алфавит [$ модник]. $ Закодирован;
        $ Num = intval ($ дел);
    }
    если ($ Num) {$ кодируются = $ алфавит [$ Num]. $ Закодирован;}
    вернуть $ закодирован;
}