182 lines
6.7 KiB
Haskell
182 lines
6.7 KiB
Haskell
#!/usr/bin/env runhaskell
|
|
|
|
{-# LANGUAGE DeriveDataTypeable #-}
|
|
|
|
module Main where
|
|
import System.Console.CmdArgs
|
|
import qualified Data.ByteString as B
|
|
import Encoding.Base2 (enc2, dec2)
|
|
import Encoding.Base8 (enc8, dec8)
|
|
import Encoding.Base10 (enc10, dec10)
|
|
import Encoding.Base16 (enc16, dec16)
|
|
import Encoding.Base32 (enc32, dec32)
|
|
import Encoding.Base45 (enc45, dec45)
|
|
import Encoding.Base58 (enc58, dec58)
|
|
import Encoding.Base62 (enc62, dec62)
|
|
import Encoding.Base64 (enc64, dec64, enc64url, dec64url)
|
|
import Encoding.Base85 (enc85, dec85)
|
|
import Encoding.Base91 (enc91, dec91)
|
|
import Encoding.Url (encurl, decurl)
|
|
import Encoding.Xx (encxx, decxx)
|
|
import Encoding.QuotedPrintable (encqp, decqp)
|
|
import Encoding.UnixToUnix (encuu, decuu)
|
|
import Encoding.Yenc (ency, decy)
|
|
import Encoding.LetterToNumber (encltn, decltn)
|
|
import Encoding.Rotate (rotate)
|
|
import Encoding.Morse (encmorse, decmorse)
|
|
import Encoding.Tap (enctap, dectap)
|
|
import Encoding.Solve (solveEnc)
|
|
|
|
|
|
data Based = Decode {
|
|
b91 :: Bool,
|
|
b85 :: Bool,
|
|
b64 :: Bool,
|
|
b64url :: Bool,
|
|
url :: Bool,
|
|
b62 :: Bool,
|
|
b58 :: Bool,
|
|
b45 :: Bool,
|
|
b32 :: Bool,
|
|
b16 :: Bool,
|
|
b10 :: Bool,
|
|
b8 :: Bool,
|
|
b2 :: Bool,
|
|
qp :: Bool,
|
|
uu :: Bool,
|
|
xx :: Bool,
|
|
yenc :: Bool,
|
|
a1z26 :: Bool,
|
|
rot :: Maybe Int,
|
|
morse :: Bool,
|
|
tap :: Bool,
|
|
solve :: Bool
|
|
}
|
|
| Encode {
|
|
b91 :: Bool,
|
|
b85 :: Bool,
|
|
b64 :: Bool,
|
|
b64url :: Bool,
|
|
url :: Bool,
|
|
b62 :: Bool,
|
|
b58 :: Bool,
|
|
b45 :: Bool,
|
|
b32 :: Bool,
|
|
b16 :: Bool,
|
|
b10 :: Bool,
|
|
b8 :: Bool,
|
|
b2 :: Bool,
|
|
qp :: Bool,
|
|
uu :: Bool,
|
|
xx :: Bool,
|
|
yenc :: Bool,
|
|
a1z26 :: Bool,
|
|
morse :: Bool,
|
|
tap :: Bool,
|
|
rot :: Maybe Int
|
|
}
|
|
deriving(Show, Data, Typeable)
|
|
|
|
|
|
optionHandler :: Based -> B.ByteString -> B.ByteString
|
|
optionHandler Decode{b91=True} = dec91
|
|
optionHandler Encode{b91=True} = enc91
|
|
optionHandler Decode{b85=True} = dec85
|
|
optionHandler Encode{b85=True} = enc85
|
|
optionHandler Decode{b64=True} = dec64
|
|
optionHandler Encode{b64=True} = enc64
|
|
optionHandler Decode{b64url=True} = dec64url
|
|
optionHandler Encode{b64url=True} = enc64url
|
|
optionHandler Decode{url=True} = decurl
|
|
optionHandler Encode{url=True} = encurl
|
|
optionHandler Decode{b62=True} = dec62
|
|
optionHandler Encode{b62=True} = enc62
|
|
optionHandler Decode{b58=True} = dec58
|
|
optionHandler Encode{b58=True} = enc58
|
|
optionHandler Decode{b45=True} = dec45
|
|
optionHandler Encode{b45=True} = enc45
|
|
optionHandler Decode{b32=True} = dec32
|
|
optionHandler Encode{b32=True} = enc32
|
|
optionHandler Decode{b16=True} = dec16
|
|
optionHandler Encode{b16=True} = enc16
|
|
optionHandler Decode{b10=True} = dec10
|
|
optionHandler Encode{b10=True} = enc10
|
|
optionHandler Decode{b8=True} = dec8
|
|
optionHandler Encode{b8=True} = enc8
|
|
optionHandler Decode{b2=True} = dec2
|
|
optionHandler Encode{b2=True} = enc2
|
|
optionHandler Decode{qp=True} = decqp
|
|
optionHandler Encode{qp=True} = encqp
|
|
optionHandler Encode{uu=True} = encuu
|
|
optionHandler Decode{uu=True} = decuu
|
|
optionHandler Decode{xx=True} = decxx
|
|
optionHandler Encode{xx=True} = encxx
|
|
optionHandler Decode{yenc=True} = decy
|
|
optionHandler Encode{yenc=True} = ency
|
|
optionHandler Decode{a1z26=True} = decltn
|
|
optionHandler Encode{a1z26=True} = encltn
|
|
optionHandler Decode{rot=Just n} = rotate n
|
|
optionHandler Encode{rot=Just n} = rotate n
|
|
optionHandler Decode{morse=True} = decmorse
|
|
optionHandler Encode{morse=True} = encmorse
|
|
optionHandler Decode{tap=True} = dectap
|
|
optionHandler Encode{tap=True} = enctap
|
|
optionHandler Decode{solve=True} = solveEnc
|
|
|
|
decodeMode :: Based
|
|
decodeMode = Decode {
|
|
b91 = def &= help "decode base91",
|
|
b85 = def &= help "decode base85",
|
|
b64 = def &= help "decode base64",
|
|
b64url = def &= help "decode base64Url",
|
|
url = def &= help "decode URL",
|
|
b62 = def &= help "decode base62",
|
|
b58 = def &= help "decode base58",
|
|
b45 = def &= help "decode base45",
|
|
b32 = def &= help "decode base32",
|
|
b16 = def &= help "decode base16",
|
|
b10 = def &= help "decode decimal",
|
|
b8 = def &= help "decode octal",
|
|
b2 = def &= help "decode base2",
|
|
qp = def &= help "decode quoted-printable",
|
|
uu = def &= help "decode UnixToUnix",
|
|
xx = def &= help "decode xx, without padding",
|
|
yenc = def &= help "decode yEncode",
|
|
a1z26 = def &= help "decode letter to number",
|
|
rot = def &= help "rotate characters by n positions",
|
|
morse = def &= help "decode morse",
|
|
tap = def &= help "decode tap code using a Polybius square (5x5 grid Latin alphabet)",
|
|
solve = def &= help "solve encoding"
|
|
} &= help "Decode chosen base" &=auto
|
|
|
|
encodeMode :: Based
|
|
encodeMode = Encode {
|
|
b91 = def &= help "encode base91",
|
|
b85 = def &= help "encode base85",
|
|
b64 = def &= help "encode base64",
|
|
b64url = def &= help "encode base64Url",
|
|
url = def &= help "encode URL",
|
|
b62 = def &= help "encode base62",
|
|
b58 = def &= help "encode base58",
|
|
b45 = def &= help "encode base45",
|
|
b32 = def &= help "encode base32",
|
|
b16 = def &= help "encode base16",
|
|
b10 = def &= help "encode decimal",
|
|
b8 = def &= help "encode octal",
|
|
b2 = def &= help "encode base2",
|
|
qp = def &= help "encode quoted-printable",
|
|
uu = def &= help "encode UnixToUnix",
|
|
xx = def &= help "encode xx, without padding",
|
|
yenc = def &= help "encode yEncode",
|
|
a1z26 = def &= help "encode letter to number",
|
|
rot = def &= help "rotate characters by n positions",
|
|
morse = def &= help "encode morse",
|
|
tap = def &= help "encode tap code using a Polybius square (5x5 grid Latin alphabet)"
|
|
} &= help "Encode chosen base"
|
|
|
|
main :: IO()
|
|
main = do
|
|
args <- cmdArgs(modes[decodeMode, encodeMode] &= help "Based, Binary to text encoding.\nTo see arguments of encode and decode modes use --help=all" &= program "based" &= summary "based v0.4")
|
|
input <- B.getContents
|
|
B.putStr $ optionHandler args input
|