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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set jws = CreateObject("Chilkat.Jws")

'  Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
set header = CreateObject("Chilkat.JsonObject")
success = header.UpdateString("alg","RS256")
success = jws.SetProtectedHeader(0,header)
If (success = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

bIncludeBom = 0
success = jws.SetPayload("This is the content to sign.","utf-8",bIncludeBom)
If (success = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
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.
set privKey = CreateObject("Chilkat.PrivateKey")
success = privKey.LoadPemFile("qa_data/signer_privkey.pem")
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

success = jws.SetPrivateKey(0,privKey)
If (success = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

jwsCompact = jws.CreateJws()
If (jws.LastMethodSuccess = 0) Then
    outFile.WriteLine(jws.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(jwsCompact)

outFile.Close