(DataFlex) Generate new DSA Key from OpenSSL Parameters File

Generates a new DSA key from an OpenSSL-created parameters file (DER and PEM formats supported). Examples of using OpenSSL to create parameter files are shown here:

openssl dsaparam -outform DER 1024 <  seedData.txt >dsaparam.der

openssl dsaparam 1024 < seedData.txt >dsaparam.pem

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoDsa
    Boolean iSuccess
    String sPemStr
    String sXmlStr
    Boolean iBPublicOnly
    String sTemp1

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

    Get Create (RefClass(cComChilkatDsa)) To hoDsa
    If (Not(IsComObjectCreated(hoDsa))) Begin
        Send CreateComObject of hoDsa
    End

    Get ComGenKeyFromParamsDerFile Of hoDsa "dsaparam.der" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoDsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // To generate a key from PEM, call GenKeyFromParamsPem 
    // (for an in-memory PEM string) or GenKeyFromParamsFilePem
    // for a PEM file.

    // The public and private keys may now be exported to PEM, DER,
    // and XML formatted files.

    // First for the public key...
    // The public key never needs to be encrypted.

    // Save the public key in PEM format:
    Get ComToPublicPem Of hoDsa To sPemStr
    // This example will not check the return value of SaveText...
    Get ComSaveText Of hoDsa sPemStr "dsa_pub.pem" To iSuccess

    // Save the public key in DER format:
    Get ComToPublicDerFile Of hoDsa "dsa_pub.der" To iSuccess

    Move True To iBPublicOnly
    // Save to XML
    Get ComToXml Of hoDsa iBPublicOnly To sXmlStr
    Get ComSaveText Of hoDsa sPemStr "dsa_pub.xml" To iSuccess

    // ------------------------------------
    // Now for the private key....
    // ------------------------------------

    // Unencrypted PEM:
    Get ComToPem Of hoDsa To sPemStr
    Get ComSaveText Of hoDsa sPemStr "dsa_priv.pem" To iSuccess

    // Encrypted PEM:
    Get ComToEncryptedPem Of hoDsa "myPassword" To sPemStr
    Get ComSaveText Of hoDsa sPemStr "dsa_privEncrypted.pem" To iSuccess

    // DER:
    Get ComToDerFile Of hoDsa "dsa_priv.der" To iSuccess

    // XML:
    Move False To iBPublicOnly
    Get ComToXml Of hoDsa iBPublicOnly To sXmlStr
    Get ComSaveText Of hoDsa sPemStr "dsa_priv.xml" To iSuccess

    Showln "Finished!"


End_Procedure