finished writeWalletKeys

1 files changed, 15 insertions, 0 deletions

diff --git a/Base58.hs b/Base58.hs
index 26f1cb2..8adf60d 100644
--- a/Base58.hs
+++ b/Base58.hs
@@ -35,3 +35,18 @@ base58_decode str = do
     guard (hash_result==expected_hash)
     return (network_id,payload)
 
+base58_encode :: S.ByteString -> String
+base58_encode hash = replicate zcount '1' ++ map (base58chars !!) (reverse rdigits)
+  where
+    zcount = S.length . S.takeWhile (==0) $ hash
+    cksum = S.take 4 . SHA256.hash . SHA256.hash $ hash
+    n = foldl' (\a b->a*256+b) 0 . map asInteger $ concatMap S.unpack [hash, cksum]
+    asInteger x = fromIntegral x :: Integer
+    rdigits = unfoldr getdigit n
+     where
+        getdigit d = do
+            guard (d/=0)
+            let (q,b) = d `divMod` 58
+            return (fromIntegral b,q)
+
+