VBScript

Load a Private Key from a JWK

Demonstrates the Chilkat PrivateKey.LoadJwk method, which loads a private key from JWK (JSON Web Key) JSON. The only argument is the JWK JSON string. Supported key types are RSA, EC, and Ed25519 (kty=OKP).

Background: JWK is the JSON key format used throughout modern web security — JWT signing, OAuth, OpenID Connect — so this loader is what you use to consume a key from a JWK Set or an identity provider. A private JWK includes the private parameters (d and, for RSA, the CRT values); a public-only JWK omits them. As JSON in the clear, a private JWK must be handled as sensitive material.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

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

'  Demonstrates the PrivateKey.LoadJwk method, which loads a private key from JWK (JSON Web Key)
'  JSON.  The only argument is the JWK JSON string.  Supported key types are RSA, EC, and
'  Ed25519 (kty=OKP).

set privKey = CreateObject("Chilkat.PrivateKey")

'  A private JWK.  For a real key, "d" (and the other private parameters) would be present.
jwk = "{""kty"":""EC"",""crv"":""P-256"",""x"":""..."",""y"":""..."",""d"":""...""}"

success = privKey.LoadJwk(jwk)
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Loaded a " & privKey.KeyType & " private key.")

outFile.Close