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.

Local $bSuccess = False

$oJws = ObjCreate("Chilkat.Jws")

;  Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
$oHeader = ObjCreate("Chilkat.JsonObject")
$oHeader.UpdateString("alg","RS256")
$bSuccess = $oJws.SetProtectedHeader(0,$oHeader)
If ($bSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

Local $bIncludeBom = False
$bSuccess = $oJws.SetPayload("This is the content to sign.","utf-8",$bIncludeBom)
If ($bSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

;  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.
Local $sPfxPassword = "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.
$oCert = ObjCreate("Chilkat.Cert")
$bSuccess = $oCert.LoadPfxFile("qa_data/signer.pfx",$sPfxPassword)
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oJws.SetSigningCert(0,$oCert)
If ($bSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

Local $sJwsCompact = $oJws.CreateJws()
If ($oJws.LastMethodSuccess = False) Then
    ConsoleWrite($oJws.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($sJwsCompact & @CRLF)