|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Combine Multiple PKCS12's into a Single Java KeyStoreCombines multiple PKCS12's into a single Java KeyStore (JKS) file. To combine multiple PKCS12 files into a single JKS, simply load each PKCS12 into a PFX object, add it to the Java keystore object via the AddPfx method, and then finally write the Java keystore at the very end.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JavaKeyStore") set jks = Server.CreateObject("Chilkat.JavaKeyStore") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pfx") set pfx = Server.CreateObject("Chilkat.Pfx") ' Combines several PKCS12's into a single JKS. ' Simply load each, add it to the keystore, and then ' save at the very end. jksPassword = "jksSecret" ' Add the 1st PFX... pfxPassword = "secret1" success = pfx.LoadPfxFile("/someDir/file1.p12",pfxPassword) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>" Response.End End If alias = "alias1" success = jks.AddPfx(pfx,alias,jksPassword) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( jks.LastErrorText) & "</pre>" Response.End End If ' Add the 2nd PFX... pfxPassword = "secret2" success = pfx.LoadPfxFile("/someDir/file2.p12",pfxPassword) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>" Response.End End If alias = "alias2" success = jks.AddPfx(pfx,alias,jksPassword) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( jks.LastErrorText) & "</pre>" Response.End End If ' We can continue adding as many PFX's as desired... ' Write the Java keystore to a file: success = jks.ToFile(jksPassword,"/jksFiles/my.jks") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( jks.LastErrorText) & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode( "Successfully combined multiple PKCS12's into a single JKS") & "</pre>" End If %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.