Lianja

Sign a JWS with an HMAC Key from BinData

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetMacKeyBd, which sets the symmetric MAC key for a signature from the raw bytes in a BinData.

Background. This is the in-memory equivalent of SetMacKey, for when the key material is already available as bytes.

Chilkat Lianja Downloads

Lianja

llSuccess = .F.

loJws = createobject("CkJws")

//  Protected header specifying HMAC-SHA256.
loHeader = createobject("CkJsonObject")
loHeader.UpdateString("alg","HS256")
llSuccess = loJws.SetProtectedHeader(0,loHeader)
if (llSuccess = .F.) then
    ? loJws.LastErrorText
    release loJws
    release loHeader
    return
endif

llBIncludeBom = .F.
llSuccess = loJws.SetPayload("This is the content to sign.","utf-8",llBIncludeBom)
if (llSuccess = .F.) then
    ? loJws.LastErrorText
    release loJws
    release loHeader
    return
endif

//  Set the symmetric MAC key for signature 0 from the raw bytes in a BinData.  In production, obtain
//  the key material from a secure source.
loBdKey = createobject("CkBinData")
loBdKey.AppendEncoded("YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=","base64")
llSuccess = loJws.SetMacKeyBd(0,loBdKey)
if (llSuccess = .F.) then
    ? loJws.LastErrorText
    release loJws
    release loHeader
    release loBdKey
    return
endif

lcJwsCompact = loJws.CreateJws()
if (loJws.LastMethodSuccess = .F.) then
    ? loJws.LastErrorText
    release loJws
    release loHeader
    release loBdKey
    return
endif

? lcJwsCompact


release loJws
release loHeader
release loBdKey