Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcel

Classic ASP Examples

Async
Certificates
ECC
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
JSON
Jwt
MHT / HTML Email
PEM
PFX/P12
Java KeyStore (JKS)
OAuth2
POP3
RSA Encryption
MIME
REST
SCP
SMTP
Socket/SSL/TLS
SSH Key
SSH
SSH Tunnel
SFTP
Stream
Tar Archive
XML
XMP
Zip

More Examples...
OpenSSL
Google APIs
Google Cloud Storage
Azure Cloud Storage
Amazon S3 (new)
Google Drive
Dropbox
Amazon SQS
Amazon SNS
Amazon SES
Firebase
ASN.1
PRNG
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
DSA
NTLM
QuickBooks
Spider
Digital Signatures

 

 

 

 

 

 

 

(Classic ASP) DSA Generate Key

Generates a DSA public/private key pair and saves to PEM and DER file formats (both encrypted and non-encrypted).

An encrypted DSA PEM looks like this:

-----BEGIN DSA PRIVATE KEY-----
Proc-Type: 4,ENCRYPTED
DEK-Info: DES-EDE3-CBC,9DAFD5C4CD62A5D0

QwDdp66sB0qKXQli7FbVcKL/eo3wu7kGRlV2sI8XbkNa1RTLiwnwTWDB0dqyWRQ8
...
Bx0HVfxKiNgCbL6BQEnYD+GOmMcckuj9Uhgloe/YuXCIDJBGhjUt/li3hvR/PXeC

V2xxNl1XKBE88njqi+UXt4vjGVNLpvXM
-----END DSA PRIVATE KEY-----

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%


set dsa = Server.CreateObject("Chilkat_9_5_0.Dsa")

success = dsa.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( dsa.LastErrorText) & "</pre>"

End If

'  Call GenKey to generate a new DSA key.
'  The number of bits should be at least 1024 and a multiple
'  of 64.   Typical values are either 1024 or 2048.
'  DSA key generation is compute intensive and may take
'  a short while to complete.
success = dsa.GenKey(2048)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( dsa.LastErrorText) & "</pre>"

End If

'  Extract the private and public parts to PEM or DER format
'  and save to files...

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

'  Save the public key in PEM format:
pemStr = dsa.ToPublicPem()
'  This example will not check the return value of SaveText...
success = dsa.SaveText(pemStr,"dsa_pub.pem")

'  Save the public key in DER format:
success = dsa.ToPublicDerFile("dsa_pub.der")

bPublicOnly = 1
'  Save to XML
xmlStr = dsa.ToXml(bPublicOnly)
success = dsa.SaveText(xmlStr,"dsa_pub.xml")

'  ------------------------------------
'  Now for the private key....
'  ------------------------------------

'  Unencrypted PEM:
pemStr = dsa.ToPem()
success = dsa.SaveText(pemStr,"dsa_priv.pem")

'  Encrypted PEM:
pemStr = dsa.ToEncryptedPem("myPassword")
success = dsa.SaveText(pemStr,"dsa_privEncrypted.pem")

'  DER:
success = dsa.ToDerFile("dsa_priv.der")

'  XML:
bPublicOnly = 0
xmlStr = dsa.ToXml(bPublicOnly)
success = dsa.SaveText(xmlStr,"dsa_priv.xml")

Response.Write "<pre>" & Server.HTMLEncode( "Finished!") & "</pre>"

%>
</body>
</html>

 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.