Jose.Jwe

JWE RSA encrypted token support.

Example usage:

>>> import Jose.Jwe
>>> import Jose.Jwa
>>> import Crypto.Random.AESCtr
>>> g <- makeSystem
>>> import Crypto.PubKey.RSA
>>> let ((kPub, kPr), g') = generate g 512 65537
>>> let (jwt, g'') = rsaEncode g' RSA_OAEP A128GCM kPub "secret claims"
>>> fst $ rsaDecode g'' kPr jwt
Right (JweHeader {jweAlg = RSA_OAEP, jweEnc = A128GCM, jweTyp = Nothing, jweCty = Nothing, jweZip = Nothing, jweKid = Nothing},"secret claims")

Documentation

rsaEncode

Arguments

:: CPRG g

=> g

Random number generator

-> JweAlg

RSA algorithm to use (RSA_OAEP or RSA1_5)

-> Enc

Content encryption algorithm

-> PublicKey

RSA key to encrypt with

-> ByteString

The JWT claims (content)

-> (ByteString, g)

The encoded JWE and new generator

Creates a JWE.

rsaDecode

Arguments

:: CPRG g

=> g

-> PrivateKey

Decryption key

-> ByteString

The encoded JWE

-> (Either JwtError Jwe, g)

The decoded JWT, unless an error occurs

Decrypts a JWE.