(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
' 
Dim crypt As Chilkat.Crypt2
Set crypt = Chilkat.NewCrypt2

' Base32 secret key:

secretKey = "oebf ytfl qmzb p4xd 2ztf zyz4 hjrw 3uyo"

Dim sbKey As Chilkat.StringBuilder
Set sbKey = Chilkat.NewStringBuilder

success = sbKey.Append(secretKey)

' Remove SPACE chars.

numRemoved = sbKey.Replace(" ","")

' 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.

numDigits = 6
' 30 second time period.

timePeriod = 30
Debug.Print "Your token is: "; crypt.Totp(sbKey.GetAsString(),"base32","0","",timePeriod,numDigits,-1,"sha1")