DataFlex

RSA Decrypt using PEM

See more RSA Examples

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

Use ChilkatAx-win32.pkg

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

    Move False To iSuccess

    // 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 = False) 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 ComUsePrivateKey Of hoRsa vKey To iSuccess
    If (iSuccess = False) 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