Perl

DSA Get Key as XML

Gets the DSA key in XML format. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $dsa = Chilkat2::Dsa->new;

# Generate a new 2048 bit DSA key.
my $success = $dsa->GenKey(2048);
if (!$success) {
    print $dsa->LastErrorText, "\n";
    exit;
}

# Get the public key as XML
my $bPublicOnly = 1;
my $xmlStr = $dsa->ToXml($bPublicOnly);
print $xmlStr, "\n";

# 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.
$bPublicOnly = 0;
$xmlStr = $dsa->ToXml($bPublicOnly);

print $xmlStr, "\n";

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