2017-11-17 05:47:16 +04:00
|
|
|
#use "topfind";;
|
|
|
|
|
#require "stringext";;
|
|
|
|
|
#require "lwt";;
|
|
|
|
|
#require "zarith";;
|
|
|
|
|
#require "nocrypto";;
|
|
|
|
|
#mod_use "../src/minutils/utils.ml";;
|
|
|
|
|
#mod_use "../src/utils/base58.ml";;
|
2017-09-22 00:24:10 +04:00
|
|
|
let prefix = "BLockGenesisGenesisGenesisGenesisGenesis"
|
2017-11-20 03:12:58 +04:00
|
|
|
let suffix = "FFFFF"
|
2017-09-22 00:24:10 +04:00
|
|
|
let p = Base58.raw_decode (prefix ^ suffix ^ "crcCRC")
|
|
|
|
|
let p = String.sub p 0 (String.length p - 4)
|
|
|
|
|
let p = Base58.safe_encode p
|
|
|
|
|
let () = print_endline p
|
|
|
|
|
|
