(Delphi ActiveX) 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 for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
secretKey: WideString;
sbKey: TChilkatStringBuilder;
success: Integer;
numRemoved: Integer;
numDigits: Integer;
timePeriod: Integer;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// 
crypt := TChilkatCrypt2.Create(Self);

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

sbKey := TChilkatStringBuilder.Create(Self);
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;
Memo1.Lines.Add('Your token is: ' + crypt.Totp(sbKey.GetAsString(),'base32','0','',timePeriod,numDigits,-1,'sha1'));
end;