(DataFlex) RSA Encrypt with Modulus and Exponent

Demonstrates how to RSA encrypt with a given modulus and exponent.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRsa
    String sModulus
    String sExponent
    Handle hoXml
    String sPublicKey
    Boolean iSuccess
    Boolean iUsePrivateKey
    String sPlainText
    String sEncryptedStrBase64

    // 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

    // Assuming you already have a base64 modulus and exponent,
    // wrap it in XML like this:
    Move "qMBRpdYrAy5aMmo31NErUizh5sbweguSmh4wlK6uJEIDl+kwTlROnE34KOFExeTbJSX0WygPi+vWl0yNq7buIMUKpytossAAWut5khO3CQJxTk7G2gnEPNUUXHiExGgNrLzcSLv8YIlfVALhoRWyC67KOL+a+3taNq3h+BHeWhM=" To sModulus
    Move "AQAB" To sExponent

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End
    Set ComTag Of hoXml To "RSAPublicKey"
    Send ComNewChild2 To hoXml "Modulus" sModulus
    Send ComNewChild2 To hoXml "Exponent" sExponent

    // Encrypt with the public key.
    Get ComGetXml Of hoXml To sPublicKey
    Get ComImportPublicKey Of hoRsa sPublicKey To iSuccess

    Move False To iUsePrivateKey
    Move "message in a bottle" To sPlainText

    Set ComEncodingMode Of hoRsa To "base64"
    Get ComEncryptStringENC Of hoRsa sPlainText iUsePrivateKey To sEncryptedStrBase64
    Showln sEncryptedStrBase64


End_Procedure