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
success = False

Dim jws As New Chilkat.Jws

//  Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
Dim header As New Chilkat.JsonObject
success = header.UpdateString("alg","RS256")
success = jws.SetProtectedHeader(0,header)
If (success = False) Then
    System.DebugLog(jws.LastErrorText)
    Return
End If

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

success = jws.SetSigningCert(0,cert)
If (success = False) Then
    System.DebugLog(jws.LastErrorText)
    Return
End If

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

System.DebugLog(jwsCompact)