1 files changed, 66 insertions, 0 deletions

diff --git a/CryptoCoins.hs b/CryptoCoins.hs
new file mode 100644
index 0000000..8ae092d
--- /dev/null
+++ b/CryptoCoins.hs
@@ -0,0 +1,66 @@
+{-# LANGUAGE ViewPatterns #-}
+module CryptoCoins where
+
+import Numeric
+import Data.Word
+import Data.Maybe
+
+data CoinNetwork = CoinNetwork
+    { network_name :: String
+    , public_byte_id :: Word8
+    , private_byte_id :: Word8
+    , source_code_uri :: String
+    }
+ deriving (Show,Read)
+
+-- For forks of bitcoin, grep sources for PUBKEY_ADDRESS
+-- That value + 0x80 will be the private_byte_id.
+-- information source: https://raw.github.com/zamgo/PHPCoinAddress/master/README.md
+coin_networks =
+   [ CoinNetwork "bitcoin"        0x00 0x80 "https://github.com/bitcoin/bitcoin"
+   , CoinNetwork "litecoin"       0x30 0xB0 "https://github.com/litecoin-project/litecoin"
+   , CoinNetwork "peercoin"       0x37 0xB7 "https://github.com/ppcoin/ppcoin" -- AKA: ppcoin
+   , CoinNetwork "namecoin"       0x34 0xB4 "https://github.com/namecoin/namecoin"
+   , CoinNetwork "bbqcoin"        0x05 0xD5 "https://github.com/overware/BBQCoin"
+   , CoinNetwork "bitbar"         0x19 0x99 "https://github.com/aLQ/bitbar"
+   , CoinNetwork "bytecoin"       0x12 0x80 "https://github.com/bryan-mills/bytecoin"
+   , CoinNetwork "chncoin"        0x1C 0x9C "https://github.com/CHNCoin/CHNCoin"
+   , CoinNetwork "devcoin"        0x00 0x80 "http://sourceforge.net/projects/galacticmilieu/files/DeVCoin"
+   , CoinNetwork "feathercoin"    0x0E 0x8E "https://github.com/FeatherCoin/FeatherCoin"
+   , CoinNetwork "freicoin"       0x00 0x80 "https://github.com/freicoin/freicoin"
+   , CoinNetwork "junkcoin"       0x10 0x90 "https://github.com/js2082/JKC"
+   , CoinNetwork "mincoin"        0x32 0xB2 "https://github.com/SandyCohen/mincoin"
+   , CoinNetwork "novacoin"       0x08 0x88 "https://github.com/CryptoManiac/novacoin"
+   , CoinNetwork "onecoin"        0x73 0xF3 "https://github.com/cre8r/onecoin"
+   , CoinNetwork "smallchange"    0x3E 0xBE "https://github.com/bfroemel/smallchange"
+   , CoinNetwork "terracoin"      0x00 0x80 "https://github.com/terracoin/terracoin"
+   , CoinNetwork "yacoin"         0x4D 0xCD "https://github.com/pocopoco/yacoin"
+   , CoinNetwork "bitcoin-t"      0x6F 0xEF ""
+   , CoinNetwork "bbqcoin-t"      0x19 0x99 ""
+   , CoinNetwork "bitbar-t"       0x73 0xF3 ""
+   ]
+   -- fairbrix          -    - https://github.com/coblee/Fairbrix
+   -- ixcoin            -    - https://github.com/ixcoin/ixcoin
+   -- royalcoin         -    - http://sourceforge.net/projects/royalcoin/
+
+lookupNetwork f b = listToMaybe $ filter (\n->f n==b) coin_networks
+
+nameFromSecretByte :: Word8 -> String
+nameFromSecretByte b = maybe (defaultName b) network_name (lookupNetwork private_byte_id b)
+ where
+    defaultName b = "?coin?"++hexit b
+      where
+        hexit b = pad0 $ showHex b "" 
+            where pad0 [c] = '0':c:[]
+                  pad0 cs  = take 2 cs
+
+publicByteFromName n = maybe (secretByteFromName n - 0x80) 
+                             -- exceptions to the above: bbqcoin, bytecoin
+                             public_byte_id
+                             (lookupNetwork network_name n)
+
+secretByteFromName n = maybe (defaultID n) private_byte_id (lookupNetwork network_name n)
+ where
+    defaultID ('?':'c':'o':'i':'n':'?':(readHex->((x,_):_))) 
+                = x
+    defaultID _ = 0x00