Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Create a JWS Using ECDSA P-256 SHA-256Creates and validates a JSON Web Signature (JWS) that uses ECDSA P-256 SHA-256 Note: This example requires Chilkat v9.5.0.66 or greater.
' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Note: This example requires Chilkat v9.5.0.66 or greater. ' Use the following ECC key loaded from JWK format. Dim sbJwk As Chilkat.StringBuilder Set sbJwk = Chilkat.NewStringBuilder Dim success As Boolean success = sbJwk.Append("{""kty"":""EC"",") success = sbJwk.Append("""crv"":""P-256"",") success = sbJwk.Append("""x"":""f83OJ3D2xF1Bg8vub9tLe1gHMzV76e8Tus9uPHvRVEU"",") success = sbJwk.Append("""y"":""x_FEzRu9m36HLN_tue659LNpXW6pCyStikYjKIWI5a0"",") success = sbJwk.Append("""d"":""jpsQnnGQmL-YBIffH1136cspYG6-0iY7X1fCE9-E9LI""") success = sbJwk.Append("}") Dim eccKey As Chilkat.PrivateKey Set eccKey = Chilkat.NewPrivateKey ' Note: This example loads the ECDSA key from JWK format. Any format can be loaded ' into the private key object. (See the online reference documentation..) success = eccKey.LoadJwk(sbJwk.GetAsString()) If (success <> True) Then Debug.Print eccKey.LastErrorText Exit Sub End If ' Create the JWS Protected Header Dim jwsProtHdr As Chilkat.JsonObject Set jwsProtHdr = Chilkat.NewJsonObject success = jwsProtHdr.AppendString("alg","ES256") Dim jws As Chilkat.Jws Set jws = Chilkat.NewJws ' Set the protected header: signatureIndex = 0 success = jws.SetProtectedHeader(signatureIndex,jwsProtHdr) ' Set the ECC key: success = jws.SetPrivateKey(signatureIndex,eccKey) ' Set the payload. bIncludeBom = False payloadStr = "In our village, folks say God crumbles up the old moon into stars." success = jws.SetPayload(payloadStr,"utf-8",bIncludeBom) ' Create the JWS ' By default, the compact serialization is used. jwsCompact = jws.CreateJws() If (jws.LastMethodSuccess <> True) Then Debug.Print jws.LastErrorText Exit Sub End If Debug.Print "JWS: "; jwsCompact ' Note: ECC signatures use random values, so the output will be different each time a signature is produced. ' sample output: ' JWS: eyJhbGciOiJFUzI1NiJ9.SW4gb3VyIHZpbGxhZ2UsIGZvbGtzIHNheSBHb2QgY3J1bWJsZXMgdXAgdGhlIG9sZCBtb29uIGludG8gc3RhcnMu.J6EGTNkeuEjehHHBu0SOKzifm8r35wbx49A5964pxzB7gannyZZPMkK7vmlaPJ-K8Xmm8cZsQySAPC12Xd8avw ' Now load the JWS, validate, and recover the original text. Dim jws2 As Chilkat.Jws Set jws2 = Chilkat.NewJws ' Load the JWS. success = jws2.LoadJws(jwsCompact) Set eccPubKey = eccKey.GetPublicKey() ' Set the ECC public key used for validation. signatureIndex = 0 success = jws2.SetPublicKey(signatureIndex,eccPubKey) ' Validate the 1st (and only) signature at index 0.. v = jws2.Validate(signatureIndex) If (v < 0) Then ' Perhaps Chilkat was not unlocked or the trial expired.. Debug.Print "Method call failed for some other reason." Debug.Print jws2.LastErrorText Exit Sub End If If (v = 0) Then Debug.Print "Invalid signature. The ECC key was incorrect, the JWS was invalid, or both." Exit Sub End If ' If we get here, the signature was validated.. Debug.Print "Signature validated." ' Recover the original content: Debug.Print jws2.GetPayload("utf-8") ' Examine the protected header: Set joseHeader = jws2.GetProtectedHeader(signatureIndex) If (jws2.LastMethodSuccess <> True) Then Debug.Print "No protected header found at the given index." Exit Sub End If joseHeader.EmitCompact = False Debug.Print "Protected (JOSE) header:" Debug.Print joseHeader.Emit() ' Output: ' Signature validated. ' In our village, folks say God crumbles up the old moon into stars. ' Protected (JOSE) header: ' { ' "alg": "ES256" ' } |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.