(SQL Server) Generate TOTP using Base32 Secret (6 Digits, Time-based, 30-second period)

Generates a 6-digit time-based TOTP code using a base32 secret with a 30-second time period.

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
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @sTmp1 nvarchar(4000)
    -- 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

    -- Base32 secret key:
    DECLARE @secretKey nvarchar(4000)
    SELECT @secretKey = 'oebf ytfl qmzb p4xd 2ztf zyz4 hjrw 3uyo'

    DECLARE @sbKey int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbKey OUT

    DECLARE @success int
    EXEC sp_OAMethod @sbKey, 'Append', @success OUT, @secretKey

    -- Remove SPACE chars.
    DECLARE @numRemoved int
    EXEC sp_OAMethod @sbKey, 'Replace', @numRemoved OUT, ' ', ''

    -- Note: A new token is generated every 30 seconds.  You must generate within the same 30 second interval to get the same result.

    -- Generate 6 digits.
    DECLARE @numDigits int
    SELECT @numDigits = 6
    -- 30 second time period.
    DECLARE @timePeriod int
    SELECT @timePeriod = 30

    EXEC sp_OAMethod @sbKey, 'GetAsString', @sTmp1 OUT
    EXEC sp_OAMethod @crypt, 'Totp', @sTmp0 OUT, @sTmp1, 'base32', '0', '', @timePeriod, @numDigits, -1, 'sha1'
    PRINT 'Your token is: ' + @sTmp0

    EXEC @hr = sp_OADestroy @crypt
    EXEC @hr = sp_OADestroy @sbKey


END
GO