(DataFlex) RSA Sign utf-8 Byte Representation of String

Demontstrates how to sign the utf-8 byte representation of a string.

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 vPrivKey
    Handle hoPrivKey
    Handle hoRsa
    String sOriginalData
    String sSigBase64
    String sTemp1

    Move False To iSuccess

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

    // Load an RSA private key for signing.
    Get Create (RefClass(cComChilkatPrivateKey)) To hoPrivKey
    If (Not(IsComObjectCreated(hoPrivKey))) Begin
        Send CreateComObject of hoPrivKey
    End
    Get ComLoadEncryptedPemFile Of hoPrivKey "qa_data/pem/rsa_passwd.pem" "passwd" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPrivKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatRsa)) To hoRsa
    If (Not(IsComObjectCreated(hoRsa))) Begin
        Send CreateComObject of hoRsa
    End
    Get pvComObject of hoPrivKey to vPrivKey
    Get ComUsePrivateKey Of hoRsa vPrivKey To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Move "This is the string to be hashed an RSA signed." To sOriginalData

    // Indicate that we want the utf-8 byte representation of the string to be signed
    Set ComCharset Of hoRsa To "utf-8"

    // We want the RSA signature in base64 format
    Set ComEncodingMode Of hoRsa To "base64"

    Get ComSignStringENC Of hoRsa sOriginalData "sha256" To sSigBase64
    Showln sSigBase64


End_Procedure