Classic ASP Requires Chilkat v11.0.0+

Encrypt with Chilkat, Decrypt with OpenSSL

Demonstrates how to RSA encrypt a string using Chilkat, and then shows the corresponding OpenSSL command to RSA decrypt. The OpenSSL command to decrypt is as follows:

openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

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

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

set rsa = Server.CreateObject("Chilkat.Rsa")

'  Note: RSA encryption uses the public key.  
'  RSA decryption uses the private key.
'  The reason is that the public key can be freely provided to anybody.  This allows anybody
'  to send an encrypted message to the private key owner, and only the private key owner 
'  can decrypt.
set key = Server.CreateObject("Chilkat.PublicKey")

'  Load an RSA public key from a PEM file:
success = key.LoadFromFile("qa_data/pem/VP_Public.pem")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( key.LastErrorText) & "</pre>"
    Response.End
End If

'  Load the public key into the RSA object.
success = rsa.UsePublicKey(key)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

strToEncrypt = "00000000;XYZ2-3BHQ-ABCD-MMVV;6MY1-GHJK-9LRR;0"

'  The LittleEndian property is 0 by default, but it is set here
'  anyway to show that LittleEndian byte ordering is required for OpenSSL compatibility.
rsa.LittleEndian = 0

usePrivateKey = 0

encryptedBytes = rsa.EncryptString(strToEncrypt,usePrivateKey)
If (rsa.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

'  The OpenSSL command to decrypt would be this:
'  openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

set fac = Server.CreateObject("Chilkat.FileAccess")
success = fac.WriteEntireFile("qa_output/rsa_encrypted.bin",encryptedBytes)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( fac.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "RSA Encryption Succeeded.") & "</pre>"

%>
</body>
</html>