Sign a JWS with a Private Key

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetPrivateKey, which sets the private key used to create a signature. The example uses RS256 (RSASSA-PKCS1-v1_5 with SHA-256).

The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.

Dim success As Boolean = False

Dim jws As ChilkatJws
jws.Initialize

'  Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
Dim header As ChilkatJsonObject
header.Initialize
header.UpdateString("alg", "RS256")
success = jws.SetProtectedHeader(0, header)
If success = False Then
    Log(jws.LastErrorText)
    Return
End If


Dim bIncludeBom As Boolean = False
success = jws.SetPayload("This is the content to sign.", "utf-8", bIncludeBom)
If success = False Then
    Log(jws.LastErrorText)
    Return
End If


'  The file path is relative to the application's current working directory.  An absolute path
'  may also be used.  Supply the path appropriate to your own environment.
'  Load the signer's private key and set it for signature 0.
Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = privKey.LoadPemFile("qa_data/signer_privkey.pem")
If success = False Then
    Log(privKey.LastErrorText)
    Return
End If

success = jws.SetPrivateKey(0, privKey)
If success = False Then
    Log(jws.LastErrorText)
    Return
End If


Dim jwsCompact As String = jws.CreateJws
If jws.LastMethodSuccess = False Then
    Log(jws.LastErrorText)
    Return
End If

Log(jwsCompact)