check-signature ( jwt secret/f -- ? )

Vocabulary

crypto.jwt

Inputs

jwt	an object
secret/f	an object

Outputs

?

an object

Definition

USING: base64 json kernel sequences splitting strings ;

IN: crypto.jwt

: check-signature ( jwt secret/f -- ? )
    [
        "." split first3
        [ dup urlsafe-base64> >string json> ensure-sha256 drop ]
        [ "." glue ] [ ] tri*
    ] dip [ f hmac-signature ] curry dip = ;