(VBScript) 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.
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
'
set crypt = CreateObject("Chilkat_9_5_0.Crypt2")
' Base32 secret key:
secretKey = "oebf ytfl qmzb p4xd 2ztf zyz4 hjrw 3uyo"
set sbKey = CreateObject("Chilkat_9_5_0.StringBuilder")
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
outFile.WriteLine("Your token is: " & crypt.Totp(sbKey.GetAsString(),"base32","0","",timePeriod,numDigits,-1,"sha1"))
outFile.Close
|