(Classic ASP) Encrypt / Decrypt Secure Strings

Demonstrates how to use the EncryptSecureENC and DecryptSecureENC methods to encrypt/decrypt secure strings. These methods were added in Chilkat v9.5.0.71 (released January 2018).

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>
<%
' This example requires the Chilkat Crypt API to have been previously unlocked.
' See Unlock Chilkat Crypt for sample code.

' Load the secure string with some text.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.SecureString")
set secStr1 = Server.CreateObject("Chilkat.SecureString")
success = secStr1.LoadFile("qa_data/txt/helloWorld.txt","utf-8")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load helloWorld.txt") & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = Server.CreateObject("Chilkat.Crypt2")

crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "cbc"
crypt.KeyLength = 128
crypt.SetEncodedKey "000102030405060708090A0B0C0D0E0F","hex"
crypt.SetEncodedIV "000102030405060708090A0B0C0D0E0F","hex"
crypt.EncodingMode = "base64"

' Return the base64 encoded encrypted contents of secStr1.
encryptedStr = crypt.EncryptSecureENC(secStr1)
Response.Write "<pre>" & Server.HTMLEncode( "Encrypted string: " & encryptedStr) & "</pre>"

' Output:
' Encrypted string: qiq+IFhcjTkEIkZyf31V/g==

' Decrypt to secStr2:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.SecureString")
set secStr2 = Server.CreateObject("Chilkat.SecureString")
success = crypt.DecryptSecureENC(encryptedStr,secStr2)

' Access the contents of secStr2
Response.Write "<pre>" & Server.HTMLEncode( "Decrypted string: " & secStr2.Access()) & "</pre>"

' Output:
' Decrypted string: Hello World!

%>
</body>
</html>