Base64 Encode/Decode a String

ASP example to base-64 encode and decode a string.

Download Chilkat Crypt ActiveX

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

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( crypt.LastErrorText) & "</pre>"

End If

s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

'  Indicate that no encryption should be performed,
'  only encoding/decoding.
crypt.CryptAlgorithm = "none"
crypt.EncodingMode = "base64"

'  Other possible EncodingMode settings are:
'  "quoted-printable", "hex", "uu", "base32", and "url"

strBase64 = crypt.EncryptStringENC(s)

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

decoded = crypt.DecryptStringENC(strBase64)

Response.Write "<pre>" & Server.HTMLEncode( decoded) & "</pre>"
%>
</body>
</html>