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
(Delphi DLL) Sign Manifest File to Generate a Passbook .pkpass in MemoryDemonstrates how to create a Passbook .pkpass archive by creating a signature of a manifest file and then zipping to a .pkpass archive in memory
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Zip, XmlCertVault, JsonObject, ZipEntry, Cert, Crypt2, BinData; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; manifest: HCkJsonObject; crypt: HCkCrypt2; zip: HCkZip; digestStr: PWideChar; pngData: HCkBinData; entry: HCkZipEntry; passJson: PWideChar; certVault: HCkXmlCertVault; appleWwdrCert: HCkCert; bdPfx: HCkBinData; pfxPassword: PWideChar; cert: HCkCert; jsonSignedAttrs: HCkJsonObject; sig: PWideChar; bdSig: HCkBinData; bdZip: HCkBinData; begin // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // --------------------------------------------------------------------------------------------- // This example is the same as Sign Manifest File to Generate a Passbook .pkpass file // except everything happens in memory (no input files, no output files) // --------------------------------------------------------------------------------------------- // First create the manifest.json manifest := CkJsonObject_Create(); crypt := CkCrypt2_Create(); zip := CkZip_Create(); CkZip_NewZip(zip,'notUsedAndNeverCreated.zip'); CkCrypt2_putHashAlgorithm(crypt,'sha1'); // Return hashes as lowercase hex. CkCrypt2_putEncodingMode(crypt,'hexlower'); pngData := CkBinData_Create(); // Assume we load the pngData with bytes for "icon.png" from somewhere, such as a byte array in memory. entry := CkZip_AppendBd(zip,'icon.png',pngData); CkZipEntry_Dispose(entry); digestStr := CkCrypt2__hashBdENC(crypt,pngData); CkJsonObject_UpdateString(manifest,'"icon.png"',digestStr); CkBinData_Clear(pngData); // Assume we load the pngData with bytes for "icon@2x.png" from somewhere... entry := CkZip_AppendBd(zip,'icon@2x.png',pngData); CkZipEntry_Dispose(entry); digestStr := CkCrypt2__hashBdENC(crypt,pngData); CkJsonObject_UpdateString(manifest,'"icon@2x.png"',digestStr); CkBinData_Clear(pngData); // Assume we load the pngData with bytes for "logo.png" from somewhere... entry := CkZip_AppendBd(zip,'logo.png',pngData); CkZipEntry_Dispose(entry); digestStr := CkCrypt2__hashBdENC(crypt,pngData); CkJsonObject_UpdateString(manifest,'"logo.png"',digestStr); CkBinData_Clear(pngData); // Assume we load the pngData with bytes for "logo@2x.png" from somewhere... entry := CkZip_AppendBd(zip,'logo@2x.png',pngData); CkZipEntry_Dispose(entry); digestStr := CkCrypt2__hashBdENC(crypt,pngData); CkJsonObject_UpdateString(manifest,'"logo@2x.png"',digestStr); passJson := '{ .... }';// Contains the contents of pass.json entry := CkZip_AppendString(zip,'pass.json',passJson); CkZipEntry_Dispose(entry); digestStr := CkCrypt2__hashStringENC(crypt,passJson); CkJsonObject_UpdateString(manifest,'"pass.json"',digestStr); entry := CkZip_AppendString(zip,'manifest.json',CkJsonObject__emit(manifest)); CkZipEntry_Dispose(entry); // Make sure we have the Apple WWDR intermediate certificate available for // the cert chain in the signature. certVault := CkXmlCertVault_Create(); appleWwdrCert := CkCert_Create(); success := CkCert_LoadByCommonName(appleWwdrCert,'Apple Worldwide Developer Relations Certification Authority'); if (success <> True) then begin Memo1.Lines.Add('The Apple WWDR intermediate certificate is not installed.'); Memo1.Lines.Add('It is available at https://developer.apple.com/certificationauthority/AppleWWDRCA.cer'); Memo1.Lines.Add('You may alternatively load the .cer like this...'); success := CkCert_LoadFromFile(appleWwdrCert,'qa_data/certs/AppleWWDRCA.cer'); if (success <> True) then begin Memo1.Lines.Add(CkCert__lastErrorText(appleWwdrCert)); Exit; end; end; CkXmlCertVault_AddCert(certVault,appleWwdrCert); CkCrypt2_UseCertVault(crypt,certVault); // Use a digital certificate and private key from a PFX bdPfx := CkBinData_Create(); // Assume we loaded a PFX into bdPfx.... pfxPassword := 'test123'; cert := CkCert_Create(); success := CkCert_LoadPfxBd(cert,bdPfx,pfxPassword); if (success <> True) then begin Memo1.Lines.Add(CkCert__lastErrorText(cert)); Exit; end; // Provide the signing cert (with associated private key). success := CkCrypt2_SetSigningCert(crypt,cert); if (success <> True) then begin Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt)); Exit; end; // Specify the signed attributes to be included. // (These attributes appear to not be necessary, but we're including // them just in case they become necessary in the future.) jsonSignedAttrs := CkJsonObject_Create(); CkJsonObject_UpdateInt(jsonSignedAttrs,'contentType',1); CkJsonObject_UpdateInt(jsonSignedAttrs,'signingTime',1); CkCrypt2_putSigningAttributes(crypt,CkJsonObject__emit(jsonSignedAttrs)); // Sign the manifest JSON to produce a signature CkCrypt2_putEncodingMode(crypt,'base64'); sig := CkCrypt2__signStringENC(crypt,CkJsonObject__emit(manifest)); bdSig := CkBinData_Create(); CkBinData_AppendEncoded(bdSig,sig,'base64'); entry := CkZip_AppendBd(zip,'signature',bdSig); CkZipEntry_Dispose(entry); // --------------------------------------------------------------------------------------------- // Note: Chilkat also has the capability to do everything in-memory (no files would be involved). // If this is of interest, please send email to support@chilkatsoft.com // --------------------------------------------------------------------------------------------- // Create the .pkipass archive (which is a .zip archive containing the required files). // the .zip is written to bdZip bdZip := CkBinData_Create(); success := CkZip_WriteBd(zip,bdZip); if (success <> True) then begin Memo1.Lines.Add(CkZip__lastErrorText(zip)); Exit; end; Memo1.Lines.Add('Success.'); CkJsonObject_Dispose(manifest); CkCrypt2_Dispose(crypt); CkZip_Dispose(zip); CkBinData_Dispose(pngData); CkXmlCertVault_Dispose(certVault); CkCert_Dispose(appleWwdrCert); CkBinData_Dispose(bdPfx); CkCert_Dispose(cert); CkJsonObject_Dispose(jsonSignedAttrs); CkBinData_Dispose(bdSig); CkBinData_Dispose(bdZip); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.