B4X

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

See more Encryption Examples

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

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.
'  
Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

'  Base32 secret key:
Dim secretKey As String = "oebf ytfl qmzb p4xd 2ztf zyz4 hjrw 3uyo"

Dim sbKey As ChilkatStringBuilder
sbKey.Initialize
success = sbKey.Append(secretKey)

'  Remove SPACE chars.
Dim numRemoved As Int = 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.
Dim numDigits As Int = 6
'  30 second time period.
Dim timePeriod As Int = 30
Log("Your token is: " & crypt.Totp(sbKey.GetAsString, "base32", "0", "", timePeriod, numDigits, -1, "sha1"))