(VBScript) Load EC Public Key from X,Y Values

Demonstrates how to load an EC public key from X and Y values.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)



' We have the following x and y values in base64 (for an EC point on the P-256 curve).
x = "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw"
y = "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU"

' Build a JWK that looks like this:

' {
'   "kty": "EC",
'   "crv": "P-256",
'   "x": "Dn7uB1O7kgk74G6qfQwFJESeDnxO6lLjGZFWZJE16tw",
'   "y": "iOWA5DInzK6nuUGvHJbMVq1Dpj248FqSV2teN3HzmhU"
' }

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateString("kty","EC")
success = json.UpdateString("crv","P-256")
success = json.UpdateString("x",x)
success = json.UpdateString("y",y)

' Load from the JWK.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PublicKey")
set pubkey = CreateObject("Chilkat.PublicKey")
success = pubkey.LoadFromString(json.Emit())
If (success = 0) Then
    outFile.WriteLine(pubkey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close