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 JCEKS Containing Secret KeysDemonstrates how to create a JCEKS keystore file containing symmetric secret keys (for AES, Blowfish, HMAC SHA25, ChaCha20, etc.) This example requires Chilkat v9.5.0.66 or greater.
' IMPORTANT: This example requires Chilkat v9.5.0.66 or greater. ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim jceks As Chilkat.JavaKeyStore Set jceks = Chilkat.NewJavaKeyStore ' We'll need a pseudo-random number generator (PRNG) to generate symmetric keys. Dim prng As Chilkat.Prng Set prng = Chilkat.NewPrng ' Generate some keys.. ' 128-bit AES key (16 bytes) aesKey = prng.GenRandom(16,"base64") ' 256-bit Blowfish key (32 bytes) blowfishKey = prng.GenRandom(32,"base64") ' HMAC SHA256 key ' (An HMAC key can be anything, and any length. We'll use the following string: hmacKey = "This is my HMAC key" ' ChaCha20 256-bit chachaKey = prng.GenRandom(32,"base64") ' Add each secret key to the JCEKS encoding = "base64" password = "secret" Dim success As Boolean success = jceks.AddSecretKey(aesKey,encoding,"AES","my aes key",password) success = jceks.AddSecretKey(blowfishKey,encoding,"BLOWFISH","my blowfish key",password) ' For HMAC, we're using the us-ascii bytes for the key.. success = jceks.AddSecretKey(hmacKey,"ascii","HMAC_SHA256","my hmac key",password) success = jceks.AddSecretKey(chachaKey,encoding,"CHACHA","my chacha20 key",password) filePassword = "password" ' Write the JCEKs to a file. success = jceks.ToFile(filePassword,"qa_output/secretKeys.jceks") If (success <> True) Then Debug.Print jceks.LastErrorText Exit Sub End If ' We can also emit as a JWK Set.. Dim sbJson As Chilkat.StringBuilder Set sbJson = Chilkat.NewStringBuilder success = jceks.ToJwkSet("secret",sbJson) If (success <> True) Then Debug.Print jceks.LastErrorText Exit Sub End If ' Emit the JSON in pretty-printed (indented) form: Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject success = json.LoadSb(sbJson) json.EmitCompact = False Debug.Print json.Emit() ' Output is: ' { ' "keys": [ ' { ' "kty": "oct", ' "alg": "AES", ' "k": "vHekQQB0Gc1NvppapUTW2g", ' "kid": "my aes key" ' }, ' { ' "kty": "oct", ' "alg": "BLOWFISH", ' "k": "qHsdXaJsXicVCZbK8l8hJQpYOa0GkiO9gsRK9WLtht8", ' "kid": "my blowfish key" ' }, ' { ' "kty": "oct", ' "alg": "HMAC_SHA256", ' "k": "VGhpcyBpcyBteSBITUFDIGtleQ", ' "kid": "my hmac key" ' }, ' { ' "kty": "oct", ' "alg": "CHACHA", ' "k": "yNv832U43C9BcWvaQAH2_rG-GwfmpgT5JBRllWGQY1o", ' "kid": "my chacha20 key" ' } ' ] ' } ' |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.