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) RSA Decrypt using PEMThis example demonstrates decryping RSA encrypted data that is base64 encoded. It uses a private key loaded from a PEM file.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim rsa As Chilkat.Rsa Set rsa = Chilkat.NewRsa Dim key As Chilkat.PrivateKey Set key = Chilkat.NewPrivateKey ' Load an RSA private key from an unencrypted PEM file: ' (To load from an encrypted PEM file, call LoadEncryptedPemFile instead.) success = key.LoadPemFile("qa_data/rsa/decryptTest/priv.pem") If (success <> True) Then Debug.Print key.LastErrorText Exit Sub End If ' Make the key available to the RSA object success = rsa.ImportPrivateKeyObj(key) If (success <> True) Then Debug.Print rsa.LastErrorText Exit Sub End If encryptedStr = "pP9XFJEsGgxPNHEgNiLB5H5ksCOXDk/G49BPTog1jKLAhYofV4UTH5k2TOYiqRnDnKs8+8uPoN/IxdiGXvuYG8HRzN0HtkhoZO/AxeyaB9S7eddCUlT0Pl2PEB2yQ9HG5rM7jqYOD6MAM4cuX7hqT8fa8tbzJzmBwdfFDBz94bwQjULHiO+gklIBC4vhkXT4yjuvEjxTAKU6tJeZYkBooJNdS/vE5RZRpuF6bGZU41Qc17qFR+iReBq+9f8IMmw8WR8fMbOCaygOfFS1nw7JVsIMGsAIXS8rUaJ/2DfGPfQx5HCiVtTOreGYRUI3esAQjnvUCnavZyQgs53nl7e2aA==" rsa.EncodingMode = "base64" usePrivateKey = True decryptedStr = rsa.DecryptStringENC(encryptedStr,usePrivateKey) Debug.Print "Decrypted:" Debug.Print decryptedStr |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.