Sign a JWS with a Certificate

See more JSON Web Signatures (JWS) Examples

Demonstrates Jws.SetSigningCert, which sets the certificate whose associated private key is used to create a signature.

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 New Chilkat.Jws

'  Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
Dim header As New Chilkat.JsonObject
header.UpdateString("alg","RS256")
success = jws.SetProtectedHeader(0,header)
If (success = False) Then
    Debug.WriteLine(jws.LastErrorText)
    Exit Sub
End If


Dim bIncludeBom As Boolean = False
success = jws.SetPayload("This is the content to sign.","utf-8",bIncludeBom)
If (success = False) Then
    Debug.WriteLine(jws.LastErrorText)
    Exit Sub
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.
'  The PFX password should come from a secure source rather than being hard-coded.
Dim pfxPassword As String = "myPfxPassword"

'  Load a certificate that has an associated private key, then set it as the signing certificate for
'  signature 0.  The certificate's private key is used to create the signature.
Dim cert As New Chilkat.Cert
success = cert.LoadPfxFile("qa_data/signer.pfx",pfxPassword)
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If

success = jws.SetSigningCert(0,cert)
If (success = False) Then
    Debug.WriteLine(jws.LastErrorText)
    Exit Sub
End If


Dim jwsCompact As String = jws.CreateJws()
If (jws.LastMethodSuccess = False) Then
    Debug.WriteLine(jws.LastErrorText)
    Exit Sub
End If

Debug.WriteLine(jwsCompact)