![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) Convert PKCS12 / PFX to Java Keystore (JKS)Loads a PKCS12 / PFX file and saves it to a Java keystore (JKS) file.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Pfx, JavaKeyStore; ... procedure TForm1.Button1Click(Sender: TObject); var pfx: HCkPfx; success: Boolean; jksPassword: PWideChar; alias: PWideChar; jks: HCkJavaKeyStore; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. pfx := CkPfx_Create(); // Load the PKCS12 from a file success := CkPfx_LoadPfxFile(pfx,'/someDir/my.p12','myPfxPassword'); if (success <> True) then begin Memo1.Lines.Add(CkPfx__lastErrorText(pfx)); Exit; end; jksPassword := 'myJksPassword'; alias := 'firstPrivateKeyAlias'; // Convert to a Java keystore object. // The jksPassword is the password to be used for the JKS private key entries. // It may be the same as the PFX password, but can also be different if desired. jks := CkPfx_ToJavaKeyStore(pfx,alias,jksPassword); if (CkPfx_getLastMethodSuccess(pfx) = False) then begin Memo1.Lines.Add(CkPfx__lastErrorText(pfx)); Exit; end; // Save the Java keystore to a file. success := CkJavaKeyStore_ToFile(jks,jksPassword,'/myKeystores/my.jks'); if (success <> True) then begin Memo1.Lines.Add(CkJavaKeyStore__lastErrorText(jks)); CkJavaKeyStore_Dispose(jks); Exit; end; CkJavaKeyStore_Dispose(jks); Memo1.Lines.Add('Successfully converted PFX to JKS.'); CkPfx_Dispose(pfx); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.