Perl

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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

my $sbKey = Chilkat2::StringBuilder->new;
my $success = $sbKey->Append($secretKey);

# Remove SPACE chars.
my $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.
my $numDigits = 6;
# 30 second time period.
my $timePeriod = 30;
print 'Your token is: ', $crypt->Totp($sbKey->GetAsString(), 'base32', '0', '', $timePeriod, $numDigits, -1, 'sha1'), "\n";