Quoted-Printable Encode/Decode a String

SQL Server example to quoted-printable 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

    --  Here's a string in Icelandic using non us-ascii chars:
    DECLARE @s nvarchar(4000)

    SELECT @s = 'Ég get etið gler án þess að meiða mig.'

    EXEC sp_OASetProperty @crypt, 'CryptAlgorithm', 'none'
    EXEC sp_OASetProperty @crypt, 'EncodingMode', 'quoted-printable'

    --  Quoted-printable encode/decode the iso-8859-1
    --  representation of the string.  Notice how each
    --  Icelandic char is represented by 1 byte:
    EXEC sp_OASetProperty @crypt, 'Charset', 'iso-8859-1'
    DECLARE @qp nvarchar(4000)

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

    PRINT 'iso-8859-1:'

    PRINT @qp
    DECLARE @decoded nvarchar(4000)

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

    PRINT @decoded

    --  Now do the same using utf-8. Notice how each
    --  Icelandic char is represented by 2 bytes in utf-8:
    EXEC sp_OASetProperty @crypt, 'Charset', 'utf-8'

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

    PRINT 'utf-8:'

    PRINT @qp

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

    PRINT @decoded
END
GO