(DataFlex) RSA Decrypt using PEM

This example demonstrates decryping RSA encrypted data that is base64 encoded. It uses a private key loaded from a PEM file.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRsa
    Variant vKey
    Handle hoKey
    Boolean iSuccess
    String sEncryptedStr
    Boolean iUsePrivateKey
    String sDecryptedStr
    String sTemp1

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatRsa)) To hoRsa
    If (Not(IsComObjectCreated(hoRsa))) Begin
        Send CreateComObject of hoRsa
    End

    Get Create (RefClass(cComChilkatPrivateKey)) To hoKey
    If (Not(IsComObjectCreated(hoKey))) Begin
        Send CreateComObject of hoKey
    End

    // Load an RSA private key from an unencrypted PEM file:
    // (To load from an encrypted PEM file, call LoadEncryptedPemFile instead.)

    Get ComLoadPemFile Of hoKey "qa_data/rsa/decryptTest/priv.pem" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Make the key available to the RSA object
    Get pvComObject of hoKey to vKey
    Get ComImportPrivateKeyObj Of hoRsa vKey To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Move "pP9XFJEsGgxPNHEgNiLB5H5ksCOXDk/G49BPTog1jKLAhYofV4UTH5k2TOYiqRnDnKs8+8uPoN/IxdiGXvuYG8HRzN0HtkhoZO/AxeyaB9S7eddCUlT0Pl2PEB2yQ9HG5rM7jqYOD6MAM4cuX7hqT8fa8tbzJzmBwdfFDBz94bwQjULHiO+gklIBC4vhkXT4yjuvEjxTAKU6tJeZYkBooJNdS/vE5RZRpuF6bGZU41Qc17qFR+iReBq+9f8IMmw8WR8fMbOCaygOfFS1nw7JVsIMGsAIXS8rUaJ/2DfGPfQx5HCiVtTOreGYRUI3esAQjnvUCnavZyQgs53nl7e2aA==" To sEncryptedStr

    Set ComEncodingMode Of hoRsa To "base64"

    Move True To iUsePrivateKey
    Get ComDecryptStringENC Of hoRsa sEncryptedStr iUsePrivateKey To sDecryptedStr

    Showln "Decrypted:"
    Showln sDecryptedStr


End_Procedure