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
(VB.NET UWP/WinRT) 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
' 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 Dim success As Boolean Dim manifest As New Chilkat.JsonObject Dim crypt As New Chilkat.Crypt2 Dim zip As New Chilkat.Zip zip.NewZip("notUsedAndNeverCreated.zip") crypt.HashAlgorithm = "sha1" ' Return hashes as lowercase hex. crypt.EncodingMode = "hexlower" Dim digestStr As String Dim pngData As New Chilkat.BinData ' Assume we load the pngData with bytes for "icon.png" from somewhere, such as a byte array in memory. Dim entry As Chilkat.ZipEntry = zip.AppendBd("icon.png",pngData) digestStr = crypt.HashBdENC(pngData) manifest.UpdateString("""icon.png""",digestStr) pngData.Clear() ' Assume we load the pngData with bytes for "icon@2x.png" from somewhere... entry = zip.AppendBd("icon@2x.png",pngData) digestStr = crypt.HashBdENC(pngData) manifest.UpdateString("""icon@2x.png""",digestStr) pngData.Clear() ' Assume we load the pngData with bytes for "logo.png" from somewhere... entry = zip.AppendBd("logo.png",pngData) digestStr = crypt.HashBdENC(pngData) manifest.UpdateString("""logo.png""",digestStr) pngData.Clear() ' Assume we load the pngData with bytes for "logo@2x.png" from somewhere... entry = zip.AppendBd("logo@2x.png",pngData) digestStr = crypt.HashBdENC(pngData) manifest.UpdateString("""logo@2x.png""",digestStr) Dim passJson As String = "{ .... }"' Contains the contents of pass.json entry = zip.AppendString("pass.json",passJson) digestStr = crypt.HashStringENC(passJson) manifest.UpdateString("""pass.json""",digestStr) entry = zip.AppendString("manifest.json",manifest.Emit()) ' Make sure we have the Apple WWDR intermediate certificate available for ' the cert chain in the signature. Dim certVault As New Chilkat.XmlCertVault Dim appleWwdrCert As New Chilkat.Cert success = appleWwdrCert.LoadByCommonName("Apple Worldwide Developer Relations Certification Authority") If (success <> True) Then Debug.WriteLine("The Apple WWDR intermediate certificate is not installed.") Debug.WriteLine("It is available at https://developer.apple.com/certificationauthority/AppleWWDRCA.cer") Debug.WriteLine("You may alternatively load the .cer like this...") success = appleWwdrCert.LoadFromFile("qa_data/certs/AppleWWDRCA.cer") If (success <> True) Then Debug.WriteLine(appleWwdrCert.LastErrorText) Exit Sub End If End If certVault.AddCert(appleWwdrCert) crypt.UseCertVault(certVault) ' Use a digital certificate and private key from a PFX Dim bdPfx As New Chilkat.BinData ' Assume we loaded a PFX into bdPfx.... Dim pfxPassword As String = "test123" Dim cert As New Chilkat.Cert success = cert.LoadPfxBd(bdPfx,pfxPassword) If (success <> True) Then Debug.WriteLine(cert.LastErrorText) Exit Sub End If ' Provide the signing cert (with associated private key). success = crypt.SetSigningCert(cert) If (success <> True) Then Debug.WriteLine(crypt.LastErrorText) Exit Sub End If ' 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.) Dim jsonSignedAttrs As New Chilkat.JsonObject jsonSignedAttrs.UpdateInt("contentType",1) jsonSignedAttrs.UpdateInt("signingTime",1) crypt.SigningAttributes = jsonSignedAttrs.Emit() ' Sign the manifest JSON to produce a signature crypt.EncodingMode = "base64" Dim sig As String = Await crypt.SignStringENCAsync(manifest.Emit()) Dim bdSig As New Chilkat.BinData bdSig.AppendEncoded(sig,"base64") entry = zip.AppendBd("signature",bdSig) ' --------------------------------------------------------------------------------------------- ' 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 Dim bdZip As New Chilkat.BinData success = Await zip.WriteBdAsync(bdZip) If (success <> True) Then Debug.WriteLine(zip.LastErrorText) Exit Sub End If Debug.WriteLine("Success.") |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.