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

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

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

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vPrivKey
    Handle hoPrivKey
    Boolean iSuccess
    Handle hoRsa
    String sOriginalData
    String sSigBase64
    String sTemp1

    // 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 <> True) 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 ComImportPrivateKeyObj Of hoRsa vPrivKey To iSuccess

    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