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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: HCkCrypt2;
secretKey: PWideChar;
sbKey: HCkStringBuilder;
success: Boolean;
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 := CkCrypt2_Create();

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

sbKey := CkStringBuilder_Create();
success := CkStringBuilder_Append(sbKey,secretKey);

// Remove SPACE chars.
numRemoved := CkStringBuilder_Replace(sbKey,' ','');

// 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: ' + CkCrypt2__totp(crypt,CkStringBuilder__getAsString(sbKey),'base32','0','',timePeriod,numDigits,-1,'sha1'));

CkCrypt2_Dispose(crypt);
CkStringBuilder_Dispose(sbKey);

end;