(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# 
$crypt = chilkat::CkCrypt2->new();

# Base32 secret key:
$secretKey = "oebf ytfl qmzb p4xd 2ztf zyz4 hjrw 3uyo";

$sbKey = chilkat::CkStringBuilder->new();
$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;
print "Your token is: " . $crypt->totp($sbKey->getAsString(),"base32","0","",$timePeriod,$numDigits,-1,"sha1") . "\r\n";