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
(VB.NET) Working with PEM Encrypted Private KeysDemonstrates how to load and save PEM encrypted private keys.
' Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program ' by calling UnlockBundle. It requires a Bundle unlock code. Dim chilkatGlob As New Chilkat.Global Dim success As Boolean = chilkatGlob.UnlockBundle("Anything for 30-day trial.") If (success <> True) Then Debug.WriteLine(chilkatGlob.LastErrorText) Exit Sub End If Dim pem As New Chilkat.Pem Dim pemPassword As String = "secret" ' To load a PEM file containing encrypted private keys, simply ' provide the password. success = pem.LoadPemFile("/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem",pemPassword) If (success <> True) Then Debug.WriteLine(pem.LastErrorText) Exit Sub End If Dim fac As New Chilkat.FileAccess Dim pemText As String = fac.ReadEntireTextFile("/Users/chilkat/testData/pem/pemContainingEncryptedPrivateKeys.pem",pemPassword) ' To load a PEM from a string, call LoadPem instead of LoadPemFile: success = pem.LoadPem(pemText) If (success <> True) Then Debug.WriteLine(pem.LastErrorText) Exit Sub End If ' A few notes: ' The PEM may contain both private keys and certificates (or anything else). ' The password is utilized for whatever content in the PEM is encrypted. ' It is OK to have both encrypted and non-encrypted content within a given PEM. ' PEM private keys can be encrypted in different formats. The LoadPem and LoadPemFile ' methods automatically handle the different formats. ' One format is PKCS8 and is indicated by this delimiter within the PEM: ' -----BEGIN ENCRYPTED PRIVATE KEY----- ' MIICoTAbBgkqhkiG9w0BBQMwDgQIfdD0zv24lgkCAggABIICgE0PdHJmRbNs6cBX ' ... ' Another format, we'll call "passphrase" looks like this in the PEM: ' -----BEGIN RSA PRIVATE KEY----- ' Proc-Type: 4,ENCRYPTED ' DEK-Info: DES-EDE3-CBC,A4215544D11C5D0C ' ' paqy9XRexcSjurHfG0xhCaUD0HrvIdhuC0CbRxxxeMlkLaV6+uT80rBxt2AaibWG ' ... ' Show the bit length of each private key: Dim i As Integer Dim numPrivateKeys As Integer = pem.NumPrivateKeys If (numPrivateKeys = 0) Then Debug.WriteLine((("Error: Expected the PEM to contain private keys."))) Exit Sub End If For i = 1 To numPrivateKeys Dim privKey As Chilkat.PrivateKey = pem.GetPrivateKey(i - 1) Debug.WriteLine(i & ": " & privKey.BitLength & " bits") Next |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.