(Xojo Plugin) 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.
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
//
Dim crypt As New Chilkat.Crypt2
// Base32 secret key:
Dim secretKey As String
secretKey = "oebf ytfl qmzb p4xd 2ztf zyz4 hjrw 3uyo"
Dim sbKey As New Chilkat.StringBuilder
Dim success As Boolean
success = sbKey.Append(secretKey)
// Remove SPACE chars.
Dim numRemoved As Int32
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.
Dim numDigits As Int32
numDigits = 6
// 30 second time period.
Dim timePeriod As Int32
timePeriod = 30
System.DebugLog("Your token is: " + crypt.Totp(sbKey.GetAsString(),"base32","0","",timePeriod,numDigits,-1,"sha1"))
|
