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) Add Trusted Certificate to JKSAdds a trusted certificate to a Java keystore file.
' This requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim jks As Chilkat.JavaKeyStore Set jks = Chilkat.NewJavaKeyStore jksPassword = "secret" jksPath = "/myJksTrustedCerts/cacerts.jks" ' Load the Java keystore from a file. success = jks.LoadFile(jksPassword,jksPath) If (success <> True) Then Debug.Print jks.LastErrorText Exit Sub End If Dim cert As Chilkat.Cert Set cert = Chilkat.NewCert ' The cert's LoadFrommFile method can load a certificate from ' virtually any format. It will automatically determine the format ' and load appropriately. success = cert.LoadFromFile("/certFiles/myNewTrustedCert.pem") If (success <> True) Then Debug.Print cert.LastErrorText Exit Sub End If ' The alias can be anything. It's basically just a label ' used within the JKS associated with the entry. It should ' be unique among aliases within the JKS file. alias = "habanero" success = jks.AddTrustedCert(cert,alias) If (success <> True) Then Debug.Print jks.LastErrorText Exit Sub End If ' Write the JKS containing the new certificate. success = jks.ToFile(jksPassword,jksPath) If (success <> True) Then Debug.Print jks.LastErrorText Exit Sub End If Debug.Print "Added a trusted certificate to the JKS." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.