(DataFlex) Create PKCS1 RSA Signature with PEM Private Key

See more RSA Examples

Note: This example requires Chilkat v11.0.0 or greater.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vPkey
    Handle hoPkey
    Handle hoRsa
    String sStrData
    String sHexSig
    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(cComChilkatPrivateKey)) To hoPkey
    If (Not(IsComObjectCreated(hoPkey))) Begin
        Send CreateComObject of hoPkey
    End

    // Load the private key from an RSA PEM file:
    Get ComLoadPemFile Of hoPkey "pvkey2_rsa.pem" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPkey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

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

    // Import the private key into the RSA object:
    Get pvComObject of hoPkey to vPkey
    Get ComUsePrivateKey Of hoRsa vPkey To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get the signature as hex.
    Set ComEncodingMode Of hoRsa To "hex"

    Move "This is the string to be signed." To sStrData

    // Sign the string using the sha-1 hash algorithm.
    // Other valid choices are "md2", "md5", "sha256",
    // "sha384", and "sha512".
    Get ComSignStringENC Of hoRsa sStrData "sha-1" To sHexSig

    Showln sHexSig

    Showln "Success!"


End_Procedure