(DataFlex) DSA Get Key as XML

Gets the DSA key in XML format.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoDsa
    Boolean iSuccess
    Boolean iBPublicOnly
    String sXmlStr
    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

    // Generate a new 2048 bit DSA key.
    Get ComGenKey Of hoDsa 2048 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoDsa To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get the public key as XML
    Move True To iBPublicOnly
    Get ComToXml Of hoDsa iBPublicOnly To sXmlStr
    Showln sXmlStr

    // Sample output.

    // <DSAKeyValue>
    // 	<P>wBYOKu...2eoXw==</P>
    // 	<Q>1taJI7...kV2/9c=</Q>
    // 	<G>qjfbTi...eB1+g==</G>
    // 	<Y>t3tz...NqjsPEg==</Y>
    // </DSAKeyValue>

    // Get the private key as XML.
    Move False To iBPublicOnly
    Get ComToXml Of hoDsa iBPublicOnly To sXmlStr

    Showln sXmlStr

    // Sample output.

    // <DSAKeyValue>
    // 	<P>wBYOKu...2eoXw==</P>
    // 	<Q>1taJI7...kV2/9c=</Q>
    // 	<G>qjfbTi...eB1+g==</G>
    // 	<Y>t3tz...NqjsPEg==</Y>
    // 	<X>lm9F...XzuVO+qU=</X>
    // </DSAKeyValue>


End_Procedure