DataFlex

RSA Encrypt with Modulus and Exponent

See more RSA Examples

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoRsa
    String sModulus
    String sExponent
    Variant vXml
    Handle hoXml
    Variant vPubKey
    Handle hoPubKey
    Boolean iUsePrivateKey
    String sPlainText
    String sEncryptedStrBase64
    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(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

    Get Create (RefClass(cComChilkatPublicKey)) To hoPubKey
    If (Not(IsComObjectCreated(hoPubKey))) Begin
        Send CreateComObject of hoPubKey
    End
    Get pvComObject of hoXml to vXml
    Get ComLoadFromString Of hoPubKey vXml To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPubKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get pvComObject of hoPubKey to vPubKey
    Get ComUsePublicKey Of hoRsa vPubKey To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoRsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    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