About RSA Public/Private Keys

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set cert = Server.CreateObject("Chilkat.Cert")

'  Load a digital certificate.
success = cert.LoadFromFile("digitalCert.cer")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(cert.LastErrorText) & "</pre>"

End If

'  A .cer file does not contain the private key.  It should contain
'  the public key...
' pubKey is a Chilkat.PublicKey
Set pubKey = cert.ExportPublicKey()

'  Let's have a look at it (in XML format).
Response.Write "<pre>" & Server.HTMLEncode( "Public Key from Certificate:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( pubKey.GetXml()) & "</pre>"

'  An RSA public key consists of a modulus and exponent.

'  An RSA private key includes both the modulus and exponent,
'  as well as other "big" numbers: P, Q, D, etc.

'  Let's load an RSA private key from a DER-encoded file:
set privKey = Server.CreateObject("Chilkat.PrivateKey")

success = privKey.LoadRsaDerFile("PrivateKey.key")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(privKey.LastErrorText) & "</pre>"

End If

'  If this private key is the matching half to the public key from
'  the certificate, then the modulus and exponent should
'  be identical.  (Thus, a "private key" really contains both the public part as well as the private parts...).
Response.Write "<pre>" & Server.HTMLEncode( "Private Key from DER:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( privKey.GetXml()) & "</pre>"

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

End If

'  You now realize that the private key really contains both
'  private and public parts.  Therefore, we may import the private
'  key and the choose to use either the public or private in our
'  encrypt/decrypt operations:
privKeyXml = privKey.GetXml()
success = rsa.ImportPrivateKey(privKeyXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(rsa.LastErrorText) & "</pre>"

End If


%>
</body>
</html>