AES String Encryption

AES string encryption in SQL Server.

Download Chilkat Crypt ActiveX

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

    DECLARE @success int

    EXEC sp_OAMethod @crypt, 'UnlockComponent', @success OUT, 'Anything for 30-day trial'
    IF @success <> 1
      BEGIN
        PRINT 'Crypt component unlock failed'
        RETURN
      END

    DECLARE @password nvarchar(4000)

    SELECT @password = 'secretPassPhrase'

    EXEC sp_OASetProperty @crypt, 'CryptAlgorithm', 'aes'
    EXEC sp_OASetProperty @crypt, 'CipherMode', 'cbc'
    EXEC sp_OASetProperty @crypt, 'KeyLength', 128

    -- Generate a binary secret key from a password string
    -- of any length.  For 128-bit encryption, GenEncodedSecretKey
    -- generates the MD5 hash of the password and returns it
    -- in the encoded form requested.  The 2nd param can be
    -- "hex", "base64", "url", "quoted-printable", etc.
    DECLARE @hexKey nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'GenEncodedSecretKey', @hexKey OUT, @password, 'hex'
    EXEC sp_OAMethod @crypt, 'SetEncodedKey', NULL, @hexKey, 'hex'

    EXEC sp_OASetProperty @crypt, 'EncodingMode', 'base64'
    DECLARE @text nvarchar(4000)

    SELECT @text = 'The quick brown fox jumped over the lazy dog.'

    -- Encrypt a string and return the binary encrypted data
    -- in a base-64 encoded string.
    DECLARE @encText nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'EncryptStringENC', @encText OUT, @text

    PRINT @encText

    -- Decrypt and show the original string:
    DECLARE @decryptedText nvarchar(4000)

    EXEC sp_OAMethod @crypt, 'DecryptStringENC', @decryptedText OUT, @encText

    PRINT @decryptedText
END
GO