(DataFlex) Load PEM Public/Private Key into RSA Object

Demonstrates how to load a PEM key into the Chilkat RSA object.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRsa
    String sPublicKeyPem
    Handle hoPubkey
    Boolean iSuccess
    String sPublicKeyXml
    String sPrivateKeyPem
    Handle hoPrivkey
    String sPrivateKeyXml
    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

    // First demonstrate importing a PEM public key:
    Move "PEM public-key data goes here" To sPublicKeyPem
    Get Create (RefClass(cComChilkatPublicKey)) To hoPubkey
    If (Not(IsComObjectCreated(hoPubkey))) Begin
        Send CreateComObject of hoPubkey
    End

    Get ComLoadFromString Of hoPubkey sPublicKeyPem To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPubkey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComGetXml Of hoPubkey To sPublicKeyXml

    Get ComImportPublicKey Of hoRsa sPublicKeyXml To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Demonstrate importing a PEM private key:
    Move "PEM private-key data goes here" To sPrivateKeyPem
    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivkey
    If (Not(IsComObjectCreated(hoPrivkey))) Begin
        Send CreateComObject of hoPrivkey
    End

    // If the private key PEM is protected with a password, then 
    // call LoadEncryptedPem.  Otherwise call LoadPem.
    Get ComLoadPem Of hoPrivkey sPrivateKeyPem To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPrivkey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComGetXml Of hoPrivkey To sPrivateKeyXml
    Get ComImportPrivateKey Of hoRsa sPrivateKeyXml To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "OK!"


End_Procedure