Base64 Encode/Decode a String

SQL Server example to base-64 encode and decode a string.

Download Chilkat Crypt ActiveX

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @crypt int
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    --  Any string argument automatically begins the 30-day trial.
    DECLARE @success int

    EXEC sp_OAMethod @crypt, 'UnlockComponent', @success OUT, '30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @crypt, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    DECLARE @s nvarchar(4000)

    SELECT @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.
    EXEC sp_OASetProperty @crypt, 'CryptAlgorithm', 'none'
    EXEC sp_OASetProperty @crypt, 'EncodingMode', 'base64'

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

    DECLARE @strBase64 nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'EncryptStringENC', @strBase64 OUT, @s


    PRINT @strBase64

    DECLARE @decoded nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'DecryptStringENC', @decoded OUT, @strBase64


    PRINT @decoded
END
GO