(SQL Server) Quoted-Printable Encode/Decode a String

SQL Server example to quoted-printable encode and decode a string.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @crypt int
    -- Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Crypt2', @crypt OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        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'
    DECLARE @qp nvarchar(4000)
    EXEC sp_OAMethod @crypt, 'EncryptStringENC', @qp OUT, @s

    PRINT 'utf-8:'

    PRINT @qp
    DECLARE @decoded nvarchar(4000)
    EXEC sp_OAMethod @crypt, 'DecryptStringENC', @decoded OUT, @qp

    PRINT @decoded

    EXEC @hr = sp_OADestroy @crypt


END
GO